#+ Constraints Management from DB schema (smarmotech) -------------------------------------------------------------------------------- --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 smarmotech -------------------------------------------------------------------------------- --DB constraints functions {<BLOCK Name="fct.vwventasvendedor_checkTableConstraints">} #+ Check constraints on the "vwventasvendedor" table #+ #+ @param p_data - a row data LIKE vwventasvendedor.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vwventasvendedor_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vwventasvendedor.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vwventasvendedor_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventasvendedor_apellidov_checkColumnConstraints(p_data.apellidov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventasvendedor_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventasvendedor_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventasvendedor_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventasvendedor_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventasvendedor_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventasvendedor_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventasvendedor_compania_checkColumnConstraints(p_data.compania) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventasvendedor_cond_pago_checkColumnConstraints(p_data.cond_pago) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventasvendedor_descrip_p_checkColumnConstraints(p_data.descrip_p) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventasvendedor_descripcionp_checkColumnConstraints(p_data.descripcionp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventasvendedor_descuento_checkColumnConstraints(p_data.descuento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventasvendedor_descuentord_checkColumnConstraints(p_data.descuentord) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventasvendedor_documentodev_checkColumnConstraints(p_data.documentodev) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventasvendedor_factura_checkColumnConstraints(p_data.factura) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventasvendedor_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventasvendedor_itbis_checkColumnConstraints(p_data.itbis) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventasvendedor_itbisrd_checkColumnConstraints(p_data.itbisrd) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventasvendedor_localidad_checkColumnConstraints(p_data.localidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventasvendedor_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventasvendedor_neto_checkColumnConstraints(p_data.neto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventasvendedor_netord_checkColumnConstraints(p_data.netord) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventasvendedor_nombre_cliente_checkColumnConstraints(p_data.nombre_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventasvendedor_nombrev_checkColumnConstraints(p_data.nombrev) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventasvendedor_numero_mes_checkColumnConstraints(p_data.numero_mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventasvendedor_orden_checkColumnConstraints(p_data.orden) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventasvendedor_origen_producto_checkColumnConstraints(p_data.origen_producto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventasvendedor_porc_itbi_checkColumnConstraints(p_data.porc_itbi) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventasvendedor_precio_checkColumnConstraints(p_data.precio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventasvendedor_producto_checkColumnConstraints(p_data.producto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventasvendedor_rnc_checkColumnConstraints(p_data.rnc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventasvendedor_sec_cliente_checkColumnConstraints(p_data.sec_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventasvendedor_sec_vend_checkColumnConstraints(p_data.sec_vend) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventasvendedor_tasa_checkColumnConstraints(p_data.tasa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventasvendedor_tipo_cliente_checkColumnConstraints(p_data.tipo_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventasvendedor_tipotransaccion_checkColumnConstraints(p_data.tipotransaccion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventasvendedor_tipo_ventas_checkColumnConstraints(p_data.tipo_ventas) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventasvendedor_unidadmed_checkColumnConstraints(p_data.unidadmed) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventasvendedor_valor_bruto_checkColumnConstraints(p_data.valor_bruto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventasvendedor_valorrd_checkColumnConstraints(p_data.valorrd) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventasvendedor_checkTableConstraints {<BLOCK Name="fct.vwventasvendedor_ano_checkColumnConstraints">} #+ Check constraints on the "vwventasvendedor.ano" column #+ #+ @param p_ano - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventasvendedor_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE vwventasvendedor.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventasvendedor_ano_checkColumnConstraints {<BLOCK Name="fct.vwventasvendedor_apellidov_checkColumnConstraints">} #+ Check constraints on the "vwventasvendedor.apellidov" column #+ #+ @param p_apellidov - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventasvendedor_apellidov_checkColumnConstraints(p_apellidov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_apellidov LIKE vwventasvendedor.apellidov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventasvendedor_apellidov_checkColumnConstraints {<BLOCK Name="fct.vwventasvendedor_cantidad_checkColumnConstraints">} #+ Check constraints on the "vwventasvendedor.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventasvendedor_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE vwventasvendedor.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventasvendedor_cantidad_checkColumnConstraints {<BLOCK Name="fct.vwventasvendedor_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "vwventasvendedor.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventasvendedor_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE vwventasvendedor.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventasvendedor_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.vwventasvendedor_cod_mov_checkColumnConstraints">} #+ Check constraints on the "vwventasvendedor.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventasvendedor_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE vwventasvendedor.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventasvendedor_cod_mov_checkColumnConstraints {<BLOCK Name="fct.vwventasvendedor_cod_n_checkColumnConstraints">} #+ Check constraints on the "vwventasvendedor.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventasvendedor_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE vwventasvendedor.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventasvendedor_cod_n_checkColumnConstraints {<BLOCK Name="fct.vwventasvendedor_cod_sec_checkColumnConstraints">} #+ Check constraints on the "vwventasvendedor.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventasvendedor_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE vwventasvendedor.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventasvendedor_cod_sec_checkColumnConstraints {<BLOCK Name="fct.vwventasvendedor_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "vwventasvendedor.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventasvendedor_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE vwventasvendedor.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventasvendedor_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.vwventasvendedor_compania_checkColumnConstraints">} #+ Check constraints on the "vwventasvendedor.compania" column #+ #+ @param p_compania - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventasvendedor_compania_checkColumnConstraints(p_compania) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_compania LIKE vwventasvendedor.compania LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventasvendedor_compania_checkColumnConstraints {<BLOCK Name="fct.vwventasvendedor_cond_pago_checkColumnConstraints">} #+ Check constraints on the "vwventasvendedor.cond_pago" column #+ #+ @param p_cond_pago - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventasvendedor_cond_pago_checkColumnConstraints(p_cond_pago) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cond_pago LIKE vwventasvendedor.cond_pago LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventasvendedor_cond_pago_checkColumnConstraints {<BLOCK Name="fct.vwventasvendedor_descrip_p_checkColumnConstraints">} #+ Check constraints on the "vwventasvendedor.descrip_p" column #+ #+ @param p_descrip_p - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventasvendedor_descrip_p_checkColumnConstraints(p_descrip_p) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip_p LIKE vwventasvendedor.descrip_p LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventasvendedor_descrip_p_checkColumnConstraints {<BLOCK Name="fct.vwventasvendedor_descripcionp_checkColumnConstraints">} #+ Check constraints on the "vwventasvendedor.descripcionp" column #+ #+ @param p_descripcionp - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventasvendedor_descripcionp_checkColumnConstraints(p_descripcionp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcionp LIKE vwventasvendedor.descripcionp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventasvendedor_descripcionp_checkColumnConstraints {<BLOCK Name="fct.vwventasvendedor_descuento_checkColumnConstraints">} #+ Check constraints on the "vwventasvendedor.descuento" column #+ #+ @param p_descuento - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventasvendedor_descuento_checkColumnConstraints(p_descuento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descuento LIKE vwventasvendedor.descuento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventasvendedor_descuento_checkColumnConstraints {<BLOCK Name="fct.vwventasvendedor_descuentord_checkColumnConstraints">} #+ Check constraints on the "vwventasvendedor.descuentord" column #+ #+ @param p_descuentord - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventasvendedor_descuentord_checkColumnConstraints(p_descuentord) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descuentord LIKE vwventasvendedor.descuentord LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventasvendedor_descuentord_checkColumnConstraints {<BLOCK Name="fct.vwventasvendedor_documentodev_checkColumnConstraints">} #+ Check constraints on the "vwventasvendedor.documentodev" column #+ #+ @param p_documentodev - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventasvendedor_documentodev_checkColumnConstraints(p_documentodev) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_documentodev LIKE vwventasvendedor.documentodev LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventasvendedor_documentodev_checkColumnConstraints {<BLOCK Name="fct.vwventasvendedor_factura_checkColumnConstraints">} #+ Check constraints on the "vwventasvendedor.factura" column #+ #+ @param p_factura - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventasvendedor_factura_checkColumnConstraints(p_factura) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_factura LIKE vwventasvendedor.factura LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventasvendedor_factura_checkColumnConstraints {<BLOCK Name="fct.vwventasvendedor_fecha_checkColumnConstraints">} #+ Check constraints on the "vwventasvendedor.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventasvendedor_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE vwventasvendedor.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventasvendedor_fecha_checkColumnConstraints {<BLOCK Name="fct.vwventasvendedor_itbis_checkColumnConstraints">} #+ Check constraints on the "vwventasvendedor.itbis" column #+ #+ @param p_itbis - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventasvendedor_itbis_checkColumnConstraints(p_itbis) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_itbis LIKE vwventasvendedor.itbis LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventasvendedor_itbis_checkColumnConstraints {<BLOCK Name="fct.vwventasvendedor_itbisrd_checkColumnConstraints">} #+ Check constraints on the "vwventasvendedor.itbisrd" column #+ #+ @param p_itbisrd - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventasvendedor_itbisrd_checkColumnConstraints(p_itbisrd) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_itbisrd LIKE vwventasvendedor.itbisrd LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventasvendedor_itbisrd_checkColumnConstraints {<BLOCK Name="fct.vwventasvendedor_localidad_checkColumnConstraints">} #+ Check constraints on the "vwventasvendedor.localidad" column #+ #+ @param p_localidad - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventasvendedor_localidad_checkColumnConstraints(p_localidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_localidad LIKE vwventasvendedor.localidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventasvendedor_localidad_checkColumnConstraints {<BLOCK Name="fct.vwventasvendedor_mes_checkColumnConstraints">} #+ Check constraints on the "vwventasvendedor.mes" column #+ #+ @param p_mes - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventasvendedor_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE vwventasvendedor.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventasvendedor_mes_checkColumnConstraints {<BLOCK Name="fct.vwventasvendedor_neto_checkColumnConstraints">} #+ Check constraints on the "vwventasvendedor.neto" column #+ #+ @param p_neto - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventasvendedor_neto_checkColumnConstraints(p_neto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_neto LIKE vwventasvendedor.neto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventasvendedor_neto_checkColumnConstraints {<BLOCK Name="fct.vwventasvendedor_netord_checkColumnConstraints">} #+ Check constraints on the "vwventasvendedor.netord" column #+ #+ @param p_netord - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventasvendedor_netord_checkColumnConstraints(p_netord) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_netord LIKE vwventasvendedor.netord LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventasvendedor_netord_checkColumnConstraints {<BLOCK Name="fct.vwventasvendedor_nombre_cliente_checkColumnConstraints">} #+ Check constraints on the "vwventasvendedor.nombre_cliente" column #+ #+ @param p_nombre_cliente - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventasvendedor_nombre_cliente_checkColumnConstraints(p_nombre_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombre_cliente LIKE vwventasvendedor.nombre_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventasvendedor_nombre_cliente_checkColumnConstraints {<BLOCK Name="fct.vwventasvendedor_nombrev_checkColumnConstraints">} #+ Check constraints on the "vwventasvendedor.nombrev" column #+ #+ @param p_nombrev - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventasvendedor_nombrev_checkColumnConstraints(p_nombrev) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombrev LIKE vwventasvendedor.nombrev LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventasvendedor_nombrev_checkColumnConstraints {<BLOCK Name="fct.vwventasvendedor_numero_mes_checkColumnConstraints">} #+ Check constraints on the "vwventasvendedor.numero_mes" column #+ #+ @param p_numero_mes - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventasvendedor_numero_mes_checkColumnConstraints(p_numero_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_numero_mes LIKE vwventasvendedor.numero_mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventasvendedor_numero_mes_checkColumnConstraints {<BLOCK Name="fct.vwventasvendedor_orden_checkColumnConstraints">} #+ Check constraints on the "vwventasvendedor.orden" column #+ #+ @param p_orden - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventasvendedor_orden_checkColumnConstraints(p_orden) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_orden LIKE vwventasvendedor.orden LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventasvendedor_orden_checkColumnConstraints {<BLOCK Name="fct.vwventasvendedor_origen_producto_checkColumnConstraints">} #+ Check constraints on the "vwventasvendedor.origen_producto" column #+ #+ @param p_origen_producto - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventasvendedor_origen_producto_checkColumnConstraints(p_origen_producto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_origen_producto LIKE vwventasvendedor.origen_producto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventasvendedor_origen_producto_checkColumnConstraints {<BLOCK Name="fct.vwventasvendedor_porc_itbi_checkColumnConstraints">} #+ Check constraints on the "vwventasvendedor.porc_itbi" column #+ #+ @param p_porc_itbi - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventasvendedor_porc_itbi_checkColumnConstraints(p_porc_itbi) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_porc_itbi LIKE vwventasvendedor.porc_itbi LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventasvendedor_porc_itbi_checkColumnConstraints {<BLOCK Name="fct.vwventasvendedor_precio_checkColumnConstraints">} #+ Check constraints on the "vwventasvendedor.precio" column #+ #+ @param p_precio - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventasvendedor_precio_checkColumnConstraints(p_precio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_precio LIKE vwventasvendedor.precio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventasvendedor_precio_checkColumnConstraints {<BLOCK Name="fct.vwventasvendedor_producto_checkColumnConstraints">} #+ Check constraints on the "vwventasvendedor.producto" column #+ #+ @param p_producto - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventasvendedor_producto_checkColumnConstraints(p_producto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_producto LIKE vwventasvendedor.producto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventasvendedor_producto_checkColumnConstraints {<BLOCK Name="fct.vwventasvendedor_rnc_checkColumnConstraints">} #+ Check constraints on the "vwventasvendedor.rnc" column #+ #+ @param p_rnc - CHAR(11) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventasvendedor_rnc_checkColumnConstraints(p_rnc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_rnc LIKE vwventasvendedor.rnc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventasvendedor_rnc_checkColumnConstraints {<BLOCK Name="fct.vwventasvendedor_sec_cliente_checkColumnConstraints">} #+ Check constraints on the "vwventasvendedor.sec_cliente" column #+ #+ @param p_sec_cliente - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventasvendedor_sec_cliente_checkColumnConstraints(p_sec_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_cliente LIKE vwventasvendedor.sec_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventasvendedor_sec_cliente_checkColumnConstraints {<BLOCK Name="fct.vwventasvendedor_sec_vend_checkColumnConstraints">} #+ Check constraints on the "vwventasvendedor.sec_vend" column #+ #+ @param p_sec_vend - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventasvendedor_sec_vend_checkColumnConstraints(p_sec_vend) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_vend LIKE vwventasvendedor.sec_vend LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventasvendedor_sec_vend_checkColumnConstraints {<BLOCK Name="fct.vwventasvendedor_tasa_checkColumnConstraints">} #+ Check constraints on the "vwventasvendedor.tasa" column #+ #+ @param p_tasa - DECIMAL(8,3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventasvendedor_tasa_checkColumnConstraints(p_tasa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tasa LIKE vwventasvendedor.tasa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventasvendedor_tasa_checkColumnConstraints {<BLOCK Name="fct.vwventasvendedor_tipo_cliente_checkColumnConstraints">} #+ Check constraints on the "vwventasvendedor.tipo_cliente" column #+ #+ @param p_tipo_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventasvendedor_tipo_cliente_checkColumnConstraints(p_tipo_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_cliente LIKE vwventasvendedor.tipo_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventasvendedor_tipo_cliente_checkColumnConstraints {<BLOCK Name="fct.vwventasvendedor_tipotransaccion_checkColumnConstraints">} #+ Check constraints on the "vwventasvendedor.tipotransaccion" column #+ #+ @param p_tipotransaccion - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventasvendedor_tipotransaccion_checkColumnConstraints(p_tipotransaccion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipotransaccion LIKE vwventasvendedor.tipotransaccion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventasvendedor_tipotransaccion_checkColumnConstraints {<BLOCK Name="fct.vwventasvendedor_tipo_ventas_checkColumnConstraints">} #+ Check constraints on the "vwventasvendedor.tipo_ventas" column #+ #+ @param p_tipo_ventas - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventasvendedor_tipo_ventas_checkColumnConstraints(p_tipo_ventas) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_ventas LIKE vwventasvendedor.tipo_ventas LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventasvendedor_tipo_ventas_checkColumnConstraints {<BLOCK Name="fct.vwventasvendedor_unidadmed_checkColumnConstraints">} #+ Check constraints on the "vwventasvendedor.unidadmed" column #+ #+ @param p_unidadmed - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventasvendedor_unidadmed_checkColumnConstraints(p_unidadmed) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_unidadmed LIKE vwventasvendedor.unidadmed LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventasvendedor_unidadmed_checkColumnConstraints {<BLOCK Name="fct.vwventasvendedor_valor_bruto_checkColumnConstraints">} #+ Check constraints on the "vwventasvendedor.valor_bruto" column #+ #+ @param p_valor_bruto - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventasvendedor_valor_bruto_checkColumnConstraints(p_valor_bruto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor_bruto LIKE vwventasvendedor.valor_bruto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventasvendedor_valor_bruto_checkColumnConstraints {<BLOCK Name="fct.vwventasvendedor_valorrd_checkColumnConstraints">} #+ Check constraints on the "vwventasvendedor.valorrd" column #+ #+ @param p_valorrd - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventasvendedor_valorrd_checkColumnConstraints(p_valorrd) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valorrd LIKE vwventasvendedor.valorrd LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventasvendedor_valorrd_checkColumnConstraints {<BLOCK Name="fct.vwventas_checkTableConstraints">} #+ Check constraints on the "vwventas" table #+ #+ @param p_data - a row data LIKE vwventas.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vwventas.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vwventas_compania_checkColumnConstraints(p_data.compania) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_localidad_checkColumnConstraints(p_data.localidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_tipotransaccion_checkColumnConstraints(p_data.tipotransaccion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_tipo_ventas_checkColumnConstraints(p_data.tipo_ventas) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_origen_producto_checkColumnConstraints(p_data.origen_producto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_producto_checkColumnConstraints(p_data.producto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_tipoproducto_checkColumnConstraints(p_data.tipoproducto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_valor_bruto_checkColumnConstraints(p_data.valor_bruto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_porc_itbi_checkColumnConstraints(p_data.porc_itbi) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_descuento_checkColumnConstraints(p_data.descuento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_itbis_checkColumnConstraints(p_data.itbis) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_factura_checkColumnConstraints(p_data.factura) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_conduce_checkColumnConstraints(p_data.conduce) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_documentodev_checkColumnConstraints(p_data.documentodev) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_documentocxc_checkColumnConstraints(p_data.documentocxc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_observaciones_checkColumnConstraints(p_data.observaciones) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_cond_pago_checkColumnConstraints(p_data.cond_pago) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_descrip_p_checkColumnConstraints(p_data.descrip_p) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_numero_mes_checkColumnConstraints(p_data.numero_mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_tipo_cliente_checkColumnConstraints(p_data.tipo_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_sec_cliente_checkColumnConstraints(p_data.sec_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_nombre_cliente_checkColumnConstraints(p_data.nombre_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_rnc_checkColumnConstraints(p_data.rnc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_orden_checkColumnConstraints(p_data.orden) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_sec_vend_checkColumnConstraints(p_data.sec_vend) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_nombrev_checkColumnConstraints(p_data.nombrev) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_apellidov_checkColumnConstraints(p_data.apellidov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_descripcionp_checkColumnConstraints(p_data.descripcionp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_unidadmed_checkColumnConstraints(p_data.unidadmed) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_precio_checkColumnConstraints(p_data.precio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_material_checkColumnConstraints(p_data.material) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_labor_checkColumnConstraints(p_data.labor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_gasto_checkColumnConstraints(p_data.gasto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_valormaterial_checkColumnConstraints(p_data.valormaterial) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_valorlabor_checkColumnConstraints(p_data.valorlabor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_valorgasto_checkColumnConstraints(p_data.valorgasto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_tasa_checkColumnConstraints(p_data.tasa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_valorrd_checkColumnConstraints(p_data.valorrd) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_descuentord_checkColumnConstraints(p_data.descuentord) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_itbisrd_checkColumnConstraints(p_data.itbisrd) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_netord_checkColumnConstraints(p_data.netord) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_neto_checkColumnConstraints(p_data.neto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_margen_checkColumnConstraints(p_data.margen) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_transportista_checkColumnConstraints(p_data.transportista) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_pventas_checkColumnConstraints(p_data.pventas) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwventas_preciolista_checkColumnConstraints(p_data.preciolista) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_checkTableConstraints {<BLOCK Name="fct.vwventas_compania_checkColumnConstraints">} #+ Check constraints on the "vwventas.compania" column #+ #+ @param p_compania - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_compania_checkColumnConstraints(p_compania) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_compania LIKE vwventas.compania LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_compania_checkColumnConstraints {<BLOCK Name="fct.vwventas_localidad_checkColumnConstraints">} #+ Check constraints on the "vwventas.localidad" column #+ #+ @param p_localidad - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_localidad_checkColumnConstraints(p_localidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_localidad LIKE vwventas.localidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_localidad_checkColumnConstraints {<BLOCK Name="fct.vwventas_tipotransaccion_checkColumnConstraints">} #+ Check constraints on the "vwventas.tipotransaccion" column #+ #+ @param p_tipotransaccion - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_tipotransaccion_checkColumnConstraints(p_tipotransaccion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipotransaccion LIKE vwventas.tipotransaccion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_tipotransaccion_checkColumnConstraints {<BLOCK Name="fct.vwventas_tipo_ventas_checkColumnConstraints">} #+ Check constraints on the "vwventas.tipo_ventas" column #+ #+ @param p_tipo_ventas - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_tipo_ventas_checkColumnConstraints(p_tipo_ventas) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_ventas LIKE vwventas.tipo_ventas LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_tipo_ventas_checkColumnConstraints {<BLOCK Name="fct.vwventas_origen_producto_checkColumnConstraints">} #+ Check constraints on the "vwventas.origen_producto" column #+ #+ @param p_origen_producto - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_origen_producto_checkColumnConstraints(p_origen_producto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_origen_producto LIKE vwventas.origen_producto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_origen_producto_checkColumnConstraints {<BLOCK Name="fct.vwventas_producto_checkColumnConstraints">} #+ Check constraints on the "vwventas.producto" column #+ #+ @param p_producto - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_producto_checkColumnConstraints(p_producto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_producto LIKE vwventas.producto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_producto_checkColumnConstraints {<BLOCK Name="fct.vwventas_tipoproducto_checkColumnConstraints">} #+ Check constraints on the "vwventas.tipoproducto" column #+ #+ @param p_tipoproducto - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_tipoproducto_checkColumnConstraints(p_tipoproducto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipoproducto LIKE vwventas.tipoproducto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_tipoproducto_checkColumnConstraints {<BLOCK Name="fct.vwventas_valor_bruto_checkColumnConstraints">} #+ Check constraints on the "vwventas.valor_bruto" column #+ #+ @param p_valor_bruto - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_valor_bruto_checkColumnConstraints(p_valor_bruto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor_bruto LIKE vwventas.valor_bruto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_valor_bruto_checkColumnConstraints {<BLOCK Name="fct.vwventas_porc_itbi_checkColumnConstraints">} #+ Check constraints on the "vwventas.porc_itbi" column #+ #+ @param p_porc_itbi - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_porc_itbi_checkColumnConstraints(p_porc_itbi) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_porc_itbi LIKE vwventas.porc_itbi LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_porc_itbi_checkColumnConstraints {<BLOCK Name="fct.vwventas_descuento_checkColumnConstraints">} #+ Check constraints on the "vwventas.descuento" column #+ #+ @param p_descuento - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_descuento_checkColumnConstraints(p_descuento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descuento LIKE vwventas.descuento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_descuento_checkColumnConstraints {<BLOCK Name="fct.vwventas_itbis_checkColumnConstraints">} #+ Check constraints on the "vwventas.itbis" column #+ #+ @param p_itbis - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_itbis_checkColumnConstraints(p_itbis) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_itbis LIKE vwventas.itbis LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_itbis_checkColumnConstraints {<BLOCK Name="fct.vwventas_factura_checkColumnConstraints">} #+ Check constraints on the "vwventas.factura" column #+ #+ @param p_factura - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_factura_checkColumnConstraints(p_factura) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_factura LIKE vwventas.factura LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_factura_checkColumnConstraints {<BLOCK Name="fct.vwventas_conduce_checkColumnConstraints">} #+ Check constraints on the "vwventas.conduce" column #+ #+ @param p_conduce - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_conduce_checkColumnConstraints(p_conduce) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_conduce LIKE vwventas.conduce LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_conduce_checkColumnConstraints {<BLOCK Name="fct.vwventas_documentodev_checkColumnConstraints">} #+ Check constraints on the "vwventas.documentodev" column #+ #+ @param p_documentodev - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_documentodev_checkColumnConstraints(p_documentodev) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_documentodev LIKE vwventas.documentodev LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_documentodev_checkColumnConstraints {<BLOCK Name="fct.vwventas_documentocxc_checkColumnConstraints">} #+ Check constraints on the "vwventas.documentocxc" column #+ #+ @param p_documentocxc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_documentocxc_checkColumnConstraints(p_documentocxc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_documentocxc LIKE vwventas.documentocxc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_documentocxc_checkColumnConstraints {<BLOCK Name="fct.vwventas_observaciones_checkColumnConstraints">} #+ Check constraints on the "vwventas.observaciones" column #+ #+ @param p_observaciones - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_observaciones_checkColumnConstraints(p_observaciones) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_observaciones LIKE vwventas.observaciones LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_observaciones_checkColumnConstraints {<BLOCK Name="fct.vwventas_cod_mov_checkColumnConstraints">} #+ Check constraints on the "vwventas.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE vwventas.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_cod_mov_checkColumnConstraints {<BLOCK Name="fct.vwventas_cond_pago_checkColumnConstraints">} #+ Check constraints on the "vwventas.cond_pago" column #+ #+ @param p_cond_pago - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_cond_pago_checkColumnConstraints(p_cond_pago) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cond_pago LIKE vwventas.cond_pago LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_cond_pago_checkColumnConstraints {<BLOCK Name="fct.vwventas_descrip_p_checkColumnConstraints">} #+ Check constraints on the "vwventas.descrip_p" column #+ #+ @param p_descrip_p - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_descrip_p_checkColumnConstraints(p_descrip_p) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip_p LIKE vwventas.descrip_p LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_descrip_p_checkColumnConstraints {<BLOCK Name="fct.vwventas_fecha_checkColumnConstraints">} #+ Check constraints on the "vwventas.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE vwventas.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_fecha_checkColumnConstraints {<BLOCK Name="fct.vwventas_numero_mes_checkColumnConstraints">} #+ Check constraints on the "vwventas.numero_mes" column #+ #+ @param p_numero_mes - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_numero_mes_checkColumnConstraints(p_numero_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_numero_mes LIKE vwventas.numero_mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_numero_mes_checkColumnConstraints {<BLOCK Name="fct.vwventas_ano_checkColumnConstraints">} #+ Check constraints on the "vwventas.ano" column #+ #+ @param p_ano - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE vwventas.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_ano_checkColumnConstraints {<BLOCK Name="fct.vwventas_mes_checkColumnConstraints">} #+ Check constraints on the "vwventas.mes" column #+ #+ @param p_mes - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE vwventas.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_mes_checkColumnConstraints {<BLOCK Name="fct.vwventas_tipo_cliente_checkColumnConstraints">} #+ Check constraints on the "vwventas.tipo_cliente" column #+ #+ @param p_tipo_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_tipo_cliente_checkColumnConstraints(p_tipo_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_cliente LIKE vwventas.tipo_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_tipo_cliente_checkColumnConstraints {<BLOCK Name="fct.vwventas_sec_cliente_checkColumnConstraints">} #+ Check constraints on the "vwventas.sec_cliente" column #+ #+ @param p_sec_cliente - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_sec_cliente_checkColumnConstraints(p_sec_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_cliente LIKE vwventas.sec_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_sec_cliente_checkColumnConstraints {<BLOCK Name="fct.vwventas_nombre_cliente_checkColumnConstraints">} #+ Check constraints on the "vwventas.nombre_cliente" column #+ #+ @param p_nombre_cliente - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_nombre_cliente_checkColumnConstraints(p_nombre_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombre_cliente LIKE vwventas.nombre_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_nombre_cliente_checkColumnConstraints {<BLOCK Name="fct.vwventas_rnc_checkColumnConstraints">} #+ Check constraints on the "vwventas.rnc" column #+ #+ @param p_rnc - CHAR(11) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_rnc_checkColumnConstraints(p_rnc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_rnc LIKE vwventas.rnc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_rnc_checkColumnConstraints {<BLOCK Name="fct.vwventas_orden_checkColumnConstraints">} #+ Check constraints on the "vwventas.orden" column #+ #+ @param p_orden - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_orden_checkColumnConstraints(p_orden) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_orden LIKE vwventas.orden LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_orden_checkColumnConstraints {<BLOCK Name="fct.vwventas_sec_vend_checkColumnConstraints">} #+ Check constraints on the "vwventas.sec_vend" column #+ #+ @param p_sec_vend - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_sec_vend_checkColumnConstraints(p_sec_vend) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_vend LIKE vwventas.sec_vend LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_sec_vend_checkColumnConstraints {<BLOCK Name="fct.vwventas_nombrev_checkColumnConstraints">} #+ Check constraints on the "vwventas.nombrev" column #+ #+ @param p_nombrev - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_nombrev_checkColumnConstraints(p_nombrev) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombrev LIKE vwventas.nombrev LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_nombrev_checkColumnConstraints {<BLOCK Name="fct.vwventas_apellidov_checkColumnConstraints">} #+ Check constraints on the "vwventas.apellidov" column #+ #+ @param p_apellidov - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_apellidov_checkColumnConstraints(p_apellidov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_apellidov LIKE vwventas.apellidov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_apellidov_checkColumnConstraints {<BLOCK Name="fct.vwventas_cod_n_checkColumnConstraints">} #+ Check constraints on the "vwventas.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE vwventas.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_cod_n_checkColumnConstraints {<BLOCK Name="fct.vwventas_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "vwventas.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE vwventas.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.vwventas_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "vwventas.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE vwventas.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.vwventas_cod_sec_checkColumnConstraints">} #+ Check constraints on the "vwventas.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE vwventas.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_cod_sec_checkColumnConstraints {<BLOCK Name="fct.vwventas_descripcionp_checkColumnConstraints">} #+ Check constraints on the "vwventas.descripcionp" column #+ #+ @param p_descripcionp - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_descripcionp_checkColumnConstraints(p_descripcionp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcionp LIKE vwventas.descripcionp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_descripcionp_checkColumnConstraints {<BLOCK Name="fct.vwventas_unidadmed_checkColumnConstraints">} #+ Check constraints on the "vwventas.unidadmed" column #+ #+ @param p_unidadmed - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_unidadmed_checkColumnConstraints(p_unidadmed) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_unidadmed LIKE vwventas.unidadmed LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_unidadmed_checkColumnConstraints {<BLOCK Name="fct.vwventas_cantidad_checkColumnConstraints">} #+ Check constraints on the "vwventas.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE vwventas.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_cantidad_checkColumnConstraints {<BLOCK Name="fct.vwventas_precio_checkColumnConstraints">} #+ Check constraints on the "vwventas.precio" column #+ #+ @param p_precio - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_precio_checkColumnConstraints(p_precio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_precio LIKE vwventas.precio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_precio_checkColumnConstraints {<BLOCK Name="fct.vwventas_material_checkColumnConstraints">} #+ Check constraints on the "vwventas.material" column #+ #+ @param p_material - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_material_checkColumnConstraints(p_material) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_material LIKE vwventas.material LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_material_checkColumnConstraints {<BLOCK Name="fct.vwventas_labor_checkColumnConstraints">} #+ Check constraints on the "vwventas.labor" column #+ #+ @param p_labor - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_labor_checkColumnConstraints(p_labor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_labor LIKE vwventas.labor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_labor_checkColumnConstraints {<BLOCK Name="fct.vwventas_gasto_checkColumnConstraints">} #+ Check constraints on the "vwventas.gasto" column #+ #+ @param p_gasto - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_gasto_checkColumnConstraints(p_gasto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_gasto LIKE vwventas.gasto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_gasto_checkColumnConstraints {<BLOCK Name="fct.vwventas_valormaterial_checkColumnConstraints">} #+ Check constraints on the "vwventas.valormaterial" column #+ #+ @param p_valormaterial - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_valormaterial_checkColumnConstraints(p_valormaterial) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valormaterial LIKE vwventas.valormaterial LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_valormaterial_checkColumnConstraints {<BLOCK Name="fct.vwventas_valorlabor_checkColumnConstraints">} #+ Check constraints on the "vwventas.valorlabor" column #+ #+ @param p_valorlabor - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_valorlabor_checkColumnConstraints(p_valorlabor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valorlabor LIKE vwventas.valorlabor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_valorlabor_checkColumnConstraints {<BLOCK Name="fct.vwventas_valorgasto_checkColumnConstraints">} #+ Check constraints on the "vwventas.valorgasto" column #+ #+ @param p_valorgasto - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_valorgasto_checkColumnConstraints(p_valorgasto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valorgasto LIKE vwventas.valorgasto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_valorgasto_checkColumnConstraints {<BLOCK Name="fct.vwventas_tasa_checkColumnConstraints">} #+ Check constraints on the "vwventas.tasa" column #+ #+ @param p_tasa - DECIMAL(8,3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_tasa_checkColumnConstraints(p_tasa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tasa LIKE vwventas.tasa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_tasa_checkColumnConstraints {<BLOCK Name="fct.vwventas_valorrd_checkColumnConstraints">} #+ Check constraints on the "vwventas.valorrd" column #+ #+ @param p_valorrd - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_valorrd_checkColumnConstraints(p_valorrd) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valorrd LIKE vwventas.valorrd LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_valorrd_checkColumnConstraints {<BLOCK Name="fct.vwventas_descuentord_checkColumnConstraints">} #+ Check constraints on the "vwventas.descuentord" column #+ #+ @param p_descuentord - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_descuentord_checkColumnConstraints(p_descuentord) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descuentord LIKE vwventas.descuentord LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_descuentord_checkColumnConstraints {<BLOCK Name="fct.vwventas_itbisrd_checkColumnConstraints">} #+ Check constraints on the "vwventas.itbisrd" column #+ #+ @param p_itbisrd - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_itbisrd_checkColumnConstraints(p_itbisrd) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_itbisrd LIKE vwventas.itbisrd LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_itbisrd_checkColumnConstraints {<BLOCK Name="fct.vwventas_netord_checkColumnConstraints">} #+ Check constraints on the "vwventas.netord" column #+ #+ @param p_netord - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_netord_checkColumnConstraints(p_netord) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_netord LIKE vwventas.netord LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_netord_checkColumnConstraints {<BLOCK Name="fct.vwventas_neto_checkColumnConstraints">} #+ Check constraints on the "vwventas.neto" column #+ #+ @param p_neto - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_neto_checkColumnConstraints(p_neto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_neto LIKE vwventas.neto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_neto_checkColumnConstraints {<BLOCK Name="fct.vwventas_margen_checkColumnConstraints">} #+ Check constraints on the "vwventas.margen" column #+ #+ @param p_margen - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_margen_checkColumnConstraints(p_margen) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_margen LIKE vwventas.margen LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_margen_checkColumnConstraints {<BLOCK Name="fct.vwventas_transportista_checkColumnConstraints">} #+ Check constraints on the "vwventas.transportista" column #+ #+ @param p_transportista - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_transportista_checkColumnConstraints(p_transportista) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_transportista LIKE vwventas.transportista LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_transportista_checkColumnConstraints {<BLOCK Name="fct.vwventas_pventas_checkColumnConstraints">} #+ Check constraints on the "vwventas.pventas" column #+ #+ @param p_pventas - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_pventas_checkColumnConstraints(p_pventas) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_pventas LIKE vwventas.pventas LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_pventas_checkColumnConstraints {<BLOCK Name="fct.vwventas_preciolista_checkColumnConstraints">} #+ Check constraints on the "vwventas.preciolista" column #+ #+ @param p_preciolista - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwventas_preciolista_checkColumnConstraints(p_preciolista) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_preciolista LIKE vwventas.preciolista LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_preciolista IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- preciolista: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwventas_preciolista_checkColumnConstraints {<BLOCK Name="fct.vwvacaciones_checkTableConstraints">} #+ Check constraints on the "vwvacaciones" table #+ #+ @param p_data - a row data LIKE vwvacaciones.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vwvacaciones_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vwvacaciones.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vwvacaciones_nom_puesto_checkColumnConstraints(p_data.nom_puesto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwvacaciones_num_emp_checkColumnConstraints(p_data.num_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwvacaciones_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwvacaciones_cod_puesto_checkColumnConstraints(p_data.cod_puesto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwvacaciones_nom1_emp_checkColumnConstraints(p_data.nom1_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwvacaciones_nom2_emp_checkColumnConstraints(p_data.nom2_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwvacaciones_apell1_emp_checkColumnConstraints(p_data.apell1_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwvacaciones_apell2_emp_checkColumnConstraints(p_data.apell2_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwvacaciones_tipo_empleado_checkColumnConstraints(p_data.tipo_empleado) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwvacaciones_fecha_termino_c_checkColumnConstraints(p_data.fecha_termino_c) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwvacaciones_calle_checkColumnConstraints(p_data.calle) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwvacaciones_casa_num_checkColumnConstraints(p_data.casa_num) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwvacaciones_barrio_checkColumnConstraints(p_data.barrio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwvacaciones_urbanizacion_checkColumnConstraints(p_data.urbanizacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwvacaciones_telefono_checkColumnConstraints(p_data.telefono) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwvacaciones_fech_nac_checkColumnConstraints(p_data.fech_nac) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwvacaciones_tipo_sangre_checkColumnConstraints(p_data.tipo_sangre) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwvacaciones_cedula_checkColumnConstraints(p_data.cedula) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwvacaciones_serie_checkColumnConstraints(p_data.serie) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwvacaciones_sueldo_ac_checkColumnConstraints(p_data.sueldo_ac) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwvacaciones_nomina_checkColumnConstraints(p_data.nomina) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwvacaciones_fech_efec_checkColumnConstraints(p_data.fech_efec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwvacaciones_fecha_salida_checkColumnConstraints(p_data.fecha_salida) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwvacaciones_cuenta_no_checkColumnConstraints(p_data.cuenta_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwvacaciones_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwvacaciones_sucid_checkColumnConstraints(p_data.sucid) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwvacaciones_nom_dpto_checkColumnConstraints(p_data.nom_dpto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwvacaciones_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwvacaciones_descrip_checkColumnConstraints(p_data.descrip) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwvacaciones_checkTableConstraints {<BLOCK Name="fct.vwvacaciones_nom_puesto_checkColumnConstraints">} #+ Check constraints on the "vwvacaciones.nom_puesto" column #+ #+ @param p_nom_puesto - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwvacaciones_nom_puesto_checkColumnConstraints(p_nom_puesto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nom_puesto LIKE vwvacaciones.nom_puesto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwvacaciones_nom_puesto_checkColumnConstraints {<BLOCK Name="fct.vwvacaciones_num_emp_checkColumnConstraints">} #+ Check constraints on the "vwvacaciones.num_emp" column #+ #+ @param p_num_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwvacaciones_num_emp_checkColumnConstraints(p_num_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_emp LIKE vwvacaciones.num_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_num_emp IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- num_emp: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwvacaciones_num_emp_checkColumnConstraints {<BLOCK Name="fct.vwvacaciones_departamento_checkColumnConstraints">} #+ Check constraints on the "vwvacaciones.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwvacaciones_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE vwvacaciones.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwvacaciones_departamento_checkColumnConstraints {<BLOCK Name="fct.vwvacaciones_cod_puesto_checkColumnConstraints">} #+ Check constraints on the "vwvacaciones.cod_puesto" column #+ #+ @param p_cod_puesto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwvacaciones_cod_puesto_checkColumnConstraints(p_cod_puesto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_puesto LIKE vwvacaciones.cod_puesto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwvacaciones_cod_puesto_checkColumnConstraints {<BLOCK Name="fct.vwvacaciones_nom1_emp_checkColumnConstraints">} #+ Check constraints on the "vwvacaciones.nom1_emp" column #+ #+ @param p_nom1_emp - CHAR(15) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwvacaciones_nom1_emp_checkColumnConstraints(p_nom1_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nom1_emp LIKE vwvacaciones.nom1_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwvacaciones_nom1_emp_checkColumnConstraints {<BLOCK Name="fct.vwvacaciones_nom2_emp_checkColumnConstraints">} #+ Check constraints on the "vwvacaciones.nom2_emp" column #+ #+ @param p_nom2_emp - CHAR(15) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwvacaciones_nom2_emp_checkColumnConstraints(p_nom2_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nom2_emp LIKE vwvacaciones.nom2_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwvacaciones_nom2_emp_checkColumnConstraints {<BLOCK Name="fct.vwvacaciones_apell1_emp_checkColumnConstraints">} #+ Check constraints on the "vwvacaciones.apell1_emp" column #+ #+ @param p_apell1_emp - CHAR(15) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwvacaciones_apell1_emp_checkColumnConstraints(p_apell1_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_apell1_emp LIKE vwvacaciones.apell1_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwvacaciones_apell1_emp_checkColumnConstraints {<BLOCK Name="fct.vwvacaciones_apell2_emp_checkColumnConstraints">} #+ Check constraints on the "vwvacaciones.apell2_emp" column #+ #+ @param p_apell2_emp - CHAR(15) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwvacaciones_apell2_emp_checkColumnConstraints(p_apell2_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_apell2_emp LIKE vwvacaciones.apell2_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwvacaciones_apell2_emp_checkColumnConstraints {<BLOCK Name="fct.vwvacaciones_tipo_empleado_checkColumnConstraints">} #+ Check constraints on the "vwvacaciones.tipo_empleado" column #+ #+ @param p_tipo_empleado - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwvacaciones_tipo_empleado_checkColumnConstraints(p_tipo_empleado) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_empleado LIKE vwvacaciones.tipo_empleado LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwvacaciones_tipo_empleado_checkColumnConstraints {<BLOCK Name="fct.vwvacaciones_fecha_termino_c_checkColumnConstraints">} #+ Check constraints on the "vwvacaciones.fecha_termino_c" column #+ #+ @param p_fecha_termino_c - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwvacaciones_fecha_termino_c_checkColumnConstraints(p_fecha_termino_c) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_termino_c LIKE vwvacaciones.fecha_termino_c LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwvacaciones_fecha_termino_c_checkColumnConstraints {<BLOCK Name="fct.vwvacaciones_calle_checkColumnConstraints">} #+ Check constraints on the "vwvacaciones.calle" column #+ #+ @param p_calle - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwvacaciones_calle_checkColumnConstraints(p_calle) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_calle LIKE vwvacaciones.calle LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwvacaciones_calle_checkColumnConstraints {<BLOCK Name="fct.vwvacaciones_casa_num_checkColumnConstraints">} #+ Check constraints on the "vwvacaciones.casa_num" column #+ #+ @param p_casa_num - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwvacaciones_casa_num_checkColumnConstraints(p_casa_num) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_casa_num LIKE vwvacaciones.casa_num LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwvacaciones_casa_num_checkColumnConstraints {<BLOCK Name="fct.vwvacaciones_barrio_checkColumnConstraints">} #+ Check constraints on the "vwvacaciones.barrio" column #+ #+ @param p_barrio - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwvacaciones_barrio_checkColumnConstraints(p_barrio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_barrio LIKE vwvacaciones.barrio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwvacaciones_barrio_checkColumnConstraints {<BLOCK Name="fct.vwvacaciones_urbanizacion_checkColumnConstraints">} #+ Check constraints on the "vwvacaciones.urbanizacion" column #+ #+ @param p_urbanizacion - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwvacaciones_urbanizacion_checkColumnConstraints(p_urbanizacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_urbanizacion LIKE vwvacaciones.urbanizacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwvacaciones_urbanizacion_checkColumnConstraints {<BLOCK Name="fct.vwvacaciones_telefono_checkColumnConstraints">} #+ Check constraints on the "vwvacaciones.telefono" column #+ #+ @param p_telefono - CHAR(15) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwvacaciones_telefono_checkColumnConstraints(p_telefono) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_telefono LIKE vwvacaciones.telefono LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwvacaciones_telefono_checkColumnConstraints {<BLOCK Name="fct.vwvacaciones_fech_nac_checkColumnConstraints">} #+ Check constraints on the "vwvacaciones.fech_nac" column #+ #+ @param p_fech_nac - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwvacaciones_fech_nac_checkColumnConstraints(p_fech_nac) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_nac LIKE vwvacaciones.fech_nac LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwvacaciones_fech_nac_checkColumnConstraints {<BLOCK Name="fct.vwvacaciones_tipo_sangre_checkColumnConstraints">} #+ Check constraints on the "vwvacaciones.tipo_sangre" column #+ #+ @param p_tipo_sangre - CHAR(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwvacaciones_tipo_sangre_checkColumnConstraints(p_tipo_sangre) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_sangre LIKE vwvacaciones.tipo_sangre LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwvacaciones_tipo_sangre_checkColumnConstraints {<BLOCK Name="fct.vwvacaciones_cedula_checkColumnConstraints">} #+ Check constraints on the "vwvacaciones.cedula" column #+ #+ @param p_cedula - CHAR(11) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwvacaciones_cedula_checkColumnConstraints(p_cedula) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cedula LIKE vwvacaciones.cedula LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwvacaciones_cedula_checkColumnConstraints {<BLOCK Name="fct.vwvacaciones_serie_checkColumnConstraints">} #+ Check constraints on the "vwvacaciones.serie" column #+ #+ @param p_serie - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwvacaciones_serie_checkColumnConstraints(p_serie) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_serie LIKE vwvacaciones.serie LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwvacaciones_serie_checkColumnConstraints {<BLOCK Name="fct.vwvacaciones_sueldo_ac_checkColumnConstraints">} #+ Check constraints on the "vwvacaciones.sueldo_ac" column #+ #+ @param p_sueldo_ac - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwvacaciones_sueldo_ac_checkColumnConstraints(p_sueldo_ac) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sueldo_ac LIKE vwvacaciones.sueldo_ac LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwvacaciones_sueldo_ac_checkColumnConstraints {<BLOCK Name="fct.vwvacaciones_nomina_checkColumnConstraints">} #+ Check constraints on the "vwvacaciones.nomina" column #+ #+ @param p_nomina - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwvacaciones_nomina_checkColumnConstraints(p_nomina) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nomina LIKE vwvacaciones.nomina LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwvacaciones_nomina_checkColumnConstraints {<BLOCK Name="fct.vwvacaciones_fech_efec_checkColumnConstraints">} #+ Check constraints on the "vwvacaciones.fech_efec" column #+ #+ @param p_fech_efec - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwvacaciones_fech_efec_checkColumnConstraints(p_fech_efec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_efec LIKE vwvacaciones.fech_efec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwvacaciones_fech_efec_checkColumnConstraints {<BLOCK Name="fct.vwvacaciones_fecha_salida_checkColumnConstraints">} #+ Check constraints on the "vwvacaciones.fecha_salida" column #+ #+ @param p_fecha_salida - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwvacaciones_fecha_salida_checkColumnConstraints(p_fecha_salida) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_salida LIKE vwvacaciones.fecha_salida LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwvacaciones_fecha_salida_checkColumnConstraints {<BLOCK Name="fct.vwvacaciones_cuenta_no_checkColumnConstraints">} #+ Check constraints on the "vwvacaciones.cuenta_no" column #+ #+ @param p_cuenta_no - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwvacaciones_cuenta_no_checkColumnConstraints(p_cuenta_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_no LIKE vwvacaciones.cuenta_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwvacaciones_cuenta_no_checkColumnConstraints {<BLOCK Name="fct.vwvacaciones_status_t_checkColumnConstraints">} #+ Check constraints on the "vwvacaciones.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwvacaciones_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE vwvacaciones.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwvacaciones_status_t_checkColumnConstraints {<BLOCK Name="fct.vwvacaciones_sucid_checkColumnConstraints">} #+ Check constraints on the "vwvacaciones.sucid" column #+ #+ @param p_sucid - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwvacaciones_sucid_checkColumnConstraints(p_sucid) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sucid LIKE vwvacaciones.sucid LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwvacaciones_sucid_checkColumnConstraints {<BLOCK Name="fct.vwvacaciones_nom_dpto_checkColumnConstraints">} #+ Check constraints on the "vwvacaciones.nom_dpto" column #+ #+ @param p_nom_dpto - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwvacaciones_nom_dpto_checkColumnConstraints(p_nom_dpto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nom_dpto LIKE vwvacaciones.nom_dpto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwvacaciones_nom_dpto_checkColumnConstraints {<BLOCK Name="fct.vwvacaciones_ano_checkColumnConstraints">} #+ Check constraints on the "vwvacaciones.ano" column #+ #+ @param p_ano - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwvacaciones_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE vwvacaciones.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwvacaciones_ano_checkColumnConstraints {<BLOCK Name="fct.vwvacaciones_descrip_checkColumnConstraints">} #+ Check constraints on the "vwvacaciones.descrip" column #+ #+ @param p_descrip - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwvacaciones_descrip_checkColumnConstraints(p_descrip) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip LIKE vwvacaciones.descrip LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwvacaciones_descrip_checkColumnConstraints {<BLOCK Name="fct.vwseguimientoclientes_checkTableConstraints">} #+ Check constraints on the "vwseguimientoclientes" table #+ #+ @param p_data - a row data LIKE vwseguimientoclientes.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vwseguimientoclientes_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vwseguimientoclientes.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vwseguimientoclientes_cotizacion_no_checkColumnConstraints(p_data.cotizacion_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwseguimientoclientes_nombrecliente_checkColumnConstraints(p_data.nombrecliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwseguimientoclientes_tipo_cliente_checkColumnConstraints(p_data.tipo_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwseguimientoclientes_sec_cliente_checkColumnConstraints(p_data.sec_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwseguimientoclientes_telefono_checkColumnConstraints(p_data.telefono) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwseguimientoclientes_fax_checkColumnConstraints(p_data.fax) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwseguimientoclientes_rnc_checkColumnConstraints(p_data.rnc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwseguimientoclientes_calle_checkColumnConstraints(p_data.calle) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwseguimientoclientes_casa_num_checkColumnConstraints(p_data.casa_num) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwseguimientoclientes_barrio_checkColumnConstraints(p_data.barrio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwseguimientoclientes_urbanizacion_checkColumnConstraints(p_data.urbanizacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwseguimientoclientes_nombre_proyecto_checkColumnConstraints(p_data.nombre_proyecto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwseguimientoclientes_direccion_cliente_checkColumnConstraints(p_data.direccion_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwseguimientoclientes_direccion_proyecto_checkColumnConstraints(p_data.direccion_proyecto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwseguimientoclientes_telefono_r_checkColumnConstraints(p_data.telefono_r) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwseguimientoclientes_telefono_o_checkColumnConstraints(p_data.telefono_o) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwseguimientoclientes_email_checkColumnConstraints(p_data.email) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwseguimientoclientes_celular_checkColumnConstraints(p_data.celular) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwseguimientoclientes_fax1_checkColumnConstraints(p_data.fax1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwseguimientoclientes_celular1_checkColumnConstraints(p_data.celular1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwseguimientoclientes_fechacotizacion_checkColumnConstraints(p_data.fechacotizacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwseguimientoclientes_orden_checkColumnConstraints(p_data.orden) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwseguimientoclientes_fechaorden_checkColumnConstraints(p_data.fechaorden) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwseguimientoclientes_cantidaddespachada_checkColumnConstraints(p_data.cantidaddespachada) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwseguimientoclientes_documentodespacho_checkColumnConstraints(p_data.documentodespacho) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwseguimientoclientes_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwseguimientoclientes_fechaconduce_checkColumnConstraints(p_data.fechaconduce) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwseguimientoclientes_comentario_checkColumnConstraints(p_data.comentario) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwseguimientoclientes_descrip_esp_checkColumnConstraints(p_data.descrip_esp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwseguimientoclientes_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwseguimientoclientes_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwseguimientoclientes_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwseguimientoclientes_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwseguimientoclientes_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwseguimientoclientes_numeromes_checkColumnConstraints(p_data.numeromes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwseguimientoclientes_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwseguimientoclientes_checkTableConstraints {<BLOCK Name="fct.vwseguimientoclientes_cotizacion_no_checkColumnConstraints">} #+ Check constraints on the "vwseguimientoclientes.cotizacion_no" column #+ #+ @param p_cotizacion_no - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwseguimientoclientes_cotizacion_no_checkColumnConstraints(p_cotizacion_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cotizacion_no LIKE vwseguimientoclientes.cotizacion_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cotizacion_no IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cotizacion_no: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwseguimientoclientes_cotizacion_no_checkColumnConstraints {<BLOCK Name="fct.vwseguimientoclientes_nombrecliente_checkColumnConstraints">} #+ Check constraints on the "vwseguimientoclientes.nombrecliente" column #+ #+ @param p_nombrecliente - CHAR(100) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwseguimientoclientes_nombrecliente_checkColumnConstraints(p_nombrecliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombrecliente LIKE vwseguimientoclientes.nombrecliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwseguimientoclientes_nombrecliente_checkColumnConstraints {<BLOCK Name="fct.vwseguimientoclientes_tipo_cliente_checkColumnConstraints">} #+ Check constraints on the "vwseguimientoclientes.tipo_cliente" column #+ #+ @param p_tipo_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwseguimientoclientes_tipo_cliente_checkColumnConstraints(p_tipo_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_cliente LIKE vwseguimientoclientes.tipo_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwseguimientoclientes_tipo_cliente_checkColumnConstraints {<BLOCK Name="fct.vwseguimientoclientes_sec_cliente_checkColumnConstraints">} #+ Check constraints on the "vwseguimientoclientes.sec_cliente" column #+ #+ @param p_sec_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwseguimientoclientes_sec_cliente_checkColumnConstraints(p_sec_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_cliente LIKE vwseguimientoclientes.sec_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwseguimientoclientes_sec_cliente_checkColumnConstraints {<BLOCK Name="fct.vwseguimientoclientes_telefono_checkColumnConstraints">} #+ Check constraints on the "vwseguimientoclientes.telefono" column #+ #+ @param p_telefono - CHAR(16) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwseguimientoclientes_telefono_checkColumnConstraints(p_telefono) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_telefono LIKE vwseguimientoclientes.telefono LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwseguimientoclientes_telefono_checkColumnConstraints {<BLOCK Name="fct.vwseguimientoclientes_fax_checkColumnConstraints">} #+ Check constraints on the "vwseguimientoclientes.fax" column #+ #+ @param p_fax - CHAR(16) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwseguimientoclientes_fax_checkColumnConstraints(p_fax) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fax LIKE vwseguimientoclientes.fax LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwseguimientoclientes_fax_checkColumnConstraints {<BLOCK Name="fct.vwseguimientoclientes_rnc_checkColumnConstraints">} #+ Check constraints on the "vwseguimientoclientes.rnc" column #+ #+ @param p_rnc - CHAR(11) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwseguimientoclientes_rnc_checkColumnConstraints(p_rnc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_rnc LIKE vwseguimientoclientes.rnc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwseguimientoclientes_rnc_checkColumnConstraints {<BLOCK Name="fct.vwseguimientoclientes_calle_checkColumnConstraints">} #+ Check constraints on the "vwseguimientoclientes.calle" column #+ #+ @param p_calle - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwseguimientoclientes_calle_checkColumnConstraints(p_calle) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_calle LIKE vwseguimientoclientes.calle LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwseguimientoclientes_calle_checkColumnConstraints {<BLOCK Name="fct.vwseguimientoclientes_casa_num_checkColumnConstraints">} #+ Check constraints on the "vwseguimientoclientes.casa_num" column #+ #+ @param p_casa_num - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwseguimientoclientes_casa_num_checkColumnConstraints(p_casa_num) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_casa_num LIKE vwseguimientoclientes.casa_num LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwseguimientoclientes_casa_num_checkColumnConstraints {<BLOCK Name="fct.vwseguimientoclientes_barrio_checkColumnConstraints">} #+ Check constraints on the "vwseguimientoclientes.barrio" column #+ #+ @param p_barrio - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwseguimientoclientes_barrio_checkColumnConstraints(p_barrio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_barrio LIKE vwseguimientoclientes.barrio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwseguimientoclientes_barrio_checkColumnConstraints {<BLOCK Name="fct.vwseguimientoclientes_urbanizacion_checkColumnConstraints">} #+ Check constraints on the "vwseguimientoclientes.urbanizacion" column #+ #+ @param p_urbanizacion - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwseguimientoclientes_urbanizacion_checkColumnConstraints(p_urbanizacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_urbanizacion LIKE vwseguimientoclientes.urbanizacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwseguimientoclientes_urbanizacion_checkColumnConstraints {<BLOCK Name="fct.vwseguimientoclientes_nombre_proyecto_checkColumnConstraints">} #+ Check constraints on the "vwseguimientoclientes.nombre_proyecto" column #+ #+ @param p_nombre_proyecto - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwseguimientoclientes_nombre_proyecto_checkColumnConstraints(p_nombre_proyecto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombre_proyecto LIKE vwseguimientoclientes.nombre_proyecto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwseguimientoclientes_nombre_proyecto_checkColumnConstraints {<BLOCK Name="fct.vwseguimientoclientes_direccion_cliente_checkColumnConstraints">} #+ Check constraints on the "vwseguimientoclientes.direccion_cliente" column #+ #+ @param p_direccion_cliente - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwseguimientoclientes_direccion_cliente_checkColumnConstraints(p_direccion_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_direccion_cliente LIKE vwseguimientoclientes.direccion_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwseguimientoclientes_direccion_cliente_checkColumnConstraints {<BLOCK Name="fct.vwseguimientoclientes_direccion_proyecto_checkColumnConstraints">} #+ Check constraints on the "vwseguimientoclientes.direccion_proyecto" column #+ #+ @param p_direccion_proyecto - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwseguimientoclientes_direccion_proyecto_checkColumnConstraints(p_direccion_proyecto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_direccion_proyecto LIKE vwseguimientoclientes.direccion_proyecto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwseguimientoclientes_direccion_proyecto_checkColumnConstraints {<BLOCK Name="fct.vwseguimientoclientes_telefono_r_checkColumnConstraints">} #+ Check constraints on the "vwseguimientoclientes.telefono_r" column #+ #+ @param p_telefono_r - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwseguimientoclientes_telefono_r_checkColumnConstraints(p_telefono_r) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_telefono_r LIKE vwseguimientoclientes.telefono_r LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwseguimientoclientes_telefono_r_checkColumnConstraints {<BLOCK Name="fct.vwseguimientoclientes_telefono_o_checkColumnConstraints">} #+ Check constraints on the "vwseguimientoclientes.telefono_o" column #+ #+ @param p_telefono_o - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwseguimientoclientes_telefono_o_checkColumnConstraints(p_telefono_o) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_telefono_o LIKE vwseguimientoclientes.telefono_o LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwseguimientoclientes_telefono_o_checkColumnConstraints {<BLOCK Name="fct.vwseguimientoclientes_email_checkColumnConstraints">} #+ Check constraints on the "vwseguimientoclientes.email" column #+ #+ @param p_email - CHAR(100) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwseguimientoclientes_email_checkColumnConstraints(p_email) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_email LIKE vwseguimientoclientes.email LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwseguimientoclientes_email_checkColumnConstraints {<BLOCK Name="fct.vwseguimientoclientes_celular_checkColumnConstraints">} #+ Check constraints on the "vwseguimientoclientes.celular" column #+ #+ @param p_celular - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwseguimientoclientes_celular_checkColumnConstraints(p_celular) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_celular LIKE vwseguimientoclientes.celular LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwseguimientoclientes_celular_checkColumnConstraints {<BLOCK Name="fct.vwseguimientoclientes_fax1_checkColumnConstraints">} #+ Check constraints on the "vwseguimientoclientes.fax1" column #+ #+ @param p_fax1 - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwseguimientoclientes_fax1_checkColumnConstraints(p_fax1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fax1 LIKE vwseguimientoclientes.fax1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwseguimientoclientes_fax1_checkColumnConstraints {<BLOCK Name="fct.vwseguimientoclientes_celular1_checkColumnConstraints">} #+ Check constraints on the "vwseguimientoclientes.celular1" column #+ #+ @param p_celular1 - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwseguimientoclientes_celular1_checkColumnConstraints(p_celular1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_celular1 LIKE vwseguimientoclientes.celular1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwseguimientoclientes_celular1_checkColumnConstraints {<BLOCK Name="fct.vwseguimientoclientes_fechacotizacion_checkColumnConstraints">} #+ Check constraints on the "vwseguimientoclientes.fechacotizacion" column #+ #+ @param p_fechacotizacion - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwseguimientoclientes_fechacotizacion_checkColumnConstraints(p_fechacotizacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fechacotizacion LIKE vwseguimientoclientes.fechacotizacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwseguimientoclientes_fechacotizacion_checkColumnConstraints {<BLOCK Name="fct.vwseguimientoclientes_orden_checkColumnConstraints">} #+ Check constraints on the "vwseguimientoclientes.orden" column #+ #+ @param p_orden - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwseguimientoclientes_orden_checkColumnConstraints(p_orden) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_orden LIKE vwseguimientoclientes.orden LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwseguimientoclientes_orden_checkColumnConstraints {<BLOCK Name="fct.vwseguimientoclientes_fechaorden_checkColumnConstraints">} #+ Check constraints on the "vwseguimientoclientes.fechaorden" column #+ #+ @param p_fechaorden - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwseguimientoclientes_fechaorden_checkColumnConstraints(p_fechaorden) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fechaorden LIKE vwseguimientoclientes.fechaorden LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwseguimientoclientes_fechaorden_checkColumnConstraints {<BLOCK Name="fct.vwseguimientoclientes_cantidaddespachada_checkColumnConstraints">} #+ Check constraints on the "vwseguimientoclientes.cantidaddespachada" column #+ #+ @param p_cantidaddespachada - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwseguimientoclientes_cantidaddespachada_checkColumnConstraints(p_cantidaddespachada) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidaddespachada LIKE vwseguimientoclientes.cantidaddespachada LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwseguimientoclientes_cantidaddespachada_checkColumnConstraints {<BLOCK Name="fct.vwseguimientoclientes_documentodespacho_checkColumnConstraints">} #+ Check constraints on the "vwseguimientoclientes.documentodespacho" column #+ #+ @param p_documentodespacho - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwseguimientoclientes_documentodespacho_checkColumnConstraints(p_documentodespacho) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_documentodespacho LIKE vwseguimientoclientes.documentodespacho LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwseguimientoclientes_documentodespacho_checkColumnConstraints {<BLOCK Name="fct.vwseguimientoclientes_cod_mov_checkColumnConstraints">} #+ Check constraints on the "vwseguimientoclientes.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwseguimientoclientes_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE vwseguimientoclientes.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwseguimientoclientes_cod_mov_checkColumnConstraints {<BLOCK Name="fct.vwseguimientoclientes_fechaconduce_checkColumnConstraints">} #+ Check constraints on the "vwseguimientoclientes.fechaconduce" column #+ #+ @param p_fechaconduce - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwseguimientoclientes_fechaconduce_checkColumnConstraints(p_fechaconduce) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fechaconduce LIKE vwseguimientoclientes.fechaconduce LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwseguimientoclientes_fechaconduce_checkColumnConstraints {<BLOCK Name="fct.vwseguimientoclientes_comentario_checkColumnConstraints">} #+ Check constraints on the "vwseguimientoclientes.comentario" column #+ #+ @param p_comentario - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwseguimientoclientes_comentario_checkColumnConstraints(p_comentario) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_comentario LIKE vwseguimientoclientes.comentario LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwseguimientoclientes_comentario_checkColumnConstraints {<BLOCK Name="fct.vwseguimientoclientes_descrip_esp_checkColumnConstraints">} #+ Check constraints on the "vwseguimientoclientes.descrip_esp" column #+ #+ @param p_descrip_esp - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwseguimientoclientes_descrip_esp_checkColumnConstraints(p_descrip_esp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip_esp LIKE vwseguimientoclientes.descrip_esp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwseguimientoclientes_descrip_esp_checkColumnConstraints {<BLOCK Name="fct.vwseguimientoclientes_cod_n_checkColumnConstraints">} #+ Check constraints on the "vwseguimientoclientes.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwseguimientoclientes_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE vwseguimientoclientes.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwseguimientoclientes_cod_n_checkColumnConstraints {<BLOCK Name="fct.vwseguimientoclientes_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "vwseguimientoclientes.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwseguimientoclientes_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE vwseguimientoclientes.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_grupo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_grupo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwseguimientoclientes_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.vwseguimientoclientes_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "vwseguimientoclientes.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwseguimientoclientes_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE vwseguimientoclientes.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tipo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tipo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwseguimientoclientes_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.vwseguimientoclientes_cod_sec_checkColumnConstraints">} #+ Check constraints on the "vwseguimientoclientes.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwseguimientoclientes_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE vwseguimientoclientes.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwseguimientoclientes_cod_sec_checkColumnConstraints {<BLOCK Name="fct.vwseguimientoclientes_ano_checkColumnConstraints">} #+ Check constraints on the "vwseguimientoclientes.ano" column #+ #+ @param p_ano - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwseguimientoclientes_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE vwseguimientoclientes.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwseguimientoclientes_ano_checkColumnConstraints {<BLOCK Name="fct.vwseguimientoclientes_numeromes_checkColumnConstraints">} #+ Check constraints on the "vwseguimientoclientes.numeromes" column #+ #+ @param p_numeromes - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwseguimientoclientes_numeromes_checkColumnConstraints(p_numeromes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_numeromes LIKE vwseguimientoclientes.numeromes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwseguimientoclientes_numeromes_checkColumnConstraints {<BLOCK Name="fct.vwseguimientoclientes_mes_checkColumnConstraints">} #+ Check constraints on the "vwseguimientoclientes.mes" column #+ #+ @param p_mes - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwseguimientoclientes_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE vwseguimientoclientes.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwseguimientoclientes_mes_checkColumnConstraints {<BLOCK Name="fct.vwrepuestos_checkTableConstraints">} #+ Check constraints on the "vwrepuestos" table #+ #+ @param p_data - a row data LIKE vwrepuestos.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vwrepuestos_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vwrepuestos.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vwrepuestos_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwrepuestos_numeromes_checkColumnConstraints(p_data.numeromes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwrepuestos_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwrepuestos_codigodepto_checkColumnConstraints(p_data.codigodepto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwrepuestos_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwrepuestos_codigomovimiento_checkColumnConstraints(p_data.codigomovimiento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwrepuestos_transaccion_checkColumnConstraints(p_data.transaccion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwrepuestos_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwrepuestos_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwrepuestos_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwrepuestos_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwrepuestos_codigo_checkColumnConstraints(p_data.codigo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwrepuestos_nombreporducto_checkColumnConstraints(p_data.nombreporducto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwrepuestos_unidad_med_checkColumnConstraints(p_data.unidad_med) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwrepuestos_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwrepuestos_costo_checkColumnConstraints(p_data.costo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwrepuestos_numerodocumento_checkColumnConstraints(p_data.numerodocumento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwrepuestos_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwrepuestos_ordencompra_checkColumnConstraints(p_data.ordencompra) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwrepuestos_conduce_checkColumnConstraints(p_data.conduce) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwrepuestos_codigomaquina_checkColumnConstraints(p_data.codigomaquina) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwrepuestos_maquina_checkColumnConstraints(p_data.maquina) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwrepuestos_valor_checkColumnConstraints(p_data.valor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwrepuestos_checkTableConstraints {<BLOCK Name="fct.vwrepuestos_ano_checkColumnConstraints">} #+ Check constraints on the "vwrepuestos.ano" column #+ #+ @param p_ano - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwrepuestos_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE vwrepuestos.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwrepuestos_ano_checkColumnConstraints {<BLOCK Name="fct.vwrepuestos_numeromes_checkColumnConstraints">} #+ Check constraints on the "vwrepuestos.numeromes" column #+ #+ @param p_numeromes - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwrepuestos_numeromes_checkColumnConstraints(p_numeromes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_numeromes LIKE vwrepuestos.numeromes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwrepuestos_numeromes_checkColumnConstraints {<BLOCK Name="fct.vwrepuestos_mes_checkColumnConstraints">} #+ Check constraints on the "vwrepuestos.mes" column #+ #+ @param p_mes - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwrepuestos_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE vwrepuestos.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwrepuestos_mes_checkColumnConstraints {<BLOCK Name="fct.vwrepuestos_codigodepto_checkColumnConstraints">} #+ Check constraints on the "vwrepuestos.codigodepto" column #+ #+ @param p_codigodepto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwrepuestos_codigodepto_checkColumnConstraints(p_codigodepto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codigodepto LIKE vwrepuestos.codigodepto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwrepuestos_codigodepto_checkColumnConstraints {<BLOCK Name="fct.vwrepuestos_departamento_checkColumnConstraints">} #+ Check constraints on the "vwrepuestos.departamento" column #+ #+ @param p_departamento - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwrepuestos_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE vwrepuestos.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwrepuestos_departamento_checkColumnConstraints {<BLOCK Name="fct.vwrepuestos_codigomovimiento_checkColumnConstraints">} #+ Check constraints on the "vwrepuestos.codigomovimiento" column #+ #+ @param p_codigomovimiento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwrepuestos_codigomovimiento_checkColumnConstraints(p_codigomovimiento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codigomovimiento LIKE vwrepuestos.codigomovimiento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwrepuestos_codigomovimiento_checkColumnConstraints {<BLOCK Name="fct.vwrepuestos_transaccion_checkColumnConstraints">} #+ Check constraints on the "vwrepuestos.transaccion" column #+ #+ @param p_transaccion - VARCHAR2(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwrepuestos_transaccion_checkColumnConstraints(p_transaccion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_transaccion LIKE vwrepuestos.transaccion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwrepuestos_transaccion_checkColumnConstraints {<BLOCK Name="fct.vwrepuestos_cod_n_checkColumnConstraints">} #+ Check constraints on the "vwrepuestos.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwrepuestos_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE vwrepuestos.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwrepuestos_cod_n_checkColumnConstraints {<BLOCK Name="fct.vwrepuestos_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "vwrepuestos.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwrepuestos_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE vwrepuestos.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwrepuestos_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.vwrepuestos_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "vwrepuestos.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwrepuestos_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE vwrepuestos.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwrepuestos_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.vwrepuestos_cod_sec_checkColumnConstraints">} #+ Check constraints on the "vwrepuestos.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwrepuestos_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE vwrepuestos.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwrepuestos_cod_sec_checkColumnConstraints {<BLOCK Name="fct.vwrepuestos_codigo_checkColumnConstraints">} #+ Check constraints on the "vwrepuestos.codigo" column #+ #+ @param p_codigo - CHAR(120) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwrepuestos_codigo_checkColumnConstraints(p_codigo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codigo LIKE vwrepuestos.codigo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwrepuestos_codigo_checkColumnConstraints {<BLOCK Name="fct.vwrepuestos_nombreporducto_checkColumnConstraints">} #+ Check constraints on the "vwrepuestos.nombreporducto" column #+ #+ @param p_nombreporducto - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwrepuestos_nombreporducto_checkColumnConstraints(p_nombreporducto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombreporducto LIKE vwrepuestos.nombreporducto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwrepuestos_nombreporducto_checkColumnConstraints {<BLOCK Name="fct.vwrepuestos_unidad_med_checkColumnConstraints">} #+ Check constraints on the "vwrepuestos.unidad_med" column #+ #+ @param p_unidad_med - CHAR(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwrepuestos_unidad_med_checkColumnConstraints(p_unidad_med) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_unidad_med LIKE vwrepuestos.unidad_med LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwrepuestos_unidad_med_checkColumnConstraints {<BLOCK Name="fct.vwrepuestos_cantidad_checkColumnConstraints">} #+ Check constraints on the "vwrepuestos.cantidad" column #+ #+ @param p_cantidad - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwrepuestos_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE vwrepuestos.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwrepuestos_cantidad_checkColumnConstraints {<BLOCK Name="fct.vwrepuestos_costo_checkColumnConstraints">} #+ Check constraints on the "vwrepuestos.costo" column #+ #+ @param p_costo - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwrepuestos_costo_checkColumnConstraints(p_costo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_costo LIKE vwrepuestos.costo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwrepuestos_costo_checkColumnConstraints {<BLOCK Name="fct.vwrepuestos_numerodocumento_checkColumnConstraints">} #+ Check constraints on the "vwrepuestos.numerodocumento" column #+ #+ @param p_numerodocumento - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwrepuestos_numerodocumento_checkColumnConstraints(p_numerodocumento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_numerodocumento LIKE vwrepuestos.numerodocumento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwrepuestos_numerodocumento_checkColumnConstraints {<BLOCK Name="fct.vwrepuestos_fecha_checkColumnConstraints">} #+ Check constraints on the "vwrepuestos.fecha" column #+ #+ @param p_fecha - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwrepuestos_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE vwrepuestos.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwrepuestos_fecha_checkColumnConstraints {<BLOCK Name="fct.vwrepuestos_ordencompra_checkColumnConstraints">} #+ Check constraints on the "vwrepuestos.ordencompra" column #+ #+ @param p_ordencompra - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwrepuestos_ordencompra_checkColumnConstraints(p_ordencompra) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ordencompra LIKE vwrepuestos.ordencompra LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwrepuestos_ordencompra_checkColumnConstraints {<BLOCK Name="fct.vwrepuestos_conduce_checkColumnConstraints">} #+ Check constraints on the "vwrepuestos.conduce" column #+ #+ @param p_conduce - VARCHAR2(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwrepuestos_conduce_checkColumnConstraints(p_conduce) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_conduce LIKE vwrepuestos.conduce LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwrepuestos_conduce_checkColumnConstraints {<BLOCK Name="fct.vwrepuestos_codigomaquina_checkColumnConstraints">} #+ Check constraints on the "vwrepuestos.codigomaquina" column #+ #+ @param p_codigomaquina - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwrepuestos_codigomaquina_checkColumnConstraints(p_codigomaquina) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codigomaquina LIKE vwrepuestos.codigomaquina LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwrepuestos_codigomaquina_checkColumnConstraints {<BLOCK Name="fct.vwrepuestos_maquina_checkColumnConstraints">} #+ Check constraints on the "vwrepuestos.maquina" column #+ #+ @param p_maquina - VARCHAR2(25) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwrepuestos_maquina_checkColumnConstraints(p_maquina) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_maquina LIKE vwrepuestos.maquina LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwrepuestos_maquina_checkColumnConstraints {<BLOCK Name="fct.vwrepuestos_valor_checkColumnConstraints">} #+ Check constraints on the "vwrepuestos.valor" column #+ #+ @param p_valor - DECIMAL(23,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwrepuestos_valor_checkColumnConstraints(p_valor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor LIKE vwrepuestos.valor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwrepuestos_valor_checkColumnConstraints {<BLOCK Name="fct.vwprovincias_checkTableConstraints">} #+ Check constraints on the "vwprovincias" table #+ #+ @param p_data - a row data LIKE vwprovincias.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vwprovincias_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vwprovincias.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vwprovincias_cod_zona_checkColumnConstraints(p_data.cod_zona) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwprovincias_zona_checkColumnConstraints(p_data.zona) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwprovincias_provincia_checkColumnConstraints(p_data.provincia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwprovincias_cod_provincia_checkColumnConstraints(p_data.cod_provincia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwprovincias_tipo_cliente_checkColumnConstraints(p_data.tipo_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwprovincias_sec_cliente_checkColumnConstraints(p_data.sec_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwprovincias_nombre_checkColumnConstraints(p_data.nombre) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwprovincias_telefono_checkColumnConstraints(p_data.telefono) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwprovincias_fax_checkColumnConstraints(p_data.fax) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwprovincias_celular_checkColumnConstraints(p_data.celular) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwprovincias_email_checkColumnConstraints(p_data.email) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwprovincias_num_rnc_checkColumnConstraints(p_data.num_rnc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwprovincias_contacto_checkColumnConstraints(p_data.contacto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwprovincias_telefono_casa_checkColumnConstraints(p_data.telefono_casa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwprovincias_tiponegocio_checkColumnConstraints(p_data.tiponegocio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwprovincias_vendedor_checkColumnConstraints(p_data.vendedor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwprovincias_ciudad_checkColumnConstraints(p_data.ciudad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwprovincias_contacto_cliente_checkColumnConstraints(p_data.contacto_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwprovincias_puesto_checkColumnConstraints(p_data.puesto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwprovincias_email_contacto_checkColumnConstraints(p_data.email_contacto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwprovincias_celular_contacto_checkColumnConstraints(p_data.celular_contacto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwprovincias_telefono_oficina_checkColumnConstraints(p_data.telefono_oficina) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwprovincias_telefono_casa_contacto_checkColumnConstraints(p_data.telefono_casa_contacto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwprovincias_direccion_checkColumnConstraints(p_data.direccion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwprovincias_puestocontacto_checkColumnConstraints(p_data.puestocontacto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwprovincias_checkTableConstraints {<BLOCK Name="fct.vwprovincias_cod_zona_checkColumnConstraints">} #+ Check constraints on the "vwprovincias.cod_zona" column #+ #+ @param p_cod_zona - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwprovincias_cod_zona_checkColumnConstraints(p_cod_zona) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_zona LIKE vwprovincias.cod_zona LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwprovincias_cod_zona_checkColumnConstraints {<BLOCK Name="fct.vwprovincias_zona_checkColumnConstraints">} #+ Check constraints on the "vwprovincias.zona" column #+ #+ @param p_zona - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwprovincias_zona_checkColumnConstraints(p_zona) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_zona LIKE vwprovincias.zona LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwprovincias_zona_checkColumnConstraints {<BLOCK Name="fct.vwprovincias_provincia_checkColumnConstraints">} #+ Check constraints on the "vwprovincias.provincia" column #+ #+ @param p_provincia - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwprovincias_provincia_checkColumnConstraints(p_provincia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_provincia LIKE vwprovincias.provincia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwprovincias_provincia_checkColumnConstraints {<BLOCK Name="fct.vwprovincias_cod_provincia_checkColumnConstraints">} #+ Check constraints on the "vwprovincias.cod_provincia" column #+ #+ @param p_cod_provincia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwprovincias_cod_provincia_checkColumnConstraints(p_cod_provincia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_provincia LIKE vwprovincias.cod_provincia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwprovincias_cod_provincia_checkColumnConstraints {<BLOCK Name="fct.vwprovincias_tipo_cliente_checkColumnConstraints">} #+ Check constraints on the "vwprovincias.tipo_cliente" column #+ #+ @param p_tipo_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwprovincias_tipo_cliente_checkColumnConstraints(p_tipo_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_cliente LIKE vwprovincias.tipo_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwprovincias_tipo_cliente_checkColumnConstraints {<BLOCK Name="fct.vwprovincias_sec_cliente_checkColumnConstraints">} #+ Check constraints on the "vwprovincias.sec_cliente" column #+ #+ @param p_sec_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwprovincias_sec_cliente_checkColumnConstraints(p_sec_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_cliente LIKE vwprovincias.sec_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwprovincias_sec_cliente_checkColumnConstraints {<BLOCK Name="fct.vwprovincias_nombre_checkColumnConstraints">} #+ Check constraints on the "vwprovincias.nombre" column #+ #+ @param p_nombre - CHAR(100) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwprovincias_nombre_checkColumnConstraints(p_nombre) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombre LIKE vwprovincias.nombre LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwprovincias_nombre_checkColumnConstraints {<BLOCK Name="fct.vwprovincias_telefono_checkColumnConstraints">} #+ Check constraints on the "vwprovincias.telefono" column #+ #+ @param p_telefono - CHAR(16) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwprovincias_telefono_checkColumnConstraints(p_telefono) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_telefono LIKE vwprovincias.telefono LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwprovincias_telefono_checkColumnConstraints {<BLOCK Name="fct.vwprovincias_fax_checkColumnConstraints">} #+ Check constraints on the "vwprovincias.fax" column #+ #+ @param p_fax - CHAR(16) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwprovincias_fax_checkColumnConstraints(p_fax) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fax LIKE vwprovincias.fax LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwprovincias_fax_checkColumnConstraints {<BLOCK Name="fct.vwprovincias_celular_checkColumnConstraints">} #+ Check constraints on the "vwprovincias.celular" column #+ #+ @param p_celular - CHAR(16) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwprovincias_celular_checkColumnConstraints(p_celular) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_celular LIKE vwprovincias.celular LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwprovincias_celular_checkColumnConstraints {<BLOCK Name="fct.vwprovincias_email_checkColumnConstraints">} #+ Check constraints on the "vwprovincias.email" column #+ #+ @param p_email - VARCHAR2(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwprovincias_email_checkColumnConstraints(p_email) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_email LIKE vwprovincias.email LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwprovincias_email_checkColumnConstraints {<BLOCK Name="fct.vwprovincias_num_rnc_checkColumnConstraints">} #+ Check constraints on the "vwprovincias.num_rnc" column #+ #+ @param p_num_rnc - CHAR(11) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwprovincias_num_rnc_checkColumnConstraints(p_num_rnc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_rnc LIKE vwprovincias.num_rnc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwprovincias_num_rnc_checkColumnConstraints {<BLOCK Name="fct.vwprovincias_contacto_checkColumnConstraints">} #+ Check constraints on the "vwprovincias.contacto" column #+ #+ @param p_contacto - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwprovincias_contacto_checkColumnConstraints(p_contacto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_contacto LIKE vwprovincias.contacto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwprovincias_contacto_checkColumnConstraints {<BLOCK Name="fct.vwprovincias_telefono_casa_checkColumnConstraints">} #+ Check constraints on the "vwprovincias.telefono_casa" column #+ #+ @param p_telefono_casa - CHAR(15) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwprovincias_telefono_casa_checkColumnConstraints(p_telefono_casa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_telefono_casa LIKE vwprovincias.telefono_casa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwprovincias_telefono_casa_checkColumnConstraints {<BLOCK Name="fct.vwprovincias_tiponegocio_checkColumnConstraints">} #+ Check constraints on the "vwprovincias.tiponegocio" column #+ #+ @param p_tiponegocio - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwprovincias_tiponegocio_checkColumnConstraints(p_tiponegocio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tiponegocio LIKE vwprovincias.tiponegocio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwprovincias_tiponegocio_checkColumnConstraints {<BLOCK Name="fct.vwprovincias_vendedor_checkColumnConstraints">} #+ Check constraints on the "vwprovincias.vendedor" column #+ #+ @param p_vendedor - VARCHAR2(31) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwprovincias_vendedor_checkColumnConstraints(p_vendedor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_vendedor LIKE vwprovincias.vendedor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwprovincias_vendedor_checkColumnConstraints {<BLOCK Name="fct.vwprovincias_ciudad_checkColumnConstraints">} #+ Check constraints on the "vwprovincias.ciudad" column #+ #+ @param p_ciudad - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwprovincias_ciudad_checkColumnConstraints(p_ciudad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ciudad LIKE vwprovincias.ciudad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwprovincias_ciudad_checkColumnConstraints {<BLOCK Name="fct.vwprovincias_contacto_cliente_checkColumnConstraints">} #+ Check constraints on the "vwprovincias.contacto_cliente" column #+ #+ @param p_contacto_cliente - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwprovincias_contacto_cliente_checkColumnConstraints(p_contacto_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_contacto_cliente LIKE vwprovincias.contacto_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwprovincias_contacto_cliente_checkColumnConstraints {<BLOCK Name="fct.vwprovincias_puesto_checkColumnConstraints">} #+ Check constraints on the "vwprovincias.puesto" column #+ #+ @param p_puesto - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwprovincias_puesto_checkColumnConstraints(p_puesto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_puesto LIKE vwprovincias.puesto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwprovincias_puesto_checkColumnConstraints {<BLOCK Name="fct.vwprovincias_email_contacto_checkColumnConstraints">} #+ Check constraints on the "vwprovincias.email_contacto" column #+ #+ @param p_email_contacto - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwprovincias_email_contacto_checkColumnConstraints(p_email_contacto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_email_contacto LIKE vwprovincias.email_contacto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwprovincias_email_contacto_checkColumnConstraints {<BLOCK Name="fct.vwprovincias_celular_contacto_checkColumnConstraints">} #+ Check constraints on the "vwprovincias.celular_contacto" column #+ #+ @param p_celular_contacto - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwprovincias_celular_contacto_checkColumnConstraints(p_celular_contacto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_celular_contacto LIKE vwprovincias.celular_contacto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwprovincias_celular_contacto_checkColumnConstraints {<BLOCK Name="fct.vwprovincias_telefono_oficina_checkColumnConstraints">} #+ Check constraints on the "vwprovincias.telefono_oficina" column #+ #+ @param p_telefono_oficina - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwprovincias_telefono_oficina_checkColumnConstraints(p_telefono_oficina) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_telefono_oficina LIKE vwprovincias.telefono_oficina LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwprovincias_telefono_oficina_checkColumnConstraints {<BLOCK Name="fct.vwprovincias_telefono_casa_contacto_checkColumnConstraints">} #+ Check constraints on the "vwprovincias.telefono_casa_contacto" column #+ #+ @param p_telefono_casa_contacto - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwprovincias_telefono_casa_contacto_checkColumnConstraints(p_telefono_casa_contacto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_telefono_casa_contacto LIKE vwprovincias.telefono_casa_contacto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwprovincias_telefono_casa_contacto_checkColumnConstraints {<BLOCK Name="fct.vwprovincias_direccion_checkColumnConstraints">} #+ Check constraints on the "vwprovincias.direccion" column #+ #+ @param p_direccion - VARCHAR2(133) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwprovincias_direccion_checkColumnConstraints(p_direccion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_direccion LIKE vwprovincias.direccion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwprovincias_direccion_checkColumnConstraints {<BLOCK Name="fct.vwprovincias_puestocontacto_checkColumnConstraints">} #+ Check constraints on the "vwprovincias.puestocontacto" column #+ #+ @param p_puestocontacto - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwprovincias_puestocontacto_checkColumnConstraints(p_puestocontacto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_puestocontacto LIKE vwprovincias.puestocontacto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwprovincias_puestocontacto_checkColumnConstraints {<BLOCK Name="fct.vwproductos_checkTableConstraints">} #+ Check constraints on the "vwproductos" table #+ #+ @param p_data - a row data LIKE vwproductos.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vwproductos_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vwproductos.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vwproductos_descrip_esp_checkColumnConstraints(p_data.descrip_esp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproductos_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproductos_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproductos_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproductos_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproductos_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproductos_precio_checkColumnConstraints(p_data.precio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproductos_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproductos_cod_cia_checkColumnConstraints(p_data.cod_cia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproductos_tipo_checkColumnConstraints(p_data.tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproductos_grupo_checkColumnConstraints(p_data.grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproductos_origen_checkColumnConstraints(p_data.origen) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproductos_expr1_checkColumnConstraints(p_data.expr1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproductos_checkTableConstraints {<BLOCK Name="fct.vwproductos_descrip_esp_checkColumnConstraints">} #+ Check constraints on the "vwproductos.descrip_esp" column #+ #+ @param p_descrip_esp - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproductos_descrip_esp_checkColumnConstraints(p_descrip_esp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip_esp LIKE vwproductos.descrip_esp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_descrip_esp IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- descrip_esp: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproductos_descrip_esp_checkColumnConstraints {<BLOCK Name="fct.vwproductos_cod_sec_checkColumnConstraints">} #+ Check constraints on the "vwproductos.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproductos_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE vwproductos.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproductos_cod_sec_checkColumnConstraints {<BLOCK Name="fct.vwproductos_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "vwproductos.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproductos_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE vwproductos.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tipo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tipo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproductos_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.vwproductos_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "vwproductos.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproductos_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE vwproductos.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_grupo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_grupo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproductos_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.vwproductos_cod_n_checkColumnConstraints">} #+ Check constraints on the "vwproductos.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproductos_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE vwproductos.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproductos_cod_n_checkColumnConstraints {<BLOCK Name="fct.vwproductos_descripcion_checkColumnConstraints">} #+ Check constraints on the "vwproductos.descripcion" column #+ #+ @param p_descripcion - VARCHAR2(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproductos_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE vwproductos.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproductos_descripcion_checkColumnConstraints {<BLOCK Name="fct.vwproductos_precio_checkColumnConstraints">} #+ Check constraints on the "vwproductos.precio" column #+ #+ @param p_precio - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproductos_precio_checkColumnConstraints(p_precio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_precio LIKE vwproductos.precio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproductos_precio_checkColumnConstraints {<BLOCK Name="fct.vwproductos_status_t_checkColumnConstraints">} #+ Check constraints on the "vwproductos.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproductos_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE vwproductos.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproductos_status_t_checkColumnConstraints {<BLOCK Name="fct.vwproductos_cod_cia_checkColumnConstraints">} #+ Check constraints on the "vwproductos.cod_cia" column #+ #+ @param p_cod_cia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproductos_cod_cia_checkColumnConstraints(p_cod_cia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_cia LIKE vwproductos.cod_cia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_cia IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_cia: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproductos_cod_cia_checkColumnConstraints {<BLOCK Name="fct.vwproductos_tipo_checkColumnConstraints">} #+ Check constraints on the "vwproductos.tipo" column #+ #+ @param p_tipo - VARCHAR2(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproductos_tipo_checkColumnConstraints(p_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo LIKE vwproductos.tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproductos_tipo_checkColumnConstraints {<BLOCK Name="fct.vwproductos_grupo_checkColumnConstraints">} #+ Check constraints on the "vwproductos.grupo" column #+ #+ @param p_grupo - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproductos_grupo_checkColumnConstraints(p_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_grupo LIKE vwproductos.grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproductos_grupo_checkColumnConstraints {<BLOCK Name="fct.vwproductos_origen_checkColumnConstraints">} #+ Check constraints on the "vwproductos.origen" column #+ #+ @param p_origen - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproductos_origen_checkColumnConstraints(p_origen) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_origen LIKE vwproductos.origen LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproductos_origen_checkColumnConstraints {<BLOCK Name="fct.vwproductos_expr1_checkColumnConstraints">} #+ Check constraints on the "vwproductos.expr1" column #+ #+ @param p_expr1 - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproductos_expr1_checkColumnConstraints(p_expr1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_expr1 LIKE vwproductos.expr1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproductos_expr1_checkColumnConstraints {<BLOCK Name="fct.vwproduccionvsventas_checkTableConstraints">} #+ Check constraints on the "vwproduccionvsventas" table #+ #+ @param p_data - a row data LIKE vwproduccionvsventas.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionvsventas_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vwproduccionvsventas.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vwproduccionvsventas_tipotransaccion_checkColumnConstraints(p_data.tipotransaccion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionvsventas_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionvsventas_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionvsventas_producto_checkColumnConstraints(p_data.producto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionvsventas_grupo_checkColumnConstraints(p_data.grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionvsventas_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionvsventas_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionvsventas_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionvsventas_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionvsventas_descripcionp_checkColumnConstraints(p_data.descripcionp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionvsventas_ventas_checkColumnConstraints(p_data.ventas) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionvsventas_produccion_checkColumnConstraints(p_data.produccion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionvsventas_documento_checkColumnConstraints(p_data.documento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionvsventas_checkTableConstraints {<BLOCK Name="fct.vwproduccionvsventas_tipotransaccion_checkColumnConstraints">} #+ Check constraints on the "vwproduccionvsventas.tipotransaccion" column #+ #+ @param p_tipotransaccion - VARCHAR2(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionvsventas_tipotransaccion_checkColumnConstraints(p_tipotransaccion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipotransaccion LIKE vwproduccionvsventas.tipotransaccion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_tipotransaccion IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- tipotransaccion: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionvsventas_tipotransaccion_checkColumnConstraints {<BLOCK Name="fct.vwproduccionvsventas_ano_checkColumnConstraints">} #+ Check constraints on the "vwproduccionvsventas.ano" column #+ #+ @param p_ano - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionvsventas_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE vwproduccionvsventas.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionvsventas_ano_checkColumnConstraints {<BLOCK Name="fct.vwproduccionvsventas_mes_checkColumnConstraints">} #+ Check constraints on the "vwproduccionvsventas.mes" column #+ #+ @param p_mes - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionvsventas_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE vwproduccionvsventas.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionvsventas_mes_checkColumnConstraints {<BLOCK Name="fct.vwproduccionvsventas_producto_checkColumnConstraints">} #+ Check constraints on the "vwproduccionvsventas.producto" column #+ #+ @param p_producto - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionvsventas_producto_checkColumnConstraints(p_producto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_producto LIKE vwproduccionvsventas.producto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionvsventas_producto_checkColumnConstraints {<BLOCK Name="fct.vwproduccionvsventas_grupo_checkColumnConstraints">} #+ Check constraints on the "vwproduccionvsventas.grupo" column #+ #+ @param p_grupo - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionvsventas_grupo_checkColumnConstraints(p_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_grupo LIKE vwproduccionvsventas.grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionvsventas_grupo_checkColumnConstraints {<BLOCK Name="fct.vwproduccionvsventas_cod_n_checkColumnConstraints">} #+ Check constraints on the "vwproduccionvsventas.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionvsventas_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE vwproduccionvsventas.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionvsventas_cod_n_checkColumnConstraints {<BLOCK Name="fct.vwproduccionvsventas_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "vwproduccionvsventas.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionvsventas_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE vwproduccionvsventas.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionvsventas_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.vwproduccionvsventas_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "vwproduccionvsventas.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionvsventas_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE vwproduccionvsventas.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionvsventas_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.vwproduccionvsventas_cod_sec_checkColumnConstraints">} #+ Check constraints on the "vwproduccionvsventas.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionvsventas_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE vwproduccionvsventas.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionvsventas_cod_sec_checkColumnConstraints {<BLOCK Name="fct.vwproduccionvsventas_descripcionp_checkColumnConstraints">} #+ Check constraints on the "vwproduccionvsventas.descripcionp" column #+ #+ @param p_descripcionp - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionvsventas_descripcionp_checkColumnConstraints(p_descripcionp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcionp LIKE vwproduccionvsventas.descripcionp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionvsventas_descripcionp_checkColumnConstraints {<BLOCK Name="fct.vwproduccionvsventas_ventas_checkColumnConstraints">} #+ Check constraints on the "vwproduccionvsventas.ventas" column #+ #+ @param p_ventas - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionvsventas_ventas_checkColumnConstraints(p_ventas) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ventas LIKE vwproduccionvsventas.ventas LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionvsventas_ventas_checkColumnConstraints {<BLOCK Name="fct.vwproduccionvsventas_produccion_checkColumnConstraints">} #+ Check constraints on the "vwproduccionvsventas.produccion" column #+ #+ @param p_produccion - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionvsventas_produccion_checkColumnConstraints(p_produccion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_produccion LIKE vwproduccionvsventas.produccion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_produccion IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- produccion: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionvsventas_produccion_checkColumnConstraints {<BLOCK Name="fct.vwproduccionvsventas_documento_checkColumnConstraints">} #+ Check constraints on the "vwproduccionvsventas.documento" column #+ #+ @param p_documento - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionvsventas_documento_checkColumnConstraints(p_documento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_documento LIKE vwproduccionvsventas.documento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionvsventas_documento_checkColumnConstraints {<BLOCK Name="fct.vwproducciont_checkTableConstraints">} #+ Check constraints on the "vwproducciont" table #+ #+ @param p_data - a row data LIKE vwproducciont.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vwproducciont_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vwproducciont.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vwproducciont_codigomov_checkColumnConstraints(p_data.codigomov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproducciont_descripcionmov_checkColumnConstraints(p_data.descripcionmov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproducciont_codigodepto_checkColumnConstraints(p_data.codigodepto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproducciont_descripciondpto_checkColumnConstraints(p_data.descripciondpto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproducciont_documento_checkColumnConstraints(p_data.documento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproducciont_fechadoc_checkColumnConstraints(p_data.fechadoc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproducciont_orden_checkColumnConstraints(p_data.orden) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproducciont_producto_checkColumnConstraints(p_data.producto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproducciont_grupo_checkColumnConstraints(p_data.grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproducciont_origen_checkColumnConstraints(p_data.origen) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproducciont_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproducciont_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproducciont_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproducciont_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproducciont_descripcionp_checkColumnConstraints(p_data.descripcionp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproducciont_unidadmed_checkColumnConstraints(p_data.unidadmed) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproducciont_unidades_checkColumnConstraints(p_data.unidades) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproducciont_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproducciont_nombrecliente_checkColumnConstraints(p_data.nombrecliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproducciont_cantidadorden_checkColumnConstraints(p_data.cantidadorden) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproducciont_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproducciont_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproducciont_metrosadicionales_checkColumnConstraints(p_data.metrosadicionales) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproducciont_checkTableConstraints {<BLOCK Name="fct.vwproducciont_codigomov_checkColumnConstraints">} #+ Check constraints on the "vwproducciont.codigomov" column #+ #+ @param p_codigomov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproducciont_codigomov_checkColumnConstraints(p_codigomov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codigomov LIKE vwproducciont.codigomov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_codigomov IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- codigomov: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproducciont_codigomov_checkColumnConstraints {<BLOCK Name="fct.vwproducciont_descripcionmov_checkColumnConstraints">} #+ Check constraints on the "vwproducciont.descripcionmov" column #+ #+ @param p_descripcionmov - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproducciont_descripcionmov_checkColumnConstraints(p_descripcionmov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcionmov LIKE vwproducciont.descripcionmov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproducciont_descripcionmov_checkColumnConstraints {<BLOCK Name="fct.vwproducciont_codigodepto_checkColumnConstraints">} #+ Check constraints on the "vwproducciont.codigodepto" column #+ #+ @param p_codigodepto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproducciont_codigodepto_checkColumnConstraints(p_codigodepto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codigodepto LIKE vwproducciont.codigodepto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproducciont_codigodepto_checkColumnConstraints {<BLOCK Name="fct.vwproducciont_descripciondpto_checkColumnConstraints">} #+ Check constraints on the "vwproducciont.descripciondpto" column #+ #+ @param p_descripciondpto - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproducciont_descripciondpto_checkColumnConstraints(p_descripciondpto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripciondpto LIKE vwproducciont.descripciondpto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproducciont_descripciondpto_checkColumnConstraints {<BLOCK Name="fct.vwproducciont_documento_checkColumnConstraints">} #+ Check constraints on the "vwproducciont.documento" column #+ #+ @param p_documento - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproducciont_documento_checkColumnConstraints(p_documento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_documento LIKE vwproducciont.documento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_documento IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- documento: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproducciont_documento_checkColumnConstraints {<BLOCK Name="fct.vwproducciont_fechadoc_checkColumnConstraints">} #+ Check constraints on the "vwproducciont.fechadoc" column #+ #+ @param p_fechadoc - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproducciont_fechadoc_checkColumnConstraints(p_fechadoc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fechadoc LIKE vwproducciont.fechadoc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_fechadoc IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- fechadoc: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproducciont_fechadoc_checkColumnConstraints {<BLOCK Name="fct.vwproducciont_orden_checkColumnConstraints">} #+ Check constraints on the "vwproducciont.orden" column #+ #+ @param p_orden - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproducciont_orden_checkColumnConstraints(p_orden) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_orden LIKE vwproducciont.orden LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproducciont_orden_checkColumnConstraints {<BLOCK Name="fct.vwproducciont_producto_checkColumnConstraints">} #+ Check constraints on the "vwproducciont.producto" column #+ #+ @param p_producto - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproducciont_producto_checkColumnConstraints(p_producto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_producto LIKE vwproducciont.producto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproducciont_producto_checkColumnConstraints {<BLOCK Name="fct.vwproducciont_grupo_checkColumnConstraints">} #+ Check constraints on the "vwproducciont.grupo" column #+ #+ @param p_grupo - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproducciont_grupo_checkColumnConstraints(p_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_grupo LIKE vwproducciont.grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproducciont_grupo_checkColumnConstraints {<BLOCK Name="fct.vwproducciont_origen_checkColumnConstraints">} #+ Check constraints on the "vwproducciont.origen" column #+ #+ @param p_origen - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproducciont_origen_checkColumnConstraints(p_origen) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_origen LIKE vwproducciont.origen LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproducciont_origen_checkColumnConstraints {<BLOCK Name="fct.vwproducciont_cod_n_checkColumnConstraints">} #+ Check constraints on the "vwproducciont.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproducciont_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE vwproducciont.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproducciont_cod_n_checkColumnConstraints {<BLOCK Name="fct.vwproducciont_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "vwproducciont.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproducciont_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE vwproducciont.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_grupo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_grupo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproducciont_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.vwproducciont_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "vwproducciont.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproducciont_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE vwproducciont.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tipo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tipo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproducciont_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.vwproducciont_cod_sec_checkColumnConstraints">} #+ Check constraints on the "vwproducciont.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproducciont_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE vwproducciont.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproducciont_cod_sec_checkColumnConstraints {<BLOCK Name="fct.vwproducciont_descripcionp_checkColumnConstraints">} #+ Check constraints on the "vwproducciont.descripcionp" column #+ #+ @param p_descripcionp - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproducciont_descripcionp_checkColumnConstraints(p_descripcionp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcionp LIKE vwproducciont.descripcionp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_descripcionp IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- descripcionp: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproducciont_descripcionp_checkColumnConstraints {<BLOCK Name="fct.vwproducciont_unidadmed_checkColumnConstraints">} #+ Check constraints on the "vwproducciont.unidadmed" column #+ #+ @param p_unidadmed - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproducciont_unidadmed_checkColumnConstraints(p_unidadmed) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_unidadmed LIKE vwproducciont.unidadmed LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproducciont_unidadmed_checkColumnConstraints {<BLOCK Name="fct.vwproducciont_unidades_checkColumnConstraints">} #+ Check constraints on the "vwproducciont.unidades" column #+ #+ @param p_unidades - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproducciont_unidades_checkColumnConstraints(p_unidades) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_unidades LIKE vwproducciont.unidades LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproducciont_unidades_checkColumnConstraints {<BLOCK Name="fct.vwproducciont_cantidad_checkColumnConstraints">} #+ Check constraints on the "vwproducciont.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproducciont_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE vwproducciont.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cantidad IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cantidad: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproducciont_cantidad_checkColumnConstraints {<BLOCK Name="fct.vwproducciont_nombrecliente_checkColumnConstraints">} #+ Check constraints on the "vwproducciont.nombrecliente" column #+ #+ @param p_nombrecliente - CHAR(100) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproducciont_nombrecliente_checkColumnConstraints(p_nombrecliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombrecliente LIKE vwproducciont.nombrecliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproducciont_nombrecliente_checkColumnConstraints {<BLOCK Name="fct.vwproducciont_cantidadorden_checkColumnConstraints">} #+ Check constraints on the "vwproducciont.cantidadorden" column #+ #+ @param p_cantidadorden - DECIMAL(38,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproducciont_cantidadorden_checkColumnConstraints(p_cantidadorden) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidadorden LIKE vwproducciont.cantidadorden LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproducciont_cantidadorden_checkColumnConstraints {<BLOCK Name="fct.vwproducciont_ano_checkColumnConstraints">} #+ Check constraints on the "vwproducciont.ano" column #+ #+ @param p_ano - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproducciont_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE vwproducciont.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproducciont_ano_checkColumnConstraints {<BLOCK Name="fct.vwproducciont_mes_checkColumnConstraints">} #+ Check constraints on the "vwproducciont.mes" column #+ #+ @param p_mes - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproducciont_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE vwproducciont.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproducciont_mes_checkColumnConstraints {<BLOCK Name="fct.vwproducciont_metrosadicionales_checkColumnConstraints">} #+ Check constraints on the "vwproducciont.metrosadicionales" column #+ #+ @param p_metrosadicionales - DECIMAL(25,10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproducciont_metrosadicionales_checkColumnConstraints(p_metrosadicionales) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_metrosadicionales LIKE vwproducciont.metrosadicionales LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproducciont_metrosadicionales_checkColumnConstraints {<BLOCK Name="fct.vwproduccionf_checkTableConstraints">} #+ Check constraints on the "vwproduccionf" table #+ #+ @param p_data - a row data LIKE vwproduccionf.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionf_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vwproduccionf.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vwproduccionf_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionf_dia_checkColumnConstraints(p_data.dia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionf_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionf_semana_checkColumnConstraints(p_data.semana) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionf_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionf_documento_checkColumnConstraints(p_data.documento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionf_codigosemi_checkColumnConstraints(p_data.codigosemi) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionf_descripcionsemi_checkColumnConstraints(p_data.descripcionsemi) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionf_uniadmed_checkColumnConstraints(p_data.uniadmed) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionf_codigodepto_checkColumnConstraints(p_data.codigodepto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionf_nombredto_checkColumnConstraints(p_data.nombredto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionf_ficha_checkColumnConstraints(p_data.ficha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionf_nombre_checkColumnConstraints(p_data.nombre) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionf_apellido_checkColumnConstraints(p_data.apellido) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionf_normalesd_checkColumnConstraints(p_data.normalesd) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionf_normalesind_checkColumnConstraints(p_data.normalesind) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionf_extrasdirecta_checkColumnConstraints(p_data.extrasdirecta) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionf_extrasind_checkColumnConstraints(p_data.extrasind) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionf_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionf_bloque_checkColumnConstraints(p_data.bloque) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionf_cantidadprep_checkColumnConstraints(p_data.cantidadprep) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionf_grupodepto_checkColumnConstraints(p_data.grupodepto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionf_turno_checkColumnConstraints(p_data.turno) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionf_costolabor_checkColumnConstraints(p_data.costolabor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionf_costogastos_checkColumnConstraints(p_data.costogastos) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionf_valorlabor_checkColumnConstraints(p_data.valorlabor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionf_valorgasto_checkColumnConstraints(p_data.valorgasto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionf_estado_checkColumnConstraints(p_data.estado) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionf_docalmacen_checkColumnConstraints(p_data.docalmacen) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionf_cantidadtrx_checkColumnConstraints(p_data.cantidadtrx) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionf_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionf_descrip_mov_checkColumnConstraints(p_data.descrip_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionf_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionf_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionf_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionf_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccionf_descrip_esp_checkColumnConstraints(p_data.descrip_esp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionf_checkTableConstraints {<BLOCK Name="fct.vwproduccionf_ano_checkColumnConstraints">} #+ Check constraints on the "vwproduccionf.ano" column #+ #+ @param p_ano - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionf_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE vwproduccionf.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionf_ano_checkColumnConstraints {<BLOCK Name="fct.vwproduccionf_dia_checkColumnConstraints">} #+ Check constraints on the "vwproduccionf.dia" column #+ #+ @param p_dia - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionf_dia_checkColumnConstraints(p_dia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_dia LIKE vwproduccionf.dia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionf_dia_checkColumnConstraints {<BLOCK Name="fct.vwproduccionf_mes_checkColumnConstraints">} #+ Check constraints on the "vwproduccionf.mes" column #+ #+ @param p_mes - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionf_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE vwproduccionf.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionf_mes_checkColumnConstraints {<BLOCK Name="fct.vwproduccionf_semana_checkColumnConstraints">} #+ Check constraints on the "vwproduccionf.semana" column #+ #+ @param p_semana - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionf_semana_checkColumnConstraints(p_semana) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_semana LIKE vwproduccionf.semana LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionf_semana_checkColumnConstraints {<BLOCK Name="fct.vwproduccionf_fecha_checkColumnConstraints">} #+ Check constraints on the "vwproduccionf.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionf_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE vwproduccionf.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_fecha IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- fecha: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionf_fecha_checkColumnConstraints {<BLOCK Name="fct.vwproduccionf_documento_checkColumnConstraints">} #+ Check constraints on the "vwproduccionf.documento" column #+ #+ @param p_documento - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionf_documento_checkColumnConstraints(p_documento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_documento LIKE vwproduccionf.documento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_documento IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- documento: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionf_documento_checkColumnConstraints {<BLOCK Name="fct.vwproduccionf_codigosemi_checkColumnConstraints">} #+ Check constraints on the "vwproduccionf.codigosemi" column #+ #+ @param p_codigosemi - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionf_codigosemi_checkColumnConstraints(p_codigosemi) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codigosemi LIKE vwproduccionf.codigosemi LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_codigosemi IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- codigosemi: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionf_codigosemi_checkColumnConstraints {<BLOCK Name="fct.vwproduccionf_descripcionsemi_checkColumnConstraints">} #+ Check constraints on the "vwproduccionf.descripcionsemi" column #+ #+ @param p_descripcionsemi - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionf_descripcionsemi_checkColumnConstraints(p_descripcionsemi) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcionsemi LIKE vwproduccionf.descripcionsemi LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionf_descripcionsemi_checkColumnConstraints {<BLOCK Name="fct.vwproduccionf_uniadmed_checkColumnConstraints">} #+ Check constraints on the "vwproduccionf.uniadmed" column #+ #+ @param p_uniadmed - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionf_uniadmed_checkColumnConstraints(p_uniadmed) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_uniadmed LIKE vwproduccionf.uniadmed LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionf_uniadmed_checkColumnConstraints {<BLOCK Name="fct.vwproduccionf_codigodepto_checkColumnConstraints">} #+ Check constraints on the "vwproduccionf.codigodepto" column #+ #+ @param p_codigodepto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionf_codigodepto_checkColumnConstraints(p_codigodepto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codigodepto LIKE vwproduccionf.codigodepto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionf_codigodepto_checkColumnConstraints {<BLOCK Name="fct.vwproduccionf_nombredto_checkColumnConstraints">} #+ Check constraints on the "vwproduccionf.nombredto" column #+ #+ @param p_nombredto - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionf_nombredto_checkColumnConstraints(p_nombredto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombredto LIKE vwproduccionf.nombredto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionf_nombredto_checkColumnConstraints {<BLOCK Name="fct.vwproduccionf_ficha_checkColumnConstraints">} #+ Check constraints on the "vwproduccionf.ficha" column #+ #+ @param p_ficha - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionf_ficha_checkColumnConstraints(p_ficha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ficha LIKE vwproduccionf.ficha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_ficha IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- ficha: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionf_ficha_checkColumnConstraints {<BLOCK Name="fct.vwproduccionf_nombre_checkColumnConstraints">} #+ Check constraints on the "vwproduccionf.nombre" column #+ #+ @param p_nombre - CHAR(15) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionf_nombre_checkColumnConstraints(p_nombre) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombre LIKE vwproduccionf.nombre LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionf_nombre_checkColumnConstraints {<BLOCK Name="fct.vwproduccionf_apellido_checkColumnConstraints">} #+ Check constraints on the "vwproduccionf.apellido" column #+ #+ @param p_apellido - CHAR(15) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionf_apellido_checkColumnConstraints(p_apellido) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_apellido LIKE vwproduccionf.apellido LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionf_apellido_checkColumnConstraints {<BLOCK Name="fct.vwproduccionf_normalesd_checkColumnConstraints">} #+ Check constraints on the "vwproduccionf.normalesd" column #+ #+ @param p_normalesd - DECIMAL(8,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionf_normalesd_checkColumnConstraints(p_normalesd) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_normalesd LIKE vwproduccionf.normalesd LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionf_normalesd_checkColumnConstraints {<BLOCK Name="fct.vwproduccionf_normalesind_checkColumnConstraints">} #+ Check constraints on the "vwproduccionf.normalesind" column #+ #+ @param p_normalesind - DECIMAL(8,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionf_normalesind_checkColumnConstraints(p_normalesind) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_normalesind LIKE vwproduccionf.normalesind LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionf_normalesind_checkColumnConstraints {<BLOCK Name="fct.vwproduccionf_extrasdirecta_checkColumnConstraints">} #+ Check constraints on the "vwproduccionf.extrasdirecta" column #+ #+ @param p_extrasdirecta - DECIMAL(8,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionf_extrasdirecta_checkColumnConstraints(p_extrasdirecta) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_extrasdirecta LIKE vwproduccionf.extrasdirecta LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionf_extrasdirecta_checkColumnConstraints {<BLOCK Name="fct.vwproduccionf_extrasind_checkColumnConstraints">} #+ Check constraints on the "vwproduccionf.extrasind" column #+ #+ @param p_extrasind - DECIMAL(8,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionf_extrasind_checkColumnConstraints(p_extrasind) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_extrasind LIKE vwproduccionf.extrasind LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionf_extrasind_checkColumnConstraints {<BLOCK Name="fct.vwproduccionf_cantidad_checkColumnConstraints">} #+ Check constraints on the "vwproduccionf.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionf_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE vwproduccionf.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionf_cantidad_checkColumnConstraints {<BLOCK Name="fct.vwproduccionf_bloque_checkColumnConstraints">} #+ Check constraints on the "vwproduccionf.bloque" column #+ #+ @param p_bloque - CHAR(25) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionf_bloque_checkColumnConstraints(p_bloque) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_bloque LIKE vwproduccionf.bloque LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionf_bloque_checkColumnConstraints {<BLOCK Name="fct.vwproduccionf_cantidadprep_checkColumnConstraints">} #+ Check constraints on the "vwproduccionf.cantidadprep" column #+ #+ @param p_cantidadprep - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionf_cantidadprep_checkColumnConstraints(p_cantidadprep) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidadprep LIKE vwproduccionf.cantidadprep LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionf_cantidadprep_checkColumnConstraints {<BLOCK Name="fct.vwproduccionf_grupodepto_checkColumnConstraints">} #+ Check constraints on the "vwproduccionf.grupodepto" column #+ #+ @param p_grupodepto - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionf_grupodepto_checkColumnConstraints(p_grupodepto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_grupodepto LIKE vwproduccionf.grupodepto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionf_grupodepto_checkColumnConstraints {<BLOCK Name="fct.vwproduccionf_turno_checkColumnConstraints">} #+ Check constraints on the "vwproduccionf.turno" column #+ #+ @param p_turno - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionf_turno_checkColumnConstraints(p_turno) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_turno LIKE vwproduccionf.turno LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionf_turno_checkColumnConstraints {<BLOCK Name="fct.vwproduccionf_costolabor_checkColumnConstraints">} #+ Check constraints on the "vwproduccionf.costolabor" column #+ #+ @param p_costolabor - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionf_costolabor_checkColumnConstraints(p_costolabor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_costolabor LIKE vwproduccionf.costolabor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionf_costolabor_checkColumnConstraints {<BLOCK Name="fct.vwproduccionf_costogastos_checkColumnConstraints">} #+ Check constraints on the "vwproduccionf.costogastos" column #+ #+ @param p_costogastos - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionf_costogastos_checkColumnConstraints(p_costogastos) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_costogastos LIKE vwproduccionf.costogastos LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionf_costogastos_checkColumnConstraints {<BLOCK Name="fct.vwproduccionf_valorlabor_checkColumnConstraints">} #+ Check constraints on the "vwproduccionf.valorlabor" column #+ #+ @param p_valorlabor - DECIMAL(25,7) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionf_valorlabor_checkColumnConstraints(p_valorlabor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valorlabor LIKE vwproduccionf.valorlabor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionf_valorlabor_checkColumnConstraints {<BLOCK Name="fct.vwproduccionf_valorgasto_checkColumnConstraints">} #+ Check constraints on the "vwproduccionf.valorgasto" column #+ #+ @param p_valorgasto - DECIMAL(25,7) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionf_valorgasto_checkColumnConstraints(p_valorgasto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valorgasto LIKE vwproduccionf.valorgasto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionf_valorgasto_checkColumnConstraints {<BLOCK Name="fct.vwproduccionf_estado_checkColumnConstraints">} #+ Check constraints on the "vwproduccionf.estado" column #+ #+ @param p_estado - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionf_estado_checkColumnConstraints(p_estado) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_estado LIKE vwproduccionf.estado LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionf_estado_checkColumnConstraints {<BLOCK Name="fct.vwproduccionf_docalmacen_checkColumnConstraints">} #+ Check constraints on the "vwproduccionf.docalmacen" column #+ #+ @param p_docalmacen - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionf_docalmacen_checkColumnConstraints(p_docalmacen) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_docalmacen LIKE vwproduccionf.docalmacen LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionf_docalmacen_checkColumnConstraints {<BLOCK Name="fct.vwproduccionf_cantidadtrx_checkColumnConstraints">} #+ Check constraints on the "vwproduccionf.cantidadtrx" column #+ #+ @param p_cantidadtrx - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionf_cantidadtrx_checkColumnConstraints(p_cantidadtrx) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidadtrx LIKE vwproduccionf.cantidadtrx LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionf_cantidadtrx_checkColumnConstraints {<BLOCK Name="fct.vwproduccionf_cod_mov_checkColumnConstraints">} #+ Check constraints on the "vwproduccionf.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionf_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE vwproduccionf.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionf_cod_mov_checkColumnConstraints {<BLOCK Name="fct.vwproduccionf_descrip_mov_checkColumnConstraints">} #+ Check constraints on the "vwproduccionf.descrip_mov" column #+ #+ @param p_descrip_mov - VARCHAR2(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionf_descrip_mov_checkColumnConstraints(p_descrip_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip_mov LIKE vwproduccionf.descrip_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionf_descrip_mov_checkColumnConstraints {<BLOCK Name="fct.vwproduccionf_cod_n_checkColumnConstraints">} #+ Check constraints on the "vwproduccionf.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionf_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE vwproduccionf.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionf_cod_n_checkColumnConstraints {<BLOCK Name="fct.vwproduccionf_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "vwproduccionf.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionf_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE vwproduccionf.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionf_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.vwproduccionf_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "vwproduccionf.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionf_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE vwproduccionf.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionf_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.vwproduccionf_cod_sec_checkColumnConstraints">} #+ Check constraints on the "vwproduccionf.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionf_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE vwproduccionf.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionf_cod_sec_checkColumnConstraints {<BLOCK Name="fct.vwproduccionf_descrip_esp_checkColumnConstraints">} #+ Check constraints on the "vwproduccionf.descrip_esp" column #+ #+ @param p_descrip_esp - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccionf_descrip_esp_checkColumnConstraints(p_descrip_esp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip_esp LIKE vwproduccionf.descrip_esp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccionf_descrip_esp_checkColumnConstraints {<BLOCK Name="fct.vwproduccion_checkTableConstraints">} #+ Check constraints on the "vwproduccion" table #+ #+ @param p_data - a row data LIKE vwproduccion.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccion_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vwproduccion.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vwproduccion_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccion_dia_checkColumnConstraints(p_data.dia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccion_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccion_semana_checkColumnConstraints(p_data.semana) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccion_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccion_documento_checkColumnConstraints(p_data.documento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccion_codigosemi_checkColumnConstraints(p_data.codigosemi) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccion_descripcionsemi_checkColumnConstraints(p_data.descripcionsemi) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccion_uniadmed_checkColumnConstraints(p_data.uniadmed) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccion_codigodepto_checkColumnConstraints(p_data.codigodepto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccion_nombredto_checkColumnConstraints(p_data.nombredto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccion_ficha_checkColumnConstraints(p_data.ficha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccion_nombre_checkColumnConstraints(p_data.nombre) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccion_apellido_checkColumnConstraints(p_data.apellido) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccion_normalesd_checkColumnConstraints(p_data.normalesd) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccion_normalesind_checkColumnConstraints(p_data.normalesind) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccion_extrasdirecta_checkColumnConstraints(p_data.extrasdirecta) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccion_extrasind_checkColumnConstraints(p_data.extrasind) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccion_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccion_bloque_checkColumnConstraints(p_data.bloque) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccion_grupodepto_checkColumnConstraints(p_data.grupodepto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccion_turno_checkColumnConstraints(p_data.turno) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccion_expr1_checkColumnConstraints(p_data.expr1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccion_descrip_mov_checkColumnConstraints(p_data.descrip_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccion_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccion_expr2_checkColumnConstraints(p_data.expr2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwproduccion_medida_checkColumnConstraints(p_data.medida) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccion_checkTableConstraints {<BLOCK Name="fct.vwproduccion_ano_checkColumnConstraints">} #+ Check constraints on the "vwproduccion.ano" column #+ #+ @param p_ano - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccion_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE vwproduccion.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccion_ano_checkColumnConstraints {<BLOCK Name="fct.vwproduccion_dia_checkColumnConstraints">} #+ Check constraints on the "vwproduccion.dia" column #+ #+ @param p_dia - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccion_dia_checkColumnConstraints(p_dia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_dia LIKE vwproduccion.dia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccion_dia_checkColumnConstraints {<BLOCK Name="fct.vwproduccion_mes_checkColumnConstraints">} #+ Check constraints on the "vwproduccion.mes" column #+ #+ @param p_mes - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccion_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE vwproduccion.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccion_mes_checkColumnConstraints {<BLOCK Name="fct.vwproduccion_semana_checkColumnConstraints">} #+ Check constraints on the "vwproduccion.semana" column #+ #+ @param p_semana - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccion_semana_checkColumnConstraints(p_semana) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_semana LIKE vwproduccion.semana LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccion_semana_checkColumnConstraints {<BLOCK Name="fct.vwproduccion_fecha_checkColumnConstraints">} #+ Check constraints on the "vwproduccion.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccion_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE vwproduccion.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_fecha IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- fecha: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccion_fecha_checkColumnConstraints {<BLOCK Name="fct.vwproduccion_documento_checkColumnConstraints">} #+ Check constraints on the "vwproduccion.documento" column #+ #+ @param p_documento - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccion_documento_checkColumnConstraints(p_documento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_documento LIKE vwproduccion.documento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_documento IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- documento: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccion_documento_checkColumnConstraints {<BLOCK Name="fct.vwproduccion_codigosemi_checkColumnConstraints">} #+ Check constraints on the "vwproduccion.codigosemi" column #+ #+ @param p_codigosemi - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccion_codigosemi_checkColumnConstraints(p_codigosemi) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codigosemi LIKE vwproduccion.codigosemi LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_codigosemi IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- codigosemi: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccion_codigosemi_checkColumnConstraints {<BLOCK Name="fct.vwproduccion_descripcionsemi_checkColumnConstraints">} #+ Check constraints on the "vwproduccion.descripcionsemi" column #+ #+ @param p_descripcionsemi - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccion_descripcionsemi_checkColumnConstraints(p_descripcionsemi) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcionsemi LIKE vwproduccion.descripcionsemi LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccion_descripcionsemi_checkColumnConstraints {<BLOCK Name="fct.vwproduccion_uniadmed_checkColumnConstraints">} #+ Check constraints on the "vwproduccion.uniadmed" column #+ #+ @param p_uniadmed - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccion_uniadmed_checkColumnConstraints(p_uniadmed) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_uniadmed LIKE vwproduccion.uniadmed LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccion_uniadmed_checkColumnConstraints {<BLOCK Name="fct.vwproduccion_codigodepto_checkColumnConstraints">} #+ Check constraints on the "vwproduccion.codigodepto" column #+ #+ @param p_codigodepto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccion_codigodepto_checkColumnConstraints(p_codigodepto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codigodepto LIKE vwproduccion.codigodepto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccion_codigodepto_checkColumnConstraints {<BLOCK Name="fct.vwproduccion_nombredto_checkColumnConstraints">} #+ Check constraints on the "vwproduccion.nombredto" column #+ #+ @param p_nombredto - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccion_nombredto_checkColumnConstraints(p_nombredto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombredto LIKE vwproduccion.nombredto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccion_nombredto_checkColumnConstraints {<BLOCK Name="fct.vwproduccion_ficha_checkColumnConstraints">} #+ Check constraints on the "vwproduccion.ficha" column #+ #+ @param p_ficha - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccion_ficha_checkColumnConstraints(p_ficha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ficha LIKE vwproduccion.ficha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_ficha IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- ficha: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccion_ficha_checkColumnConstraints {<BLOCK Name="fct.vwproduccion_nombre_checkColumnConstraints">} #+ Check constraints on the "vwproduccion.nombre" column #+ #+ @param p_nombre - CHAR(15) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccion_nombre_checkColumnConstraints(p_nombre) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombre LIKE vwproduccion.nombre LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccion_nombre_checkColumnConstraints {<BLOCK Name="fct.vwproduccion_apellido_checkColumnConstraints">} #+ Check constraints on the "vwproduccion.apellido" column #+ #+ @param p_apellido - CHAR(15) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccion_apellido_checkColumnConstraints(p_apellido) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_apellido LIKE vwproduccion.apellido LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccion_apellido_checkColumnConstraints {<BLOCK Name="fct.vwproduccion_normalesd_checkColumnConstraints">} #+ Check constraints on the "vwproduccion.normalesd" column #+ #+ @param p_normalesd - DECIMAL(8,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccion_normalesd_checkColumnConstraints(p_normalesd) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_normalesd LIKE vwproduccion.normalesd LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccion_normalesd_checkColumnConstraints {<BLOCK Name="fct.vwproduccion_normalesind_checkColumnConstraints">} #+ Check constraints on the "vwproduccion.normalesind" column #+ #+ @param p_normalesind - DECIMAL(8,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccion_normalesind_checkColumnConstraints(p_normalesind) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_normalesind LIKE vwproduccion.normalesind LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccion_normalesind_checkColumnConstraints {<BLOCK Name="fct.vwproduccion_extrasdirecta_checkColumnConstraints">} #+ Check constraints on the "vwproduccion.extrasdirecta" column #+ #+ @param p_extrasdirecta - DECIMAL(8,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccion_extrasdirecta_checkColumnConstraints(p_extrasdirecta) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_extrasdirecta LIKE vwproduccion.extrasdirecta LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccion_extrasdirecta_checkColumnConstraints {<BLOCK Name="fct.vwproduccion_extrasind_checkColumnConstraints">} #+ Check constraints on the "vwproduccion.extrasind" column #+ #+ @param p_extrasind - DECIMAL(8,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccion_extrasind_checkColumnConstraints(p_extrasind) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_extrasind LIKE vwproduccion.extrasind LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccion_extrasind_checkColumnConstraints {<BLOCK Name="fct.vwproduccion_cantidad_checkColumnConstraints">} #+ Check constraints on the "vwproduccion.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccion_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE vwproduccion.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccion_cantidad_checkColumnConstraints {<BLOCK Name="fct.vwproduccion_bloque_checkColumnConstraints">} #+ Check constraints on the "vwproduccion.bloque" column #+ #+ @param p_bloque - CHAR(25) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccion_bloque_checkColumnConstraints(p_bloque) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_bloque LIKE vwproduccion.bloque LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccion_bloque_checkColumnConstraints {<BLOCK Name="fct.vwproduccion_grupodepto_checkColumnConstraints">} #+ Check constraints on the "vwproduccion.grupodepto" column #+ #+ @param p_grupodepto - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccion_grupodepto_checkColumnConstraints(p_grupodepto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_grupodepto LIKE vwproduccion.grupodepto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccion_grupodepto_checkColumnConstraints {<BLOCK Name="fct.vwproduccion_turno_checkColumnConstraints">} #+ Check constraints on the "vwproduccion.turno" column #+ #+ @param p_turno - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccion_turno_checkColumnConstraints(p_turno) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_turno LIKE vwproduccion.turno LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccion_turno_checkColumnConstraints {<BLOCK Name="fct.vwproduccion_expr1_checkColumnConstraints">} #+ Check constraints on the "vwproduccion.expr1" column #+ #+ @param p_expr1 - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccion_expr1_checkColumnConstraints(p_expr1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_expr1 LIKE vwproduccion.expr1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccion_expr1_checkColumnConstraints {<BLOCK Name="fct.vwproduccion_descrip_mov_checkColumnConstraints">} #+ Check constraints on the "vwproduccion.descrip_mov" column #+ #+ @param p_descrip_mov - VARCHAR2(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccion_descrip_mov_checkColumnConstraints(p_descrip_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip_mov LIKE vwproduccion.descrip_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccion_descrip_mov_checkColumnConstraints {<BLOCK Name="fct.vwproduccion_cod_mov_checkColumnConstraints">} #+ Check constraints on the "vwproduccion.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccion_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE vwproduccion.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccion_cod_mov_checkColumnConstraints {<BLOCK Name="fct.vwproduccion_expr2_checkColumnConstraints">} #+ Check constraints on the "vwproduccion.expr2" column #+ #+ @param p_expr2 - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccion_expr2_checkColumnConstraints(p_expr2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_expr2 LIKE vwproduccion.expr2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccion_expr2_checkColumnConstraints {<BLOCK Name="fct.vwproduccion_medida_checkColumnConstraints">} #+ Check constraints on the "vwproduccion.medida" column #+ #+ @param p_medida - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwproduccion_medida_checkColumnConstraints(p_medida) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_medida LIKE vwproduccion.medida LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwproduccion_medida_checkColumnConstraints {<BLOCK Name="fct.vwprecios_checkTableConstraints">} #+ Check constraints on the "vwprecios" table #+ #+ @param p_data - a row data LIKE vwprecios.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vwprecios_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vwprecios.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vwprecios_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwprecios_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwprecios_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwprecios_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwprecios_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwprecios_descrip_esp_checkColumnConstraints(p_data.descrip_esp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwprecios_unidad_med_checkColumnConstraints(p_data.unidad_med) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwprecios_precio_checkColumnConstraints(p_data.precio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwprecios_simbolo_checkColumnConstraints(p_data.simbolo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwprecios_checkTableConstraints {<BLOCK Name="fct.vwprecios_descripcion_checkColumnConstraints">} #+ Check constraints on the "vwprecios.descripcion" column #+ #+ @param p_descripcion - VARCHAR2(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwprecios_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE vwprecios.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwprecios_descripcion_checkColumnConstraints {<BLOCK Name="fct.vwprecios_cod_n_checkColumnConstraints">} #+ Check constraints on the "vwprecios.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwprecios_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE vwprecios.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwprecios_cod_n_checkColumnConstraints {<BLOCK Name="fct.vwprecios_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "vwprecios.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwprecios_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE vwprecios.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_grupo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_grupo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwprecios_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.vwprecios_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "vwprecios.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwprecios_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE vwprecios.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tipo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tipo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwprecios_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.vwprecios_cod_sec_checkColumnConstraints">} #+ Check constraints on the "vwprecios.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwprecios_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE vwprecios.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwprecios_cod_sec_checkColumnConstraints {<BLOCK Name="fct.vwprecios_descrip_esp_checkColumnConstraints">} #+ Check constraints on the "vwprecios.descrip_esp" column #+ #+ @param p_descrip_esp - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwprecios_descrip_esp_checkColumnConstraints(p_descrip_esp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip_esp LIKE vwprecios.descrip_esp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_descrip_esp IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- descrip_esp: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwprecios_descrip_esp_checkColumnConstraints {<BLOCK Name="fct.vwprecios_unidad_med_checkColumnConstraints">} #+ Check constraints on the "vwprecios.unidad_med" column #+ #+ @param p_unidad_med - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwprecios_unidad_med_checkColumnConstraints(p_unidad_med) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_unidad_med LIKE vwprecios.unidad_med LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwprecios_unidad_med_checkColumnConstraints {<BLOCK Name="fct.vwprecios_precio_checkColumnConstraints">} #+ Check constraints on the "vwprecios.precio" column #+ #+ @param p_precio - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwprecios_precio_checkColumnConstraints(p_precio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_precio LIKE vwprecios.precio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwprecios_precio_checkColumnConstraints {<BLOCK Name="fct.vwprecios_simbolo_checkColumnConstraints">} #+ Check constraints on the "vwprecios.simbolo" column #+ #+ @param p_simbolo - VARCHAR2(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwprecios_simbolo_checkColumnConstraints(p_simbolo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_simbolo LIKE vwprecios.simbolo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwprecios_simbolo_checkColumnConstraints {<BLOCK Name="fct.vwmatprima_checkTableConstraints">} #+ Check constraints on the "vwmatprima" table #+ #+ @param p_data - a row data LIKE vwmatprima.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vwmatprima_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vwmatprima.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vwmatprima_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwmatprima_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwmatprima_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwmatprima_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwmatprima_descrip_esp_checkColumnConstraints(p_data.descrip_esp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwmatprima_unidad_med_checkColumnConstraints(p_data.unidad_med) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwmatprima_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwmatprima_transaccion_checkColumnConstraints(p_data.transaccion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwmatprima_costo_st_checkColumnConstraints(p_data.costo_st) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwmatprima_valor_checkColumnConstraints(p_data.valor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwmatprima_cantidad_2_checkColumnConstraints(p_data.cantidad_2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwmatprima_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwmatprima_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwmatprima_fact_no_checkColumnConstraints(p_data.fact_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwmatprima_conduce_no_checkColumnConstraints(p_data.conduce_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwmatprima_orden_compra_checkColumnConstraints(p_data.orden_compra) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwmatprima_tipo_checkColumnConstraints(p_data.tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwmatprima_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwmatprima_numero_mes_checkColumnConstraints(p_data.numero_mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwmatprima_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwmatprima_depto_a_checkColumnConstraints(p_data.depto_a) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwmatprima_nom_dpto_checkColumnConstraints(p_data.nom_dpto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwmatprima_origen_checkColumnConstraints(p_data.origen) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwmatprima_existencia_checkColumnConstraints(p_data.existencia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwmatprima_checkTableConstraints {<BLOCK Name="fct.vwmatprima_cod_n_checkColumnConstraints">} #+ Check constraints on the "vwmatprima.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwmatprima_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE vwmatprima.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwmatprima_cod_n_checkColumnConstraints {<BLOCK Name="fct.vwmatprima_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "vwmatprima.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwmatprima_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE vwmatprima.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_grupo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_grupo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwmatprima_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.vwmatprima_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "vwmatprima.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwmatprima_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE vwmatprima.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tipo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tipo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwmatprima_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.vwmatprima_cod_sec_checkColumnConstraints">} #+ Check constraints on the "vwmatprima.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwmatprima_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE vwmatprima.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwmatprima_cod_sec_checkColumnConstraints {<BLOCK Name="fct.vwmatprima_descrip_esp_checkColumnConstraints">} #+ Check constraints on the "vwmatprima.descrip_esp" column #+ #+ @param p_descrip_esp - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwmatprima_descrip_esp_checkColumnConstraints(p_descrip_esp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip_esp LIKE vwmatprima.descrip_esp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_descrip_esp IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- descrip_esp: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwmatprima_descrip_esp_checkColumnConstraints {<BLOCK Name="fct.vwmatprima_unidad_med_checkColumnConstraints">} #+ Check constraints on the "vwmatprima.unidad_med" column #+ #+ @param p_unidad_med - CHAR(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwmatprima_unidad_med_checkColumnConstraints(p_unidad_med) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_unidad_med LIKE vwmatprima.unidad_med LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwmatprima_unidad_med_checkColumnConstraints {<BLOCK Name="fct.vwmatprima_cod_mov_checkColumnConstraints">} #+ Check constraints on the "vwmatprima.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwmatprima_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE vwmatprima.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_mov IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_mov: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwmatprima_cod_mov_checkColumnConstraints {<BLOCK Name="fct.vwmatprima_transaccion_checkColumnConstraints">} #+ Check constraints on the "vwmatprima.transaccion" column #+ #+ @param p_transaccion - VARCHAR2(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwmatprima_transaccion_checkColumnConstraints(p_transaccion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_transaccion LIKE vwmatprima.transaccion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwmatprima_transaccion_checkColumnConstraints {<BLOCK Name="fct.vwmatprima_costo_st_checkColumnConstraints">} #+ Check constraints on the "vwmatprima.costo_st" column #+ #+ @param p_costo_st - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwmatprima_costo_st_checkColumnConstraints(p_costo_st) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_costo_st LIKE vwmatprima.costo_st LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwmatprima_costo_st_checkColumnConstraints {<BLOCK Name="fct.vwmatprima_valor_checkColumnConstraints">} #+ Check constraints on the "vwmatprima.valor" column #+ #+ @param p_valor - DECIMAL(23,6) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwmatprima_valor_checkColumnConstraints(p_valor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor LIKE vwmatprima.valor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwmatprima_valor_checkColumnConstraints {<BLOCK Name="fct.vwmatprima_cantidad_2_checkColumnConstraints">} #+ Check constraints on the "vwmatprima.cantidad_2" column #+ #+ @param p_cantidad_2 - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwmatprima_cantidad_2_checkColumnConstraints(p_cantidad_2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad_2 LIKE vwmatprima.cantidad_2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwmatprima_cantidad_2_checkColumnConstraints {<BLOCK Name="fct.vwmatprima_fecha_checkColumnConstraints">} #+ Check constraints on the "vwmatprima.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwmatprima_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE vwmatprima.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwmatprima_fecha_checkColumnConstraints {<BLOCK Name="fct.vwmatprima_num_doc_checkColumnConstraints">} #+ Check constraints on the "vwmatprima.num_doc" column #+ #+ @param p_num_doc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwmatprima_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE vwmatprima.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_num_doc IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- num_doc: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwmatprima_num_doc_checkColumnConstraints {<BLOCK Name="fct.vwmatprima_fact_no_checkColumnConstraints">} #+ Check constraints on the "vwmatprima.fact_no" column #+ #+ @param p_fact_no - VARCHAR2(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwmatprima_fact_no_checkColumnConstraints(p_fact_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fact_no LIKE vwmatprima.fact_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwmatprima_fact_no_checkColumnConstraints {<BLOCK Name="fct.vwmatprima_conduce_no_checkColumnConstraints">} #+ Check constraints on the "vwmatprima.conduce_no" column #+ #+ @param p_conduce_no - VARCHAR2(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwmatprima_conduce_no_checkColumnConstraints(p_conduce_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_conduce_no LIKE vwmatprima.conduce_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwmatprima_conduce_no_checkColumnConstraints {<BLOCK Name="fct.vwmatprima_orden_compra_checkColumnConstraints">} #+ Check constraints on the "vwmatprima.orden_compra" column #+ #+ @param p_orden_compra - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwmatprima_orden_compra_checkColumnConstraints(p_orden_compra) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_orden_compra LIKE vwmatprima.orden_compra LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwmatprima_orden_compra_checkColumnConstraints {<BLOCK Name="fct.vwmatprima_tipo_checkColumnConstraints">} #+ Check constraints on the "vwmatprima.tipo" column #+ #+ @param p_tipo - VARCHAR2(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwmatprima_tipo_checkColumnConstraints(p_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo LIKE vwmatprima.tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwmatprima_tipo_checkColumnConstraints {<BLOCK Name="fct.vwmatprima_ano_checkColumnConstraints">} #+ Check constraints on the "vwmatprima.ano" column #+ #+ @param p_ano - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwmatprima_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE vwmatprima.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwmatprima_ano_checkColumnConstraints {<BLOCK Name="fct.vwmatprima_numero_mes_checkColumnConstraints">} #+ Check constraints on the "vwmatprima.numero_mes" column #+ #+ @param p_numero_mes - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwmatprima_numero_mes_checkColumnConstraints(p_numero_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_numero_mes LIKE vwmatprima.numero_mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwmatprima_numero_mes_checkColumnConstraints {<BLOCK Name="fct.vwmatprima_mes_checkColumnConstraints">} #+ Check constraints on the "vwmatprima.mes" column #+ #+ @param p_mes - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwmatprima_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE vwmatprima.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwmatprima_mes_checkColumnConstraints {<BLOCK Name="fct.vwmatprima_depto_a_checkColumnConstraints">} #+ Check constraints on the "vwmatprima.depto_a" column #+ #+ @param p_depto_a - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwmatprima_depto_a_checkColumnConstraints(p_depto_a) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_depto_a LIKE vwmatprima.depto_a LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwmatprima_depto_a_checkColumnConstraints {<BLOCK Name="fct.vwmatprima_nom_dpto_checkColumnConstraints">} #+ Check constraints on the "vwmatprima.nom_dpto" column #+ #+ @param p_nom_dpto - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwmatprima_nom_dpto_checkColumnConstraints(p_nom_dpto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nom_dpto LIKE vwmatprima.nom_dpto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwmatprima_nom_dpto_checkColumnConstraints {<BLOCK Name="fct.vwmatprima_origen_checkColumnConstraints">} #+ Check constraints on the "vwmatprima.origen" column #+ #+ @param p_origen - VARCHAR2(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwmatprima_origen_checkColumnConstraints(p_origen) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_origen LIKE vwmatprima.origen LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_origen IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- origen: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwmatprima_origen_checkColumnConstraints {<BLOCK Name="fct.vwmatprima_existencia_checkColumnConstraints">} #+ Check constraints on the "vwmatprima.existencia" column #+ #+ @param p_existencia - DECIMAL(38,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwmatprima_existencia_checkColumnConstraints(p_existencia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_existencia LIKE vwmatprima.existencia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwmatprima_existencia_checkColumnConstraints {<BLOCK Name="fct.vwipprodterm_checkTableConstraints">} #+ Check constraints on the "vwipprodterm" table #+ #+ @param p_data - a row data LIKE vwipprodterm.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vwipprodterm_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vwipprodterm.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vwipprodterm_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwipprodterm_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwipprodterm_mes_orden_checkColumnConstraints(p_data.mes_orden) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwipprodterm_cod_origen_checkColumnConstraints(p_data.cod_origen) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwipprodterm_origen_checkColumnConstraints(p_data.origen) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwipprodterm_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwipprodterm_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwipprodterm_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwipprodterm_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwipprodterm_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwipprodterm_unidad_med_checkColumnConstraints(p_data.unidad_med) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwipprodterm_numero_doc_checkColumnConstraints(p_data.numero_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwipprodterm_orden_compra_checkColumnConstraints(p_data.orden_compra) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwipprodterm_orden_pedido_checkColumnConstraints(p_data.orden_pedido) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwipprodterm_codigo_mov_checkColumnConstraints(p_data.codigo_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwipprodterm_descripcion_mov_checkColumnConstraints(p_data.descripcion_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwipprodterm_cantidad1_checkColumnConstraints(p_data.cantidad1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwipprodterm_cantidad2_checkColumnConstraints(p_data.cantidad2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwipprodterm_costo_standard_checkColumnConstraints(p_data.costo_standard) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwipprodterm_valorstd_checkColumnConstraints(p_data.valorstd) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwipprodterm_producto_checkColumnConstraints(p_data.producto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwipprodterm_checkTableConstraints {<BLOCK Name="fct.vwipprodterm_ano_checkColumnConstraints">} #+ Check constraints on the "vwipprodterm.ano" column #+ #+ @param p_ano - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwipprodterm_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE vwipprodterm.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwipprodterm_ano_checkColumnConstraints {<BLOCK Name="fct.vwipprodterm_mes_checkColumnConstraints">} #+ Check constraints on the "vwipprodterm.mes" column #+ #+ @param p_mes - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwipprodterm_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE vwipprodterm.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwipprodterm_mes_checkColumnConstraints {<BLOCK Name="fct.vwipprodterm_mes_orden_checkColumnConstraints">} #+ Check constraints on the "vwipprodterm.mes_orden" column #+ #+ @param p_mes_orden - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwipprodterm_mes_orden_checkColumnConstraints(p_mes_orden) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes_orden LIKE vwipprodterm.mes_orden LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwipprodterm_mes_orden_checkColumnConstraints {<BLOCK Name="fct.vwipprodterm_cod_origen_checkColumnConstraints">} #+ Check constraints on the "vwipprodterm.cod_origen" column #+ #+ @param p_cod_origen - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwipprodterm_cod_origen_checkColumnConstraints(p_cod_origen) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_origen LIKE vwipprodterm.cod_origen LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_origen IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_origen: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwipprodterm_cod_origen_checkColumnConstraints {<BLOCK Name="fct.vwipprodterm_origen_checkColumnConstraints">} #+ Check constraints on the "vwipprodterm.origen" column #+ #+ @param p_origen - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwipprodterm_origen_checkColumnConstraints(p_origen) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_origen LIKE vwipprodterm.origen LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwipprodterm_origen_checkColumnConstraints {<BLOCK Name="fct.vwipprodterm_cod_n_checkColumnConstraints">} #+ Check constraints on the "vwipprodterm.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwipprodterm_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE vwipprodterm.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwipprodterm_cod_n_checkColumnConstraints {<BLOCK Name="fct.vwipprodterm_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "vwipprodterm.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwipprodterm_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE vwipprodterm.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_grupo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_grupo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwipprodterm_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.vwipprodterm_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "vwipprodterm.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwipprodterm_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE vwipprodterm.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tipo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tipo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwipprodterm_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.vwipprodterm_cod_sec_checkColumnConstraints">} #+ Check constraints on the "vwipprodterm.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwipprodterm_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE vwipprodterm.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwipprodterm_cod_sec_checkColumnConstraints {<BLOCK Name="fct.vwipprodterm_descripcion_checkColumnConstraints">} #+ Check constraints on the "vwipprodterm.descripcion" column #+ #+ @param p_descripcion - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwipprodterm_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE vwipprodterm.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_descripcion IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- descripcion: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwipprodterm_descripcion_checkColumnConstraints {<BLOCK Name="fct.vwipprodterm_unidad_med_checkColumnConstraints">} #+ Check constraints on the "vwipprodterm.unidad_med" column #+ #+ @param p_unidad_med - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwipprodterm_unidad_med_checkColumnConstraints(p_unidad_med) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_unidad_med LIKE vwipprodterm.unidad_med LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwipprodterm_unidad_med_checkColumnConstraints {<BLOCK Name="fct.vwipprodterm_numero_doc_checkColumnConstraints">} #+ Check constraints on the "vwipprodterm.numero_doc" column #+ #+ @param p_numero_doc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwipprodterm_numero_doc_checkColumnConstraints(p_numero_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_numero_doc LIKE vwipprodterm.numero_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_numero_doc IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- numero_doc: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwipprodterm_numero_doc_checkColumnConstraints {<BLOCK Name="fct.vwipprodterm_orden_compra_checkColumnConstraints">} #+ Check constraints on the "vwipprodterm.orden_compra" column #+ #+ @param p_orden_compra - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwipprodterm_orden_compra_checkColumnConstraints(p_orden_compra) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_orden_compra LIKE vwipprodterm.orden_compra LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwipprodterm_orden_compra_checkColumnConstraints {<BLOCK Name="fct.vwipprodterm_orden_pedido_checkColumnConstraints">} #+ Check constraints on the "vwipprodterm.orden_pedido" column #+ #+ @param p_orden_pedido - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwipprodterm_orden_pedido_checkColumnConstraints(p_orden_pedido) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_orden_pedido LIKE vwipprodterm.orden_pedido LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwipprodterm_orden_pedido_checkColumnConstraints {<BLOCK Name="fct.vwipprodterm_codigo_mov_checkColumnConstraints">} #+ Check constraints on the "vwipprodterm.codigo_mov" column #+ #+ @param p_codigo_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwipprodterm_codigo_mov_checkColumnConstraints(p_codigo_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codigo_mov LIKE vwipprodterm.codigo_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_codigo_mov IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- codigo_mov: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwipprodterm_codigo_mov_checkColumnConstraints {<BLOCK Name="fct.vwipprodterm_descripcion_mov_checkColumnConstraints">} #+ Check constraints on the "vwipprodterm.descripcion_mov" column #+ #+ @param p_descripcion_mov - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwipprodterm_descripcion_mov_checkColumnConstraints(p_descripcion_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion_mov LIKE vwipprodterm.descripcion_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwipprodterm_descripcion_mov_checkColumnConstraints {<BLOCK Name="fct.vwipprodterm_cantidad1_checkColumnConstraints">} #+ Check constraints on the "vwipprodterm.cantidad1" column #+ #+ @param p_cantidad1 - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwipprodterm_cantidad1_checkColumnConstraints(p_cantidad1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad1 LIKE vwipprodterm.cantidad1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwipprodterm_cantidad1_checkColumnConstraints {<BLOCK Name="fct.vwipprodterm_cantidad2_checkColumnConstraints">} #+ Check constraints on the "vwipprodterm.cantidad2" column #+ #+ @param p_cantidad2 - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwipprodterm_cantidad2_checkColumnConstraints(p_cantidad2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad2 LIKE vwipprodterm.cantidad2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cantidad2 IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cantidad2: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwipprodterm_cantidad2_checkColumnConstraints {<BLOCK Name="fct.vwipprodterm_costo_standard_checkColumnConstraints">} #+ Check constraints on the "vwipprodterm.costo_standard" column #+ #+ @param p_costo_standard - DECIMAL(14,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwipprodterm_costo_standard_checkColumnConstraints(p_costo_standard) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_costo_standard LIKE vwipprodterm.costo_standard LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwipprodterm_costo_standard_checkColumnConstraints {<BLOCK Name="fct.vwipprodterm_valorstd_checkColumnConstraints">} #+ Check constraints on the "vwipprodterm.valorstd" column #+ #+ @param p_valorstd - DECIMAL(27,9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwipprodterm_valorstd_checkColumnConstraints(p_valorstd) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valorstd LIKE vwipprodterm.valorstd LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwipprodterm_valorstd_checkColumnConstraints {<BLOCK Name="fct.vwipprodterm_producto_checkColumnConstraints">} #+ Check constraints on the "vwipprodterm.producto" column #+ #+ @param p_producto - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwipprodterm_producto_checkColumnConstraints(p_producto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_producto LIKE vwipprodterm.producto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwipprodterm_producto_checkColumnConstraints {<BLOCK Name="fct.vwipconteopda_checkTableConstraints">} #+ Check constraints on the "vwipconteopda" table #+ #+ @param p_data - a row data LIKE vwipconteopda.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vwipconteopda_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vwipconteopda.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vwipconteopda_idtrx_checkColumnConstraints(p_data.idtrx) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwipconteopda_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwipconteopda_bodega_checkColumnConstraints(p_data.bodega) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwipconteopda_cod_seccion_checkColumnConstraints(p_data.cod_seccion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwipconteopda_cod_tramo_checkColumnConstraints(p_data.cod_tramo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwipconteopda_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwipconteopda_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwipconteopda_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwipconteopda_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwipconteopda_descrip_esp_checkColumnConstraints(p_data.descrip_esp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwipconteopda_almacen_checkColumnConstraints(p_data.almacen) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwipconteopda_seccion_checkColumnConstraints(p_data.seccion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwipconteopda_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwipconteopda_usariopda_checkColumnConstraints(p_data.usariopda) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwipconteopda_fecharegistro_checkColumnConstraints(p_data.fecharegistro) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwipconteopda_checkTableConstraints {<BLOCK Name="fct.vwipconteopda_idtrx_checkColumnConstraints">} #+ Check constraints on the "vwipconteopda.idtrx" column #+ #+ @param p_idtrx - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwipconteopda_idtrx_checkColumnConstraints(p_idtrx) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_idtrx LIKE vwipconteopda.idtrx LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwipconteopda_idtrx_checkColumnConstraints {<BLOCK Name="fct.vwipconteopda_fecha_checkColumnConstraints">} #+ Check constraints on the "vwipconteopda.fecha" column #+ #+ @param p_fecha - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwipconteopda_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE vwipconteopda.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwipconteopda_fecha_checkColumnConstraints {<BLOCK Name="fct.vwipconteopda_bodega_checkColumnConstraints">} #+ Check constraints on the "vwipconteopda.bodega" column #+ #+ @param p_bodega - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwipconteopda_bodega_checkColumnConstraints(p_bodega) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_bodega LIKE vwipconteopda.bodega LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwipconteopda_bodega_checkColumnConstraints {<BLOCK Name="fct.vwipconteopda_cod_seccion_checkColumnConstraints">} #+ Check constraints on the "vwipconteopda.cod_seccion" column #+ #+ @param p_cod_seccion - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwipconteopda_cod_seccion_checkColumnConstraints(p_cod_seccion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_seccion LIKE vwipconteopda.cod_seccion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwipconteopda_cod_seccion_checkColumnConstraints {<BLOCK Name="fct.vwipconteopda_cod_tramo_checkColumnConstraints">} #+ Check constraints on the "vwipconteopda.cod_tramo" column #+ #+ @param p_cod_tramo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwipconteopda_cod_tramo_checkColumnConstraints(p_cod_tramo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tramo LIKE vwipconteopda.cod_tramo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwipconteopda_cod_tramo_checkColumnConstraints {<BLOCK Name="fct.vwipconteopda_cod_n_checkColumnConstraints">} #+ Check constraints on the "vwipconteopda.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwipconteopda_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE vwipconteopda.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwipconteopda_cod_n_checkColumnConstraints {<BLOCK Name="fct.vwipconteopda_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "vwipconteopda.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwipconteopda_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE vwipconteopda.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwipconteopda_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.vwipconteopda_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "vwipconteopda.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwipconteopda_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE vwipconteopda.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwipconteopda_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.vwipconteopda_cod_sec_checkColumnConstraints">} #+ Check constraints on the "vwipconteopda.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwipconteopda_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE vwipconteopda.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwipconteopda_cod_sec_checkColumnConstraints {<BLOCK Name="fct.vwipconteopda_descrip_esp_checkColumnConstraints">} #+ Check constraints on the "vwipconteopda.descrip_esp" column #+ #+ @param p_descrip_esp - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwipconteopda_descrip_esp_checkColumnConstraints(p_descrip_esp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip_esp LIKE vwipconteopda.descrip_esp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_descrip_esp IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- descrip_esp: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwipconteopda_descrip_esp_checkColumnConstraints {<BLOCK Name="fct.vwipconteopda_almacen_checkColumnConstraints">} #+ Check constraints on the "vwipconteopda.almacen" column #+ #+ @param p_almacen - VARCHAR2(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwipconteopda_almacen_checkColumnConstraints(p_almacen) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_almacen LIKE vwipconteopda.almacen LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwipconteopda_almacen_checkColumnConstraints {<BLOCK Name="fct.vwipconteopda_seccion_checkColumnConstraints">} #+ Check constraints on the "vwipconteopda.seccion" column #+ #+ @param p_seccion - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwipconteopda_seccion_checkColumnConstraints(p_seccion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_seccion LIKE vwipconteopda.seccion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwipconteopda_seccion_checkColumnConstraints {<BLOCK Name="fct.vwipconteopda_cantidad_checkColumnConstraints">} #+ Check constraints on the "vwipconteopda.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwipconteopda_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE vwipconteopda.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwipconteopda_cantidad_checkColumnConstraints {<BLOCK Name="fct.vwipconteopda_usariopda_checkColumnConstraints">} #+ Check constraints on the "vwipconteopda.usariopda" column #+ #+ @param p_usariopda - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwipconteopda_usariopda_checkColumnConstraints(p_usariopda) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_usariopda LIKE vwipconteopda.usariopda LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwipconteopda_usariopda_checkColumnConstraints {<BLOCK Name="fct.vwipconteopda_fecharegistro_checkColumnConstraints">} #+ Check constraints on the "vwipconteopda.fecharegistro" column #+ #+ @param p_fecharegistro - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwipconteopda_fecharegistro_checkColumnConstraints(p_fecharegistro) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecharegistro LIKE vwipconteopda.fecharegistro LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwipconteopda_fecharegistro_checkColumnConstraints {<BLOCK Name="fct.vwestadoordenes_checkTableConstraints">} #+ Check constraints on the "vwestadoordenes" table #+ #+ @param p_data - a row data LIKE vwestadoordenes.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vwestadoordenes_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vwestadoordenes.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vwestadoordenes_orden_checkColumnConstraints(p_data.orden) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwestadoordenes_fecha_orgen_checkColumnConstraints(p_data.fecha_orgen) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwestadoordenes_estatus_checkColumnConstraints(p_data.estatus) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwestadoordenes_cliente_checkColumnConstraints(p_data.cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwestadoordenes_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwestadoordenes_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwestadoordenes_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwestadoordenes_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwestadoordenes_producto_checkColumnConstraints(p_data.producto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwestadoordenes_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwestadoordenes_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwestadoordenes_numero_mes_checkColumnConstraints(p_data.numero_mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwestadoordenes_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwestadoordenes_cantidaddespacho_checkColumnConstraints(p_data.cantidaddespacho) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwestadoordenes_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwestadoordenes_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwestadoordenes_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwestadoordenes_detalle_checkColumnConstraints(p_data.detalle) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwestadoordenes_area_checkColumnConstraints(p_data.area) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwestadoordenes_checkTableConstraints {<BLOCK Name="fct.vwestadoordenes_orden_checkColumnConstraints">} #+ Check constraints on the "vwestadoordenes.orden" column #+ #+ @param p_orden - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwestadoordenes_orden_checkColumnConstraints(p_orden) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_orden LIKE vwestadoordenes.orden LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_orden IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- orden: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwestadoordenes_orden_checkColumnConstraints {<BLOCK Name="fct.vwestadoordenes_fecha_orgen_checkColumnConstraints">} #+ Check constraints on the "vwestadoordenes.fecha_orgen" column #+ #+ @param p_fecha_orgen - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwestadoordenes_fecha_orgen_checkColumnConstraints(p_fecha_orgen) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_orgen LIKE vwestadoordenes.fecha_orgen LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_fecha_orgen IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- fecha_orgen: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwestadoordenes_fecha_orgen_checkColumnConstraints {<BLOCK Name="fct.vwestadoordenes_estatus_checkColumnConstraints">} #+ Check constraints on the "vwestadoordenes.estatus" column #+ #+ @param p_estatus - VARCHAR2(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwestadoordenes_estatus_checkColumnConstraints(p_estatus) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_estatus LIKE vwestadoordenes.estatus LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_estatus IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- estatus: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwestadoordenes_estatus_checkColumnConstraints {<BLOCK Name="fct.vwestadoordenes_cliente_checkColumnConstraints">} #+ Check constraints on the "vwestadoordenes.cliente" column #+ #+ @param p_cliente - CHAR(100) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwestadoordenes_cliente_checkColumnConstraints(p_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cliente LIKE vwestadoordenes.cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwestadoordenes_cliente_checkColumnConstraints {<BLOCK Name="fct.vwestadoordenes_cod_n_checkColumnConstraints">} #+ Check constraints on the "vwestadoordenes.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwestadoordenes_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE vwestadoordenes.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwestadoordenes_cod_n_checkColumnConstraints {<BLOCK Name="fct.vwestadoordenes_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "vwestadoordenes.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwestadoordenes_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE vwestadoordenes.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_grupo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_grupo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwestadoordenes_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.vwestadoordenes_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "vwestadoordenes.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwestadoordenes_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE vwestadoordenes.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tipo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tipo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwestadoordenes_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.vwestadoordenes_cod_sec_checkColumnConstraints">} #+ Check constraints on the "vwestadoordenes.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwestadoordenes_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE vwestadoordenes.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwestadoordenes_cod_sec_checkColumnConstraints {<BLOCK Name="fct.vwestadoordenes_producto_checkColumnConstraints">} #+ Check constraints on the "vwestadoordenes.producto" column #+ #+ @param p_producto - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwestadoordenes_producto_checkColumnConstraints(p_producto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_producto LIKE vwestadoordenes.producto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_producto IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- producto: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwestadoordenes_producto_checkColumnConstraints {<BLOCK Name="fct.vwestadoordenes_cantidad_checkColumnConstraints">} #+ Check constraints on the "vwestadoordenes.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwestadoordenes_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE vwestadoordenes.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwestadoordenes_cantidad_checkColumnConstraints {<BLOCK Name="fct.vwestadoordenes_ano_checkColumnConstraints">} #+ Check constraints on the "vwestadoordenes.ano" column #+ #+ @param p_ano - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwestadoordenes_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE vwestadoordenes.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwestadoordenes_ano_checkColumnConstraints {<BLOCK Name="fct.vwestadoordenes_numero_mes_checkColumnConstraints">} #+ Check constraints on the "vwestadoordenes.numero_mes" column #+ #+ @param p_numero_mes - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwestadoordenes_numero_mes_checkColumnConstraints(p_numero_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_numero_mes LIKE vwestadoordenes.numero_mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwestadoordenes_numero_mes_checkColumnConstraints {<BLOCK Name="fct.vwestadoordenes_mes_checkColumnConstraints">} #+ Check constraints on the "vwestadoordenes.mes" column #+ #+ @param p_mes - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwestadoordenes_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE vwestadoordenes.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwestadoordenes_mes_checkColumnConstraints {<BLOCK Name="fct.vwestadoordenes_cantidaddespacho_checkColumnConstraints">} #+ Check constraints on the "vwestadoordenes.cantidaddespacho" column #+ #+ @param p_cantidaddespacho - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwestadoordenes_cantidaddespacho_checkColumnConstraints(p_cantidaddespacho) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidaddespacho LIKE vwestadoordenes.cantidaddespacho LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwestadoordenes_cantidaddespacho_checkColumnConstraints {<BLOCK Name="fct.vwestadoordenes_num_doc_checkColumnConstraints">} #+ Check constraints on the "vwestadoordenes.num_doc" column #+ #+ @param p_num_doc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwestadoordenes_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE vwestadoordenes.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwestadoordenes_num_doc_checkColumnConstraints {<BLOCK Name="fct.vwestadoordenes_fecha_checkColumnConstraints">} #+ Check constraints on the "vwestadoordenes.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwestadoordenes_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE vwestadoordenes.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwestadoordenes_fecha_checkColumnConstraints {<BLOCK Name="fct.vwestadoordenes_cod_mov_checkColumnConstraints">} #+ Check constraints on the "vwestadoordenes.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwestadoordenes_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE vwestadoordenes.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwestadoordenes_cod_mov_checkColumnConstraints {<BLOCK Name="fct.vwestadoordenes_detalle_checkColumnConstraints">} #+ Check constraints on the "vwestadoordenes.detalle" column #+ #+ @param p_detalle - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwestadoordenes_detalle_checkColumnConstraints(p_detalle) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_detalle LIKE vwestadoordenes.detalle LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwestadoordenes_detalle_checkColumnConstraints {<BLOCK Name="fct.vwestadoordenes_area_checkColumnConstraints">} #+ Check constraints on the "vwestadoordenes.area" column #+ #+ @param p_area - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwestadoordenes_area_checkColumnConstraints(p_area) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_area LIKE vwestadoordenes.area LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwestadoordenes_area_checkColumnConstraints {<BLOCK Name="fct.vwestado_checkTableConstraints">} #+ Check constraints on the "vwestado" table #+ #+ @param p_data - a row data LIKE vwestado.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vwestado_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vwestado.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vwestado_cuenta_no_checkColumnConstraints(p_data.cuenta_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwestado_estado_a_checkColumnConstraints(p_data.estado_a) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwestado_estado_m_checkColumnConstraints(p_data.estado_m) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwestado_balance_ant_checkColumnConstraints(p_data.balance_ant) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwestado_actividad_checkColumnConstraints(p_data.actividad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwestado_balance_act_checkColumnConstraints(p_data.balance_act) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwestado_checkTableConstraints {<BLOCK Name="fct.vwestado_cuenta_no_checkColumnConstraints">} #+ Check constraints on the "vwestado.cuenta_no" column #+ #+ @param p_cuenta_no - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwestado_cuenta_no_checkColumnConstraints(p_cuenta_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_no LIKE vwestado.cuenta_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwestado_cuenta_no_checkColumnConstraints {<BLOCK Name="fct.vwestado_estado_a_checkColumnConstraints">} #+ Check constraints on the "vwestado.estado_a" column #+ #+ @param p_estado_a - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwestado_estado_a_checkColumnConstraints(p_estado_a) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_estado_a LIKE vwestado.estado_a LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwestado_estado_a_checkColumnConstraints {<BLOCK Name="fct.vwestado_estado_m_checkColumnConstraints">} #+ Check constraints on the "vwestado.estado_m" column #+ #+ @param p_estado_m - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwestado_estado_m_checkColumnConstraints(p_estado_m) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_estado_m LIKE vwestado.estado_m LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwestado_estado_m_checkColumnConstraints {<BLOCK Name="fct.vwestado_balance_ant_checkColumnConstraints">} #+ Check constraints on the "vwestado.balance_ant" column #+ #+ @param p_balance_ant - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwestado_balance_ant_checkColumnConstraints(p_balance_ant) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_balance_ant LIKE vwestado.balance_ant LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwestado_balance_ant_checkColumnConstraints {<BLOCK Name="fct.vwestado_actividad_checkColumnConstraints">} #+ Check constraints on the "vwestado.actividad" column #+ #+ @param p_actividad - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwestado_actividad_checkColumnConstraints(p_actividad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_actividad LIKE vwestado.actividad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwestado_actividad_checkColumnConstraints {<BLOCK Name="fct.vwestado_balance_act_checkColumnConstraints">} #+ Check constraints on the "vwestado.balance_act" column #+ #+ @param p_balance_act - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwestado_balance_act_checkColumnConstraints(p_balance_act) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_balance_act LIKE vwestado.balance_act LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwestado_balance_act_checkColumnConstraints {<BLOCK Name="fct.vwcxc_checkTableConstraints">} #+ Check constraints on the "vwcxc" table #+ #+ @param p_data - a row data LIKE vwcxc.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vwcxc_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vwcxc.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vwcxc_fecha_orig_checkColumnConstraints(p_data.fecha_orig) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcxc_fecha_ven_checkColumnConstraints(p_data.fecha_ven) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcxc_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcxc_tipodocumento_checkColumnConstraints(p_data.tipodocumento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcxc_tipo_cliente_checkColumnConstraints(p_data.tipo_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcxc_sec_cliente_checkColumnConstraints(p_data.sec_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcxc_valor_checkColumnConstraints(p_data.valor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcxc_monto_desc_checkColumnConstraints(p_data.monto_desc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcxc_cliente_checkColumnConstraints(p_data.cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcxc_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcxc_numeromes_checkColumnConstraints(p_data.numeromes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcxc_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcxc_codigovendedor_checkColumnConstraints(p_data.codigovendedor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcxc_vendedor_checkColumnConstraints(p_data.vendedor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcxc_balance_checkColumnConstraints(p_data.balance) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcxc_fecha_corte_checkColumnConstraints(p_data.fecha_corte) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcxc_documentoaplica_checkColumnConstraints(p_data.documentoaplica) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcxc_checkTableConstraints {<BLOCK Name="fct.vwcxc_fecha_orig_checkColumnConstraints">} #+ Check constraints on the "vwcxc.fecha_orig" column #+ #+ @param p_fecha_orig - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcxc_fecha_orig_checkColumnConstraints(p_fecha_orig) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_orig LIKE vwcxc.fecha_orig LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcxc_fecha_orig_checkColumnConstraints {<BLOCK Name="fct.vwcxc_fecha_ven_checkColumnConstraints">} #+ Check constraints on the "vwcxc.fecha_ven" column #+ #+ @param p_fecha_ven - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcxc_fecha_ven_checkColumnConstraints(p_fecha_ven) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_ven LIKE vwcxc.fecha_ven LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcxc_fecha_ven_checkColumnConstraints {<BLOCK Name="fct.vwcxc_num_doc_checkColumnConstraints">} #+ Check constraints on the "vwcxc.num_doc" column #+ #+ @param p_num_doc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcxc_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE vwcxc.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_num_doc IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- num_doc: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcxc_num_doc_checkColumnConstraints {<BLOCK Name="fct.vwcxc_tipodocumento_checkColumnConstraints">} #+ Check constraints on the "vwcxc.tipodocumento" column #+ #+ @param p_tipodocumento - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcxc_tipodocumento_checkColumnConstraints(p_tipodocumento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipodocumento LIKE vwcxc.tipodocumento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcxc_tipodocumento_checkColumnConstraints {<BLOCK Name="fct.vwcxc_tipo_cliente_checkColumnConstraints">} #+ Check constraints on the "vwcxc.tipo_cliente" column #+ #+ @param p_tipo_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcxc_tipo_cliente_checkColumnConstraints(p_tipo_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_cliente LIKE vwcxc.tipo_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcxc_tipo_cliente_checkColumnConstraints {<BLOCK Name="fct.vwcxc_sec_cliente_checkColumnConstraints">} #+ Check constraints on the "vwcxc.sec_cliente" column #+ #+ @param p_sec_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcxc_sec_cliente_checkColumnConstraints(p_sec_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_cliente LIKE vwcxc.sec_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcxc_sec_cliente_checkColumnConstraints {<BLOCK Name="fct.vwcxc_valor_checkColumnConstraints">} #+ Check constraints on the "vwcxc.valor" column #+ #+ @param p_valor - DECIMAL(14,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcxc_valor_checkColumnConstraints(p_valor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor LIKE vwcxc.valor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcxc_valor_checkColumnConstraints {<BLOCK Name="fct.vwcxc_monto_desc_checkColumnConstraints">} #+ Check constraints on the "vwcxc.monto_desc" column #+ #+ @param p_monto_desc - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcxc_monto_desc_checkColumnConstraints(p_monto_desc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_monto_desc LIKE vwcxc.monto_desc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcxc_monto_desc_checkColumnConstraints {<BLOCK Name="fct.vwcxc_cliente_checkColumnConstraints">} #+ Check constraints on the "vwcxc.cliente" column #+ #+ @param p_cliente - CHAR(100) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcxc_cliente_checkColumnConstraints(p_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cliente LIKE vwcxc.cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcxc_cliente_checkColumnConstraints {<BLOCK Name="fct.vwcxc_ano_checkColumnConstraints">} #+ Check constraints on the "vwcxc.ano" column #+ #+ @param p_ano - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcxc_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE vwcxc.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcxc_ano_checkColumnConstraints {<BLOCK Name="fct.vwcxc_numeromes_checkColumnConstraints">} #+ Check constraints on the "vwcxc.numeromes" column #+ #+ @param p_numeromes - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcxc_numeromes_checkColumnConstraints(p_numeromes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_numeromes LIKE vwcxc.numeromes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcxc_numeromes_checkColumnConstraints {<BLOCK Name="fct.vwcxc_mes_checkColumnConstraints">} #+ Check constraints on the "vwcxc.mes" column #+ #+ @param p_mes - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcxc_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE vwcxc.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcxc_mes_checkColumnConstraints {<BLOCK Name="fct.vwcxc_codigovendedor_checkColumnConstraints">} #+ Check constraints on the "vwcxc.codigovendedor" column #+ #+ @param p_codigovendedor - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcxc_codigovendedor_checkColumnConstraints(p_codigovendedor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codigovendedor LIKE vwcxc.codigovendedor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_codigovendedor IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- codigovendedor: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcxc_codigovendedor_checkColumnConstraints {<BLOCK Name="fct.vwcxc_vendedor_checkColumnConstraints">} #+ Check constraints on the "vwcxc.vendedor" column #+ #+ @param p_vendedor - VARCHAR2(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcxc_vendedor_checkColumnConstraints(p_vendedor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_vendedor LIKE vwcxc.vendedor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcxc_vendedor_checkColumnConstraints {<BLOCK Name="fct.vwcxc_balance_checkColumnConstraints">} #+ Check constraints on the "vwcxc.balance" column #+ #+ @param p_balance - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcxc_balance_checkColumnConstraints(p_balance) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_balance LIKE vwcxc.balance LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcxc_balance_checkColumnConstraints {<BLOCK Name="fct.vwcxc_fecha_corte_checkColumnConstraints">} #+ Check constraints on the "vwcxc.fecha_corte" column #+ #+ @param p_fecha_corte - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcxc_fecha_corte_checkColumnConstraints(p_fecha_corte) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_corte LIKE vwcxc.fecha_corte LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcxc_fecha_corte_checkColumnConstraints {<BLOCK Name="fct.vwcxc_documentoaplica_checkColumnConstraints">} #+ Check constraints on the "vwcxc.documentoaplica" column #+ #+ @param p_documentoaplica - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcxc_documentoaplica_checkColumnConstraints(p_documentoaplica) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_documentoaplica LIKE vwcxc.documentoaplica LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcxc_documentoaplica_checkColumnConstraints {<BLOCK Name="fct.vwconduces_checkTableConstraints">} #+ Check constraints on the "vwconduces" table #+ #+ @param p_data - a row data LIKE vwconduces.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vwconduces_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vwconduces.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vwconduces_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwconduces_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwconduces_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwconduces_documento_checkColumnConstraints(p_data.documento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwconduces_orden_checkColumnConstraints(p_data.orden) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwconduces_codigomov_checkColumnConstraints(p_data.codigomov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwconduces_descripcionmov_checkColumnConstraints(p_data.descripcionmov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwconduces_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwconduces_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwconduces_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwconduces_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwconduces_descripcionprod_checkColumnConstraints(p_data.descripcionprod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwconduces_unidadmed_checkColumnConstraints(p_data.unidadmed) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwconduces_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwconduces_fechafactura_checkColumnConstraints(p_data.fechafactura) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwconduces_factura_checkColumnConstraints(p_data.factura) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwconduces_nombrecliente_checkColumnConstraints(p_data.nombrecliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwconduces_tipocliente_checkColumnConstraints(p_data.tipocliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwconduces_codigocliente_checkColumnConstraints(p_data.codigocliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwconduces_neto_checkColumnConstraints(p_data.neto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwconduces_estado_checkColumnConstraints(p_data.estado) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwconduces_usuario_checkColumnConstraints(p_data.usuario) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwconduces_checkTableConstraints {<BLOCK Name="fct.vwconduces_ano_checkColumnConstraints">} #+ Check constraints on the "vwconduces.ano" column #+ #+ @param p_ano - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwconduces_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE vwconduces.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwconduces_ano_checkColumnConstraints {<BLOCK Name="fct.vwconduces_mes_checkColumnConstraints">} #+ Check constraints on the "vwconduces.mes" column #+ #+ @param p_mes - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwconduces_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE vwconduces.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwconduces_mes_checkColumnConstraints {<BLOCK Name="fct.vwconduces_fecha_checkColumnConstraints">} #+ Check constraints on the "vwconduces.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwconduces_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE vwconduces.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_fecha IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- fecha: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwconduces_fecha_checkColumnConstraints {<BLOCK Name="fct.vwconduces_documento_checkColumnConstraints">} #+ Check constraints on the "vwconduces.documento" column #+ #+ @param p_documento - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwconduces_documento_checkColumnConstraints(p_documento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_documento LIKE vwconduces.documento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_documento IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- documento: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwconduces_documento_checkColumnConstraints {<BLOCK Name="fct.vwconduces_orden_checkColumnConstraints">} #+ Check constraints on the "vwconduces.orden" column #+ #+ @param p_orden - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwconduces_orden_checkColumnConstraints(p_orden) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_orden LIKE vwconduces.orden LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwconduces_orden_checkColumnConstraints {<BLOCK Name="fct.vwconduces_codigomov_checkColumnConstraints">} #+ Check constraints on the "vwconduces.codigomov" column #+ #+ @param p_codigomov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwconduces_codigomov_checkColumnConstraints(p_codigomov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codigomov LIKE vwconduces.codigomov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_codigomov IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- codigomov: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwconduces_codigomov_checkColumnConstraints {<BLOCK Name="fct.vwconduces_descripcionmov_checkColumnConstraints">} #+ Check constraints on the "vwconduces.descripcionmov" column #+ #+ @param p_descripcionmov - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwconduces_descripcionmov_checkColumnConstraints(p_descripcionmov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcionmov LIKE vwconduces.descripcionmov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwconduces_descripcionmov_checkColumnConstraints {<BLOCK Name="fct.vwconduces_cod_n_checkColumnConstraints">} #+ Check constraints on the "vwconduces.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwconduces_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE vwconduces.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwconduces_cod_n_checkColumnConstraints {<BLOCK Name="fct.vwconduces_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "vwconduces.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwconduces_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE vwconduces.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_grupo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_grupo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwconduces_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.vwconduces_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "vwconduces.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwconduces_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE vwconduces.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tipo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tipo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwconduces_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.vwconduces_cod_sec_checkColumnConstraints">} #+ Check constraints on the "vwconduces.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwconduces_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE vwconduces.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwconduces_cod_sec_checkColumnConstraints {<BLOCK Name="fct.vwconduces_descripcionprod_checkColumnConstraints">} #+ Check constraints on the "vwconduces.descripcionprod" column #+ #+ @param p_descripcionprod - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwconduces_descripcionprod_checkColumnConstraints(p_descripcionprod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcionprod LIKE vwconduces.descripcionprod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_descripcionprod IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- descripcionprod: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwconduces_descripcionprod_checkColumnConstraints {<BLOCK Name="fct.vwconduces_unidadmed_checkColumnConstraints">} #+ Check constraints on the "vwconduces.unidadmed" column #+ #+ @param p_unidadmed - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwconduces_unidadmed_checkColumnConstraints(p_unidadmed) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_unidadmed LIKE vwconduces.unidadmed LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwconduces_unidadmed_checkColumnConstraints {<BLOCK Name="fct.vwconduces_cantidad_checkColumnConstraints">} #+ Check constraints on the "vwconduces.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwconduces_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE vwconduces.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cantidad IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cantidad: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwconduces_cantidad_checkColumnConstraints {<BLOCK Name="fct.vwconduces_fechafactura_checkColumnConstraints">} #+ Check constraints on the "vwconduces.fechafactura" column #+ #+ @param p_fechafactura - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwconduces_fechafactura_checkColumnConstraints(p_fechafactura) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fechafactura LIKE vwconduces.fechafactura LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwconduces_fechafactura_checkColumnConstraints {<BLOCK Name="fct.vwconduces_factura_checkColumnConstraints">} #+ Check constraints on the "vwconduces.factura" column #+ #+ @param p_factura - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwconduces_factura_checkColumnConstraints(p_factura) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_factura LIKE vwconduces.factura LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_factura IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- factura: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwconduces_factura_checkColumnConstraints {<BLOCK Name="fct.vwconduces_nombrecliente_checkColumnConstraints">} #+ Check constraints on the "vwconduces.nombrecliente" column #+ #+ @param p_nombrecliente - CHAR(100) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwconduces_nombrecliente_checkColumnConstraints(p_nombrecliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombrecliente LIKE vwconduces.nombrecliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwconduces_nombrecliente_checkColumnConstraints {<BLOCK Name="fct.vwconduces_tipocliente_checkColumnConstraints">} #+ Check constraints on the "vwconduces.tipocliente" column #+ #+ @param p_tipocliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwconduces_tipocliente_checkColumnConstraints(p_tipocliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipocliente LIKE vwconduces.tipocliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_tipocliente IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- tipocliente: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwconduces_tipocliente_checkColumnConstraints {<BLOCK Name="fct.vwconduces_codigocliente_checkColumnConstraints">} #+ Check constraints on the "vwconduces.codigocliente" column #+ #+ @param p_codigocliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwconduces_codigocliente_checkColumnConstraints(p_codigocliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codigocliente LIKE vwconduces.codigocliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_codigocliente IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- codigocliente: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwconduces_codigocliente_checkColumnConstraints {<BLOCK Name="fct.vwconduces_neto_checkColumnConstraints">} #+ Check constraints on the "vwconduces.neto" column #+ #+ @param p_neto - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwconduces_neto_checkColumnConstraints(p_neto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_neto LIKE vwconduces.neto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwconduces_neto_checkColumnConstraints {<BLOCK Name="fct.vwconduces_estado_checkColumnConstraints">} #+ Check constraints on the "vwconduces.estado" column #+ #+ @param p_estado - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwconduces_estado_checkColumnConstraints(p_estado) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_estado LIKE vwconduces.estado LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwconduces_estado_checkColumnConstraints {<BLOCK Name="fct.vwconduces_usuario_checkColumnConstraints">} #+ Check constraints on the "vwconduces.usuario" column #+ #+ @param p_usuario - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwconduces_usuario_checkColumnConstraints(p_usuario) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_usuario LIKE vwconduces.usuario LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwconduces_usuario_checkColumnConstraints {<BLOCK Name="fct.vwcompras_checkTableConstraints">} #+ Check constraints on the "vwcompras" table #+ #+ @param p_data - a row data LIKE vwcompras.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vwcompras_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vwcompras.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vwcompras_tipoorden_checkColumnConstraints(p_data.tipoorden) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcompras_cod_sp_checkColumnConstraints(p_data.cod_sp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcompras_cod_sp_sec_checkColumnConstraints(p_data.cod_sp_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcompras_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcompras_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcompras_num_oc_checkColumnConstraints(p_data.num_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcompras_fech_oc_checkColumnConstraints(p_data.fech_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcompras_nom_sp_checkColumnConstraints(p_data.nom_sp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcompras_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcompras_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcompras_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcompras_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcompras_material_checkColumnConstraints(p_data.material) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcompras_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcompras_precio_checkColumnConstraints(p_data.precio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcompras_otrarefencia_checkColumnConstraints(p_data.otrarefencia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcompras_proforma_checkColumnConstraints(p_data.proforma) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcompras_checkTableConstraints {<BLOCK Name="fct.vwcompras_tipoorden_checkColumnConstraints">} #+ Check constraints on the "vwcompras.tipoorden" column #+ #+ @param p_tipoorden - VARCHAR2(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcompras_tipoorden_checkColumnConstraints(p_tipoorden) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipoorden LIKE vwcompras.tipoorden LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_tipoorden IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- tipoorden: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcompras_tipoorden_checkColumnConstraints {<BLOCK Name="fct.vwcompras_cod_sp_checkColumnConstraints">} #+ Check constraints on the "vwcompras.cod_sp" column #+ #+ @param p_cod_sp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcompras_cod_sp_checkColumnConstraints(p_cod_sp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp LIKE vwcompras.cod_sp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcompras_cod_sp_checkColumnConstraints {<BLOCK Name="fct.vwcompras_cod_sp_sec_checkColumnConstraints">} #+ Check constraints on the "vwcompras.cod_sp_sec" column #+ #+ @param p_cod_sp_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcompras_cod_sp_sec_checkColumnConstraints(p_cod_sp_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp_sec LIKE vwcompras.cod_sp_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcompras_cod_sp_sec_checkColumnConstraints {<BLOCK Name="fct.vwcompras_ano_checkColumnConstraints">} #+ Check constraints on the "vwcompras.ano" column #+ #+ @param p_ano - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcompras_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE vwcompras.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcompras_ano_checkColumnConstraints {<BLOCK Name="fct.vwcompras_mes_checkColumnConstraints">} #+ Check constraints on the "vwcompras.mes" column #+ #+ @param p_mes - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcompras_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE vwcompras.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcompras_mes_checkColumnConstraints {<BLOCK Name="fct.vwcompras_num_oc_checkColumnConstraints">} #+ Check constraints on the "vwcompras.num_oc" column #+ #+ @param p_num_oc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcompras_num_oc_checkColumnConstraints(p_num_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_oc LIKE vwcompras.num_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_num_oc IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- num_oc: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcompras_num_oc_checkColumnConstraints {<BLOCK Name="fct.vwcompras_fech_oc_checkColumnConstraints">} #+ Check constraints on the "vwcompras.fech_oc" column #+ #+ @param p_fech_oc - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcompras_fech_oc_checkColumnConstraints(p_fech_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_oc LIKE vwcompras.fech_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcompras_fech_oc_checkColumnConstraints {<BLOCK Name="fct.vwcompras_nom_sp_checkColumnConstraints">} #+ Check constraints on the "vwcompras.nom_sp" column #+ #+ @param p_nom_sp - VARCHAR2(41) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcompras_nom_sp_checkColumnConstraints(p_nom_sp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nom_sp LIKE vwcompras.nom_sp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcompras_nom_sp_checkColumnConstraints {<BLOCK Name="fct.vwcompras_cod_n_checkColumnConstraints">} #+ Check constraints on the "vwcompras.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcompras_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE vwcompras.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcompras_cod_n_checkColumnConstraints {<BLOCK Name="fct.vwcompras_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "vwcompras.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcompras_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE vwcompras.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_grupo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_grupo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcompras_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.vwcompras_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "vwcompras.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcompras_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE vwcompras.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tipo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tipo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcompras_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.vwcompras_cod_sec_checkColumnConstraints">} #+ Check constraints on the "vwcompras.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcompras_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE vwcompras.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcompras_cod_sec_checkColumnConstraints {<BLOCK Name="fct.vwcompras_material_checkColumnConstraints">} #+ Check constraints on the "vwcompras.material" column #+ #+ @param p_material - VARCHAR2(105) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcompras_material_checkColumnConstraints(p_material) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_material LIKE vwcompras.material LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcompras_material_checkColumnConstraints {<BLOCK Name="fct.vwcompras_cantidad_checkColumnConstraints">} #+ Check constraints on the "vwcompras.cantidad" column #+ #+ @param p_cantidad - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcompras_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE vwcompras.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcompras_cantidad_checkColumnConstraints {<BLOCK Name="fct.vwcompras_precio_checkColumnConstraints">} #+ Check constraints on the "vwcompras.precio" column #+ #+ @param p_precio - DECIMAL(11,3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcompras_precio_checkColumnConstraints(p_precio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_precio LIKE vwcompras.precio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcompras_precio_checkColumnConstraints {<BLOCK Name="fct.vwcompras_otrarefencia_checkColumnConstraints">} #+ Check constraints on the "vwcompras.otrarefencia" column #+ #+ @param p_otrarefencia - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcompras_otrarefencia_checkColumnConstraints(p_otrarefencia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_otrarefencia LIKE vwcompras.otrarefencia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcompras_otrarefencia_checkColumnConstraints {<BLOCK Name="fct.vwcompras_proforma_checkColumnConstraints">} #+ Check constraints on the "vwcompras.proforma" column #+ #+ @param p_proforma - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcompras_proforma_checkColumnConstraints(p_proforma) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_proforma LIKE vwcompras.proforma LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcompras_proforma_checkColumnConstraints {<BLOCK Name="fct.vwcomisiones_checkTableConstraints">} #+ Check constraints on the "vwcomisiones" table #+ #+ @param p_data - a row data LIKE vwcomisiones.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vwcomisiones_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vwcomisiones.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vwcomisiones_tipoventas_checkColumnConstraints(p_data.tipoventas) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcomisiones_tipo_cliente_checkColumnConstraints(p_data.tipo_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcomisiones_sec_cliente_checkColumnConstraints(p_data.sec_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcomisiones_nombre_checkColumnConstraints(p_data.nombre) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcomisiones_sec_vend_checkColumnConstraints(p_data.sec_vend) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcomisiones_nombrev_checkColumnConstraints(p_data.nombrev) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcomisiones_apellidov_checkColumnConstraints(p_data.apellidov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcomisiones_porc_comisionv_checkColumnConstraints(p_data.porc_comisionv) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcomisiones_sec_vend_a_checkColumnConstraints(p_data.sec_vend_a) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcomisiones_nombre_a_checkColumnConstraints(p_data.nombre_a) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcomisiones_apellido_a_checkColumnConstraints(p_data.apellido_a) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcomisiones_porc_comisiona_checkColumnConstraints(p_data.porc_comisiona) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcomisiones_tipodocumento_checkColumnConstraints(p_data.tipodocumento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcomisiones_tipo_doc_checkColumnConstraints(p_data.tipo_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcomisiones_documento_checkColumnConstraints(p_data.documento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcomisiones_valor_checkColumnConstraints(p_data.valor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcomisiones_valor_itbi_checkColumnConstraints(p_data.valor_itbi) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcomisiones_aplica_a_checkColumnConstraints(p_data.aplica_a) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcomisiones_fechafactura_checkColumnConstraints(p_data.fechafactura) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcomisiones_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcomisiones_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcomisiones_numeromes_checkColumnConstraints(p_data.numeromes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcomisiones_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcomisiones_valor1_checkColumnConstraints(p_data.valor1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcomisiones_valor2_checkColumnConstraints(p_data.valor2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcomisiones_valor_orig_checkColumnConstraints(p_data.valor_orig) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcomisiones_tasa_checkColumnConstraints(p_data.tasa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcomisiones_chitbis_checkColumnConstraints(p_data.chitbis) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcomisiones_checkTableConstraints {<BLOCK Name="fct.vwcomisiones_tipoventas_checkColumnConstraints">} #+ Check constraints on the "vwcomisiones.tipoventas" column #+ #+ @param p_tipoventas - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcomisiones_tipoventas_checkColumnConstraints(p_tipoventas) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipoventas LIKE vwcomisiones.tipoventas LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcomisiones_tipoventas_checkColumnConstraints {<BLOCK Name="fct.vwcomisiones_tipo_cliente_checkColumnConstraints">} #+ Check constraints on the "vwcomisiones.tipo_cliente" column #+ #+ @param p_tipo_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcomisiones_tipo_cliente_checkColumnConstraints(p_tipo_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_cliente LIKE vwcomisiones.tipo_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcomisiones_tipo_cliente_checkColumnConstraints {<BLOCK Name="fct.vwcomisiones_sec_cliente_checkColumnConstraints">} #+ Check constraints on the "vwcomisiones.sec_cliente" column #+ #+ @param p_sec_cliente - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcomisiones_sec_cliente_checkColumnConstraints(p_sec_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_cliente LIKE vwcomisiones.sec_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcomisiones_sec_cliente_checkColumnConstraints {<BLOCK Name="fct.vwcomisiones_nombre_checkColumnConstraints">} #+ Check constraints on the "vwcomisiones.nombre" column #+ #+ @param p_nombre - CHAR(90) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcomisiones_nombre_checkColumnConstraints(p_nombre) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombre LIKE vwcomisiones.nombre LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcomisiones_nombre_checkColumnConstraints {<BLOCK Name="fct.vwcomisiones_sec_vend_checkColumnConstraints">} #+ Check constraints on the "vwcomisiones.sec_vend" column #+ #+ @param p_sec_vend - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcomisiones_sec_vend_checkColumnConstraints(p_sec_vend) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_vend LIKE vwcomisiones.sec_vend LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcomisiones_sec_vend_checkColumnConstraints {<BLOCK Name="fct.vwcomisiones_nombrev_checkColumnConstraints">} #+ Check constraints on the "vwcomisiones.nombrev" column #+ #+ @param p_nombrev - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcomisiones_nombrev_checkColumnConstraints(p_nombrev) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombrev LIKE vwcomisiones.nombrev LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcomisiones_nombrev_checkColumnConstraints {<BLOCK Name="fct.vwcomisiones_apellidov_checkColumnConstraints">} #+ Check constraints on the "vwcomisiones.apellidov" column #+ #+ @param p_apellidov - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcomisiones_apellidov_checkColumnConstraints(p_apellidov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_apellidov LIKE vwcomisiones.apellidov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcomisiones_apellidov_checkColumnConstraints {<BLOCK Name="fct.vwcomisiones_porc_comisionv_checkColumnConstraints">} #+ Check constraints on the "vwcomisiones.porc_comisionv" column #+ #+ @param p_porc_comisionv - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcomisiones_porc_comisionv_checkColumnConstraints(p_porc_comisionv) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_porc_comisionv LIKE vwcomisiones.porc_comisionv LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcomisiones_porc_comisionv_checkColumnConstraints {<BLOCK Name="fct.vwcomisiones_sec_vend_a_checkColumnConstraints">} #+ Check constraints on the "vwcomisiones.sec_vend_a" column #+ #+ @param p_sec_vend_a - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcomisiones_sec_vend_a_checkColumnConstraints(p_sec_vend_a) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_vend_a LIKE vwcomisiones.sec_vend_a LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcomisiones_sec_vend_a_checkColumnConstraints {<BLOCK Name="fct.vwcomisiones_nombre_a_checkColumnConstraints">} #+ Check constraints on the "vwcomisiones.nombre_a" column #+ #+ @param p_nombre_a - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcomisiones_nombre_a_checkColumnConstraints(p_nombre_a) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombre_a LIKE vwcomisiones.nombre_a LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcomisiones_nombre_a_checkColumnConstraints {<BLOCK Name="fct.vwcomisiones_apellido_a_checkColumnConstraints">} #+ Check constraints on the "vwcomisiones.apellido_a" column #+ #+ @param p_apellido_a - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcomisiones_apellido_a_checkColumnConstraints(p_apellido_a) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_apellido_a LIKE vwcomisiones.apellido_a LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcomisiones_apellido_a_checkColumnConstraints {<BLOCK Name="fct.vwcomisiones_porc_comisiona_checkColumnConstraints">} #+ Check constraints on the "vwcomisiones.porc_comisiona" column #+ #+ @param p_porc_comisiona - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcomisiones_porc_comisiona_checkColumnConstraints(p_porc_comisiona) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_porc_comisiona LIKE vwcomisiones.porc_comisiona LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcomisiones_porc_comisiona_checkColumnConstraints {<BLOCK Name="fct.vwcomisiones_tipodocumento_checkColumnConstraints">} #+ Check constraints on the "vwcomisiones.tipodocumento" column #+ #+ @param p_tipodocumento - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcomisiones_tipodocumento_checkColumnConstraints(p_tipodocumento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipodocumento LIKE vwcomisiones.tipodocumento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcomisiones_tipodocumento_checkColumnConstraints {<BLOCK Name="fct.vwcomisiones_tipo_doc_checkColumnConstraints">} #+ Check constraints on the "vwcomisiones.tipo_doc" column #+ #+ @param p_tipo_doc - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcomisiones_tipo_doc_checkColumnConstraints(p_tipo_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_doc LIKE vwcomisiones.tipo_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcomisiones_tipo_doc_checkColumnConstraints {<BLOCK Name="fct.vwcomisiones_documento_checkColumnConstraints">} #+ Check constraints on the "vwcomisiones.documento" column #+ #+ @param p_documento - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcomisiones_documento_checkColumnConstraints(p_documento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_documento LIKE vwcomisiones.documento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcomisiones_documento_checkColumnConstraints {<BLOCK Name="fct.vwcomisiones_valor_checkColumnConstraints">} #+ Check constraints on the "vwcomisiones.valor" column #+ #+ @param p_valor - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcomisiones_valor_checkColumnConstraints(p_valor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor LIKE vwcomisiones.valor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcomisiones_valor_checkColumnConstraints {<BLOCK Name="fct.vwcomisiones_valor_itbi_checkColumnConstraints">} #+ Check constraints on the "vwcomisiones.valor_itbi" column #+ #+ @param p_valor_itbi - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcomisiones_valor_itbi_checkColumnConstraints(p_valor_itbi) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor_itbi LIKE vwcomisiones.valor_itbi LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcomisiones_valor_itbi_checkColumnConstraints {<BLOCK Name="fct.vwcomisiones_aplica_a_checkColumnConstraints">} #+ Check constraints on the "vwcomisiones.aplica_a" column #+ #+ @param p_aplica_a - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcomisiones_aplica_a_checkColumnConstraints(p_aplica_a) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_aplica_a LIKE vwcomisiones.aplica_a LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcomisiones_aplica_a_checkColumnConstraints {<BLOCK Name="fct.vwcomisiones_fechafactura_checkColumnConstraints">} #+ Check constraints on the "vwcomisiones.fechafactura" column #+ #+ @param p_fechafactura - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcomisiones_fechafactura_checkColumnConstraints(p_fechafactura) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fechafactura LIKE vwcomisiones.fechafactura LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcomisiones_fechafactura_checkColumnConstraints {<BLOCK Name="fct.vwcomisiones_fecha_checkColumnConstraints">} #+ Check constraints on the "vwcomisiones.fecha" column #+ #+ @param p_fecha - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcomisiones_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE vwcomisiones.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcomisiones_fecha_checkColumnConstraints {<BLOCK Name="fct.vwcomisiones_ano_checkColumnConstraints">} #+ Check constraints on the "vwcomisiones.ano" column #+ #+ @param p_ano - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcomisiones_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE vwcomisiones.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcomisiones_ano_checkColumnConstraints {<BLOCK Name="fct.vwcomisiones_numeromes_checkColumnConstraints">} #+ Check constraints on the "vwcomisiones.numeromes" column #+ #+ @param p_numeromes - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcomisiones_numeromes_checkColumnConstraints(p_numeromes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_numeromes LIKE vwcomisiones.numeromes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcomisiones_numeromes_checkColumnConstraints {<BLOCK Name="fct.vwcomisiones_mes_checkColumnConstraints">} #+ Check constraints on the "vwcomisiones.mes" column #+ #+ @param p_mes - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcomisiones_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE vwcomisiones.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcomisiones_mes_checkColumnConstraints {<BLOCK Name="fct.vwcomisiones_valor1_checkColumnConstraints">} #+ Check constraints on the "vwcomisiones.valor1" column #+ #+ @param p_valor1 - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcomisiones_valor1_checkColumnConstraints(p_valor1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor1 LIKE vwcomisiones.valor1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcomisiones_valor1_checkColumnConstraints {<BLOCK Name="fct.vwcomisiones_valor2_checkColumnConstraints">} #+ Check constraints on the "vwcomisiones.valor2" column #+ #+ @param p_valor2 - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcomisiones_valor2_checkColumnConstraints(p_valor2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor2 LIKE vwcomisiones.valor2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcomisiones_valor2_checkColumnConstraints {<BLOCK Name="fct.vwcomisiones_valor_orig_checkColumnConstraints">} #+ Check constraints on the "vwcomisiones.valor_orig" column #+ #+ @param p_valor_orig - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcomisiones_valor_orig_checkColumnConstraints(p_valor_orig) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor_orig LIKE vwcomisiones.valor_orig LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcomisiones_valor_orig_checkColumnConstraints {<BLOCK Name="fct.vwcomisiones_tasa_checkColumnConstraints">} #+ Check constraints on the "vwcomisiones.tasa" column #+ #+ @param p_tasa - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcomisiones_tasa_checkColumnConstraints(p_tasa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tasa LIKE vwcomisiones.tasa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcomisiones_tasa_checkColumnConstraints {<BLOCK Name="fct.vwcomisiones_chitbis_checkColumnConstraints">} #+ Check constraints on the "vwcomisiones.chitbis" column #+ #+ @param p_chitbis - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcomisiones_chitbis_checkColumnConstraints(p_chitbis) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_chitbis LIKE vwcomisiones.chitbis LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcomisiones_chitbis_checkColumnConstraints {<BLOCK Name="fct.vwcodigosnuevos_checkTableConstraints">} #+ Check constraints on the "vwcodigosnuevos" table #+ #+ @param p_data - a row data LIKE vwcodigosnuevos.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vwcodigosnuevos_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vwcodigosnuevos.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vwcodigosnuevos_cod1_checkColumnConstraints(p_data.cod1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcodigosnuevos_cod2_checkColumnConstraints(p_data.cod2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcodigosnuevos_cod3_checkColumnConstraints(p_data.cod3) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcodigosnuevos_cod4_checkColumnConstraints(p_data.cod4) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcodigosnuevos_codigonuevo_checkColumnConstraints(p_data.codigonuevo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcodigosnuevos_codigoviejo_checkColumnConstraints(p_data.codigoviejo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcodigosnuevos_cod_cia_checkColumnConstraints(p_data.cod_cia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcodigosnuevos_pcodn_checkColumnConstraints(p_data.pcodn) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcodigosnuevos_pcodgrupo_checkColumnConstraints(p_data.pcodgrupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcodigosnuevos_pcodtipo_checkColumnConstraints(p_data.pcodtipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcodigosnuevos_pcodsec_checkColumnConstraints(p_data.pcodsec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcodigosnuevos_material_checkColumnConstraints(p_data.material) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcodigosnuevos_labor_checkColumnConstraints(p_data.labor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcodigosnuevos_gastos_checkColumnConstraints(p_data.gastos) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcodigosnuevos_factor_checkColumnConstraints(p_data.factor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcodigosnuevos_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcodigosnuevos_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcodigosnuevos_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcodigosnuevos_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcodigosnuevos_existencia_checkColumnConstraints(p_data.existencia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcodigosnuevos_checkTableConstraints {<BLOCK Name="fct.vwcodigosnuevos_cod1_checkColumnConstraints">} #+ Check constraints on the "vwcodigosnuevos.cod1" column #+ #+ @param p_cod1 - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcodigosnuevos_cod1_checkColumnConstraints(p_cod1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod1 LIKE vwcodigosnuevos.cod1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcodigosnuevos_cod1_checkColumnConstraints {<BLOCK Name="fct.vwcodigosnuevos_cod2_checkColumnConstraints">} #+ Check constraints on the "vwcodigosnuevos.cod2" column #+ #+ @param p_cod2 - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcodigosnuevos_cod2_checkColumnConstraints(p_cod2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod2 LIKE vwcodigosnuevos.cod2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcodigosnuevos_cod2_checkColumnConstraints {<BLOCK Name="fct.vwcodigosnuevos_cod3_checkColumnConstraints">} #+ Check constraints on the "vwcodigosnuevos.cod3" column #+ #+ @param p_cod3 - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcodigosnuevos_cod3_checkColumnConstraints(p_cod3) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod3 LIKE vwcodigosnuevos.cod3 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcodigosnuevos_cod3_checkColumnConstraints {<BLOCK Name="fct.vwcodigosnuevos_cod4_checkColumnConstraints">} #+ Check constraints on the "vwcodigosnuevos.cod4" column #+ #+ @param p_cod4 - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcodigosnuevos_cod4_checkColumnConstraints(p_cod4) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod4 LIKE vwcodigosnuevos.cod4 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcodigosnuevos_cod4_checkColumnConstraints {<BLOCK Name="fct.vwcodigosnuevos_codigonuevo_checkColumnConstraints">} #+ Check constraints on the "vwcodigosnuevos.codigonuevo" column #+ #+ @param p_codigonuevo - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcodigosnuevos_codigonuevo_checkColumnConstraints(p_codigonuevo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codigonuevo LIKE vwcodigosnuevos.codigonuevo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcodigosnuevos_codigonuevo_checkColumnConstraints {<BLOCK Name="fct.vwcodigosnuevos_codigoviejo_checkColumnConstraints">} #+ Check constraints on the "vwcodigosnuevos.codigoviejo" column #+ #+ @param p_codigoviejo - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcodigosnuevos_codigoviejo_checkColumnConstraints(p_codigoviejo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codigoviejo LIKE vwcodigosnuevos.codigoviejo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_codigoviejo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- codigoviejo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcodigosnuevos_codigoviejo_checkColumnConstraints {<BLOCK Name="fct.vwcodigosnuevos_cod_cia_checkColumnConstraints">} #+ Check constraints on the "vwcodigosnuevos.cod_cia" column #+ #+ @param p_cod_cia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcodigosnuevos_cod_cia_checkColumnConstraints(p_cod_cia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_cia LIKE vwcodigosnuevos.cod_cia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcodigosnuevos_cod_cia_checkColumnConstraints {<BLOCK Name="fct.vwcodigosnuevos_pcodn_checkColumnConstraints">} #+ Check constraints on the "vwcodigosnuevos.pcodn" column #+ #+ @param p_pcodn - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcodigosnuevos_pcodn_checkColumnConstraints(p_pcodn) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_pcodn LIKE vwcodigosnuevos.pcodn LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcodigosnuevos_pcodn_checkColumnConstraints {<BLOCK Name="fct.vwcodigosnuevos_pcodgrupo_checkColumnConstraints">} #+ Check constraints on the "vwcodigosnuevos.pcodgrupo" column #+ #+ @param p_pcodgrupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcodigosnuevos_pcodgrupo_checkColumnConstraints(p_pcodgrupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_pcodgrupo LIKE vwcodigosnuevos.pcodgrupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcodigosnuevos_pcodgrupo_checkColumnConstraints {<BLOCK Name="fct.vwcodigosnuevos_pcodtipo_checkColumnConstraints">} #+ Check constraints on the "vwcodigosnuevos.pcodtipo" column #+ #+ @param p_pcodtipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcodigosnuevos_pcodtipo_checkColumnConstraints(p_pcodtipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_pcodtipo LIKE vwcodigosnuevos.pcodtipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcodigosnuevos_pcodtipo_checkColumnConstraints {<BLOCK Name="fct.vwcodigosnuevos_pcodsec_checkColumnConstraints">} #+ Check constraints on the "vwcodigosnuevos.pcodsec" column #+ #+ @param p_pcodsec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcodigosnuevos_pcodsec_checkColumnConstraints(p_pcodsec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_pcodsec LIKE vwcodigosnuevos.pcodsec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcodigosnuevos_pcodsec_checkColumnConstraints {<BLOCK Name="fct.vwcodigosnuevos_material_checkColumnConstraints">} #+ Check constraints on the "vwcodigosnuevos.material" column #+ #+ @param p_material - DECIMAL(18,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcodigosnuevos_material_checkColumnConstraints(p_material) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_material LIKE vwcodigosnuevos.material LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcodigosnuevos_material_checkColumnConstraints {<BLOCK Name="fct.vwcodigosnuevos_labor_checkColumnConstraints">} #+ Check constraints on the "vwcodigosnuevos.labor" column #+ #+ @param p_labor - DECIMAL(18,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcodigosnuevos_labor_checkColumnConstraints(p_labor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_labor LIKE vwcodigosnuevos.labor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcodigosnuevos_labor_checkColumnConstraints {<BLOCK Name="fct.vwcodigosnuevos_gastos_checkColumnConstraints">} #+ Check constraints on the "vwcodigosnuevos.gastos" column #+ #+ @param p_gastos - DECIMAL(18,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcodigosnuevos_gastos_checkColumnConstraints(p_gastos) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_gastos LIKE vwcodigosnuevos.gastos LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcodigosnuevos_gastos_checkColumnConstraints {<BLOCK Name="fct.vwcodigosnuevos_factor_checkColumnConstraints">} #+ Check constraints on the "vwcodigosnuevos.factor" column #+ #+ @param p_factor - DECIMAL(18,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcodigosnuevos_factor_checkColumnConstraints(p_factor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_factor LIKE vwcodigosnuevos.factor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcodigosnuevos_factor_checkColumnConstraints {<BLOCK Name="fct.vwcodigosnuevos_cod_n_checkColumnConstraints">} #+ Check constraints on the "vwcodigosnuevos.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcodigosnuevos_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE vwcodigosnuevos.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcodigosnuevos_cod_n_checkColumnConstraints {<BLOCK Name="fct.vwcodigosnuevos_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "vwcodigosnuevos.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcodigosnuevos_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE vwcodigosnuevos.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_grupo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_grupo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcodigosnuevos_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.vwcodigosnuevos_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "vwcodigosnuevos.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcodigosnuevos_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE vwcodigosnuevos.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tipo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tipo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcodigosnuevos_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.vwcodigosnuevos_cod_sec_checkColumnConstraints">} #+ Check constraints on the "vwcodigosnuevos.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcodigosnuevos_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE vwcodigosnuevos.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcodigosnuevos_cod_sec_checkColumnConstraints {<BLOCK Name="fct.vwcodigosnuevos_existencia_checkColumnConstraints">} #+ Check constraints on the "vwcodigosnuevos.existencia" column #+ #+ @param p_existencia - DECIMAL(38,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcodigosnuevos_existencia_checkColumnConstraints(p_existencia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_existencia LIKE vwcodigosnuevos.existencia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcodigosnuevos_existencia_checkColumnConstraints {<BLOCK Name="fct.vwcobros_checkTableConstraints">} #+ Check constraints on the "vwcobros" table #+ #+ @param p_data - a row data LIKE vwcobros.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vwcobros_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vwcobros.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vwcobros_ficha_checkColumnConstraints(p_data.ficha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcobros_primernombre_checkColumnConstraints(p_data.primernombre) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcobros_primerapellido_checkColumnConstraints(p_data.primerapellido) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcobros_tipocobro_checkColumnConstraints(p_data.tipocobro) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcobros_valor_checkColumnConstraints(p_data.valor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcobros_valorrd_checkColumnConstraints(p_data.valorrd) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcobros_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcobros_numero_mes_checkColumnConstraints(p_data.numero_mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcobros_nombremes_checkColumnConstraints(p_data.nombremes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcobros_nombresucursal_checkColumnConstraints(p_data.nombresucursal) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcobros_tasa_checkColumnConstraints(p_data.tasa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcobros_ventas_checkColumnConstraints(p_data.ventas) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcobros_ocupacion_checkColumnConstraints(p_data.ocupacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcobros_fecha_orig_checkColumnConstraints(p_data.fecha_orig) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcobros_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcobros_tipo_doc_checkColumnConstraints(p_data.tipo_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcobros_tipo_cliente_checkColumnConstraints(p_data.tipo_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcobros_sec_cliente_checkColumnConstraints(p_data.sec_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwcobros_nombre_checkColumnConstraints(p_data.nombre) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcobros_checkTableConstraints {<BLOCK Name="fct.vwcobros_ficha_checkColumnConstraints">} #+ Check constraints on the "vwcobros.ficha" column #+ #+ @param p_ficha - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcobros_ficha_checkColumnConstraints(p_ficha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ficha LIKE vwcobros.ficha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_ficha IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- ficha: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcobros_ficha_checkColumnConstraints {<BLOCK Name="fct.vwcobros_primernombre_checkColumnConstraints">} #+ Check constraints on the "vwcobros.primernombre" column #+ #+ @param p_primernombre - CHAR(15) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcobros_primernombre_checkColumnConstraints(p_primernombre) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_primernombre LIKE vwcobros.primernombre LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcobros_primernombre_checkColumnConstraints {<BLOCK Name="fct.vwcobros_primerapellido_checkColumnConstraints">} #+ Check constraints on the "vwcobros.primerapellido" column #+ #+ @param p_primerapellido - CHAR(15) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcobros_primerapellido_checkColumnConstraints(p_primerapellido) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_primerapellido LIKE vwcobros.primerapellido LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcobros_primerapellido_checkColumnConstraints {<BLOCK Name="fct.vwcobros_tipocobro_checkColumnConstraints">} #+ Check constraints on the "vwcobros.tipocobro" column #+ #+ @param p_tipocobro - VARCHAR2(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcobros_tipocobro_checkColumnConstraints(p_tipocobro) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipocobro LIKE vwcobros.tipocobro LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcobros_tipocobro_checkColumnConstraints {<BLOCK Name="fct.vwcobros_valor_checkColumnConstraints">} #+ Check constraints on the "vwcobros.valor" column #+ #+ @param p_valor - DECIMAL(38,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcobros_valor_checkColumnConstraints(p_valor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor LIKE vwcobros.valor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcobros_valor_checkColumnConstraints {<BLOCK Name="fct.vwcobros_valorrd_checkColumnConstraints">} #+ Check constraints on the "vwcobros.valorrd" column #+ #+ @param p_valorrd - DECIMAL(38,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcobros_valorrd_checkColumnConstraints(p_valorrd) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valorrd LIKE vwcobros.valorrd LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcobros_valorrd_checkColumnConstraints {<BLOCK Name="fct.vwcobros_ano_checkColumnConstraints">} #+ Check constraints on the "vwcobros.ano" column #+ #+ @param p_ano - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcobros_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE vwcobros.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcobros_ano_checkColumnConstraints {<BLOCK Name="fct.vwcobros_numero_mes_checkColumnConstraints">} #+ Check constraints on the "vwcobros.numero_mes" column #+ #+ @param p_numero_mes - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcobros_numero_mes_checkColumnConstraints(p_numero_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_numero_mes LIKE vwcobros.numero_mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcobros_numero_mes_checkColumnConstraints {<BLOCK Name="fct.vwcobros_nombremes_checkColumnConstraints">} #+ Check constraints on the "vwcobros.nombremes" column #+ #+ @param p_nombremes - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcobros_nombremes_checkColumnConstraints(p_nombremes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombremes LIKE vwcobros.nombremes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcobros_nombremes_checkColumnConstraints {<BLOCK Name="fct.vwcobros_nombresucursal_checkColumnConstraints">} #+ Check constraints on the "vwcobros.nombresucursal" column #+ #+ @param p_nombresucursal - VARCHAR2(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcobros_nombresucursal_checkColumnConstraints(p_nombresucursal) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombresucursal LIKE vwcobros.nombresucursal LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_nombresucursal IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- nombresucursal: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcobros_nombresucursal_checkColumnConstraints {<BLOCK Name="fct.vwcobros_tasa_checkColumnConstraints">} #+ Check constraints on the "vwcobros.tasa" column #+ #+ @param p_tasa - DECIMAL(12,3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcobros_tasa_checkColumnConstraints(p_tasa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tasa LIKE vwcobros.tasa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcobros_tasa_checkColumnConstraints {<BLOCK Name="fct.vwcobros_ventas_checkColumnConstraints">} #+ Check constraints on the "vwcobros.ventas" column #+ #+ @param p_ventas - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcobros_ventas_checkColumnConstraints(p_ventas) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ventas LIKE vwcobros.ventas LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcobros_ventas_checkColumnConstraints {<BLOCK Name="fct.vwcobros_ocupacion_checkColumnConstraints">} #+ Check constraints on the "vwcobros.ocupacion" column #+ #+ @param p_ocupacion - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcobros_ocupacion_checkColumnConstraints(p_ocupacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ocupacion LIKE vwcobros.ocupacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcobros_ocupacion_checkColumnConstraints {<BLOCK Name="fct.vwcobros_fecha_orig_checkColumnConstraints">} #+ Check constraints on the "vwcobros.fecha_orig" column #+ #+ @param p_fecha_orig - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcobros_fecha_orig_checkColumnConstraints(p_fecha_orig) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_orig LIKE vwcobros.fecha_orig LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcobros_fecha_orig_checkColumnConstraints {<BLOCK Name="fct.vwcobros_num_doc_checkColumnConstraints">} #+ Check constraints on the "vwcobros.num_doc" column #+ #+ @param p_num_doc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcobros_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE vwcobros.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_num_doc IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- num_doc: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcobros_num_doc_checkColumnConstraints {<BLOCK Name="fct.vwcobros_tipo_doc_checkColumnConstraints">} #+ Check constraints on the "vwcobros.tipo_doc" column #+ #+ @param p_tipo_doc - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcobros_tipo_doc_checkColumnConstraints(p_tipo_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_doc LIKE vwcobros.tipo_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcobros_tipo_doc_checkColumnConstraints {<BLOCK Name="fct.vwcobros_tipo_cliente_checkColumnConstraints">} #+ Check constraints on the "vwcobros.tipo_cliente" column #+ #+ @param p_tipo_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcobros_tipo_cliente_checkColumnConstraints(p_tipo_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_cliente LIKE vwcobros.tipo_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcobros_tipo_cliente_checkColumnConstraints {<BLOCK Name="fct.vwcobros_sec_cliente_checkColumnConstraints">} #+ Check constraints on the "vwcobros.sec_cliente" column #+ #+ @param p_sec_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcobros_sec_cliente_checkColumnConstraints(p_sec_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_cliente LIKE vwcobros.sec_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcobros_sec_cliente_checkColumnConstraints {<BLOCK Name="fct.vwcobros_nombre_checkColumnConstraints">} #+ Check constraints on the "vwcobros.nombre" column #+ #+ @param p_nombre - CHAR(100) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwcobros_nombre_checkColumnConstraints(p_nombre) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombre LIKE vwcobros.nombre LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwcobros_nombre_checkColumnConstraints {<BLOCK Name="fct.vwclientesnocompran_checkTableConstraints">} #+ Check constraints on the "vwclientesnocompran" table #+ #+ @param p_data - a row data LIKE vwclientesnocompran.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vwclientesnocompran_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vwclientesnocompran.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vwclientesnocompran_vendedor_checkColumnConstraints(p_data.vendedor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwclientesnocompran_tipo_cliente_checkColumnConstraints(p_data.tipo_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwclientesnocompran_sec_cliente_checkColumnConstraints(p_data.sec_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwclientesnocompran_nombre_checkColumnConstraints(p_data.nombre) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwclientesnocompran_telefono_checkColumnConstraints(p_data.telefono) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwclientesnocompran_telefono_casa_checkColumnConstraints(p_data.telefono_casa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwclientesnocompran_contacto_checkColumnConstraints(p_data.contacto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwclientesnocompran_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwclientesnocompran_rnc_checkColumnConstraints(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.vwclientesnocompran_checkTableConstraints {<BLOCK Name="fct.vwclientesnocompran_vendedor_checkColumnConstraints">} #+ Check constraints on the "vwclientesnocompran.vendedor" column #+ #+ @param p_vendedor - VARCHAR2(31) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwclientesnocompran_vendedor_checkColumnConstraints(p_vendedor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_vendedor LIKE vwclientesnocompran.vendedor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_vendedor IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- vendedor: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwclientesnocompran_vendedor_checkColumnConstraints {<BLOCK Name="fct.vwclientesnocompran_tipo_cliente_checkColumnConstraints">} #+ Check constraints on the "vwclientesnocompran.tipo_cliente" column #+ #+ @param p_tipo_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwclientesnocompran_tipo_cliente_checkColumnConstraints(p_tipo_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_cliente LIKE vwclientesnocompran.tipo_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwclientesnocompran_tipo_cliente_checkColumnConstraints {<BLOCK Name="fct.vwclientesnocompran_sec_cliente_checkColumnConstraints">} #+ Check constraints on the "vwclientesnocompran.sec_cliente" column #+ #+ @param p_sec_cliente - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwclientesnocompran_sec_cliente_checkColumnConstraints(p_sec_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_cliente LIKE vwclientesnocompran.sec_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwclientesnocompran_sec_cliente_checkColumnConstraints {<BLOCK Name="fct.vwclientesnocompran_nombre_checkColumnConstraints">} #+ Check constraints on the "vwclientesnocompran.nombre" column #+ #+ @param p_nombre - CHAR(100) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwclientesnocompran_nombre_checkColumnConstraints(p_nombre) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombre LIKE vwclientesnocompran.nombre LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwclientesnocompran_nombre_checkColumnConstraints {<BLOCK Name="fct.vwclientesnocompran_telefono_checkColumnConstraints">} #+ Check constraints on the "vwclientesnocompran.telefono" column #+ #+ @param p_telefono - CHAR(16) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwclientesnocompran_telefono_checkColumnConstraints(p_telefono) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_telefono LIKE vwclientesnocompran.telefono LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwclientesnocompran_telefono_checkColumnConstraints {<BLOCK Name="fct.vwclientesnocompran_telefono_casa_checkColumnConstraints">} #+ Check constraints on the "vwclientesnocompran.telefono_casa" column #+ #+ @param p_telefono_casa - CHAR(15) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwclientesnocompran_telefono_casa_checkColumnConstraints(p_telefono_casa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_telefono_casa LIKE vwclientesnocompran.telefono_casa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwclientesnocompran_telefono_casa_checkColumnConstraints {<BLOCK Name="fct.vwclientesnocompran_contacto_checkColumnConstraints">} #+ Check constraints on the "vwclientesnocompran.contacto" column #+ #+ @param p_contacto - VARCHAR2(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwclientesnocompran_contacto_checkColumnConstraints(p_contacto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_contacto LIKE vwclientesnocompran.contacto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwclientesnocompran_contacto_checkColumnConstraints {<BLOCK Name="fct.vwclientesnocompran_mes_checkColumnConstraints">} #+ Check constraints on the "vwclientesnocompran.mes" column #+ #+ @param p_mes - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwclientesnocompran_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE vwclientesnocompran.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwclientesnocompran_mes_checkColumnConstraints {<BLOCK Name="fct.vwclientesnocompran_rnc_checkColumnConstraints">} #+ Check constraints on the "vwclientesnocompran.rnc" column #+ #+ @param p_rnc - CHAR(11) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwclientesnocompran_rnc_checkColumnConstraints(p_rnc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_rnc LIKE vwclientesnocompran.rnc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwclientesnocompran_rnc_checkColumnConstraints {<BLOCK Name="fct.vwanaliticoh_checkTableConstraints">} #+ Check constraints on the "vwanaliticoh" table #+ #+ @param p_data - a row data LIKE vwanaliticoh.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vwanaliticoh_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vwanaliticoh.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vwanaliticoh_control_checkColumnConstraints(p_data.control) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanaliticoh_descripcionc_checkColumnConstraints(p_data.descripcionc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanaliticoh_aplicaa_checkColumnConstraints(p_data.aplicaa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanaliticoh_descripcionapl_checkColumnConstraints(p_data.descripcionapl) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanaliticoh_cuenta_checkColumnConstraints(p_data.cuenta) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanaliticoh_descripcioncuenta_checkColumnConstraints(p_data.descripcioncuenta) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanaliticoh_referencia_checkColumnConstraints(p_data.referencia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanaliticoh_fechatransaccion_checkColumnConstraints(p_data.fechatransaccion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanaliticoh_detalle1_checkColumnConstraints(p_data.detalle1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanaliticoh_detalle2_checkColumnConstraints(p_data.detalle2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanaliticoh_debito_checkColumnConstraints(p_data.debito) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanaliticoh_credito_checkColumnConstraints(p_data.credito) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanaliticoh_balance_checkColumnConstraints(p_data.balance) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanaliticoh_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanaliticoh_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanaliticoh_codigodepartamento_checkColumnConstraints(p_data.codigodepartamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanaliticoh_nombredepartamento_checkColumnConstraints(p_data.nombredepartamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanaliticoh_usuariocreador_checkColumnConstraints(p_data.usuariocreador) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanaliticoh_fechacreacion_checkColumnConstraints(p_data.fechacreacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanaliticoh_usuariomodificador_checkColumnConstraints(p_data.usuariomodificador) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanaliticoh_fechamodificacion_checkColumnConstraints(p_data.fechamodificacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanaliticoh_banco_checkColumnConstraints(p_data.banco) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanaliticoh_checkTableConstraints {<BLOCK Name="fct.vwanaliticoh_control_checkColumnConstraints">} #+ Check constraints on the "vwanaliticoh.control" column #+ #+ @param p_control - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanaliticoh_control_checkColumnConstraints(p_control) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_control LIKE vwanaliticoh.control LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanaliticoh_control_checkColumnConstraints {<BLOCK Name="fct.vwanaliticoh_descripcionc_checkColumnConstraints">} #+ Check constraints on the "vwanaliticoh.descripcionc" column #+ #+ @param p_descripcionc - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanaliticoh_descripcionc_checkColumnConstraints(p_descripcionc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcionc LIKE vwanaliticoh.descripcionc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanaliticoh_descripcionc_checkColumnConstraints {<BLOCK Name="fct.vwanaliticoh_aplicaa_checkColumnConstraints">} #+ Check constraints on the "vwanaliticoh.aplicaa" column #+ #+ @param p_aplicaa - VARCHAR2(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanaliticoh_aplicaa_checkColumnConstraints(p_aplicaa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_aplicaa LIKE vwanaliticoh.aplicaa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanaliticoh_aplicaa_checkColumnConstraints {<BLOCK Name="fct.vwanaliticoh_descripcionapl_checkColumnConstraints">} #+ Check constraints on the "vwanaliticoh.descripcionapl" column #+ #+ @param p_descripcionapl - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanaliticoh_descripcionapl_checkColumnConstraints(p_descripcionapl) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcionapl LIKE vwanaliticoh.descripcionapl LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanaliticoh_descripcionapl_checkColumnConstraints {<BLOCK Name="fct.vwanaliticoh_cuenta_checkColumnConstraints">} #+ Check constraints on the "vwanaliticoh.cuenta" column #+ #+ @param p_cuenta - VARCHAR2(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanaliticoh_cuenta_checkColumnConstraints(p_cuenta) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta LIKE vwanaliticoh.cuenta LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanaliticoh_cuenta_checkColumnConstraints {<BLOCK Name="fct.vwanaliticoh_descripcioncuenta_checkColumnConstraints">} #+ Check constraints on the "vwanaliticoh.descripcioncuenta" column #+ #+ @param p_descripcioncuenta - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanaliticoh_descripcioncuenta_checkColumnConstraints(p_descripcioncuenta) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcioncuenta LIKE vwanaliticoh.descripcioncuenta LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanaliticoh_descripcioncuenta_checkColumnConstraints {<BLOCK Name="fct.vwanaliticoh_referencia_checkColumnConstraints">} #+ Check constraints on the "vwanaliticoh.referencia" column #+ #+ @param p_referencia - VARCHAR2(14) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanaliticoh_referencia_checkColumnConstraints(p_referencia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_referencia LIKE vwanaliticoh.referencia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_referencia IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- referencia: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanaliticoh_referencia_checkColumnConstraints {<BLOCK Name="fct.vwanaliticoh_fechatransaccion_checkColumnConstraints">} #+ Check constraints on the "vwanaliticoh.fechatransaccion" column #+ #+ @param p_fechatransaccion - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanaliticoh_fechatransaccion_checkColumnConstraints(p_fechatransaccion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fechatransaccion LIKE vwanaliticoh.fechatransaccion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanaliticoh_fechatransaccion_checkColumnConstraints {<BLOCK Name="fct.vwanaliticoh_detalle1_checkColumnConstraints">} #+ Check constraints on the "vwanaliticoh.detalle1" column #+ #+ @param p_detalle1 - VARCHAR2(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanaliticoh_detalle1_checkColumnConstraints(p_detalle1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_detalle1 LIKE vwanaliticoh.detalle1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanaliticoh_detalle1_checkColumnConstraints {<BLOCK Name="fct.vwanaliticoh_detalle2_checkColumnConstraints">} #+ Check constraints on the "vwanaliticoh.detalle2" column #+ #+ @param p_detalle2 - VARCHAR2(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanaliticoh_detalle2_checkColumnConstraints(p_detalle2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_detalle2 LIKE vwanaliticoh.detalle2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanaliticoh_detalle2_checkColumnConstraints {<BLOCK Name="fct.vwanaliticoh_debito_checkColumnConstraints">} #+ Check constraints on the "vwanaliticoh.debito" column #+ #+ @param p_debito - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanaliticoh_debito_checkColumnConstraints(p_debito) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_debito LIKE vwanaliticoh.debito LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanaliticoh_debito_checkColumnConstraints {<BLOCK Name="fct.vwanaliticoh_credito_checkColumnConstraints">} #+ Check constraints on the "vwanaliticoh.credito" column #+ #+ @param p_credito - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanaliticoh_credito_checkColumnConstraints(p_credito) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_credito LIKE vwanaliticoh.credito LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanaliticoh_credito_checkColumnConstraints {<BLOCK Name="fct.vwanaliticoh_balance_checkColumnConstraints">} #+ Check constraints on the "vwanaliticoh.balance" column #+ #+ @param p_balance - DECIMAL(13,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanaliticoh_balance_checkColumnConstraints(p_balance) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_balance LIKE vwanaliticoh.balance LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanaliticoh_balance_checkColumnConstraints {<BLOCK Name="fct.vwanaliticoh_ano_checkColumnConstraints">} #+ Check constraints on the "vwanaliticoh.ano" column #+ #+ @param p_ano - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanaliticoh_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE vwanaliticoh.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanaliticoh_ano_checkColumnConstraints {<BLOCK Name="fct.vwanaliticoh_mes_checkColumnConstraints">} #+ Check constraints on the "vwanaliticoh.mes" column #+ #+ @param p_mes - VARCHAR2(41) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanaliticoh_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE vwanaliticoh.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanaliticoh_mes_checkColumnConstraints {<BLOCK Name="fct.vwanaliticoh_codigodepartamento_checkColumnConstraints">} #+ Check constraints on the "vwanaliticoh.codigodepartamento" column #+ #+ @param p_codigodepartamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanaliticoh_codigodepartamento_checkColumnConstraints(p_codigodepartamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codigodepartamento LIKE vwanaliticoh.codigodepartamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanaliticoh_codigodepartamento_checkColumnConstraints {<BLOCK Name="fct.vwanaliticoh_nombredepartamento_checkColumnConstraints">} #+ Check constraints on the "vwanaliticoh.nombredepartamento" column #+ #+ @param p_nombredepartamento - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanaliticoh_nombredepartamento_checkColumnConstraints(p_nombredepartamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombredepartamento LIKE vwanaliticoh.nombredepartamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanaliticoh_nombredepartamento_checkColumnConstraints {<BLOCK Name="fct.vwanaliticoh_usuariocreador_checkColumnConstraints">} #+ Check constraints on the "vwanaliticoh.usuariocreador" column #+ #+ @param p_usuariocreador - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanaliticoh_usuariocreador_checkColumnConstraints(p_usuariocreador) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_usuariocreador LIKE vwanaliticoh.usuariocreador LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanaliticoh_usuariocreador_checkColumnConstraints {<BLOCK Name="fct.vwanaliticoh_fechacreacion_checkColumnConstraints">} #+ Check constraints on the "vwanaliticoh.fechacreacion" column #+ #+ @param p_fechacreacion - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanaliticoh_fechacreacion_checkColumnConstraints(p_fechacreacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fechacreacion LIKE vwanaliticoh.fechacreacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanaliticoh_fechacreacion_checkColumnConstraints {<BLOCK Name="fct.vwanaliticoh_usuariomodificador_checkColumnConstraints">} #+ Check constraints on the "vwanaliticoh.usuariomodificador" column #+ #+ @param p_usuariomodificador - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanaliticoh_usuariomodificador_checkColumnConstraints(p_usuariomodificador) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_usuariomodificador LIKE vwanaliticoh.usuariomodificador LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanaliticoh_usuariomodificador_checkColumnConstraints {<BLOCK Name="fct.vwanaliticoh_fechamodificacion_checkColumnConstraints">} #+ Check constraints on the "vwanaliticoh.fechamodificacion" column #+ #+ @param p_fechamodificacion - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanaliticoh_fechamodificacion_checkColumnConstraints(p_fechamodificacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fechamodificacion LIKE vwanaliticoh.fechamodificacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanaliticoh_fechamodificacion_checkColumnConstraints {<BLOCK Name="fct.vwanaliticoh_banco_checkColumnConstraints">} #+ Check constraints on the "vwanaliticoh.banco" column #+ #+ @param p_banco - VARCHAR2(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanaliticoh_banco_checkColumnConstraints(p_banco) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_banco LIKE vwanaliticoh.banco LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanaliticoh_banco_checkColumnConstraints {<BLOCK Name="fct.vwanalitico_checkTableConstraints">} #+ Check constraints on the "vwanalitico" table #+ #+ @param p_data - a row data LIKE vwanalitico.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalitico_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vwanalitico.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vwanalitico_control_checkColumnConstraints(p_data.control) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanalitico_descripcionc_checkColumnConstraints(p_data.descripcionc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanalitico_aplicaa_checkColumnConstraints(p_data.aplicaa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanalitico_descripcionapl_checkColumnConstraints(p_data.descripcionapl) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanalitico_cuenta_checkColumnConstraints(p_data.cuenta) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanalitico_descripcioncuenta_checkColumnConstraints(p_data.descripcioncuenta) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanalitico_referencia_checkColumnConstraints(p_data.referencia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanalitico_fechatransaccion_checkColumnConstraints(p_data.fechatransaccion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanalitico_detalle1_checkColumnConstraints(p_data.detalle1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanalitico_detalle2_checkColumnConstraints(p_data.detalle2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanalitico_debito_checkColumnConstraints(p_data.debito) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanalitico_credito_checkColumnConstraints(p_data.credito) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanalitico_balance_checkColumnConstraints(p_data.balance) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanalitico_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanalitico_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanalitico_codigodepartamento_checkColumnConstraints(p_data.codigodepartamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanalitico_nombredepartamento_checkColumnConstraints(p_data.nombredepartamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanalitico_usuariocreador_checkColumnConstraints(p_data.usuariocreador) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanalitico_fechacreacion_checkColumnConstraints(p_data.fechacreacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanalitico_usuariomodificador_checkColumnConstraints(p_data.usuariomodificador) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanalitico_fechamodificacion_checkColumnConstraints(p_data.fechamodificacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanalitico_banco_checkColumnConstraints(p_data.banco) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalitico_checkTableConstraints {<BLOCK Name="fct.vwanalitico_control_checkColumnConstraints">} #+ Check constraints on the "vwanalitico.control" column #+ #+ @param p_control - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalitico_control_checkColumnConstraints(p_control) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_control LIKE vwanalitico.control LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalitico_control_checkColumnConstraints {<BLOCK Name="fct.vwanalitico_descripcionc_checkColumnConstraints">} #+ Check constraints on the "vwanalitico.descripcionc" column #+ #+ @param p_descripcionc - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalitico_descripcionc_checkColumnConstraints(p_descripcionc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcionc LIKE vwanalitico.descripcionc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalitico_descripcionc_checkColumnConstraints {<BLOCK Name="fct.vwanalitico_aplicaa_checkColumnConstraints">} #+ Check constraints on the "vwanalitico.aplicaa" column #+ #+ @param p_aplicaa - VARCHAR2(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalitico_aplicaa_checkColumnConstraints(p_aplicaa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_aplicaa LIKE vwanalitico.aplicaa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalitico_aplicaa_checkColumnConstraints {<BLOCK Name="fct.vwanalitico_descripcionapl_checkColumnConstraints">} #+ Check constraints on the "vwanalitico.descripcionapl" column #+ #+ @param p_descripcionapl - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalitico_descripcionapl_checkColumnConstraints(p_descripcionapl) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcionapl LIKE vwanalitico.descripcionapl LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalitico_descripcionapl_checkColumnConstraints {<BLOCK Name="fct.vwanalitico_cuenta_checkColumnConstraints">} #+ Check constraints on the "vwanalitico.cuenta" column #+ #+ @param p_cuenta - VARCHAR2(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalitico_cuenta_checkColumnConstraints(p_cuenta) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta LIKE vwanalitico.cuenta LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalitico_cuenta_checkColumnConstraints {<BLOCK Name="fct.vwanalitico_descripcioncuenta_checkColumnConstraints">} #+ Check constraints on the "vwanalitico.descripcioncuenta" column #+ #+ @param p_descripcioncuenta - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalitico_descripcioncuenta_checkColumnConstraints(p_descripcioncuenta) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcioncuenta LIKE vwanalitico.descripcioncuenta LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalitico_descripcioncuenta_checkColumnConstraints {<BLOCK Name="fct.vwanalitico_referencia_checkColumnConstraints">} #+ Check constraints on the "vwanalitico.referencia" column #+ #+ @param p_referencia - VARCHAR2(14) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalitico_referencia_checkColumnConstraints(p_referencia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_referencia LIKE vwanalitico.referencia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_referencia IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- referencia: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalitico_referencia_checkColumnConstraints {<BLOCK Name="fct.vwanalitico_fechatransaccion_checkColumnConstraints">} #+ Check constraints on the "vwanalitico.fechatransaccion" column #+ #+ @param p_fechatransaccion - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalitico_fechatransaccion_checkColumnConstraints(p_fechatransaccion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fechatransaccion LIKE vwanalitico.fechatransaccion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalitico_fechatransaccion_checkColumnConstraints {<BLOCK Name="fct.vwanalitico_detalle1_checkColumnConstraints">} #+ Check constraints on the "vwanalitico.detalle1" column #+ #+ @param p_detalle1 - VARCHAR2(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalitico_detalle1_checkColumnConstraints(p_detalle1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_detalle1 LIKE vwanalitico.detalle1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalitico_detalle1_checkColumnConstraints {<BLOCK Name="fct.vwanalitico_detalle2_checkColumnConstraints">} #+ Check constraints on the "vwanalitico.detalle2" column #+ #+ @param p_detalle2 - VARCHAR2(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalitico_detalle2_checkColumnConstraints(p_detalle2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_detalle2 LIKE vwanalitico.detalle2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalitico_detalle2_checkColumnConstraints {<BLOCK Name="fct.vwanalitico_debito_checkColumnConstraints">} #+ Check constraints on the "vwanalitico.debito" column #+ #+ @param p_debito - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalitico_debito_checkColumnConstraints(p_debito) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_debito LIKE vwanalitico.debito LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalitico_debito_checkColumnConstraints {<BLOCK Name="fct.vwanalitico_credito_checkColumnConstraints">} #+ Check constraints on the "vwanalitico.credito" column #+ #+ @param p_credito - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalitico_credito_checkColumnConstraints(p_credito) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_credito LIKE vwanalitico.credito LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalitico_credito_checkColumnConstraints {<BLOCK Name="fct.vwanalitico_balance_checkColumnConstraints">} #+ Check constraints on the "vwanalitico.balance" column #+ #+ @param p_balance - DECIMAL(13,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalitico_balance_checkColumnConstraints(p_balance) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_balance LIKE vwanalitico.balance LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalitico_balance_checkColumnConstraints {<BLOCK Name="fct.vwanalitico_ano_checkColumnConstraints">} #+ Check constraints on the "vwanalitico.ano" column #+ #+ @param p_ano - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalitico_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE vwanalitico.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalitico_ano_checkColumnConstraints {<BLOCK Name="fct.vwanalitico_mes_checkColumnConstraints">} #+ Check constraints on the "vwanalitico.mes" column #+ #+ @param p_mes - VARCHAR2(41) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalitico_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE vwanalitico.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalitico_mes_checkColumnConstraints {<BLOCK Name="fct.vwanalitico_codigodepartamento_checkColumnConstraints">} #+ Check constraints on the "vwanalitico.codigodepartamento" column #+ #+ @param p_codigodepartamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalitico_codigodepartamento_checkColumnConstraints(p_codigodepartamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codigodepartamento LIKE vwanalitico.codigodepartamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalitico_codigodepartamento_checkColumnConstraints {<BLOCK Name="fct.vwanalitico_nombredepartamento_checkColumnConstraints">} #+ Check constraints on the "vwanalitico.nombredepartamento" column #+ #+ @param p_nombredepartamento - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalitico_nombredepartamento_checkColumnConstraints(p_nombredepartamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombredepartamento LIKE vwanalitico.nombredepartamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalitico_nombredepartamento_checkColumnConstraints {<BLOCK Name="fct.vwanalitico_usuariocreador_checkColumnConstraints">} #+ Check constraints on the "vwanalitico.usuariocreador" column #+ #+ @param p_usuariocreador - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalitico_usuariocreador_checkColumnConstraints(p_usuariocreador) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_usuariocreador LIKE vwanalitico.usuariocreador LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalitico_usuariocreador_checkColumnConstraints {<BLOCK Name="fct.vwanalitico_fechacreacion_checkColumnConstraints">} #+ Check constraints on the "vwanalitico.fechacreacion" column #+ #+ @param p_fechacreacion - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalitico_fechacreacion_checkColumnConstraints(p_fechacreacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fechacreacion LIKE vwanalitico.fechacreacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalitico_fechacreacion_checkColumnConstraints {<BLOCK Name="fct.vwanalitico_usuariomodificador_checkColumnConstraints">} #+ Check constraints on the "vwanalitico.usuariomodificador" column #+ #+ @param p_usuariomodificador - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalitico_usuariomodificador_checkColumnConstraints(p_usuariomodificador) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_usuariomodificador LIKE vwanalitico.usuariomodificador LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalitico_usuariomodificador_checkColumnConstraints {<BLOCK Name="fct.vwanalitico_fechamodificacion_checkColumnConstraints">} #+ Check constraints on the "vwanalitico.fechamodificacion" column #+ #+ @param p_fechamodificacion - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalitico_fechamodificacion_checkColumnConstraints(p_fechamodificacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fechamodificacion LIKE vwanalitico.fechamodificacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalitico_fechamodificacion_checkColumnConstraints {<BLOCK Name="fct.vwanalitico_banco_checkColumnConstraints">} #+ Check constraints on the "vwanalitico.banco" column #+ #+ @param p_banco - VARCHAR2(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalitico_banco_checkColumnConstraints(p_banco) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_banco LIKE vwanalitico.banco LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalitico_banco_checkColumnConstraints {<BLOCK Name="fct.vwanalisisventas_checkTableConstraints">} #+ Check constraints on the "vwanalisisventas" table #+ #+ @param p_data - a row data LIKE vwanalisisventas.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalisisventas_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vwanalisisventas.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vwanalisisventas_control_checkColumnConstraints(p_data.control) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanalisisventas_descripcionc_checkColumnConstraints(p_data.descripcionc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanalisisventas_aplicaa_checkColumnConstraints(p_data.aplicaa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanalisisventas_descripcionapl_checkColumnConstraints(p_data.descripcionapl) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanalisisventas_cuenta_checkColumnConstraints(p_data.cuenta) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanalisisventas_descripcioncuenta_checkColumnConstraints(p_data.descripcioncuenta) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanalisisventas_referencia_checkColumnConstraints(p_data.referencia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanalisisventas_fechatransaccion_checkColumnConstraints(p_data.fechatransaccion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanalisisventas_detalle1_checkColumnConstraints(p_data.detalle1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanalisisventas_detalle2_checkColumnConstraints(p_data.detalle2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanalisisventas_debito_checkColumnConstraints(p_data.debito) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanalisisventas_credito_checkColumnConstraints(p_data.credito) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanalisisventas_balance_checkColumnConstraints(p_data.balance) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanalisisventas_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanalisisventas_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanalisisventas_codigodepartamento_checkColumnConstraints(p_data.codigodepartamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanalisisventas_nombredepartamento_checkColumnConstraints(p_data.nombredepartamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanalisisventas_usuariocreador_checkColumnConstraints(p_data.usuariocreador) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanalisisventas_fechacreacion_checkColumnConstraints(p_data.fechacreacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanalisisventas_usuariomodificador_checkColumnConstraints(p_data.usuariomodificador) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanalisisventas_fechamodificacion_checkColumnConstraints(p_data.fechamodificacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vwanalisisventas_banco_checkColumnConstraints(p_data.banco) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalisisventas_checkTableConstraints {<BLOCK Name="fct.vwanalisisventas_control_checkColumnConstraints">} #+ Check constraints on the "vwanalisisventas.control" column #+ #+ @param p_control - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalisisventas_control_checkColumnConstraints(p_control) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_control LIKE vwanalisisventas.control LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalisisventas_control_checkColumnConstraints {<BLOCK Name="fct.vwanalisisventas_descripcionc_checkColumnConstraints">} #+ Check constraints on the "vwanalisisventas.descripcionc" column #+ #+ @param p_descripcionc - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalisisventas_descripcionc_checkColumnConstraints(p_descripcionc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcionc LIKE vwanalisisventas.descripcionc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalisisventas_descripcionc_checkColumnConstraints {<BLOCK Name="fct.vwanalisisventas_aplicaa_checkColumnConstraints">} #+ Check constraints on the "vwanalisisventas.aplicaa" column #+ #+ @param p_aplicaa - VARCHAR2(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalisisventas_aplicaa_checkColumnConstraints(p_aplicaa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_aplicaa LIKE vwanalisisventas.aplicaa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalisisventas_aplicaa_checkColumnConstraints {<BLOCK Name="fct.vwanalisisventas_descripcionapl_checkColumnConstraints">} #+ Check constraints on the "vwanalisisventas.descripcionapl" column #+ #+ @param p_descripcionapl - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalisisventas_descripcionapl_checkColumnConstraints(p_descripcionapl) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcionapl LIKE vwanalisisventas.descripcionapl LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalisisventas_descripcionapl_checkColumnConstraints {<BLOCK Name="fct.vwanalisisventas_cuenta_checkColumnConstraints">} #+ Check constraints on the "vwanalisisventas.cuenta" column #+ #+ @param p_cuenta - VARCHAR2(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalisisventas_cuenta_checkColumnConstraints(p_cuenta) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta LIKE vwanalisisventas.cuenta LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalisisventas_cuenta_checkColumnConstraints {<BLOCK Name="fct.vwanalisisventas_descripcioncuenta_checkColumnConstraints">} #+ Check constraints on the "vwanalisisventas.descripcioncuenta" column #+ #+ @param p_descripcioncuenta - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalisisventas_descripcioncuenta_checkColumnConstraints(p_descripcioncuenta) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcioncuenta LIKE vwanalisisventas.descripcioncuenta LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalisisventas_descripcioncuenta_checkColumnConstraints {<BLOCK Name="fct.vwanalisisventas_referencia_checkColumnConstraints">} #+ Check constraints on the "vwanalisisventas.referencia" column #+ #+ @param p_referencia - VARCHAR2(14) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalisisventas_referencia_checkColumnConstraints(p_referencia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_referencia LIKE vwanalisisventas.referencia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_referencia IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- referencia: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalisisventas_referencia_checkColumnConstraints {<BLOCK Name="fct.vwanalisisventas_fechatransaccion_checkColumnConstraints">} #+ Check constraints on the "vwanalisisventas.fechatransaccion" column #+ #+ @param p_fechatransaccion - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalisisventas_fechatransaccion_checkColumnConstraints(p_fechatransaccion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fechatransaccion LIKE vwanalisisventas.fechatransaccion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalisisventas_fechatransaccion_checkColumnConstraints {<BLOCK Name="fct.vwanalisisventas_detalle1_checkColumnConstraints">} #+ Check constraints on the "vwanalisisventas.detalle1" column #+ #+ @param p_detalle1 - VARCHAR2(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalisisventas_detalle1_checkColumnConstraints(p_detalle1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_detalle1 LIKE vwanalisisventas.detalle1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalisisventas_detalle1_checkColumnConstraints {<BLOCK Name="fct.vwanalisisventas_detalle2_checkColumnConstraints">} #+ Check constraints on the "vwanalisisventas.detalle2" column #+ #+ @param p_detalle2 - VARCHAR2(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalisisventas_detalle2_checkColumnConstraints(p_detalle2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_detalle2 LIKE vwanalisisventas.detalle2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalisisventas_detalle2_checkColumnConstraints {<BLOCK Name="fct.vwanalisisventas_debito_checkColumnConstraints">} #+ Check constraints on the "vwanalisisventas.debito" column #+ #+ @param p_debito - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalisisventas_debito_checkColumnConstraints(p_debito) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_debito LIKE vwanalisisventas.debito LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalisisventas_debito_checkColumnConstraints {<BLOCK Name="fct.vwanalisisventas_credito_checkColumnConstraints">} #+ Check constraints on the "vwanalisisventas.credito" column #+ #+ @param p_credito - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalisisventas_credito_checkColumnConstraints(p_credito) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_credito LIKE vwanalisisventas.credito LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalisisventas_credito_checkColumnConstraints {<BLOCK Name="fct.vwanalisisventas_balance_checkColumnConstraints">} #+ Check constraints on the "vwanalisisventas.balance" column #+ #+ @param p_balance - DECIMAL(13,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalisisventas_balance_checkColumnConstraints(p_balance) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_balance LIKE vwanalisisventas.balance LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalisisventas_balance_checkColumnConstraints {<BLOCK Name="fct.vwanalisisventas_ano_checkColumnConstraints">} #+ Check constraints on the "vwanalisisventas.ano" column #+ #+ @param p_ano - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalisisventas_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE vwanalisisventas.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalisisventas_ano_checkColumnConstraints {<BLOCK Name="fct.vwanalisisventas_mes_checkColumnConstraints">} #+ Check constraints on the "vwanalisisventas.mes" column #+ #+ @param p_mes - VARCHAR2(41) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalisisventas_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE vwanalisisventas.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalisisventas_mes_checkColumnConstraints {<BLOCK Name="fct.vwanalisisventas_codigodepartamento_checkColumnConstraints">} #+ Check constraints on the "vwanalisisventas.codigodepartamento" column #+ #+ @param p_codigodepartamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalisisventas_codigodepartamento_checkColumnConstraints(p_codigodepartamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codigodepartamento LIKE vwanalisisventas.codigodepartamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalisisventas_codigodepartamento_checkColumnConstraints {<BLOCK Name="fct.vwanalisisventas_nombredepartamento_checkColumnConstraints">} #+ Check constraints on the "vwanalisisventas.nombredepartamento" column #+ #+ @param p_nombredepartamento - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalisisventas_nombredepartamento_checkColumnConstraints(p_nombredepartamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombredepartamento LIKE vwanalisisventas.nombredepartamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalisisventas_nombredepartamento_checkColumnConstraints {<BLOCK Name="fct.vwanalisisventas_usuariocreador_checkColumnConstraints">} #+ Check constraints on the "vwanalisisventas.usuariocreador" column #+ #+ @param p_usuariocreador - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalisisventas_usuariocreador_checkColumnConstraints(p_usuariocreador) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_usuariocreador LIKE vwanalisisventas.usuariocreador LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalisisventas_usuariocreador_checkColumnConstraints {<BLOCK Name="fct.vwanalisisventas_fechacreacion_checkColumnConstraints">} #+ Check constraints on the "vwanalisisventas.fechacreacion" column #+ #+ @param p_fechacreacion - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalisisventas_fechacreacion_checkColumnConstraints(p_fechacreacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fechacreacion LIKE vwanalisisventas.fechacreacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalisisventas_fechacreacion_checkColumnConstraints {<BLOCK Name="fct.vwanalisisventas_usuariomodificador_checkColumnConstraints">} #+ Check constraints on the "vwanalisisventas.usuariomodificador" column #+ #+ @param p_usuariomodificador - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalisisventas_usuariomodificador_checkColumnConstraints(p_usuariomodificador) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_usuariomodificador LIKE vwanalisisventas.usuariomodificador LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalisisventas_usuariomodificador_checkColumnConstraints {<BLOCK Name="fct.vwanalisisventas_fechamodificacion_checkColumnConstraints">} #+ Check constraints on the "vwanalisisventas.fechamodificacion" column #+ #+ @param p_fechamodificacion - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalisisventas_fechamodificacion_checkColumnConstraints(p_fechamodificacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fechamodificacion LIKE vwanalisisventas.fechamodificacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalisisventas_fechamodificacion_checkColumnConstraints {<BLOCK Name="fct.vwanalisisventas_banco_checkColumnConstraints">} #+ Check constraints on the "vwanalisisventas.banco" column #+ #+ @param p_banco - VARCHAR2(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vwanalisisventas_banco_checkColumnConstraints(p_banco) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_banco LIKE vwanalisisventas.banco LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vwanalisisventas_banco_checkColumnConstraints {<BLOCK Name="fct.viejo1_checkTableConstraints">} #+ Check constraints on the "viejo1" table #+ #+ @param p_data - a row data LIKE viejo1.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_viejo1_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE viejo1.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_viejo1_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_viejo1_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_viejo1_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_viejo1_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_viejo1_codn_checkColumnConstraints(p_data.codn) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_viejo1_codgrupo_checkColumnConstraints(p_data.codgrupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_viejo1_codtipo_checkColumnConstraints(p_data.codtipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_viejo1_codsec_checkColumnConstraints(p_data.codsec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.viejo1_checkTableConstraints {<BLOCK Name="fct.viejo1_cod_n_checkColumnConstraints">} #+ Check constraints on the "viejo1.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_viejo1_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE viejo1.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.viejo1_cod_n_checkColumnConstraints {<BLOCK Name="fct.viejo1_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "viejo1.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_viejo1_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE viejo1.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.viejo1_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.viejo1_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "viejo1.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_viejo1_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE viejo1.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.viejo1_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.viejo1_cod_sec_checkColumnConstraints">} #+ Check constraints on the "viejo1.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_viejo1_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE viejo1.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.viejo1_cod_sec_checkColumnConstraints {<BLOCK Name="fct.viejo1_codn_checkColumnConstraints">} #+ Check constraints on the "viejo1.codn" column #+ #+ @param p_codn - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_viejo1_codn_checkColumnConstraints(p_codn) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codn LIKE viejo1.codn LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.viejo1_codn_checkColumnConstraints {<BLOCK Name="fct.viejo1_codgrupo_checkColumnConstraints">} #+ Check constraints on the "viejo1.codgrupo" column #+ #+ @param p_codgrupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_viejo1_codgrupo_checkColumnConstraints(p_codgrupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codgrupo LIKE viejo1.codgrupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.viejo1_codgrupo_checkColumnConstraints {<BLOCK Name="fct.viejo1_codtipo_checkColumnConstraints">} #+ Check constraints on the "viejo1.codtipo" column #+ #+ @param p_codtipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_viejo1_codtipo_checkColumnConstraints(p_codtipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codtipo LIKE viejo1.codtipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.viejo1_codtipo_checkColumnConstraints {<BLOCK Name="fct.viejo1_codsec_checkColumnConstraints">} #+ Check constraints on the "viejo1.codsec" column #+ #+ @param p_codsec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_viejo1_codsec_checkColumnConstraints(p_codsec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codsec LIKE viejo1.codsec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.viejo1_codsec_checkColumnConstraints {<BLOCK Name="fct.vetb00090_checkTableConstraints">} #+ Check constraints on the "vetb00090" table #+ #+ @param p_data - a row data LIKE vetb00090.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00090_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00090.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00090_tipo_cliente_checkColumnConstraints(p_data.tipo_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00090_sec_cliente_checkColumnConstraints(p_data.sec_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00090_porc_comision_checkColumnConstraints(p_data.porc_comision) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00090_fecha_termino_checkColumnConstraints(p_data.fecha_termino) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00090_sec_vend_checkColumnConstraints(p_data.sec_vend) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00090_estatus_checkColumnConstraints(p_data.estatus) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00090_checkTableConstraints {<BLOCK Name="fct.vetb00090_tipo_cliente_checkColumnConstraints">} #+ Check constraints on the "vetb00090.tipo_cliente" column #+ #+ @param p_tipo_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00090_tipo_cliente_checkColumnConstraints(p_tipo_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_cliente LIKE vetb00090.tipo_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00090_tipo_cliente_checkColumnConstraints {<BLOCK Name="fct.vetb00090_sec_cliente_checkColumnConstraints">} #+ Check constraints on the "vetb00090.sec_cliente" column #+ #+ @param p_sec_cliente - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00090_sec_cliente_checkColumnConstraints(p_sec_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_cliente LIKE vetb00090.sec_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00090_sec_cliente_checkColumnConstraints {<BLOCK Name="fct.vetb00090_porc_comision_checkColumnConstraints">} #+ Check constraints on the "vetb00090.porc_comision" column #+ #+ @param p_porc_comision - DECIMAL(18,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00090_porc_comision_checkColumnConstraints(p_porc_comision) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_porc_comision LIKE vetb00090.porc_comision LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00090_porc_comision_checkColumnConstraints {<BLOCK Name="fct.vetb00090_fecha_termino_checkColumnConstraints">} #+ Check constraints on the "vetb00090.fecha_termino" column #+ #+ @param p_fecha_termino - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00090_fecha_termino_checkColumnConstraints(p_fecha_termino) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_termino LIKE vetb00090.fecha_termino LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00090_fecha_termino_checkColumnConstraints {<BLOCK Name="fct.vetb00090_sec_vend_checkColumnConstraints">} #+ Check constraints on the "vetb00090.sec_vend" column #+ #+ @param p_sec_vend - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00090_sec_vend_checkColumnConstraints(p_sec_vend) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_vend LIKE vetb00090.sec_vend LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00090_sec_vend_checkColumnConstraints {<BLOCK Name="fct.vetb00090_estatus_checkColumnConstraints">} #+ Check constraints on the "vetb00090.estatus" column #+ #+ @param p_estatus - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00090_estatus_checkColumnConstraints(p_estatus) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_estatus LIKE vetb00090.estatus LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00090_estatus_checkColumnConstraints {<BLOCK Name="fct.vetb00088_checkTableConstraints">} #+ Check constraints on the "vetb00088" table #+ #+ @param p_data - a row data LIKE vetb00088.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00088_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00088.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00088_cotizacion_no_checkColumnConstraints(p_data.cotizacion_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00088_fecha_autorizacion_checkColumnConstraints(p_data.fecha_autorizacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00088_us_autoriza_checkColumnConstraints(p_data.us_autoriza) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00088_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00088_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00088_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00088_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00088_porc_descuento_checkColumnConstraints(p_data.porc_descuento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00088_autoriza_checkColumnConstraints(p_data.autoriza) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00088_checkTableConstraints {<BLOCK Name="fct.vetb00088_cotizacion_no_checkColumnConstraints">} #+ Check constraints on the "vetb00088.cotizacion_no" column #+ #+ @param p_cotizacion_no - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00088_cotizacion_no_checkColumnConstraints(p_cotizacion_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cotizacion_no LIKE vetb00088.cotizacion_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00088_cotizacion_no_checkColumnConstraints {<BLOCK Name="fct.vetb00088_fecha_autorizacion_checkColumnConstraints">} #+ Check constraints on the "vetb00088.fecha_autorizacion" column #+ #+ @param p_fecha_autorizacion - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00088_fecha_autorizacion_checkColumnConstraints(p_fecha_autorizacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_autorizacion LIKE vetb00088.fecha_autorizacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00088_fecha_autorizacion_checkColumnConstraints {<BLOCK Name="fct.vetb00088_us_autoriza_checkColumnConstraints">} #+ Check constraints on the "vetb00088.us_autoriza" column #+ #+ @param p_us_autoriza - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00088_us_autoriza_checkColumnConstraints(p_us_autoriza) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_autoriza LIKE vetb00088.us_autoriza LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00088_us_autoriza_checkColumnConstraints {<BLOCK Name="fct.vetb00088_cod_n_checkColumnConstraints">} #+ Check constraints on the "vetb00088.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00088_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE vetb00088.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00088_cod_n_checkColumnConstraints {<BLOCK Name="fct.vetb00088_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "vetb00088.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00088_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE vetb00088.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00088_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.vetb00088_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "vetb00088.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00088_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE vetb00088.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00088_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.vetb00088_cod_sec_checkColumnConstraints">} #+ Check constraints on the "vetb00088.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00088_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE vetb00088.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00088_cod_sec_checkColumnConstraints {<BLOCK Name="fct.vetb00088_porc_descuento_checkColumnConstraints">} #+ Check constraints on the "vetb00088.porc_descuento" column #+ #+ @param p_porc_descuento - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00088_porc_descuento_checkColumnConstraints(p_porc_descuento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_porc_descuento LIKE vetb00088.porc_descuento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00088_porc_descuento_checkColumnConstraints {<BLOCK Name="fct.vetb00088_autoriza_checkColumnConstraints">} #+ Check constraints on the "vetb00088.autoriza" column #+ #+ @param p_autoriza - CHAR(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00088_autoriza_checkColumnConstraints(p_autoriza) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_autoriza LIKE vetb00088.autoriza LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00088_autoriza_checkColumnConstraints {<BLOCK Name="fct.vetb00087_checkTableConstraints">} #+ Check constraints on the "vetb00087" table #+ #+ @param p_data - a row data LIKE vetb00087.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00087_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00087.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00087_tipo_cliente_checkColumnConstraints(p_data.tipo_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00087_sec_cliente_checkColumnConstraints(p_data.sec_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00087_contacto_checkColumnConstraints(p_data.contacto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00087_puesto_checkColumnConstraints(p_data.puesto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00087_puesto1_checkColumnConstraints(p_data.puesto1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00087_email_checkColumnConstraints(p_data.email) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00087_celular_checkColumnConstraints(p_data.celular) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00087_telefono_of_checkColumnConstraints(p_data.telefono_of) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00087_telefono_casa_checkColumnConstraints(p_data.telefono_casa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00087_id_checkColumnConstraints(p_data.id) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00087_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00087_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00087_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00087_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00087_checkTableConstraints {<BLOCK Name="fct.vetb00087_tipo_cliente_checkColumnConstraints">} #+ Check constraints on the "vetb00087.tipo_cliente" column #+ #+ @param p_tipo_cliente - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00087_tipo_cliente_checkColumnConstraints(p_tipo_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_cliente LIKE vetb00087.tipo_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00087_tipo_cliente_checkColumnConstraints {<BLOCK Name="fct.vetb00087_sec_cliente_checkColumnConstraints">} #+ Check constraints on the "vetb00087.sec_cliente" column #+ #+ @param p_sec_cliente - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00087_sec_cliente_checkColumnConstraints(p_sec_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_cliente LIKE vetb00087.sec_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00087_sec_cliente_checkColumnConstraints {<BLOCK Name="fct.vetb00087_contacto_checkColumnConstraints">} #+ Check constraints on the "vetb00087.contacto" column #+ #+ @param p_contacto - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00087_contacto_checkColumnConstraints(p_contacto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_contacto LIKE vetb00087.contacto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00087_contacto_checkColumnConstraints {<BLOCK Name="fct.vetb00087_puesto_checkColumnConstraints">} #+ Check constraints on the "vetb00087.puesto" column #+ #+ @param p_puesto - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00087_puesto_checkColumnConstraints(p_puesto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_puesto LIKE vetb00087.puesto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00087_puesto_checkColumnConstraints {<BLOCK Name="fct.vetb00087_puesto1_checkColumnConstraints">} #+ Check constraints on the "vetb00087.puesto1" column #+ #+ @param p_puesto1 - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00087_puesto1_checkColumnConstraints(p_puesto1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_puesto1 LIKE vetb00087.puesto1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00087_puesto1_checkColumnConstraints {<BLOCK Name="fct.vetb00087_email_checkColumnConstraints">} #+ Check constraints on the "vetb00087.email" column #+ #+ @param p_email - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00087_email_checkColumnConstraints(p_email) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_email LIKE vetb00087.email LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00087_email_checkColumnConstraints {<BLOCK Name="fct.vetb00087_celular_checkColumnConstraints">} #+ Check constraints on the "vetb00087.celular" column #+ #+ @param p_celular - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00087_celular_checkColumnConstraints(p_celular) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_celular LIKE vetb00087.celular LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00087_celular_checkColumnConstraints {<BLOCK Name="fct.vetb00087_telefono_of_checkColumnConstraints">} #+ Check constraints on the "vetb00087.telefono_of" column #+ #+ @param p_telefono_of - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00087_telefono_of_checkColumnConstraints(p_telefono_of) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_telefono_of LIKE vetb00087.telefono_of LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00087_telefono_of_checkColumnConstraints {<BLOCK Name="fct.vetb00087_telefono_casa_checkColumnConstraints">} #+ Check constraints on the "vetb00087.telefono_casa" column #+ #+ @param p_telefono_casa - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00087_telefono_casa_checkColumnConstraints(p_telefono_casa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_telefono_casa LIKE vetb00087.telefono_casa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00087_telefono_casa_checkColumnConstraints {<BLOCK Name="fct.vetb00087_id_checkColumnConstraints">} #+ Check constraints on the "vetb00087.id" column #+ #+ @param p_id - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00087_id_checkColumnConstraints(p_id) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_id LIKE vetb00087.id LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00087_id_checkColumnConstraints {<BLOCK Name="fct.vetb00087_us_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00087.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00087_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE vetb00087.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00087_us_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00087_fech_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00087.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00087_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE vetb00087.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00087_fech_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00087_us_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00087.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00087_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE vetb00087.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00087_us_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00087_fech_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00087.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00087_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE vetb00087.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00087_fech_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00086_checkTableConstraints">} #+ Check constraints on the "vetb00086" table #+ #+ @param p_data - a row data LIKE vetb00086.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00086_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00086.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00086_cotizacion_no_checkColumnConstraints(p_data.cotizacion_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00086_porc_negocio_checkColumnConstraints(p_data.porc_negocio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00086_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00086_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00086_fecha_crea_checkColumnConstraints(p_data.fecha_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00086_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00086_fecha_mod_checkColumnConstraints(p_data.fecha_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00086_checkTableConstraints {<BLOCK Name="fct.vetb00086_cotizacion_no_checkColumnConstraints">} #+ Check constraints on the "vetb00086.cotizacion_no" column #+ #+ @param p_cotizacion_no - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00086_cotizacion_no_checkColumnConstraints(p_cotizacion_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cotizacion_no LIKE vetb00086.cotizacion_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00086_cotizacion_no_checkColumnConstraints {<BLOCK Name="fct.vetb00086_porc_negocio_checkColumnConstraints">} #+ Check constraints on the "vetb00086.porc_negocio" column #+ #+ @param p_porc_negocio - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00086_porc_negocio_checkColumnConstraints(p_porc_negocio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_porc_negocio LIKE vetb00086.porc_negocio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00086_porc_negocio_checkColumnConstraints {<BLOCK Name="fct.vetb00086_status_t_checkColumnConstraints">} #+ Check constraints on the "vetb00086.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00086_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE vetb00086.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00086_status_t_checkColumnConstraints {<BLOCK Name="fct.vetb00086_us_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00086.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00086_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE vetb00086.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00086_us_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00086_fecha_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00086.fecha_crea" column #+ #+ @param p_fecha_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00086_fecha_crea_checkColumnConstraints(p_fecha_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_crea LIKE vetb00086.fecha_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00086_fecha_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00086_us_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00086.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00086_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE vetb00086.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00086_us_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00086_fecha_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00086.fecha_mod" column #+ #+ @param p_fecha_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00086_fecha_mod_checkColumnConstraints(p_fecha_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_mod LIKE vetb00086.fecha_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00086_fecha_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00085_checkTableConstraints">} #+ Check constraints on the "vetb00085" table #+ #+ @param p_data - a row data LIKE vetb00085.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00085_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00085.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00085_cod_cia_checkColumnConstraints(p_data.cod_cia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00085_cod_lista_checkColumnConstraints(p_data.cod_lista) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00085_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00085_fecha_vigencia_checkColumnConstraints(p_data.fecha_vigencia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00085_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 smarmotech_dbxconstraints_vetb00085_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00085_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00085_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00085_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00085_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00085_checkTableConstraints {<BLOCK Name="fct.vetb00085_cod_cia_checkColumnConstraints">} #+ Check constraints on the "vetb00085.cod_cia" column #+ #+ @param p_cod_cia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00085_cod_cia_checkColumnConstraints(p_cod_cia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_cia LIKE vetb00085.cod_cia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00085_cod_cia_checkColumnConstraints {<BLOCK Name="fct.vetb00085_cod_lista_checkColumnConstraints">} #+ Check constraints on the "vetb00085.cod_lista" column #+ #+ @param p_cod_lista - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00085_cod_lista_checkColumnConstraints(p_cod_lista) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_lista LIKE vetb00085.cod_lista LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00085_cod_lista_checkColumnConstraints {<BLOCK Name="fct.vetb00085_descripcion_checkColumnConstraints">} #+ Check constraints on the "vetb00085.descripcion" column #+ #+ @param p_descripcion - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00085_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE vetb00085.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00085_descripcion_checkColumnConstraints {<BLOCK Name="fct.vetb00085_fecha_vigencia_checkColumnConstraints">} #+ Check constraints on the "vetb00085.fecha_vigencia" column #+ #+ @param p_fecha_vigencia - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00085_fecha_vigencia_checkColumnConstraints(p_fecha_vigencia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_vigencia LIKE vetb00085.fecha_vigencia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00085_fecha_vigencia_checkColumnConstraints {<BLOCK Name="fct.vetb00085_fecha_inicio_checkColumnConstraints">} #+ Check constraints on the "vetb00085.fecha_inicio" column #+ #+ @param p_fecha_inicio - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00085_fecha_inicio_checkColumnConstraints(p_fecha_inicio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_inicio LIKE vetb00085.fecha_inicio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00085_fecha_inicio_checkColumnConstraints {<BLOCK Name="fct.vetb00085_status_t_checkColumnConstraints">} #+ Check constraints on the "vetb00085.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00085_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE vetb00085.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00085_status_t_checkColumnConstraints {<BLOCK Name="fct.vetb00085_us_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00085.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00085_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE vetb00085.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00085_us_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00085_fech_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00085.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00085_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE vetb00085.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00085_fech_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00085_us_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00085.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00085_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE vetb00085.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00085_us_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00085_fech_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00085.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00085_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE vetb00085.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00085_fech_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00084_checkTableConstraints">} #+ Check constraints on the "vetb00084" table #+ #+ @param p_data - a row data LIKE vetb00084.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00084_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00084.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00084_sec_vend_checkColumnConstraints(p_data.sec_vend) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00084_nombre_checkColumnConstraints(p_data.nombre) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00084_checkTableConstraints {<BLOCK Name="fct.vetb00084_sec_vend_checkColumnConstraints">} #+ Check constraints on the "vetb00084.sec_vend" column #+ #+ @param p_sec_vend - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00084_sec_vend_checkColumnConstraints(p_sec_vend) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_vend LIKE vetb00084.sec_vend LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00084_sec_vend_checkColumnConstraints {<BLOCK Name="fct.vetb00084_nombre_checkColumnConstraints">} #+ Check constraints on the "vetb00084.nombre" column #+ #+ @param p_nombre - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00084_nombre_checkColumnConstraints(p_nombre) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombre LIKE vetb00084.nombre LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00084_nombre_checkColumnConstraints {<BLOCK Name="fct.vetb00075_checkTableConstraints">} #+ Check constraints on the "vetb00075" table #+ #+ @param p_data - a row data LIKE vetb00075.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00075_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00075.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00075_sec_vend_checkColumnConstraints(p_data.sec_vend) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00075_porc_cobros_a_checkColumnConstraints(p_data.porc_cobros_a) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00075_sec_vend_a_checkColumnConstraints(p_data.sec_vend_a) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00075_porc_cobros_checkColumnConstraints(p_data.porc_cobros) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00075_checkTableConstraints {<BLOCK Name="fct.vetb00075_sec_vend_checkColumnConstraints">} #+ Check constraints on the "vetb00075.sec_vend" column #+ #+ @param p_sec_vend - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00075_sec_vend_checkColumnConstraints(p_sec_vend) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_vend LIKE vetb00075.sec_vend LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00075_sec_vend_checkColumnConstraints {<BLOCK Name="fct.vetb00075_porc_cobros_a_checkColumnConstraints">} #+ Check constraints on the "vetb00075.porc_cobros_a" column #+ #+ @param p_porc_cobros_a - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00075_porc_cobros_a_checkColumnConstraints(p_porc_cobros_a) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_porc_cobros_a LIKE vetb00075.porc_cobros_a LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00075_porc_cobros_a_checkColumnConstraints {<BLOCK Name="fct.vetb00075_sec_vend_a_checkColumnConstraints">} #+ Check constraints on the "vetb00075.sec_vend_a" column #+ #+ @param p_sec_vend_a - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00075_sec_vend_a_checkColumnConstraints(p_sec_vend_a) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_vend_a LIKE vetb00075.sec_vend_a LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00075_sec_vend_a_checkColumnConstraints {<BLOCK Name="fct.vetb00075_porc_cobros_checkColumnConstraints">} #+ Check constraints on the "vetb00075.porc_cobros" column #+ #+ @param p_porc_cobros - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00075_porc_cobros_checkColumnConstraints(p_porc_cobros) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_porc_cobros LIKE vetb00075.porc_cobros LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00075_porc_cobros_checkColumnConstraints {<BLOCK Name="fct.vetb00071_checkTableConstraints">} #+ Check constraints on the "vetb00071" table #+ #+ @param p_data - a row data LIKE vetb00071.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00071_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00071.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00071_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00071_tipo_doc_checkColumnConstraints(p_data.tipo_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00071_codigo_dgii_checkColumnConstraints(p_data.codigo_dgii) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00071_ncf_inicial_checkColumnConstraints(p_data.ncf_inicial) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00071_ncf_final_checkColumnConstraints(p_data.ncf_final) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00071_disponible_checkColumnConstraints(p_data.disponible) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00071_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00071_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00071_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00071_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00071_checkTableConstraints {<BLOCK Name="fct.vetb00071_fecha_checkColumnConstraints">} #+ Check constraints on the "vetb00071.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00071_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE vetb00071.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00071_fecha_checkColumnConstraints {<BLOCK Name="fct.vetb00071_tipo_doc_checkColumnConstraints">} #+ Check constraints on the "vetb00071.tipo_doc" column #+ #+ @param p_tipo_doc - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00071_tipo_doc_checkColumnConstraints(p_tipo_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_doc LIKE vetb00071.tipo_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00071_tipo_doc_checkColumnConstraints {<BLOCK Name="fct.vetb00071_codigo_dgii_checkColumnConstraints">} #+ Check constraints on the "vetb00071.codigo_dgii" column #+ #+ @param p_codigo_dgii - CHAR(14) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00071_codigo_dgii_checkColumnConstraints(p_codigo_dgii) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codigo_dgii LIKE vetb00071.codigo_dgii LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00071_codigo_dgii_checkColumnConstraints {<BLOCK Name="fct.vetb00071_ncf_inicial_checkColumnConstraints">} #+ Check constraints on the "vetb00071.ncf_inicial" column #+ #+ @param p_ncf_inicial - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00071_ncf_inicial_checkColumnConstraints(p_ncf_inicial) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ncf_inicial LIKE vetb00071.ncf_inicial LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00071_ncf_inicial_checkColumnConstraints {<BLOCK Name="fct.vetb00071_ncf_final_checkColumnConstraints">} #+ Check constraints on the "vetb00071.ncf_final" column #+ #+ @param p_ncf_final - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00071_ncf_final_checkColumnConstraints(p_ncf_final) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ncf_final LIKE vetb00071.ncf_final LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00071_ncf_final_checkColumnConstraints {<BLOCK Name="fct.vetb00071_disponible_checkColumnConstraints">} #+ Check constraints on the "vetb00071.disponible" column #+ #+ @param p_disponible - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00071_disponible_checkColumnConstraints(p_disponible) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_disponible LIKE vetb00071.disponible LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00071_disponible_checkColumnConstraints {<BLOCK Name="fct.vetb00071_us_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00071.us_crea" column #+ #+ @param p_us_crea - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00071_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE vetb00071.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00071_us_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00071_fech_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00071.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00071_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE vetb00071.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00071_fech_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00071_us_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00071.us_mod" column #+ #+ @param p_us_mod - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00071_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE vetb00071.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00071_us_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00071_fech_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00071.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00071_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE vetb00071.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00071_fech_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00061_checkTableConstraints">} #+ Check constraints on the "vetb00061" table #+ #+ @param p_data - a row data LIKE vetb00061.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00061_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00061.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00061_ventas_checkColumnConstraints(p_data.ventas) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00061_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00061_simbolo_checkColumnConstraints(p_data.simbolo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00061_checkTableConstraints {<BLOCK Name="fct.vetb00061_ventas_checkColumnConstraints">} #+ Check constraints on the "vetb00061.ventas" column #+ #+ @param p_ventas - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00061_ventas_checkColumnConstraints(p_ventas) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ventas LIKE vetb00061.ventas LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00061_ventas_checkColumnConstraints {<BLOCK Name="fct.vetb00061_descripcion_checkColumnConstraints">} #+ Check constraints on the "vetb00061.descripcion" column #+ #+ @param p_descripcion - VARCHAR2(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00061_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE vetb00061.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00061_descripcion_checkColumnConstraints {<BLOCK Name="fct.vetb00061_simbolo_checkColumnConstraints">} #+ Check constraints on the "vetb00061.simbolo" column #+ #+ @param p_simbolo - VARCHAR2(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00061_simbolo_checkColumnConstraints(p_simbolo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_simbolo LIKE vetb00061.simbolo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00061_simbolo_checkColumnConstraints {<BLOCK Name="fct.vetb00060_checkTableConstraints">} #+ Check constraints on the "vetb00060" table #+ #+ @param p_data - a row data LIKE vetb00060.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00060_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00060.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00060_ventas_checkColumnConstraints(p_data.ventas) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00060_tipo_cliente_checkColumnConstraints(p_data.tipo_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00060_sec_cliente_checkColumnConstraints(p_data.sec_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00060_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00060_paga_itbis_checkColumnConstraints(p_data.paga_itbis) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00060_ncf_checkColumnConstraints(p_data.ncf) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00060_checkTableConstraints {<BLOCK Name="fct.vetb00060_ventas_checkColumnConstraints">} #+ Check constraints on the "vetb00060.ventas" column #+ #+ @param p_ventas - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00060_ventas_checkColumnConstraints(p_ventas) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ventas LIKE vetb00060.ventas LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00060_ventas_checkColumnConstraints {<BLOCK Name="fct.vetb00060_tipo_cliente_checkColumnConstraints">} #+ Check constraints on the "vetb00060.tipo_cliente" column #+ #+ @param p_tipo_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00060_tipo_cliente_checkColumnConstraints(p_tipo_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_cliente LIKE vetb00060.tipo_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00060_tipo_cliente_checkColumnConstraints {<BLOCK Name="fct.vetb00060_sec_cliente_checkColumnConstraints">} #+ Check constraints on the "vetb00060.sec_cliente" column #+ #+ @param p_sec_cliente - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00060_sec_cliente_checkColumnConstraints(p_sec_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_cliente LIKE vetb00060.sec_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00060_sec_cliente_checkColumnConstraints {<BLOCK Name="fct.vetb00060_cod_mov_checkColumnConstraints">} #+ Check constraints on the "vetb00060.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00060_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE vetb00060.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00060_cod_mov_checkColumnConstraints {<BLOCK Name="fct.vetb00060_paga_itbis_checkColumnConstraints">} #+ Check constraints on the "vetb00060.paga_itbis" column #+ #+ @param p_paga_itbis - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00060_paga_itbis_checkColumnConstraints(p_paga_itbis) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_paga_itbis LIKE vetb00060.paga_itbis LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00060_paga_itbis_checkColumnConstraints {<BLOCK Name="fct.vetb00060_ncf_checkColumnConstraints">} #+ Check constraints on the "vetb00060.ncf" column #+ #+ @param p_ncf - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00060_ncf_checkColumnConstraints(p_ncf) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ncf LIKE vetb00060.ncf LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00060_ncf_checkColumnConstraints {<BLOCK Name="fct.vetb00053_checkTableConstraints">} #+ Check constraints on the "vetb00053" table #+ #+ @param p_data - a row data LIKE vetb00053.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00053_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00053.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00053_cotizacion_no_checkColumnConstraints(p_data.cotizacion_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00053_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00053_checkTableConstraints {<BLOCK Name="fct.vetb00053_cotizacion_no_checkColumnConstraints">} #+ Check constraints on the "vetb00053.cotizacion_no" column #+ #+ @param p_cotizacion_no - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00053_cotizacion_no_checkColumnConstraints(p_cotizacion_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cotizacion_no LIKE vetb00053.cotizacion_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cotizacion_no IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cotizacion_no: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00053_cotizacion_no_checkColumnConstraints {<BLOCK Name="fct.vetb00053_us_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00053.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00053_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE vetb00053.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00053_us_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00052_checkTableConstraints">} #+ Check constraints on the "vetb00052" table #+ #+ @param p_data - a row data LIKE vetb00052.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00052_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00052.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00052_etiqueta_checkColumnConstraints(p_data.etiqueta) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00052_cotizacion_no_checkColumnConstraints(p_data.cotizacion_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00052_secuencia_checkColumnConstraints(p_data.secuencia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00052_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00052_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00052_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00052_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00052_lado_1_checkColumnConstraints(p_data.lado_1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00052_lado_2_checkColumnConstraints(p_data.lado_2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00052_lado_3_checkColumnConstraints(p_data.lado_3) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00052_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00052_medida_checkColumnConstraints(p_data.medida) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00052_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00052_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00052_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00052_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00052_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00052_checkTableConstraints {<BLOCK Name="fct.vetb00052_etiqueta_checkColumnConstraints">} #+ Check constraints on the "vetb00052.etiqueta" column #+ #+ @param p_etiqueta - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00052_etiqueta_checkColumnConstraints(p_etiqueta) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_etiqueta LIKE vetb00052.etiqueta LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00052_etiqueta_checkColumnConstraints {<BLOCK Name="fct.vetb00052_cotizacion_no_checkColumnConstraints">} #+ Check constraints on the "vetb00052.cotizacion_no" column #+ #+ @param p_cotizacion_no - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00052_cotizacion_no_checkColumnConstraints(p_cotizacion_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cotizacion_no LIKE vetb00052.cotizacion_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00052_cotizacion_no_checkColumnConstraints {<BLOCK Name="fct.vetb00052_secuencia_checkColumnConstraints">} #+ Check constraints on the "vetb00052.secuencia" column #+ #+ @param p_secuencia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00052_secuencia_checkColumnConstraints(p_secuencia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_secuencia LIKE vetb00052.secuencia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00052_secuencia_checkColumnConstraints {<BLOCK Name="fct.vetb00052_cod_n_checkColumnConstraints">} #+ Check constraints on the "vetb00052.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00052_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE vetb00052.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00052_cod_n_checkColumnConstraints {<BLOCK Name="fct.vetb00052_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "vetb00052.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00052_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE vetb00052.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00052_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.vetb00052_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "vetb00052.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00052_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE vetb00052.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00052_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.vetb00052_cod_sec_checkColumnConstraints">} #+ Check constraints on the "vetb00052.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00052_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE vetb00052.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00052_cod_sec_checkColumnConstraints {<BLOCK Name="fct.vetb00052_lado_1_checkColumnConstraints">} #+ Check constraints on the "vetb00052.lado_1" column #+ #+ @param p_lado_1 - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00052_lado_1_checkColumnConstraints(p_lado_1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_lado_1 LIKE vetb00052.lado_1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00052_lado_1_checkColumnConstraints {<BLOCK Name="fct.vetb00052_lado_2_checkColumnConstraints">} #+ Check constraints on the "vetb00052.lado_2" column #+ #+ @param p_lado_2 - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00052_lado_2_checkColumnConstraints(p_lado_2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_lado_2 LIKE vetb00052.lado_2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00052_lado_2_checkColumnConstraints {<BLOCK Name="fct.vetb00052_lado_3_checkColumnConstraints">} #+ Check constraints on the "vetb00052.lado_3" column #+ #+ @param p_lado_3 - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00052_lado_3_checkColumnConstraints(p_lado_3) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_lado_3 LIKE vetb00052.lado_3 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00052_lado_3_checkColumnConstraints {<BLOCK Name="fct.vetb00052_cantidad_checkColumnConstraints">} #+ Check constraints on the "vetb00052.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00052_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE vetb00052.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00052_cantidad_checkColumnConstraints {<BLOCK Name="fct.vetb00052_medida_checkColumnConstraints">} #+ Check constraints on the "vetb00052.medida" column #+ #+ @param p_medida - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00052_medida_checkColumnConstraints(p_medida) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_medida LIKE vetb00052.medida LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00052_medida_checkColumnConstraints {<BLOCK Name="fct.vetb00052_status_t_checkColumnConstraints">} #+ Check constraints on the "vetb00052.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00052_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE vetb00052.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00052_status_t_checkColumnConstraints {<BLOCK Name="fct.vetb00052_us_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00052.us_crea" column #+ #+ @param p_us_crea - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00052_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE vetb00052.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00052_us_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00052_fech_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00052.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00052_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE vetb00052.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00052_fech_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00052_us_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00052.us_mod" column #+ #+ @param p_us_mod - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00052_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE vetb00052.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00052_us_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00052_fech_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00052.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00052_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE vetb00052.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00052_fech_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00051_checkTableConstraints">} #+ Check constraints on the "vetb00051" table #+ #+ @param p_data - a row data LIKE vetb00051.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00051_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00051.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00051_cod_cia_checkColumnConstraints(p_data.cod_cia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00051_ventas_checkColumnConstraints(p_data.ventas) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00051_cotizacion_no_checkColumnConstraints(p_data.cotizacion_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00051_area_checkColumnConstraints(p_data.area) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00051_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00051_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00051_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00051_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00051_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00051_cantidad_1_checkColumnConstraints(p_data.cantidad_1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00051_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00051_precio_checkColumnConstraints(p_data.precio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00051_porc_desc_checkColumnConstraints(p_data.porc_desc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00051_nombre_file_checkColumnConstraints(p_data.nombre_file) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00051_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00051_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00051_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00051_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00051_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00051_foto_producto_checkColumnConstraints(p_data.foto_producto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00051_descripcion_area_checkColumnConstraints(p_data.descripcion_area) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00051_checkTableConstraints {<BLOCK Name="fct.vetb00051_cod_cia_checkColumnConstraints">} #+ Check constraints on the "vetb00051.cod_cia" column #+ #+ @param p_cod_cia - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00051_cod_cia_checkColumnConstraints(p_cod_cia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_cia LIKE vetb00051.cod_cia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00051_cod_cia_checkColumnConstraints {<BLOCK Name="fct.vetb00051_ventas_checkColumnConstraints">} #+ Check constraints on the "vetb00051.ventas" column #+ #+ @param p_ventas - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00051_ventas_checkColumnConstraints(p_ventas) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ventas LIKE vetb00051.ventas LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00051_ventas_checkColumnConstraints {<BLOCK Name="fct.vetb00051_cotizacion_no_checkColumnConstraints">} #+ Check constraints on the "vetb00051.cotizacion_no" column #+ #+ @param p_cotizacion_no - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00051_cotizacion_no_checkColumnConstraints(p_cotizacion_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cotizacion_no LIKE vetb00051.cotizacion_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cotizacion_no IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cotizacion_no: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00051_cotizacion_no_checkColumnConstraints {<BLOCK Name="fct.vetb00051_area_checkColumnConstraints">} #+ Check constraints on the "vetb00051.area" column #+ #+ @param p_area - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00051_area_checkColumnConstraints(p_area) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_area LIKE vetb00051.area LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_area IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- area: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00051_area_checkColumnConstraints {<BLOCK Name="fct.vetb00051_cod_n_checkColumnConstraints">} #+ Check constraints on the "vetb00051.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00051_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE vetb00051.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00051_cod_n_checkColumnConstraints {<BLOCK Name="fct.vetb00051_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "vetb00051.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00051_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE vetb00051.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_grupo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_grupo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00051_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.vetb00051_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "vetb00051.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00051_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE vetb00051.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tipo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tipo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00051_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.vetb00051_cod_sec_checkColumnConstraints">} #+ Check constraints on the "vetb00051.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00051_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE vetb00051.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00051_cod_sec_checkColumnConstraints {<BLOCK Name="fct.vetb00051_descripcion_checkColumnConstraints">} #+ Check constraints on the "vetb00051.descripcion" column #+ #+ @param p_descripcion - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00051_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE vetb00051.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00051_descripcion_checkColumnConstraints {<BLOCK Name="fct.vetb00051_cantidad_1_checkColumnConstraints">} #+ Check constraints on the "vetb00051.cantidad_1" column #+ #+ @param p_cantidad_1 - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00051_cantidad_1_checkColumnConstraints(p_cantidad_1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad_1 LIKE vetb00051.cantidad_1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00051_cantidad_1_checkColumnConstraints {<BLOCK Name="fct.vetb00051_cantidad_checkColumnConstraints">} #+ Check constraints on the "vetb00051.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00051_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE vetb00051.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cantidad IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cantidad: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00051_cantidad_checkColumnConstraints {<BLOCK Name="fct.vetb00051_precio_checkColumnConstraints">} #+ Check constraints on the "vetb00051.precio" column #+ #+ @param p_precio - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00051_precio_checkColumnConstraints(p_precio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_precio LIKE vetb00051.precio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_precio IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- precio: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00051_precio_checkColumnConstraints {<BLOCK Name="fct.vetb00051_porc_desc_checkColumnConstraints">} #+ Check constraints on the "vetb00051.porc_desc" column #+ #+ @param p_porc_desc - DECIMAL(8,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00051_porc_desc_checkColumnConstraints(p_porc_desc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_porc_desc LIKE vetb00051.porc_desc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00051_porc_desc_checkColumnConstraints {<BLOCK Name="fct.vetb00051_nombre_file_checkColumnConstraints">} #+ Check constraints on the "vetb00051.nombre_file" column #+ #+ @param p_nombre_file - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00051_nombre_file_checkColumnConstraints(p_nombre_file) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombre_file LIKE vetb00051.nombre_file LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00051_nombre_file_checkColumnConstraints {<BLOCK Name="fct.vetb00051_status_t_checkColumnConstraints">} #+ Check constraints on the "vetb00051.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00051_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE vetb00051.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00051_status_t_checkColumnConstraints {<BLOCK Name="fct.vetb00051_us_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00051.us_crea" column #+ #+ @param p_us_crea - CHAR(15) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00051_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE vetb00051.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00051_us_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00051_fech_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00051.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00051_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE vetb00051.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00051_fech_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00051_us_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00051.us_mod" column #+ #+ @param p_us_mod - CHAR(15) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00051_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE vetb00051.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00051_us_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00051_fech_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00051.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00051_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE vetb00051.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00051_fech_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00051_foto_producto_checkColumnConstraints">} #+ Check constraints on the "vetb00051.foto_producto" column #+ #+ @param p_foto_producto - CHAR(200) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00051_foto_producto_checkColumnConstraints(p_foto_producto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_foto_producto LIKE vetb00051.foto_producto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00051_foto_producto_checkColumnConstraints {<BLOCK Name="fct.vetb00051_descripcion_area_checkColumnConstraints">} #+ Check constraints on the "vetb00051.descripcion_area" column #+ #+ @param p_descripcion_area - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00051_descripcion_area_checkColumnConstraints(p_descripcion_area) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion_area LIKE vetb00051.descripcion_area LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00051_descripcion_area_checkColumnConstraints {<BLOCK Name="fct.vetb00050_checkTableConstraints">} #+ Check constraints on the "vetb00050" table #+ #+ @param p_data - a row data LIKE vetb00050.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00050_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00050.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00050_cod_cia_checkColumnConstraints(p_data.cod_cia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00050_ventas_checkColumnConstraints(p_data.ventas) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00050_cotizacion_no_checkColumnConstraints(p_data.cotizacion_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00050_tipo_cliente_checkColumnConstraints(p_data.tipo_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00050_sec_cliente_checkColumnConstraints(p_data.sec_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00050_nombre_cliente_checkColumnConstraints(p_data.nombre_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00050_rnc_checkColumnConstraints(p_data.rnc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00050_nombre_proyecto_checkColumnConstraints(p_data.nombre_proyecto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00050_direccion_cliente_checkColumnConstraints(p_data.direccion_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00050_cod_provincia_checkColumnConstraints(p_data.cod_provincia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00050_direccion_proyecto_checkColumnConstraints(p_data.direccion_proyecto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00050_telefono_r_checkColumnConstraints(p_data.telefono_r) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00050_telefono_o_checkColumnConstraints(p_data.telefono_o) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00050_email_checkColumnConstraints(p_data.email) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00050_tipo_precio_checkColumnConstraints(p_data.tipo_precio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00050_beeper_checkColumnConstraints(p_data.beeper) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00050_celular_checkColumnConstraints(p_data.celular) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00050_prima_checkColumnConstraints(p_data.prima) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00050_fax1_checkColumnConstraints(p_data.fax1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00050_celular1_checkColumnConstraints(p_data.celular1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00050_fax_checkColumnConstraints(p_data.fax) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00050_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00050_fecha_entrega_checkColumnConstraints(p_data.fecha_entrega) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00050_plazo_entrega_checkColumnConstraints(p_data.plazo_entrega) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00050_comentario_checkColumnConstraints(p_data.comentario) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00050_contacto_checkColumnConstraints(p_data.contacto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00050_cond_pago_checkColumnConstraints(p_data.cond_pago) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00050_sec_vend_checkColumnConstraints(p_data.sec_vend) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00050_porc_itbi_checkColumnConstraints(p_data.porc_itbi) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00050_total_bruto_checkColumnConstraints(p_data.total_bruto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00050_sub_total_checkColumnConstraints(p_data.sub_total) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00050_monto_desc_checkColumnConstraints(p_data.monto_desc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00050_monto_itbi_checkColumnConstraints(p_data.monto_itbi) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00050_total_neto_checkColumnConstraints(p_data.total_neto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00050_monto_dolar_checkColumnConstraints(p_data.monto_dolar) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00050_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00050_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00050_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00050_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00050_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00050_checkTableConstraints {<BLOCK Name="fct.vetb00050_cod_cia_checkColumnConstraints">} #+ Check constraints on the "vetb00050.cod_cia" column #+ #+ @param p_cod_cia - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00050_cod_cia_checkColumnConstraints(p_cod_cia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_cia LIKE vetb00050.cod_cia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00050_cod_cia_checkColumnConstraints {<BLOCK Name="fct.vetb00050_ventas_checkColumnConstraints">} #+ Check constraints on the "vetb00050.ventas" column #+ #+ @param p_ventas - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00050_ventas_checkColumnConstraints(p_ventas) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ventas LIKE vetb00050.ventas LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00050_ventas_checkColumnConstraints {<BLOCK Name="fct.vetb00050_cotizacion_no_checkColumnConstraints">} #+ Check constraints on the "vetb00050.cotizacion_no" column #+ #+ @param p_cotizacion_no - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00050_cotizacion_no_checkColumnConstraints(p_cotizacion_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cotizacion_no LIKE vetb00050.cotizacion_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cotizacion_no IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cotizacion_no: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00050_cotizacion_no_checkColumnConstraints {<BLOCK Name="fct.vetb00050_tipo_cliente_checkColumnConstraints">} #+ Check constraints on the "vetb00050.tipo_cliente" column #+ #+ @param p_tipo_cliente - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00050_tipo_cliente_checkColumnConstraints(p_tipo_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_cliente LIKE vetb00050.tipo_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00050_tipo_cliente_checkColumnConstraints {<BLOCK Name="fct.vetb00050_sec_cliente_checkColumnConstraints">} #+ Check constraints on the "vetb00050.sec_cliente" column #+ #+ @param p_sec_cliente - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00050_sec_cliente_checkColumnConstraints(p_sec_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_cliente LIKE vetb00050.sec_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00050_sec_cliente_checkColumnConstraints {<BLOCK Name="fct.vetb00050_nombre_cliente_checkColumnConstraints">} #+ Check constraints on the "vetb00050.nombre_cliente" column #+ #+ @param p_nombre_cliente - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00050_nombre_cliente_checkColumnConstraints(p_nombre_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombre_cliente LIKE vetb00050.nombre_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_nombre_cliente IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- nombre_cliente: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00050_nombre_cliente_checkColumnConstraints {<BLOCK Name="fct.vetb00050_rnc_checkColumnConstraints">} #+ Check constraints on the "vetb00050.rnc" column #+ #+ @param p_rnc - CHAR(11) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00050_rnc_checkColumnConstraints(p_rnc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_rnc LIKE vetb00050.rnc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00050_rnc_checkColumnConstraints {<BLOCK Name="fct.vetb00050_nombre_proyecto_checkColumnConstraints">} #+ Check constraints on the "vetb00050.nombre_proyecto" column #+ #+ @param p_nombre_proyecto - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00050_nombre_proyecto_checkColumnConstraints(p_nombre_proyecto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombre_proyecto LIKE vetb00050.nombre_proyecto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00050_nombre_proyecto_checkColumnConstraints {<BLOCK Name="fct.vetb00050_direccion_cliente_checkColumnConstraints">} #+ Check constraints on the "vetb00050.direccion_cliente" column #+ #+ @param p_direccion_cliente - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00050_direccion_cliente_checkColumnConstraints(p_direccion_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_direccion_cliente LIKE vetb00050.direccion_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00050_direccion_cliente_checkColumnConstraints {<BLOCK Name="fct.vetb00050_cod_provincia_checkColumnConstraints">} #+ Check constraints on the "vetb00050.cod_provincia" column #+ #+ @param p_cod_provincia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00050_cod_provincia_checkColumnConstraints(p_cod_provincia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_provincia LIKE vetb00050.cod_provincia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_provincia IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_provincia: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00050_cod_provincia_checkColumnConstraints {<BLOCK Name="fct.vetb00050_direccion_proyecto_checkColumnConstraints">} #+ Check constraints on the "vetb00050.direccion_proyecto" column #+ #+ @param p_direccion_proyecto - VARCHAR2(170) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00050_direccion_proyecto_checkColumnConstraints(p_direccion_proyecto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_direccion_proyecto LIKE vetb00050.direccion_proyecto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00050_direccion_proyecto_checkColumnConstraints {<BLOCK Name="fct.vetb00050_telefono_r_checkColumnConstraints">} #+ Check constraints on the "vetb00050.telefono_r" column #+ #+ @param p_telefono_r - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00050_telefono_r_checkColumnConstraints(p_telefono_r) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_telefono_r LIKE vetb00050.telefono_r LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00050_telefono_r_checkColumnConstraints {<BLOCK Name="fct.vetb00050_telefono_o_checkColumnConstraints">} #+ Check constraints on the "vetb00050.telefono_o" column #+ #+ @param p_telefono_o - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00050_telefono_o_checkColumnConstraints(p_telefono_o) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_telefono_o LIKE vetb00050.telefono_o LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00050_telefono_o_checkColumnConstraints {<BLOCK Name="fct.vetb00050_email_checkColumnConstraints">} #+ Check constraints on the "vetb00050.email" column #+ #+ @param p_email - CHAR(100) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00050_email_checkColumnConstraints(p_email) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_email LIKE vetb00050.email LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00050_email_checkColumnConstraints {<BLOCK Name="fct.vetb00050_tipo_precio_checkColumnConstraints">} #+ Check constraints on the "vetb00050.tipo_precio" column #+ #+ @param p_tipo_precio - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00050_tipo_precio_checkColumnConstraints(p_tipo_precio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_precio LIKE vetb00050.tipo_precio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00050_tipo_precio_checkColumnConstraints {<BLOCK Name="fct.vetb00050_beeper_checkColumnConstraints">} #+ Check constraints on the "vetb00050.beeper" column #+ #+ @param p_beeper - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00050_beeper_checkColumnConstraints(p_beeper) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_beeper LIKE vetb00050.beeper LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00050_beeper_checkColumnConstraints {<BLOCK Name="fct.vetb00050_celular_checkColumnConstraints">} #+ Check constraints on the "vetb00050.celular" column #+ #+ @param p_celular - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00050_celular_checkColumnConstraints(p_celular) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_celular LIKE vetb00050.celular LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00050_celular_checkColumnConstraints {<BLOCK Name="fct.vetb00050_prima_checkColumnConstraints">} #+ Check constraints on the "vetb00050.prima" column #+ #+ @param p_prima - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00050_prima_checkColumnConstraints(p_prima) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_prima LIKE vetb00050.prima LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00050_prima_checkColumnConstraints {<BLOCK Name="fct.vetb00050_fax1_checkColumnConstraints">} #+ Check constraints on the "vetb00050.fax1" column #+ #+ @param p_fax1 - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00050_fax1_checkColumnConstraints(p_fax1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fax1 LIKE vetb00050.fax1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00050_fax1_checkColumnConstraints {<BLOCK Name="fct.vetb00050_celular1_checkColumnConstraints">} #+ Check constraints on the "vetb00050.celular1" column #+ #+ @param p_celular1 - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00050_celular1_checkColumnConstraints(p_celular1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_celular1 LIKE vetb00050.celular1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00050_celular1_checkColumnConstraints {<BLOCK Name="fct.vetb00050_fax_checkColumnConstraints">} #+ Check constraints on the "vetb00050.fax" column #+ #+ @param p_fax - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00050_fax_checkColumnConstraints(p_fax) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fax LIKE vetb00050.fax LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00050_fax_checkColumnConstraints {<BLOCK Name="fct.vetb00050_fecha_checkColumnConstraints">} #+ Check constraints on the "vetb00050.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00050_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE vetb00050.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00050_fecha_checkColumnConstraints {<BLOCK Name="fct.vetb00050_fecha_entrega_checkColumnConstraints">} #+ Check constraints on the "vetb00050.fecha_entrega" column #+ #+ @param p_fecha_entrega - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00050_fecha_entrega_checkColumnConstraints(p_fecha_entrega) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_entrega LIKE vetb00050.fecha_entrega LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00050_fecha_entrega_checkColumnConstraints {<BLOCK Name="fct.vetb00050_plazo_entrega_checkColumnConstraints">} #+ Check constraints on the "vetb00050.plazo_entrega" column #+ #+ @param p_plazo_entrega - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00050_plazo_entrega_checkColumnConstraints(p_plazo_entrega) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_plazo_entrega LIKE vetb00050.plazo_entrega LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00050_plazo_entrega_checkColumnConstraints {<BLOCK Name="fct.vetb00050_comentario_checkColumnConstraints">} #+ Check constraints on the "vetb00050.comentario" column #+ #+ @param p_comentario - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00050_comentario_checkColumnConstraints(p_comentario) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_comentario LIKE vetb00050.comentario LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00050_comentario_checkColumnConstraints {<BLOCK Name="fct.vetb00050_contacto_checkColumnConstraints">} #+ Check constraints on the "vetb00050.contacto" column #+ #+ @param p_contacto - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00050_contacto_checkColumnConstraints(p_contacto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_contacto LIKE vetb00050.contacto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00050_contacto_checkColumnConstraints {<BLOCK Name="fct.vetb00050_cond_pago_checkColumnConstraints">} #+ Check constraints on the "vetb00050.cond_pago" column #+ #+ @param p_cond_pago - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00050_cond_pago_checkColumnConstraints(p_cond_pago) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cond_pago LIKE vetb00050.cond_pago LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00050_cond_pago_checkColumnConstraints {<BLOCK Name="fct.vetb00050_sec_vend_checkColumnConstraints">} #+ Check constraints on the "vetb00050.sec_vend" column #+ #+ @param p_sec_vend - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00050_sec_vend_checkColumnConstraints(p_sec_vend) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_vend LIKE vetb00050.sec_vend LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00050_sec_vend_checkColumnConstraints {<BLOCK Name="fct.vetb00050_porc_itbi_checkColumnConstraints">} #+ Check constraints on the "vetb00050.porc_itbi" column #+ #+ @param p_porc_itbi - DECIMAL(8,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00050_porc_itbi_checkColumnConstraints(p_porc_itbi) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_porc_itbi LIKE vetb00050.porc_itbi LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00050_porc_itbi_checkColumnConstraints {<BLOCK Name="fct.vetb00050_total_bruto_checkColumnConstraints">} #+ Check constraints on the "vetb00050.total_bruto" column #+ #+ @param p_total_bruto - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00050_total_bruto_checkColumnConstraints(p_total_bruto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_total_bruto LIKE vetb00050.total_bruto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_total_bruto IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- total_bruto: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00050_total_bruto_checkColumnConstraints {<BLOCK Name="fct.vetb00050_sub_total_checkColumnConstraints">} #+ Check constraints on the "vetb00050.sub_total" column #+ #+ @param p_sub_total - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00050_sub_total_checkColumnConstraints(p_sub_total) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sub_total LIKE vetb00050.sub_total LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_sub_total IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- sub_total: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00050_sub_total_checkColumnConstraints {<BLOCK Name="fct.vetb00050_monto_desc_checkColumnConstraints">} #+ Check constraints on the "vetb00050.monto_desc" column #+ #+ @param p_monto_desc - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00050_monto_desc_checkColumnConstraints(p_monto_desc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_monto_desc LIKE vetb00050.monto_desc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00050_monto_desc_checkColumnConstraints {<BLOCK Name="fct.vetb00050_monto_itbi_checkColumnConstraints">} #+ Check constraints on the "vetb00050.monto_itbi" column #+ #+ @param p_monto_itbi - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00050_monto_itbi_checkColumnConstraints(p_monto_itbi) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_monto_itbi LIKE vetb00050.monto_itbi LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00050_monto_itbi_checkColumnConstraints {<BLOCK Name="fct.vetb00050_total_neto_checkColumnConstraints">} #+ Check constraints on the "vetb00050.total_neto" column #+ #+ @param p_total_neto - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00050_total_neto_checkColumnConstraints(p_total_neto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_total_neto LIKE vetb00050.total_neto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_total_neto IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- total_neto: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00050_total_neto_checkColumnConstraints {<BLOCK Name="fct.vetb00050_monto_dolar_checkColumnConstraints">} #+ Check constraints on the "vetb00050.monto_dolar" column #+ #+ @param p_monto_dolar - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00050_monto_dolar_checkColumnConstraints(p_monto_dolar) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_monto_dolar LIKE vetb00050.monto_dolar LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00050_monto_dolar_checkColumnConstraints {<BLOCK Name="fct.vetb00050_status_t_checkColumnConstraints">} #+ Check constraints on the "vetb00050.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00050_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE vetb00050.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00050_status_t_checkColumnConstraints {<BLOCK Name="fct.vetb00050_us_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00050.us_crea" column #+ #+ @param p_us_crea - CHAR(15) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00050_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE vetb00050.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00050_us_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00050_fech_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00050.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00050_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE vetb00050.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00050_fech_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00050_us_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00050.us_mod" column #+ #+ @param p_us_mod - CHAR(15) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00050_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE vetb00050.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00050_us_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00050_fech_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00050.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00050_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE vetb00050.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00050_fech_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00049_checkTableConstraints">} #+ Check constraints on the "vetb00049" table #+ #+ @param p_data - a row data LIKE vetb00049.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00049_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00049.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00049_tipo_cliente_checkColumnConstraints(p_data.tipo_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00049_sec_cliente_checkColumnConstraints(p_data.sec_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00049_nombre_proyecto_checkColumnConstraints(p_data.nombre_proyecto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00049_direccion_proyecto_checkColumnConstraints(p_data.direccion_proyecto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00049_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00049_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00049_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00049_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00049_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00049_checkTableConstraints {<BLOCK Name="fct.vetb00049_tipo_cliente_checkColumnConstraints">} #+ Check constraints on the "vetb00049.tipo_cliente" column #+ #+ @param p_tipo_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00049_tipo_cliente_checkColumnConstraints(p_tipo_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_cliente LIKE vetb00049.tipo_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00049_tipo_cliente_checkColumnConstraints {<BLOCK Name="fct.vetb00049_sec_cliente_checkColumnConstraints">} #+ Check constraints on the "vetb00049.sec_cliente" column #+ #+ @param p_sec_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00049_sec_cliente_checkColumnConstraints(p_sec_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_cliente LIKE vetb00049.sec_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00049_sec_cliente_checkColumnConstraints {<BLOCK Name="fct.vetb00049_nombre_proyecto_checkColumnConstraints">} #+ Check constraints on the "vetb00049.nombre_proyecto" column #+ #+ @param p_nombre_proyecto - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00049_nombre_proyecto_checkColumnConstraints(p_nombre_proyecto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombre_proyecto LIKE vetb00049.nombre_proyecto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00049_nombre_proyecto_checkColumnConstraints {<BLOCK Name="fct.vetb00049_direccion_proyecto_checkColumnConstraints">} #+ Check constraints on the "vetb00049.direccion_proyecto" column #+ #+ @param p_direccion_proyecto - CHAR(150) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00049_direccion_proyecto_checkColumnConstraints(p_direccion_proyecto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_direccion_proyecto LIKE vetb00049.direccion_proyecto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00049_direccion_proyecto_checkColumnConstraints {<BLOCK Name="fct.vetb00049_status_t_checkColumnConstraints">} #+ Check constraints on the "vetb00049.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00049_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE vetb00049.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00049_status_t_checkColumnConstraints {<BLOCK Name="fct.vetb00049_us_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00049.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00049_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE vetb00049.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00049_us_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00049_fech_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00049.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00049_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE vetb00049.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00049_fech_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00049_us_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00049.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00049_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE vetb00049.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00049_us_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00049_fech_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00049.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00049_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE vetb00049.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00049_fech_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00048_checkTableConstraints">} #+ Check constraints on the "vetb00048" table #+ #+ @param p_data - a row data LIKE vetb00048.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00048_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00048.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00048_factura_checkColumnConstraints(p_data.factura) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00048_detalle_checkColumnConstraints(p_data.detalle) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00048_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00048_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00048_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00048_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00048_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00048_checkTableConstraints {<BLOCK Name="fct.vetb00048_factura_checkColumnConstraints">} #+ Check constraints on the "vetb00048.factura" column #+ #+ @param p_factura - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00048_factura_checkColumnConstraints(p_factura) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_factura LIKE vetb00048.factura LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_factura IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- factura: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00048_factura_checkColumnConstraints {<BLOCK Name="fct.vetb00048_detalle_checkColumnConstraints">} #+ Check constraints on the "vetb00048.detalle" column #+ #+ @param p_detalle - CHAR(180) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00048_detalle_checkColumnConstraints(p_detalle) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_detalle LIKE vetb00048.detalle LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00048_detalle_checkColumnConstraints {<BLOCK Name="fct.vetb00048_status_t_checkColumnConstraints">} #+ Check constraints on the "vetb00048.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00048_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE vetb00048.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00048_status_t_checkColumnConstraints {<BLOCK Name="fct.vetb00048_us_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00048.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00048_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE vetb00048.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00048_us_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00048_fech_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00048.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00048_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE vetb00048.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00048_fech_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00048_us_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00048.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00048_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE vetb00048.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00048_us_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00048_fech_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00048.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00048_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE vetb00048.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00048_fech_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00045_checkTableConstraints">} #+ Check constraints on the "vetb00045" table #+ #+ @param p_data - a row data LIKE vetb00045.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00045_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00045.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00045_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00045_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00045_ventas_checkColumnConstraints(p_data.ventas) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00045_sec_vend_checkColumnConstraints(p_data.sec_vend) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00045_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00045_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00045_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00045_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00045_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00045_valor_checkColumnConstraints(p_data.valor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00045_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00045_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00045_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00045_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00045_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00045_checkTableConstraints {<BLOCK Name="fct.vetb00045_ano_checkColumnConstraints">} #+ Check constraints on the "vetb00045.ano" column #+ #+ @param p_ano - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00045_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE vetb00045.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_ano IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- ano: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00045_ano_checkColumnConstraints {<BLOCK Name="fct.vetb00045_mes_checkColumnConstraints">} #+ Check constraints on the "vetb00045.mes" column #+ #+ @param p_mes - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00045_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE vetb00045.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_mes IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- mes: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00045_mes_checkColumnConstraints {<BLOCK Name="fct.vetb00045_ventas_checkColumnConstraints">} #+ Check constraints on the "vetb00045.ventas" column #+ #+ @param p_ventas - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00045_ventas_checkColumnConstraints(p_ventas) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ventas LIKE vetb00045.ventas LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00045_ventas_checkColumnConstraints {<BLOCK Name="fct.vetb00045_sec_vend_checkColumnConstraints">} #+ Check constraints on the "vetb00045.sec_vend" column #+ #+ @param p_sec_vend - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00045_sec_vend_checkColumnConstraints(p_sec_vend) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_vend LIKE vetb00045.sec_vend LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_sec_vend IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- sec_vend: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00045_sec_vend_checkColumnConstraints {<BLOCK Name="fct.vetb00045_cod_n_checkColumnConstraints">} #+ Check constraints on the "vetb00045.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00045_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE vetb00045.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00045_cod_n_checkColumnConstraints {<BLOCK Name="fct.vetb00045_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "vetb00045.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00045_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE vetb00045.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_grupo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_grupo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00045_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.vetb00045_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "vetb00045.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00045_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE vetb00045.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tipo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tipo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00045_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.vetb00045_cod_sec_checkColumnConstraints">} #+ Check constraints on the "vetb00045.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00045_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE vetb00045.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00045_cod_sec_checkColumnConstraints {<BLOCK Name="fct.vetb00045_cantidad_checkColumnConstraints">} #+ Check constraints on the "vetb00045.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00045_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE vetb00045.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00045_cantidad_checkColumnConstraints {<BLOCK Name="fct.vetb00045_valor_checkColumnConstraints">} #+ Check constraints on the "vetb00045.valor" column #+ #+ @param p_valor - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00045_valor_checkColumnConstraints(p_valor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor LIKE vetb00045.valor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00045_valor_checkColumnConstraints {<BLOCK Name="fct.vetb00045_status_t_checkColumnConstraints">} #+ Check constraints on the "vetb00045.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00045_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE vetb00045.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00045_status_t_checkColumnConstraints {<BLOCK Name="fct.vetb00045_us_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00045.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00045_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE vetb00045.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00045_us_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00045_fech_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00045.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00045_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE vetb00045.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00045_fech_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00045_us_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00045.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00045_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE vetb00045.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00045_us_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00045_fech_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00045.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00045_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE vetb00045.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00045_fech_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00044_checkTableConstraints">} #+ Check constraints on the "vetb00044" table #+ #+ @param p_data - a row data LIKE vetb00044.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00044_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00044.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00044_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00044_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00044_ventas_checkColumnConstraints(p_data.ventas) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00044_sec_vend_checkColumnConstraints(p_data.sec_vend) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00044_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00044_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00044_valor_checkColumnConstraints(p_data.valor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00044_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00044_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00044_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00044_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00044_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00044_checkTableConstraints {<BLOCK Name="fct.vetb00044_ano_checkColumnConstraints">} #+ Check constraints on the "vetb00044.ano" column #+ #+ @param p_ano - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00044_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE vetb00044.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_ano IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- ano: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00044_ano_checkColumnConstraints {<BLOCK Name="fct.vetb00044_mes_checkColumnConstraints">} #+ Check constraints on the "vetb00044.mes" column #+ #+ @param p_mes - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00044_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE vetb00044.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00044_mes_checkColumnConstraints {<BLOCK Name="fct.vetb00044_ventas_checkColumnConstraints">} #+ Check constraints on the "vetb00044.ventas" column #+ #+ @param p_ventas - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00044_ventas_checkColumnConstraints(p_ventas) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ventas LIKE vetb00044.ventas LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00044_ventas_checkColumnConstraints {<BLOCK Name="fct.vetb00044_sec_vend_checkColumnConstraints">} #+ Check constraints on the "vetb00044.sec_vend" column #+ #+ @param p_sec_vend - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00044_sec_vend_checkColumnConstraints(p_sec_vend) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_vend LIKE vetb00044.sec_vend LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00044_sec_vend_checkColumnConstraints {<BLOCK Name="fct.vetb00044_cod_n_checkColumnConstraints">} #+ Check constraints on the "vetb00044.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00044_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE vetb00044.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00044_cod_n_checkColumnConstraints {<BLOCK Name="fct.vetb00044_cantidad_checkColumnConstraints">} #+ Check constraints on the "vetb00044.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00044_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE vetb00044.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00044_cantidad_checkColumnConstraints {<BLOCK Name="fct.vetb00044_valor_checkColumnConstraints">} #+ Check constraints on the "vetb00044.valor" column #+ #+ @param p_valor - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00044_valor_checkColumnConstraints(p_valor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor LIKE vetb00044.valor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00044_valor_checkColumnConstraints {<BLOCK Name="fct.vetb00044_status_t_checkColumnConstraints">} #+ Check constraints on the "vetb00044.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00044_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE vetb00044.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00044_status_t_checkColumnConstraints {<BLOCK Name="fct.vetb00044_us_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00044.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00044_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE vetb00044.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00044_us_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00044_fech_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00044.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00044_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE vetb00044.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00044_fech_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00044_us_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00044.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00044_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE vetb00044.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00044_us_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00044_fech_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00044.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00044_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE vetb00044.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00044_fech_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00042_checkTableConstraints">} #+ Check constraints on the "vetb00042" table #+ #+ @param p_data - a row data LIKE vetb00042.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00042_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00042.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00042_factura_checkColumnConstraints(p_data.factura) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00042_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00042_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00042_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00042_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00042_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00042_serie_checkColumnConstraints(p_data.serie) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00042_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00042_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00042_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00042_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00042_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00042_checkTableConstraints {<BLOCK Name="fct.vetb00042_factura_checkColumnConstraints">} #+ Check constraints on the "vetb00042.factura" column #+ #+ @param p_factura - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00042_factura_checkColumnConstraints(p_factura) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_factura LIKE vetb00042.factura LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00042_factura_checkColumnConstraints {<BLOCK Name="fct.vetb00042_cod_mov_checkColumnConstraints">} #+ Check constraints on the "vetb00042.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00042_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE vetb00042.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00042_cod_mov_checkColumnConstraints {<BLOCK Name="fct.vetb00042_cod_n_checkColumnConstraints">} #+ Check constraints on the "vetb00042.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00042_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE vetb00042.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00042_cod_n_checkColumnConstraints {<BLOCK Name="fct.vetb00042_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "vetb00042.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00042_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE vetb00042.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00042_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.vetb00042_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "vetb00042.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00042_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE vetb00042.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00042_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.vetb00042_cod_sec_checkColumnConstraints">} #+ Check constraints on the "vetb00042.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00042_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE vetb00042.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00042_cod_sec_checkColumnConstraints {<BLOCK Name="fct.vetb00042_serie_checkColumnConstraints">} #+ Check constraints on the "vetb00042.serie" column #+ #+ @param p_serie - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00042_serie_checkColumnConstraints(p_serie) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_serie LIKE vetb00042.serie LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00042_serie_checkColumnConstraints {<BLOCK Name="fct.vetb00042_status_t_checkColumnConstraints">} #+ Check constraints on the "vetb00042.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00042_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE vetb00042.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00042_status_t_checkColumnConstraints {<BLOCK Name="fct.vetb00042_us_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00042.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00042_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE vetb00042.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00042_us_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00042_fech_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00042.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00042_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE vetb00042.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00042_fech_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00042_us_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00042.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00042_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE vetb00042.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00042_us_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00042_fech_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00042.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00042_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE vetb00042.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00042_fech_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00028_checkTableConstraints">} #+ Check constraints on the "vetb00028" table #+ #+ @param p_data - a row data LIKE vetb00028.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00028_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00028.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00028_cod_vend_checkColumnConstraints(p_data.cod_vend) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00028_sec_vend_checkColumnConstraints(p_data.sec_vend) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00028_tipo_cliente_checkColumnConstraints(p_data.tipo_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00028_sec_cliente_checkColumnConstraints(p_data.sec_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00028_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00028_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00028_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00028_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00028_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00028_checkTableConstraints {<BLOCK Name="fct.vetb00028_cod_vend_checkColumnConstraints">} #+ Check constraints on the "vetb00028.cod_vend" column #+ #+ @param p_cod_vend - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00028_cod_vend_checkColumnConstraints(p_cod_vend) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_vend LIKE vetb00028.cod_vend LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00028_cod_vend_checkColumnConstraints {<BLOCK Name="fct.vetb00028_sec_vend_checkColumnConstraints">} #+ Check constraints on the "vetb00028.sec_vend" column #+ #+ @param p_sec_vend - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00028_sec_vend_checkColumnConstraints(p_sec_vend) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_vend LIKE vetb00028.sec_vend LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_sec_vend IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- sec_vend: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00028_sec_vend_checkColumnConstraints {<BLOCK Name="fct.vetb00028_tipo_cliente_checkColumnConstraints">} #+ Check constraints on the "vetb00028.tipo_cliente" column #+ #+ @param p_tipo_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00028_tipo_cliente_checkColumnConstraints(p_tipo_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_cliente LIKE vetb00028.tipo_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_tipo_cliente IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- tipo_cliente: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00028_tipo_cliente_checkColumnConstraints {<BLOCK Name="fct.vetb00028_sec_cliente_checkColumnConstraints">} #+ Check constraints on the "vetb00028.sec_cliente" column #+ #+ @param p_sec_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00028_sec_cliente_checkColumnConstraints(p_sec_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_cliente LIKE vetb00028.sec_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_sec_cliente IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- sec_cliente: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00028_sec_cliente_checkColumnConstraints {<BLOCK Name="fct.vetb00028_status_t_checkColumnConstraints">} #+ Check constraints on the "vetb00028.status_t" column #+ #+ @param p_status_t - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00028_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE vetb00028.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00028_status_t_checkColumnConstraints {<BLOCK Name="fct.vetb00028_us_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00028.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00028_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE vetb00028.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00028_us_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00028_fech_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00028.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00028_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE vetb00028.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00028_fech_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00028_us_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00028.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00028_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE vetb00028.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00028_us_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00028_fech_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00028.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00028_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE vetb00028.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00028_fech_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00027_checkTableConstraints">} #+ Check constraints on the "vetb00027" table #+ #+ @param p_data - a row data LIKE vetb00027.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00027_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00027.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00027_tipo_desc_checkColumnConstraints(p_data.tipo_desc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00027_descrip_checkColumnConstraints(p_data.descrip) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00027_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00027_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00027_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00027_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00027_porc_desc_checkColumnConstraints(p_data.porc_desc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00027_cantidad_1_checkColumnConstraints(p_data.cantidad_1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00027_cantidad_2_checkColumnConstraints(p_data.cantidad_2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00027_cajas_bonif_checkColumnConstraints(p_data.cajas_bonif) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00027_fecha_cambio_checkColumnConstraints(p_data.fecha_cambio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00027_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00027_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00027_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00027_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00027_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00027_checkTableConstraints {<BLOCK Name="fct.vetb00027_tipo_desc_checkColumnConstraints">} #+ Check constraints on the "vetb00027.tipo_desc" column #+ #+ @param p_tipo_desc - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00027_tipo_desc_checkColumnConstraints(p_tipo_desc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_desc LIKE vetb00027.tipo_desc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00027_tipo_desc_checkColumnConstraints {<BLOCK Name="fct.vetb00027_descrip_checkColumnConstraints">} #+ Check constraints on the "vetb00027.descrip" column #+ #+ @param p_descrip - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00027_descrip_checkColumnConstraints(p_descrip) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip LIKE vetb00027.descrip LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00027_descrip_checkColumnConstraints {<BLOCK Name="fct.vetb00027_cod_n_checkColumnConstraints">} #+ Check constraints on the "vetb00027.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00027_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE vetb00027.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00027_cod_n_checkColumnConstraints {<BLOCK Name="fct.vetb00027_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "vetb00027.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00027_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE vetb00027.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00027_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.vetb00027_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "vetb00027.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00027_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE vetb00027.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00027_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.vetb00027_cod_sec_checkColumnConstraints">} #+ Check constraints on the "vetb00027.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00027_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE vetb00027.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00027_cod_sec_checkColumnConstraints {<BLOCK Name="fct.vetb00027_porc_desc_checkColumnConstraints">} #+ Check constraints on the "vetb00027.porc_desc" column #+ #+ @param p_porc_desc - DECIMAL(5,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00027_porc_desc_checkColumnConstraints(p_porc_desc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_porc_desc LIKE vetb00027.porc_desc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00027_porc_desc_checkColumnConstraints {<BLOCK Name="fct.vetb00027_cantidad_1_checkColumnConstraints">} #+ Check constraints on the "vetb00027.cantidad_1" column #+ #+ @param p_cantidad_1 - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00027_cantidad_1_checkColumnConstraints(p_cantidad_1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad_1 LIKE vetb00027.cantidad_1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00027_cantidad_1_checkColumnConstraints {<BLOCK Name="fct.vetb00027_cantidad_2_checkColumnConstraints">} #+ Check constraints on the "vetb00027.cantidad_2" column #+ #+ @param p_cantidad_2 - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00027_cantidad_2_checkColumnConstraints(p_cantidad_2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad_2 LIKE vetb00027.cantidad_2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00027_cantidad_2_checkColumnConstraints {<BLOCK Name="fct.vetb00027_cajas_bonif_checkColumnConstraints">} #+ Check constraints on the "vetb00027.cajas_bonif" column #+ #+ @param p_cajas_bonif - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00027_cajas_bonif_checkColumnConstraints(p_cajas_bonif) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cajas_bonif LIKE vetb00027.cajas_bonif LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00027_cajas_bonif_checkColumnConstraints {<BLOCK Name="fct.vetb00027_fecha_cambio_checkColumnConstraints">} #+ Check constraints on the "vetb00027.fecha_cambio" column #+ #+ @param p_fecha_cambio - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00027_fecha_cambio_checkColumnConstraints(p_fecha_cambio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_cambio LIKE vetb00027.fecha_cambio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00027_fecha_cambio_checkColumnConstraints {<BLOCK Name="fct.vetb00027_status_t_checkColumnConstraints">} #+ Check constraints on the "vetb00027.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00027_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE vetb00027.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00027_status_t_checkColumnConstraints {<BLOCK Name="fct.vetb00027_us_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00027.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00027_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE vetb00027.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00027_us_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00027_fech_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00027.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00027_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE vetb00027.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00027_fech_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00027_us_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00027.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00027_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE vetb00027.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00027_us_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00027_fech_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00027.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00027_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE vetb00027.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00027_fech_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00026_checkTableConstraints">} #+ Check constraints on the "vetb00026" table #+ #+ @param p_data - a row data LIKE vetb00026.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00026_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00026.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00026_codid_checkColumnConstraints(p_data.codid) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00026_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00026_checkTableConstraints {<BLOCK Name="fct.vetb00026_codid_checkColumnConstraints">} #+ Check constraints on the "vetb00026.codid" column #+ #+ @param p_codid - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00026_codid_checkColumnConstraints(p_codid) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codid LIKE vetb00026.codid LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00026_codid_checkColumnConstraints {<BLOCK Name="fct.vetb00026_descripcion_checkColumnConstraints">} #+ Check constraints on the "vetb00026.descripcion" column #+ #+ @param p_descripcion - CHAR(25) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00026_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE vetb00026.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00026_descripcion_checkColumnConstraints {<BLOCK Name="fct.vetb00025c_checkTableConstraints">} #+ Check constraints on the "vetb00025c" table #+ #+ @param p_data - a row data LIKE vetb00025c.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025c_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00025c.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00025c_ventas_checkColumnConstraints(p_data.ventas) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025c_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025c_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025c_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025c_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025c_tipo_cliente_checkColumnConstraints(p_data.tipo_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025c_sec_cliente_checkColumnConstraints(p_data.sec_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025c_precio_checkColumnConstraints(p_data.precio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025c_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025c_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025c_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025c_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025c_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025c_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025c_cod_lista_checkColumnConstraints(p_data.cod_lista) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025c_idrow_checkColumnConstraints(p_data.idrow) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025c_checkTableConstraints {<BLOCK Name="fct.vetb00025c_ventas_checkColumnConstraints">} #+ Check constraints on the "vetb00025c.ventas" column #+ #+ @param p_ventas - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025c_ventas_checkColumnConstraints(p_ventas) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ventas LIKE vetb00025c.ventas LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025c_ventas_checkColumnConstraints {<BLOCK Name="fct.vetb00025c_cod_n_checkColumnConstraints">} #+ Check constraints on the "vetb00025c.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025c_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE vetb00025c.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025c_cod_n_checkColumnConstraints {<BLOCK Name="fct.vetb00025c_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "vetb00025c.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025c_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE vetb00025c.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025c_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.vetb00025c_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "vetb00025c.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025c_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE vetb00025c.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025c_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.vetb00025c_cod_sec_checkColumnConstraints">} #+ Check constraints on the "vetb00025c.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025c_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE vetb00025c.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025c_cod_sec_checkColumnConstraints {<BLOCK Name="fct.vetb00025c_tipo_cliente_checkColumnConstraints">} #+ Check constraints on the "vetb00025c.tipo_cliente" column #+ #+ @param p_tipo_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025c_tipo_cliente_checkColumnConstraints(p_tipo_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_cliente LIKE vetb00025c.tipo_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025c_tipo_cliente_checkColumnConstraints {<BLOCK Name="fct.vetb00025c_sec_cliente_checkColumnConstraints">} #+ Check constraints on the "vetb00025c.sec_cliente" column #+ #+ @param p_sec_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025c_sec_cliente_checkColumnConstraints(p_sec_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_cliente LIKE vetb00025c.sec_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025c_sec_cliente_checkColumnConstraints {<BLOCK Name="fct.vetb00025c_precio_checkColumnConstraints">} #+ Check constraints on the "vetb00025c.precio" column #+ #+ @param p_precio - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025c_precio_checkColumnConstraints(p_precio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_precio LIKE vetb00025c.precio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025c_precio_checkColumnConstraints {<BLOCK Name="fct.vetb00025c_descripcion_checkColumnConstraints">} #+ Check constraints on the "vetb00025c.descripcion" column #+ #+ @param p_descripcion - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025c_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE vetb00025c.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025c_descripcion_checkColumnConstraints {<BLOCK Name="fct.vetb00025c_status_t_checkColumnConstraints">} #+ Check constraints on the "vetb00025c.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025c_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE vetb00025c.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025c_status_t_checkColumnConstraints {<BLOCK Name="fct.vetb00025c_us_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00025c.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025c_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE vetb00025c.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025c_us_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00025c_fech_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00025c.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025c_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE vetb00025c.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025c_fech_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00025c_us_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00025c.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025c_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE vetb00025c.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025c_us_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00025c_fech_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00025c.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025c_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE vetb00025c.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025c_fech_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00025c_cod_lista_checkColumnConstraints">} #+ Check constraints on the "vetb00025c.cod_lista" column #+ #+ @param p_cod_lista - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025c_cod_lista_checkColumnConstraints(p_cod_lista) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_lista LIKE vetb00025c.cod_lista LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025c_cod_lista_checkColumnConstraints {<BLOCK Name="fct.vetb00025c_idrow_checkColumnConstraints">} #+ Check constraints on the "vetb00025c.idrow" column #+ #+ @param p_idrow - SERIAL - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025c_idrow_checkColumnConstraints(p_idrow) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_idrow LIKE vetb00025c.idrow LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_idrow IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- idrow: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025c_idrow_checkColumnConstraints {<BLOCK Name="fct.vetb00025b_checkTableConstraints">} #+ Check constraints on the "vetb00025b" table #+ #+ @param p_data - a row data LIKE vetb00025b.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025b_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00025b.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00025b_ventas_checkColumnConstraints(p_data.ventas) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025b_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025b_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025b_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025b_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025b_tipo_cliente_checkColumnConstraints(p_data.tipo_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025b_sec_cliente_checkColumnConstraints(p_data.sec_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025b_precio_checkColumnConstraints(p_data.precio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025b_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025b_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025b_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025b_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025b_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025b_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025b_cod_lista_checkColumnConstraints(p_data.cod_lista) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025b_idrow_checkColumnConstraints(p_data.idrow) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025b_checkTableConstraints {<BLOCK Name="fct.vetb00025b_ventas_checkColumnConstraints">} #+ Check constraints on the "vetb00025b.ventas" column #+ #+ @param p_ventas - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025b_ventas_checkColumnConstraints(p_ventas) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ventas LIKE vetb00025b.ventas LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025b_ventas_checkColumnConstraints {<BLOCK Name="fct.vetb00025b_cod_n_checkColumnConstraints">} #+ Check constraints on the "vetb00025b.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025b_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE vetb00025b.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025b_cod_n_checkColumnConstraints {<BLOCK Name="fct.vetb00025b_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "vetb00025b.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025b_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE vetb00025b.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025b_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.vetb00025b_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "vetb00025b.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025b_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE vetb00025b.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025b_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.vetb00025b_cod_sec_checkColumnConstraints">} #+ Check constraints on the "vetb00025b.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025b_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE vetb00025b.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025b_cod_sec_checkColumnConstraints {<BLOCK Name="fct.vetb00025b_tipo_cliente_checkColumnConstraints">} #+ Check constraints on the "vetb00025b.tipo_cliente" column #+ #+ @param p_tipo_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025b_tipo_cliente_checkColumnConstraints(p_tipo_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_cliente LIKE vetb00025b.tipo_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025b_tipo_cliente_checkColumnConstraints {<BLOCK Name="fct.vetb00025b_sec_cliente_checkColumnConstraints">} #+ Check constraints on the "vetb00025b.sec_cliente" column #+ #+ @param p_sec_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025b_sec_cliente_checkColumnConstraints(p_sec_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_cliente LIKE vetb00025b.sec_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025b_sec_cliente_checkColumnConstraints {<BLOCK Name="fct.vetb00025b_precio_checkColumnConstraints">} #+ Check constraints on the "vetb00025b.precio" column #+ #+ @param p_precio - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025b_precio_checkColumnConstraints(p_precio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_precio LIKE vetb00025b.precio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025b_precio_checkColumnConstraints {<BLOCK Name="fct.vetb00025b_descripcion_checkColumnConstraints">} #+ Check constraints on the "vetb00025b.descripcion" column #+ #+ @param p_descripcion - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025b_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE vetb00025b.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025b_descripcion_checkColumnConstraints {<BLOCK Name="fct.vetb00025b_status_t_checkColumnConstraints">} #+ Check constraints on the "vetb00025b.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025b_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE vetb00025b.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025b_status_t_checkColumnConstraints {<BLOCK Name="fct.vetb00025b_us_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00025b.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025b_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE vetb00025b.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025b_us_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00025b_fech_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00025b.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025b_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE vetb00025b.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025b_fech_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00025b_us_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00025b.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025b_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE vetb00025b.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025b_us_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00025b_fech_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00025b.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025b_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE vetb00025b.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025b_fech_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00025b_cod_lista_checkColumnConstraints">} #+ Check constraints on the "vetb00025b.cod_lista" column #+ #+ @param p_cod_lista - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025b_cod_lista_checkColumnConstraints(p_cod_lista) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_lista LIKE vetb00025b.cod_lista LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025b_cod_lista_checkColumnConstraints {<BLOCK Name="fct.vetb00025b_idrow_checkColumnConstraints">} #+ Check constraints on the "vetb00025b.idrow" column #+ #+ @param p_idrow - SERIAL - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025b_idrow_checkColumnConstraints(p_idrow) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_idrow LIKE vetb00025b.idrow LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_idrow IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- idrow: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025b_idrow_checkColumnConstraints {<BLOCK Name="fct.vetb00025_checkTableConstraints">} #+ Check constraints on the "vetb00025" table #+ #+ @param p_data - a row data LIKE vetb00025.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00025.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00025_ventas_checkColumnConstraints(p_data.ventas) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025_tipo_cliente_checkColumnConstraints(p_data.tipo_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025_sec_cliente_checkColumnConstraints(p_data.sec_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025_precio_checkColumnConstraints(p_data.precio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025_cod_lista_checkColumnConstraints(p_data.cod_lista) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025_idrow_checkColumnConstraints(p_data.idrow) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00025_pk_vetb00025_checkUniqueConstraint(p_forUpdate, p_data.ventas, p_data.cod_n, p_data.cod_grupo, p_data.cod_tipo, p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025_checkTableConstraints {<BLOCK Name="fct.vetb00025_pk_vetb00025_checkUniqueConstraint">} #+ Check the primary key uniqueness constraint on the "vetb00025" #+ #+ @param p_key - Primary Key #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025_pk_vetb00025_checkUniqueConstraint(p_forUpdate, p_key) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_forUpdate BOOLEAN DEFINE p_key RECORD vetb00025_ventas LIKE vetb00025.ventas, vetb00025_cod_n LIKE vetb00025.cod_n, vetb00025_cod_grupo LIKE vetb00025.cod_grupo, vetb00025_cod_tipo LIKE vetb00025.cod_tipo, vetb00025_cod_sec LIKE vetb00025.cod_sec END RECORD DEFINE l_key RECORD vetb00025_ventas LIKE vetb00025.ventas, vetb00025_cod_n LIKE vetb00025.cod_n, vetb00025_cod_grupo LIKE vetb00025.cod_grupo, vetb00025_cod_tipo LIKE vetb00025.cod_tipo, vetb00025_cod_sec LIKE vetb00025.cod_sec 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 vetb00025.ventas = ? AND vetb00025.cod_n = ? AND vetb00025.cod_grupo = ? AND vetb00025.cod_tipo = ? AND vetb00025.cod_sec = ? " let l_sqlQuery = "SELECT COUNT(*), ventas, cod_n, cod_grupo, cod_tipo, cod_sec FROM vetb00025 ", l_where, " GROUP BY ventas, cod_n, cod_grupo, cod_tipo, cod_sec" PREPARE cur_vetb00025_pk_vetb00025_checkUniqueConstraint FROM l_sqlQuery EXECUTE cur_vetb00025_pk_vetb00025_checkUniqueConstraint INTO l_count, l_key.* USING p_key.* FREE cur_vetb00025_pk_vetb00025_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- ventas + cod_n + cod_grupo + cod_tipo + cod_sec: " || ERROR_BAM_00002) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025_pk_vetb00025_checkUniqueConstraint {<BLOCK Name="fct.vetb00025_ventas_checkColumnConstraints">} #+ Check constraints on the "vetb00025.ventas" column #+ #+ @param p_ventas - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025_ventas_checkColumnConstraints(p_ventas) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ventas LIKE vetb00025.ventas LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_ventas IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- ventas: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025_ventas_checkColumnConstraints {<BLOCK Name="fct.vetb00025_cod_n_checkColumnConstraints">} #+ Check constraints on the "vetb00025.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE vetb00025.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025_cod_n_checkColumnConstraints {<BLOCK Name="fct.vetb00025_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "vetb00025.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE vetb00025.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_grupo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_grupo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.vetb00025_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "vetb00025.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE vetb00025.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tipo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tipo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.vetb00025_cod_sec_checkColumnConstraints">} #+ Check constraints on the "vetb00025.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE vetb00025.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025_cod_sec_checkColumnConstraints {<BLOCK Name="fct.vetb00025_tipo_cliente_checkColumnConstraints">} #+ Check constraints on the "vetb00025.tipo_cliente" column #+ #+ @param p_tipo_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025_tipo_cliente_checkColumnConstraints(p_tipo_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_cliente LIKE vetb00025.tipo_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025_tipo_cliente_checkColumnConstraints {<BLOCK Name="fct.vetb00025_sec_cliente_checkColumnConstraints">} #+ Check constraints on the "vetb00025.sec_cliente" column #+ #+ @param p_sec_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025_sec_cliente_checkColumnConstraints(p_sec_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_cliente LIKE vetb00025.sec_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025_sec_cliente_checkColumnConstraints {<BLOCK Name="fct.vetb00025_precio_checkColumnConstraints">} #+ Check constraints on the "vetb00025.precio" column #+ #+ @param p_precio - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025_precio_checkColumnConstraints(p_precio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_precio LIKE vetb00025.precio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_precio IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- precio: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025_precio_checkColumnConstraints {<BLOCK Name="fct.vetb00025_descripcion_checkColumnConstraints">} #+ Check constraints on the "vetb00025.descripcion" column #+ #+ @param p_descripcion - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE vetb00025.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025_descripcion_checkColumnConstraints {<BLOCK Name="fct.vetb00025_status_t_checkColumnConstraints">} #+ Check constraints on the "vetb00025.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE vetb00025.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025_status_t_checkColumnConstraints {<BLOCK Name="fct.vetb00025_us_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00025.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE vetb00025.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025_us_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00025_fech_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00025.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE vetb00025.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025_fech_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00025_us_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00025.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE vetb00025.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025_us_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00025_fech_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00025.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE vetb00025.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025_fech_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00025_cod_lista_checkColumnConstraints">} #+ Check constraints on the "vetb00025.cod_lista" column #+ #+ @param p_cod_lista - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025_cod_lista_checkColumnConstraints(p_cod_lista) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_lista LIKE vetb00025.cod_lista LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025_cod_lista_checkColumnConstraints {<BLOCK Name="fct.vetb00025_idrow_checkColumnConstraints">} #+ Check constraints on the "vetb00025.idrow" column #+ #+ @param p_idrow - SERIAL - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00025_idrow_checkColumnConstraints(p_idrow) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_idrow LIKE vetb00025.idrow LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_idrow IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- idrow: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00025_idrow_checkColumnConstraints {<BLOCK Name="fct.vetb00024_checkTableConstraints">} #+ Check constraints on the "vetb00024" table #+ #+ @param p_data - a row data LIKE vetb00024.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00024_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00024.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00024_fecha_ini_sem_checkColumnConstraints(p_data.fecha_ini_sem) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00024_fecha_fin_sem_checkColumnConstraints(p_data.fecha_fin_sem) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00024_cod_vend_checkColumnConstraints(p_data.cod_vend) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00024_sec_vend_checkColumnConstraints(p_data.sec_vend) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00024_tipo_cliente_checkColumnConstraints(p_data.tipo_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00024_sec_cliente_checkColumnConstraints(p_data.sec_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00024_fecha_visita_checkColumnConstraints(p_data.fecha_visita) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00024_hora_visita_checkColumnConstraints(p_data.hora_visita) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00024_compra_checkColumnConstraints(p_data.compra) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00024_persona_contacto_checkColumnConstraints(p_data.persona_contacto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00024_observacion_checkColumnConstraints(p_data.observacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00024_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00024_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00024_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00024_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00024_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00024_checkTableConstraints {<BLOCK Name="fct.vetb00024_fecha_ini_sem_checkColumnConstraints">} #+ Check constraints on the "vetb00024.fecha_ini_sem" column #+ #+ @param p_fecha_ini_sem - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00024_fecha_ini_sem_checkColumnConstraints(p_fecha_ini_sem) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_ini_sem LIKE vetb00024.fecha_ini_sem LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00024_fecha_ini_sem_checkColumnConstraints {<BLOCK Name="fct.vetb00024_fecha_fin_sem_checkColumnConstraints">} #+ Check constraints on the "vetb00024.fecha_fin_sem" column #+ #+ @param p_fecha_fin_sem - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00024_fecha_fin_sem_checkColumnConstraints(p_fecha_fin_sem) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_fin_sem LIKE vetb00024.fecha_fin_sem LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00024_fecha_fin_sem_checkColumnConstraints {<BLOCK Name="fct.vetb00024_cod_vend_checkColumnConstraints">} #+ Check constraints on the "vetb00024.cod_vend" column #+ #+ @param p_cod_vend - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00024_cod_vend_checkColumnConstraints(p_cod_vend) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_vend LIKE vetb00024.cod_vend LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00024_cod_vend_checkColumnConstraints {<BLOCK Name="fct.vetb00024_sec_vend_checkColumnConstraints">} #+ Check constraints on the "vetb00024.sec_vend" column #+ #+ @param p_sec_vend - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00024_sec_vend_checkColumnConstraints(p_sec_vend) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_vend LIKE vetb00024.sec_vend LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00024_sec_vend_checkColumnConstraints {<BLOCK Name="fct.vetb00024_tipo_cliente_checkColumnConstraints">} #+ Check constraints on the "vetb00024.tipo_cliente" column #+ #+ @param p_tipo_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00024_tipo_cliente_checkColumnConstraints(p_tipo_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_cliente LIKE vetb00024.tipo_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00024_tipo_cliente_checkColumnConstraints {<BLOCK Name="fct.vetb00024_sec_cliente_checkColumnConstraints">} #+ Check constraints on the "vetb00024.sec_cliente" column #+ #+ @param p_sec_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00024_sec_cliente_checkColumnConstraints(p_sec_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_cliente LIKE vetb00024.sec_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00024_sec_cliente_checkColumnConstraints {<BLOCK Name="fct.vetb00024_fecha_visita_checkColumnConstraints">} #+ Check constraints on the "vetb00024.fecha_visita" column #+ #+ @param p_fecha_visita - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00024_fecha_visita_checkColumnConstraints(p_fecha_visita) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_visita LIKE vetb00024.fecha_visita LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00024_fecha_visita_checkColumnConstraints {<BLOCK Name="fct.vetb00024_hora_visita_checkColumnConstraints">} #+ Check constraints on the "vetb00024.hora_visita" column #+ #+ @param p_hora_visita - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00024_hora_visita_checkColumnConstraints(p_hora_visita) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_hora_visita LIKE vetb00024.hora_visita LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00024_hora_visita_checkColumnConstraints {<BLOCK Name="fct.vetb00024_compra_checkColumnConstraints">} #+ Check constraints on the "vetb00024.compra" column #+ #+ @param p_compra - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00024_compra_checkColumnConstraints(p_compra) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_compra LIKE vetb00024.compra LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00024_compra_checkColumnConstraints {<BLOCK Name="fct.vetb00024_persona_contacto_checkColumnConstraints">} #+ Check constraints on the "vetb00024.persona_contacto" column #+ #+ @param p_persona_contacto - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00024_persona_contacto_checkColumnConstraints(p_persona_contacto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_persona_contacto LIKE vetb00024.persona_contacto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00024_persona_contacto_checkColumnConstraints {<BLOCK Name="fct.vetb00024_observacion_checkColumnConstraints">} #+ Check constraints on the "vetb00024.observacion" column #+ #+ @param p_observacion - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00024_observacion_checkColumnConstraints(p_observacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_observacion LIKE vetb00024.observacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00024_observacion_checkColumnConstraints {<BLOCK Name="fct.vetb00024_status_t_checkColumnConstraints">} #+ Check constraints on the "vetb00024.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00024_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE vetb00024.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00024_status_t_checkColumnConstraints {<BLOCK Name="fct.vetb00024_us_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00024.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00024_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE vetb00024.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00024_us_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00024_fech_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00024.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00024_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE vetb00024.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00024_fech_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00024_us_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00024.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00024_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE vetb00024.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00024_us_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00024_fech_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00024.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00024_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE vetb00024.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00024_fech_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00023_checkTableConstraints">} #+ Check constraints on the "vetb00023" table #+ #+ @param p_data - a row data LIKE vetb00023.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00023_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00023.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00023_cod_tarifa_checkColumnConstraints(p_data.cod_tarifa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00023_descrip_checkColumnConstraints(p_data.descrip) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00023_cod_provincia_checkColumnConstraints(p_data.cod_provincia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00023_tarifa_pago_checkColumnConstraints(p_data.tarifa_pago) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00023_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00023_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00023_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00023_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00023_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00023_checkTableConstraints {<BLOCK Name="fct.vetb00023_cod_tarifa_checkColumnConstraints">} #+ Check constraints on the "vetb00023.cod_tarifa" column #+ #+ @param p_cod_tarifa - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00023_cod_tarifa_checkColumnConstraints(p_cod_tarifa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tarifa LIKE vetb00023.cod_tarifa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00023_cod_tarifa_checkColumnConstraints {<BLOCK Name="fct.vetb00023_descrip_checkColumnConstraints">} #+ Check constraints on the "vetb00023.descrip" column #+ #+ @param p_descrip - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00023_descrip_checkColumnConstraints(p_descrip) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip LIKE vetb00023.descrip LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00023_descrip_checkColumnConstraints {<BLOCK Name="fct.vetb00023_cod_provincia_checkColumnConstraints">} #+ Check constraints on the "vetb00023.cod_provincia" column #+ #+ @param p_cod_provincia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00023_cod_provincia_checkColumnConstraints(p_cod_provincia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_provincia LIKE vetb00023.cod_provincia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00023_cod_provincia_checkColumnConstraints {<BLOCK Name="fct.vetb00023_tarifa_pago_checkColumnConstraints">} #+ Check constraints on the "vetb00023.tarifa_pago" column #+ #+ @param p_tarifa_pago - DECIMAL(7,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00023_tarifa_pago_checkColumnConstraints(p_tarifa_pago) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tarifa_pago LIKE vetb00023.tarifa_pago LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00023_tarifa_pago_checkColumnConstraints {<BLOCK Name="fct.vetb00023_status_t_checkColumnConstraints">} #+ Check constraints on the "vetb00023.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00023_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE vetb00023.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00023_status_t_checkColumnConstraints {<BLOCK Name="fct.vetb00023_us_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00023.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00023_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE vetb00023.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00023_us_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00023_fech_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00023.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00023_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE vetb00023.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00023_fech_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00023_us_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00023.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00023_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE vetb00023.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00023_us_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00023_fech_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00023.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00023_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE vetb00023.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00023_fech_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00022_checkTableConstraints">} #+ Check constraints on the "vetb00022" table #+ #+ @param p_data - a row data LIKE vetb00022.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00022_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00022.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00022_etiqueta_checkColumnConstraints(p_data.etiqueta) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00022_cotizacion_no_checkColumnConstraints(p_data.cotizacion_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00022_secuencia_checkColumnConstraints(p_data.secuencia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00022_area_checkColumnConstraints(p_data.area) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00022_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00022_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00022_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00022_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00022_lado_1_checkColumnConstraints(p_data.lado_1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00022_lado_2_checkColumnConstraints(p_data.lado_2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00022_lado_3_checkColumnConstraints(p_data.lado_3) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00022_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00022_medida_checkColumnConstraints(p_data.medida) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00022_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00022_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00022_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00022_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00022_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00022_checkTableConstraints {<BLOCK Name="fct.vetb00022_etiqueta_checkColumnConstraints">} #+ Check constraints on the "vetb00022.etiqueta" column #+ #+ @param p_etiqueta - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00022_etiqueta_checkColumnConstraints(p_etiqueta) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_etiqueta LIKE vetb00022.etiqueta LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_etiqueta IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- etiqueta: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00022_etiqueta_checkColumnConstraints {<BLOCK Name="fct.vetb00022_cotizacion_no_checkColumnConstraints">} #+ Check constraints on the "vetb00022.cotizacion_no" column #+ #+ @param p_cotizacion_no - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00022_cotizacion_no_checkColumnConstraints(p_cotizacion_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cotizacion_no LIKE vetb00022.cotizacion_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cotizacion_no IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cotizacion_no: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00022_cotizacion_no_checkColumnConstraints {<BLOCK Name="fct.vetb00022_secuencia_checkColumnConstraints">} #+ Check constraints on the "vetb00022.secuencia" column #+ #+ @param p_secuencia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00022_secuencia_checkColumnConstraints(p_secuencia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_secuencia LIKE vetb00022.secuencia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_secuencia IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- secuencia: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00022_secuencia_checkColumnConstraints {<BLOCK Name="fct.vetb00022_area_checkColumnConstraints">} #+ Check constraints on the "vetb00022.area" column #+ #+ @param p_area - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00022_area_checkColumnConstraints(p_area) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_area LIKE vetb00022.area LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00022_area_checkColumnConstraints {<BLOCK Name="fct.vetb00022_cod_n_checkColumnConstraints">} #+ Check constraints on the "vetb00022.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00022_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE vetb00022.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00022_cod_n_checkColumnConstraints {<BLOCK Name="fct.vetb00022_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "vetb00022.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00022_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE vetb00022.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00022_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.vetb00022_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "vetb00022.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00022_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE vetb00022.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00022_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.vetb00022_cod_sec_checkColumnConstraints">} #+ Check constraints on the "vetb00022.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00022_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE vetb00022.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00022_cod_sec_checkColumnConstraints {<BLOCK Name="fct.vetb00022_lado_1_checkColumnConstraints">} #+ Check constraints on the "vetb00022.lado_1" column #+ #+ @param p_lado_1 - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00022_lado_1_checkColumnConstraints(p_lado_1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_lado_1 LIKE vetb00022.lado_1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00022_lado_1_checkColumnConstraints {<BLOCK Name="fct.vetb00022_lado_2_checkColumnConstraints">} #+ Check constraints on the "vetb00022.lado_2" column #+ #+ @param p_lado_2 - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00022_lado_2_checkColumnConstraints(p_lado_2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_lado_2 LIKE vetb00022.lado_2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00022_lado_2_checkColumnConstraints {<BLOCK Name="fct.vetb00022_lado_3_checkColumnConstraints">} #+ Check constraints on the "vetb00022.lado_3" column #+ #+ @param p_lado_3 - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00022_lado_3_checkColumnConstraints(p_lado_3) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_lado_3 LIKE vetb00022.lado_3 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00022_lado_3_checkColumnConstraints {<BLOCK Name="fct.vetb00022_cantidad_checkColumnConstraints">} #+ Check constraints on the "vetb00022.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00022_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE vetb00022.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00022_cantidad_checkColumnConstraints {<BLOCK Name="fct.vetb00022_medida_checkColumnConstraints">} #+ Check constraints on the "vetb00022.medida" column #+ #+ @param p_medida - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00022_medida_checkColumnConstraints(p_medida) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_medida LIKE vetb00022.medida LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00022_medida_checkColumnConstraints {<BLOCK Name="fct.vetb00022_status_t_checkColumnConstraints">} #+ Check constraints on the "vetb00022.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00022_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE vetb00022.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00022_status_t_checkColumnConstraints {<BLOCK Name="fct.vetb00022_us_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00022.us_crea" column #+ #+ @param p_us_crea - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00022_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE vetb00022.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00022_us_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00022_fech_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00022.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00022_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE vetb00022.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00022_fech_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00022_us_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00022.us_mod" column #+ #+ @param p_us_mod - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00022_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE vetb00022.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00022_us_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00022_fech_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00022.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00022_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE vetb00022.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00022_fech_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00020_checkTableConstraints">} #+ Check constraints on the "vetb00020" table #+ #+ @param p_data - a row data LIKE vetb00020.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00020_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00020.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00020_cod_provincia_checkColumnConstraints(p_data.cod_provincia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00020_nombre_provincia_checkColumnConstraints(p_data.nombre_provincia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00020_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00020_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00020_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00020_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00020_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00020_id_ciudad_checkColumnConstraints(p_data.id_ciudad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00020_pk_vetb00020_checkUniqueConstraint(p_forUpdate, p_data.cod_provincia, p_data.id_ciudad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00020_checkTableConstraints {<BLOCK Name="fct.vetb00020_pk_vetb00020_checkUniqueConstraint">} #+ Check the primary key uniqueness constraint on the "vetb00020" #+ #+ @param p_key - Primary Key #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00020_pk_vetb00020_checkUniqueConstraint(p_forUpdate, p_key) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_forUpdate BOOLEAN DEFINE p_key RECORD vetb00020_cod_provincia LIKE vetb00020.cod_provincia, vetb00020_id_ciudad LIKE vetb00020.id_ciudad END RECORD DEFINE l_key RECORD vetb00020_cod_provincia LIKE vetb00020.cod_provincia, vetb00020_id_ciudad LIKE vetb00020.id_ciudad 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 vetb00020.cod_provincia = ? AND vetb00020.id_ciudad = ? " let l_sqlQuery = "SELECT COUNT(*), cod_provincia, id_ciudad FROM vetb00020 ", l_where, " GROUP BY cod_provincia, id_ciudad" PREPARE cur_vetb00020_pk_vetb00020_checkUniqueConstraint FROM l_sqlQuery EXECUTE cur_vetb00020_pk_vetb00020_checkUniqueConstraint INTO l_count, l_key.* USING p_key.* FREE cur_vetb00020_pk_vetb00020_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- cod_provincia + id_ciudad: " || ERROR_BAM_00002) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00020_pk_vetb00020_checkUniqueConstraint {<BLOCK Name="fct.vetb00020_cod_provincia_checkColumnConstraints">} #+ Check constraints on the "vetb00020.cod_provincia" column #+ #+ @param p_cod_provincia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00020_cod_provincia_checkColumnConstraints(p_cod_provincia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_provincia LIKE vetb00020.cod_provincia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_provincia IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_provincia: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00020_cod_provincia_checkColumnConstraints {<BLOCK Name="fct.vetb00020_nombre_provincia_checkColumnConstraints">} #+ Check constraints on the "vetb00020.nombre_provincia" column #+ #+ @param p_nombre_provincia - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00020_nombre_provincia_checkColumnConstraints(p_nombre_provincia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombre_provincia LIKE vetb00020.nombre_provincia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00020_nombre_provincia_checkColumnConstraints {<BLOCK Name="fct.vetb00020_status_t_checkColumnConstraints">} #+ Check constraints on the "vetb00020.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00020_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE vetb00020.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00020_status_t_checkColumnConstraints {<BLOCK Name="fct.vetb00020_us_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00020.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00020_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE vetb00020.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00020_us_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00020_fech_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00020.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00020_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE vetb00020.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00020_fech_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00020_us_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00020.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00020_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE vetb00020.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00020_us_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00020_fech_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00020.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00020_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE vetb00020.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00020_fech_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00020_id_ciudad_checkColumnConstraints">} #+ Check constraints on the "vetb00020.id_ciudad" column #+ #+ @param p_id_ciudad - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00020_id_ciudad_checkColumnConstraints(p_id_ciudad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_id_ciudad LIKE vetb00020.id_ciudad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_id_ciudad IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- id_ciudad: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00020_id_ciudad_checkColumnConstraints {<BLOCK Name="fct.vetb00019_checkTableConstraints">} #+ Check constraints on the "vetb00019" table #+ #+ @param p_data - a row data LIKE vetb00019.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00019_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00019.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00019_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00019_mes_ini_checkColumnConstraints(p_data.mes_ini) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00019_mes_fin_checkColumnConstraints(p_data.mes_fin) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00019_prima_checkColumnConstraints(p_data.prima) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00019_itbi_checkColumnConstraints(p_data.itbi) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00019_porciento_checkColumnConstraints(p_data.porciento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00019_disponible_checkColumnConstraints(p_data.disponible) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00019_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00019_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00019_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00019_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00019_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00019_checkTableConstraints {<BLOCK Name="fct.vetb00019_ano_checkColumnConstraints">} #+ Check constraints on the "vetb00019.ano" column #+ #+ @param p_ano - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00019_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE vetb00019.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00019_ano_checkColumnConstraints {<BLOCK Name="fct.vetb00019_mes_ini_checkColumnConstraints">} #+ Check constraints on the "vetb00019.mes_ini" column #+ #+ @param p_mes_ini - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00019_mes_ini_checkColumnConstraints(p_mes_ini) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes_ini LIKE vetb00019.mes_ini LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00019_mes_ini_checkColumnConstraints {<BLOCK Name="fct.vetb00019_mes_fin_checkColumnConstraints">} #+ Check constraints on the "vetb00019.mes_fin" column #+ #+ @param p_mes_fin - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00019_mes_fin_checkColumnConstraints(p_mes_fin) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes_fin LIKE vetb00019.mes_fin LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00019_mes_fin_checkColumnConstraints {<BLOCK Name="fct.vetb00019_prima_checkColumnConstraints">} #+ Check constraints on the "vetb00019.prima" column #+ #+ @param p_prima - DECIMAL(7,3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00019_prima_checkColumnConstraints(p_prima) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_prima LIKE vetb00019.prima LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00019_prima_checkColumnConstraints {<BLOCK Name="fct.vetb00019_itbi_checkColumnConstraints">} #+ Check constraints on the "vetb00019.itbi" column #+ #+ @param p_itbi - DECIMAL(7,3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00019_itbi_checkColumnConstraints(p_itbi) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_itbi LIKE vetb00019.itbi LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00019_itbi_checkColumnConstraints {<BLOCK Name="fct.vetb00019_porciento_checkColumnConstraints">} #+ Check constraints on the "vetb00019.porciento" column #+ #+ @param p_porciento - DECIMAL(8,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00019_porciento_checkColumnConstraints(p_porciento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_porciento LIKE vetb00019.porciento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00019_porciento_checkColumnConstraints {<BLOCK Name="fct.vetb00019_disponible_checkColumnConstraints">} #+ Check constraints on the "vetb00019.disponible" column #+ #+ @param p_disponible - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00019_disponible_checkColumnConstraints(p_disponible) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_disponible LIKE vetb00019.disponible LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00019_disponible_checkColumnConstraints {<BLOCK Name="fct.vetb00019_status_t_checkColumnConstraints">} #+ Check constraints on the "vetb00019.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00019_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE vetb00019.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00019_status_t_checkColumnConstraints {<BLOCK Name="fct.vetb00019_us_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00019.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00019_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE vetb00019.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00019_us_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00019_fech_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00019.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00019_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE vetb00019.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00019_fech_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00019_us_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00019.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00019_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE vetb00019.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00019_us_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00019_fech_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00019.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00019_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE vetb00019.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00019_fech_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00018_checkTableConstraints">} #+ Check constraints on the "vetb00018" table #+ #+ @param p_data - a row data LIKE vetb00018.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00018_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00018.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00018_anos_checkColumnConstraints(p_data.anos) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00018_fecha_in_checkColumnConstraints(p_data.fecha_in) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00018_fecha_fi_checkColumnConstraints(p_data.fecha_fi) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00018_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00018_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00018_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00018_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00018_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00018_checkTableConstraints {<BLOCK Name="fct.vetb00018_anos_checkColumnConstraints">} #+ Check constraints on the "vetb00018.anos" column #+ #+ @param p_anos - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00018_anos_checkColumnConstraints(p_anos) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_anos LIKE vetb00018.anos LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00018_anos_checkColumnConstraints {<BLOCK Name="fct.vetb00018_fecha_in_checkColumnConstraints">} #+ Check constraints on the "vetb00018.fecha_in" column #+ #+ @param p_fecha_in - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00018_fecha_in_checkColumnConstraints(p_fecha_in) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_in LIKE vetb00018.fecha_in LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00018_fecha_in_checkColumnConstraints {<BLOCK Name="fct.vetb00018_fecha_fi_checkColumnConstraints">} #+ Check constraints on the "vetb00018.fecha_fi" column #+ #+ @param p_fecha_fi - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00018_fecha_fi_checkColumnConstraints(p_fecha_fi) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_fi LIKE vetb00018.fecha_fi LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00018_fecha_fi_checkColumnConstraints {<BLOCK Name="fct.vetb00018_status_t_checkColumnConstraints">} #+ Check constraints on the "vetb00018.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00018_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE vetb00018.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00018_status_t_checkColumnConstraints {<BLOCK Name="fct.vetb00018_us_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00018.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00018_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE vetb00018.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00018_us_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00018_fech_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00018.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00018_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE vetb00018.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00018_fech_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00018_us_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00018.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00018_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE vetb00018.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00018_us_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00018_fech_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00018.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00018_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE vetb00018.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00018_fech_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00016_checkTableConstraints">} #+ Check constraints on the "vetb00016" table #+ #+ @param p_data - a row data LIKE vetb00016.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00016_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00016.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00016_id_ciudad_checkColumnConstraints(p_data.id_ciudad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00016_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00016_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00016_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00016_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00016_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00016_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00016_checkTableConstraints {<BLOCK Name="fct.vetb00016_id_ciudad_checkColumnConstraints">} #+ Check constraints on the "vetb00016.id_ciudad" column #+ #+ @param p_id_ciudad - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00016_id_ciudad_checkColumnConstraints(p_id_ciudad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_id_ciudad LIKE vetb00016.id_ciudad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00016_id_ciudad_checkColumnConstraints {<BLOCK Name="fct.vetb00016_descripcion_checkColumnConstraints">} #+ Check constraints on the "vetb00016.descripcion" column #+ #+ @param p_descripcion - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00016_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE vetb00016.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00016_descripcion_checkColumnConstraints {<BLOCK Name="fct.vetb00016_status_t_checkColumnConstraints">} #+ Check constraints on the "vetb00016.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00016_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE vetb00016.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00016_status_t_checkColumnConstraints {<BLOCK Name="fct.vetb00016_us_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00016.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00016_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE vetb00016.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00016_us_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00016_fech_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00016.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00016_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE vetb00016.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00016_fech_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00016_us_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00016.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00016_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE vetb00016.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00016_us_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00016_fech_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00016.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00016_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE vetb00016.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00016_fech_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00015_checkTableConstraints">} #+ Check constraints on the "vetb00015" table #+ #+ @param p_data - a row data LIKE vetb00015.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00015_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00015.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00015_cod_transp_checkColumnConstraints(p_data.cod_transp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00015_sec_transp_checkColumnConstraints(p_data.sec_transp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00015_nombre_checkColumnConstraints(p_data.nombre) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00015_cedula_checkColumnConstraints(p_data.cedula) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00015_serie_checkColumnConstraints(p_data.serie) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00015_calle_checkColumnConstraints(p_data.calle) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00015_casa_num_checkColumnConstraints(p_data.casa_num) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00015_barrio_checkColumnConstraints(p_data.barrio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00015_urbanizacion_checkColumnConstraints(p_data.urbanizacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00015_cod_zona_checkColumnConstraints(p_data.cod_zona) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00015_cod_provincia_checkColumnConstraints(p_data.cod_provincia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00015_telefono_checkColumnConstraints(p_data.telefono) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00015_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00015_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00015_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00015_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00015_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00015_checkTableConstraints {<BLOCK Name="fct.vetb00015_cod_transp_checkColumnConstraints">} #+ Check constraints on the "vetb00015.cod_transp" column #+ #+ @param p_cod_transp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00015_cod_transp_checkColumnConstraints(p_cod_transp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_transp LIKE vetb00015.cod_transp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00015_cod_transp_checkColumnConstraints {<BLOCK Name="fct.vetb00015_sec_transp_checkColumnConstraints">} #+ Check constraints on the "vetb00015.sec_transp" column #+ #+ @param p_sec_transp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00015_sec_transp_checkColumnConstraints(p_sec_transp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_transp LIKE vetb00015.sec_transp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00015_sec_transp_checkColumnConstraints {<BLOCK Name="fct.vetb00015_nombre_checkColumnConstraints">} #+ Check constraints on the "vetb00015.nombre" column #+ #+ @param p_nombre - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00015_nombre_checkColumnConstraints(p_nombre) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombre LIKE vetb00015.nombre LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00015_nombre_checkColumnConstraints {<BLOCK Name="fct.vetb00015_cedula_checkColumnConstraints">} #+ Check constraints on the "vetb00015.cedula" column #+ #+ @param p_cedula - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00015_cedula_checkColumnConstraints(p_cedula) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cedula LIKE vetb00015.cedula LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00015_cedula_checkColumnConstraints {<BLOCK Name="fct.vetb00015_serie_checkColumnConstraints">} #+ Check constraints on the "vetb00015.serie" column #+ #+ @param p_serie - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00015_serie_checkColumnConstraints(p_serie) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_serie LIKE vetb00015.serie LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00015_serie_checkColumnConstraints {<BLOCK Name="fct.vetb00015_calle_checkColumnConstraints">} #+ Check constraints on the "vetb00015.calle" column #+ #+ @param p_calle - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00015_calle_checkColumnConstraints(p_calle) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_calle LIKE vetb00015.calle LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00015_calle_checkColumnConstraints {<BLOCK Name="fct.vetb00015_casa_num_checkColumnConstraints">} #+ Check constraints on the "vetb00015.casa_num" column #+ #+ @param p_casa_num - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00015_casa_num_checkColumnConstraints(p_casa_num) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_casa_num LIKE vetb00015.casa_num LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00015_casa_num_checkColumnConstraints {<BLOCK Name="fct.vetb00015_barrio_checkColumnConstraints">} #+ Check constraints on the "vetb00015.barrio" column #+ #+ @param p_barrio - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00015_barrio_checkColumnConstraints(p_barrio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_barrio LIKE vetb00015.barrio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00015_barrio_checkColumnConstraints {<BLOCK Name="fct.vetb00015_urbanizacion_checkColumnConstraints">} #+ Check constraints on the "vetb00015.urbanizacion" column #+ #+ @param p_urbanizacion - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00015_urbanizacion_checkColumnConstraints(p_urbanizacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_urbanizacion LIKE vetb00015.urbanizacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00015_urbanizacion_checkColumnConstraints {<BLOCK Name="fct.vetb00015_cod_zona_checkColumnConstraints">} #+ Check constraints on the "vetb00015.cod_zona" column #+ #+ @param p_cod_zona - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00015_cod_zona_checkColumnConstraints(p_cod_zona) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_zona LIKE vetb00015.cod_zona LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00015_cod_zona_checkColumnConstraints {<BLOCK Name="fct.vetb00015_cod_provincia_checkColumnConstraints">} #+ Check constraints on the "vetb00015.cod_provincia" column #+ #+ @param p_cod_provincia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00015_cod_provincia_checkColumnConstraints(p_cod_provincia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_provincia LIKE vetb00015.cod_provincia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00015_cod_provincia_checkColumnConstraints {<BLOCK Name="fct.vetb00015_telefono_checkColumnConstraints">} #+ Check constraints on the "vetb00015.telefono" column #+ #+ @param p_telefono - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00015_telefono_checkColumnConstraints(p_telefono) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_telefono LIKE vetb00015.telefono LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00015_telefono_checkColumnConstraints {<BLOCK Name="fct.vetb00015_status_t_checkColumnConstraints">} #+ Check constraints on the "vetb00015.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00015_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE vetb00015.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00015_status_t_checkColumnConstraints {<BLOCK Name="fct.vetb00015_us_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00015.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00015_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE vetb00015.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00015_us_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00015_fech_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00015.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00015_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE vetb00015.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00015_fech_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00015_us_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00015.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00015_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE vetb00015.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00015_us_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00015_fech_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00015.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00015_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE vetb00015.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00015_fech_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00014_checkTableConstraints">} #+ Check constraints on the "vetb00014" table #+ #+ @param p_data - a row data LIKE vetb00014.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00014_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00014.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00014_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00014_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00014_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00014_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00014_peso_bruto_checkColumnConstraints(p_data.peso_bruto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00014_peso_neto_checkColumnConstraints(p_data.peso_neto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00014_dim_caja_checkColumnConstraints(p_data.dim_caja) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00014_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00014_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00014_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00014_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00014_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00014_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00014_checkTableConstraints {<BLOCK Name="fct.vetb00014_cod_n_checkColumnConstraints">} #+ Check constraints on the "vetb00014.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00014_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE vetb00014.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00014_cod_n_checkColumnConstraints {<BLOCK Name="fct.vetb00014_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "vetb00014.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00014_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE vetb00014.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00014_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.vetb00014_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "vetb00014.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00014_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE vetb00014.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00014_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.vetb00014_cod_sec_checkColumnConstraints">} #+ Check constraints on the "vetb00014.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00014_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE vetb00014.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00014_cod_sec_checkColumnConstraints {<BLOCK Name="fct.vetb00014_peso_bruto_checkColumnConstraints">} #+ Check constraints on the "vetb00014.peso_bruto" column #+ #+ @param p_peso_bruto - DECIMAL(10,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00014_peso_bruto_checkColumnConstraints(p_peso_bruto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_peso_bruto LIKE vetb00014.peso_bruto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00014_peso_bruto_checkColumnConstraints {<BLOCK Name="fct.vetb00014_peso_neto_checkColumnConstraints">} #+ Check constraints on the "vetb00014.peso_neto" column #+ #+ @param p_peso_neto - DECIMAL(10,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00014_peso_neto_checkColumnConstraints(p_peso_neto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_peso_neto LIKE vetb00014.peso_neto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00014_peso_neto_checkColumnConstraints {<BLOCK Name="fct.vetb00014_dim_caja_checkColumnConstraints">} #+ Check constraints on the "vetb00014.dim_caja" column #+ #+ @param p_dim_caja - DECIMAL(10,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00014_dim_caja_checkColumnConstraints(p_dim_caja) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_dim_caja LIKE vetb00014.dim_caja LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00014_dim_caja_checkColumnConstraints {<BLOCK Name="fct.vetb00014_cantidad_checkColumnConstraints">} #+ Check constraints on the "vetb00014.cantidad" column #+ #+ @param p_cantidad - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00014_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE vetb00014.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00014_cantidad_checkColumnConstraints {<BLOCK Name="fct.vetb00014_status_t_checkColumnConstraints">} #+ Check constraints on the "vetb00014.status_t" column #+ #+ @param p_status_t - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00014_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE vetb00014.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00014_status_t_checkColumnConstraints {<BLOCK Name="fct.vetb00014_us_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00014.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00014_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE vetb00014.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00014_us_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00014_fech_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00014.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00014_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE vetb00014.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00014_fech_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00014_us_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00014.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00014_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE vetb00014.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00014_us_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00014_fech_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00014.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00014_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE vetb00014.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00014_fech_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00013_checkTableConstraints">} #+ Check constraints on the "vetb00013" table #+ #+ @param p_data - a row data LIKE vetb00013.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00013_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00013.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00013_tipo_desc_checkColumnConstraints(p_data.tipo_desc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00013_descrip_checkColumnConstraints(p_data.descrip) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00013_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00013_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00013_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00013_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00013_dias_validos_checkColumnConstraints(p_data.dias_validos) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00013_porc_desc_checkColumnConstraints(p_data.porc_desc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00013_valor_desc_checkColumnConstraints(p_data.valor_desc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00013_cantidad_1_checkColumnConstraints(p_data.cantidad_1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00013_cantidad_2_checkColumnConstraints(p_data.cantidad_2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00013_cajas_bonif_checkColumnConstraints(p_data.cajas_bonif) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00013_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00013_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00013_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00013_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00013_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00013_checkTableConstraints {<BLOCK Name="fct.vetb00013_tipo_desc_checkColumnConstraints">} #+ Check constraints on the "vetb00013.tipo_desc" column #+ #+ @param p_tipo_desc - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00013_tipo_desc_checkColumnConstraints(p_tipo_desc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_desc LIKE vetb00013.tipo_desc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00013_tipo_desc_checkColumnConstraints {<BLOCK Name="fct.vetb00013_descrip_checkColumnConstraints">} #+ Check constraints on the "vetb00013.descrip" column #+ #+ @param p_descrip - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00013_descrip_checkColumnConstraints(p_descrip) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip LIKE vetb00013.descrip LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00013_descrip_checkColumnConstraints {<BLOCK Name="fct.vetb00013_cod_n_checkColumnConstraints">} #+ Check constraints on the "vetb00013.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00013_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE vetb00013.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00013_cod_n_checkColumnConstraints {<BLOCK Name="fct.vetb00013_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "vetb00013.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00013_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE vetb00013.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00013_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.vetb00013_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "vetb00013.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00013_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE vetb00013.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00013_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.vetb00013_cod_sec_checkColumnConstraints">} #+ Check constraints on the "vetb00013.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00013_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE vetb00013.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00013_cod_sec_checkColumnConstraints {<BLOCK Name="fct.vetb00013_dias_validos_checkColumnConstraints">} #+ Check constraints on the "vetb00013.dias_validos" column #+ #+ @param p_dias_validos - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00013_dias_validos_checkColumnConstraints(p_dias_validos) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_dias_validos LIKE vetb00013.dias_validos LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00013_dias_validos_checkColumnConstraints {<BLOCK Name="fct.vetb00013_porc_desc_checkColumnConstraints">} #+ Check constraints on the "vetb00013.porc_desc" column #+ #+ @param p_porc_desc - DECIMAL(5,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00013_porc_desc_checkColumnConstraints(p_porc_desc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_porc_desc LIKE vetb00013.porc_desc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00013_porc_desc_checkColumnConstraints {<BLOCK Name="fct.vetb00013_valor_desc_checkColumnConstraints">} #+ Check constraints on the "vetb00013.valor_desc" column #+ #+ @param p_valor_desc - DECIMAL(8,3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00013_valor_desc_checkColumnConstraints(p_valor_desc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor_desc LIKE vetb00013.valor_desc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00013_valor_desc_checkColumnConstraints {<BLOCK Name="fct.vetb00013_cantidad_1_checkColumnConstraints">} #+ Check constraints on the "vetb00013.cantidad_1" column #+ #+ @param p_cantidad_1 - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00013_cantidad_1_checkColumnConstraints(p_cantidad_1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad_1 LIKE vetb00013.cantidad_1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00013_cantidad_1_checkColumnConstraints {<BLOCK Name="fct.vetb00013_cantidad_2_checkColumnConstraints">} #+ Check constraints on the "vetb00013.cantidad_2" column #+ #+ @param p_cantidad_2 - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00013_cantidad_2_checkColumnConstraints(p_cantidad_2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad_2 LIKE vetb00013.cantidad_2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00013_cantidad_2_checkColumnConstraints {<BLOCK Name="fct.vetb00013_cajas_bonif_checkColumnConstraints">} #+ Check constraints on the "vetb00013.cajas_bonif" column #+ #+ @param p_cajas_bonif - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00013_cajas_bonif_checkColumnConstraints(p_cajas_bonif) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cajas_bonif LIKE vetb00013.cajas_bonif LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00013_cajas_bonif_checkColumnConstraints {<BLOCK Name="fct.vetb00013_status_t_checkColumnConstraints">} #+ Check constraints on the "vetb00013.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00013_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE vetb00013.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00013_status_t_checkColumnConstraints {<BLOCK Name="fct.vetb00013_us_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00013.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00013_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE vetb00013.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00013_us_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00013_fech_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00013.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00013_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE vetb00013.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00013_fech_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00013_us_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00013.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00013_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE vetb00013.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00013_us_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00013_fech_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00013.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00013_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE vetb00013.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00013_fech_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00012_checkTableConstraints">} #+ Check constraints on the "vetb00012" table #+ #+ @param p_data - a row data LIKE vetb00012.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00012_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00012.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00012_cond_pago_checkColumnConstraints(p_data.cond_pago) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00012_descrip_checkColumnConstraints(p_data.descrip) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00012_dias_checkColumnConstraints(p_data.dias) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00012_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00012_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00012_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00012_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00012_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00012_checkTableConstraints {<BLOCK Name="fct.vetb00012_cond_pago_checkColumnConstraints">} #+ Check constraints on the "vetb00012.cond_pago" column #+ #+ @param p_cond_pago - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00012_cond_pago_checkColumnConstraints(p_cond_pago) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cond_pago LIKE vetb00012.cond_pago LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cond_pago IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cond_pago: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00012_cond_pago_checkColumnConstraints {<BLOCK Name="fct.vetb00012_descrip_checkColumnConstraints">} #+ Check constraints on the "vetb00012.descrip" column #+ #+ @param p_descrip - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00012_descrip_checkColumnConstraints(p_descrip) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip LIKE vetb00012.descrip LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00012_descrip_checkColumnConstraints {<BLOCK Name="fct.vetb00012_dias_checkColumnConstraints">} #+ Check constraints on the "vetb00012.dias" column #+ #+ @param p_dias - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00012_dias_checkColumnConstraints(p_dias) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_dias LIKE vetb00012.dias LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00012_dias_checkColumnConstraints {<BLOCK Name="fct.vetb00012_status_t_checkColumnConstraints">} #+ Check constraints on the "vetb00012.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00012_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE vetb00012.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00012_status_t_checkColumnConstraints {<BLOCK Name="fct.vetb00012_us_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00012.us_crea" column #+ #+ @param p_us_crea - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00012_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE vetb00012.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00012_us_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00012_fech_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00012.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00012_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE vetb00012.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00012_fech_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00012_us_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00012.us_mod" column #+ #+ @param p_us_mod - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00012_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE vetb00012.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00012_us_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00012_fech_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00012.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00012_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE vetb00012.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00012_fech_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00011_checkTableConstraints">} #+ Check constraints on the "vetb00011" table #+ #+ @param p_data - a row data LIKE vetb00011.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00011_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00011.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00011_cod_vend_checkColumnConstraints(p_data.cod_vend) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00011_sec_vend_checkColumnConstraints(p_data.sec_vend) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00011_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00011_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00011_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00011_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00011_porc_ventas_checkColumnConstraints(p_data.porc_ventas) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00011_porc_cobros_checkColumnConstraints(p_data.porc_cobros) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00011_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00011_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00011_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00011_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00011_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00011_checkTableConstraints {<BLOCK Name="fct.vetb00011_cod_vend_checkColumnConstraints">} #+ Check constraints on the "vetb00011.cod_vend" column #+ #+ @param p_cod_vend - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00011_cod_vend_checkColumnConstraints(p_cod_vend) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_vend LIKE vetb00011.cod_vend LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00011_cod_vend_checkColumnConstraints {<BLOCK Name="fct.vetb00011_sec_vend_checkColumnConstraints">} #+ Check constraints on the "vetb00011.sec_vend" column #+ #+ @param p_sec_vend - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00011_sec_vend_checkColumnConstraints(p_sec_vend) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_vend LIKE vetb00011.sec_vend LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00011_sec_vend_checkColumnConstraints {<BLOCK Name="fct.vetb00011_cod_n_checkColumnConstraints">} #+ Check constraints on the "vetb00011.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00011_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE vetb00011.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00011_cod_n_checkColumnConstraints {<BLOCK Name="fct.vetb00011_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "vetb00011.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00011_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE vetb00011.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00011_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.vetb00011_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "vetb00011.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00011_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE vetb00011.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00011_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.vetb00011_cod_sec_checkColumnConstraints">} #+ Check constraints on the "vetb00011.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00011_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE vetb00011.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00011_cod_sec_checkColumnConstraints {<BLOCK Name="fct.vetb00011_porc_ventas_checkColumnConstraints">} #+ Check constraints on the "vetb00011.porc_ventas" column #+ #+ @param p_porc_ventas - DECIMAL(8,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00011_porc_ventas_checkColumnConstraints(p_porc_ventas) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_porc_ventas LIKE vetb00011.porc_ventas LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00011_porc_ventas_checkColumnConstraints {<BLOCK Name="fct.vetb00011_porc_cobros_checkColumnConstraints">} #+ Check constraints on the "vetb00011.porc_cobros" column #+ #+ @param p_porc_cobros - DECIMAL(8,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00011_porc_cobros_checkColumnConstraints(p_porc_cobros) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_porc_cobros LIKE vetb00011.porc_cobros LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00011_porc_cobros_checkColumnConstraints {<BLOCK Name="fct.vetb00011_status_t_checkColumnConstraints">} #+ Check constraints on the "vetb00011.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00011_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE vetb00011.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00011_status_t_checkColumnConstraints {<BLOCK Name="fct.vetb00011_us_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00011.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00011_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE vetb00011.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00011_us_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00011_fech_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00011.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00011_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE vetb00011.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00011_fech_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00011_us_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00011.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00011_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE vetb00011.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00011_us_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00011_fech_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00011.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00011_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE vetb00011.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00011_fech_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00010_checkTableConstraints">} #+ Check constraints on the "vetb00010" table #+ #+ @param p_data - a row data LIKE vetb00010.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00010_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00010.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00010_cod_vend_checkColumnConstraints(p_data.cod_vend) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00010_sec_vend_checkColumnConstraints(p_data.sec_vend) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00010_cod_zona_checkColumnConstraints(p_data.cod_zona) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00010_cod_provincia_checkColumnConstraints(p_data.cod_provincia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00010_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00010_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00010_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00010_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00010_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00010_checkTableConstraints {<BLOCK Name="fct.vetb00010_cod_vend_checkColumnConstraints">} #+ Check constraints on the "vetb00010.cod_vend" column #+ #+ @param p_cod_vend - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00010_cod_vend_checkColumnConstraints(p_cod_vend) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_vend LIKE vetb00010.cod_vend LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00010_cod_vend_checkColumnConstraints {<BLOCK Name="fct.vetb00010_sec_vend_checkColumnConstraints">} #+ Check constraints on the "vetb00010.sec_vend" column #+ #+ @param p_sec_vend - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00010_sec_vend_checkColumnConstraints(p_sec_vend) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_vend LIKE vetb00010.sec_vend LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00010_sec_vend_checkColumnConstraints {<BLOCK Name="fct.vetb00010_cod_zona_checkColumnConstraints">} #+ Check constraints on the "vetb00010.cod_zona" column #+ #+ @param p_cod_zona - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00010_cod_zona_checkColumnConstraints(p_cod_zona) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_zona LIKE vetb00010.cod_zona LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00010_cod_zona_checkColumnConstraints {<BLOCK Name="fct.vetb00010_cod_provincia_checkColumnConstraints">} #+ Check constraints on the "vetb00010.cod_provincia" column #+ #+ @param p_cod_provincia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00010_cod_provincia_checkColumnConstraints(p_cod_provincia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_provincia LIKE vetb00010.cod_provincia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00010_cod_provincia_checkColumnConstraints {<BLOCK Name="fct.vetb00010_status_t_checkColumnConstraints">} #+ Check constraints on the "vetb00010.status_t" column #+ #+ @param p_status_t - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00010_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE vetb00010.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00010_status_t_checkColumnConstraints {<BLOCK Name="fct.vetb00010_us_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00010.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00010_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE vetb00010.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00010_us_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00010_fech_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00010.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00010_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE vetb00010.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00010_fech_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00010_us_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00010.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00010_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE vetb00010.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00010_us_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00010_fech_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00010.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00010_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE vetb00010.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00010_fech_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00009_checkTableConstraints">} #+ Check constraints on the "vetb00009" table #+ #+ @param p_data - a row data LIKE vetb00009.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00009_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00009.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00009_cod_zona_checkColumnConstraints(p_data.cod_zona) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00009_cod_provincia_checkColumnConstraints(p_data.cod_provincia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00009_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00009_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00009_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00009_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00009_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00009_checkTableConstraints {<BLOCK Name="fct.vetb00009_cod_zona_checkColumnConstraints">} #+ Check constraints on the "vetb00009.cod_zona" column #+ #+ @param p_cod_zona - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00009_cod_zona_checkColumnConstraints(p_cod_zona) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_zona LIKE vetb00009.cod_zona LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00009_cod_zona_checkColumnConstraints {<BLOCK Name="fct.vetb00009_cod_provincia_checkColumnConstraints">} #+ Check constraints on the "vetb00009.cod_provincia" column #+ #+ @param p_cod_provincia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00009_cod_provincia_checkColumnConstraints(p_cod_provincia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_provincia LIKE vetb00009.cod_provincia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00009_cod_provincia_checkColumnConstraints {<BLOCK Name="fct.vetb00009_status_t_checkColumnConstraints">} #+ Check constraints on the "vetb00009.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00009_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE vetb00009.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00009_status_t_checkColumnConstraints {<BLOCK Name="fct.vetb00009_us_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00009.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00009_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE vetb00009.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00009_us_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00009_fech_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00009.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00009_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE vetb00009.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00009_fech_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00009_us_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00009.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00009_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE vetb00009.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00009_us_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00009_fech_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00009.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00009_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE vetb00009.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00009_fech_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00008_checkTableConstraints">} #+ Check constraints on the "vetb00008" table #+ #+ @param p_data - a row data LIKE vetb00008.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00008_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00008.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00008_cod_zona_checkColumnConstraints(p_data.cod_zona) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00008_descrip_checkColumnConstraints(p_data.descrip) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00008_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00008_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00008_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00008_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00008_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00008_checkTableConstraints {<BLOCK Name="fct.vetb00008_cod_zona_checkColumnConstraints">} #+ Check constraints on the "vetb00008.cod_zona" column #+ #+ @param p_cod_zona - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00008_cod_zona_checkColumnConstraints(p_cod_zona) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_zona LIKE vetb00008.cod_zona LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00008_cod_zona_checkColumnConstraints {<BLOCK Name="fct.vetb00008_descrip_checkColumnConstraints">} #+ Check constraints on the "vetb00008.descrip" column #+ #+ @param p_descrip - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00008_descrip_checkColumnConstraints(p_descrip) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip LIKE vetb00008.descrip LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00008_descrip_checkColumnConstraints {<BLOCK Name="fct.vetb00008_status_t_checkColumnConstraints">} #+ Check constraints on the "vetb00008.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00008_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE vetb00008.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00008_status_t_checkColumnConstraints {<BLOCK Name="fct.vetb00008_us_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00008.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00008_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE vetb00008.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00008_us_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00008_fech_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00008.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00008_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE vetb00008.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00008_fech_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00008_us_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00008.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00008_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE vetb00008.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00008_us_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00008_fech_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00008.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00008_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE vetb00008.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00008_fech_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00007_checkTableConstraints">} #+ Check constraints on the "vetb00007" table #+ #+ @param p_data - a row data LIKE vetb00007.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00007_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00007.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00007_tipo_cliente_checkColumnConstraints(p_data.tipo_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00007_sec_cliente_checkColumnConstraints(p_data.sec_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00007_tipo_desc_checkColumnConstraints(p_data.tipo_desc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00007_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00007_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00007_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00007_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00007_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00007_checkTableConstraints {<BLOCK Name="fct.vetb00007_tipo_cliente_checkColumnConstraints">} #+ Check constraints on the "vetb00007.tipo_cliente" column #+ #+ @param p_tipo_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00007_tipo_cliente_checkColumnConstraints(p_tipo_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_cliente LIKE vetb00007.tipo_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00007_tipo_cliente_checkColumnConstraints {<BLOCK Name="fct.vetb00007_sec_cliente_checkColumnConstraints">} #+ Check constraints on the "vetb00007.sec_cliente" column #+ #+ @param p_sec_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00007_sec_cliente_checkColumnConstraints(p_sec_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_cliente LIKE vetb00007.sec_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00007_sec_cliente_checkColumnConstraints {<BLOCK Name="fct.vetb00007_tipo_desc_checkColumnConstraints">} #+ Check constraints on the "vetb00007.tipo_desc" column #+ #+ @param p_tipo_desc - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00007_tipo_desc_checkColumnConstraints(p_tipo_desc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_desc LIKE vetb00007.tipo_desc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00007_tipo_desc_checkColumnConstraints {<BLOCK Name="fct.vetb00007_status_t_checkColumnConstraints">} #+ Check constraints on the "vetb00007.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00007_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE vetb00007.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00007_status_t_checkColumnConstraints {<BLOCK Name="fct.vetb00007_us_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00007.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00007_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE vetb00007.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00007_us_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00007_fech_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00007.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00007_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE vetb00007.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00007_fech_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00007_us_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00007.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00007_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE vetb00007.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00007_us_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00007_fech_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00007.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00007_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE vetb00007.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00007_fech_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00006_checkTableConstraints">} #+ Check constraints on the "vetb00006" table #+ #+ @param p_data - a row data LIKE vetb00006.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00006_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00006.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00006_tipo_cliente_s_checkColumnConstraints(p_data.tipo_cliente_s) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00006_sec_cliente_s_checkColumnConstraints(p_data.sec_cliente_s) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00006_fecha_solicitud_s_checkColumnConstraints(p_data.fecha_solicitud_s) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00006_condicion_venta_s_checkColumnConstraints(p_data.condicion_venta_s) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00006_solicitante_s_checkColumnConstraints(p_data.solicitante_s) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00006_cedula_s_checkColumnConstraints(p_data.cedula_s) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00006_serie_s_checkColumnConstraints(p_data.serie_s) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00006_calle_s_checkColumnConstraints(p_data.calle_s) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00006_casa_num_s_checkColumnConstraints(p_data.casa_num_s) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00006_barrio_s_checkColumnConstraints(p_data.barrio_s) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00006_urbanizacion_s_checkColumnConstraints(p_data.urbanizacion_s) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00006_cod_provincia_s_checkColumnConstraints(p_data.cod_provincia_s) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00006_telefono_s_checkColumnConstraints(p_data.telefono_s) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00006_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00006_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00006_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00006_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00006_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00006_checkTableConstraints {<BLOCK Name="fct.vetb00006_tipo_cliente_s_checkColumnConstraints">} #+ Check constraints on the "vetb00006.tipo_cliente_s" column #+ #+ @param p_tipo_cliente_s - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00006_tipo_cliente_s_checkColumnConstraints(p_tipo_cliente_s) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_cliente_s LIKE vetb00006.tipo_cliente_s LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00006_tipo_cliente_s_checkColumnConstraints {<BLOCK Name="fct.vetb00006_sec_cliente_s_checkColumnConstraints">} #+ Check constraints on the "vetb00006.sec_cliente_s" column #+ #+ @param p_sec_cliente_s - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00006_sec_cliente_s_checkColumnConstraints(p_sec_cliente_s) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_cliente_s LIKE vetb00006.sec_cliente_s LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00006_sec_cliente_s_checkColumnConstraints {<BLOCK Name="fct.vetb00006_fecha_solicitud_s_checkColumnConstraints">} #+ Check constraints on the "vetb00006.fecha_solicitud_s" column #+ #+ @param p_fecha_solicitud_s - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00006_fecha_solicitud_s_checkColumnConstraints(p_fecha_solicitud_s) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_solicitud_s LIKE vetb00006.fecha_solicitud_s LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00006_fecha_solicitud_s_checkColumnConstraints {<BLOCK Name="fct.vetb00006_condicion_venta_s_checkColumnConstraints">} #+ Check constraints on the "vetb00006.condicion_venta_s" column #+ #+ @param p_condicion_venta_s - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00006_condicion_venta_s_checkColumnConstraints(p_condicion_venta_s) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_condicion_venta_s LIKE vetb00006.condicion_venta_s LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00006_condicion_venta_s_checkColumnConstraints {<BLOCK Name="fct.vetb00006_solicitante_s_checkColumnConstraints">} #+ Check constraints on the "vetb00006.solicitante_s" column #+ #+ @param p_solicitante_s - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00006_solicitante_s_checkColumnConstraints(p_solicitante_s) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_solicitante_s LIKE vetb00006.solicitante_s LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00006_solicitante_s_checkColumnConstraints {<BLOCK Name="fct.vetb00006_cedula_s_checkColumnConstraints">} #+ Check constraints on the "vetb00006.cedula_s" column #+ #+ @param p_cedula_s - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00006_cedula_s_checkColumnConstraints(p_cedula_s) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cedula_s LIKE vetb00006.cedula_s LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00006_cedula_s_checkColumnConstraints {<BLOCK Name="fct.vetb00006_serie_s_checkColumnConstraints">} #+ Check constraints on the "vetb00006.serie_s" column #+ #+ @param p_serie_s - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00006_serie_s_checkColumnConstraints(p_serie_s) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_serie_s LIKE vetb00006.serie_s LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00006_serie_s_checkColumnConstraints {<BLOCK Name="fct.vetb00006_calle_s_checkColumnConstraints">} #+ Check constraints on the "vetb00006.calle_s" column #+ #+ @param p_calle_s - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00006_calle_s_checkColumnConstraints(p_calle_s) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_calle_s LIKE vetb00006.calle_s LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00006_calle_s_checkColumnConstraints {<BLOCK Name="fct.vetb00006_casa_num_s_checkColumnConstraints">} #+ Check constraints on the "vetb00006.casa_num_s" column #+ #+ @param p_casa_num_s - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00006_casa_num_s_checkColumnConstraints(p_casa_num_s) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_casa_num_s LIKE vetb00006.casa_num_s LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00006_casa_num_s_checkColumnConstraints {<BLOCK Name="fct.vetb00006_barrio_s_checkColumnConstraints">} #+ Check constraints on the "vetb00006.barrio_s" column #+ #+ @param p_barrio_s - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00006_barrio_s_checkColumnConstraints(p_barrio_s) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_barrio_s LIKE vetb00006.barrio_s LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00006_barrio_s_checkColumnConstraints {<BLOCK Name="fct.vetb00006_urbanizacion_s_checkColumnConstraints">} #+ Check constraints on the "vetb00006.urbanizacion_s" column #+ #+ @param p_urbanizacion_s - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00006_urbanizacion_s_checkColumnConstraints(p_urbanizacion_s) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_urbanizacion_s LIKE vetb00006.urbanizacion_s LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00006_urbanizacion_s_checkColumnConstraints {<BLOCK Name="fct.vetb00006_cod_provincia_s_checkColumnConstraints">} #+ Check constraints on the "vetb00006.cod_provincia_s" column #+ #+ @param p_cod_provincia_s - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00006_cod_provincia_s_checkColumnConstraints(p_cod_provincia_s) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_provincia_s LIKE vetb00006.cod_provincia_s LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00006_cod_provincia_s_checkColumnConstraints {<BLOCK Name="fct.vetb00006_telefono_s_checkColumnConstraints">} #+ Check constraints on the "vetb00006.telefono_s" column #+ #+ @param p_telefono_s - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00006_telefono_s_checkColumnConstraints(p_telefono_s) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_telefono_s LIKE vetb00006.telefono_s LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00006_telefono_s_checkColumnConstraints {<BLOCK Name="fct.vetb00006_status_t_checkColumnConstraints">} #+ Check constraints on the "vetb00006.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00006_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE vetb00006.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00006_status_t_checkColumnConstraints {<BLOCK Name="fct.vetb00006_us_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00006.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00006_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE vetb00006.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00006_us_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00006_fech_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00006.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00006_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE vetb00006.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00006_fech_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00006_us_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00006.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00006_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE vetb00006.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00006_us_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00006_fech_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00006.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00006_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE vetb00006.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00006_fech_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00005_checkTableConstraints">} #+ Check constraints on the "vetb00005" table #+ #+ @param p_data - a row data LIKE vetb00005.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00005_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00005.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00005_tipo_cliente_checkColumnConstraints(p_data.tipo_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00005_sec_cliente_checkColumnConstraints(p_data.sec_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00005_calle_checkColumnConstraints(p_data.calle) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00005_casa_num_checkColumnConstraints(p_data.casa_num) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00005_barrio_checkColumnConstraints(p_data.barrio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00005_urbanizacion_checkColumnConstraints(p_data.urbanizacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00005_secuencia_visita_checkColumnConstraints(p_data.secuencia_visita) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00005_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00005_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00005_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00005_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00005_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00005_pk_vetb00005_checkUniqueConstraint(p_forUpdate, p_data.tipo_cliente, p_data.sec_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00005_checkTableConstraints {<BLOCK Name="fct.vetb00005_pk_vetb00005_checkUniqueConstraint">} #+ Check the primary key uniqueness constraint on the "vetb00005" #+ #+ @param p_key - Primary Key #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00005_pk_vetb00005_checkUniqueConstraint(p_forUpdate, p_key) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_forUpdate BOOLEAN DEFINE p_key RECORD vetb00005_tipo_cliente LIKE vetb00005.tipo_cliente, vetb00005_sec_cliente LIKE vetb00005.sec_cliente END RECORD DEFINE l_key RECORD vetb00005_tipo_cliente LIKE vetb00005.tipo_cliente, vetb00005_sec_cliente LIKE vetb00005.sec_cliente 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 vetb00005.tipo_cliente = ? AND vetb00005.sec_cliente = ? " let l_sqlQuery = "SELECT COUNT(*), tipo_cliente, sec_cliente FROM vetb00005 ", l_where, " GROUP BY tipo_cliente, sec_cliente" PREPARE cur_vetb00005_pk_vetb00005_checkUniqueConstraint FROM l_sqlQuery EXECUTE cur_vetb00005_pk_vetb00005_checkUniqueConstraint INTO l_count, l_key.* USING p_key.* FREE cur_vetb00005_pk_vetb00005_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- tipo_cliente + sec_cliente: " || ERROR_BAM_00002) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00005_pk_vetb00005_checkUniqueConstraint {<BLOCK Name="fct.vetb00005_tipo_cliente_checkColumnConstraints">} #+ Check constraints on the "vetb00005.tipo_cliente" column #+ #+ @param p_tipo_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00005_tipo_cliente_checkColumnConstraints(p_tipo_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_cliente LIKE vetb00005.tipo_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_tipo_cliente IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- tipo_cliente: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00005_tipo_cliente_checkColumnConstraints {<BLOCK Name="fct.vetb00005_sec_cliente_checkColumnConstraints">} #+ Check constraints on the "vetb00005.sec_cliente" column #+ #+ @param p_sec_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00005_sec_cliente_checkColumnConstraints(p_sec_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_cliente LIKE vetb00005.sec_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_sec_cliente IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- sec_cliente: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00005_sec_cliente_checkColumnConstraints {<BLOCK Name="fct.vetb00005_calle_checkColumnConstraints">} #+ Check constraints on the "vetb00005.calle" column #+ #+ @param p_calle - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00005_calle_checkColumnConstraints(p_calle) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_calle LIKE vetb00005.calle LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00005_calle_checkColumnConstraints {<BLOCK Name="fct.vetb00005_casa_num_checkColumnConstraints">} #+ Check constraints on the "vetb00005.casa_num" column #+ #+ @param p_casa_num - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00005_casa_num_checkColumnConstraints(p_casa_num) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_casa_num LIKE vetb00005.casa_num LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00005_casa_num_checkColumnConstraints {<BLOCK Name="fct.vetb00005_barrio_checkColumnConstraints">} #+ Check constraints on the "vetb00005.barrio" column #+ #+ @param p_barrio - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00005_barrio_checkColumnConstraints(p_barrio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_barrio LIKE vetb00005.barrio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00005_barrio_checkColumnConstraints {<BLOCK Name="fct.vetb00005_urbanizacion_checkColumnConstraints">} #+ Check constraints on the "vetb00005.urbanizacion" column #+ #+ @param p_urbanizacion - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00005_urbanizacion_checkColumnConstraints(p_urbanizacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_urbanizacion LIKE vetb00005.urbanizacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00005_urbanizacion_checkColumnConstraints {<BLOCK Name="fct.vetb00005_secuencia_visita_checkColumnConstraints">} #+ Check constraints on the "vetb00005.secuencia_visita" column #+ #+ @param p_secuencia_visita - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00005_secuencia_visita_checkColumnConstraints(p_secuencia_visita) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_secuencia_visita LIKE vetb00005.secuencia_visita LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00005_secuencia_visita_checkColumnConstraints {<BLOCK Name="fct.vetb00005_status_t_checkColumnConstraints">} #+ Check constraints on the "vetb00005.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00005_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE vetb00005.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00005_status_t_checkColumnConstraints {<BLOCK Name="fct.vetb00005_us_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00005.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00005_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE vetb00005.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00005_us_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00005_fech_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00005.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00005_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE vetb00005.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00005_fech_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00005_us_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00005.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00005_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE vetb00005.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00005_us_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00005_fech_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00005.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00005_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE vetb00005.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00005_fech_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00004_checkTableConstraints">} #+ Check constraints on the "vetb00004" table #+ #+ @param p_data - a row data LIKE vetb00004.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00004_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00004.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00004_tipo_cliente_checkColumnConstraints(p_data.tipo_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00004_sec_cliente_checkColumnConstraints(p_data.sec_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00004_nombre_checkColumnConstraints(p_data.nombre) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00004_cod_zona_checkColumnConstraints(p_data.cod_zona) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00004_cod_provincia_checkColumnConstraints(p_data.cod_provincia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00004_telefono_checkColumnConstraints(p_data.telefono) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00004_fax_checkColumnConstraints(p_data.fax) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00004_telex_checkColumnConstraints(p_data.telex) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00004_patente_checkColumnConstraints(p_data.patente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00004_limite_credito_checkColumnConstraints(p_data.limite_credito) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00004_zona_postal_checkColumnConstraints(p_data.zona_postal) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00004_num_rnc_checkColumnConstraints(p_data.num_rnc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00004_nombre_patente_checkColumnConstraints(p_data.nombre_patente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00004_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00004_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00004_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00004_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00004_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00004_puesto_laboral_checkColumnConstraints(p_data.puesto_laboral) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00004_telefono_casa_checkColumnConstraints(p_data.telefono_casa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00004_tipo_negocio_checkColumnConstraints(p_data.tipo_negocio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00004_cond_pago_checkColumnConstraints(p_data.cond_pago) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00004_id_ciudad_checkColumnConstraints(p_data.id_ciudad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00004_pk_vetb00004_checkUniqueConstraint(p_forUpdate, p_data.tipo_cliente, p_data.sec_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00004_checkTableConstraints {<BLOCK Name="fct.vetb00004_pk_vetb00004_checkUniqueConstraint">} #+ Check the primary key uniqueness constraint on the "vetb00004" #+ #+ @param p_key - Primary Key #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00004_pk_vetb00004_checkUniqueConstraint(p_forUpdate, p_key) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_forUpdate BOOLEAN DEFINE p_key RECORD vetb00004_tipo_cliente LIKE vetb00004.tipo_cliente, vetb00004_sec_cliente LIKE vetb00004.sec_cliente END RECORD DEFINE l_key RECORD vetb00004_tipo_cliente LIKE vetb00004.tipo_cliente, vetb00004_sec_cliente LIKE vetb00004.sec_cliente 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 vetb00004.tipo_cliente = ? AND vetb00004.sec_cliente = ? " let l_sqlQuery = "SELECT COUNT(*), tipo_cliente, sec_cliente FROM vetb00004 ", l_where, " GROUP BY tipo_cliente, sec_cliente" PREPARE cur_vetb00004_pk_vetb00004_checkUniqueConstraint FROM l_sqlQuery EXECUTE cur_vetb00004_pk_vetb00004_checkUniqueConstraint INTO l_count, l_key.* USING p_key.* FREE cur_vetb00004_pk_vetb00004_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- tipo_cliente + sec_cliente: " || ERROR_BAM_00002) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00004_pk_vetb00004_checkUniqueConstraint {<BLOCK Name="fct.vetb00004_tipo_cliente_checkColumnConstraints">} #+ Check constraints on the "vetb00004.tipo_cliente" column #+ #+ @param p_tipo_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00004_tipo_cliente_checkColumnConstraints(p_tipo_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_cliente LIKE vetb00004.tipo_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_tipo_cliente IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- tipo_cliente: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00004_tipo_cliente_checkColumnConstraints {<BLOCK Name="fct.vetb00004_sec_cliente_checkColumnConstraints">} #+ Check constraints on the "vetb00004.sec_cliente" column #+ #+ @param p_sec_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00004_sec_cliente_checkColumnConstraints(p_sec_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_cliente LIKE vetb00004.sec_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_sec_cliente IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- sec_cliente: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00004_sec_cliente_checkColumnConstraints {<BLOCK Name="fct.vetb00004_nombre_checkColumnConstraints">} #+ Check constraints on the "vetb00004.nombre" column #+ #+ @param p_nombre - CHAR(100) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00004_nombre_checkColumnConstraints(p_nombre) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombre LIKE vetb00004.nombre LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00004_nombre_checkColumnConstraints {<BLOCK Name="fct.vetb00004_cod_zona_checkColumnConstraints">} #+ Check constraints on the "vetb00004.cod_zona" column #+ #+ @param p_cod_zona - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00004_cod_zona_checkColumnConstraints(p_cod_zona) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_zona LIKE vetb00004.cod_zona LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00004_cod_zona_checkColumnConstraints {<BLOCK Name="fct.vetb00004_cod_provincia_checkColumnConstraints">} #+ Check constraints on the "vetb00004.cod_provincia" column #+ #+ @param p_cod_provincia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00004_cod_provincia_checkColumnConstraints(p_cod_provincia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_provincia LIKE vetb00004.cod_provincia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00004_cod_provincia_checkColumnConstraints {<BLOCK Name="fct.vetb00004_telefono_checkColumnConstraints">} #+ Check constraints on the "vetb00004.telefono" column #+ #+ @param p_telefono - CHAR(16) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00004_telefono_checkColumnConstraints(p_telefono) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_telefono LIKE vetb00004.telefono LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00004_telefono_checkColumnConstraints {<BLOCK Name="fct.vetb00004_fax_checkColumnConstraints">} #+ Check constraints on the "vetb00004.fax" column #+ #+ @param p_fax - CHAR(16) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00004_fax_checkColumnConstraints(p_fax) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fax LIKE vetb00004.fax LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00004_fax_checkColumnConstraints {<BLOCK Name="fct.vetb00004_telex_checkColumnConstraints">} #+ Check constraints on the "vetb00004.telex" column #+ #+ @param p_telex - CHAR(16) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00004_telex_checkColumnConstraints(p_telex) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_telex LIKE vetb00004.telex LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00004_telex_checkColumnConstraints {<BLOCK Name="fct.vetb00004_patente_checkColumnConstraints">} #+ Check constraints on the "vetb00004.patente" column #+ #+ @param p_patente - VARCHAR2(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00004_patente_checkColumnConstraints(p_patente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_patente LIKE vetb00004.patente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00004_patente_checkColumnConstraints {<BLOCK Name="fct.vetb00004_limite_credito_checkColumnConstraints">} #+ Check constraints on the "vetb00004.limite_credito" column #+ #+ @param p_limite_credito - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00004_limite_credito_checkColumnConstraints(p_limite_credito) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_limite_credito LIKE vetb00004.limite_credito LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00004_limite_credito_checkColumnConstraints {<BLOCK Name="fct.vetb00004_zona_postal_checkColumnConstraints">} #+ Check constraints on the "vetb00004.zona_postal" column #+ #+ @param p_zona_postal - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00004_zona_postal_checkColumnConstraints(p_zona_postal) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_zona_postal LIKE vetb00004.zona_postal LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00004_zona_postal_checkColumnConstraints {<BLOCK Name="fct.vetb00004_num_rnc_checkColumnConstraints">} #+ Check constraints on the "vetb00004.num_rnc" column #+ #+ @param p_num_rnc - CHAR(11) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00004_num_rnc_checkColumnConstraints(p_num_rnc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_rnc LIKE vetb00004.num_rnc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00004_num_rnc_checkColumnConstraints {<BLOCK Name="fct.vetb00004_nombre_patente_checkColumnConstraints">} #+ Check constraints on the "vetb00004.nombre_patente" column #+ #+ @param p_nombre_patente - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00004_nombre_patente_checkColumnConstraints(p_nombre_patente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombre_patente LIKE vetb00004.nombre_patente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00004_nombre_patente_checkColumnConstraints {<BLOCK Name="fct.vetb00004_status_t_checkColumnConstraints">} #+ Check constraints on the "vetb00004.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00004_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE vetb00004.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00004_status_t_checkColumnConstraints {<BLOCK Name="fct.vetb00004_us_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00004.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00004_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE vetb00004.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00004_us_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00004_fech_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00004.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00004_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE vetb00004.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00004_fech_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00004_us_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00004.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00004_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE vetb00004.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00004_us_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00004_fech_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00004.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00004_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE vetb00004.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00004_fech_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00004_puesto_laboral_checkColumnConstraints">} #+ Check constraints on the "vetb00004.puesto_laboral" column #+ #+ @param p_puesto_laboral - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00004_puesto_laboral_checkColumnConstraints(p_puesto_laboral) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_puesto_laboral LIKE vetb00004.puesto_laboral LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00004_puesto_laboral_checkColumnConstraints {<BLOCK Name="fct.vetb00004_telefono_casa_checkColumnConstraints">} #+ Check constraints on the "vetb00004.telefono_casa" column #+ #+ @param p_telefono_casa - CHAR(15) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00004_telefono_casa_checkColumnConstraints(p_telefono_casa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_telefono_casa LIKE vetb00004.telefono_casa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00004_telefono_casa_checkColumnConstraints {<BLOCK Name="fct.vetb00004_tipo_negocio_checkColumnConstraints">} #+ Check constraints on the "vetb00004.tipo_negocio" column #+ #+ @param p_tipo_negocio - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00004_tipo_negocio_checkColumnConstraints(p_tipo_negocio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_negocio LIKE vetb00004.tipo_negocio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00004_tipo_negocio_checkColumnConstraints {<BLOCK Name="fct.vetb00004_cond_pago_checkColumnConstraints">} #+ Check constraints on the "vetb00004.cond_pago" column #+ #+ @param p_cond_pago - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00004_cond_pago_checkColumnConstraints(p_cond_pago) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cond_pago LIKE vetb00004.cond_pago LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00004_cond_pago_checkColumnConstraints {<BLOCK Name="fct.vetb00004_id_ciudad_checkColumnConstraints">} #+ Check constraints on the "vetb00004.id_ciudad" column #+ #+ @param p_id_ciudad - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00004_id_ciudad_checkColumnConstraints(p_id_ciudad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_id_ciudad LIKE vetb00004.id_ciudad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00004_id_ciudad_checkColumnConstraints {<BLOCK Name="fct.vetb00003_checkTableConstraints">} #+ Check constraints on the "vetb00003" table #+ #+ @param p_data - a row data LIKE vetb00003.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00003_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00003.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00003_cod_cia_checkColumnConstraints(p_data.cod_cia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00003_factura_checkColumnConstraints(p_data.factura) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00003_area_checkColumnConstraints(p_data.area) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00003_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00003_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00003_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00003_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00003_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00003_cantidad_2_checkColumnConstraints(p_data.cantidad_2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00003_bonificacion_checkColumnConstraints(p_data.bonificacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00003_precio_checkColumnConstraints(p_data.precio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00003_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00003_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00003_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00003_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00003_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00003_checkTableConstraints {<BLOCK Name="fct.vetb00003_cod_cia_checkColumnConstraints">} #+ Check constraints on the "vetb00003.cod_cia" column #+ #+ @param p_cod_cia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00003_cod_cia_checkColumnConstraints(p_cod_cia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_cia LIKE vetb00003.cod_cia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00003_cod_cia_checkColumnConstraints {<BLOCK Name="fct.vetb00003_factura_checkColumnConstraints">} #+ Check constraints on the "vetb00003.factura" column #+ #+ @param p_factura - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00003_factura_checkColumnConstraints(p_factura) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_factura LIKE vetb00003.factura LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00003_factura_checkColumnConstraints {<BLOCK Name="fct.vetb00003_area_checkColumnConstraints">} #+ Check constraints on the "vetb00003.area" column #+ #+ @param p_area - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00003_area_checkColumnConstraints(p_area) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_area LIKE vetb00003.area LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00003_area_checkColumnConstraints {<BLOCK Name="fct.vetb00003_cod_n_checkColumnConstraints">} #+ Check constraints on the "vetb00003.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00003_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE vetb00003.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00003_cod_n_checkColumnConstraints {<BLOCK Name="fct.vetb00003_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "vetb00003.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00003_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE vetb00003.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00003_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.vetb00003_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "vetb00003.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00003_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE vetb00003.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00003_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.vetb00003_cod_sec_checkColumnConstraints">} #+ Check constraints on the "vetb00003.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00003_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE vetb00003.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00003_cod_sec_checkColumnConstraints {<BLOCK Name="fct.vetb00003_cantidad_checkColumnConstraints">} #+ Check constraints on the "vetb00003.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00003_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE vetb00003.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00003_cantidad_checkColumnConstraints {<BLOCK Name="fct.vetb00003_cantidad_2_checkColumnConstraints">} #+ Check constraints on the "vetb00003.cantidad_2" column #+ #+ @param p_cantidad_2 - DECIMAL(14,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00003_cantidad_2_checkColumnConstraints(p_cantidad_2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad_2 LIKE vetb00003.cantidad_2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00003_cantidad_2_checkColumnConstraints {<BLOCK Name="fct.vetb00003_bonificacion_checkColumnConstraints">} #+ Check constraints on the "vetb00003.bonificacion" column #+ #+ @param p_bonificacion - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00003_bonificacion_checkColumnConstraints(p_bonificacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_bonificacion LIKE vetb00003.bonificacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00003_bonificacion_checkColumnConstraints {<BLOCK Name="fct.vetb00003_precio_checkColumnConstraints">} #+ Check constraints on the "vetb00003.precio" column #+ #+ @param p_precio - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00003_precio_checkColumnConstraints(p_precio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_precio LIKE vetb00003.precio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00003_precio_checkColumnConstraints {<BLOCK Name="fct.vetb00003_status_t_checkColumnConstraints">} #+ Check constraints on the "vetb00003.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00003_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE vetb00003.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00003_status_t_checkColumnConstraints {<BLOCK Name="fct.vetb00003_us_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00003.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00003_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE vetb00003.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00003_us_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00003_fech_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00003.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00003_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE vetb00003.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00003_fech_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00003_us_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00003.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00003_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE vetb00003.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00003_us_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00003_fech_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00003.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00003_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE vetb00003.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00003_fech_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00002_checkTableConstraints">} #+ Check constraints on the "vetb00002" table #+ #+ @param p_data - a row data LIKE vetb00002.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00002_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00002.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00002_cod_cia_checkColumnConstraints(p_data.cod_cia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00002_factura_checkColumnConstraints(p_data.factura) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00002_fecha_factura_checkColumnConstraints(p_data.fecha_factura) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00002_ventas_checkColumnConstraints(p_data.ventas) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00002_zona_checkColumnConstraints(p_data.zona) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00002_orden_checkColumnConstraints(p_data.orden) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00002_fecha_orden_checkColumnConstraints(p_data.fecha_orden) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00002_conduce_checkColumnConstraints(p_data.conduce) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00002_fecha_conduce_checkColumnConstraints(p_data.fecha_conduce) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00002_tipo_cliente_checkColumnConstraints(p_data.tipo_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00002_sec_cliente_checkColumnConstraints(p_data.sec_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00002_cod_vend_checkColumnConstraints(p_data.cod_vend) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00002_sec_vend_checkColumnConstraints(p_data.sec_vend) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00002_cond_pago_checkColumnConstraints(p_data.cond_pago) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00002_porc_itbi_checkColumnConstraints(p_data.porc_itbi) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00002_porc_desc_checkColumnConstraints(p_data.porc_desc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00002_prima_us_checkColumnConstraints(p_data.prima_us) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00002_sub_total_checkColumnConstraints(p_data.sub_total) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00002_monto_desc_checkColumnConstraints(p_data.monto_desc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00002_monto_itbi_checkColumnConstraints(p_data.monto_itbi) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00002_neto_checkColumnConstraints(p_data.neto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00002_fecha_embarque_checkColumnConstraints(p_data.fecha_embarque) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00002_status_impresion_checkColumnConstraints(p_data.status_impresion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00002_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00002_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00002_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00002_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00002_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00002_documento_checkColumnConstraints(p_data.documento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00002_placa_transporte_checkColumnConstraints(p_data.placa_transporte) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00002_checkTableConstraints {<BLOCK Name="fct.vetb00002_cod_cia_checkColumnConstraints">} #+ Check constraints on the "vetb00002.cod_cia" column #+ #+ @param p_cod_cia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00002_cod_cia_checkColumnConstraints(p_cod_cia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_cia LIKE vetb00002.cod_cia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00002_cod_cia_checkColumnConstraints {<BLOCK Name="fct.vetb00002_factura_checkColumnConstraints">} #+ Check constraints on the "vetb00002.factura" column #+ #+ @param p_factura - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00002_factura_checkColumnConstraints(p_factura) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_factura LIKE vetb00002.factura LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_factura IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- factura: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00002_factura_checkColumnConstraints {<BLOCK Name="fct.vetb00002_fecha_factura_checkColumnConstraints">} #+ Check constraints on the "vetb00002.fecha_factura" column #+ #+ @param p_fecha_factura - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00002_fecha_factura_checkColumnConstraints(p_fecha_factura) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_factura LIKE vetb00002.fecha_factura LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00002_fecha_factura_checkColumnConstraints {<BLOCK Name="fct.vetb00002_ventas_checkColumnConstraints">} #+ Check constraints on the "vetb00002.ventas" column #+ #+ @param p_ventas - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00002_ventas_checkColumnConstraints(p_ventas) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ventas LIKE vetb00002.ventas LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00002_ventas_checkColumnConstraints {<BLOCK Name="fct.vetb00002_zona_checkColumnConstraints">} #+ Check constraints on the "vetb00002.zona" column #+ #+ @param p_zona - VARCHAR2(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00002_zona_checkColumnConstraints(p_zona) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_zona LIKE vetb00002.zona LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00002_zona_checkColumnConstraints {<BLOCK Name="fct.vetb00002_orden_checkColumnConstraints">} #+ Check constraints on the "vetb00002.orden" column #+ #+ @param p_orden - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00002_orden_checkColumnConstraints(p_orden) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_orden LIKE vetb00002.orden LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00002_orden_checkColumnConstraints {<BLOCK Name="fct.vetb00002_fecha_orden_checkColumnConstraints">} #+ Check constraints on the "vetb00002.fecha_orden" column #+ #+ @param p_fecha_orden - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00002_fecha_orden_checkColumnConstraints(p_fecha_orden) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_orden LIKE vetb00002.fecha_orden LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00002_fecha_orden_checkColumnConstraints {<BLOCK Name="fct.vetb00002_conduce_checkColumnConstraints">} #+ Check constraints on the "vetb00002.conduce" column #+ #+ @param p_conduce - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00002_conduce_checkColumnConstraints(p_conduce) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_conduce LIKE vetb00002.conduce LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00002_conduce_checkColumnConstraints {<BLOCK Name="fct.vetb00002_fecha_conduce_checkColumnConstraints">} #+ Check constraints on the "vetb00002.fecha_conduce" column #+ #+ @param p_fecha_conduce - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00002_fecha_conduce_checkColumnConstraints(p_fecha_conduce) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_conduce LIKE vetb00002.fecha_conduce LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00002_fecha_conduce_checkColumnConstraints {<BLOCK Name="fct.vetb00002_tipo_cliente_checkColumnConstraints">} #+ Check constraints on the "vetb00002.tipo_cliente" column #+ #+ @param p_tipo_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00002_tipo_cliente_checkColumnConstraints(p_tipo_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_cliente LIKE vetb00002.tipo_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00002_tipo_cliente_checkColumnConstraints {<BLOCK Name="fct.vetb00002_sec_cliente_checkColumnConstraints">} #+ Check constraints on the "vetb00002.sec_cliente" column #+ #+ @param p_sec_cliente - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00002_sec_cliente_checkColumnConstraints(p_sec_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_cliente LIKE vetb00002.sec_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00002_sec_cliente_checkColumnConstraints {<BLOCK Name="fct.vetb00002_cod_vend_checkColumnConstraints">} #+ Check constraints on the "vetb00002.cod_vend" column #+ #+ @param p_cod_vend - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00002_cod_vend_checkColumnConstraints(p_cod_vend) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_vend LIKE vetb00002.cod_vend LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00002_cod_vend_checkColumnConstraints {<BLOCK Name="fct.vetb00002_sec_vend_checkColumnConstraints">} #+ Check constraints on the "vetb00002.sec_vend" column #+ #+ @param p_sec_vend - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00002_sec_vend_checkColumnConstraints(p_sec_vend) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_vend LIKE vetb00002.sec_vend LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00002_sec_vend_checkColumnConstraints {<BLOCK Name="fct.vetb00002_cond_pago_checkColumnConstraints">} #+ Check constraints on the "vetb00002.cond_pago" column #+ #+ @param p_cond_pago - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00002_cond_pago_checkColumnConstraints(p_cond_pago) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cond_pago LIKE vetb00002.cond_pago LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00002_cond_pago_checkColumnConstraints {<BLOCK Name="fct.vetb00002_porc_itbi_checkColumnConstraints">} #+ Check constraints on the "vetb00002.porc_itbi" column #+ #+ @param p_porc_itbi - DECIMAL(5,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00002_porc_itbi_checkColumnConstraints(p_porc_itbi) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_porc_itbi LIKE vetb00002.porc_itbi LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00002_porc_itbi_checkColumnConstraints {<BLOCK Name="fct.vetb00002_porc_desc_checkColumnConstraints">} #+ Check constraints on the "vetb00002.porc_desc" column #+ #+ @param p_porc_desc - DECIMAL(8,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00002_porc_desc_checkColumnConstraints(p_porc_desc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_porc_desc LIKE vetb00002.porc_desc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00002_porc_desc_checkColumnConstraints {<BLOCK Name="fct.vetb00002_prima_us_checkColumnConstraints">} #+ Check constraints on the "vetb00002.prima_us" column #+ #+ @param p_prima_us - DECIMAL(6,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00002_prima_us_checkColumnConstraints(p_prima_us) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_prima_us LIKE vetb00002.prima_us LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00002_prima_us_checkColumnConstraints {<BLOCK Name="fct.vetb00002_sub_total_checkColumnConstraints">} #+ Check constraints on the "vetb00002.sub_total" column #+ #+ @param p_sub_total - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00002_sub_total_checkColumnConstraints(p_sub_total) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sub_total LIKE vetb00002.sub_total LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00002_sub_total_checkColumnConstraints {<BLOCK Name="fct.vetb00002_monto_desc_checkColumnConstraints">} #+ Check constraints on the "vetb00002.monto_desc" column #+ #+ @param p_monto_desc - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00002_monto_desc_checkColumnConstraints(p_monto_desc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_monto_desc LIKE vetb00002.monto_desc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00002_monto_desc_checkColumnConstraints {<BLOCK Name="fct.vetb00002_monto_itbi_checkColumnConstraints">} #+ Check constraints on the "vetb00002.monto_itbi" column #+ #+ @param p_monto_itbi - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00002_monto_itbi_checkColumnConstraints(p_monto_itbi) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_monto_itbi LIKE vetb00002.monto_itbi LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00002_monto_itbi_checkColumnConstraints {<BLOCK Name="fct.vetb00002_neto_checkColumnConstraints">} #+ Check constraints on the "vetb00002.neto" column #+ #+ @param p_neto - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00002_neto_checkColumnConstraints(p_neto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_neto LIKE vetb00002.neto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_neto IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- neto: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00002_neto_checkColumnConstraints {<BLOCK Name="fct.vetb00002_fecha_embarque_checkColumnConstraints">} #+ Check constraints on the "vetb00002.fecha_embarque" column #+ #+ @param p_fecha_embarque - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00002_fecha_embarque_checkColumnConstraints(p_fecha_embarque) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_embarque LIKE vetb00002.fecha_embarque LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00002_fecha_embarque_checkColumnConstraints {<BLOCK Name="fct.vetb00002_status_impresion_checkColumnConstraints">} #+ Check constraints on the "vetb00002.status_impresion" column #+ #+ @param p_status_impresion - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00002_status_impresion_checkColumnConstraints(p_status_impresion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_impresion LIKE vetb00002.status_impresion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00002_status_impresion_checkColumnConstraints {<BLOCK Name="fct.vetb00002_status_t_checkColumnConstraints">} #+ Check constraints on the "vetb00002.status_t" column #+ #+ @param p_status_t - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00002_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE vetb00002.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00002_status_t_checkColumnConstraints {<BLOCK Name="fct.vetb00002_us_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00002.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00002_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE vetb00002.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00002_us_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00002_fech_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00002.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00002_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE vetb00002.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00002_fech_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00002_us_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00002.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00002_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE vetb00002.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00002_us_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00002_fech_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00002.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00002_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE vetb00002.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00002_fech_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00002_documento_checkColumnConstraints">} #+ Check constraints on the "vetb00002.documento" column #+ #+ @param p_documento - CHAR(15) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00002_documento_checkColumnConstraints(p_documento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_documento LIKE vetb00002.documento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00002_documento_checkColumnConstraints {<BLOCK Name="fct.vetb00002_placa_transporte_checkColumnConstraints">} #+ Check constraints on the "vetb00002.placa_transporte" column #+ #+ @param p_placa_transporte - CHAR(25) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00002_placa_transporte_checkColumnConstraints(p_placa_transporte) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_placa_transporte LIKE vetb00002.placa_transporte LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00002_placa_transporte_checkColumnConstraints {<BLOCK Name="fct.vetb00001_checkTableConstraints">} #+ Check constraints on the "vetb00001" table #+ #+ @param p_data - a row data LIKE vetb00001.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00001_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vetb00001.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vetb00001_cod_cia_checkColumnConstraints(p_data.cod_cia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00001_ult_factura_checkColumnConstraints(p_data.ult_factura) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00001_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00001_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00001_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00001_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vetb00001_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00001_checkTableConstraints {<BLOCK Name="fct.vetb00001_cod_cia_checkColumnConstraints">} #+ Check constraints on the "vetb00001.cod_cia" column #+ #+ @param p_cod_cia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00001_cod_cia_checkColumnConstraints(p_cod_cia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_cia LIKE vetb00001.cod_cia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00001_cod_cia_checkColumnConstraints {<BLOCK Name="fct.vetb00001_ult_factura_checkColumnConstraints">} #+ Check constraints on the "vetb00001.ult_factura" column #+ #+ @param p_ult_factura - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00001_ult_factura_checkColumnConstraints(p_ult_factura) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ult_factura LIKE vetb00001.ult_factura LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00001_ult_factura_checkColumnConstraints {<BLOCK Name="fct.vetb00001_status_t_checkColumnConstraints">} #+ Check constraints on the "vetb00001.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00001_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE vetb00001.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00001_status_t_checkColumnConstraints {<BLOCK Name="fct.vetb00001_us_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00001.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00001_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE vetb00001.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00001_us_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00001_fech_crea_checkColumnConstraints">} #+ Check constraints on the "vetb00001.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00001_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE vetb00001.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00001_fech_crea_checkColumnConstraints {<BLOCK Name="fct.vetb00001_us_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00001.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00001_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE vetb00001.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00001_us_mod_checkColumnConstraints {<BLOCK Name="fct.vetb00001_fech_mod_checkColumnConstraints">} #+ Check constraints on the "vetb00001.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vetb00001_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE vetb00001.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vetb00001_fech_mod_checkColumnConstraints {<BLOCK Name="fct.ventas_checkTableConstraints">} #+ Check constraints on the "ventas" table #+ #+ @param p_data - a row data LIKE ventas.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_ventas_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE ventas.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_ventas_factura_checkColumnConstraints(p_data.factura) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ventas_checkTableConstraints {<BLOCK Name="fct.ventas_factura_checkColumnConstraints">} #+ Check constraints on the "ventas.factura" column #+ #+ @param p_factura - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ventas_factura_checkColumnConstraints(p_factura) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_factura LIKE ventas.factura LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ventas_factura_checkColumnConstraints {<BLOCK Name="fct.vacaciones_checkTableConstraints">} #+ Check constraints on the "vacaciones" table #+ #+ @param p_data - a row data LIKE vacaciones.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_vacaciones_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE vacaciones.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_vacaciones_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vacaciones_num_emp_checkColumnConstraints(p_data.num_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vacaciones_cod_puesto_checkColumnConstraints(p_data.cod_puesto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vacaciones_nom1_emp_checkColumnConstraints(p_data.nom1_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vacaciones_nom2_emp_checkColumnConstraints(p_data.nom2_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vacaciones_apell1_emp_checkColumnConstraints(p_data.apell1_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vacaciones_apell2_emp_checkColumnConstraints(p_data.apell2_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vacaciones_cedula_checkColumnConstraints(p_data.cedula) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vacaciones_serie_checkColumnConstraints(p_data.serie) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vacaciones_nomina_checkColumnConstraints(p_data.nomina) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vacaciones_fecha_ing_checkColumnConstraints(p_data.fecha_ing) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vacaciones_nom_puesto_checkColumnConstraints(p_data.nom_puesto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vacaciones_fech_vac_checkColumnConstraints(p_data.fech_vac) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_vacaciones_dia_checkColumnConstraints(p_data.dia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vacaciones_checkTableConstraints {<BLOCK Name="fct.vacaciones_ano_checkColumnConstraints">} #+ Check constraints on the "vacaciones.ano" column #+ #+ @param p_ano - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vacaciones_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE vacaciones.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vacaciones_ano_checkColumnConstraints {<BLOCK Name="fct.vacaciones_num_emp_checkColumnConstraints">} #+ Check constraints on the "vacaciones.num_emp" column #+ #+ @param p_num_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vacaciones_num_emp_checkColumnConstraints(p_num_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_emp LIKE vacaciones.num_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vacaciones_num_emp_checkColumnConstraints {<BLOCK Name="fct.vacaciones_cod_puesto_checkColumnConstraints">} #+ Check constraints on the "vacaciones.cod_puesto" column #+ #+ @param p_cod_puesto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vacaciones_cod_puesto_checkColumnConstraints(p_cod_puesto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_puesto LIKE vacaciones.cod_puesto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vacaciones_cod_puesto_checkColumnConstraints {<BLOCK Name="fct.vacaciones_nom1_emp_checkColumnConstraints">} #+ Check constraints on the "vacaciones.nom1_emp" column #+ #+ @param p_nom1_emp - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vacaciones_nom1_emp_checkColumnConstraints(p_nom1_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nom1_emp LIKE vacaciones.nom1_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vacaciones_nom1_emp_checkColumnConstraints {<BLOCK Name="fct.vacaciones_nom2_emp_checkColumnConstraints">} #+ Check constraints on the "vacaciones.nom2_emp" column #+ #+ @param p_nom2_emp - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vacaciones_nom2_emp_checkColumnConstraints(p_nom2_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nom2_emp LIKE vacaciones.nom2_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vacaciones_nom2_emp_checkColumnConstraints {<BLOCK Name="fct.vacaciones_apell1_emp_checkColumnConstraints">} #+ Check constraints on the "vacaciones.apell1_emp" column #+ #+ @param p_apell1_emp - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vacaciones_apell1_emp_checkColumnConstraints(p_apell1_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_apell1_emp LIKE vacaciones.apell1_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vacaciones_apell1_emp_checkColumnConstraints {<BLOCK Name="fct.vacaciones_apell2_emp_checkColumnConstraints">} #+ Check constraints on the "vacaciones.apell2_emp" column #+ #+ @param p_apell2_emp - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vacaciones_apell2_emp_checkColumnConstraints(p_apell2_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_apell2_emp LIKE vacaciones.apell2_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vacaciones_apell2_emp_checkColumnConstraints {<BLOCK Name="fct.vacaciones_cedula_checkColumnConstraints">} #+ Check constraints on the "vacaciones.cedula" column #+ #+ @param p_cedula - CHAR(11) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vacaciones_cedula_checkColumnConstraints(p_cedula) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cedula LIKE vacaciones.cedula LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vacaciones_cedula_checkColumnConstraints {<BLOCK Name="fct.vacaciones_serie_checkColumnConstraints">} #+ Check constraints on the "vacaciones.serie" column #+ #+ @param p_serie - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vacaciones_serie_checkColumnConstraints(p_serie) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_serie LIKE vacaciones.serie LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vacaciones_serie_checkColumnConstraints {<BLOCK Name="fct.vacaciones_nomina_checkColumnConstraints">} #+ Check constraints on the "vacaciones.nomina" column #+ #+ @param p_nomina - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vacaciones_nomina_checkColumnConstraints(p_nomina) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nomina LIKE vacaciones.nomina LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vacaciones_nomina_checkColumnConstraints {<BLOCK Name="fct.vacaciones_fecha_ing_checkColumnConstraints">} #+ Check constraints on the "vacaciones.fecha_ing" column #+ #+ @param p_fecha_ing - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vacaciones_fecha_ing_checkColumnConstraints(p_fecha_ing) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_ing LIKE vacaciones.fecha_ing LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vacaciones_fecha_ing_checkColumnConstraints {<BLOCK Name="fct.vacaciones_nom_puesto_checkColumnConstraints">} #+ Check constraints on the "vacaciones.nom_puesto" column #+ #+ @param p_nom_puesto - CHAR(25) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vacaciones_nom_puesto_checkColumnConstraints(p_nom_puesto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nom_puesto LIKE vacaciones.nom_puesto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vacaciones_nom_puesto_checkColumnConstraints {<BLOCK Name="fct.vacaciones_fech_vac_checkColumnConstraints">} #+ Check constraints on the "vacaciones.fech_vac" column #+ #+ @param p_fech_vac - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vacaciones_fech_vac_checkColumnConstraints(p_fech_vac) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_vac LIKE vacaciones.fech_vac LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vacaciones_fech_vac_checkColumnConstraints {<BLOCK Name="fct.vacaciones_dia_checkColumnConstraints">} #+ Check constraints on the "vacaciones.dia" column #+ #+ @param p_dia - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_vacaciones_dia_checkColumnConstraints(p_dia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_dia LIKE vacaciones.dia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.vacaciones_dia_checkColumnConstraints {<BLOCK Name="fct.usuarios_checkTableConstraints">} #+ Check constraints on the "usuarios" table #+ #+ @param p_data - a row data LIKE usuarios.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_usuarios_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE usuarios.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_usuarios_usucodigo_checkColumnConstraints(p_data.usucodigo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_usuarios_usuclave_checkColumnConstraints(p_data.usuclave) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_usuarios_usunombre_checkColumnConstraints(p_data.usunombre) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.usuarios_checkTableConstraints {<BLOCK Name="fct.usuarios_usucodigo_checkColumnConstraints">} #+ Check constraints on the "usuarios.usucodigo" column #+ #+ @param p_usucodigo - VARCHAR2(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_usuarios_usucodigo_checkColumnConstraints(p_usucodigo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_usucodigo LIKE usuarios.usucodigo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_usucodigo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- usucodigo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.usuarios_usucodigo_checkColumnConstraints {<BLOCK Name="fct.usuarios_usuclave_checkColumnConstraints">} #+ Check constraints on the "usuarios.usuclave" column #+ #+ @param p_usuclave - VARCHAR2(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_usuarios_usuclave_checkColumnConstraints(p_usuclave) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_usuclave LIKE usuarios.usuclave LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_usuclave IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- usuclave: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.usuarios_usuclave_checkColumnConstraints {<BLOCK Name="fct.usuarios_usunombre_checkColumnConstraints">} #+ Check constraints on the "usuarios.usunombre" column #+ #+ @param p_usunombre - VARCHAR2(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_usuarios_usunombre_checkColumnConstraints(p_usunombre) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_usunombre LIKE usuarios.usunombre LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.usuarios_usunombre_checkColumnConstraints {<BLOCK Name="fct.userinfo_checkTableConstraints">} #+ Check constraints on the "userinfo" table #+ #+ @param p_data - a row data LIKE userinfo.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_userinfo_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE userinfo.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_userinfo_userid_checkColumnConstraints(p_data.userid) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_userinfo_badgenumber_checkColumnConstraints(p_data.badgenumber) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_userinfo_ssn_checkColumnConstraints(p_data.ssn) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_userinfo_name_checkColumnConstraints(p_data.name) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_userinfo_gender_checkColumnConstraints(p_data.gender) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_userinfo_title_checkColumnConstraints(p_data.title) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_userinfo_pager_checkColumnConstraints(p_data.pager) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_userinfo_birthday_checkColumnConstraints(p_data.birthday) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_userinfo_hiredday_checkColumnConstraints(p_data.hiredday) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_userinfo_street_checkColumnConstraints(p_data.street) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_userinfo_city_checkColumnConstraints(p_data.city) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_userinfo_state_checkColumnConstraints(p_data.state) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_userinfo_zip_checkColumnConstraints(p_data.zip) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_userinfo_ophone_checkColumnConstraints(p_data.ophone) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_userinfo_fphone_checkColumnConstraints(p_data.fphone) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_userinfo_verificationmethod_checkColumnConstraints(p_data.verificationmethod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_userinfo_defaultdeptid_checkColumnConstraints(p_data.defaultdeptid) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_userinfo_securityflags_checkColumnConstraints(p_data.securityflags) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_userinfo_att_checkColumnConstraints(p_data.att) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_userinfo_inlate_checkColumnConstraints(p_data.inlate) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_userinfo_outearly_checkColumnConstraints(p_data.outearly) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_userinfo_overtime_checkColumnConstraints(p_data.overtime) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_userinfo_sep_checkColumnConstraints(p_data.sep) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_userinfo_holiday_checkColumnConstraints(p_data.holiday) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_userinfo_minzu_checkColumnConstraints(p_data.minzu) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_userinfo_password_checkColumnConstraints(p_data.password) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_userinfo_lunchduration_checkColumnConstraints(p_data.lunchduration) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_userinfo_mverifypass_checkColumnConstraints(p_data.mverifypass) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_userinfo_photo_checkColumnConstraints(p_data.photo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_userinfo_notes_checkColumnConstraints(p_data.notes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_userinfo_privilege_checkColumnConstraints(p_data.privilege) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_userinfo_inheritdeptsch_checkColumnConstraints(p_data.inheritdeptsch) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_userinfo_inheritdeptschclass_checkColumnConstraints(p_data.inheritdeptschclass) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_userinfo_autoschplan_checkColumnConstraints(p_data.autoschplan) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_userinfo_minautoschinterval_checkColumnConstraints(p_data.minautoschinterval) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_userinfo_registerot_checkColumnConstraints(p_data.registerot) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_userinfo_inheritdeptrule_checkColumnConstraints(p_data.inheritdeptrule) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_userinfo_emprivilege_checkColumnConstraints(p_data.emprivilege) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_userinfo_cardno_checkColumnConstraints(p_data.cardno) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.userinfo_checkTableConstraints {<BLOCK Name="fct.userinfo_userid_checkColumnConstraints">} #+ Check constraints on the "userinfo.userid" column #+ #+ @param p_userid - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_userinfo_userid_checkColumnConstraints(p_userid) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_userid LIKE userinfo.userid LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_userid IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- userid: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.userinfo_userid_checkColumnConstraints {<BLOCK Name="fct.userinfo_badgenumber_checkColumnConstraints">} #+ Check constraints on the "userinfo.badgenumber" column #+ #+ @param p_badgenumber - VARCHAR2(24) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_userinfo_badgenumber_checkColumnConstraints(p_badgenumber) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_badgenumber LIKE userinfo.badgenumber LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_badgenumber IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- badgenumber: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.userinfo_badgenumber_checkColumnConstraints {<BLOCK Name="fct.userinfo_ssn_checkColumnConstraints">} #+ Check constraints on the "userinfo.ssn" column #+ #+ @param p_ssn - VARCHAR2(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_userinfo_ssn_checkColumnConstraints(p_ssn) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ssn LIKE userinfo.ssn LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.userinfo_ssn_checkColumnConstraints {<BLOCK Name="fct.userinfo_name_checkColumnConstraints">} #+ Check constraints on the "userinfo.name" column #+ #+ @param p_name - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_userinfo_name_checkColumnConstraints(p_name) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_name LIKE userinfo.name LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.userinfo_name_checkColumnConstraints {<BLOCK Name="fct.userinfo_gender_checkColumnConstraints">} #+ Check constraints on the "userinfo.gender" column #+ #+ @param p_gender - VARCHAR2(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_userinfo_gender_checkColumnConstraints(p_gender) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_gender LIKE userinfo.gender LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.userinfo_gender_checkColumnConstraints {<BLOCK Name="fct.userinfo_title_checkColumnConstraints">} #+ Check constraints on the "userinfo.title" column #+ #+ @param p_title - VARCHAR2(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_userinfo_title_checkColumnConstraints(p_title) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_title LIKE userinfo.title LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.userinfo_title_checkColumnConstraints {<BLOCK Name="fct.userinfo_pager_checkColumnConstraints">} #+ Check constraints on the "userinfo.pager" column #+ #+ @param p_pager - VARCHAR2(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_userinfo_pager_checkColumnConstraints(p_pager) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_pager LIKE userinfo.pager LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.userinfo_pager_checkColumnConstraints {<BLOCK Name="fct.userinfo_birthday_checkColumnConstraints">} #+ Check constraints on the "userinfo.birthday" column #+ #+ @param p_birthday - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_userinfo_birthday_checkColumnConstraints(p_birthday) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_birthday LIKE userinfo.birthday LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.userinfo_birthday_checkColumnConstraints {<BLOCK Name="fct.userinfo_hiredday_checkColumnConstraints">} #+ Check constraints on the "userinfo.hiredday" column #+ #+ @param p_hiredday - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_userinfo_hiredday_checkColumnConstraints(p_hiredday) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_hiredday LIKE userinfo.hiredday LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.userinfo_hiredday_checkColumnConstraints {<BLOCK Name="fct.userinfo_street_checkColumnConstraints">} #+ Check constraints on the "userinfo.street" column #+ #+ @param p_street - VARCHAR2(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_userinfo_street_checkColumnConstraints(p_street) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_street LIKE userinfo.street LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.userinfo_street_checkColumnConstraints {<BLOCK Name="fct.userinfo_city_checkColumnConstraints">} #+ Check constraints on the "userinfo.city" column #+ #+ @param p_city - VARCHAR2(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_userinfo_city_checkColumnConstraints(p_city) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_city LIKE userinfo.city LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.userinfo_city_checkColumnConstraints {<BLOCK Name="fct.userinfo_state_checkColumnConstraints">} #+ Check constraints on the "userinfo.state" column #+ #+ @param p_state - VARCHAR2(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_userinfo_state_checkColumnConstraints(p_state) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_state LIKE userinfo.state LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.userinfo_state_checkColumnConstraints {<BLOCK Name="fct.userinfo_zip_checkColumnConstraints">} #+ Check constraints on the "userinfo.zip" column #+ #+ @param p_zip - VARCHAR2(12) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_userinfo_zip_checkColumnConstraints(p_zip) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_zip LIKE userinfo.zip LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.userinfo_zip_checkColumnConstraints {<BLOCK Name="fct.userinfo_ophone_checkColumnConstraints">} #+ Check constraints on the "userinfo.ophone" column #+ #+ @param p_ophone - VARCHAR2(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_userinfo_ophone_checkColumnConstraints(p_ophone) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ophone LIKE userinfo.ophone LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.userinfo_ophone_checkColumnConstraints {<BLOCK Name="fct.userinfo_fphone_checkColumnConstraints">} #+ Check constraints on the "userinfo.fphone" column #+ #+ @param p_fphone - VARCHAR2(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_userinfo_fphone_checkColumnConstraints(p_fphone) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fphone LIKE userinfo.fphone LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.userinfo_fphone_checkColumnConstraints {<BLOCK Name="fct.userinfo_verificationmethod_checkColumnConstraints">} #+ Check constraints on the "userinfo.verificationmethod" column #+ #+ @param p_verificationmethod - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_userinfo_verificationmethod_checkColumnConstraints(p_verificationmethod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_verificationmethod LIKE userinfo.verificationmethod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.userinfo_verificationmethod_checkColumnConstraints {<BLOCK Name="fct.userinfo_defaultdeptid_checkColumnConstraints">} #+ Check constraints on the "userinfo.defaultdeptid" column #+ #+ @param p_defaultdeptid - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_userinfo_defaultdeptid_checkColumnConstraints(p_defaultdeptid) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_defaultdeptid LIKE userinfo.defaultdeptid LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.userinfo_defaultdeptid_checkColumnConstraints {<BLOCK Name="fct.userinfo_securityflags_checkColumnConstraints">} #+ Check constraints on the "userinfo.securityflags" column #+ #+ @param p_securityflags - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_userinfo_securityflags_checkColumnConstraints(p_securityflags) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_securityflags LIKE userinfo.securityflags LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.userinfo_securityflags_checkColumnConstraints {<BLOCK Name="fct.userinfo_att_checkColumnConstraints">} #+ Check constraints on the "userinfo.att" column #+ #+ @param p_att - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_userinfo_att_checkColumnConstraints(p_att) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_att LIKE userinfo.att LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_att IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- att: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.userinfo_att_checkColumnConstraints {<BLOCK Name="fct.userinfo_inlate_checkColumnConstraints">} #+ Check constraints on the "userinfo.inlate" column #+ #+ @param p_inlate - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_userinfo_inlate_checkColumnConstraints(p_inlate) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_inlate LIKE userinfo.inlate LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_inlate IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- inlate: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.userinfo_inlate_checkColumnConstraints {<BLOCK Name="fct.userinfo_outearly_checkColumnConstraints">} #+ Check constraints on the "userinfo.outearly" column #+ #+ @param p_outearly - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_userinfo_outearly_checkColumnConstraints(p_outearly) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_outearly LIKE userinfo.outearly LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_outearly IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- outearly: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.userinfo_outearly_checkColumnConstraints {<BLOCK Name="fct.userinfo_overtime_checkColumnConstraints">} #+ Check constraints on the "userinfo.overtime" column #+ #+ @param p_overtime - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_userinfo_overtime_checkColumnConstraints(p_overtime) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_overtime LIKE userinfo.overtime LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_overtime IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- overtime: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.userinfo_overtime_checkColumnConstraints {<BLOCK Name="fct.userinfo_sep_checkColumnConstraints">} #+ Check constraints on the "userinfo.sep" column #+ #+ @param p_sep - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_userinfo_sep_checkColumnConstraints(p_sep) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sep LIKE userinfo.sep LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_sep IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- sep: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.userinfo_sep_checkColumnConstraints {<BLOCK Name="fct.userinfo_holiday_checkColumnConstraints">} #+ Check constraints on the "userinfo.holiday" column #+ #+ @param p_holiday - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_userinfo_holiday_checkColumnConstraints(p_holiday) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_holiday LIKE userinfo.holiday LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_holiday IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- holiday: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.userinfo_holiday_checkColumnConstraints {<BLOCK Name="fct.userinfo_minzu_checkColumnConstraints">} #+ Check constraints on the "userinfo.minzu" column #+ #+ @param p_minzu - VARCHAR2(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_userinfo_minzu_checkColumnConstraints(p_minzu) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_minzu LIKE userinfo.minzu LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.userinfo_minzu_checkColumnConstraints {<BLOCK Name="fct.userinfo_password_checkColumnConstraints">} #+ Check constraints on the "userinfo.password" column #+ #+ @param p_password - VARCHAR2(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_userinfo_password_checkColumnConstraints(p_password) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_password LIKE userinfo.password LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.userinfo_password_checkColumnConstraints {<BLOCK Name="fct.userinfo_lunchduration_checkColumnConstraints">} #+ Check constraints on the "userinfo.lunchduration" column #+ #+ @param p_lunchduration - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_userinfo_lunchduration_checkColumnConstraints(p_lunchduration) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_lunchduration LIKE userinfo.lunchduration LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_lunchduration IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- lunchduration: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.userinfo_lunchduration_checkColumnConstraints {<BLOCK Name="fct.userinfo_mverifypass_checkColumnConstraints">} #+ Check constraints on the "userinfo.mverifypass" column #+ #+ @param p_mverifypass - VARCHAR2(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_userinfo_mverifypass_checkColumnConstraints(p_mverifypass) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mverifypass LIKE userinfo.mverifypass LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.userinfo_mverifypass_checkColumnConstraints {<BLOCK Name="fct.userinfo_photo_checkColumnConstraints">} #+ Check constraints on the "userinfo.photo" column #+ #+ @param p_photo - BYTE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_userinfo_photo_checkColumnConstraints(p_photo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_photo LIKE userinfo.photo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.userinfo_photo_checkColumnConstraints {<BLOCK Name="fct.userinfo_notes_checkColumnConstraints">} #+ Check constraints on the "userinfo.notes" column #+ #+ @param p_notes - BYTE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_userinfo_notes_checkColumnConstraints(p_notes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_notes LIKE userinfo.notes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.userinfo_notes_checkColumnConstraints {<BLOCK Name="fct.userinfo_privilege_checkColumnConstraints">} #+ Check constraints on the "userinfo.privilege" column #+ #+ @param p_privilege - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_userinfo_privilege_checkColumnConstraints(p_privilege) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_privilege LIKE userinfo.privilege LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.userinfo_privilege_checkColumnConstraints {<BLOCK Name="fct.userinfo_inheritdeptsch_checkColumnConstraints">} #+ Check constraints on the "userinfo.inheritdeptsch" column #+ #+ @param p_inheritdeptsch - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_userinfo_inheritdeptsch_checkColumnConstraints(p_inheritdeptsch) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_inheritdeptsch LIKE userinfo.inheritdeptsch LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.userinfo_inheritdeptsch_checkColumnConstraints {<BLOCK Name="fct.userinfo_inheritdeptschclass_checkColumnConstraints">} #+ Check constraints on the "userinfo.inheritdeptschclass" column #+ #+ @param p_inheritdeptschclass - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_userinfo_inheritdeptschclass_checkColumnConstraints(p_inheritdeptschclass) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_inheritdeptschclass LIKE userinfo.inheritdeptschclass LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.userinfo_inheritdeptschclass_checkColumnConstraints {<BLOCK Name="fct.userinfo_autoschplan_checkColumnConstraints">} #+ Check constraints on the "userinfo.autoschplan" column #+ #+ @param p_autoschplan - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_userinfo_autoschplan_checkColumnConstraints(p_autoschplan) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_autoschplan LIKE userinfo.autoschplan LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.userinfo_autoschplan_checkColumnConstraints {<BLOCK Name="fct.userinfo_minautoschinterval_checkColumnConstraints">} #+ Check constraints on the "userinfo.minautoschinterval" column #+ #+ @param p_minautoschinterval - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_userinfo_minautoschinterval_checkColumnConstraints(p_minautoschinterval) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_minautoschinterval LIKE userinfo.minautoschinterval LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.userinfo_minautoschinterval_checkColumnConstraints {<BLOCK Name="fct.userinfo_registerot_checkColumnConstraints">} #+ Check constraints on the "userinfo.registerot" column #+ #+ @param p_registerot - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_userinfo_registerot_checkColumnConstraints(p_registerot) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_registerot LIKE userinfo.registerot LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.userinfo_registerot_checkColumnConstraints {<BLOCK Name="fct.userinfo_inheritdeptrule_checkColumnConstraints">} #+ Check constraints on the "userinfo.inheritdeptrule" column #+ #+ @param p_inheritdeptrule - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_userinfo_inheritdeptrule_checkColumnConstraints(p_inheritdeptrule) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_inheritdeptrule LIKE userinfo.inheritdeptrule LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.userinfo_inheritdeptrule_checkColumnConstraints {<BLOCK Name="fct.userinfo_emprivilege_checkColumnConstraints">} #+ Check constraints on the "userinfo.emprivilege" column #+ #+ @param p_emprivilege - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_userinfo_emprivilege_checkColumnConstraints(p_emprivilege) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_emprivilege LIKE userinfo.emprivilege LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.userinfo_emprivilege_checkColumnConstraints {<BLOCK Name="fct.userinfo_cardno_checkColumnConstraints">} #+ Check constraints on the "userinfo.cardno" column #+ #+ @param p_cardno - VARCHAR2(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_userinfo_cardno_checkColumnConstraints(p_cardno) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cardno LIKE userinfo.cardno LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.userinfo_cardno_checkColumnConstraints {<BLOCK Name="fct.travertino_checkTableConstraints">} #+ Check constraints on the "travertino" table #+ #+ @param p_data - a row data LIKE travertino.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_travertino_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE travertino.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_travertino_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_travertino_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_travertino_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_travertino_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_travertino_porc_checkColumnConstraints(p_data.porc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.travertino_checkTableConstraints {<BLOCK Name="fct.travertino_cod_n_checkColumnConstraints">} #+ Check constraints on the "travertino.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_travertino_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE travertino.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.travertino_cod_n_checkColumnConstraints {<BLOCK Name="fct.travertino_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "travertino.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_travertino_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE travertino.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.travertino_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.travertino_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "travertino.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_travertino_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE travertino.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.travertino_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.travertino_cod_sec_checkColumnConstraints">} #+ Check constraints on the "travertino.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_travertino_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE travertino.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.travertino_cod_sec_checkColumnConstraints {<BLOCK Name="fct.travertino_porc_checkColumnConstraints">} #+ Check constraints on the "travertino.porc" column #+ #+ @param p_porc - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_travertino_porc_checkColumnConstraints(p_porc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_porc LIKE travertino.porc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.travertino_porc_checkColumnConstraints {<BLOCK Name="fct.tmpvetb00003_checkTableConstraints">} #+ Check constraints on the "tmpvetb00003" table #+ #+ @param p_data - a row data LIKE tmpvetb00003.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmpvetb00003_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmpvetb00003.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmpvetb00003_cod_cia_checkColumnConstraints(p_data.cod_cia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpvetb00003_factura_checkColumnConstraints(p_data.factura) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpvetb00003_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpvetb00003_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpvetb00003_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpvetb00003_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpvetb00003_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpvetb00003_cantidad_2_checkColumnConstraints(p_data.cantidad_2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpvetb00003_bonificacion_checkColumnConstraints(p_data.bonificacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpvetb00003_precio_checkColumnConstraints(p_data.precio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpvetb00003_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpvetb00003_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpvetb00003_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpvetb00003_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpvetb00003_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpvetb00003_checkTableConstraints {<BLOCK Name="fct.tmpvetb00003_cod_cia_checkColumnConstraints">} #+ Check constraints on the "tmpvetb00003.cod_cia" column #+ #+ @param p_cod_cia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpvetb00003_cod_cia_checkColumnConstraints(p_cod_cia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_cia LIKE tmpvetb00003.cod_cia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpvetb00003_cod_cia_checkColumnConstraints {<BLOCK Name="fct.tmpvetb00003_factura_checkColumnConstraints">} #+ Check constraints on the "tmpvetb00003.factura" column #+ #+ @param p_factura - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpvetb00003_factura_checkColumnConstraints(p_factura) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_factura LIKE tmpvetb00003.factura LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpvetb00003_factura_checkColumnConstraints {<BLOCK Name="fct.tmpvetb00003_cod_n_checkColumnConstraints">} #+ Check constraints on the "tmpvetb00003.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpvetb00003_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE tmpvetb00003.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpvetb00003_cod_n_checkColumnConstraints {<BLOCK Name="fct.tmpvetb00003_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "tmpvetb00003.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpvetb00003_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE tmpvetb00003.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpvetb00003_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.tmpvetb00003_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "tmpvetb00003.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpvetb00003_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE tmpvetb00003.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpvetb00003_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.tmpvetb00003_cod_sec_checkColumnConstraints">} #+ Check constraints on the "tmpvetb00003.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpvetb00003_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE tmpvetb00003.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpvetb00003_cod_sec_checkColumnConstraints {<BLOCK Name="fct.tmpvetb00003_cantidad_checkColumnConstraints">} #+ Check constraints on the "tmpvetb00003.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpvetb00003_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE tmpvetb00003.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpvetb00003_cantidad_checkColumnConstraints {<BLOCK Name="fct.tmpvetb00003_cantidad_2_checkColumnConstraints">} #+ Check constraints on the "tmpvetb00003.cantidad_2" column #+ #+ @param p_cantidad_2 - DECIMAL(14,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpvetb00003_cantidad_2_checkColumnConstraints(p_cantidad_2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad_2 LIKE tmpvetb00003.cantidad_2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpvetb00003_cantidad_2_checkColumnConstraints {<BLOCK Name="fct.tmpvetb00003_bonificacion_checkColumnConstraints">} #+ Check constraints on the "tmpvetb00003.bonificacion" column #+ #+ @param p_bonificacion - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpvetb00003_bonificacion_checkColumnConstraints(p_bonificacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_bonificacion LIKE tmpvetb00003.bonificacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpvetb00003_bonificacion_checkColumnConstraints {<BLOCK Name="fct.tmpvetb00003_precio_checkColumnConstraints">} #+ Check constraints on the "tmpvetb00003.precio" column #+ #+ @param p_precio - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpvetb00003_precio_checkColumnConstraints(p_precio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_precio LIKE tmpvetb00003.precio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpvetb00003_precio_checkColumnConstraints {<BLOCK Name="fct.tmpvetb00003_status_t_checkColumnConstraints">} #+ Check constraints on the "tmpvetb00003.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpvetb00003_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE tmpvetb00003.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpvetb00003_status_t_checkColumnConstraints {<BLOCK Name="fct.tmpvetb00003_us_crea_checkColumnConstraints">} #+ Check constraints on the "tmpvetb00003.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpvetb00003_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE tmpvetb00003.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpvetb00003_us_crea_checkColumnConstraints {<BLOCK Name="fct.tmpvetb00003_fech_crea_checkColumnConstraints">} #+ Check constraints on the "tmpvetb00003.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpvetb00003_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE tmpvetb00003.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpvetb00003_fech_crea_checkColumnConstraints {<BLOCK Name="fct.tmpvetb00003_us_mod_checkColumnConstraints">} #+ Check constraints on the "tmpvetb00003.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpvetb00003_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE tmpvetb00003.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpvetb00003_us_mod_checkColumnConstraints {<BLOCK Name="fct.tmpvetb00003_fech_mod_checkColumnConstraints">} #+ Check constraints on the "tmpvetb00003.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpvetb00003_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE tmpvetb00003.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpvetb00003_fech_mod_checkColumnConstraints {<BLOCK Name="fct.tmpventas_checkTableConstraints">} #+ Check constraints on the "tmpventas" table #+ #+ @param p_data - a row data LIKE tmpventas.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmpventas_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmpventas.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmpventas_descrip_checkColumnConstraints(p_data.descrip) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpventas_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpventas_vbruto_checkColumnConstraints(p_data.vbruto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpventas_ventasdia_checkColumnConstraints(p_data.ventasdia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpventas_checkTableConstraints {<BLOCK Name="fct.tmpventas_descrip_checkColumnConstraints">} #+ Check constraints on the "tmpventas.descrip" column #+ #+ @param p_descrip - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpventas_descrip_checkColumnConstraints(p_descrip) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip LIKE tmpventas.descrip LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpventas_descrip_checkColumnConstraints {<BLOCK Name="fct.tmpventas_descripcion_checkColumnConstraints">} #+ Check constraints on the "tmpventas.descripcion" column #+ #+ @param p_descripcion - VARCHAR2(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpventas_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE tmpventas.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpventas_descripcion_checkColumnConstraints {<BLOCK Name="fct.tmpventas_vbruto_checkColumnConstraints">} #+ Check constraints on the "tmpventas.vbruto" column #+ #+ @param p_vbruto - CHAR(18) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpventas_vbruto_checkColumnConstraints(p_vbruto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_vbruto LIKE tmpventas.vbruto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpventas_vbruto_checkColumnConstraints {<BLOCK Name="fct.tmpventas_ventasdia_checkColumnConstraints">} #+ Check constraints on the "tmpventas.ventasdia" column #+ #+ @param p_ventasdia - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpventas_ventasdia_checkColumnConstraints(p_ventasdia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ventasdia LIKE tmpventas.ventasdia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_ventasdia IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- ventasdia: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpventas_ventasdia_checkColumnConstraints {<BLOCK Name="fct.tmptipo_checkTableConstraints">} #+ Check constraints on the "tmptipo" table #+ #+ @param p_data - a row data LIKE tmptipo.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmptipo_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmptipo.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmptipo_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmptipo_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmptipo_pk_tmptipo_checkUniqueConstraint(p_forUpdate, p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmptipo_checkTableConstraints {<BLOCK Name="fct.tmptipo_pk_tmptipo_checkUniqueConstraint">} #+ Check the primary key uniqueness constraint on the "tmptipo" #+ #+ @param p_key - Primary Key #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmptipo_pk_tmptipo_checkUniqueConstraint(p_forUpdate, p_key) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_forUpdate BOOLEAN DEFINE p_key RECORD tmptipo_cod_tipo LIKE tmptipo.cod_tipo END RECORD DEFINE l_key RECORD tmptipo_cod_tipo LIKE tmptipo.cod_tipo 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 tmptipo.cod_tipo = ? " let l_sqlQuery = "SELECT COUNT(*), cod_tipo FROM tmptipo ", l_where, " GROUP BY cod_tipo" PREPARE cur_tmptipo_pk_tmptipo_checkUniqueConstraint FROM l_sqlQuery EXECUTE cur_tmptipo_pk_tmptipo_checkUniqueConstraint INTO l_count, l_key.* USING p_key.* FREE cur_tmptipo_pk_tmptipo_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- cod_tipo: " || ERROR_BAM_00002) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmptipo_pk_tmptipo_checkUniqueConstraint {<BLOCK Name="fct.tmptipo_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "tmptipo.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmptipo_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE tmptipo.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tipo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tipo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmptipo_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.tmptipo_descripcion_checkColumnConstraints">} #+ Check constraints on the "tmptipo.descripcion" column #+ #+ @param p_descripcion - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmptipo_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE tmptipo.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmptipo_descripcion_checkColumnConstraints {<BLOCK Name="fct.tmpproductos_checkTableConstraints">} #+ Check constraints on the "tmpproductos" table #+ #+ @param p_data - a row data LIKE tmpproductos.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmpproductos_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmpproductos.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmpproductos_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpproductos_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpproductos_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpproductos_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpproductos_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpproductos_checkTableConstraints {<BLOCK Name="fct.tmpproductos_descripcion_checkColumnConstraints">} #+ Check constraints on the "tmpproductos.descripcion" column #+ #+ @param p_descripcion - CHAR(120) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpproductos_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE tmpproductos.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpproductos_descripcion_checkColumnConstraints {<BLOCK Name="fct.tmpproductos_cod_n_checkColumnConstraints">} #+ Check constraints on the "tmpproductos.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpproductos_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE tmpproductos.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpproductos_cod_n_checkColumnConstraints {<BLOCK Name="fct.tmpproductos_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "tmpproductos.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpproductos_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE tmpproductos.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpproductos_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.tmpproductos_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "tmpproductos.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpproductos_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE tmpproductos.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpproductos_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.tmpproductos_cod_sec_checkColumnConstraints">} #+ Check constraints on the "tmpproductos.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpproductos_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE tmpproductos.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpproductos_cod_sec_checkColumnConstraints {<BLOCK Name="fct.tmppreciosm2_checkTableConstraints">} #+ Check constraints on the "tmppreciosm2" table #+ #+ @param p_data - a row data LIKE tmppreciosm2.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosm2_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmppreciosm2.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmppreciosm2_cod_lista_checkColumnConstraints(p_data.cod_lista) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmppreciosm2_ventas_checkColumnConstraints(p_data.ventas) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmppreciosm2_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmppreciosm2_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmppreciosm2_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmppreciosm2_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmppreciosm2_precio_checkColumnConstraints(p_data.precio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmppreciosm2_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosm2_checkTableConstraints {<BLOCK Name="fct.tmppreciosm2_cod_lista_checkColumnConstraints">} #+ Check constraints on the "tmppreciosm2.cod_lista" column #+ #+ @param p_cod_lista - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosm2_cod_lista_checkColumnConstraints(p_cod_lista) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_lista LIKE tmppreciosm2.cod_lista LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosm2_cod_lista_checkColumnConstraints {<BLOCK Name="fct.tmppreciosm2_ventas_checkColumnConstraints">} #+ Check constraints on the "tmppreciosm2.ventas" column #+ #+ @param p_ventas - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosm2_ventas_checkColumnConstraints(p_ventas) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ventas LIKE tmppreciosm2.ventas LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosm2_ventas_checkColumnConstraints {<BLOCK Name="fct.tmppreciosm2_cod_n_checkColumnConstraints">} #+ Check constraints on the "tmppreciosm2.cod_n" column #+ #+ @param p_cod_n - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosm2_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE tmppreciosm2.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosm2_cod_n_checkColumnConstraints {<BLOCK Name="fct.tmppreciosm2_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "tmppreciosm2.cod_grupo" column #+ #+ @param p_cod_grupo - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosm2_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE tmppreciosm2.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosm2_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.tmppreciosm2_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "tmppreciosm2.cod_tipo" column #+ #+ @param p_cod_tipo - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosm2_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE tmppreciosm2.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosm2_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.tmppreciosm2_cod_sec_checkColumnConstraints">} #+ Check constraints on the "tmppreciosm2.cod_sec" column #+ #+ @param p_cod_sec - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosm2_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE tmppreciosm2.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosm2_cod_sec_checkColumnConstraints {<BLOCK Name="fct.tmppreciosm2_precio_checkColumnConstraints">} #+ Check constraints on the "tmppreciosm2.precio" column #+ #+ @param p_precio - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosm2_precio_checkColumnConstraints(p_precio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_precio LIKE tmppreciosm2.precio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosm2_precio_checkColumnConstraints {<BLOCK Name="fct.tmppreciosm2_descripcion_checkColumnConstraints">} #+ Check constraints on the "tmppreciosm2.descripcion" column #+ #+ @param p_descripcion - VARCHAR2(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosm2_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE tmppreciosm2.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosm2_descripcion_checkColumnConstraints {<BLOCK Name="fct.tmppreciosm1_checkTableConstraints">} #+ Check constraints on the "tmppreciosm1" table #+ #+ @param p_data - a row data LIKE tmppreciosm1.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosm1_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmppreciosm1.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmppreciosm1_cod_lista_checkColumnConstraints(p_data.cod_lista) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmppreciosm1_ventas_checkColumnConstraints(p_data.ventas) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmppreciosm1_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmppreciosm1_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmppreciosm1_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmppreciosm1_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmppreciosm1_precio_checkColumnConstraints(p_data.precio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmppreciosm1_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosm1_checkTableConstraints {<BLOCK Name="fct.tmppreciosm1_cod_lista_checkColumnConstraints">} #+ Check constraints on the "tmppreciosm1.cod_lista" column #+ #+ @param p_cod_lista - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosm1_cod_lista_checkColumnConstraints(p_cod_lista) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_lista LIKE tmppreciosm1.cod_lista LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosm1_cod_lista_checkColumnConstraints {<BLOCK Name="fct.tmppreciosm1_ventas_checkColumnConstraints">} #+ Check constraints on the "tmppreciosm1.ventas" column #+ #+ @param p_ventas - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosm1_ventas_checkColumnConstraints(p_ventas) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ventas LIKE tmppreciosm1.ventas LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosm1_ventas_checkColumnConstraints {<BLOCK Name="fct.tmppreciosm1_cod_n_checkColumnConstraints">} #+ Check constraints on the "tmppreciosm1.cod_n" column #+ #+ @param p_cod_n - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosm1_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE tmppreciosm1.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosm1_cod_n_checkColumnConstraints {<BLOCK Name="fct.tmppreciosm1_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "tmppreciosm1.cod_grupo" column #+ #+ @param p_cod_grupo - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosm1_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE tmppreciosm1.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosm1_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.tmppreciosm1_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "tmppreciosm1.cod_tipo" column #+ #+ @param p_cod_tipo - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosm1_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE tmppreciosm1.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosm1_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.tmppreciosm1_cod_sec_checkColumnConstraints">} #+ Check constraints on the "tmppreciosm1.cod_sec" column #+ #+ @param p_cod_sec - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosm1_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE tmppreciosm1.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosm1_cod_sec_checkColumnConstraints {<BLOCK Name="fct.tmppreciosm1_precio_checkColumnConstraints">} #+ Check constraints on the "tmppreciosm1.precio" column #+ #+ @param p_precio - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosm1_precio_checkColumnConstraints(p_precio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_precio LIKE tmppreciosm1.precio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosm1_precio_checkColumnConstraints {<BLOCK Name="fct.tmppreciosm1_descripcion_checkColumnConstraints">} #+ Check constraints on the "tmppreciosm1.descripcion" column #+ #+ @param p_descripcion - VARCHAR2(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosm1_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE tmppreciosm1.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosm1_descripcion_checkColumnConstraints {<BLOCK Name="fct.tmppreciosg2_checkTableConstraints">} #+ Check constraints on the "tmppreciosg2" table #+ #+ @param p_data - a row data LIKE tmppreciosg2.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosg2_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmppreciosg2.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmppreciosg2_ventas_checkColumnConstraints(p_data.ventas) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmppreciosg2_cod_lista_checkColumnConstraints(p_data.cod_lista) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmppreciosg2_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmppreciosg2_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmppreciosg2_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmppreciosg2_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmppreciosg2_precio_checkColumnConstraints(p_data.precio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmppreciosg2_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosg2_checkTableConstraints {<BLOCK Name="fct.tmppreciosg2_ventas_checkColumnConstraints">} #+ Check constraints on the "tmppreciosg2.ventas" column #+ #+ @param p_ventas - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosg2_ventas_checkColumnConstraints(p_ventas) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ventas LIKE tmppreciosg2.ventas LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosg2_ventas_checkColumnConstraints {<BLOCK Name="fct.tmppreciosg2_cod_lista_checkColumnConstraints">} #+ Check constraints on the "tmppreciosg2.cod_lista" column #+ #+ @param p_cod_lista - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosg2_cod_lista_checkColumnConstraints(p_cod_lista) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_lista LIKE tmppreciosg2.cod_lista LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosg2_cod_lista_checkColumnConstraints {<BLOCK Name="fct.tmppreciosg2_cod_n_checkColumnConstraints">} #+ Check constraints on the "tmppreciosg2.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosg2_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE tmppreciosg2.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosg2_cod_n_checkColumnConstraints {<BLOCK Name="fct.tmppreciosg2_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "tmppreciosg2.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosg2_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE tmppreciosg2.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosg2_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.tmppreciosg2_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "tmppreciosg2.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosg2_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE tmppreciosg2.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosg2_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.tmppreciosg2_cod_sec_checkColumnConstraints">} #+ Check constraints on the "tmppreciosg2.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosg2_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE tmppreciosg2.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosg2_cod_sec_checkColumnConstraints {<BLOCK Name="fct.tmppreciosg2_precio_checkColumnConstraints">} #+ Check constraints on the "tmppreciosg2.precio" column #+ #+ @param p_precio - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosg2_precio_checkColumnConstraints(p_precio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_precio LIKE tmppreciosg2.precio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosg2_precio_checkColumnConstraints {<BLOCK Name="fct.tmppreciosg2_descripcion_checkColumnConstraints">} #+ Check constraints on the "tmppreciosg2.descripcion" column #+ #+ @param p_descripcion - VARCHAR2(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosg2_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE tmppreciosg2.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosg2_descripcion_checkColumnConstraints {<BLOCK Name="fct.tmppreciosg1_checkTableConstraints">} #+ Check constraints on the "tmppreciosg1" table #+ #+ @param p_data - a row data LIKE tmppreciosg1.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosg1_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmppreciosg1.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmppreciosg1_ventas_checkColumnConstraints(p_data.ventas) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmppreciosg1_cod_lista_checkColumnConstraints(p_data.cod_lista) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmppreciosg1_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmppreciosg1_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmppreciosg1_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmppreciosg1_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmppreciosg1_precio_checkColumnConstraints(p_data.precio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmppreciosg1_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosg1_checkTableConstraints {<BLOCK Name="fct.tmppreciosg1_ventas_checkColumnConstraints">} #+ Check constraints on the "tmppreciosg1.ventas" column #+ #+ @param p_ventas - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosg1_ventas_checkColumnConstraints(p_ventas) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ventas LIKE tmppreciosg1.ventas LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosg1_ventas_checkColumnConstraints {<BLOCK Name="fct.tmppreciosg1_cod_lista_checkColumnConstraints">} #+ Check constraints on the "tmppreciosg1.cod_lista" column #+ #+ @param p_cod_lista - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosg1_cod_lista_checkColumnConstraints(p_cod_lista) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_lista LIKE tmppreciosg1.cod_lista LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosg1_cod_lista_checkColumnConstraints {<BLOCK Name="fct.tmppreciosg1_cod_n_checkColumnConstraints">} #+ Check constraints on the "tmppreciosg1.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosg1_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE tmppreciosg1.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosg1_cod_n_checkColumnConstraints {<BLOCK Name="fct.tmppreciosg1_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "tmppreciosg1.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosg1_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE tmppreciosg1.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosg1_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.tmppreciosg1_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "tmppreciosg1.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosg1_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE tmppreciosg1.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosg1_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.tmppreciosg1_cod_sec_checkColumnConstraints">} #+ Check constraints on the "tmppreciosg1.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosg1_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE tmppreciosg1.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosg1_cod_sec_checkColumnConstraints {<BLOCK Name="fct.tmppreciosg1_precio_checkColumnConstraints">} #+ Check constraints on the "tmppreciosg1.precio" column #+ #+ @param p_precio - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosg1_precio_checkColumnConstraints(p_precio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_precio LIKE tmppreciosg1.precio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosg1_precio_checkColumnConstraints {<BLOCK Name="fct.tmppreciosg1_descripcion_checkColumnConstraints">} #+ Check constraints on the "tmppreciosg1.descripcion" column #+ #+ @param p_descripcion - VARCHAR2(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosg1_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE tmppreciosg1.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosg1_descripcion_checkColumnConstraints {<BLOCK Name="fct.tmppreciosferia_checkTableConstraints">} #+ Check constraints on the "tmppreciosferia" table #+ #+ @param p_data - a row data LIKE tmppreciosferia.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosferia_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmppreciosferia.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmppreciosferia_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmppreciosferia_cod_lista_checkColumnConstraints(p_data.cod_lista) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmppreciosferia_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmppreciosferia_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmppreciosferia_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmppreciosferia_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmppreciosferia_precio_checkColumnConstraints(p_data.precio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmppreciosferia_f8_checkColumnConstraints(p_data.f8) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmppreciosferia_f9_checkColumnConstraints(p_data.f9) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmppreciosferia_f10_checkColumnConstraints(p_data.f10) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmppreciosferia_f11_checkColumnConstraints(p_data.f11) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosferia_checkTableConstraints {<BLOCK Name="fct.tmppreciosferia_descripcion_checkColumnConstraints">} #+ Check constraints on the "tmppreciosferia.descripcion" column #+ #+ @param p_descripcion - VARCHAR2(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosferia_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE tmppreciosferia.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosferia_descripcion_checkColumnConstraints {<BLOCK Name="fct.tmppreciosferia_cod_lista_checkColumnConstraints">} #+ Check constraints on the "tmppreciosferia.cod_lista" column #+ #+ @param p_cod_lista - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosferia_cod_lista_checkColumnConstraints(p_cod_lista) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_lista LIKE tmppreciosferia.cod_lista LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosferia_cod_lista_checkColumnConstraints {<BLOCK Name="fct.tmppreciosferia_cod_n_checkColumnConstraints">} #+ Check constraints on the "tmppreciosferia.cod_n" column #+ #+ @param p_cod_n - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosferia_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE tmppreciosferia.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosferia_cod_n_checkColumnConstraints {<BLOCK Name="fct.tmppreciosferia_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "tmppreciosferia.cod_grupo" column #+ #+ @param p_cod_grupo - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosferia_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE tmppreciosferia.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosferia_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.tmppreciosferia_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "tmppreciosferia.cod_tipo" column #+ #+ @param p_cod_tipo - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosferia_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE tmppreciosferia.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosferia_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.tmppreciosferia_cod_sec_checkColumnConstraints">} #+ Check constraints on the "tmppreciosferia.cod_sec" column #+ #+ @param p_cod_sec - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosferia_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE tmppreciosferia.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosferia_cod_sec_checkColumnConstraints {<BLOCK Name="fct.tmppreciosferia_precio_checkColumnConstraints">} #+ Check constraints on the "tmppreciosferia.precio" column #+ #+ @param p_precio - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosferia_precio_checkColumnConstraints(p_precio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_precio LIKE tmppreciosferia.precio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosferia_precio_checkColumnConstraints {<BLOCK Name="fct.tmppreciosferia_f8_checkColumnConstraints">} #+ Check constraints on the "tmppreciosferia.f8" column #+ #+ @param p_f8 - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosferia_f8_checkColumnConstraints(p_f8) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f8 LIKE tmppreciosferia.f8 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosferia_f8_checkColumnConstraints {<BLOCK Name="fct.tmppreciosferia_f9_checkColumnConstraints">} #+ Check constraints on the "tmppreciosferia.f9" column #+ #+ @param p_f9 - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosferia_f9_checkColumnConstraints(p_f9) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f9 LIKE tmppreciosferia.f9 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosferia_f9_checkColumnConstraints {<BLOCK Name="fct.tmppreciosferia_f10_checkColumnConstraints">} #+ Check constraints on the "tmppreciosferia.f10" column #+ #+ @param p_f10 - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosferia_f10_checkColumnConstraints(p_f10) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f10 LIKE tmppreciosferia.f10 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosferia_f10_checkColumnConstraints {<BLOCK Name="fct.tmppreciosferia_f11_checkColumnConstraints">} #+ Check constraints on the "tmppreciosferia.f11" column #+ #+ @param p_f11 - VARCHAR2(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmppreciosferia_f11_checkColumnConstraints(p_f11) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f11 LIKE tmppreciosferia.f11 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmppreciosferia_f11_checkColumnConstraints {<BLOCK Name="fct.tmpplanchas_checkTableConstraints">} #+ Check constraints on the "tmpplanchas" table #+ #+ @param p_data - a row data LIKE tmpplanchas.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmpplanchas_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmpplanchas.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmpplanchas_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpplanchas_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpplanchas_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpplanchas_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpplanchas_material_checkColumnConstraints(p_data.material) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpplanchas_labor_checkColumnConstraints(p_data.labor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpplanchas_gasto_checkColumnConstraints(p_data.gasto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpplanchas_checkTableConstraints {<BLOCK Name="fct.tmpplanchas_cod_n_checkColumnConstraints">} #+ Check constraints on the "tmpplanchas.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpplanchas_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE tmpplanchas.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpplanchas_cod_n_checkColumnConstraints {<BLOCK Name="fct.tmpplanchas_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "tmpplanchas.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpplanchas_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE tmpplanchas.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpplanchas_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.tmpplanchas_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "tmpplanchas.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpplanchas_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE tmpplanchas.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpplanchas_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.tmpplanchas_cod_sec_checkColumnConstraints">} #+ Check constraints on the "tmpplanchas.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpplanchas_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE tmpplanchas.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpplanchas_cod_sec_checkColumnConstraints {<BLOCK Name="fct.tmpplanchas_material_checkColumnConstraints">} #+ Check constraints on the "tmpplanchas.material" column #+ #+ @param p_material - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpplanchas_material_checkColumnConstraints(p_material) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_material LIKE tmpplanchas.material LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpplanchas_material_checkColumnConstraints {<BLOCK Name="fct.tmpplanchas_labor_checkColumnConstraints">} #+ Check constraints on the "tmpplanchas.labor" column #+ #+ @param p_labor - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpplanchas_labor_checkColumnConstraints(p_labor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_labor LIKE tmpplanchas.labor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpplanchas_labor_checkColumnConstraints {<BLOCK Name="fct.tmpplanchas_gasto_checkColumnConstraints">} #+ Check constraints on the "tmpplanchas.gasto" column #+ #+ @param p_gasto - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpplanchas_gasto_checkColumnConstraints(p_gasto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_gasto LIKE tmpplanchas.gasto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpplanchas_gasto_checkColumnConstraints {<BLOCK Name="fct.tmpmedida_checkTableConstraints">} #+ Check constraints on the "tmpmedida" table #+ #+ @param p_data - a row data LIKE tmpmedida.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmpmedida_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmpmedida.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmpmedida_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpmedida_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpmedida_pk_tmpmedida_checkUniqueConstraint(p_forUpdate, p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpmedida_checkTableConstraints {<BLOCK Name="fct.tmpmedida_pk_tmpmedida_checkUniqueConstraint">} #+ Check the primary key uniqueness constraint on the "tmpmedida" #+ #+ @param p_key - Primary Key #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpmedida_pk_tmpmedida_checkUniqueConstraint(p_forUpdate, p_key) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_forUpdate BOOLEAN DEFINE p_key RECORD tmpmedida_cod_sec LIKE tmpmedida.cod_sec END RECORD DEFINE l_key RECORD tmpmedida_cod_sec LIKE tmpmedida.cod_sec 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 tmpmedida.cod_sec = ? " let l_sqlQuery = "SELECT COUNT(*), cod_sec FROM tmpmedida ", l_where, " GROUP BY cod_sec" PREPARE cur_tmpmedida_pk_tmpmedida_checkUniqueConstraint FROM l_sqlQuery EXECUTE cur_tmpmedida_pk_tmpmedida_checkUniqueConstraint INTO l_count, l_key.* USING p_key.* FREE cur_tmpmedida_pk_tmpmedida_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- cod_sec: " || ERROR_BAM_00002) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpmedida_pk_tmpmedida_checkUniqueConstraint {<BLOCK Name="fct.tmpmedida_cod_sec_checkColumnConstraints">} #+ Check constraints on the "tmpmedida.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpmedida_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE tmpmedida.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpmedida_cod_sec_checkColumnConstraints {<BLOCK Name="fct.tmpmedida_descripcion_checkColumnConstraints">} #+ Check constraints on the "tmpmedida.descripcion" column #+ #+ @param p_descripcion - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpmedida_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE tmpmedida.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpmedida_descripcion_checkColumnConstraints {<BLOCK Name="fct.tmpmatprima_checkTableConstraints">} #+ Check constraints on the "tmpmatprima" table #+ #+ @param p_data - a row data LIKE tmpmatprima.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmpmatprima_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmpmatprima.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmpmatprima_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpmatprima_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpmatprima_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpmatprima_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpmatprima_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpmatprima_checkTableConstraints {<BLOCK Name="fct.tmpmatprima_cod_n_checkColumnConstraints">} #+ Check constraints on the "tmpmatprima.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpmatprima_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE tmpmatprima.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpmatprima_cod_n_checkColumnConstraints {<BLOCK Name="fct.tmpmatprima_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "tmpmatprima.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpmatprima_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE tmpmatprima.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpmatprima_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.tmpmatprima_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "tmpmatprima.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpmatprima_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE tmpmatprima.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpmatprima_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.tmpmatprima_cod_sec_checkColumnConstraints">} #+ Check constraints on the "tmpmatprima.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpmatprima_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE tmpmatprima.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpmatprima_cod_sec_checkColumnConstraints {<BLOCK Name="fct.tmpmatprima_cantidad_checkColumnConstraints">} #+ Check constraints on the "tmpmatprima.cantidad" column #+ #+ @param p_cantidad - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpmatprima_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE tmpmatprima.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpmatprima_cantidad_checkColumnConstraints {<BLOCK Name="fct.tmpiptb012_checkTableConstraints">} #+ Check constraints on the "tmpiptb012" table #+ #+ @param p_data - a row data LIKE tmpiptb012.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb012_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmpiptb012.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmpiptb012_idtrx_checkColumnConstraints(p_data.idtrx) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb012_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb012_bodega_checkColumnConstraints(p_data.bodega) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb012_cod_seccion_checkColumnConstraints(p_data.cod_seccion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb012_cod_tramo_checkColumnConstraints(p_data.cod_tramo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb012_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb012_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb012_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb012_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb012_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb012_balance_checkColumnConstraints(p_data.balance) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb012_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb012_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb012_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb012_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb012_lado_1_checkColumnConstraints(p_data.lado_1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb012_lado_2_checkColumnConstraints(p_data.lado_2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb012_lado_3_checkColumnConstraints(p_data.lado_3) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb012_checkTableConstraints {<BLOCK Name="fct.tmpiptb012_idtrx_checkColumnConstraints">} #+ Check constraints on the "tmpiptb012.idtrx" column #+ #+ @param p_idtrx - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb012_idtrx_checkColumnConstraints(p_idtrx) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_idtrx LIKE tmpiptb012.idtrx LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb012_idtrx_checkColumnConstraints {<BLOCK Name="fct.tmpiptb012_fecha_checkColumnConstraints">} #+ Check constraints on the "tmpiptb012.fecha" column #+ #+ @param p_fecha - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb012_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE tmpiptb012.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb012_fecha_checkColumnConstraints {<BLOCK Name="fct.tmpiptb012_bodega_checkColumnConstraints">} #+ Check constraints on the "tmpiptb012.bodega" column #+ #+ @param p_bodega - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb012_bodega_checkColumnConstraints(p_bodega) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_bodega LIKE tmpiptb012.bodega LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb012_bodega_checkColumnConstraints {<BLOCK Name="fct.tmpiptb012_cod_seccion_checkColumnConstraints">} #+ Check constraints on the "tmpiptb012.cod_seccion" column #+ #+ @param p_cod_seccion - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb012_cod_seccion_checkColumnConstraints(p_cod_seccion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_seccion LIKE tmpiptb012.cod_seccion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb012_cod_seccion_checkColumnConstraints {<BLOCK Name="fct.tmpiptb012_cod_tramo_checkColumnConstraints">} #+ Check constraints on the "tmpiptb012.cod_tramo" column #+ #+ @param p_cod_tramo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb012_cod_tramo_checkColumnConstraints(p_cod_tramo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tramo LIKE tmpiptb012.cod_tramo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb012_cod_tramo_checkColumnConstraints {<BLOCK Name="fct.tmpiptb012_cod_n_checkColumnConstraints">} #+ Check constraints on the "tmpiptb012.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb012_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE tmpiptb012.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb012_cod_n_checkColumnConstraints {<BLOCK Name="fct.tmpiptb012_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "tmpiptb012.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb012_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE tmpiptb012.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb012_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.tmpiptb012_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "tmpiptb012.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb012_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE tmpiptb012.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb012_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.tmpiptb012_cod_sec_checkColumnConstraints">} #+ Check constraints on the "tmpiptb012.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb012_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE tmpiptb012.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb012_cod_sec_checkColumnConstraints {<BLOCK Name="fct.tmpiptb012_cantidad_checkColumnConstraints">} #+ Check constraints on the "tmpiptb012.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb012_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE tmpiptb012.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb012_cantidad_checkColumnConstraints {<BLOCK Name="fct.tmpiptb012_balance_checkColumnConstraints">} #+ Check constraints on the "tmpiptb012.balance" column #+ #+ @param p_balance - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb012_balance_checkColumnConstraints(p_balance) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_balance LIKE tmpiptb012.balance LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb012_balance_checkColumnConstraints {<BLOCK Name="fct.tmpiptb012_us_crea_checkColumnConstraints">} #+ Check constraints on the "tmpiptb012.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb012_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE tmpiptb012.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb012_us_crea_checkColumnConstraints {<BLOCK Name="fct.tmpiptb012_fech_crea_checkColumnConstraints">} #+ Check constraints on the "tmpiptb012.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb012_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE tmpiptb012.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb012_fech_crea_checkColumnConstraints {<BLOCK Name="fct.tmpiptb012_us_mod_checkColumnConstraints">} #+ Check constraints on the "tmpiptb012.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb012_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE tmpiptb012.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb012_us_mod_checkColumnConstraints {<BLOCK Name="fct.tmpiptb012_fech_mod_checkColumnConstraints">} #+ Check constraints on the "tmpiptb012.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb012_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE tmpiptb012.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb012_fech_mod_checkColumnConstraints {<BLOCK Name="fct.tmpiptb012_lado_1_checkColumnConstraints">} #+ Check constraints on the "tmpiptb012.lado_1" column #+ #+ @param p_lado_1 - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb012_lado_1_checkColumnConstraints(p_lado_1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_lado_1 LIKE tmpiptb012.lado_1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb012_lado_1_checkColumnConstraints {<BLOCK Name="fct.tmpiptb012_lado_2_checkColumnConstraints">} #+ Check constraints on the "tmpiptb012.lado_2" column #+ #+ @param p_lado_2 - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb012_lado_2_checkColumnConstraints(p_lado_2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_lado_2 LIKE tmpiptb012.lado_2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb012_lado_2_checkColumnConstraints {<BLOCK Name="fct.tmpiptb012_lado_3_checkColumnConstraints">} #+ Check constraints on the "tmpiptb012.lado_3" column #+ #+ @param p_lado_3 - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb012_lado_3_checkColumnConstraints(p_lado_3) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_lado_3 LIKE tmpiptb012.lado_3 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb012_lado_3_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00027_checkTableConstraints">} #+ Check constraints on the "tmpiptb00027" table #+ #+ @param p_data - a row data LIKE tmpiptb00027.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00027_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmpiptb00027.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmpiptb00027_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00027_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00027_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00027_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00027_checkTableConstraints {<BLOCK Name="fct.tmpiptb00027_cod_n_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00027.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00027_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE tmpiptb00027.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00027_cod_n_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00027_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00027.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00027_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE tmpiptb00027.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00027_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00027_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00027.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00027_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE tmpiptb00027.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00027_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00027_cod_sec_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00027.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00027_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE tmpiptb00027.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00027_cod_sec_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00012_checkTableConstraints">} #+ Check constraints on the "tmpiptb00012" table #+ #+ @param p_data - a row data LIKE tmpiptb00012.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00012_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmpiptb00012.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmpiptb00012_idtrx_checkColumnConstraints(p_data.idtrx) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00012_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00012_bodega_checkColumnConstraints(p_data.bodega) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00012_cod_seccion_checkColumnConstraints(p_data.cod_seccion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00012_cod_tramo_checkColumnConstraints(p_data.cod_tramo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00012_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00012_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00012_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00012_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00012_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00012_balance_checkColumnConstraints(p_data.balance) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00012_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00012_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00012_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00012_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00012_lado_1_checkColumnConstraints(p_data.lado_1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00012_lado_2_checkColumnConstraints(p_data.lado_2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00012_lado_3_checkColumnConstraints(p_data.lado_3) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00012_checkTableConstraints {<BLOCK Name="fct.tmpiptb00012_idtrx_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00012.idtrx" column #+ #+ @param p_idtrx - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00012_idtrx_checkColumnConstraints(p_idtrx) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_idtrx LIKE tmpiptb00012.idtrx LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00012_idtrx_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00012_fecha_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00012.fecha" column #+ #+ @param p_fecha - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00012_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE tmpiptb00012.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00012_fecha_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00012_bodega_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00012.bodega" column #+ #+ @param p_bodega - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00012_bodega_checkColumnConstraints(p_bodega) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_bodega LIKE tmpiptb00012.bodega LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00012_bodega_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00012_cod_seccion_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00012.cod_seccion" column #+ #+ @param p_cod_seccion - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00012_cod_seccion_checkColumnConstraints(p_cod_seccion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_seccion LIKE tmpiptb00012.cod_seccion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00012_cod_seccion_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00012_cod_tramo_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00012.cod_tramo" column #+ #+ @param p_cod_tramo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00012_cod_tramo_checkColumnConstraints(p_cod_tramo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tramo LIKE tmpiptb00012.cod_tramo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00012_cod_tramo_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00012_cod_n_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00012.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00012_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE tmpiptb00012.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00012_cod_n_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00012_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00012.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00012_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE tmpiptb00012.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00012_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00012_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00012.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00012_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE tmpiptb00012.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00012_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00012_cod_sec_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00012.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00012_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE tmpiptb00012.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00012_cod_sec_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00012_cantidad_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00012.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00012_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE tmpiptb00012.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00012_cantidad_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00012_balance_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00012.balance" column #+ #+ @param p_balance - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00012_balance_checkColumnConstraints(p_balance) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_balance LIKE tmpiptb00012.balance LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00012_balance_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00012_us_crea_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00012.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00012_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE tmpiptb00012.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00012_us_crea_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00012_fech_crea_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00012.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00012_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE tmpiptb00012.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00012_fech_crea_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00012_us_mod_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00012.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00012_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE tmpiptb00012.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00012_us_mod_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00012_fech_mod_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00012.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00012_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE tmpiptb00012.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00012_fech_mod_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00012_lado_1_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00012.lado_1" column #+ #+ @param p_lado_1 - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00012_lado_1_checkColumnConstraints(p_lado_1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_lado_1 LIKE tmpiptb00012.lado_1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00012_lado_1_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00012_lado_2_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00012.lado_2" column #+ #+ @param p_lado_2 - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00012_lado_2_checkColumnConstraints(p_lado_2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_lado_2 LIKE tmpiptb00012.lado_2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00012_lado_2_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00012_lado_3_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00012.lado_3" column #+ #+ @param p_lado_3 - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00012_lado_3_checkColumnConstraints(p_lado_3) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_lado_3 LIKE tmpiptb00012.lado_3 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00012_lado_3_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00006_checkTableConstraints">} #+ Check constraints on the "tmpiptb00006" table #+ #+ @param p_data - a row data LIKE tmpiptb00006.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00006_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmpiptb00006.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmpiptb00006_cod_cia_checkColumnConstraints(p_data.cod_cia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00006_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00006_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00006_fact_no_checkColumnConstraints(p_data.fact_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00006_conduce_no_checkColumnConstraints(p_data.conduce_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00006_tipo_checkColumnConstraints(p_data.tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00006_orden_compra_checkColumnConstraints(p_data.orden_compra) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00006_cod_sp_checkColumnConstraints(p_data.cod_sp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00006_cod_sp_sec_checkColumnConstraints(p_data.cod_sp_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00006_cod_transp_checkColumnConstraints(p_data.cod_transp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00006_sec_transp_checkColumnConstraints(p_data.sec_transp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00006_placa_checkColumnConstraints(p_data.placa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00006_cod_tarifa_checkColumnConstraints(p_data.cod_tarifa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00006_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00006_detalle_checkColumnConstraints(p_data.detalle) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00006_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00006_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00006_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00006_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00006_cantidad_1_checkColumnConstraints(p_data.cantidad_1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00006_cantidad_2_checkColumnConstraints(p_data.cantidad_2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00006_cond_recep_checkColumnConstraints(p_data.cond_recep) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00006_uso_tiempo_checkColumnConstraints(p_data.uso_tiempo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00006_bodega_checkColumnConstraints(p_data.bodega) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00006_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00006_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00006_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00006_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00006_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00006_num_req_checkColumnConstraints(p_data.num_req) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00006_checkTableConstraints {<BLOCK Name="fct.tmpiptb00006_cod_cia_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00006.cod_cia" column #+ #+ @param p_cod_cia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00006_cod_cia_checkColumnConstraints(p_cod_cia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_cia LIKE tmpiptb00006.cod_cia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00006_cod_cia_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00006_num_doc_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00006.num_doc" column #+ #+ @param p_num_doc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00006_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE tmpiptb00006.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_num_doc IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- num_doc: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00006_num_doc_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00006_fecha_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00006.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00006_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE tmpiptb00006.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_fecha IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- fecha: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00006_fecha_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00006_fact_no_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00006.fact_no" column #+ #+ @param p_fact_no - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00006_fact_no_checkColumnConstraints(p_fact_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fact_no LIKE tmpiptb00006.fact_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00006_fact_no_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00006_conduce_no_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00006.conduce_no" column #+ #+ @param p_conduce_no - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00006_conduce_no_checkColumnConstraints(p_conduce_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_conduce_no LIKE tmpiptb00006.conduce_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00006_conduce_no_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00006_tipo_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00006.tipo" column #+ #+ @param p_tipo - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00006_tipo_checkColumnConstraints(p_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo LIKE tmpiptb00006.tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00006_tipo_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00006_orden_compra_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00006.orden_compra" column #+ #+ @param p_orden_compra - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00006_orden_compra_checkColumnConstraints(p_orden_compra) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_orden_compra LIKE tmpiptb00006.orden_compra LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00006_orden_compra_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00006_cod_sp_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00006.cod_sp" column #+ #+ @param p_cod_sp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00006_cod_sp_checkColumnConstraints(p_cod_sp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp LIKE tmpiptb00006.cod_sp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00006_cod_sp_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00006_cod_sp_sec_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00006.cod_sp_sec" column #+ #+ @param p_cod_sp_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00006_cod_sp_sec_checkColumnConstraints(p_cod_sp_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp_sec LIKE tmpiptb00006.cod_sp_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00006_cod_sp_sec_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00006_cod_transp_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00006.cod_transp" column #+ #+ @param p_cod_transp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00006_cod_transp_checkColumnConstraints(p_cod_transp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_transp LIKE tmpiptb00006.cod_transp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00006_cod_transp_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00006_sec_transp_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00006.sec_transp" column #+ #+ @param p_sec_transp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00006_sec_transp_checkColumnConstraints(p_sec_transp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_transp LIKE tmpiptb00006.sec_transp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00006_sec_transp_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00006_placa_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00006.placa" column #+ #+ @param p_placa - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00006_placa_checkColumnConstraints(p_placa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_placa LIKE tmpiptb00006.placa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00006_placa_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00006_cod_tarifa_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00006.cod_tarifa" column #+ #+ @param p_cod_tarifa - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00006_cod_tarifa_checkColumnConstraints(p_cod_tarifa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tarifa LIKE tmpiptb00006.cod_tarifa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00006_cod_tarifa_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00006_cod_mov_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00006.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00006_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE tmpiptb00006.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_mov IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_mov: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00006_cod_mov_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00006_detalle_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00006.detalle" column #+ #+ @param p_detalle - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00006_detalle_checkColumnConstraints(p_detalle) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_detalle LIKE tmpiptb00006.detalle LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00006_detalle_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00006_cod_n_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00006.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00006_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE tmpiptb00006.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00006_cod_n_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00006_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00006.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00006_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE tmpiptb00006.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_grupo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_grupo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00006_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00006_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00006.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00006_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE tmpiptb00006.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tipo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tipo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00006_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00006_cod_sec_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00006.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00006_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE tmpiptb00006.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00006_cod_sec_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00006_cantidad_1_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00006.cantidad_1" column #+ #+ @param p_cantidad_1 - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00006_cantidad_1_checkColumnConstraints(p_cantidad_1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad_1 LIKE tmpiptb00006.cantidad_1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00006_cantidad_1_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00006_cantidad_2_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00006.cantidad_2" column #+ #+ @param p_cantidad_2 - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00006_cantidad_2_checkColumnConstraints(p_cantidad_2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad_2 LIKE tmpiptb00006.cantidad_2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cantidad_2 IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cantidad_2: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00006_cantidad_2_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00006_cond_recep_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00006.cond_recep" column #+ #+ @param p_cond_recep - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00006_cond_recep_checkColumnConstraints(p_cond_recep) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cond_recep LIKE tmpiptb00006.cond_recep LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00006_cond_recep_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00006_uso_tiempo_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00006.uso_tiempo" column #+ #+ @param p_uso_tiempo - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00006_uso_tiempo_checkColumnConstraints(p_uso_tiempo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_uso_tiempo LIKE tmpiptb00006.uso_tiempo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00006_uso_tiempo_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00006_bodega_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00006.bodega" column #+ #+ @param p_bodega - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00006_bodega_checkColumnConstraints(p_bodega) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_bodega LIKE tmpiptb00006.bodega LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00006_bodega_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00006_status_t_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00006.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00006_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE tmpiptb00006.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00006_status_t_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00006_us_crea_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00006.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00006_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE tmpiptb00006.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00006_us_crea_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00006_fech_crea_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00006.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00006_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE tmpiptb00006.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00006_fech_crea_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00006_us_mod_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00006.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00006_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE tmpiptb00006.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00006_us_mod_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00006_fech_mod_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00006.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00006_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE tmpiptb00006.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00006_fech_mod_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00006_num_req_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00006.num_req" column #+ #+ @param p_num_req - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00006_num_req_checkColumnConstraints(p_num_req) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_req LIKE tmpiptb00006.num_req LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00006_num_req_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00002_checkTableConstraints">} #+ Check constraints on the "tmpiptb00002" table #+ #+ @param p_data - a row data LIKE tmpiptb00002.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00002_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmpiptb00002.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmpiptb00002_cod_cia_checkColumnConstraints(p_data.cod_cia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00002_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00002_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00002_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00002_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00002_descrip_esp_checkColumnConstraints(p_data.descrip_esp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00002_descrip_ing_checkColumnConstraints(p_data.descrip_ing) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00002_unidad_med_checkColumnConstraints(p_data.unidad_med) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00002_nomenclatura_checkColumnConstraints(p_data.nomenclatura) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00002_bodega_checkColumnConstraints(p_data.bodega) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00002_exist_max_checkColumnConstraints(p_data.exist_max) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00002_exist_min_checkColumnConstraints(p_data.exist_min) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00002_dia_llegada_checkColumnConstraints(p_data.dia_llegada) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00002_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00002_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00002_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00002_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00002_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00002_control_existencia_checkColumnConstraints(p_data.control_existencia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00002_control_itbis_checkColumnConstraints(p_data.control_itbis) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00002_codid_checkColumnConstraints(p_data.codid) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00002_pcodn_checkColumnConstraints(p_data.pcodn) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00002_pcodgrupo_checkColumnConstraints(p_data.pcodgrupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00002_pcodtipo_checkColumnConstraints(p_data.pcodtipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00002_pcodsec_checkColumnConstraints(p_data.pcodsec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00002_material_checkColumnConstraints(p_data.material) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00002_labor_checkColumnConstraints(p_data.labor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00002_gastos_checkColumnConstraints(p_data.gastos) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00002_factor_checkColumnConstraints(p_data.factor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpiptb00002_tmppk_iptb00002_checkUniqueConstraint(p_forUpdate, p_data.codid) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00002_checkTableConstraints {<BLOCK Name="fct.tmpiptb00002_tmppk_iptb00002_checkUniqueConstraint">} #+ Check the primary key uniqueness constraint on the "tmpiptb00002" #+ #+ @param p_key - Primary Key #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00002_tmppk_iptb00002_checkUniqueConstraint(p_forUpdate, p_key) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_forUpdate BOOLEAN DEFINE p_key RECORD tmpiptb00002_codid LIKE tmpiptb00002.codid END RECORD DEFINE l_key RECORD tmpiptb00002_codid LIKE tmpiptb00002.codid 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 tmpiptb00002.codid = ? " let l_sqlQuery = "SELECT COUNT(*), codid FROM tmpiptb00002 ", l_where, " GROUP BY codid" PREPARE cur_tmpiptb00002_tmppk_iptb00002_checkUniqueConstraint FROM l_sqlQuery EXECUTE cur_tmpiptb00002_tmppk_iptb00002_checkUniqueConstraint INTO l_count, l_key.* USING p_key.* FREE cur_tmpiptb00002_tmppk_iptb00002_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- codid: " || ERROR_BAM_00002) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00002_tmppk_iptb00002_checkUniqueConstraint {<BLOCK Name="fct.tmpiptb00002_cod_cia_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00002.cod_cia" column #+ #+ @param p_cod_cia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00002_cod_cia_checkColumnConstraints(p_cod_cia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_cia LIKE tmpiptb00002.cod_cia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_cia IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_cia: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00002_cod_cia_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00002_cod_n_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00002.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00002_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE tmpiptb00002.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00002_cod_n_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00002_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00002.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00002_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE tmpiptb00002.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_grupo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_grupo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00002_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00002_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00002.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00002_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE tmpiptb00002.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tipo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tipo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00002_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00002_cod_sec_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00002.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00002_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE tmpiptb00002.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00002_cod_sec_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00002_descrip_esp_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00002.descrip_esp" column #+ #+ @param p_descrip_esp - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00002_descrip_esp_checkColumnConstraints(p_descrip_esp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip_esp LIKE tmpiptb00002.descrip_esp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_descrip_esp IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- descrip_esp: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00002_descrip_esp_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00002_descrip_ing_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00002.descrip_ing" column #+ #+ @param p_descrip_ing - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00002_descrip_ing_checkColumnConstraints(p_descrip_ing) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip_ing LIKE tmpiptb00002.descrip_ing LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00002_descrip_ing_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00002_unidad_med_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00002.unidad_med" column #+ #+ @param p_unidad_med - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00002_unidad_med_checkColumnConstraints(p_unidad_med) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_unidad_med LIKE tmpiptb00002.unidad_med LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00002_unidad_med_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00002_nomenclatura_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00002.nomenclatura" column #+ #+ @param p_nomenclatura - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00002_nomenclatura_checkColumnConstraints(p_nomenclatura) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nomenclatura LIKE tmpiptb00002.nomenclatura LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00002_nomenclatura_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00002_bodega_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00002.bodega" column #+ #+ @param p_bodega - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00002_bodega_checkColumnConstraints(p_bodega) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_bodega LIKE tmpiptb00002.bodega LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00002_bodega_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00002_exist_max_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00002.exist_max" column #+ #+ @param p_exist_max - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00002_exist_max_checkColumnConstraints(p_exist_max) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_exist_max LIKE tmpiptb00002.exist_max LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00002_exist_max_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00002_exist_min_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00002.exist_min" column #+ #+ @param p_exist_min - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00002_exist_min_checkColumnConstraints(p_exist_min) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_exist_min LIKE tmpiptb00002.exist_min LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00002_exist_min_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00002_dia_llegada_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00002.dia_llegada" column #+ #+ @param p_dia_llegada - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00002_dia_llegada_checkColumnConstraints(p_dia_llegada) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_dia_llegada LIKE tmpiptb00002.dia_llegada LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00002_dia_llegada_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00002_status_t_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00002.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00002_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE tmpiptb00002.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00002_status_t_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00002_us_crea_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00002.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00002_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE tmpiptb00002.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00002_us_crea_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00002_fech_crea_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00002.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00002_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE tmpiptb00002.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00002_fech_crea_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00002_us_mod_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00002.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00002_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE tmpiptb00002.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00002_us_mod_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00002_fech_mod_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00002.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00002_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE tmpiptb00002.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00002_fech_mod_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00002_control_existencia_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00002.control_existencia" column #+ #+ @param p_control_existencia - VARCHAR2(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00002_control_existencia_checkColumnConstraints(p_control_existencia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_control_existencia LIKE tmpiptb00002.control_existencia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00002_control_existencia_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00002_control_itbis_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00002.control_itbis" column #+ #+ @param p_control_itbis - VARCHAR2(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00002_control_itbis_checkColumnConstraints(p_control_itbis) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_control_itbis LIKE tmpiptb00002.control_itbis LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00002_control_itbis_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00002_codid_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00002.codid" column #+ #+ @param p_codid - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00002_codid_checkColumnConstraints(p_codid) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codid LIKE tmpiptb00002.codid LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_codid IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- codid: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00002_codid_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00002_pcodn_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00002.pcodn" column #+ #+ @param p_pcodn - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00002_pcodn_checkColumnConstraints(p_pcodn) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_pcodn LIKE tmpiptb00002.pcodn LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00002_pcodn_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00002_pcodgrupo_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00002.pcodgrupo" column #+ #+ @param p_pcodgrupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00002_pcodgrupo_checkColumnConstraints(p_pcodgrupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_pcodgrupo LIKE tmpiptb00002.pcodgrupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00002_pcodgrupo_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00002_pcodtipo_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00002.pcodtipo" column #+ #+ @param p_pcodtipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00002_pcodtipo_checkColumnConstraints(p_pcodtipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_pcodtipo LIKE tmpiptb00002.pcodtipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00002_pcodtipo_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00002_pcodsec_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00002.pcodsec" column #+ #+ @param p_pcodsec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00002_pcodsec_checkColumnConstraints(p_pcodsec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_pcodsec LIKE tmpiptb00002.pcodsec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00002_pcodsec_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00002_material_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00002.material" column #+ #+ @param p_material - DECIMAL(18,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00002_material_checkColumnConstraints(p_material) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_material LIKE tmpiptb00002.material LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00002_material_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00002_labor_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00002.labor" column #+ #+ @param p_labor - DECIMAL(18,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00002_labor_checkColumnConstraints(p_labor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_labor LIKE tmpiptb00002.labor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00002_labor_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00002_gastos_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00002.gastos" column #+ #+ @param p_gastos - DECIMAL(18,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00002_gastos_checkColumnConstraints(p_gastos) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_gastos LIKE tmpiptb00002.gastos LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00002_gastos_checkColumnConstraints {<BLOCK Name="fct.tmpiptb00002_factor_checkColumnConstraints">} #+ Check constraints on the "tmpiptb00002.factor" column #+ #+ @param p_factor - DECIMAL(18,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpiptb00002_factor_checkColumnConstraints(p_factor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_factor LIKE tmpiptb00002.factor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpiptb00002_factor_checkColumnConstraints {<BLOCK Name="fct.tmpinvm_checkTableConstraints">} #+ Check constraints on the "tmpinvm" table #+ #+ @param p_data - a row data LIKE tmpinvm.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmpinvm_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmpinvm.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmpinvm_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpinvm_l1_checkColumnConstraints(p_data.l1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpinvm_l2_checkColumnConstraints(p_data.l2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpinvm_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpinvm_medida_checkColumnConstraints(p_data.medida) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpinvm_codn_checkColumnConstraints(p_data.codn) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpinvm_codgrupo_checkColumnConstraints(p_data.codgrupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpinvm_codtipo_checkColumnConstraints(p_data.codtipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpinvm_codsec_checkColumnConstraints(p_data.codsec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpinvm_existencia_checkColumnConstraints(p_data.existencia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpinvm_costo_checkColumnConstraints(p_data.costo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpinvm_clasificacion_checkColumnConstraints(p_data.clasificacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpinvm_checkTableConstraints {<BLOCK Name="fct.tmpinvm_descripcion_checkColumnConstraints">} #+ Check constraints on the "tmpinvm.descripcion" column #+ #+ @param p_descripcion - VARCHAR2(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpinvm_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE tmpinvm.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpinvm_descripcion_checkColumnConstraints {<BLOCK Name="fct.tmpinvm_l1_checkColumnConstraints">} #+ Check constraints on the "tmpinvm.l1" column #+ #+ @param p_l1 - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpinvm_l1_checkColumnConstraints(p_l1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_l1 LIKE tmpinvm.l1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpinvm_l1_checkColumnConstraints {<BLOCK Name="fct.tmpinvm_l2_checkColumnConstraints">} #+ Check constraints on the "tmpinvm.l2" column #+ #+ @param p_l2 - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpinvm_l2_checkColumnConstraints(p_l2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_l2 LIKE tmpinvm.l2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpinvm_l2_checkColumnConstraints {<BLOCK Name="fct.tmpinvm_cantidad_checkColumnConstraints">} #+ Check constraints on the "tmpinvm.cantidad" column #+ #+ @param p_cantidad - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpinvm_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE tmpinvm.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpinvm_cantidad_checkColumnConstraints {<BLOCK Name="fct.tmpinvm_medida_checkColumnConstraints">} #+ Check constraints on the "tmpinvm.medida" column #+ #+ @param p_medida - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpinvm_medida_checkColumnConstraints(p_medida) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_medida LIKE tmpinvm.medida LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpinvm_medida_checkColumnConstraints {<BLOCK Name="fct.tmpinvm_codn_checkColumnConstraints">} #+ Check constraints on the "tmpinvm.codn" column #+ #+ @param p_codn - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpinvm_codn_checkColumnConstraints(p_codn) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codn LIKE tmpinvm.codn LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpinvm_codn_checkColumnConstraints {<BLOCK Name="fct.tmpinvm_codgrupo_checkColumnConstraints">} #+ Check constraints on the "tmpinvm.codgrupo" column #+ #+ @param p_codgrupo - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpinvm_codgrupo_checkColumnConstraints(p_codgrupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codgrupo LIKE tmpinvm.codgrupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpinvm_codgrupo_checkColumnConstraints {<BLOCK Name="fct.tmpinvm_codtipo_checkColumnConstraints">} #+ Check constraints on the "tmpinvm.codtipo" column #+ #+ @param p_codtipo - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpinvm_codtipo_checkColumnConstraints(p_codtipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codtipo LIKE tmpinvm.codtipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpinvm_codtipo_checkColumnConstraints {<BLOCK Name="fct.tmpinvm_codsec_checkColumnConstraints">} #+ Check constraints on the "tmpinvm.codsec" column #+ #+ @param p_codsec - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpinvm_codsec_checkColumnConstraints(p_codsec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codsec LIKE tmpinvm.codsec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpinvm_codsec_checkColumnConstraints {<BLOCK Name="fct.tmpinvm_existencia_checkColumnConstraints">} #+ Check constraints on the "tmpinvm.existencia" column #+ #+ @param p_existencia - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpinvm_existencia_checkColumnConstraints(p_existencia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_existencia LIKE tmpinvm.existencia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpinvm_existencia_checkColumnConstraints {<BLOCK Name="fct.tmpinvm_costo_checkColumnConstraints">} #+ Check constraints on the "tmpinvm.costo" column #+ #+ @param p_costo - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpinvm_costo_checkColumnConstraints(p_costo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_costo LIKE tmpinvm.costo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpinvm_costo_checkColumnConstraints {<BLOCK Name="fct.tmpinvm_clasificacion_checkColumnConstraints">} #+ Check constraints on the "tmpinvm.clasificacion" column #+ #+ @param p_clasificacion - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpinvm_clasificacion_checkColumnConstraints(p_clasificacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_clasificacion LIKE tmpinvm.clasificacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpinvm_clasificacion_checkColumnConstraints {<BLOCK Name="fct.tmpinventariofisico_checkTableConstraints">} #+ Check constraints on the "tmpinventariofisico" table #+ #+ @param p_data - a row data LIKE tmpinventariofisico.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmpinventariofisico_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmpinventariofisico.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmpinventariofisico_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpinventariofisico_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpinventariofisico_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpinventariofisico_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpinventariofisico_existencia_checkColumnConstraints(p_data.existencia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpinventariofisico_cod_n1_checkColumnConstraints(p_data.cod_n1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpinventariofisico_cod_grupo1_checkColumnConstraints(p_data.cod_grupo1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpinventariofisico_cod_tipo1_checkColumnConstraints(p_data.cod_tipo1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpinventariofisico_cod_sec1_checkColumnConstraints(p_data.cod_sec1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpinventariofisico_fisico_checkColumnConstraints(p_data.fisico) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpinventariofisico_costo_checkColumnConstraints(p_data.costo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpinventariofisico_checkTableConstraints {<BLOCK Name="fct.tmpinventariofisico_cod_n_checkColumnConstraints">} #+ Check constraints on the "tmpinventariofisico.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpinventariofisico_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE tmpinventariofisico.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpinventariofisico_cod_n_checkColumnConstraints {<BLOCK Name="fct.tmpinventariofisico_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "tmpinventariofisico.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpinventariofisico_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE tmpinventariofisico.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpinventariofisico_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.tmpinventariofisico_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "tmpinventariofisico.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpinventariofisico_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE tmpinventariofisico.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpinventariofisico_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.tmpinventariofisico_cod_sec_checkColumnConstraints">} #+ Check constraints on the "tmpinventariofisico.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpinventariofisico_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE tmpinventariofisico.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpinventariofisico_cod_sec_checkColumnConstraints {<BLOCK Name="fct.tmpinventariofisico_existencia_checkColumnConstraints">} #+ Check constraints on the "tmpinventariofisico.existencia" column #+ #+ @param p_existencia - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpinventariofisico_existencia_checkColumnConstraints(p_existencia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_existencia LIKE tmpinventariofisico.existencia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpinventariofisico_existencia_checkColumnConstraints {<BLOCK Name="fct.tmpinventariofisico_cod_n1_checkColumnConstraints">} #+ Check constraints on the "tmpinventariofisico.cod_n1" column #+ #+ @param p_cod_n1 - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpinventariofisico_cod_n1_checkColumnConstraints(p_cod_n1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n1 LIKE tmpinventariofisico.cod_n1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpinventariofisico_cod_n1_checkColumnConstraints {<BLOCK Name="fct.tmpinventariofisico_cod_grupo1_checkColumnConstraints">} #+ Check constraints on the "tmpinventariofisico.cod_grupo1" column #+ #+ @param p_cod_grupo1 - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpinventariofisico_cod_grupo1_checkColumnConstraints(p_cod_grupo1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo1 LIKE tmpinventariofisico.cod_grupo1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpinventariofisico_cod_grupo1_checkColumnConstraints {<BLOCK Name="fct.tmpinventariofisico_cod_tipo1_checkColumnConstraints">} #+ Check constraints on the "tmpinventariofisico.cod_tipo1" column #+ #+ @param p_cod_tipo1 - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpinventariofisico_cod_tipo1_checkColumnConstraints(p_cod_tipo1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo1 LIKE tmpinventariofisico.cod_tipo1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpinventariofisico_cod_tipo1_checkColumnConstraints {<BLOCK Name="fct.tmpinventariofisico_cod_sec1_checkColumnConstraints">} #+ Check constraints on the "tmpinventariofisico.cod_sec1" column #+ #+ @param p_cod_sec1 - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpinventariofisico_cod_sec1_checkColumnConstraints(p_cod_sec1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec1 LIKE tmpinventariofisico.cod_sec1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpinventariofisico_cod_sec1_checkColumnConstraints {<BLOCK Name="fct.tmpinventariofisico_fisico_checkColumnConstraints">} #+ Check constraints on the "tmpinventariofisico.fisico" column #+ #+ @param p_fisico - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpinventariofisico_fisico_checkColumnConstraints(p_fisico) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fisico LIKE tmpinventariofisico.fisico LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpinventariofisico_fisico_checkColumnConstraints {<BLOCK Name="fct.tmpinventariofisico_costo_checkColumnConstraints">} #+ Check constraints on the "tmpinventariofisico.costo" column #+ #+ @param p_costo - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpinventariofisico_costo_checkColumnConstraints(p_costo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_costo LIKE tmpinventariofisico.costo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpinventariofisico_costo_checkColumnConstraints {<BLOCK Name="fct.tmpinventario_checkTableConstraints">} #+ Check constraints on the "tmpinventario" table #+ #+ @param p_data - a row data LIKE tmpinventario.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmpinventario_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmpinventario.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmpinventario_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpinventario_l1_checkColumnConstraints(p_data.l1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpinventario_l2_checkColumnConstraints(p_data.l2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpinventario_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpinventario_metros_checkColumnConstraints(p_data.metros) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpinventario_codn_checkColumnConstraints(p_data.codn) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpinventario_codgrupo_checkColumnConstraints(p_data.codgrupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpinventario_codtipo_checkColumnConstraints(p_data.codtipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpinventario_codsec_checkColumnConstraints(p_data.codsec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpinventario_existencia_checkColumnConstraints(p_data.existencia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpinventario_tipo_checkColumnConstraints(p_data.tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpinventario_checkTableConstraints {<BLOCK Name="fct.tmpinventario_descripcion_checkColumnConstraints">} #+ Check constraints on the "tmpinventario.descripcion" column #+ #+ @param p_descripcion - VARCHAR2(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpinventario_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE tmpinventario.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpinventario_descripcion_checkColumnConstraints {<BLOCK Name="fct.tmpinventario_l1_checkColumnConstraints">} #+ Check constraints on the "tmpinventario.l1" column #+ #+ @param p_l1 - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpinventario_l1_checkColumnConstraints(p_l1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_l1 LIKE tmpinventario.l1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpinventario_l1_checkColumnConstraints {<BLOCK Name="fct.tmpinventario_l2_checkColumnConstraints">} #+ Check constraints on the "tmpinventario.l2" column #+ #+ @param p_l2 - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpinventario_l2_checkColumnConstraints(p_l2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_l2 LIKE tmpinventario.l2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpinventario_l2_checkColumnConstraints {<BLOCK Name="fct.tmpinventario_cantidad_checkColumnConstraints">} #+ Check constraints on the "tmpinventario.cantidad" column #+ #+ @param p_cantidad - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpinventario_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE tmpinventario.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpinventario_cantidad_checkColumnConstraints {<BLOCK Name="fct.tmpinventario_metros_checkColumnConstraints">} #+ Check constraints on the "tmpinventario.metros" column #+ #+ @param p_metros - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpinventario_metros_checkColumnConstraints(p_metros) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_metros LIKE tmpinventario.metros LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpinventario_metros_checkColumnConstraints {<BLOCK Name="fct.tmpinventario_codn_checkColumnConstraints">} #+ Check constraints on the "tmpinventario.codn" column #+ #+ @param p_codn - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpinventario_codn_checkColumnConstraints(p_codn) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codn LIKE tmpinventario.codn LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpinventario_codn_checkColumnConstraints {<BLOCK Name="fct.tmpinventario_codgrupo_checkColumnConstraints">} #+ Check constraints on the "tmpinventario.codgrupo" column #+ #+ @param p_codgrupo - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpinventario_codgrupo_checkColumnConstraints(p_codgrupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codgrupo LIKE tmpinventario.codgrupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpinventario_codgrupo_checkColumnConstraints {<BLOCK Name="fct.tmpinventario_codtipo_checkColumnConstraints">} #+ Check constraints on the "tmpinventario.codtipo" column #+ #+ @param p_codtipo - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpinventario_codtipo_checkColumnConstraints(p_codtipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codtipo LIKE tmpinventario.codtipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpinventario_codtipo_checkColumnConstraints {<BLOCK Name="fct.tmpinventario_codsec_checkColumnConstraints">} #+ Check constraints on the "tmpinventario.codsec" column #+ #+ @param p_codsec - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpinventario_codsec_checkColumnConstraints(p_codsec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codsec LIKE tmpinventario.codsec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpinventario_codsec_checkColumnConstraints {<BLOCK Name="fct.tmpinventario_existencia_checkColumnConstraints">} #+ Check constraints on the "tmpinventario.existencia" column #+ #+ @param p_existencia - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpinventario_existencia_checkColumnConstraints(p_existencia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_existencia LIKE tmpinventario.existencia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpinventario_existencia_checkColumnConstraints {<BLOCK Name="fct.tmpinventario_tipo_checkColumnConstraints">} #+ Check constraints on the "tmpinventario.tipo" column #+ #+ @param p_tipo - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpinventario_tipo_checkColumnConstraints(p_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo LIKE tmpinventario.tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpinventario_tipo_checkColumnConstraints {<BLOCK Name="fct.tmpgrupo_checkTableConstraints">} #+ Check constraints on the "tmpgrupo" table #+ #+ @param p_data - a row data LIKE tmpgrupo.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmpgrupo_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmpgrupo.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmpgrupo_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpgrupo_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpgrupo_pk_tmpgrupo_checkUniqueConstraint(p_forUpdate, p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpgrupo_checkTableConstraints {<BLOCK Name="fct.tmpgrupo_pk_tmpgrupo_checkUniqueConstraint">} #+ Check the primary key uniqueness constraint on the "tmpgrupo" #+ #+ @param p_key - Primary Key #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpgrupo_pk_tmpgrupo_checkUniqueConstraint(p_forUpdate, p_key) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_forUpdate BOOLEAN DEFINE p_key RECORD tmpgrupo_cod_grupo LIKE tmpgrupo.cod_grupo END RECORD DEFINE l_key RECORD tmpgrupo_cod_grupo LIKE tmpgrupo.cod_grupo 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 tmpgrupo.cod_grupo = ? " let l_sqlQuery = "SELECT COUNT(*), cod_grupo FROM tmpgrupo ", l_where, " GROUP BY cod_grupo" PREPARE cur_tmpgrupo_pk_tmpgrupo_checkUniqueConstraint FROM l_sqlQuery EXECUTE cur_tmpgrupo_pk_tmpgrupo_checkUniqueConstraint INTO l_count, l_key.* USING p_key.* FREE cur_tmpgrupo_pk_tmpgrupo_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- cod_grupo: " || ERROR_BAM_00002) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpgrupo_pk_tmpgrupo_checkUniqueConstraint {<BLOCK Name="fct.tmpgrupo_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "tmpgrupo.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpgrupo_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE tmpgrupo.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_grupo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_grupo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpgrupo_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.tmpgrupo_descripcion_checkColumnConstraints">} #+ Check constraints on the "tmpgrupo.descripcion" column #+ #+ @param p_descripcion - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpgrupo_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE tmpgrupo.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpgrupo_descripcion_checkColumnConstraints {<BLOCK Name="fct.tmpferia5_checkTableConstraints">} #+ Check constraints on the "tmpferia5" table #+ #+ @param p_data - a row data LIKE tmpferia5.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmpferia5_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmpferia5.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmpferia5_cod_lista_checkColumnConstraints(p_data.cod_lista) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpferia5_ventas_checkColumnConstraints(p_data.ventas) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpferia5_codn_checkColumnConstraints(p_data.codn) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpferia5_codgrupo_checkColumnConstraints(p_data.codgrupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpferia5_codtipo_checkColumnConstraints(p_data.codtipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpferia5_codsec_checkColumnConstraints(p_data.codsec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpferia5_precio_checkColumnConstraints(p_data.precio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpferia5_checkTableConstraints {<BLOCK Name="fct.tmpferia5_cod_lista_checkColumnConstraints">} #+ Check constraints on the "tmpferia5.cod_lista" column #+ #+ @param p_cod_lista - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpferia5_cod_lista_checkColumnConstraints(p_cod_lista) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_lista LIKE tmpferia5.cod_lista LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpferia5_cod_lista_checkColumnConstraints {<BLOCK Name="fct.tmpferia5_ventas_checkColumnConstraints">} #+ Check constraints on the "tmpferia5.ventas" column #+ #+ @param p_ventas - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpferia5_ventas_checkColumnConstraints(p_ventas) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ventas LIKE tmpferia5.ventas LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpferia5_ventas_checkColumnConstraints {<BLOCK Name="fct.tmpferia5_codn_checkColumnConstraints">} #+ Check constraints on the "tmpferia5.codn" column #+ #+ @param p_codn - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpferia5_codn_checkColumnConstraints(p_codn) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codn LIKE tmpferia5.codn LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpferia5_codn_checkColumnConstraints {<BLOCK Name="fct.tmpferia5_codgrupo_checkColumnConstraints">} #+ Check constraints on the "tmpferia5.codgrupo" column #+ #+ @param p_codgrupo - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpferia5_codgrupo_checkColumnConstraints(p_codgrupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codgrupo LIKE tmpferia5.codgrupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpferia5_codgrupo_checkColumnConstraints {<BLOCK Name="fct.tmpferia5_codtipo_checkColumnConstraints">} #+ Check constraints on the "tmpferia5.codtipo" column #+ #+ @param p_codtipo - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpferia5_codtipo_checkColumnConstraints(p_codtipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codtipo LIKE tmpferia5.codtipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpferia5_codtipo_checkColumnConstraints {<BLOCK Name="fct.tmpferia5_codsec_checkColumnConstraints">} #+ Check constraints on the "tmpferia5.codsec" column #+ #+ @param p_codsec - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpferia5_codsec_checkColumnConstraints(p_codsec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codsec LIKE tmpferia5.codsec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpferia5_codsec_checkColumnConstraints {<BLOCK Name="fct.tmpferia5_precio_checkColumnConstraints">} #+ Check constraints on the "tmpferia5.precio" column #+ #+ @param p_precio - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpferia5_precio_checkColumnConstraints(p_precio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_precio LIKE tmpferia5.precio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpferia5_precio_checkColumnConstraints {<BLOCK Name="fct.tmpferia3_checkTableConstraints">} #+ Check constraints on the "tmpferia3" table #+ #+ @param p_data - a row data LIKE tmpferia3.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmpferia3_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmpferia3.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmpferia3_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpferia3_cod_lista_checkColumnConstraints(p_data.cod_lista) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpferia3_ventas_checkColumnConstraints(p_data.ventas) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpferia3_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpferia3_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpferia3_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpferia3_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpferia3_precio_checkColumnConstraints(p_data.precio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpferia3_checkTableConstraints {<BLOCK Name="fct.tmpferia3_descripcion_checkColumnConstraints">} #+ Check constraints on the "tmpferia3.descripcion" column #+ #+ @param p_descripcion - VARCHAR2(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpferia3_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE tmpferia3.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpferia3_descripcion_checkColumnConstraints {<BLOCK Name="fct.tmpferia3_cod_lista_checkColumnConstraints">} #+ Check constraints on the "tmpferia3.cod_lista" column #+ #+ @param p_cod_lista - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpferia3_cod_lista_checkColumnConstraints(p_cod_lista) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_lista LIKE tmpferia3.cod_lista LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpferia3_cod_lista_checkColumnConstraints {<BLOCK Name="fct.tmpferia3_ventas_checkColumnConstraints">} #+ Check constraints on the "tmpferia3.ventas" column #+ #+ @param p_ventas - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpferia3_ventas_checkColumnConstraints(p_ventas) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ventas LIKE tmpferia3.ventas LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpferia3_ventas_checkColumnConstraints {<BLOCK Name="fct.tmpferia3_cod_n_checkColumnConstraints">} #+ Check constraints on the "tmpferia3.cod_n" column #+ #+ @param p_cod_n - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpferia3_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE tmpferia3.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpferia3_cod_n_checkColumnConstraints {<BLOCK Name="fct.tmpferia3_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "tmpferia3.cod_grupo" column #+ #+ @param p_cod_grupo - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpferia3_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE tmpferia3.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpferia3_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.tmpferia3_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "tmpferia3.cod_tipo" column #+ #+ @param p_cod_tipo - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpferia3_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE tmpferia3.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpferia3_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.tmpferia3_cod_sec_checkColumnConstraints">} #+ Check constraints on the "tmpferia3.cod_sec" column #+ #+ @param p_cod_sec - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpferia3_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE tmpferia3.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpferia3_cod_sec_checkColumnConstraints {<BLOCK Name="fct.tmpferia3_precio_checkColumnConstraints">} #+ Check constraints on the "tmpferia3.precio" column #+ #+ @param p_precio - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpferia3_precio_checkColumnConstraints(p_precio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_precio LIKE tmpferia3.precio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpferia3_precio_checkColumnConstraints {<BLOCK Name="fct.tmpferia2_checkTableConstraints">} #+ Check constraints on the "tmpferia2" table #+ #+ @param p_data - a row data LIKE tmpferia2.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmpferia2_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmpferia2.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmpferia2_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpferia2_cod_lista_checkColumnConstraints(p_data.cod_lista) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpferia2_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpferia2_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpferia2_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpferia2_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpferia2_precio_checkColumnConstraints(p_data.precio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpferia2_f8_checkColumnConstraints(p_data.f8) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpferia2_f9_checkColumnConstraints(p_data.f9) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpferia2_f10_checkColumnConstraints(p_data.f10) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpferia2_checkTableConstraints {<BLOCK Name="fct.tmpferia2_descripcion_checkColumnConstraints">} #+ Check constraints on the "tmpferia2.descripcion" column #+ #+ @param p_descripcion - VARCHAR2(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpferia2_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE tmpferia2.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpferia2_descripcion_checkColumnConstraints {<BLOCK Name="fct.tmpferia2_cod_lista_checkColumnConstraints">} #+ Check constraints on the "tmpferia2.cod_lista" column #+ #+ @param p_cod_lista - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpferia2_cod_lista_checkColumnConstraints(p_cod_lista) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_lista LIKE tmpferia2.cod_lista LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpferia2_cod_lista_checkColumnConstraints {<BLOCK Name="fct.tmpferia2_cod_n_checkColumnConstraints">} #+ Check constraints on the "tmpferia2.cod_n" column #+ #+ @param p_cod_n - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpferia2_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE tmpferia2.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpferia2_cod_n_checkColumnConstraints {<BLOCK Name="fct.tmpferia2_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "tmpferia2.cod_grupo" column #+ #+ @param p_cod_grupo - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpferia2_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE tmpferia2.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpferia2_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.tmpferia2_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "tmpferia2.cod_tipo" column #+ #+ @param p_cod_tipo - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpferia2_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE tmpferia2.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpferia2_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.tmpferia2_cod_sec_checkColumnConstraints">} #+ Check constraints on the "tmpferia2.cod_sec" column #+ #+ @param p_cod_sec - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpferia2_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE tmpferia2.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpferia2_cod_sec_checkColumnConstraints {<BLOCK Name="fct.tmpferia2_precio_checkColumnConstraints">} #+ Check constraints on the "tmpferia2.precio" column #+ #+ @param p_precio - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpferia2_precio_checkColumnConstraints(p_precio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_precio LIKE tmpferia2.precio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpferia2_precio_checkColumnConstraints {<BLOCK Name="fct.tmpferia2_f8_checkColumnConstraints">} #+ Check constraints on the "tmpferia2.f8" column #+ #+ @param p_f8 - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpferia2_f8_checkColumnConstraints(p_f8) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f8 LIKE tmpferia2.f8 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpferia2_f8_checkColumnConstraints {<BLOCK Name="fct.tmpferia2_f9_checkColumnConstraints">} #+ Check constraints on the "tmpferia2.f9" column #+ #+ @param p_f9 - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpferia2_f9_checkColumnConstraints(p_f9) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f9 LIKE tmpferia2.f9 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpferia2_f9_checkColumnConstraints {<BLOCK Name="fct.tmpferia2_f10_checkColumnConstraints">} #+ Check constraints on the "tmpferia2.f10" column #+ #+ @param p_f10 - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpferia2_f10_checkColumnConstraints(p_f10) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f10 LIKE tmpferia2.f10 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpferia2_f10_checkColumnConstraints {<BLOCK Name="fct.tmpfempleados_checkTableConstraints">} #+ Check constraints on the "tmpfempleados" table #+ #+ @param p_data - a row data LIKE tmpfempleados.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmpfempleados_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmpfempleados.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmpfempleados_num_emp_checkColumnConstraints(p_data.num_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpfempleados_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpfempleados_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 smarmotech_dbxconstraints_tmpfempleados_valor_checkColumnConstraints(p_data.valor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpfempleados_estado_checkColumnConstraints(p_data.estado) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpfempleados_checkTableConstraints {<BLOCK Name="fct.tmpfempleados_num_emp_checkColumnConstraints">} #+ Check constraints on the "tmpfempleados.num_emp" column #+ #+ @param p_num_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpfempleados_num_emp_checkColumnConstraints(p_num_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_emp LIKE tmpfempleados.num_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpfempleados_num_emp_checkColumnConstraints {<BLOCK Name="fct.tmpfempleados_fecha_checkColumnConstraints">} #+ Check constraints on the "tmpfempleados.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpfempleados_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE tmpfempleados.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpfempleados_fecha_checkColumnConstraints {<BLOCK Name="fct.tmpfempleados_fecha_inicio_checkColumnConstraints">} #+ Check constraints on the "tmpfempleados.fecha_inicio" column #+ #+ @param p_fecha_inicio - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpfempleados_fecha_inicio_checkColumnConstraints(p_fecha_inicio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_inicio LIKE tmpfempleados.fecha_inicio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpfempleados_fecha_inicio_checkColumnConstraints {<BLOCK Name="fct.tmpfempleados_valor_checkColumnConstraints">} #+ Check constraints on the "tmpfempleados.valor" column #+ #+ @param p_valor - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpfempleados_valor_checkColumnConstraints(p_valor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor LIKE tmpfempleados.valor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpfempleados_valor_checkColumnConstraints {<BLOCK Name="fct.tmpfempleados_estado_checkColumnConstraints">} #+ Check constraints on the "tmpfempleados.estado" column #+ #+ @param p_estado - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpfempleados_estado_checkColumnConstraints(p_estado) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_estado LIKE tmpfempleados.estado LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpfempleados_estado_checkColumnConstraints {<BLOCK Name="fct.tmpfacturas_checkTableConstraints">} #+ Check constraints on the "tmpfacturas" table #+ #+ @param p_data - a row data LIKE tmpfacturas.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmpfacturas_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmpfacturas.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmpfacturas_factura_checkColumnConstraints(p_data.factura) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpfacturas_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpfacturas_precio_checkColumnConstraints(p_data.precio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpfacturas_desc#_checkColumnConstraints(p_data.desc#) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpfacturas_valor_checkColumnConstraints(p_data.valor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpfacturas_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpfacturas_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpfacturas_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpfacturas_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpfacturas_f10_checkColumnConstraints(p_data.f10) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpfacturas_f11_checkColumnConstraints(p_data.f11) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpfacturas_f12_checkColumnConstraints(p_data.f12) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpfacturas_f13_checkColumnConstraints(p_data.f13) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpfacturas_f14_checkColumnConstraints(p_data.f14) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpfacturas_f15_checkColumnConstraints(p_data.f15) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpfacturas_checkTableConstraints {<BLOCK Name="fct.tmpfacturas_factura_checkColumnConstraints">} #+ Check constraints on the "tmpfacturas.factura" column #+ #+ @param p_factura - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpfacturas_factura_checkColumnConstraints(p_factura) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_factura LIKE tmpfacturas.factura LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpfacturas_factura_checkColumnConstraints {<BLOCK Name="fct.tmpfacturas_cantidad_checkColumnConstraints">} #+ Check constraints on the "tmpfacturas.cantidad" column #+ #+ @param p_cantidad - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpfacturas_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE tmpfacturas.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpfacturas_cantidad_checkColumnConstraints {<BLOCK Name="fct.tmpfacturas_precio_checkColumnConstraints">} #+ Check constraints on the "tmpfacturas.precio" column #+ #+ @param p_precio - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpfacturas_precio_checkColumnConstraints(p_precio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_precio LIKE tmpfacturas.precio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpfacturas_precio_checkColumnConstraints {<BLOCK Name="fct.tmpfacturas_desc#_checkColumnConstraints">} #+ Check constraints on the "tmpfacturas.desc#" column #+ #+ @param p_desc# - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpfacturas_desc#_checkColumnConstraints(p_desc#) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_desc# LIKE tmpfacturas.desc# LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpfacturas_desc#_checkColumnConstraints {<BLOCK Name="fct.tmpfacturas_valor_checkColumnConstraints">} #+ Check constraints on the "tmpfacturas.valor" column #+ #+ @param p_valor - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpfacturas_valor_checkColumnConstraints(p_valor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor LIKE tmpfacturas.valor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpfacturas_valor_checkColumnConstraints {<BLOCK Name="fct.tmpfacturas_cod_n_checkColumnConstraints">} #+ Check constraints on the "tmpfacturas.cod_n" column #+ #+ @param p_cod_n - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpfacturas_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE tmpfacturas.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpfacturas_cod_n_checkColumnConstraints {<BLOCK Name="fct.tmpfacturas_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "tmpfacturas.cod_grupo" column #+ #+ @param p_cod_grupo - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpfacturas_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE tmpfacturas.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpfacturas_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.tmpfacturas_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "tmpfacturas.cod_tipo" column #+ #+ @param p_cod_tipo - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpfacturas_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE tmpfacturas.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpfacturas_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.tmpfacturas_cod_sec_checkColumnConstraints">} #+ Check constraints on the "tmpfacturas.cod_sec" column #+ #+ @param p_cod_sec - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpfacturas_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE tmpfacturas.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpfacturas_cod_sec_checkColumnConstraints {<BLOCK Name="fct.tmpfacturas_f10_checkColumnConstraints">} #+ Check constraints on the "tmpfacturas.f10" column #+ #+ @param p_f10 - VARCHAR2(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpfacturas_f10_checkColumnConstraints(p_f10) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f10 LIKE tmpfacturas.f10 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpfacturas_f10_checkColumnConstraints {<BLOCK Name="fct.tmpfacturas_f11_checkColumnConstraints">} #+ Check constraints on the "tmpfacturas.f11" column #+ #+ @param p_f11 - VARCHAR2(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpfacturas_f11_checkColumnConstraints(p_f11) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f11 LIKE tmpfacturas.f11 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpfacturas_f11_checkColumnConstraints {<BLOCK Name="fct.tmpfacturas_f12_checkColumnConstraints">} #+ Check constraints on the "tmpfacturas.f12" column #+ #+ @param p_f12 - VARCHAR2(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpfacturas_f12_checkColumnConstraints(p_f12) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f12 LIKE tmpfacturas.f12 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpfacturas_f12_checkColumnConstraints {<BLOCK Name="fct.tmpfacturas_f13_checkColumnConstraints">} #+ Check constraints on the "tmpfacturas.f13" column #+ #+ @param p_f13 - VARCHAR2(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpfacturas_f13_checkColumnConstraints(p_f13) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f13 LIKE tmpfacturas.f13 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpfacturas_f13_checkColumnConstraints {<BLOCK Name="fct.tmpfacturas_f14_checkColumnConstraints">} #+ Check constraints on the "tmpfacturas.f14" column #+ #+ @param p_f14 - VARCHAR2(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpfacturas_f14_checkColumnConstraints(p_f14) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f14 LIKE tmpfacturas.f14 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpfacturas_f14_checkColumnConstraints {<BLOCK Name="fct.tmpfacturas_f15_checkColumnConstraints">} #+ Check constraints on the "tmpfacturas.f15" column #+ #+ @param p_f15 - VARCHAR2(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpfacturas_f15_checkColumnConstraints(p_f15) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f15 LIKE tmpfacturas.f15 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpfacturas_f15_checkColumnConstraints {<BLOCK Name="fct.tmpexcel_checkTableConstraints">} #+ Check constraints on the "tmpexcel" table #+ #+ @param p_data - a row data LIKE tmpexcel.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmpexcel_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmpexcel.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmpexcel_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpexcel_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpexcel_checkTableConstraints {<BLOCK Name="fct.tmpexcel_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "tmpexcel.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpexcel_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE tmpexcel.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpexcel_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.tmpexcel_descripcion_checkColumnConstraints">} #+ Check constraints on the "tmpexcel.descripcion" column #+ #+ @param p_descripcion - VARCHAR2(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpexcel_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE tmpexcel.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpexcel_descripcion_checkColumnConstraints {<BLOCK Name="fct.tmpduplicados_checkTableConstraints">} #+ Check constraints on the "tmpduplicados" table #+ #+ @param p_data - a row data LIKE tmpduplicados.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmpduplicados_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmpduplicados.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmpduplicados_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpduplicados_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpduplicados_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpduplicados_cod_seg_checkColumnConstraints(p_data.cod_seg) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpduplicados_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpduplicados_veces_checkColumnConstraints(p_data.veces) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpduplicados_checkTableConstraints {<BLOCK Name="fct.tmpduplicados_cod_n_checkColumnConstraints">} #+ Check constraints on the "tmpduplicados.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpduplicados_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE tmpduplicados.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpduplicados_cod_n_checkColumnConstraints {<BLOCK Name="fct.tmpduplicados_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "tmpduplicados.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpduplicados_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE tmpduplicados.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpduplicados_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.tmpduplicados_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "tmpduplicados.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpduplicados_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE tmpduplicados.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpduplicados_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.tmpduplicados_cod_seg_checkColumnConstraints">} #+ Check constraints on the "tmpduplicados.cod_seg" column #+ #+ @param p_cod_seg - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpduplicados_cod_seg_checkColumnConstraints(p_cod_seg) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_seg LIKE tmpduplicados.cod_seg LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpduplicados_cod_seg_checkColumnConstraints {<BLOCK Name="fct.tmpduplicados_cantidad_checkColumnConstraints">} #+ Check constraints on the "tmpduplicados.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpduplicados_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE tmpduplicados.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpduplicados_cantidad_checkColumnConstraints {<BLOCK Name="fct.tmpduplicados_veces_checkColumnConstraints">} #+ Check constraints on the "tmpduplicados.veces" column #+ #+ @param p_veces - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpduplicados_veces_checkColumnConstraints(p_veces) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_veces LIKE tmpduplicados.veces LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpduplicados_veces_checkColumnConstraints {<BLOCK Name="fct.tmpdetallefact_checkTableConstraints">} #+ Check constraints on the "tmpdetallefact" table #+ #+ @param p_data - a row data LIKE tmpdetallefact.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmpdetallefact_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmpdetallefact.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmpdetallefact_factura_checkColumnConstraints(p_data.factura) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpdetallefact_clase_checkColumnConstraints(p_data.clase) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpdetallefact_grupo_checkColumnConstraints(p_data.grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpdetallefact_tipo_checkColumnConstraints(p_data.tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpdetallefact_medida_checkColumnConstraints(p_data.medida) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpdetallefact_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpdetallefact_precio_checkColumnConstraints(p_data.precio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpdetallefact_descuento_checkColumnConstraints(p_data.descuento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpdetallefact_f9_checkColumnConstraints(p_data.f9) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpdetallefact_checkTableConstraints {<BLOCK Name="fct.tmpdetallefact_factura_checkColumnConstraints">} #+ Check constraints on the "tmpdetallefact.factura" column #+ #+ @param p_factura - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpdetallefact_factura_checkColumnConstraints(p_factura) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_factura LIKE tmpdetallefact.factura LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpdetallefact_factura_checkColumnConstraints {<BLOCK Name="fct.tmpdetallefact_clase_checkColumnConstraints">} #+ Check constraints on the "tmpdetallefact.clase" column #+ #+ @param p_clase - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpdetallefact_clase_checkColumnConstraints(p_clase) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_clase LIKE tmpdetallefact.clase LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpdetallefact_clase_checkColumnConstraints {<BLOCK Name="fct.tmpdetallefact_grupo_checkColumnConstraints">} #+ Check constraints on the "tmpdetallefact.grupo" column #+ #+ @param p_grupo - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpdetallefact_grupo_checkColumnConstraints(p_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_grupo LIKE tmpdetallefact.grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpdetallefact_grupo_checkColumnConstraints {<BLOCK Name="fct.tmpdetallefact_tipo_checkColumnConstraints">} #+ Check constraints on the "tmpdetallefact.tipo" column #+ #+ @param p_tipo - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpdetallefact_tipo_checkColumnConstraints(p_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo LIKE tmpdetallefact.tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpdetallefact_tipo_checkColumnConstraints {<BLOCK Name="fct.tmpdetallefact_medida_checkColumnConstraints">} #+ Check constraints on the "tmpdetallefact.medida" column #+ #+ @param p_medida - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpdetallefact_medida_checkColumnConstraints(p_medida) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_medida LIKE tmpdetallefact.medida LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpdetallefact_medida_checkColumnConstraints {<BLOCK Name="fct.tmpdetallefact_cantidad_checkColumnConstraints">} #+ Check constraints on the "tmpdetallefact.cantidad" column #+ #+ @param p_cantidad - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpdetallefact_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE tmpdetallefact.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpdetallefact_cantidad_checkColumnConstraints {<BLOCK Name="fct.tmpdetallefact_precio_checkColumnConstraints">} #+ Check constraints on the "tmpdetallefact.precio" column #+ #+ @param p_precio - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpdetallefact_precio_checkColumnConstraints(p_precio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_precio LIKE tmpdetallefact.precio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpdetallefact_precio_checkColumnConstraints {<BLOCK Name="fct.tmpdetallefact_descuento_checkColumnConstraints">} #+ Check constraints on the "tmpdetallefact.descuento" column #+ #+ @param p_descuento - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpdetallefact_descuento_checkColumnConstraints(p_descuento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descuento LIKE tmpdetallefact.descuento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpdetallefact_descuento_checkColumnConstraints {<BLOCK Name="fct.tmpdetallefact_f9_checkColumnConstraints">} #+ Check constraints on the "tmpdetallefact.f9" column #+ #+ @param p_f9 - VARCHAR2(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpdetallefact_f9_checkColumnConstraints(p_f9) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f9 LIKE tmpdetallefact.f9 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpdetallefact_f9_checkColumnConstraints {<BLOCK Name="fct.tmpcostosferia_checkTableConstraints">} #+ Check constraints on the "tmpcostosferia" table #+ #+ @param p_data - a row data LIKE tmpcostosferia.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcostosferia_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmpcostosferia.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmpcostosferia_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcostosferia_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcostosferia_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcostosferia_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcostosferia_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcostosferia_existencia_checkColumnConstraints(p_data.existencia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcostosferia_costo_std_checkColumnConstraints(p_data.costo_std) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcostosferia_precio_us_checkColumnConstraints(p_data.precio_us) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcostosferia_costo_liq_checkColumnConstraints(p_data.costo_liq) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcostosferia_checkTableConstraints {<BLOCK Name="fct.tmpcostosferia_cod_n_checkColumnConstraints">} #+ Check constraints on the "tmpcostosferia.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcostosferia_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE tmpcostosferia.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcostosferia_cod_n_checkColumnConstraints {<BLOCK Name="fct.tmpcostosferia_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "tmpcostosferia.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcostosferia_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE tmpcostosferia.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcostosferia_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.tmpcostosferia_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "tmpcostosferia.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcostosferia_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE tmpcostosferia.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcostosferia_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.tmpcostosferia_cod_sec_checkColumnConstraints">} #+ Check constraints on the "tmpcostosferia.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcostosferia_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE tmpcostosferia.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcostosferia_cod_sec_checkColumnConstraints {<BLOCK Name="fct.tmpcostosferia_descripcion_checkColumnConstraints">} #+ Check constraints on the "tmpcostosferia.descripcion" column #+ #+ @param p_descripcion - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcostosferia_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE tmpcostosferia.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcostosferia_descripcion_checkColumnConstraints {<BLOCK Name="fct.tmpcostosferia_existencia_checkColumnConstraints">} #+ Check constraints on the "tmpcostosferia.existencia" column #+ #+ @param p_existencia - DECIMAL(12,3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcostosferia_existencia_checkColumnConstraints(p_existencia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_existencia LIKE tmpcostosferia.existencia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcostosferia_existencia_checkColumnConstraints {<BLOCK Name="fct.tmpcostosferia_costo_std_checkColumnConstraints">} #+ Check constraints on the "tmpcostosferia.costo_std" column #+ #+ @param p_costo_std - DECIMAL(12,3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcostosferia_costo_std_checkColumnConstraints(p_costo_std) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_costo_std LIKE tmpcostosferia.costo_std LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcostosferia_costo_std_checkColumnConstraints {<BLOCK Name="fct.tmpcostosferia_precio_us_checkColumnConstraints">} #+ Check constraints on the "tmpcostosferia.precio_us" column #+ #+ @param p_precio_us - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcostosferia_precio_us_checkColumnConstraints(p_precio_us) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_precio_us LIKE tmpcostosferia.precio_us LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcostosferia_precio_us_checkColumnConstraints {<BLOCK Name="fct.tmpcostosferia_costo_liq_checkColumnConstraints">} #+ Check constraints on the "tmpcostosferia.costo_liq" column #+ #+ @param p_costo_liq - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcostosferia_costo_liq_checkColumnConstraints(p_costo_liq) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_costo_liq LIKE tmpcostosferia.costo_liq LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcostosferia_costo_liq_checkColumnConstraints {<BLOCK Name="fct.tmpcostos1_checkTableConstraints">} #+ Check constraints on the "tmpcostos1" table #+ #+ @param p_data - a row data LIKE tmpcostos1.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcostos1_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmpcostos1.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmpcostos1_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcostos1_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcostos1_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcostos1_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcostos1_costo_mat#_checkColumnConstraints(p_data.costo_mat#) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcostos1_labor_checkColumnConstraints(p_data.labor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcostos1_gastos_checkColumnConstraints(p_data.gastos) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcostos1_checkTableConstraints {<BLOCK Name="fct.tmpcostos1_cod_n_checkColumnConstraints">} #+ Check constraints on the "tmpcostos1.cod_n" column #+ #+ @param p_cod_n - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcostos1_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE tmpcostos1.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcostos1_cod_n_checkColumnConstraints {<BLOCK Name="fct.tmpcostos1_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "tmpcostos1.cod_grupo" column #+ #+ @param p_cod_grupo - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcostos1_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE tmpcostos1.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcostos1_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.tmpcostos1_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "tmpcostos1.cod_tipo" column #+ #+ @param p_cod_tipo - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcostos1_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE tmpcostos1.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcostos1_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.tmpcostos1_cod_sec_checkColumnConstraints">} #+ Check constraints on the "tmpcostos1.cod_sec" column #+ #+ @param p_cod_sec - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcostos1_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE tmpcostos1.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcostos1_cod_sec_checkColumnConstraints {<BLOCK Name="fct.tmpcostos1_costo_mat#_checkColumnConstraints">} #+ Check constraints on the "tmpcostos1.costo_mat#" column #+ #+ @param p_costo_mat# - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcostos1_costo_mat#_checkColumnConstraints(p_costo_mat#) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_costo_mat# LIKE tmpcostos1.costo_mat# LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcostos1_costo_mat#_checkColumnConstraints {<BLOCK Name="fct.tmpcostos1_labor_checkColumnConstraints">} #+ Check constraints on the "tmpcostos1.labor" column #+ #+ @param p_labor - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcostos1_labor_checkColumnConstraints(p_labor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_labor LIKE tmpcostos1.labor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcostos1_labor_checkColumnConstraints {<BLOCK Name="fct.tmpcostos1_gastos_checkColumnConstraints">} #+ Check constraints on the "tmpcostos1.gastos" column #+ #+ @param p_gastos - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcostos1_gastos_checkColumnConstraints(p_gastos) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_gastos LIKE tmpcostos1.gastos LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcostos1_gastos_checkColumnConstraints {<BLOCK Name="fct.tmpcostos_checkTableConstraints">} #+ Check constraints on the "tmpcostos" table #+ #+ @param p_data - a row data LIKE tmpcostos.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcostos_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmpcostos.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmpcostos_ventas_checkColumnConstraints(p_data.ventas) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcostos_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcostos_mes_ini_checkColumnConstraints(p_data.mes_ini) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcostos_mes_fin_checkColumnConstraints(p_data.mes_fin) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcostos_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcostos_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcostos_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcostos_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcostos_material_checkColumnConstraints(p_data.material) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcostos_labor_checkColumnConstraints(p_data.labor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcostos_gastos_checkColumnConstraints(p_data.gastos) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcostos_f12_checkColumnConstraints(p_data.f12) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcostos_f13_checkColumnConstraints(p_data.f13) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcostos_checkTableConstraints {<BLOCK Name="fct.tmpcostos_ventas_checkColumnConstraints">} #+ Check constraints on the "tmpcostos.ventas" column #+ #+ @param p_ventas - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcostos_ventas_checkColumnConstraints(p_ventas) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ventas LIKE tmpcostos.ventas LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcostos_ventas_checkColumnConstraints {<BLOCK Name="fct.tmpcostos_ano_checkColumnConstraints">} #+ Check constraints on the "tmpcostos.ano" column #+ #+ @param p_ano - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcostos_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE tmpcostos.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcostos_ano_checkColumnConstraints {<BLOCK Name="fct.tmpcostos_mes_ini_checkColumnConstraints">} #+ Check constraints on the "tmpcostos.mes_ini" column #+ #+ @param p_mes_ini - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcostos_mes_ini_checkColumnConstraints(p_mes_ini) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes_ini LIKE tmpcostos.mes_ini LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcostos_mes_ini_checkColumnConstraints {<BLOCK Name="fct.tmpcostos_mes_fin_checkColumnConstraints">} #+ Check constraints on the "tmpcostos.mes_fin" column #+ #+ @param p_mes_fin - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcostos_mes_fin_checkColumnConstraints(p_mes_fin) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes_fin LIKE tmpcostos.mes_fin LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcostos_mes_fin_checkColumnConstraints {<BLOCK Name="fct.tmpcostos_cod_n_checkColumnConstraints">} #+ Check constraints on the "tmpcostos.cod_n" column #+ #+ @param p_cod_n - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcostos_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE tmpcostos.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcostos_cod_n_checkColumnConstraints {<BLOCK Name="fct.tmpcostos_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "tmpcostos.cod_grupo" column #+ #+ @param p_cod_grupo - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcostos_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE tmpcostos.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcostos_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.tmpcostos_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "tmpcostos.cod_tipo" column #+ #+ @param p_cod_tipo - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcostos_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE tmpcostos.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcostos_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.tmpcostos_cod_sec_checkColumnConstraints">} #+ Check constraints on the "tmpcostos.cod_sec" column #+ #+ @param p_cod_sec - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcostos_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE tmpcostos.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcostos_cod_sec_checkColumnConstraints {<BLOCK Name="fct.tmpcostos_material_checkColumnConstraints">} #+ Check constraints on the "tmpcostos.material" column #+ #+ @param p_material - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcostos_material_checkColumnConstraints(p_material) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_material LIKE tmpcostos.material LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcostos_material_checkColumnConstraints {<BLOCK Name="fct.tmpcostos_labor_checkColumnConstraints">} #+ Check constraints on the "tmpcostos.labor" column #+ #+ @param p_labor - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcostos_labor_checkColumnConstraints(p_labor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_labor LIKE tmpcostos.labor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcostos_labor_checkColumnConstraints {<BLOCK Name="fct.tmpcostos_gastos_checkColumnConstraints">} #+ Check constraints on the "tmpcostos.gastos" column #+ #+ @param p_gastos - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcostos_gastos_checkColumnConstraints(p_gastos) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_gastos LIKE tmpcostos.gastos LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcostos_gastos_checkColumnConstraints {<BLOCK Name="fct.tmpcostos_f12_checkColumnConstraints">} #+ Check constraints on the "tmpcostos.f12" column #+ #+ @param p_f12 - VARCHAR2(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcostos_f12_checkColumnConstraints(p_f12) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f12 LIKE tmpcostos.f12 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcostos_f12_checkColumnConstraints {<BLOCK Name="fct.tmpcostos_f13_checkColumnConstraints">} #+ Check constraints on the "tmpcostos.f13" column #+ #+ @param p_f13 - VARCHAR2(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcostos_f13_checkColumnConstraints(p_f13) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f13 LIKE tmpcostos.f13 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcostos_f13_checkColumnConstraints {<BLOCK Name="fct.tmpcodigos1_checkTableConstraints">} #+ Check constraints on the "tmpcodigos1" table #+ #+ @param p_data - a row data LIKE tmpcodigos1.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcodigos1_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmpcodigos1.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmpcodigos1_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcodigos1_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcodigos1_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcodigos1_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcodigos1_material_checkColumnConstraints(p_data.material) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcodigos1_labor_checkColumnConstraints(p_data.labor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcodigos1_gasto_checkColumnConstraints(p_data.gasto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcodigos1_checkTableConstraints {<BLOCK Name="fct.tmpcodigos1_cod_n_checkColumnConstraints">} #+ Check constraints on the "tmpcodigos1.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcodigos1_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE tmpcodigos1.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcodigos1_cod_n_checkColumnConstraints {<BLOCK Name="fct.tmpcodigos1_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "tmpcodigos1.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcodigos1_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE tmpcodigos1.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcodigos1_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.tmpcodigos1_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "tmpcodigos1.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcodigos1_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE tmpcodigos1.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcodigos1_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.tmpcodigos1_cod_sec_checkColumnConstraints">} #+ Check constraints on the "tmpcodigos1.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcodigos1_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE tmpcodigos1.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcodigos1_cod_sec_checkColumnConstraints {<BLOCK Name="fct.tmpcodigos1_material_checkColumnConstraints">} #+ Check constraints on the "tmpcodigos1.material" column #+ #+ @param p_material - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcodigos1_material_checkColumnConstraints(p_material) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_material LIKE tmpcodigos1.material LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcodigos1_material_checkColumnConstraints {<BLOCK Name="fct.tmpcodigos1_labor_checkColumnConstraints">} #+ Check constraints on the "tmpcodigos1.labor" column #+ #+ @param p_labor - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcodigos1_labor_checkColumnConstraints(p_labor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_labor LIKE tmpcodigos1.labor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcodigos1_labor_checkColumnConstraints {<BLOCK Name="fct.tmpcodigos1_gasto_checkColumnConstraints">} #+ Check constraints on the "tmpcodigos1.gasto" column #+ #+ @param p_gasto - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcodigos1_gasto_checkColumnConstraints(p_gasto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_gasto LIKE tmpcodigos1.gasto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcodigos1_gasto_checkColumnConstraints {<BLOCK Name="fct.tmpcodigos_checkTableConstraints">} #+ Check constraints on the "tmpcodigos" table #+ #+ @param p_data - a row data LIKE tmpcodigos.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcodigos_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmpcodigos.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmpcodigos_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcodigos_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcodigos_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcodigos_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcodigos_checkTableConstraints {<BLOCK Name="fct.tmpcodigos_cod_n_checkColumnConstraints">} #+ Check constraints on the "tmpcodigos.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcodigos_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE tmpcodigos.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcodigos_cod_n_checkColumnConstraints {<BLOCK Name="fct.tmpcodigos_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "tmpcodigos.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcodigos_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE tmpcodigos.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcodigos_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.tmpcodigos_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "tmpcodigos.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcodigos_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE tmpcodigos.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcodigos_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.tmpcodigos_cod_sec_checkColumnConstraints">} #+ Check constraints on the "tmpcodigos.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcodigos_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE tmpcodigos.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcodigos_cod_sec_checkColumnConstraints {<BLOCK Name="fct.tmpcodigorepetido_checkTableConstraints">} #+ Check constraints on the "tmpcodigorepetido" table #+ #+ @param p_data - a row data LIKE tmpcodigorepetido.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcodigorepetido_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmpcodigorepetido.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmpcodigorepetido_cod_cia_checkColumnConstraints(p_data.cod_cia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcodigorepetido_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcodigorepetido_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcodigorepetido_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcodigorepetido_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcodigorepetido_cuenta_checkColumnConstraints(p_data.cuenta) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcodigorepetido_checkTableConstraints {<BLOCK Name="fct.tmpcodigorepetido_cod_cia_checkColumnConstraints">} #+ Check constraints on the "tmpcodigorepetido.cod_cia" column #+ #+ @param p_cod_cia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcodigorepetido_cod_cia_checkColumnConstraints(p_cod_cia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_cia LIKE tmpcodigorepetido.cod_cia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcodigorepetido_cod_cia_checkColumnConstraints {<BLOCK Name="fct.tmpcodigorepetido_cod_n_checkColumnConstraints">} #+ Check constraints on the "tmpcodigorepetido.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcodigorepetido_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE tmpcodigorepetido.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcodigorepetido_cod_n_checkColumnConstraints {<BLOCK Name="fct.tmpcodigorepetido_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "tmpcodigorepetido.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcodigorepetido_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE tmpcodigorepetido.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcodigorepetido_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.tmpcodigorepetido_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "tmpcodigorepetido.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcodigorepetido_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE tmpcodigorepetido.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcodigorepetido_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.tmpcodigorepetido_cod_sec_checkColumnConstraints">} #+ Check constraints on the "tmpcodigorepetido.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcodigorepetido_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE tmpcodigorepetido.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcodigorepetido_cod_sec_checkColumnConstraints {<BLOCK Name="fct.tmpcodigorepetido_cuenta_checkColumnConstraints">} #+ Check constraints on the "tmpcodigorepetido.cuenta" column #+ #+ @param p_cuenta - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcodigorepetido_cuenta_checkColumnConstraints(p_cuenta) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta LIKE tmpcodigorepetido.cuenta LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcodigorepetido_cuenta_checkColumnConstraints {<BLOCK Name="fct.tmpcod12_checkTableConstraints">} #+ Check constraints on the "tmpcod12" table #+ #+ @param p_data - a row data LIKE tmpcod12.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcod12_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmpcod12.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmpcod12_ficha_checkColumnConstraints(p_data.ficha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcod12_valor_checkColumnConstraints(p_data.valor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcod12_codmov_checkColumnConstraints(p_data.codmov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcod12_checkTableConstraints {<BLOCK Name="fct.tmpcod12_ficha_checkColumnConstraints">} #+ Check constraints on the "tmpcod12.ficha" column #+ #+ @param p_ficha - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcod12_ficha_checkColumnConstraints(p_ficha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ficha LIKE tmpcod12.ficha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcod12_ficha_checkColumnConstraints {<BLOCK Name="fct.tmpcod12_valor_checkColumnConstraints">} #+ Check constraints on the "tmpcod12.valor" column #+ #+ @param p_valor - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcod12_valor_checkColumnConstraints(p_valor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor LIKE tmpcod12.valor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcod12_valor_checkColumnConstraints {<BLOCK Name="fct.tmpcod12_codmov_checkColumnConstraints">} #+ Check constraints on the "tmpcod12.codmov" column #+ #+ @param p_codmov - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcod12_codmov_checkColumnConstraints(p_codmov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codmov LIKE tmpcod12.codmov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcod12_codmov_checkColumnConstraints {<BLOCK Name="fct.tmpcod11_checkTableConstraints">} #+ Check constraints on the "tmpcod11" table #+ #+ @param p_data - a row data LIKE tmpcod11.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcod11_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmpcod11.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmpcod11_ficha_checkColumnConstraints(p_data.ficha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcod11_valor_checkColumnConstraints(p_data.valor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcod11_codmov_checkColumnConstraints(p_data.codmov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcod11_checkTableConstraints {<BLOCK Name="fct.tmpcod11_ficha_checkColumnConstraints">} #+ Check constraints on the "tmpcod11.ficha" column #+ #+ @param p_ficha - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcod11_ficha_checkColumnConstraints(p_ficha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ficha LIKE tmpcod11.ficha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcod11_ficha_checkColumnConstraints {<BLOCK Name="fct.tmpcod11_valor_checkColumnConstraints">} #+ Check constraints on the "tmpcod11.valor" column #+ #+ @param p_valor - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcod11_valor_checkColumnConstraints(p_valor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor LIKE tmpcod11.valor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcod11_valor_checkColumnConstraints {<BLOCK Name="fct.tmpcod11_codmov_checkColumnConstraints">} #+ Check constraints on the "tmpcod11.codmov" column #+ #+ @param p_codmov - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcod11_codmov_checkColumnConstraints(p_codmov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codmov LIKE tmpcod11.codmov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcod11_codmov_checkColumnConstraints {<BLOCK Name="fct.tmpclientes_checkTableConstraints">} #+ Check constraints on the "tmpclientes" table #+ #+ @param p_data - a row data LIKE tmpclientes.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmpclientes_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmpclientes.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmpclientes_tipo_cliente_checkColumnConstraints(p_data.tipo_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpclientes_sec_cliente_checkColumnConstraints(p_data.sec_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpclientes_nombre_checkColumnConstraints(p_data.nombre) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpclientes_cod_zona_checkColumnConstraints(p_data.cod_zona) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpclientes_cod_provincia_checkColumnConstraints(p_data.cod_provincia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpclientes_telefono_checkColumnConstraints(p_data.telefono) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpclientes_fax_checkColumnConstraints(p_data.fax) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpclientes_telex_checkColumnConstraints(p_data.telex) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpclientes_patente_checkColumnConstraints(p_data.patente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpclientes_limite_credito_checkColumnConstraints(p_data.limite_credito) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpclientes_zona_postal_checkColumnConstraints(p_data.zona_postal) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpclientes_num_rnc_checkColumnConstraints(p_data.num_rnc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpclientes_nombre_patente_checkColumnConstraints(p_data.nombre_patente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpclientes_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpclientes_checkTableConstraints {<BLOCK Name="fct.tmpclientes_tipo_cliente_checkColumnConstraints">} #+ Check constraints on the "tmpclientes.tipo_cliente" column #+ #+ @param p_tipo_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpclientes_tipo_cliente_checkColumnConstraints(p_tipo_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_cliente LIKE tmpclientes.tipo_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpclientes_tipo_cliente_checkColumnConstraints {<BLOCK Name="fct.tmpclientes_sec_cliente_checkColumnConstraints">} #+ Check constraints on the "tmpclientes.sec_cliente" column #+ #+ @param p_sec_cliente - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpclientes_sec_cliente_checkColumnConstraints(p_sec_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_cliente LIKE tmpclientes.sec_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpclientes_sec_cliente_checkColumnConstraints {<BLOCK Name="fct.tmpclientes_nombre_checkColumnConstraints">} #+ Check constraints on the "tmpclientes.nombre" column #+ #+ @param p_nombre - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpclientes_nombre_checkColumnConstraints(p_nombre) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombre LIKE tmpclientes.nombre LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpclientes_nombre_checkColumnConstraints {<BLOCK Name="fct.tmpclientes_cod_zona_checkColumnConstraints">} #+ Check constraints on the "tmpclientes.cod_zona" column #+ #+ @param p_cod_zona - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpclientes_cod_zona_checkColumnConstraints(p_cod_zona) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_zona LIKE tmpclientes.cod_zona LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpclientes_cod_zona_checkColumnConstraints {<BLOCK Name="fct.tmpclientes_cod_provincia_checkColumnConstraints">} #+ Check constraints on the "tmpclientes.cod_provincia" column #+ #+ @param p_cod_provincia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpclientes_cod_provincia_checkColumnConstraints(p_cod_provincia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_provincia LIKE tmpclientes.cod_provincia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpclientes_cod_provincia_checkColumnConstraints {<BLOCK Name="fct.tmpclientes_telefono_checkColumnConstraints">} #+ Check constraints on the "tmpclientes.telefono" column #+ #+ @param p_telefono - CHAR(16) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpclientes_telefono_checkColumnConstraints(p_telefono) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_telefono LIKE tmpclientes.telefono LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpclientes_telefono_checkColumnConstraints {<BLOCK Name="fct.tmpclientes_fax_checkColumnConstraints">} #+ Check constraints on the "tmpclientes.fax" column #+ #+ @param p_fax - CHAR(16) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpclientes_fax_checkColumnConstraints(p_fax) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fax LIKE tmpclientes.fax LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpclientes_fax_checkColumnConstraints {<BLOCK Name="fct.tmpclientes_telex_checkColumnConstraints">} #+ Check constraints on the "tmpclientes.telex" column #+ #+ @param p_telex - CHAR(16) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpclientes_telex_checkColumnConstraints(p_telex) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_telex LIKE tmpclientes.telex LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpclientes_telex_checkColumnConstraints {<BLOCK Name="fct.tmpclientes_patente_checkColumnConstraints">} #+ Check constraints on the "tmpclientes.patente" column #+ #+ @param p_patente - CHAR(11) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpclientes_patente_checkColumnConstraints(p_patente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_patente LIKE tmpclientes.patente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpclientes_patente_checkColumnConstraints {<BLOCK Name="fct.tmpclientes_limite_credito_checkColumnConstraints">} #+ Check constraints on the "tmpclientes.limite_credito" column #+ #+ @param p_limite_credito - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpclientes_limite_credito_checkColumnConstraints(p_limite_credito) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_limite_credito LIKE tmpclientes.limite_credito LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpclientes_limite_credito_checkColumnConstraints {<BLOCK Name="fct.tmpclientes_zona_postal_checkColumnConstraints">} #+ Check constraints on the "tmpclientes.zona_postal" column #+ #+ @param p_zona_postal - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpclientes_zona_postal_checkColumnConstraints(p_zona_postal) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_zona_postal LIKE tmpclientes.zona_postal LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpclientes_zona_postal_checkColumnConstraints {<BLOCK Name="fct.tmpclientes_num_rnc_checkColumnConstraints">} #+ Check constraints on the "tmpclientes.num_rnc" column #+ #+ @param p_num_rnc - CHAR(11) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpclientes_num_rnc_checkColumnConstraints(p_num_rnc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_rnc LIKE tmpclientes.num_rnc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpclientes_num_rnc_checkColumnConstraints {<BLOCK Name="fct.tmpclientes_nombre_patente_checkColumnConstraints">} #+ Check constraints on the "tmpclientes.nombre_patente" column #+ #+ @param p_nombre_patente - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpclientes_nombre_patente_checkColumnConstraints(p_nombre_patente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombre_patente LIKE tmpclientes.nombre_patente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpclientes_nombre_patente_checkColumnConstraints {<BLOCK Name="fct.tmpclientes_us_crea_checkColumnConstraints">} #+ Check constraints on the "tmpclientes.us_crea" column #+ #+ @param p_us_crea - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpclientes_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE tmpclientes.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpclientes_us_crea_checkColumnConstraints {<BLOCK Name="fct.tmpclasificacion_checkTableConstraints">} #+ Check constraints on the "tmpclasificacion" table #+ #+ @param p_data - a row data LIKE tmpclasificacion.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmpclasificacion_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmpclasificacion.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmpclasificacion_tipo_cliente_checkColumnConstraints(p_data.tipo_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpclasificacion_sec_cliente_checkColumnConstraints(p_data.sec_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpclasificacion_tipo_negocio_checkColumnConstraints(p_data.tipo_negocio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpclasificacion_f4_checkColumnConstraints(p_data.f4) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpclasificacion_f5_checkColumnConstraints(p_data.f5) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpclasificacion_f6_checkColumnConstraints(p_data.f6) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpclasificacion_f7_checkColumnConstraints(p_data.f7) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpclasificacion_checkTableConstraints {<BLOCK Name="fct.tmpclasificacion_tipo_cliente_checkColumnConstraints">} #+ Check constraints on the "tmpclasificacion.tipo_cliente" column #+ #+ @param p_tipo_cliente - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpclasificacion_tipo_cliente_checkColumnConstraints(p_tipo_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_cliente LIKE tmpclasificacion.tipo_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpclasificacion_tipo_cliente_checkColumnConstraints {<BLOCK Name="fct.tmpclasificacion_sec_cliente_checkColumnConstraints">} #+ Check constraints on the "tmpclasificacion.sec_cliente" column #+ #+ @param p_sec_cliente - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpclasificacion_sec_cliente_checkColumnConstraints(p_sec_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_cliente LIKE tmpclasificacion.sec_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpclasificacion_sec_cliente_checkColumnConstraints {<BLOCK Name="fct.tmpclasificacion_tipo_negocio_checkColumnConstraints">} #+ Check constraints on the "tmpclasificacion.tipo_negocio" column #+ #+ @param p_tipo_negocio - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpclasificacion_tipo_negocio_checkColumnConstraints(p_tipo_negocio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_negocio LIKE tmpclasificacion.tipo_negocio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpclasificacion_tipo_negocio_checkColumnConstraints {<BLOCK Name="fct.tmpclasificacion_f4_checkColumnConstraints">} #+ Check constraints on the "tmpclasificacion.f4" column #+ #+ @param p_f4 - VARCHAR2(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpclasificacion_f4_checkColumnConstraints(p_f4) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f4 LIKE tmpclasificacion.f4 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpclasificacion_f4_checkColumnConstraints {<BLOCK Name="fct.tmpclasificacion_f5_checkColumnConstraints">} #+ Check constraints on the "tmpclasificacion.f5" column #+ #+ @param p_f5 - VARCHAR2(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpclasificacion_f5_checkColumnConstraints(p_f5) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f5 LIKE tmpclasificacion.f5 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpclasificacion_f5_checkColumnConstraints {<BLOCK Name="fct.tmpclasificacion_f6_checkColumnConstraints">} #+ Check constraints on the "tmpclasificacion.f6" column #+ #+ @param p_f6 - VARCHAR2(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpclasificacion_f6_checkColumnConstraints(p_f6) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f6 LIKE tmpclasificacion.f6 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpclasificacion_f6_checkColumnConstraints {<BLOCK Name="fct.tmpclasificacion_f7_checkColumnConstraints">} #+ Check constraints on the "tmpclasificacion.f7" column #+ #+ @param p_f7 - VARCHAR2(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpclasificacion_f7_checkColumnConstraints(p_f7) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f7 LIKE tmpclasificacion.f7 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpclasificacion_f7_checkColumnConstraints {<BLOCK Name="fct.tmpclase1_checkTableConstraints">} #+ Check constraints on the "tmpclase1" table #+ #+ @param p_data - a row data LIKE tmpclase1.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmpclase1_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmpclase1.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmpclase1_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpclase1_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpclase1_checkTableConstraints {<BLOCK Name="fct.tmpclase1_cod_n_checkColumnConstraints">} #+ Check constraints on the "tmpclase1.cod_n" column #+ #+ @param p_cod_n - VARCHAR2(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpclase1_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE tmpclase1.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpclase1_cod_n_checkColumnConstraints {<BLOCK Name="fct.tmpclase1_descripcion_checkColumnConstraints">} #+ Check constraints on the "tmpclase1.descripcion" column #+ #+ @param p_descripcion - VARCHAR2(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpclase1_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE tmpclase1.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpclase1_descripcion_checkColumnConstraints {<BLOCK Name="fct.tmpclase_checkTableConstraints">} #+ Check constraints on the "tmpclase" table #+ #+ @param p_data - a row data LIKE tmpclase.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmpclase_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmpclase.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmpclase_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpclase_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpclase_pk_tmpclase_checkUniqueConstraint(p_forUpdate, p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpclase_checkTableConstraints {<BLOCK Name="fct.tmpclase_pk_tmpclase_checkUniqueConstraint">} #+ Check the primary key uniqueness constraint on the "tmpclase" #+ #+ @param p_key - Primary Key #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpclase_pk_tmpclase_checkUniqueConstraint(p_forUpdate, p_key) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_forUpdate BOOLEAN DEFINE p_key RECORD tmpclase_cod_n LIKE tmpclase.cod_n END RECORD DEFINE l_key RECORD tmpclase_cod_n LIKE tmpclase.cod_n 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 tmpclase.cod_n = ? " let l_sqlQuery = "SELECT COUNT(*), cod_n FROM tmpclase ", l_where, " GROUP BY cod_n" PREPARE cur_tmpclase_pk_tmpclase_checkUniqueConstraint FROM l_sqlQuery EXECUTE cur_tmpclase_pk_tmpclase_checkUniqueConstraint INTO l_count, l_key.* USING p_key.* FREE cur_tmpclase_pk_tmpclase_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- cod_n: " || ERROR_BAM_00002) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpclase_pk_tmpclase_checkUniqueConstraint {<BLOCK Name="fct.tmpclase_cod_n_checkColumnConstraints">} #+ Check constraints on the "tmpclase.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpclase_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE tmpclase.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpclase_cod_n_checkColumnConstraints {<BLOCK Name="fct.tmpclase_descripcion_checkColumnConstraints">} #+ Check constraints on the "tmpclase.descripcion" column #+ #+ @param p_descripcion - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpclase_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE tmpclase.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpclase_descripcion_checkColumnConstraints {<BLOCK Name="fct.tmpcctb01_checkTableConstraints">} #+ Check constraints on the "tmpcctb01" table #+ #+ @param p_data - a row data LIKE tmpcctb01.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcctb01_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmpcctb01.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmpcctb01_cuenta_no_checkColumnConstraints(p_data.cuenta_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcctb01_cod_cia_checkColumnConstraints(p_data.cod_cia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcctb01_tipo_doc_checkColumnConstraints(p_data.tipo_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcctb01_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcctb01_tipo_cliente_checkColumnConstraints(p_data.tipo_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcctb01_sec_cliente_checkColumnConstraints(p_data.sec_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcctb01_cod_emp_checkColumnConstraints(p_data.cod_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcctb01_cod_emp_sec_checkColumnConstraints(p_data.cod_emp_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcctb01_fecha_orig_checkColumnConstraints(p_data.fecha_orig) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcctb01_fecha_ven_checkColumnConstraints(p_data.fecha_ven) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcctb01_aplica_a_checkColumnConstraints(p_data.aplica_a) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcctb01_banco_checkColumnConstraints(p_data.banco) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcctb01_num_cheque_checkColumnConstraints(p_data.num_cheque) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcctb01_valor_checkColumnConstraints(p_data.valor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcctb01_valor_efectivo_checkColumnConstraints(p_data.valor_efectivo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcctb01_valor_cheque_checkColumnConstraints(p_data.valor_cheque) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcctb01_costo_checkColumnConstraints(p_data.costo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcctb01_monto_desc_checkColumnConstraints(p_data.monto_desc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcctb01_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcctb01_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcctb01_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcctb01_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcctb01_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcctb01_checkTableConstraints {<BLOCK Name="fct.tmpcctb01_cuenta_no_checkColumnConstraints">} #+ Check constraints on the "tmpcctb01.cuenta_no" column #+ #+ @param p_cuenta_no - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcctb01_cuenta_no_checkColumnConstraints(p_cuenta_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_no LIKE tmpcctb01.cuenta_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcctb01_cuenta_no_checkColumnConstraints {<BLOCK Name="fct.tmpcctb01_cod_cia_checkColumnConstraints">} #+ Check constraints on the "tmpcctb01.cod_cia" column #+ #+ @param p_cod_cia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcctb01_cod_cia_checkColumnConstraints(p_cod_cia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_cia LIKE tmpcctb01.cod_cia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcctb01_cod_cia_checkColumnConstraints {<BLOCK Name="fct.tmpcctb01_tipo_doc_checkColumnConstraints">} #+ Check constraints on the "tmpcctb01.tipo_doc" column #+ #+ @param p_tipo_doc - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcctb01_tipo_doc_checkColumnConstraints(p_tipo_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_doc LIKE tmpcctb01.tipo_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcctb01_tipo_doc_checkColumnConstraints {<BLOCK Name="fct.tmpcctb01_num_doc_checkColumnConstraints">} #+ Check constraints on the "tmpcctb01.num_doc" column #+ #+ @param p_num_doc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcctb01_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE tmpcctb01.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_num_doc IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- num_doc: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcctb01_num_doc_checkColumnConstraints {<BLOCK Name="fct.tmpcctb01_tipo_cliente_checkColumnConstraints">} #+ Check constraints on the "tmpcctb01.tipo_cliente" column #+ #+ @param p_tipo_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcctb01_tipo_cliente_checkColumnConstraints(p_tipo_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_cliente LIKE tmpcctb01.tipo_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcctb01_tipo_cliente_checkColumnConstraints {<BLOCK Name="fct.tmpcctb01_sec_cliente_checkColumnConstraints">} #+ Check constraints on the "tmpcctb01.sec_cliente" column #+ #+ @param p_sec_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcctb01_sec_cliente_checkColumnConstraints(p_sec_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_cliente LIKE tmpcctb01.sec_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcctb01_sec_cliente_checkColumnConstraints {<BLOCK Name="fct.tmpcctb01_cod_emp_checkColumnConstraints">} #+ Check constraints on the "tmpcctb01.cod_emp" column #+ #+ @param p_cod_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcctb01_cod_emp_checkColumnConstraints(p_cod_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_emp LIKE tmpcctb01.cod_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcctb01_cod_emp_checkColumnConstraints {<BLOCK Name="fct.tmpcctb01_cod_emp_sec_checkColumnConstraints">} #+ Check constraints on the "tmpcctb01.cod_emp_sec" column #+ #+ @param p_cod_emp_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcctb01_cod_emp_sec_checkColumnConstraints(p_cod_emp_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_emp_sec LIKE tmpcctb01.cod_emp_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcctb01_cod_emp_sec_checkColumnConstraints {<BLOCK Name="fct.tmpcctb01_fecha_orig_checkColumnConstraints">} #+ Check constraints on the "tmpcctb01.fecha_orig" column #+ #+ @param p_fecha_orig - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcctb01_fecha_orig_checkColumnConstraints(p_fecha_orig) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_orig LIKE tmpcctb01.fecha_orig LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcctb01_fecha_orig_checkColumnConstraints {<BLOCK Name="fct.tmpcctb01_fecha_ven_checkColumnConstraints">} #+ Check constraints on the "tmpcctb01.fecha_ven" column #+ #+ @param p_fecha_ven - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcctb01_fecha_ven_checkColumnConstraints(p_fecha_ven) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_ven LIKE tmpcctb01.fecha_ven LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcctb01_fecha_ven_checkColumnConstraints {<BLOCK Name="fct.tmpcctb01_aplica_a_checkColumnConstraints">} #+ Check constraints on the "tmpcctb01.aplica_a" column #+ #+ @param p_aplica_a - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcctb01_aplica_a_checkColumnConstraints(p_aplica_a) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_aplica_a LIKE tmpcctb01.aplica_a LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcctb01_aplica_a_checkColumnConstraints {<BLOCK Name="fct.tmpcctb01_banco_checkColumnConstraints">} #+ Check constraints on the "tmpcctb01.banco" column #+ #+ @param p_banco - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcctb01_banco_checkColumnConstraints(p_banco) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_banco LIKE tmpcctb01.banco LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcctb01_banco_checkColumnConstraints {<BLOCK Name="fct.tmpcctb01_num_cheque_checkColumnConstraints">} #+ Check constraints on the "tmpcctb01.num_cheque" column #+ #+ @param p_num_cheque - CHAR(12) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcctb01_num_cheque_checkColumnConstraints(p_num_cheque) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_cheque LIKE tmpcctb01.num_cheque LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcctb01_num_cheque_checkColumnConstraints {<BLOCK Name="fct.tmpcctb01_valor_checkColumnConstraints">} #+ Check constraints on the "tmpcctb01.valor" column #+ #+ @param p_valor - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcctb01_valor_checkColumnConstraints(p_valor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor LIKE tmpcctb01.valor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_valor IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- valor: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcctb01_valor_checkColumnConstraints {<BLOCK Name="fct.tmpcctb01_valor_efectivo_checkColumnConstraints">} #+ Check constraints on the "tmpcctb01.valor_efectivo" column #+ #+ @param p_valor_efectivo - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcctb01_valor_efectivo_checkColumnConstraints(p_valor_efectivo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor_efectivo LIKE tmpcctb01.valor_efectivo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcctb01_valor_efectivo_checkColumnConstraints {<BLOCK Name="fct.tmpcctb01_valor_cheque_checkColumnConstraints">} #+ Check constraints on the "tmpcctb01.valor_cheque" column #+ #+ @param p_valor_cheque - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcctb01_valor_cheque_checkColumnConstraints(p_valor_cheque) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor_cheque LIKE tmpcctb01.valor_cheque LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcctb01_valor_cheque_checkColumnConstraints {<BLOCK Name="fct.tmpcctb01_costo_checkColumnConstraints">} #+ Check constraints on the "tmpcctb01.costo" column #+ #+ @param p_costo - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcctb01_costo_checkColumnConstraints(p_costo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_costo LIKE tmpcctb01.costo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcctb01_costo_checkColumnConstraints {<BLOCK Name="fct.tmpcctb01_monto_desc_checkColumnConstraints">} #+ Check constraints on the "tmpcctb01.monto_desc" column #+ #+ @param p_monto_desc - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcctb01_monto_desc_checkColumnConstraints(p_monto_desc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_monto_desc LIKE tmpcctb01.monto_desc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcctb01_monto_desc_checkColumnConstraints {<BLOCK Name="fct.tmpcctb01_status_t_checkColumnConstraints">} #+ Check constraints on the "tmpcctb01.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcctb01_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE tmpcctb01.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcctb01_status_t_checkColumnConstraints {<BLOCK Name="fct.tmpcctb01_us_crea_checkColumnConstraints">} #+ Check constraints on the "tmpcctb01.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcctb01_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE tmpcctb01.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcctb01_us_crea_checkColumnConstraints {<BLOCK Name="fct.tmpcctb01_fech_crea_checkColumnConstraints">} #+ Check constraints on the "tmpcctb01.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcctb01_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE tmpcctb01.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcctb01_fech_crea_checkColumnConstraints {<BLOCK Name="fct.tmpcctb01_us_mod_checkColumnConstraints">} #+ Check constraints on the "tmpcctb01.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcctb01_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE tmpcctb01.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcctb01_us_mod_checkColumnConstraints {<BLOCK Name="fct.tmpcctb01_fech_mod_checkColumnConstraints">} #+ Check constraints on the "tmpcctb01.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcctb01_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE tmpcctb01.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcctb01_fech_mod_checkColumnConstraints {<BLOCK Name="fct.tmpcam_checkTableConstraints">} #+ Check constraints on the "tmpcam" table #+ #+ @param p_data - a row data LIKE tmpcam.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcam_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmpcam.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmpcam_labor_checkColumnConstraints(p_data.labor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcam_gasto_checkColumnConstraints(p_data.gasto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcam_codn_checkColumnConstraints(p_data.codn) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcam_codgrupo_checkColumnConstraints(p_data.codgrupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcam_codtipo_checkColumnConstraints(p_data.codtipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpcam_codsec_checkColumnConstraints(p_data.codsec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcam_checkTableConstraints {<BLOCK Name="fct.tmpcam_labor_checkColumnConstraints">} #+ Check constraints on the "tmpcam.labor" column #+ #+ @param p_labor - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcam_labor_checkColumnConstraints(p_labor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_labor LIKE tmpcam.labor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcam_labor_checkColumnConstraints {<BLOCK Name="fct.tmpcam_gasto_checkColumnConstraints">} #+ Check constraints on the "tmpcam.gasto" column #+ #+ @param p_gasto - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcam_gasto_checkColumnConstraints(p_gasto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_gasto LIKE tmpcam.gasto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcam_gasto_checkColumnConstraints {<BLOCK Name="fct.tmpcam_codn_checkColumnConstraints">} #+ Check constraints on the "tmpcam.codn" column #+ #+ @param p_codn - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcam_codn_checkColumnConstraints(p_codn) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codn LIKE tmpcam.codn LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcam_codn_checkColumnConstraints {<BLOCK Name="fct.tmpcam_codgrupo_checkColumnConstraints">} #+ Check constraints on the "tmpcam.codgrupo" column #+ #+ @param p_codgrupo - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcam_codgrupo_checkColumnConstraints(p_codgrupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codgrupo LIKE tmpcam.codgrupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcam_codgrupo_checkColumnConstraints {<BLOCK Name="fct.tmpcam_codtipo_checkColumnConstraints">} #+ Check constraints on the "tmpcam.codtipo" column #+ #+ @param p_codtipo - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcam_codtipo_checkColumnConstraints(p_codtipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codtipo LIKE tmpcam.codtipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcam_codtipo_checkColumnConstraints {<BLOCK Name="fct.tmpcam_codsec_checkColumnConstraints">} #+ Check constraints on the "tmpcam.codsec" column #+ #+ @param p_codsec - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpcam_codsec_checkColumnConstraints(p_codsec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codsec LIKE tmpcam.codsec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpcam_codsec_checkColumnConstraints {<BLOCK Name="fct.tmpaumento_checkTableConstraints">} #+ Check constraints on the "tmpaumento" table #+ #+ @param p_data - a row data LIKE tmpaumento.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmpaumento_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmpaumento.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmpaumento_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpaumento_num_nomi_checkColumnConstraints(p_data.num_nomi) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpaumento_num_emp_checkColumnConstraints(p_data.num_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpaumento_valor_checkColumnConstraints(p_data.valor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpaumento_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpaumento_checkTableConstraints {<BLOCK Name="fct.tmpaumento_fecha_checkColumnConstraints">} #+ Check constraints on the "tmpaumento.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpaumento_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE tmpaumento.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpaumento_fecha_checkColumnConstraints {<BLOCK Name="fct.tmpaumento_num_nomi_checkColumnConstraints">} #+ Check constraints on the "tmpaumento.num_nomi" column #+ #+ @param p_num_nomi - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpaumento_num_nomi_checkColumnConstraints(p_num_nomi) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_nomi LIKE tmpaumento.num_nomi LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpaumento_num_nomi_checkColumnConstraints {<BLOCK Name="fct.tmpaumento_num_emp_checkColumnConstraints">} #+ Check constraints on the "tmpaumento.num_emp" column #+ #+ @param p_num_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpaumento_num_emp_checkColumnConstraints(p_num_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_emp LIKE tmpaumento.num_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpaumento_num_emp_checkColumnConstraints {<BLOCK Name="fct.tmpaumento_valor_checkColumnConstraints">} #+ Check constraints on the "tmpaumento.valor" column #+ #+ @param p_valor - DECIMAL(18,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpaumento_valor_checkColumnConstraints(p_valor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor LIKE tmpaumento.valor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpaumento_valor_checkColumnConstraints {<BLOCK Name="fct.tmpaumento_cod_mov_checkColumnConstraints">} #+ Check constraints on the "tmpaumento.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpaumento_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE tmpaumento.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpaumento_cod_mov_checkColumnConstraints {<BLOCK Name="fct.tmpactualiza_checkTableConstraints">} #+ Check constraints on the "tmpactualiza" table #+ #+ @param p_data - a row data LIKE tmpactualiza.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmpactualiza_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmpactualiza.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmpactualiza_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpactualiza_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpactualiza_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpactualiza_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpactualiza_cod1_checkColumnConstraints(p_data.cod1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpactualiza_grupo1_checkColumnConstraints(p_data.grupo1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpactualiza_tipo2_checkColumnConstraints(p_data.tipo2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmpactualiza_sec1_checkColumnConstraints(p_data.sec1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpactualiza_checkTableConstraints {<BLOCK Name="fct.tmpactualiza_cod_n_checkColumnConstraints">} #+ Check constraints on the "tmpactualiza.cod_n" column #+ #+ @param p_cod_n - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpactualiza_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE tmpactualiza.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpactualiza_cod_n_checkColumnConstraints {<BLOCK Name="fct.tmpactualiza_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "tmpactualiza.cod_grupo" column #+ #+ @param p_cod_grupo - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpactualiza_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE tmpactualiza.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpactualiza_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.tmpactualiza_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "tmpactualiza.cod_tipo" column #+ #+ @param p_cod_tipo - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpactualiza_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE tmpactualiza.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpactualiza_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.tmpactualiza_cod_sec_checkColumnConstraints">} #+ Check constraints on the "tmpactualiza.cod_sec" column #+ #+ @param p_cod_sec - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpactualiza_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE tmpactualiza.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpactualiza_cod_sec_checkColumnConstraints {<BLOCK Name="fct.tmpactualiza_cod1_checkColumnConstraints">} #+ Check constraints on the "tmpactualiza.cod1" column #+ #+ @param p_cod1 - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpactualiza_cod1_checkColumnConstraints(p_cod1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod1 LIKE tmpactualiza.cod1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpactualiza_cod1_checkColumnConstraints {<BLOCK Name="fct.tmpactualiza_grupo1_checkColumnConstraints">} #+ Check constraints on the "tmpactualiza.grupo1" column #+ #+ @param p_grupo1 - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpactualiza_grupo1_checkColumnConstraints(p_grupo1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_grupo1 LIKE tmpactualiza.grupo1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpactualiza_grupo1_checkColumnConstraints {<BLOCK Name="fct.tmpactualiza_tipo2_checkColumnConstraints">} #+ Check constraints on the "tmpactualiza.tipo2" column #+ #+ @param p_tipo2 - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpactualiza_tipo2_checkColumnConstraints(p_tipo2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo2 LIKE tmpactualiza.tipo2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpactualiza_tipo2_checkColumnConstraints {<BLOCK Name="fct.tmpactualiza_sec1_checkColumnConstraints">} #+ Check constraints on the "tmpactualiza.sec1" column #+ #+ @param p_sec1 - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmpactualiza_sec1_checkColumnConstraints(p_sec1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec1 LIKE tmpactualiza.sec1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmpactualiza_sec1_checkColumnConstraints {<BLOCK Name="fct.tmp3iptb00012_checkTableConstraints">} #+ Check constraints on the "tmp3iptb00012" table #+ #+ @param p_data - a row data LIKE tmp3iptb00012.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmp3iptb00012_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmp3iptb00012.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmp3iptb00012_idtrx_checkColumnConstraints(p_data.idtrx) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmp3iptb00012_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmp3iptb00012_bodega_checkColumnConstraints(p_data.bodega) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmp3iptb00012_cod_seccion_checkColumnConstraints(p_data.cod_seccion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmp3iptb00012_cod_tramo_checkColumnConstraints(p_data.cod_tramo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmp3iptb00012_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmp3iptb00012_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmp3iptb00012_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmp3iptb00012_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmp3iptb00012_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmp3iptb00012_balance_checkColumnConstraints(p_data.balance) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmp3iptb00012_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmp3iptb00012_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmp3iptb00012_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmp3iptb00012_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmp3iptb00012_lado_1_checkColumnConstraints(p_data.lado_1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmp3iptb00012_lado_2_checkColumnConstraints(p_data.lado_2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmp3iptb00012_lado_3_checkColumnConstraints(p_data.lado_3) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmp3iptb00012_checkTableConstraints {<BLOCK Name="fct.tmp3iptb00012_idtrx_checkColumnConstraints">} #+ Check constraints on the "tmp3iptb00012.idtrx" column #+ #+ @param p_idtrx - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmp3iptb00012_idtrx_checkColumnConstraints(p_idtrx) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_idtrx LIKE tmp3iptb00012.idtrx LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmp3iptb00012_idtrx_checkColumnConstraints {<BLOCK Name="fct.tmp3iptb00012_fecha_checkColumnConstraints">} #+ Check constraints on the "tmp3iptb00012.fecha" column #+ #+ @param p_fecha - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmp3iptb00012_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE tmp3iptb00012.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmp3iptb00012_fecha_checkColumnConstraints {<BLOCK Name="fct.tmp3iptb00012_bodega_checkColumnConstraints">} #+ Check constraints on the "tmp3iptb00012.bodega" column #+ #+ @param p_bodega - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmp3iptb00012_bodega_checkColumnConstraints(p_bodega) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_bodega LIKE tmp3iptb00012.bodega LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmp3iptb00012_bodega_checkColumnConstraints {<BLOCK Name="fct.tmp3iptb00012_cod_seccion_checkColumnConstraints">} #+ Check constraints on the "tmp3iptb00012.cod_seccion" column #+ #+ @param p_cod_seccion - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmp3iptb00012_cod_seccion_checkColumnConstraints(p_cod_seccion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_seccion LIKE tmp3iptb00012.cod_seccion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmp3iptb00012_cod_seccion_checkColumnConstraints {<BLOCK Name="fct.tmp3iptb00012_cod_tramo_checkColumnConstraints">} #+ Check constraints on the "tmp3iptb00012.cod_tramo" column #+ #+ @param p_cod_tramo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmp3iptb00012_cod_tramo_checkColumnConstraints(p_cod_tramo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tramo LIKE tmp3iptb00012.cod_tramo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmp3iptb00012_cod_tramo_checkColumnConstraints {<BLOCK Name="fct.tmp3iptb00012_cod_n_checkColumnConstraints">} #+ Check constraints on the "tmp3iptb00012.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmp3iptb00012_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE tmp3iptb00012.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmp3iptb00012_cod_n_checkColumnConstraints {<BLOCK Name="fct.tmp3iptb00012_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "tmp3iptb00012.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmp3iptb00012_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE tmp3iptb00012.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmp3iptb00012_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.tmp3iptb00012_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "tmp3iptb00012.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmp3iptb00012_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE tmp3iptb00012.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmp3iptb00012_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.tmp3iptb00012_cod_sec_checkColumnConstraints">} #+ Check constraints on the "tmp3iptb00012.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmp3iptb00012_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE tmp3iptb00012.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmp3iptb00012_cod_sec_checkColumnConstraints {<BLOCK Name="fct.tmp3iptb00012_cantidad_checkColumnConstraints">} #+ Check constraints on the "tmp3iptb00012.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmp3iptb00012_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE tmp3iptb00012.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmp3iptb00012_cantidad_checkColumnConstraints {<BLOCK Name="fct.tmp3iptb00012_balance_checkColumnConstraints">} #+ Check constraints on the "tmp3iptb00012.balance" column #+ #+ @param p_balance - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmp3iptb00012_balance_checkColumnConstraints(p_balance) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_balance LIKE tmp3iptb00012.balance LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmp3iptb00012_balance_checkColumnConstraints {<BLOCK Name="fct.tmp3iptb00012_us_crea_checkColumnConstraints">} #+ Check constraints on the "tmp3iptb00012.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmp3iptb00012_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE tmp3iptb00012.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmp3iptb00012_us_crea_checkColumnConstraints {<BLOCK Name="fct.tmp3iptb00012_fech_crea_checkColumnConstraints">} #+ Check constraints on the "tmp3iptb00012.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmp3iptb00012_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE tmp3iptb00012.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmp3iptb00012_fech_crea_checkColumnConstraints {<BLOCK Name="fct.tmp3iptb00012_us_mod_checkColumnConstraints">} #+ Check constraints on the "tmp3iptb00012.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmp3iptb00012_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE tmp3iptb00012.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmp3iptb00012_us_mod_checkColumnConstraints {<BLOCK Name="fct.tmp3iptb00012_fech_mod_checkColumnConstraints">} #+ Check constraints on the "tmp3iptb00012.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmp3iptb00012_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE tmp3iptb00012.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmp3iptb00012_fech_mod_checkColumnConstraints {<BLOCK Name="fct.tmp3iptb00012_lado_1_checkColumnConstraints">} #+ Check constraints on the "tmp3iptb00012.lado_1" column #+ #+ @param p_lado_1 - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmp3iptb00012_lado_1_checkColumnConstraints(p_lado_1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_lado_1 LIKE tmp3iptb00012.lado_1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmp3iptb00012_lado_1_checkColumnConstraints {<BLOCK Name="fct.tmp3iptb00012_lado_2_checkColumnConstraints">} #+ Check constraints on the "tmp3iptb00012.lado_2" column #+ #+ @param p_lado_2 - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmp3iptb00012_lado_2_checkColumnConstraints(p_lado_2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_lado_2 LIKE tmp3iptb00012.lado_2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmp3iptb00012_lado_2_checkColumnConstraints {<BLOCK Name="fct.tmp3iptb00012_lado_3_checkColumnConstraints">} #+ Check constraints on the "tmp3iptb00012.lado_3" column #+ #+ @param p_lado_3 - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmp3iptb00012_lado_3_checkColumnConstraints(p_lado_3) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_lado_3 LIKE tmp3iptb00012.lado_3 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmp3iptb00012_lado_3_checkColumnConstraints {<BLOCK Name="fct.tmp2iptb00012_checkTableConstraints">} #+ Check constraints on the "tmp2iptb00012" table #+ #+ @param p_data - a row data LIKE tmp2iptb00012.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tmp2iptb00012_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tmp2iptb00012.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tmp2iptb00012_idtrx_checkColumnConstraints(p_data.idtrx) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmp2iptb00012_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmp2iptb00012_bodega_checkColumnConstraints(p_data.bodega) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmp2iptb00012_cod_seccion_checkColumnConstraints(p_data.cod_seccion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmp2iptb00012_cod_tramo_checkColumnConstraints(p_data.cod_tramo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmp2iptb00012_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmp2iptb00012_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmp2iptb00012_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmp2iptb00012_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmp2iptb00012_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmp2iptb00012_balance_checkColumnConstraints(p_data.balance) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmp2iptb00012_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmp2iptb00012_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmp2iptb00012_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmp2iptb00012_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmp2iptb00012_lado_1_checkColumnConstraints(p_data.lado_1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmp2iptb00012_lado_2_checkColumnConstraints(p_data.lado_2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tmp2iptb00012_lado_3_checkColumnConstraints(p_data.lado_3) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmp2iptb00012_checkTableConstraints {<BLOCK Name="fct.tmp2iptb00012_idtrx_checkColumnConstraints">} #+ Check constraints on the "tmp2iptb00012.idtrx" column #+ #+ @param p_idtrx - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmp2iptb00012_idtrx_checkColumnConstraints(p_idtrx) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_idtrx LIKE tmp2iptb00012.idtrx LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmp2iptb00012_idtrx_checkColumnConstraints {<BLOCK Name="fct.tmp2iptb00012_fecha_checkColumnConstraints">} #+ Check constraints on the "tmp2iptb00012.fecha" column #+ #+ @param p_fecha - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmp2iptb00012_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE tmp2iptb00012.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmp2iptb00012_fecha_checkColumnConstraints {<BLOCK Name="fct.tmp2iptb00012_bodega_checkColumnConstraints">} #+ Check constraints on the "tmp2iptb00012.bodega" column #+ #+ @param p_bodega - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmp2iptb00012_bodega_checkColumnConstraints(p_bodega) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_bodega LIKE tmp2iptb00012.bodega LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmp2iptb00012_bodega_checkColumnConstraints {<BLOCK Name="fct.tmp2iptb00012_cod_seccion_checkColumnConstraints">} #+ Check constraints on the "tmp2iptb00012.cod_seccion" column #+ #+ @param p_cod_seccion - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmp2iptb00012_cod_seccion_checkColumnConstraints(p_cod_seccion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_seccion LIKE tmp2iptb00012.cod_seccion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmp2iptb00012_cod_seccion_checkColumnConstraints {<BLOCK Name="fct.tmp2iptb00012_cod_tramo_checkColumnConstraints">} #+ Check constraints on the "tmp2iptb00012.cod_tramo" column #+ #+ @param p_cod_tramo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmp2iptb00012_cod_tramo_checkColumnConstraints(p_cod_tramo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tramo LIKE tmp2iptb00012.cod_tramo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmp2iptb00012_cod_tramo_checkColumnConstraints {<BLOCK Name="fct.tmp2iptb00012_cod_n_checkColumnConstraints">} #+ Check constraints on the "tmp2iptb00012.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmp2iptb00012_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE tmp2iptb00012.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmp2iptb00012_cod_n_checkColumnConstraints {<BLOCK Name="fct.tmp2iptb00012_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "tmp2iptb00012.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmp2iptb00012_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE tmp2iptb00012.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmp2iptb00012_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.tmp2iptb00012_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "tmp2iptb00012.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmp2iptb00012_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE tmp2iptb00012.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmp2iptb00012_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.tmp2iptb00012_cod_sec_checkColumnConstraints">} #+ Check constraints on the "tmp2iptb00012.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmp2iptb00012_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE tmp2iptb00012.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmp2iptb00012_cod_sec_checkColumnConstraints {<BLOCK Name="fct.tmp2iptb00012_cantidad_checkColumnConstraints">} #+ Check constraints on the "tmp2iptb00012.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmp2iptb00012_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE tmp2iptb00012.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmp2iptb00012_cantidad_checkColumnConstraints {<BLOCK Name="fct.tmp2iptb00012_balance_checkColumnConstraints">} #+ Check constraints on the "tmp2iptb00012.balance" column #+ #+ @param p_balance - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmp2iptb00012_balance_checkColumnConstraints(p_balance) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_balance LIKE tmp2iptb00012.balance LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmp2iptb00012_balance_checkColumnConstraints {<BLOCK Name="fct.tmp2iptb00012_us_crea_checkColumnConstraints">} #+ Check constraints on the "tmp2iptb00012.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmp2iptb00012_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE tmp2iptb00012.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmp2iptb00012_us_crea_checkColumnConstraints {<BLOCK Name="fct.tmp2iptb00012_fech_crea_checkColumnConstraints">} #+ Check constraints on the "tmp2iptb00012.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmp2iptb00012_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE tmp2iptb00012.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmp2iptb00012_fech_crea_checkColumnConstraints {<BLOCK Name="fct.tmp2iptb00012_us_mod_checkColumnConstraints">} #+ Check constraints on the "tmp2iptb00012.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmp2iptb00012_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE tmp2iptb00012.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmp2iptb00012_us_mod_checkColumnConstraints {<BLOCK Name="fct.tmp2iptb00012_fech_mod_checkColumnConstraints">} #+ Check constraints on the "tmp2iptb00012.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmp2iptb00012_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE tmp2iptb00012.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmp2iptb00012_fech_mod_checkColumnConstraints {<BLOCK Name="fct.tmp2iptb00012_lado_1_checkColumnConstraints">} #+ Check constraints on the "tmp2iptb00012.lado_1" column #+ #+ @param p_lado_1 - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmp2iptb00012_lado_1_checkColumnConstraints(p_lado_1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_lado_1 LIKE tmp2iptb00012.lado_1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmp2iptb00012_lado_1_checkColumnConstraints {<BLOCK Name="fct.tmp2iptb00012_lado_2_checkColumnConstraints">} #+ Check constraints on the "tmp2iptb00012.lado_2" column #+ #+ @param p_lado_2 - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmp2iptb00012_lado_2_checkColumnConstraints(p_lado_2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_lado_2 LIKE tmp2iptb00012.lado_2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmp2iptb00012_lado_2_checkColumnConstraints {<BLOCK Name="fct.tmp2iptb00012_lado_3_checkColumnConstraints">} #+ Check constraints on the "tmp2iptb00012.lado_3" column #+ #+ @param p_lado_3 - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tmp2iptb00012_lado_3_checkColumnConstraints(p_lado_3) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_lado_3 LIKE tmp2iptb00012.lado_3 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tmp2iptb00012_lado_3_checkColumnConstraints {<BLOCK Name="fct.tetb00006_checkTableConstraints">} #+ Check constraints on the "tetb00006" table #+ #+ @param p_data - a row data LIKE tetb00006.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tetb00006_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tetb00006.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tetb00006_cheque_no_checkColumnConstraints(p_data.cheque_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tetb00006_banco_checkColumnConstraints(p_data.banco) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tetb00006_codigo_checkColumnConstraints(p_data.codigo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tetb00006_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tetb00006_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tetb00006_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tetb00006_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tetb00006_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tetb00006_checkTableConstraints {<BLOCK Name="fct.tetb00006_cheque_no_checkColumnConstraints">} #+ Check constraints on the "tetb00006.cheque_no" column #+ #+ @param p_cheque_no - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tetb00006_cheque_no_checkColumnConstraints(p_cheque_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cheque_no LIKE tetb00006.cheque_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tetb00006_cheque_no_checkColumnConstraints {<BLOCK Name="fct.tetb00006_banco_checkColumnConstraints">} #+ Check constraints on the "tetb00006.banco" column #+ #+ @param p_banco - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tetb00006_banco_checkColumnConstraints(p_banco) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_banco LIKE tetb00006.banco LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tetb00006_banco_checkColumnConstraints {<BLOCK Name="fct.tetb00006_codigo_checkColumnConstraints">} #+ Check constraints on the "tetb00006.codigo" column #+ #+ @param p_codigo - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tetb00006_codigo_checkColumnConstraints(p_codigo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codigo LIKE tetb00006.codigo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tetb00006_codigo_checkColumnConstraints {<BLOCK Name="fct.tetb00006_status_t_checkColumnConstraints">} #+ Check constraints on the "tetb00006.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tetb00006_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE tetb00006.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tetb00006_status_t_checkColumnConstraints {<BLOCK Name="fct.tetb00006_us_crea_checkColumnConstraints">} #+ Check constraints on the "tetb00006.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tetb00006_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE tetb00006.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tetb00006_us_crea_checkColumnConstraints {<BLOCK Name="fct.tetb00006_fech_crea_checkColumnConstraints">} #+ Check constraints on the "tetb00006.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tetb00006_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE tetb00006.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tetb00006_fech_crea_checkColumnConstraints {<BLOCK Name="fct.tetb00006_us_mod_checkColumnConstraints">} #+ Check constraints on the "tetb00006.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tetb00006_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE tetb00006.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tetb00006_us_mod_checkColumnConstraints {<BLOCK Name="fct.tetb00006_fech_mod_checkColumnConstraints">} #+ Check constraints on the "tetb00006.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tetb00006_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE tetb00006.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tetb00006_fech_mod_checkColumnConstraints {<BLOCK Name="fct.tetb00003_checkTableConstraints">} #+ Check constraints on the "tetb00003" table #+ #+ @param p_data - a row data LIKE tetb00003.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_tetb00003_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE tetb00003.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_tetb00003_codigo_checkColumnConstraints(p_data.codigo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tetb00003_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tetb00003_tipo_checkColumnConstraints(p_data.tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tetb00003_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tetb00003_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tetb00003_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tetb00003_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_tetb00003_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tetb00003_checkTableConstraints {<BLOCK Name="fct.tetb00003_codigo_checkColumnConstraints">} #+ Check constraints on the "tetb00003.codigo" column #+ #+ @param p_codigo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tetb00003_codigo_checkColumnConstraints(p_codigo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codigo LIKE tetb00003.codigo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tetb00003_codigo_checkColumnConstraints {<BLOCK Name="fct.tetb00003_descripcion_checkColumnConstraints">} #+ Check constraints on the "tetb00003.descripcion" column #+ #+ @param p_descripcion - VARCHAR2(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tetb00003_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE tetb00003.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tetb00003_descripcion_checkColumnConstraints {<BLOCK Name="fct.tetb00003_tipo_checkColumnConstraints">} #+ Check constraints on the "tetb00003.tipo" column #+ #+ @param p_tipo - VARCHAR2(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tetb00003_tipo_checkColumnConstraints(p_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo LIKE tetb00003.tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tetb00003_tipo_checkColumnConstraints {<BLOCK Name="fct.tetb00003_status_t_checkColumnConstraints">} #+ Check constraints on the "tetb00003.status_t" column #+ #+ @param p_status_t - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tetb00003_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE tetb00003.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tetb00003_status_t_checkColumnConstraints {<BLOCK Name="fct.tetb00003_us_crea_checkColumnConstraints">} #+ Check constraints on the "tetb00003.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tetb00003_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE tetb00003.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tetb00003_us_crea_checkColumnConstraints {<BLOCK Name="fct.tetb00003_fech_crea_checkColumnConstraints">} #+ Check constraints on the "tetb00003.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tetb00003_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE tetb00003.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tetb00003_fech_crea_checkColumnConstraints {<BLOCK Name="fct.tetb00003_us_mod_checkColumnConstraints">} #+ Check constraints on the "tetb00003.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tetb00003_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE tetb00003.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tetb00003_us_mod_checkColumnConstraints {<BLOCK Name="fct.tetb00003_fech_mod_checkColumnConstraints">} #+ Check constraints on the "tetb00003.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_tetb00003_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE tetb00003.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.tetb00003_fech_mod_checkColumnConstraints {<BLOCK Name="fct.sysdiagrams_checkTableConstraints">} #+ Check constraints on the "sysdiagrams" table #+ #+ @param p_data - a row data LIKE sysdiagrams.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_sysdiagrams_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE sysdiagrams.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_sysdiagrams_name_checkColumnConstraints(p_data.name) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_sysdiagrams_principal_id_checkColumnConstraints(p_data.principal_id) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_sysdiagrams_diagram_id_checkColumnConstraints(p_data.diagram_id) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_sysdiagrams_version_checkColumnConstraints(p_data.version) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_sysdiagrams_definition_checkColumnConstraints(p_data.definition) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_sysdiagrams_pk__sysdiagr__c2b05b6156e8e7ab_checkUniqueConstraint(p_forUpdate, p_data.diagram_id) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_sysdiagrams_uk_principal_name_checkUniqueConstraint(p_forUpdate, p_data.principal_id, p_data.name, p_data.diagram_id) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.sysdiagrams_checkTableConstraints {<BLOCK Name="fct.sysdiagrams_pk__sysdiagr__c2b05b6156e8e7ab_checkUniqueConstraint">} #+ Check the primary key uniqueness constraint on the "sysdiagrams" #+ #+ @param p_key - Primary Key #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_sysdiagrams_pk__sysdiagr__c2b05b6156e8e7ab_checkUniqueConstraint(p_forUpdate, p_key) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_forUpdate BOOLEAN DEFINE p_key RECORD sysdiagrams_diagram_id LIKE sysdiagrams.diagram_id END RECORD DEFINE l_key RECORD sysdiagrams_diagram_id LIKE sysdiagrams.diagram_id 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 sysdiagrams.diagram_id = ? " let l_sqlQuery = "SELECT COUNT(*), diagram_id FROM sysdiagrams ", l_where, " GROUP BY diagram_id" PREPARE cur_sysdiagrams_pk__sysdiagr__c2b05b6156e8e7ab_checkUniqueConstraint FROM l_sqlQuery EXECUTE cur_sysdiagrams_pk__sysdiagr__c2b05b6156e8e7ab_checkUniqueConstraint INTO l_count, l_key.* USING p_key.* FREE cur_sysdiagrams_pk__sysdiagr__c2b05b6156e8e7ab_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- diagram_id: " || ERROR_BAM_00002) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.sysdiagrams_pk__sysdiagr__c2b05b6156e8e7ab_checkUniqueConstraint {<BLOCK Name="fct.sysdiagrams_uk_principal_name_checkUniqueConstraint">} #+ Check the index uniqueness constraint on the "sysdiagrams" #+ #+ @param p_data - Unique Index #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_sysdiagrams_uk_principal_name_checkUniqueConstraint(p_forUpdate, p_data, p_key) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD sysdiagrams_principal_id LIKE sysdiagrams.principal_id, sysdiagrams_name LIKE sysdiagrams.name END RECORD DEFINE l_key RECORD sysdiagrams_diagram_id LIKE sysdiagrams.diagram_id END RECORD DEFINE p_key RECORD sysdiagrams_diagram_id LIKE sysdiagrams.diagram_id 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 sysdiagrams.principal_id = ? AND sysdiagrams.name = ? " let l_sqlQuery = "SELECT COUNT(*), diagram_id FROM sysdiagrams ", l_where, " GROUP BY diagram_id" PREPARE cur_sysdiagrams_uk_principal_name_checkUniqueConstraint FROM l_sqlQuery EXECUTE cur_sysdiagrams_uk_principal_name_checkUniqueConstraint INTO l_count, l_key.* USING p_data.* FREE cur_sysdiagrams_uk_principal_name_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- principal_id + name: " || ERROR_BAM_00003) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.sysdiagrams_uk_principal_name_checkUniqueConstraint {<BLOCK Name="fct.sysdiagrams_name_checkColumnConstraints">} #+ Check constraints on the "sysdiagrams.name" column #+ #+ @param p_name - VARCHAR2(128) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_sysdiagrams_name_checkColumnConstraints(p_name) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_name LIKE sysdiagrams.name LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_name IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- name: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.sysdiagrams_name_checkColumnConstraints {<BLOCK Name="fct.sysdiagrams_principal_id_checkColumnConstraints">} #+ Check constraints on the "sysdiagrams.principal_id" column #+ #+ @param p_principal_id - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_sysdiagrams_principal_id_checkColumnConstraints(p_principal_id) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_principal_id LIKE sysdiagrams.principal_id LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_principal_id IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- principal_id: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.sysdiagrams_principal_id_checkColumnConstraints {<BLOCK Name="fct.sysdiagrams_diagram_id_checkColumnConstraints">} #+ Check constraints on the "sysdiagrams.diagram_id" column #+ #+ @param p_diagram_id - SERIAL - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_sysdiagrams_diagram_id_checkColumnConstraints(p_diagram_id) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_diagram_id LIKE sysdiagrams.diagram_id LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_diagram_id IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- diagram_id: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.sysdiagrams_diagram_id_checkColumnConstraints {<BLOCK Name="fct.sysdiagrams_version_checkColumnConstraints">} #+ Check constraints on the "sysdiagrams.version" column #+ #+ @param p_version - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_sysdiagrams_version_checkColumnConstraints(p_version) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_version LIKE sysdiagrams.version LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.sysdiagrams_version_checkColumnConstraints {<BLOCK Name="fct.sysdiagrams_definition_checkColumnConstraints">} #+ Check constraints on the "sysdiagrams.definition" column #+ #+ @param p_definition - BYTE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_sysdiagrams_definition_checkColumnConstraints(p_definition) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_definition LIKE sysdiagrams.definition LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.sysdiagrams_definition_checkColumnConstraints {<BLOCK Name="fct.supplier_checkTableConstraints">} #+ Check constraints on the "supplier" table #+ #+ @param p_data - a row data LIKE supplier.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_supplier_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE supplier.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_supplier_suppid_checkColumnConstraints(p_data.suppid) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_supplier_name_checkColumnConstraints(p_data.name) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_supplier_status_checkColumnConstraints(p_data.status) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_supplier_addr1_checkColumnConstraints(p_data.addr1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_supplier_addr2_checkColumnConstraints(p_data.addr2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_supplier_city_checkColumnConstraints(p_data.city) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_supplier_state_checkColumnConstraints(p_data.state) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_supplier_zip_checkColumnConstraints(p_data.zip) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_supplier_phone_checkColumnConstraints(p_data.phone) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.supplier_checkTableConstraints {<BLOCK Name="fct.supplier_suppid_checkColumnConstraints">} #+ Check constraints on the "supplier.suppid" column #+ #+ @param p_suppid - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_supplier_suppid_checkColumnConstraints(p_suppid) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_suppid LIKE supplier.suppid LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_suppid IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- suppid: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.supplier_suppid_checkColumnConstraints {<BLOCK Name="fct.supplier_name_checkColumnConstraints">} #+ Check constraints on the "supplier.name" column #+ #+ @param p_name - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_supplier_name_checkColumnConstraints(p_name) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_name LIKE supplier.name LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.supplier_name_checkColumnConstraints {<BLOCK Name="fct.supplier_status_checkColumnConstraints">} #+ Check constraints on the "supplier.status" column #+ #+ @param p_status - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_supplier_status_checkColumnConstraints(p_status) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status LIKE supplier.status LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_status IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- status: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.supplier_status_checkColumnConstraints {<BLOCK Name="fct.supplier_addr1_checkColumnConstraints">} #+ Check constraints on the "supplier.addr1" column #+ #+ @param p_addr1 - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_supplier_addr1_checkColumnConstraints(p_addr1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_addr1 LIKE supplier.addr1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.supplier_addr1_checkColumnConstraints {<BLOCK Name="fct.supplier_addr2_checkColumnConstraints">} #+ Check constraints on the "supplier.addr2" column #+ #+ @param p_addr2 - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_supplier_addr2_checkColumnConstraints(p_addr2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_addr2 LIKE supplier.addr2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.supplier_addr2_checkColumnConstraints {<BLOCK Name="fct.supplier_city_checkColumnConstraints">} #+ Check constraints on the "supplier.city" column #+ #+ @param p_city - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_supplier_city_checkColumnConstraints(p_city) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_city LIKE supplier.city LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.supplier_city_checkColumnConstraints {<BLOCK Name="fct.supplier_state_checkColumnConstraints">} #+ Check constraints on the "supplier.state" column #+ #+ @param p_state - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_supplier_state_checkColumnConstraints(p_state) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_state LIKE supplier.state LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.supplier_state_checkColumnConstraints {<BLOCK Name="fct.supplier_zip_checkColumnConstraints">} #+ Check constraints on the "supplier.zip" column #+ #+ @param p_zip - CHAR(5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_supplier_zip_checkColumnConstraints(p_zip) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_zip LIKE supplier.zip LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.supplier_zip_checkColumnConstraints {<BLOCK Name="fct.supplier_phone_checkColumnConstraints">} #+ Check constraints on the "supplier.phone" column #+ #+ @param p_phone - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_supplier_phone_checkColumnConstraints(p_phone) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_phone LIKE supplier.phone LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.supplier_phone_checkColumnConstraints {<BLOCK Name="fct.sucursales_checkTableConstraints">} #+ Check constraints on the "sucursales" table #+ #+ @param p_data - a row data LIKE sucursales.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_sucursales_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE sucursales.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_sucursales_sucid_checkColumnConstraints(p_data.sucid) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_sucursales_sucnombre_checkColumnConstraints(p_data.sucnombre) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_sucursales_localidad_checkColumnConstraints(p_data.localidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_sucursales_pais_checkColumnConstraints(p_data.pais) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_sucursales_zona_checkColumnConstraints(p_data.zona) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_sucursales_direccion_checkColumnConstraints(p_data.direccion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_sucursales_telefono_checkColumnConstraints(p_data.telefono) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_sucursales_url_checkColumnConstraints(p_data.url) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_sucursales_email_checkColumnConstraints(p_data.email) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.sucursales_checkTableConstraints {<BLOCK Name="fct.sucursales_sucid_checkColumnConstraints">} #+ Check constraints on the "sucursales.sucid" column #+ #+ @param p_sucid - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_sucursales_sucid_checkColumnConstraints(p_sucid) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sucid LIKE sucursales.sucid LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_sucid IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- sucid: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.sucursales_sucid_checkColumnConstraints {<BLOCK Name="fct.sucursales_sucnombre_checkColumnConstraints">} #+ Check constraints on the "sucursales.sucnombre" column #+ #+ @param p_sucnombre - VARCHAR2(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_sucursales_sucnombre_checkColumnConstraints(p_sucnombre) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sucnombre LIKE sucursales.sucnombre LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_sucnombre IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- sucnombre: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.sucursales_sucnombre_checkColumnConstraints {<BLOCK Name="fct.sucursales_localidad_checkColumnConstraints">} #+ Check constraints on the "sucursales.localidad" column #+ #+ @param p_localidad - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_sucursales_localidad_checkColumnConstraints(p_localidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_localidad LIKE sucursales.localidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.sucursales_localidad_checkColumnConstraints {<BLOCK Name="fct.sucursales_pais_checkColumnConstraints">} #+ Check constraints on the "sucursales.pais" column #+ #+ @param p_pais - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_sucursales_pais_checkColumnConstraints(p_pais) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_pais LIKE sucursales.pais LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.sucursales_pais_checkColumnConstraints {<BLOCK Name="fct.sucursales_zona_checkColumnConstraints">} #+ Check constraints on the "sucursales.zona" column #+ #+ @param p_zona - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_sucursales_zona_checkColumnConstraints(p_zona) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_zona LIKE sucursales.zona LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.sucursales_zona_checkColumnConstraints {<BLOCK Name="fct.sucursales_direccion_checkColumnConstraints">} #+ Check constraints on the "sucursales.direccion" column #+ #+ @param p_direccion - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_sucursales_direccion_checkColumnConstraints(p_direccion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_direccion LIKE sucursales.direccion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.sucursales_direccion_checkColumnConstraints {<BLOCK Name="fct.sucursales_telefono_checkColumnConstraints">} #+ Check constraints on the "sucursales.telefono" column #+ #+ @param p_telefono - CHAR(15) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_sucursales_telefono_checkColumnConstraints(p_telefono) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_telefono LIKE sucursales.telefono LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.sucursales_telefono_checkColumnConstraints {<BLOCK Name="fct.sucursales_url_checkColumnConstraints">} #+ Check constraints on the "sucursales.url" column #+ #+ @param p_url - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_sucursales_url_checkColumnConstraints(p_url) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_url LIKE sucursales.url LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.sucursales_url_checkColumnConstraints {<BLOCK Name="fct.sucursales_email_checkColumnConstraints">} #+ Check constraints on the "sucursales.email" column #+ #+ @param p_email - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_sucursales_email_checkColumnConstraints(p_email) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_email LIKE sucursales.email LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.sucursales_email_checkColumnConstraints {<BLOCK Name="fct.signon_checkTableConstraints">} #+ Check constraints on the "signon" table #+ #+ @param p_data - a row data LIKE signon.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_signon_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE signon.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_signon_userid_checkColumnConstraints(p_data.userid) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_signon_password_checkColumnConstraints(p_data.password) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.signon_checkTableConstraints {<BLOCK Name="fct.signon_userid_checkColumnConstraints">} #+ Check constraints on the "signon.userid" column #+ #+ @param p_userid - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_signon_userid_checkColumnConstraints(p_userid) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_userid LIKE signon.userid LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_userid IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- userid: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.signon_userid_checkColumnConstraints {<BLOCK Name="fct.signon_password_checkColumnConstraints">} #+ Check constraints on the "signon.password" column #+ #+ @param p_password - CHAR(25) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_signon_password_checkColumnConstraints(p_password) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_password LIKE signon.password LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_password IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- password: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.signon_password_checkColumnConstraints {<BLOCK Name="fct.sheet1_checkTableConstraints">} #+ Check constraints on the "sheet1" table #+ #+ @param p_data - a row data LIKE sheet1.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_sheet1_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE sheet1.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_sheet1_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_sheet1_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.sheet1_checkTableConstraints {<BLOCK Name="fct.sheet1_cod_sec_checkColumnConstraints">} #+ Check constraints on the "sheet1.cod_sec" column #+ #+ @param p_cod_sec - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_sheet1_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE sheet1.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.sheet1_cod_sec_checkColumnConstraints {<BLOCK Name="fct.sheet1_descripcion_checkColumnConstraints">} #+ Check constraints on the "sheet1.descripcion" column #+ #+ @param p_descripcion - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_sheet1_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE sheet1.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.sheet1_descripcion_checkColumnConstraints {<BLOCK Name="fct.seqreg_checkTableConstraints">} #+ Check constraints on the "seqreg" table #+ #+ @param p_data - a row data LIKE seqreg.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_seqreg_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE seqreg.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_seqreg_sr_name_checkColumnConstraints(p_data.sr_name) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_seqreg_sr_last_checkColumnConstraints(p_data.sr_last) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seqreg_checkTableConstraints {<BLOCK Name="fct.seqreg_sr_name_checkColumnConstraints">} #+ Check constraints on the "seqreg.sr_name" column #+ #+ @param p_sr_name - VARCHAR2(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seqreg_sr_name_checkColumnConstraints(p_sr_name) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sr_name LIKE seqreg.sr_name LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_sr_name IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- sr_name: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seqreg_sr_name_checkColumnConstraints {<BLOCK Name="fct.seqreg_sr_last_checkColumnConstraints">} #+ Check constraints on the "seqreg.sr_last" column #+ #+ @param p_sr_last - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seqreg_sr_last_checkColumnConstraints(p_sr_last) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sr_last LIKE seqreg.sr_last LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_sr_last IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- sr_last: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seqreg_sr_last_checkColumnConstraints {<BLOCK Name="fct.seg0007_checkTableConstraints">} #+ Check constraints on the "seg0007" table #+ #+ @param p_data - a row data LIKE seg0007.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_seg0007_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE seg0007.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_seg0007_usuario_checkColumnConstraints(p_data.usuario) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_seg0007_nombre_checkColumnConstraints(p_data.nombre) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_seg0007_sec_vend_checkColumnConstraints(p_data.sec_vend) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_seg0007_tipo_usuario_checkColumnConstraints(p_data.tipo_usuario) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_seg0007_pk_seg0007_checkUniqueConstraint(p_forUpdate, p_data.usuario, p_data.sec_vend) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0007_checkTableConstraints {<BLOCK Name="fct.seg0007_pk_seg0007_checkUniqueConstraint">} #+ Check the primary key uniqueness constraint on the "seg0007" #+ #+ @param p_key - Primary Key #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0007_pk_seg0007_checkUniqueConstraint(p_forUpdate, p_key) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_forUpdate BOOLEAN DEFINE p_key RECORD seg0007_usuario LIKE seg0007.usuario, seg0007_sec_vend LIKE seg0007.sec_vend END RECORD DEFINE l_key RECORD seg0007_usuario LIKE seg0007.usuario, seg0007_sec_vend LIKE seg0007.sec_vend 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 seg0007.usuario = ? AND seg0007.sec_vend = ? " let l_sqlQuery = "SELECT COUNT(*), usuario, sec_vend FROM seg0007 ", l_where, " GROUP BY usuario, sec_vend" PREPARE cur_seg0007_pk_seg0007_checkUniqueConstraint FROM l_sqlQuery EXECUTE cur_seg0007_pk_seg0007_checkUniqueConstraint INTO l_count, l_key.* USING p_key.* FREE cur_seg0007_pk_seg0007_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- usuario + sec_vend: " || ERROR_BAM_00002) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0007_pk_seg0007_checkUniqueConstraint {<BLOCK Name="fct.seg0007_usuario_checkColumnConstraints">} #+ Check constraints on the "seg0007.usuario" column #+ #+ @param p_usuario - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0007_usuario_checkColumnConstraints(p_usuario) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_usuario LIKE seg0007.usuario LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_usuario IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- usuario: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0007_usuario_checkColumnConstraints {<BLOCK Name="fct.seg0007_nombre_checkColumnConstraints">} #+ Check constraints on the "seg0007.nombre" column #+ #+ @param p_nombre - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0007_nombre_checkColumnConstraints(p_nombre) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombre LIKE seg0007.nombre LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0007_nombre_checkColumnConstraints {<BLOCK Name="fct.seg0007_sec_vend_checkColumnConstraints">} #+ Check constraints on the "seg0007.sec_vend" column #+ #+ @param p_sec_vend - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0007_sec_vend_checkColumnConstraints(p_sec_vend) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_vend LIKE seg0007.sec_vend LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_sec_vend IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- sec_vend: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0007_sec_vend_checkColumnConstraints {<BLOCK Name="fct.seg0007_tipo_usuario_checkColumnConstraints">} #+ Check constraints on the "seg0007.tipo_usuario" column #+ #+ @param p_tipo_usuario - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0007_tipo_usuario_checkColumnConstraints(p_tipo_usuario) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_usuario LIKE seg0007.tipo_usuario LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_tipo_usuario IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- tipo_usuario: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0007_tipo_usuario_checkColumnConstraints {<BLOCK Name="fct.seg0006_checkTableConstraints">} #+ Check constraints on the "seg0006" table #+ #+ @param p_data - a row data LIKE seg0006.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_seg0006_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE seg0006.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_seg0006_usuario_checkColumnConstraints(p_data.usuario) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_seg0006_session_checkColumnConstraints(p_data.session) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_seg0006_fecha_session_checkColumnConstraints(p_data.fecha_session) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0006_checkTableConstraints {<BLOCK Name="fct.seg0006_usuario_checkColumnConstraints">} #+ Check constraints on the "seg0006.usuario" column #+ #+ @param p_usuario - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0006_usuario_checkColumnConstraints(p_usuario) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_usuario LIKE seg0006.usuario LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0006_usuario_checkColumnConstraints {<BLOCK Name="fct.seg0006_session_checkColumnConstraints">} #+ Check constraints on the "seg0006.session" column #+ #+ @param p_session - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0006_session_checkColumnConstraints(p_session) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_session LIKE seg0006.session LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0006_session_checkColumnConstraints {<BLOCK Name="fct.seg0006_fecha_session_checkColumnConstraints">} #+ Check constraints on the "seg0006.fecha_session" column #+ #+ @param p_fecha_session - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0006_fecha_session_checkColumnConstraints(p_fecha_session) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_session LIKE seg0006.fecha_session LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0006_fecha_session_checkColumnConstraints {<BLOCK Name="fct.seg0005_checkTableConstraints">} #+ Check constraints on the "seg0005" table #+ #+ @param p_data - a row data LIKE seg0005.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_seg0005_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE seg0005.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_seg0005_cod_perfil_checkColumnConstraints(p_data.cod_perfil) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_seg0005_programa_checkColumnConstraints(p_data.programa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_seg0005_sistema_checkColumnConstraints(p_data.sistema) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_seg0005_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0005_checkTableConstraints {<BLOCK Name="fct.seg0005_cod_perfil_checkColumnConstraints">} #+ Check constraints on the "seg0005.cod_perfil" column #+ #+ @param p_cod_perfil - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0005_cod_perfil_checkColumnConstraints(p_cod_perfil) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_perfil LIKE seg0005.cod_perfil LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0005_cod_perfil_checkColumnConstraints {<BLOCK Name="fct.seg0005_programa_checkColumnConstraints">} #+ Check constraints on the "seg0005.programa" column #+ #+ @param p_programa - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0005_programa_checkColumnConstraints(p_programa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_programa LIKE seg0005.programa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0005_programa_checkColumnConstraints {<BLOCK Name="fct.seg0005_sistema_checkColumnConstraints">} #+ Check constraints on the "seg0005.sistema" column #+ #+ @param p_sistema - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0005_sistema_checkColumnConstraints(p_sistema) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sistema LIKE seg0005.sistema LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0005_sistema_checkColumnConstraints {<BLOCK Name="fct.seg0005_descripcion_checkColumnConstraints">} #+ Check constraints on the "seg0005.descripcion" column #+ #+ @param p_descripcion - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0005_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE seg0005.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0005_descripcion_checkColumnConstraints {<BLOCK Name="fct.seg0004_checkTableConstraints">} #+ Check constraints on the "seg0004" table #+ #+ @param p_data - a row data LIKE seg0004.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_seg0004_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE seg0004.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_seg0004_programa_checkColumnConstraints(p_data.programa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_seg0004_sistema_checkColumnConstraints(p_data.sistema) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_seg0004_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0004_checkTableConstraints {<BLOCK Name="fct.seg0004_programa_checkColumnConstraints">} #+ Check constraints on the "seg0004.programa" column #+ #+ @param p_programa - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0004_programa_checkColumnConstraints(p_programa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_programa LIKE seg0004.programa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0004_programa_checkColumnConstraints {<BLOCK Name="fct.seg0004_sistema_checkColumnConstraints">} #+ Check constraints on the "seg0004.sistema" column #+ #+ @param p_sistema - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0004_sistema_checkColumnConstraints(p_sistema) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sistema LIKE seg0004.sistema LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0004_sistema_checkColumnConstraints {<BLOCK Name="fct.seg0004_descripcion_checkColumnConstraints">} #+ Check constraints on the "seg0004.descripcion" column #+ #+ @param p_descripcion - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0004_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE seg0004.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0004_descripcion_checkColumnConstraints {<BLOCK Name="fct.seg0003_checkTableConstraints">} #+ Check constraints on the "seg0003" table #+ #+ @param p_data - a row data LIKE seg0003.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_seg0003_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE seg0003.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_seg0003_usuario_checkColumnConstraints(p_data.usuario) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_seg0003_nom_puesto_checkColumnConstraints(p_data.nom_puesto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_seg0003_autorizaciondespacho_checkColumnConstraints(p_data.autorizaciondespacho) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_seg0003_controldespacho_checkColumnConstraints(p_data.controldespacho) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_seg0003_controldespiece_checkColumnConstraints(p_data.controldespiece) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_seg0003_controldibujo_checkColumnConstraints(p_data.controldibujo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_seg0003_controldescuento_checkColumnConstraints(p_data.controldescuento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_seg0003_correo_checkColumnConstraints(p_data.correo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0003_checkTableConstraints {<BLOCK Name="fct.seg0003_usuario_checkColumnConstraints">} #+ Check constraints on the "seg0003.usuario" column #+ #+ @param p_usuario - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0003_usuario_checkColumnConstraints(p_usuario) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_usuario LIKE seg0003.usuario LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0003_usuario_checkColumnConstraints {<BLOCK Name="fct.seg0003_nom_puesto_checkColumnConstraints">} #+ Check constraints on the "seg0003.nom_puesto" column #+ #+ @param p_nom_puesto - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0003_nom_puesto_checkColumnConstraints(p_nom_puesto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nom_puesto LIKE seg0003.nom_puesto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0003_nom_puesto_checkColumnConstraints {<BLOCK Name="fct.seg0003_autorizaciondespacho_checkColumnConstraints">} #+ Check constraints on the "seg0003.autorizaciondespacho" column #+ #+ @param p_autorizaciondespacho - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0003_autorizaciondespacho_checkColumnConstraints(p_autorizaciondespacho) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_autorizaciondespacho LIKE seg0003.autorizaciondespacho LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0003_autorizaciondespacho_checkColumnConstraints {<BLOCK Name="fct.seg0003_controldespacho_checkColumnConstraints">} #+ Check constraints on the "seg0003.controldespacho" column #+ #+ @param p_controldespacho - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0003_controldespacho_checkColumnConstraints(p_controldespacho) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_controldespacho LIKE seg0003.controldespacho LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0003_controldespacho_checkColumnConstraints {<BLOCK Name="fct.seg0003_controldespiece_checkColumnConstraints">} #+ Check constraints on the "seg0003.controldespiece" column #+ #+ @param p_controldespiece - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0003_controldespiece_checkColumnConstraints(p_controldespiece) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_controldespiece LIKE seg0003.controldespiece LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0003_controldespiece_checkColumnConstraints {<BLOCK Name="fct.seg0003_controldibujo_checkColumnConstraints">} #+ Check constraints on the "seg0003.controldibujo" column #+ #+ @param p_controldibujo - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0003_controldibujo_checkColumnConstraints(p_controldibujo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_controldibujo LIKE seg0003.controldibujo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0003_controldibujo_checkColumnConstraints {<BLOCK Name="fct.seg0003_controldescuento_checkColumnConstraints">} #+ Check constraints on the "seg0003.controldescuento" column #+ #+ @param p_controldescuento - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0003_controldescuento_checkColumnConstraints(p_controldescuento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_controldescuento LIKE seg0003.controldescuento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0003_controldescuento_checkColumnConstraints {<BLOCK Name="fct.seg0003_correo_checkColumnConstraints">} #+ Check constraints on the "seg0003.correo" column #+ #+ @param p_correo - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0003_correo_checkColumnConstraints(p_correo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_correo LIKE seg0003.correo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0003_correo_checkColumnConstraints {<BLOCK Name="fct.seg0001_checkTableConstraints">} #+ Check constraints on the "seg0001" table #+ #+ @param p_data - a row data LIKE seg0001.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_seg0001_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE seg0001.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_seg0001_usuario_checkColumnConstraints(p_data.usuario) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_seg0001_cod_perfil_checkColumnConstraints(p_data.cod_perfil) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_seg0001_observacion_checkColumnConstraints(p_data.observacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_seg0001_printerdefecto_checkColumnConstraints(p_data.printerdefecto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_seg0001_otro_printer_checkColumnConstraints(p_data.otro_printer) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_seg0001_printer_cheque_checkColumnConstraints(p_data.printer_cheque) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_seg0001_cambia_clave_checkColumnConstraints(p_data.cambia_clave) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_seg0001_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_seg0001_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_seg0001_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_seg0001_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_seg0001_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_seg0001_sucid_checkColumnConstraints(p_data.sucid) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0001_checkTableConstraints {<BLOCK Name="fct.seg0001_usuario_checkColumnConstraints">} #+ Check constraints on the "seg0001.usuario" column #+ #+ @param p_usuario - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0001_usuario_checkColumnConstraints(p_usuario) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_usuario LIKE seg0001.usuario LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0001_usuario_checkColumnConstraints {<BLOCK Name="fct.seg0001_cod_perfil_checkColumnConstraints">} #+ Check constraints on the "seg0001.cod_perfil" column #+ #+ @param p_cod_perfil - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0001_cod_perfil_checkColumnConstraints(p_cod_perfil) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_perfil LIKE seg0001.cod_perfil LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0001_cod_perfil_checkColumnConstraints {<BLOCK Name="fct.seg0001_observacion_checkColumnConstraints">} #+ Check constraints on the "seg0001.observacion" column #+ #+ @param p_observacion - CHAR(70) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0001_observacion_checkColumnConstraints(p_observacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_observacion LIKE seg0001.observacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0001_observacion_checkColumnConstraints {<BLOCK Name="fct.seg0001_printerdefecto_checkColumnConstraints">} #+ Check constraints on the "seg0001.printerdefecto" column #+ #+ @param p_printerdefecto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0001_printerdefecto_checkColumnConstraints(p_printerdefecto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_printerdefecto LIKE seg0001.printerdefecto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0001_printerdefecto_checkColumnConstraints {<BLOCK Name="fct.seg0001_otro_printer_checkColumnConstraints">} #+ Check constraints on the "seg0001.otro_printer" column #+ #+ @param p_otro_printer - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0001_otro_printer_checkColumnConstraints(p_otro_printer) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_otro_printer LIKE seg0001.otro_printer LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0001_otro_printer_checkColumnConstraints {<BLOCK Name="fct.seg0001_printer_cheque_checkColumnConstraints">} #+ Check constraints on the "seg0001.printer_cheque" column #+ #+ @param p_printer_cheque - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0001_printer_cheque_checkColumnConstraints(p_printer_cheque) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_printer_cheque LIKE seg0001.printer_cheque LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0001_printer_cheque_checkColumnConstraints {<BLOCK Name="fct.seg0001_cambia_clave_checkColumnConstraints">} #+ Check constraints on the "seg0001.cambia_clave" column #+ #+ @param p_cambia_clave - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0001_cambia_clave_checkColumnConstraints(p_cambia_clave) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cambia_clave LIKE seg0001.cambia_clave LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0001_cambia_clave_checkColumnConstraints {<BLOCK Name="fct.seg0001_status_t_checkColumnConstraints">} #+ Check constraints on the "seg0001.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0001_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE seg0001.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0001_status_t_checkColumnConstraints {<BLOCK Name="fct.seg0001_us_crea_checkColumnConstraints">} #+ Check constraints on the "seg0001.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0001_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE seg0001.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0001_us_crea_checkColumnConstraints {<BLOCK Name="fct.seg0001_fech_crea_checkColumnConstraints">} #+ Check constraints on the "seg0001.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0001_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE seg0001.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0001_fech_crea_checkColumnConstraints {<BLOCK Name="fct.seg0001_us_mod_checkColumnConstraints">} #+ Check constraints on the "seg0001.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0001_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE seg0001.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0001_us_mod_checkColumnConstraints {<BLOCK Name="fct.seg0001_fech_mod_checkColumnConstraints">} #+ Check constraints on the "seg0001.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0001_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE seg0001.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0001_fech_mod_checkColumnConstraints {<BLOCK Name="fct.seg0001_sucid_checkColumnConstraints">} #+ Check constraints on the "seg0001.sucid" column #+ #+ @param p_sucid - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0001_sucid_checkColumnConstraints(p_sucid) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sucid LIKE seg0001.sucid LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0001_sucid_checkColumnConstraints {<BLOCK Name="fct.seg0000_checkTableConstraints">} #+ Check constraints on the "seg0000" table #+ #+ @param p_data - a row data LIKE seg0000.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_seg0000_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE seg0000.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_seg0000_id_number_checkColumnConstraints(p_data.id_number) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_seg0000_usuario_checkColumnConstraints(p_data.usuario) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_seg0000_nombre_checkColumnConstraints(p_data.nombre) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_seg0000_sec_vend_checkColumnConstraints(p_data.sec_vend) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_seg0000_password_checkColumnConstraints(p_data.password) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_seg0000_ocupacion_checkColumnConstraints(p_data.ocupacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_seg0000_email_checkColumnConstraints(p_data.email) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_seg0000_celular_checkColumnConstraints(p_data.celular) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_seg0000_celular2_checkColumnConstraints(p_data.celular2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_seg0000_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_seg0000_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_seg0000_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_seg0000_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_seg0000_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0000_checkTableConstraints {<BLOCK Name="fct.seg0000_id_number_checkColumnConstraints">} #+ Check constraints on the "seg0000.id_number" column #+ #+ @param p_id_number - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0000_id_number_checkColumnConstraints(p_id_number) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_id_number LIKE seg0000.id_number LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0000_id_number_checkColumnConstraints {<BLOCK Name="fct.seg0000_usuario_checkColumnConstraints">} #+ Check constraints on the "seg0000.usuario" column #+ #+ @param p_usuario - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0000_usuario_checkColumnConstraints(p_usuario) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_usuario LIKE seg0000.usuario LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0000_usuario_checkColumnConstraints {<BLOCK Name="fct.seg0000_nombre_checkColumnConstraints">} #+ Check constraints on the "seg0000.nombre" column #+ #+ @param p_nombre - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0000_nombre_checkColumnConstraints(p_nombre) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombre LIKE seg0000.nombre LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0000_nombre_checkColumnConstraints {<BLOCK Name="fct.seg0000_sec_vend_checkColumnConstraints">} #+ Check constraints on the "seg0000.sec_vend" column #+ #+ @param p_sec_vend - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0000_sec_vend_checkColumnConstraints(p_sec_vend) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_vend LIKE seg0000.sec_vend LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0000_sec_vend_checkColumnConstraints {<BLOCK Name="fct.seg0000_password_checkColumnConstraints">} #+ Check constraints on the "seg0000.password" column #+ #+ @param p_password - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0000_password_checkColumnConstraints(p_password) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_password LIKE seg0000.password LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0000_password_checkColumnConstraints {<BLOCK Name="fct.seg0000_ocupacion_checkColumnConstraints">} #+ Check constraints on the "seg0000.ocupacion" column #+ #+ @param p_ocupacion - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0000_ocupacion_checkColumnConstraints(p_ocupacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ocupacion LIKE seg0000.ocupacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0000_ocupacion_checkColumnConstraints {<BLOCK Name="fct.seg0000_email_checkColumnConstraints">} #+ Check constraints on the "seg0000.email" column #+ #+ @param p_email - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0000_email_checkColumnConstraints(p_email) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_email LIKE seg0000.email LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0000_email_checkColumnConstraints {<BLOCK Name="fct.seg0000_celular_checkColumnConstraints">} #+ Check constraints on the "seg0000.celular" column #+ #+ @param p_celular - CHAR(15) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0000_celular_checkColumnConstraints(p_celular) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_celular LIKE seg0000.celular LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0000_celular_checkColumnConstraints {<BLOCK Name="fct.seg0000_celular2_checkColumnConstraints">} #+ Check constraints on the "seg0000.celular2" column #+ #+ @param p_celular2 - CHAR(15) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0000_celular2_checkColumnConstraints(p_celular2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_celular2 LIKE seg0000.celular2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0000_celular2_checkColumnConstraints {<BLOCK Name="fct.seg0000_status_t_checkColumnConstraints">} #+ Check constraints on the "seg0000.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0000_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE seg0000.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0000_status_t_checkColumnConstraints {<BLOCK Name="fct.seg0000_us_crea_checkColumnConstraints">} #+ Check constraints on the "seg0000.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0000_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE seg0000.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0000_us_crea_checkColumnConstraints {<BLOCK Name="fct.seg0000_fech_crea_checkColumnConstraints">} #+ Check constraints on the "seg0000.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0000_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE seg0000.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0000_fech_crea_checkColumnConstraints {<BLOCK Name="fct.seg0000_us_mod_checkColumnConstraints">} #+ Check constraints on the "seg0000.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0000_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE seg0000.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0000_us_mod_checkColumnConstraints {<BLOCK Name="fct.seg0000_fech_mod_checkColumnConstraints">} #+ Check constraints on the "seg0000.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_seg0000_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE seg0000.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.seg0000_fech_mod_checkColumnConstraints {<BLOCK Name="fct.repitecodigotmp_checkTableConstraints">} #+ Check constraints on the "repitecodigotmp" table #+ #+ @param p_data - a row data LIKE repitecodigotmp.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_repitecodigotmp_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE repitecodigotmp.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_repitecodigotmp_documento_checkColumnConstraints(p_data.documento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_repitecodigotmp_tipo_doc_checkColumnConstraints(p_data.tipo_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.repitecodigotmp_checkTableConstraints {<BLOCK Name="fct.repitecodigotmp_documento_checkColumnConstraints">} #+ Check constraints on the "repitecodigotmp.documento" column #+ #+ @param p_documento - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_repitecodigotmp_documento_checkColumnConstraints(p_documento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_documento LIKE repitecodigotmp.documento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.repitecodigotmp_documento_checkColumnConstraints {<BLOCK Name="fct.repitecodigotmp_tipo_doc_checkColumnConstraints">} #+ Check constraints on the "repitecodigotmp.tipo_doc" column #+ #+ @param p_tipo_doc - CHAR(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_repitecodigotmp_tipo_doc_checkColumnConstraints(p_tipo_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_doc LIKE repitecodigotmp.tipo_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.repitecodigotmp_tipo_doc_checkColumnConstraints {<BLOCK Name="fct.repitecodigo_checkTableConstraints">} #+ Check constraints on the "repitecodigo" table #+ #+ @param p_data - a row data LIKE repitecodigo.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_repitecodigo_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE repitecodigo.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_repitecodigo_documento_checkColumnConstraints(p_data.documento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_repitecodigo_tipo_doc_checkColumnConstraints(p_data.tipo_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_repitecodigo_codigo_checkColumnConstraints(p_data.codigo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_repitecodigo_codid_checkColumnConstraints(p_data.codid) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_repitecodigo_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_repitecodigo_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_repitecodigo_pk_repitecodigo_checkUniqueConstraint(p_forUpdate, p_data.documento, p_data.tipo_doc, p_data.codigo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.repitecodigo_checkTableConstraints {<BLOCK Name="fct.repitecodigo_pk_repitecodigo_checkUniqueConstraint">} #+ Check the primary key uniqueness constraint on the "repitecodigo" #+ #+ @param p_key - Primary Key #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_repitecodigo_pk_repitecodigo_checkUniqueConstraint(p_forUpdate, p_key) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_forUpdate BOOLEAN DEFINE p_key RECORD repitecodigo_documento LIKE repitecodigo.documento, repitecodigo_tipo_doc LIKE repitecodigo.tipo_doc, repitecodigo_codigo LIKE repitecodigo.codigo END RECORD DEFINE l_key RECORD repitecodigo_documento LIKE repitecodigo.documento, repitecodigo_tipo_doc LIKE repitecodigo.tipo_doc, repitecodigo_codigo LIKE repitecodigo.codigo 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 repitecodigo.documento = ? AND repitecodigo.tipo_doc = ? AND repitecodigo.codigo = ? " let l_sqlQuery = "SELECT COUNT(*), documento, tipo_doc, codigo FROM repitecodigo ", l_where, " GROUP BY documento, tipo_doc, codigo" PREPARE cur_repitecodigo_pk_repitecodigo_checkUniqueConstraint FROM l_sqlQuery EXECUTE cur_repitecodigo_pk_repitecodigo_checkUniqueConstraint INTO l_count, l_key.* USING p_key.* FREE cur_repitecodigo_pk_repitecodigo_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- documento + tipo_doc + codigo: " || ERROR_BAM_00002) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.repitecodigo_pk_repitecodigo_checkUniqueConstraint {<BLOCK Name="fct.repitecodigo_documento_checkColumnConstraints">} #+ Check constraints on the "repitecodigo.documento" column #+ #+ @param p_documento - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_repitecodigo_documento_checkColumnConstraints(p_documento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_documento LIKE repitecodigo.documento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_documento IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- documento: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.repitecodigo_documento_checkColumnConstraints {<BLOCK Name="fct.repitecodigo_tipo_doc_checkColumnConstraints">} #+ Check constraints on the "repitecodigo.tipo_doc" column #+ #+ @param p_tipo_doc - CHAR(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_repitecodigo_tipo_doc_checkColumnConstraints(p_tipo_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_doc LIKE repitecodigo.tipo_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_tipo_doc IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- tipo_doc: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.repitecodigo_tipo_doc_checkColumnConstraints {<BLOCK Name="fct.repitecodigo_codigo_checkColumnConstraints">} #+ Check constraints on the "repitecodigo.codigo" column #+ #+ @param p_codigo - CHAR(25) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_repitecodigo_codigo_checkColumnConstraints(p_codigo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codigo LIKE repitecodigo.codigo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_codigo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- codigo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.repitecodigo_codigo_checkColumnConstraints {<BLOCK Name="fct.repitecodigo_codid_checkColumnConstraints">} #+ Check constraints on the "repitecodigo.codid" column #+ #+ @param p_codid - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_repitecodigo_codid_checkColumnConstraints(p_codid) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codid LIKE repitecodigo.codid LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.repitecodigo_codid_checkColumnConstraints {<BLOCK Name="fct.repitecodigo_us_crea_checkColumnConstraints">} #+ Check constraints on the "repitecodigo.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_repitecodigo_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE repitecodigo.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.repitecodigo_us_crea_checkColumnConstraints {<BLOCK Name="fct.repitecodigo_fech_crea_checkColumnConstraints">} #+ Check constraints on the "repitecodigo.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_repitecodigo_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE repitecodigo.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.repitecodigo_fech_crea_checkColumnConstraints {<BLOCK Name="fct.ranking_checkTableConstraints">} #+ Check constraints on the "ranking" table #+ #+ @param p_data - a row data LIKE ranking.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_ranking_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE ranking.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_ranking_rankingact_checkColumnConstraints(p_data.rankingact) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ranking_rankingant_checkColumnConstraints(p_data.rankingant) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ranking_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ranking_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ranking_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ranking_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ranking_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ranking_unidad_med_checkColumnConstraints(p_data.unidad_med) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ranking_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ranking_valor_checkColumnConstraints(p_data.valor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ranking_cantidad_ant_checkColumnConstraints(p_data.cantidad_ant) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ranking_valor_ant_checkColumnConstraints(p_data.valor_ant) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ranking_checkTableConstraints {<BLOCK Name="fct.ranking_rankingact_checkColumnConstraints">} #+ Check constraints on the "ranking.rankingact" column #+ #+ @param p_rankingact - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ranking_rankingact_checkColumnConstraints(p_rankingact) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_rankingact LIKE ranking.rankingact LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ranking_rankingact_checkColumnConstraints {<BLOCK Name="fct.ranking_rankingant_checkColumnConstraints">} #+ Check constraints on the "ranking.rankingant" column #+ #+ @param p_rankingant - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ranking_rankingant_checkColumnConstraints(p_rankingant) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_rankingant LIKE ranking.rankingant LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ranking_rankingant_checkColumnConstraints {<BLOCK Name="fct.ranking_cod_n_checkColumnConstraints">} #+ Check constraints on the "ranking.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ranking_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE ranking.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ranking_cod_n_checkColumnConstraints {<BLOCK Name="fct.ranking_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "ranking.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ranking_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE ranking.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ranking_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.ranking_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "ranking.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ranking_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE ranking.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ranking_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.ranking_cod_sec_checkColumnConstraints">} #+ Check constraints on the "ranking.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ranking_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE ranking.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ranking_cod_sec_checkColumnConstraints {<BLOCK Name="fct.ranking_descripcion_checkColumnConstraints">} #+ Check constraints on the "ranking.descripcion" column #+ #+ @param p_descripcion - CHAR(100) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ranking_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE ranking.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ranking_descripcion_checkColumnConstraints {<BLOCK Name="fct.ranking_unidad_med_checkColumnConstraints">} #+ Check constraints on the "ranking.unidad_med" column #+ #+ @param p_unidad_med - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ranking_unidad_med_checkColumnConstraints(p_unidad_med) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_unidad_med LIKE ranking.unidad_med LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ranking_unidad_med_checkColumnConstraints {<BLOCK Name="fct.ranking_cantidad_checkColumnConstraints">} #+ Check constraints on the "ranking.cantidad" column #+ #+ @param p_cantidad - DECIMAL(15,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ranking_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE ranking.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ranking_cantidad_checkColumnConstraints {<BLOCK Name="fct.ranking_valor_checkColumnConstraints">} #+ Check constraints on the "ranking.valor" column #+ #+ @param p_valor - DECIMAL(15,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ranking_valor_checkColumnConstraints(p_valor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor LIKE ranking.valor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ranking_valor_checkColumnConstraints {<BLOCK Name="fct.ranking_cantidad_ant_checkColumnConstraints">} #+ Check constraints on the "ranking.cantidad_ant" column #+ #+ @param p_cantidad_ant - DECIMAL(15,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ranking_cantidad_ant_checkColumnConstraints(p_cantidad_ant) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad_ant LIKE ranking.cantidad_ant LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ranking_cantidad_ant_checkColumnConstraints {<BLOCK Name="fct.ranking_valor_ant_checkColumnConstraints">} #+ Check constraints on the "ranking.valor_ant" column #+ #+ @param p_valor_ant - DECIMAL(15,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ranking_valor_ant_checkColumnConstraints(p_valor_ant) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor_ant LIKE ranking.valor_ant LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ranking_valor_ant_checkColumnConstraints {<BLOCK Name="fct.query_checkTableConstraints">} #+ Check constraints on the "query" table #+ #+ @param p_data - a row data LIKE query.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_query_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE query.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_query_num_nomi_checkColumnConstraints(p_data.num_nomi) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_query_tipo_emp_checkColumnConstraints(p_data.tipo_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_query_num_emp_checkColumnConstraints(p_data.num_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_query_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_query_nivel_emp_checkColumnConstraints(p_data.nivel_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_query_cod_puesto_checkColumnConstraints(p_data.cod_puesto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_query_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_query_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_query_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_query_valor_checkColumnConstraints(p_data.valor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_query_clase_mov_checkColumnConstraints(p_data.clase_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_query_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_query_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_query_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_query_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_query_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.query_checkTableConstraints {<BLOCK Name="fct.query_num_nomi_checkColumnConstraints">} #+ Check constraints on the "query.num_nomi" column #+ #+ @param p_num_nomi - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_query_num_nomi_checkColumnConstraints(p_num_nomi) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_nomi LIKE query.num_nomi LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.query_num_nomi_checkColumnConstraints {<BLOCK Name="fct.query_tipo_emp_checkColumnConstraints">} #+ Check constraints on the "query.tipo_emp" column #+ #+ @param p_tipo_emp - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_query_tipo_emp_checkColumnConstraints(p_tipo_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_emp LIKE query.tipo_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.query_tipo_emp_checkColumnConstraints {<BLOCK Name="fct.query_num_emp_checkColumnConstraints">} #+ Check constraints on the "query.num_emp" column #+ #+ @param p_num_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_query_num_emp_checkColumnConstraints(p_num_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_emp LIKE query.num_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.query_num_emp_checkColumnConstraints {<BLOCK Name="fct.query_departamento_checkColumnConstraints">} #+ Check constraints on the "query.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_query_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE query.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.query_departamento_checkColumnConstraints {<BLOCK Name="fct.query_nivel_emp_checkColumnConstraints">} #+ Check constraints on the "query.nivel_emp" column #+ #+ @param p_nivel_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_query_nivel_emp_checkColumnConstraints(p_nivel_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nivel_emp LIKE query.nivel_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.query_nivel_emp_checkColumnConstraints {<BLOCK Name="fct.query_cod_puesto_checkColumnConstraints">} #+ Check constraints on the "query.cod_puesto" column #+ #+ @param p_cod_puesto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_query_cod_puesto_checkColumnConstraints(p_cod_puesto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_puesto LIKE query.cod_puesto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.query_cod_puesto_checkColumnConstraints {<BLOCK Name="fct.query_fecha_checkColumnConstraints">} #+ Check constraints on the "query.fecha" column #+ #+ @param p_fecha - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_query_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE query.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.query_fecha_checkColumnConstraints {<BLOCK Name="fct.query_cod_mov_checkColumnConstraints">} #+ Check constraints on the "query.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_query_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE query.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.query_cod_mov_checkColumnConstraints {<BLOCK Name="fct.query_cantidad_checkColumnConstraints">} #+ Check constraints on the "query.cantidad" column #+ #+ @param p_cantidad - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_query_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE query.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.query_cantidad_checkColumnConstraints {<BLOCK Name="fct.query_valor_checkColumnConstraints">} #+ Check constraints on the "query.valor" column #+ #+ @param p_valor - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_query_valor_checkColumnConstraints(p_valor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor LIKE query.valor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.query_valor_checkColumnConstraints {<BLOCK Name="fct.query_clase_mov_checkColumnConstraints">} #+ Check constraints on the "query.clase_mov" column #+ #+ @param p_clase_mov - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_query_clase_mov_checkColumnConstraints(p_clase_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_clase_mov LIKE query.clase_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.query_clase_mov_checkColumnConstraints {<BLOCK Name="fct.query_status_t_checkColumnConstraints">} #+ Check constraints on the "query.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_query_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE query.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.query_status_t_checkColumnConstraints {<BLOCK Name="fct.query_us_crea_checkColumnConstraints">} #+ Check constraints on the "query.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_query_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE query.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.query_us_crea_checkColumnConstraints {<BLOCK Name="fct.query_fech_crea_checkColumnConstraints">} #+ Check constraints on the "query.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_query_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE query.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.query_fech_crea_checkColumnConstraints {<BLOCK Name="fct.query_us_mod_checkColumnConstraints">} #+ Check constraints on the "query.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_query_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE query.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.query_us_mod_checkColumnConstraints {<BLOCK Name="fct.query_fech_mod_checkColumnConstraints">} #+ Check constraints on the "query.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_query_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE query.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.query_fech_mod_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_checkTableConstraints">} #+ Check constraints on the "ptventasgral" table #+ #+ @param p_data - a row data LIKE ptventasgral.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE ptventasgral.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_ptventasgral_compania_checkColumnConstraints(p_data.compania) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_localidad_checkColumnConstraints(p_data.localidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_tipotransaccion_checkColumnConstraints(p_data.tipotransaccion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_tipo_ventas_checkColumnConstraints(p_data.tipo_ventas) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_origen_producto_checkColumnConstraints(p_data.origen_producto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_producto_checkColumnConstraints(p_data.producto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_tipoproducto_checkColumnConstraints(p_data.tipoproducto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_valor_bruto_checkColumnConstraints(p_data.valor_bruto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_porc_itbi_checkColumnConstraints(p_data.porc_itbi) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_descuento_checkColumnConstraints(p_data.descuento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_itbis_checkColumnConstraints(p_data.itbis) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_factura_checkColumnConstraints(p_data.factura) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_conduce_checkColumnConstraints(p_data.conduce) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_documentodev_checkColumnConstraints(p_data.documentodev) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_documentocxc_checkColumnConstraints(p_data.documentocxc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_observaciones_checkColumnConstraints(p_data.observaciones) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_cond_pago_checkColumnConstraints(p_data.cond_pago) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_descrip_p_checkColumnConstraints(p_data.descrip_p) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_numero_mes_checkColumnConstraints(p_data.numero_mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_tipo_cliente_checkColumnConstraints(p_data.tipo_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_sec_cliente_checkColumnConstraints(p_data.sec_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_nombre_cliente_checkColumnConstraints(p_data.nombre_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_rnc_checkColumnConstraints(p_data.rnc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_orden_checkColumnConstraints(p_data.orden) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_sec_vend_checkColumnConstraints(p_data.sec_vend) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_nombrev_checkColumnConstraints(p_data.nombrev) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_apellidov_checkColumnConstraints(p_data.apellidov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_area_checkColumnConstraints(p_data.area) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_descripcionp_checkColumnConstraints(p_data.descripcionp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_unidadmed_checkColumnConstraints(p_data.unidadmed) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_precio_checkColumnConstraints(p_data.precio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_material_checkColumnConstraints(p_data.material) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_labor_checkColumnConstraints(p_data.labor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_gasto_checkColumnConstraints(p_data.gasto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_valormaterial_checkColumnConstraints(p_data.valormaterial) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_valorlabor_checkColumnConstraints(p_data.valorlabor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_valorgasto_checkColumnConstraints(p_data.valorgasto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_tasa_checkColumnConstraints(p_data.tasa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_valorrd_checkColumnConstraints(p_data.valorrd) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_descuentord_checkColumnConstraints(p_data.descuentord) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_itbisrd_checkColumnConstraints(p_data.itbisrd) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_netord_checkColumnConstraints(p_data.netord) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_neto_checkColumnConstraints(p_data.neto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_margen_checkColumnConstraints(p_data.margen) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_transportista_checkColumnConstraints(p_data.transportista) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptventasgral_pventas_checkColumnConstraints(p_data.pventas) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_checkTableConstraints {<BLOCK Name="fct.ptventasgral_compania_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.compania" column #+ #+ @param p_compania - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_compania_checkColumnConstraints(p_compania) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_compania LIKE ptventasgral.compania LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_compania_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_localidad_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.localidad" column #+ #+ @param p_localidad - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_localidad_checkColumnConstraints(p_localidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_localidad LIKE ptventasgral.localidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_localidad_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_tipotransaccion_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.tipotransaccion" column #+ #+ @param p_tipotransaccion - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_tipotransaccion_checkColumnConstraints(p_tipotransaccion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipotransaccion LIKE ptventasgral.tipotransaccion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_tipotransaccion_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_tipo_ventas_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.tipo_ventas" column #+ #+ @param p_tipo_ventas - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_tipo_ventas_checkColumnConstraints(p_tipo_ventas) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_ventas LIKE ptventasgral.tipo_ventas LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_tipo_ventas_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_origen_producto_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.origen_producto" column #+ #+ @param p_origen_producto - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_origen_producto_checkColumnConstraints(p_origen_producto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_origen_producto LIKE ptventasgral.origen_producto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_origen_producto_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_producto_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.producto" column #+ #+ @param p_producto - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_producto_checkColumnConstraints(p_producto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_producto LIKE ptventasgral.producto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_producto_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_tipoproducto_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.tipoproducto" column #+ #+ @param p_tipoproducto - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_tipoproducto_checkColumnConstraints(p_tipoproducto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipoproducto LIKE ptventasgral.tipoproducto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_tipoproducto_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_valor_bruto_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.valor_bruto" column #+ #+ @param p_valor_bruto - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_valor_bruto_checkColumnConstraints(p_valor_bruto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor_bruto LIKE ptventasgral.valor_bruto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_valor_bruto_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_porc_itbi_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.porc_itbi" column #+ #+ @param p_porc_itbi - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_porc_itbi_checkColumnConstraints(p_porc_itbi) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_porc_itbi LIKE ptventasgral.porc_itbi LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_porc_itbi_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_descuento_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.descuento" column #+ #+ @param p_descuento - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_descuento_checkColumnConstraints(p_descuento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descuento LIKE ptventasgral.descuento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_descuento_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_itbis_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.itbis" column #+ #+ @param p_itbis - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_itbis_checkColumnConstraints(p_itbis) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_itbis LIKE ptventasgral.itbis LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_itbis_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_factura_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.factura" column #+ #+ @param p_factura - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_factura_checkColumnConstraints(p_factura) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_factura LIKE ptventasgral.factura LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_factura_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_conduce_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.conduce" column #+ #+ @param p_conduce - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_conduce_checkColumnConstraints(p_conduce) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_conduce LIKE ptventasgral.conduce LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_conduce_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_documentodev_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.documentodev" column #+ #+ @param p_documentodev - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_documentodev_checkColumnConstraints(p_documentodev) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_documentodev LIKE ptventasgral.documentodev LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_documentodev_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_documentocxc_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.documentocxc" column #+ #+ @param p_documentocxc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_documentocxc_checkColumnConstraints(p_documentocxc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_documentocxc LIKE ptventasgral.documentocxc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_documentocxc_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_observaciones_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.observaciones" column #+ #+ @param p_observaciones - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_observaciones_checkColumnConstraints(p_observaciones) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_observaciones LIKE ptventasgral.observaciones LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_observaciones_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_cod_mov_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE ptventasgral.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_cod_mov_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_cond_pago_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.cond_pago" column #+ #+ @param p_cond_pago - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_cond_pago_checkColumnConstraints(p_cond_pago) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cond_pago LIKE ptventasgral.cond_pago LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_cond_pago_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_descrip_p_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.descrip_p" column #+ #+ @param p_descrip_p - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_descrip_p_checkColumnConstraints(p_descrip_p) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip_p LIKE ptventasgral.descrip_p LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_descrip_p_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_fecha_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE ptventasgral.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_fecha_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_numero_mes_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.numero_mes" column #+ #+ @param p_numero_mes - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_numero_mes_checkColumnConstraints(p_numero_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_numero_mes LIKE ptventasgral.numero_mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_numero_mes_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_ano_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.ano" column #+ #+ @param p_ano - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE ptventasgral.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_ano_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_mes_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.mes" column #+ #+ @param p_mes - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE ptventasgral.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_mes_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_tipo_cliente_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.tipo_cliente" column #+ #+ @param p_tipo_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_tipo_cliente_checkColumnConstraints(p_tipo_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_cliente LIKE ptventasgral.tipo_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_tipo_cliente_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_sec_cliente_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.sec_cliente" column #+ #+ @param p_sec_cliente - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_sec_cliente_checkColumnConstraints(p_sec_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_cliente LIKE ptventasgral.sec_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_sec_cliente_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_nombre_cliente_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.nombre_cliente" column #+ #+ @param p_nombre_cliente - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_nombre_cliente_checkColumnConstraints(p_nombre_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombre_cliente LIKE ptventasgral.nombre_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_nombre_cliente_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_rnc_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.rnc" column #+ #+ @param p_rnc - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_rnc_checkColumnConstraints(p_rnc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_rnc LIKE ptventasgral.rnc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_rnc_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_orden_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.orden" column #+ #+ @param p_orden - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_orden_checkColumnConstraints(p_orden) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_orden LIKE ptventasgral.orden LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_orden_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_sec_vend_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.sec_vend" column #+ #+ @param p_sec_vend - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_sec_vend_checkColumnConstraints(p_sec_vend) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_vend LIKE ptventasgral.sec_vend LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_sec_vend_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_nombrev_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.nombrev" column #+ #+ @param p_nombrev - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_nombrev_checkColumnConstraints(p_nombrev) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombrev LIKE ptventasgral.nombrev LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_nombrev_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_apellidov_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.apellidov" column #+ #+ @param p_apellidov - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_apellidov_checkColumnConstraints(p_apellidov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_apellidov LIKE ptventasgral.apellidov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_apellidov_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_area_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.area" column #+ #+ @param p_area - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_area_checkColumnConstraints(p_area) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_area LIKE ptventasgral.area LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_area_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_cod_n_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE ptventasgral.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_cod_n_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE ptventasgral.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE ptventasgral.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_cod_sec_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE ptventasgral.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_cod_sec_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_descripcionp_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.descripcionp" column #+ #+ @param p_descripcionp - CHAR(100) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_descripcionp_checkColumnConstraints(p_descripcionp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcionp LIKE ptventasgral.descripcionp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_descripcionp_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_unidadmed_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.unidadmed" column #+ #+ @param p_unidadmed - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_unidadmed_checkColumnConstraints(p_unidadmed) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_unidadmed LIKE ptventasgral.unidadmed LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_unidadmed_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_cantidad_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE ptventasgral.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_cantidad_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_precio_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.precio" column #+ #+ @param p_precio - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_precio_checkColumnConstraints(p_precio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_precio LIKE ptventasgral.precio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_precio_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_material_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.material" column #+ #+ @param p_material - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_material_checkColumnConstraints(p_material) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_material LIKE ptventasgral.material LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_material_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_labor_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.labor" column #+ #+ @param p_labor - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_labor_checkColumnConstraints(p_labor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_labor LIKE ptventasgral.labor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_labor_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_gasto_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.gasto" column #+ #+ @param p_gasto - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_gasto_checkColumnConstraints(p_gasto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_gasto LIKE ptventasgral.gasto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_gasto_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_valormaterial_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.valormaterial" column #+ #+ @param p_valormaterial - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_valormaterial_checkColumnConstraints(p_valormaterial) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valormaterial LIKE ptventasgral.valormaterial LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_valormaterial_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_valorlabor_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.valorlabor" column #+ #+ @param p_valorlabor - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_valorlabor_checkColumnConstraints(p_valorlabor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valorlabor LIKE ptventasgral.valorlabor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_valorlabor_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_valorgasto_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.valorgasto" column #+ #+ @param p_valorgasto - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_valorgasto_checkColumnConstraints(p_valorgasto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valorgasto LIKE ptventasgral.valorgasto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_valorgasto_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_tasa_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.tasa" column #+ #+ @param p_tasa - DECIMAL(8,3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_tasa_checkColumnConstraints(p_tasa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tasa LIKE ptventasgral.tasa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_tasa_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_valorrd_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.valorrd" column #+ #+ @param p_valorrd - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_valorrd_checkColumnConstraints(p_valorrd) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valorrd LIKE ptventasgral.valorrd LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_valorrd_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_descuentord_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.descuentord" column #+ #+ @param p_descuentord - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_descuentord_checkColumnConstraints(p_descuentord) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descuentord LIKE ptventasgral.descuentord LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_descuentord_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_itbisrd_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.itbisrd" column #+ #+ @param p_itbisrd - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_itbisrd_checkColumnConstraints(p_itbisrd) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_itbisrd LIKE ptventasgral.itbisrd LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_itbisrd_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_netord_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.netord" column #+ #+ @param p_netord - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_netord_checkColumnConstraints(p_netord) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_netord LIKE ptventasgral.netord LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_netord_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_neto_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.neto" column #+ #+ @param p_neto - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_neto_checkColumnConstraints(p_neto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_neto LIKE ptventasgral.neto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_neto_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_margen_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.margen" column #+ #+ @param p_margen - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_margen_checkColumnConstraints(p_margen) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_margen LIKE ptventasgral.margen LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_margen_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_transportista_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.transportista" column #+ #+ @param p_transportista - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_transportista_checkColumnConstraints(p_transportista) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_transportista LIKE ptventasgral.transportista LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_transportista_checkColumnConstraints {<BLOCK Name="fct.ptventasgral_pventas_checkColumnConstraints">} #+ Check constraints on the "ptventasgral.pventas" column #+ #+ @param p_pventas - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptventasgral_pventas_checkColumnConstraints(p_pventas) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_pventas LIKE ptventasgral.pventas LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptventasgral_pventas_checkColumnConstraints {<BLOCK Name="fct.ptordenesgral_checkTableConstraints">} #+ Check constraints on the "ptordenesgral" table #+ #+ @param p_data - a row data LIKE ptordenesgral.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_ptordenesgral_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE ptordenesgral.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_ptordenesgral_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptordenesgral_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptordenesgral_fechaorden_checkColumnConstraints(p_data.fechaorden) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptordenesgral_fechaentrega_checkColumnConstraints(p_data.fechaentrega) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptordenesgral_documento_checkColumnConstraints(p_data.documento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptordenesgral_orden_checkColumnConstraints(p_data.orden) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptordenesgral_fechaavance_checkColumnConstraints(p_data.fechaavance) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptordenesgral_monto_avance_checkColumnConstraints(p_data.monto_avance) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptordenesgral_fechafactura_checkColumnConstraints(p_data.fechafactura) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptordenesgral_clasificacion_checkColumnConstraints(p_data.clasificacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptordenesgral_origen_checkColumnConstraints(p_data.origen) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptordenesgral_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptordenesgral_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptordenesgral_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptordenesgral_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptordenesgral_descripcionp_checkColumnConstraints(p_data.descripcionp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptordenesgral_unidadmedida_checkColumnConstraints(p_data.unidadmedida) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptordenesgral_existencia_checkColumnConstraints(p_data.existencia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptordenesgral_cantidadorden_checkColumnConstraints(p_data.cantidadorden) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptordenesgral_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptordenesgral_unidades_checkColumnConstraints(p_data.unidades) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptordenesgral_precio_checkColumnConstraints(p_data.precio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptordenesgral_descuento_checkColumnConstraints(p_data.descuento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptordenesgral_valor_checkColumnConstraints(p_data.valor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptordenesgral_costo_std_checkColumnConstraints(p_data.costo_std) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptordenesgral_costo_lq_checkColumnConstraints(p_data.costo_lq) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptordenesgral_valorcostostd_checkColumnConstraints(p_data.valorcostostd) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptordenesgral_tipo_cliente_checkColumnConstraints(p_data.tipo_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptordenesgral_sec_cliente_checkColumnConstraints(p_data.sec_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptordenesgral_nombrecliente_checkColumnConstraints(p_data.nombrecliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptordenesgral_sec_vend_checkColumnConstraints(p_data.sec_vend) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptordenesgral_nombrevendedor_checkColumnConstraints(p_data.nombrevendedor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptordenesgral_apellidovend_checkColumnConstraints(p_data.apellidovend) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptordenesgral_fechatransac_checkColumnConstraints(p_data.fechatransac) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptordenesgral_tipotrransaccion_checkColumnConstraints(p_data.tipotrransaccion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptordenesgral_estado_checkColumnConstraints(p_data.estado) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptordenesgral_observacion_checkColumnConstraints(p_data.observacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptordenesgral_detalle_checkColumnConstraints(p_data.detalle) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ptordenesgral_fechaactualizacion_checkColumnConstraints(p_data.fechaactualizacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptordenesgral_checkTableConstraints {<BLOCK Name="fct.ptordenesgral_ano_checkColumnConstraints">} #+ Check constraints on the "ptordenesgral.ano" column #+ #+ @param p_ano - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptordenesgral_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE ptordenesgral.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptordenesgral_ano_checkColumnConstraints {<BLOCK Name="fct.ptordenesgral_mes_checkColumnConstraints">} #+ Check constraints on the "ptordenesgral.mes" column #+ #+ @param p_mes - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptordenesgral_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE ptordenesgral.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptordenesgral_mes_checkColumnConstraints {<BLOCK Name="fct.ptordenesgral_fechaorden_checkColumnConstraints">} #+ Check constraints on the "ptordenesgral.fechaorden" column #+ #+ @param p_fechaorden - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptordenesgral_fechaorden_checkColumnConstraints(p_fechaorden) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fechaorden LIKE ptordenesgral.fechaorden LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptordenesgral_fechaorden_checkColumnConstraints {<BLOCK Name="fct.ptordenesgral_fechaentrega_checkColumnConstraints">} #+ Check constraints on the "ptordenesgral.fechaentrega" column #+ #+ @param p_fechaentrega - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptordenesgral_fechaentrega_checkColumnConstraints(p_fechaentrega) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fechaentrega LIKE ptordenesgral.fechaentrega LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptordenesgral_fechaentrega_checkColumnConstraints {<BLOCK Name="fct.ptordenesgral_documento_checkColumnConstraints">} #+ Check constraints on the "ptordenesgral.documento" column #+ #+ @param p_documento - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptordenesgral_documento_checkColumnConstraints(p_documento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_documento LIKE ptordenesgral.documento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptordenesgral_documento_checkColumnConstraints {<BLOCK Name="fct.ptordenesgral_orden_checkColumnConstraints">} #+ Check constraints on the "ptordenesgral.orden" column #+ #+ @param p_orden - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptordenesgral_orden_checkColumnConstraints(p_orden) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_orden LIKE ptordenesgral.orden LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptordenesgral_orden_checkColumnConstraints {<BLOCK Name="fct.ptordenesgral_fechaavance_checkColumnConstraints">} #+ Check constraints on the "ptordenesgral.fechaavance" column #+ #+ @param p_fechaavance - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptordenesgral_fechaavance_checkColumnConstraints(p_fechaavance) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fechaavance LIKE ptordenesgral.fechaavance LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptordenesgral_fechaavance_checkColumnConstraints {<BLOCK Name="fct.ptordenesgral_monto_avance_checkColumnConstraints">} #+ Check constraints on the "ptordenesgral.monto_avance" column #+ #+ @param p_monto_avance - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptordenesgral_monto_avance_checkColumnConstraints(p_monto_avance) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_monto_avance LIKE ptordenesgral.monto_avance LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptordenesgral_monto_avance_checkColumnConstraints {<BLOCK Name="fct.ptordenesgral_fechafactura_checkColumnConstraints">} #+ Check constraints on the "ptordenesgral.fechafactura" column #+ #+ @param p_fechafactura - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptordenesgral_fechafactura_checkColumnConstraints(p_fechafactura) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fechafactura LIKE ptordenesgral.fechafactura LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptordenesgral_fechafactura_checkColumnConstraints {<BLOCK Name="fct.ptordenesgral_clasificacion_checkColumnConstraints">} #+ Check constraints on the "ptordenesgral.clasificacion" column #+ #+ @param p_clasificacion - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptordenesgral_clasificacion_checkColumnConstraints(p_clasificacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_clasificacion LIKE ptordenesgral.clasificacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptordenesgral_clasificacion_checkColumnConstraints {<BLOCK Name="fct.ptordenesgral_origen_checkColumnConstraints">} #+ Check constraints on the "ptordenesgral.origen" column #+ #+ @param p_origen - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptordenesgral_origen_checkColumnConstraints(p_origen) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_origen LIKE ptordenesgral.origen LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptordenesgral_origen_checkColumnConstraints {<BLOCK Name="fct.ptordenesgral_cod_n_checkColumnConstraints">} #+ Check constraints on the "ptordenesgral.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptordenesgral_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE ptordenesgral.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptordenesgral_cod_n_checkColumnConstraints {<BLOCK Name="fct.ptordenesgral_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "ptordenesgral.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptordenesgral_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE ptordenesgral.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptordenesgral_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.ptordenesgral_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "ptordenesgral.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptordenesgral_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE ptordenesgral.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptordenesgral_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.ptordenesgral_cod_sec_checkColumnConstraints">} #+ Check constraints on the "ptordenesgral.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptordenesgral_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE ptordenesgral.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptordenesgral_cod_sec_checkColumnConstraints {<BLOCK Name="fct.ptordenesgral_descripcionp_checkColumnConstraints">} #+ Check constraints on the "ptordenesgral.descripcionp" column #+ #+ @param p_descripcionp - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptordenesgral_descripcionp_checkColumnConstraints(p_descripcionp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcionp LIKE ptordenesgral.descripcionp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptordenesgral_descripcionp_checkColumnConstraints {<BLOCK Name="fct.ptordenesgral_unidadmedida_checkColumnConstraints">} #+ Check constraints on the "ptordenesgral.unidadmedida" column #+ #+ @param p_unidadmedida - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptordenesgral_unidadmedida_checkColumnConstraints(p_unidadmedida) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_unidadmedida LIKE ptordenesgral.unidadmedida LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptordenesgral_unidadmedida_checkColumnConstraints {<BLOCK Name="fct.ptordenesgral_existencia_checkColumnConstraints">} #+ Check constraints on the "ptordenesgral.existencia" column #+ #+ @param p_existencia - DECIMAL(12,3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptordenesgral_existencia_checkColumnConstraints(p_existencia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_existencia LIKE ptordenesgral.existencia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptordenesgral_existencia_checkColumnConstraints {<BLOCK Name="fct.ptordenesgral_cantidadorden_checkColumnConstraints">} #+ Check constraints on the "ptordenesgral.cantidadorden" column #+ #+ @param p_cantidadorden - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptordenesgral_cantidadorden_checkColumnConstraints(p_cantidadorden) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidadorden LIKE ptordenesgral.cantidadorden LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptordenesgral_cantidadorden_checkColumnConstraints {<BLOCK Name="fct.ptordenesgral_cantidad_checkColumnConstraints">} #+ Check constraints on the "ptordenesgral.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptordenesgral_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE ptordenesgral.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptordenesgral_cantidad_checkColumnConstraints {<BLOCK Name="fct.ptordenesgral_unidades_checkColumnConstraints">} #+ Check constraints on the "ptordenesgral.unidades" column #+ #+ @param p_unidades - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptordenesgral_unidades_checkColumnConstraints(p_unidades) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_unidades LIKE ptordenesgral.unidades LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptordenesgral_unidades_checkColumnConstraints {<BLOCK Name="fct.ptordenesgral_precio_checkColumnConstraints">} #+ Check constraints on the "ptordenesgral.precio" column #+ #+ @param p_precio - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptordenesgral_precio_checkColumnConstraints(p_precio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_precio LIKE ptordenesgral.precio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptordenesgral_precio_checkColumnConstraints {<BLOCK Name="fct.ptordenesgral_descuento_checkColumnConstraints">} #+ Check constraints on the "ptordenesgral.descuento" column #+ #+ @param p_descuento - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptordenesgral_descuento_checkColumnConstraints(p_descuento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descuento LIKE ptordenesgral.descuento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptordenesgral_descuento_checkColumnConstraints {<BLOCK Name="fct.ptordenesgral_valor_checkColumnConstraints">} #+ Check constraints on the "ptordenesgral.valor" column #+ #+ @param p_valor - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptordenesgral_valor_checkColumnConstraints(p_valor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor LIKE ptordenesgral.valor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptordenesgral_valor_checkColumnConstraints {<BLOCK Name="fct.ptordenesgral_costo_std_checkColumnConstraints">} #+ Check constraints on the "ptordenesgral.costo_std" column #+ #+ @param p_costo_std - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptordenesgral_costo_std_checkColumnConstraints(p_costo_std) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_costo_std LIKE ptordenesgral.costo_std LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptordenesgral_costo_std_checkColumnConstraints {<BLOCK Name="fct.ptordenesgral_costo_lq_checkColumnConstraints">} #+ Check constraints on the "ptordenesgral.costo_lq" column #+ #+ @param p_costo_lq - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptordenesgral_costo_lq_checkColumnConstraints(p_costo_lq) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_costo_lq LIKE ptordenesgral.costo_lq LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptordenesgral_costo_lq_checkColumnConstraints {<BLOCK Name="fct.ptordenesgral_valorcostostd_checkColumnConstraints">} #+ Check constraints on the "ptordenesgral.valorcostostd" column #+ #+ @param p_valorcostostd - DECIMAL(16,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptordenesgral_valorcostostd_checkColumnConstraints(p_valorcostostd) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valorcostostd LIKE ptordenesgral.valorcostostd LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptordenesgral_valorcostostd_checkColumnConstraints {<BLOCK Name="fct.ptordenesgral_tipo_cliente_checkColumnConstraints">} #+ Check constraints on the "ptordenesgral.tipo_cliente" column #+ #+ @param p_tipo_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptordenesgral_tipo_cliente_checkColumnConstraints(p_tipo_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_cliente LIKE ptordenesgral.tipo_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptordenesgral_tipo_cliente_checkColumnConstraints {<BLOCK Name="fct.ptordenesgral_sec_cliente_checkColumnConstraints">} #+ Check constraints on the "ptordenesgral.sec_cliente" column #+ #+ @param p_sec_cliente - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptordenesgral_sec_cliente_checkColumnConstraints(p_sec_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_cliente LIKE ptordenesgral.sec_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptordenesgral_sec_cliente_checkColumnConstraints {<BLOCK Name="fct.ptordenesgral_nombrecliente_checkColumnConstraints">} #+ Check constraints on the "ptordenesgral.nombrecliente" column #+ #+ @param p_nombrecliente - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptordenesgral_nombrecliente_checkColumnConstraints(p_nombrecliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombrecliente LIKE ptordenesgral.nombrecliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptordenesgral_nombrecliente_checkColumnConstraints {<BLOCK Name="fct.ptordenesgral_sec_vend_checkColumnConstraints">} #+ Check constraints on the "ptordenesgral.sec_vend" column #+ #+ @param p_sec_vend - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptordenesgral_sec_vend_checkColumnConstraints(p_sec_vend) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_vend LIKE ptordenesgral.sec_vend LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptordenesgral_sec_vend_checkColumnConstraints {<BLOCK Name="fct.ptordenesgral_nombrevendedor_checkColumnConstraints">} #+ Check constraints on the "ptordenesgral.nombrevendedor" column #+ #+ @param p_nombrevendedor - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptordenesgral_nombrevendedor_checkColumnConstraints(p_nombrevendedor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombrevendedor LIKE ptordenesgral.nombrevendedor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptordenesgral_nombrevendedor_checkColumnConstraints {<BLOCK Name="fct.ptordenesgral_apellidovend_checkColumnConstraints">} #+ Check constraints on the "ptordenesgral.apellidovend" column #+ #+ @param p_apellidovend - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptordenesgral_apellidovend_checkColumnConstraints(p_apellidovend) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_apellidovend LIKE ptordenesgral.apellidovend LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptordenesgral_apellidovend_checkColumnConstraints {<BLOCK Name="fct.ptordenesgral_fechatransac_checkColumnConstraints">} #+ Check constraints on the "ptordenesgral.fechatransac" column #+ #+ @param p_fechatransac - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptordenesgral_fechatransac_checkColumnConstraints(p_fechatransac) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fechatransac LIKE ptordenesgral.fechatransac LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptordenesgral_fechatransac_checkColumnConstraints {<BLOCK Name="fct.ptordenesgral_tipotrransaccion_checkColumnConstraints">} #+ Check constraints on the "ptordenesgral.tipotrransaccion" column #+ #+ @param p_tipotrransaccion - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptordenesgral_tipotrransaccion_checkColumnConstraints(p_tipotrransaccion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipotrransaccion LIKE ptordenesgral.tipotrransaccion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptordenesgral_tipotrransaccion_checkColumnConstraints {<BLOCK Name="fct.ptordenesgral_estado_checkColumnConstraints">} #+ Check constraints on the "ptordenesgral.estado" column #+ #+ @param p_estado - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptordenesgral_estado_checkColumnConstraints(p_estado) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_estado LIKE ptordenesgral.estado LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptordenesgral_estado_checkColumnConstraints {<BLOCK Name="fct.ptordenesgral_observacion_checkColumnConstraints">} #+ Check constraints on the "ptordenesgral.observacion" column #+ #+ @param p_observacion - CHAR(180) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptordenesgral_observacion_checkColumnConstraints(p_observacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_observacion LIKE ptordenesgral.observacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptordenesgral_observacion_checkColumnConstraints {<BLOCK Name="fct.ptordenesgral_detalle_checkColumnConstraints">} #+ Check constraints on the "ptordenesgral.detalle" column #+ #+ @param p_detalle - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptordenesgral_detalle_checkColumnConstraints(p_detalle) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_detalle LIKE ptordenesgral.detalle LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptordenesgral_detalle_checkColumnConstraints {<BLOCK Name="fct.ptordenesgral_fechaactualizacion_checkColumnConstraints">} #+ Check constraints on the "ptordenesgral.fechaactualizacion" column #+ #+ @param p_fechaactualizacion - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ptordenesgral_fechaactualizacion_checkColumnConstraints(p_fechaactualizacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fechaactualizacion LIKE ptordenesgral.fechaactualizacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ptordenesgral_fechaactualizacion_checkColumnConstraints {<BLOCK Name="fct.prttb00002_checkTableConstraints">} #+ Check constraints on the "prttb00002" table #+ #+ @param p_data - a row data LIKE prttb00002.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_prttb00002_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE prttb00002.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_prttb00002_ult_imp_checkColumnConstraints(p_data.ult_imp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prttb00002_usuario_checkColumnConstraints(p_data.usuario) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prttb00002_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prttb00002_checkTableConstraints {<BLOCK Name="fct.prttb00002_ult_imp_checkColumnConstraints">} #+ Check constraints on the "prttb00002.ult_imp" column #+ #+ @param p_ult_imp - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prttb00002_ult_imp_checkColumnConstraints(p_ult_imp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ult_imp LIKE prttb00002.ult_imp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prttb00002_ult_imp_checkColumnConstraints {<BLOCK Name="fct.prttb00002_usuario_checkColumnConstraints">} #+ Check constraints on the "prttb00002.usuario" column #+ #+ @param p_usuario - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prttb00002_usuario_checkColumnConstraints(p_usuario) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_usuario LIKE prttb00002.usuario LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prttb00002_usuario_checkColumnConstraints {<BLOCK Name="fct.prttb00002_fecha_checkColumnConstraints">} #+ Check constraints on the "prttb00002.fecha" column #+ #+ @param p_fecha - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prttb00002_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE prttb00002.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prttb00002_fecha_checkColumnConstraints {<BLOCK Name="fct.prttb00001_checkTableConstraints">} #+ Check constraints on the "prttb00001" table #+ #+ @param p_data - a row data LIKE prttb00001.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_prttb00001_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE prttb00001.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_prttb00001_codigo_checkColumnConstraints(p_data.codigo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prttb00001_nombre_checkColumnConstraints(p_data.nombre) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prttb00001_lpprog_checkColumnConstraints(p_data.lpprog) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prttb00001_lppipe_checkColumnConstraints(p_data.lppipe) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prttb00001_puerto_checkColumnConstraints(p_data.puerto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prttb00001_prtcodigo_checkColumnConstraints(p_data.prtcodigo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prttb00001_checkTableConstraints {<BLOCK Name="fct.prttb00001_codigo_checkColumnConstraints">} #+ Check constraints on the "prttb00001.codigo" column #+ #+ @param p_codigo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prttb00001_codigo_checkColumnConstraints(p_codigo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codigo LIKE prttb00001.codigo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prttb00001_codigo_checkColumnConstraints {<BLOCK Name="fct.prttb00001_nombre_checkColumnConstraints">} #+ Check constraints on the "prttb00001.nombre" column #+ #+ @param p_nombre - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prttb00001_nombre_checkColumnConstraints(p_nombre) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombre LIKE prttb00001.nombre LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prttb00001_nombre_checkColumnConstraints {<BLOCK Name="fct.prttb00001_lpprog_checkColumnConstraints">} #+ Check constraints on the "prttb00001.lpprog" column #+ #+ @param p_lpprog - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prttb00001_lpprog_checkColumnConstraints(p_lpprog) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_lpprog LIKE prttb00001.lpprog LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prttb00001_lpprog_checkColumnConstraints {<BLOCK Name="fct.prttb00001_lppipe_checkColumnConstraints">} #+ Check constraints on the "prttb00001.lppipe" column #+ #+ @param p_lppipe - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prttb00001_lppipe_checkColumnConstraints(p_lppipe) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_lppipe LIKE prttb00001.lppipe LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prttb00001_lppipe_checkColumnConstraints {<BLOCK Name="fct.prttb00001_puerto_checkColumnConstraints">} #+ Check constraints on the "prttb00001.puerto" column #+ #+ @param p_puerto - CHAR(100) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prttb00001_puerto_checkColumnConstraints(p_puerto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_puerto LIKE prttb00001.puerto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prttb00001_puerto_checkColumnConstraints {<BLOCK Name="fct.prttb00001_prtcodigo_checkColumnConstraints">} #+ Check constraints on the "prttb00001.prtcodigo" column #+ #+ @param p_prtcodigo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prttb00001_prtcodigo_checkColumnConstraints(p_prtcodigo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_prtcodigo LIKE prttb00001.prtcodigo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prttb00001_prtcodigo_checkColumnConstraints {<BLOCK Name="fct.prtb00029_checkTableConstraints">} #+ Check constraints on the "prtb00029" table #+ #+ @param p_data - a row data LIKE prtb00029.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00029_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE prtb00029.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_prtb00029_num_oc_checkColumnConstraints(p_data.num_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00029_ruta_file_checkColumnConstraints(p_data.ruta_file) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00029_id_checkColumnConstraints(p_data.id) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00029_checkTableConstraints {<BLOCK Name="fct.prtb00029_num_oc_checkColumnConstraints">} #+ Check constraints on the "prtb00029.num_oc" column #+ #+ @param p_num_oc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00029_num_oc_checkColumnConstraints(p_num_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_oc LIKE prtb00029.num_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00029_num_oc_checkColumnConstraints {<BLOCK Name="fct.prtb00029_ruta_file_checkColumnConstraints">} #+ Check constraints on the "prtb00029.ruta_file" column #+ #+ @param p_ruta_file - CHAR(100) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00029_ruta_file_checkColumnConstraints(p_ruta_file) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ruta_file LIKE prtb00029.ruta_file LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00029_ruta_file_checkColumnConstraints {<BLOCK Name="fct.prtb00029_id_checkColumnConstraints">} #+ Check constraints on the "prtb00029.id" column #+ #+ @param p_id - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00029_id_checkColumnConstraints(p_id) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_id LIKE prtb00029.id LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00029_id_checkColumnConstraints {<BLOCK Name="fct.prtb00028_checkTableConstraints">} #+ Check constraints on the "prtb00028" table #+ #+ @param p_data - a row data LIKE prtb00028.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00028_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE prtb00028.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_prtb00028_num_oc_checkColumnConstraints(p_data.num_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00028_fecha_compromiso_checkColumnConstraints(p_data.fecha_compromiso) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00028_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00028_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00028_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00028_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00028_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00028_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00028_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00028_pk_prtb00028_checkUniqueConstraint(p_forUpdate, p_data.num_oc, p_data.fecha_compromiso, p_data.cod_n, p_data.cod_grupo, p_data.cod_tipo, p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00028_checkTableConstraints {<BLOCK Name="fct.prtb00028_pk_prtb00028_checkUniqueConstraint">} #+ Check the primary key uniqueness constraint on the "prtb00028" #+ #+ @param p_key - Primary Key #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00028_pk_prtb00028_checkUniqueConstraint(p_forUpdate, p_key) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_forUpdate BOOLEAN DEFINE p_key RECORD prtb00028_num_oc LIKE prtb00028.num_oc, prtb00028_fecha_compromiso LIKE prtb00028.fecha_compromiso, prtb00028_cod_n LIKE prtb00028.cod_n, prtb00028_cod_grupo LIKE prtb00028.cod_grupo, prtb00028_cod_tipo LIKE prtb00028.cod_tipo, prtb00028_cod_sec LIKE prtb00028.cod_sec END RECORD DEFINE l_key RECORD prtb00028_num_oc LIKE prtb00028.num_oc, prtb00028_fecha_compromiso LIKE prtb00028.fecha_compromiso, prtb00028_cod_n LIKE prtb00028.cod_n, prtb00028_cod_grupo LIKE prtb00028.cod_grupo, prtb00028_cod_tipo LIKE prtb00028.cod_tipo, prtb00028_cod_sec LIKE prtb00028.cod_sec 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 prtb00028.num_oc = ? AND prtb00028.fecha_compromiso = ? AND prtb00028.cod_n = ? AND prtb00028.cod_grupo = ? AND prtb00028.cod_tipo = ? AND prtb00028.cod_sec = ? " let l_sqlQuery = "SELECT COUNT(*), num_oc, fecha_compromiso, cod_n, cod_grupo, cod_tipo, cod_sec FROM prtb00028 ", l_where, " GROUP BY num_oc, fecha_compromiso, cod_n, cod_grupo, cod_tipo, cod_sec" PREPARE cur_prtb00028_pk_prtb00028_checkUniqueConstraint FROM l_sqlQuery EXECUTE cur_prtb00028_pk_prtb00028_checkUniqueConstraint INTO l_count, l_key.* USING p_key.* FREE cur_prtb00028_pk_prtb00028_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- num_oc + fecha_compromiso + cod_n + cod_grupo + cod_tipo + cod_sec: " || ERROR_BAM_00002) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00028_pk_prtb00028_checkUniqueConstraint {<BLOCK Name="fct.prtb00028_num_oc_checkColumnConstraints">} #+ Check constraints on the "prtb00028.num_oc" column #+ #+ @param p_num_oc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00028_num_oc_checkColumnConstraints(p_num_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_oc LIKE prtb00028.num_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_num_oc IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- num_oc: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00028_num_oc_checkColumnConstraints {<BLOCK Name="fct.prtb00028_fecha_compromiso_checkColumnConstraints">} #+ Check constraints on the "prtb00028.fecha_compromiso" column #+ #+ @param p_fecha_compromiso - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00028_fecha_compromiso_checkColumnConstraints(p_fecha_compromiso) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_compromiso LIKE prtb00028.fecha_compromiso LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_fecha_compromiso IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- fecha_compromiso: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00028_fecha_compromiso_checkColumnConstraints {<BLOCK Name="fct.prtb00028_cod_n_checkColumnConstraints">} #+ Check constraints on the "prtb00028.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00028_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE prtb00028.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00028_cod_n_checkColumnConstraints {<BLOCK Name="fct.prtb00028_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "prtb00028.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00028_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE prtb00028.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_grupo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_grupo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00028_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.prtb00028_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "prtb00028.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00028_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE prtb00028.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tipo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tipo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00028_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.prtb00028_cod_sec_checkColumnConstraints">} #+ Check constraints on the "prtb00028.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00028_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE prtb00028.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00028_cod_sec_checkColumnConstraints {<BLOCK Name="fct.prtb00028_cantidad_checkColumnConstraints">} #+ Check constraints on the "prtb00028.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00028_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE prtb00028.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00028_cantidad_checkColumnConstraints {<BLOCK Name="fct.prtb00028_us_crea_checkColumnConstraints">} #+ Check constraints on the "prtb00028.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00028_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE prtb00028.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00028_us_crea_checkColumnConstraints {<BLOCK Name="fct.prtb00028_fech_crea_checkColumnConstraints">} #+ Check constraints on the "prtb00028.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00028_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE prtb00028.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00028_fech_crea_checkColumnConstraints {<BLOCK Name="fct.prtb00027_checkTableConstraints">} #+ Check constraints on the "prtb00027" table #+ #+ @param p_data - a row data LIKE prtb00027.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00027_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE prtb00027.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_prtb00027_num_autoriza_checkColumnConstraints(p_data.num_autoriza) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00027_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00027_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00027_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00027_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00027_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00027_monto_checkColumnConstraints(p_data.monto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00027_checkTableConstraints {<BLOCK Name="fct.prtb00027_num_autoriza_checkColumnConstraints">} #+ Check constraints on the "prtb00027.num_autoriza" column #+ #+ @param p_num_autoriza - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00027_num_autoriza_checkColumnConstraints(p_num_autoriza) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_autoriza LIKE prtb00027.num_autoriza LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00027_num_autoriza_checkColumnConstraints {<BLOCK Name="fct.prtb00027_cod_n_checkColumnConstraints">} #+ Check constraints on the "prtb00027.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00027_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE prtb00027.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00027_cod_n_checkColumnConstraints {<BLOCK Name="fct.prtb00027_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "prtb00027.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00027_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE prtb00027.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00027_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.prtb00027_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "prtb00027.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00027_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE prtb00027.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00027_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.prtb00027_cod_sec_checkColumnConstraints">} #+ Check constraints on the "prtb00027.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00027_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE prtb00027.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00027_cod_sec_checkColumnConstraints {<BLOCK Name="fct.prtb00027_cantidad_checkColumnConstraints">} #+ Check constraints on the "prtb00027.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00027_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE prtb00027.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00027_cantidad_checkColumnConstraints {<BLOCK Name="fct.prtb00027_monto_checkColumnConstraints">} #+ Check constraints on the "prtb00027.monto" column #+ #+ @param p_monto - DECIMAL(12,3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00027_monto_checkColumnConstraints(p_monto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_monto LIKE prtb00027.monto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00027_monto_checkColumnConstraints {<BLOCK Name="fct.prtb00026_checkTableConstraints">} #+ Check constraints on the "prtb00026" table #+ #+ @param p_data - a row data LIKE prtb00026.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00026_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE prtb00026.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_prtb00026_num_autoriza_checkColumnConstraints(p_data.num_autoriza) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00026_observacion_checkColumnConstraints(p_data.observacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00026_num_oc_checkColumnConstraints(p_data.num_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00026_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00026_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00026_descrip_mov_checkColumnConstraints(p_data.descrip_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00026_fecha_oc_checkColumnConstraints(p_data.fecha_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00026_fecha_autoriza_checkColumnConstraints(p_data.fecha_autoriza) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00026_usuario_checkColumnConstraints(p_data.usuario) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00026_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00026_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00026_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00026_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00026_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00026_checkTableConstraints {<BLOCK Name="fct.prtb00026_num_autoriza_checkColumnConstraints">} #+ Check constraints on the "prtb00026.num_autoriza" column #+ #+ @param p_num_autoriza - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00026_num_autoriza_checkColumnConstraints(p_num_autoriza) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_autoriza LIKE prtb00026.num_autoriza LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00026_num_autoriza_checkColumnConstraints {<BLOCK Name="fct.prtb00026_observacion_checkColumnConstraints">} #+ Check constraints on the "prtb00026.observacion" column #+ #+ @param p_observacion - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00026_observacion_checkColumnConstraints(p_observacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_observacion LIKE prtb00026.observacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00026_observacion_checkColumnConstraints {<BLOCK Name="fct.prtb00026_num_oc_checkColumnConstraints">} #+ Check constraints on the "prtb00026.num_oc" column #+ #+ @param p_num_oc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00026_num_oc_checkColumnConstraints(p_num_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_oc LIKE prtb00026.num_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00026_num_oc_checkColumnConstraints {<BLOCK Name="fct.prtb00026_num_doc_checkColumnConstraints">} #+ Check constraints on the "prtb00026.num_doc" column #+ #+ @param p_num_doc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00026_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE prtb00026.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00026_num_doc_checkColumnConstraints {<BLOCK Name="fct.prtb00026_cod_mov_checkColumnConstraints">} #+ Check constraints on the "prtb00026.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00026_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE prtb00026.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00026_cod_mov_checkColumnConstraints {<BLOCK Name="fct.prtb00026_descrip_mov_checkColumnConstraints">} #+ Check constraints on the "prtb00026.descrip_mov" column #+ #+ @param p_descrip_mov - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00026_descrip_mov_checkColumnConstraints(p_descrip_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip_mov LIKE prtb00026.descrip_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00026_descrip_mov_checkColumnConstraints {<BLOCK Name="fct.prtb00026_fecha_oc_checkColumnConstraints">} #+ Check constraints on the "prtb00026.fecha_oc" column #+ #+ @param p_fecha_oc - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00026_fecha_oc_checkColumnConstraints(p_fecha_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_oc LIKE prtb00026.fecha_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00026_fecha_oc_checkColumnConstraints {<BLOCK Name="fct.prtb00026_fecha_autoriza_checkColumnConstraints">} #+ Check constraints on the "prtb00026.fecha_autoriza" column #+ #+ @param p_fecha_autoriza - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00026_fecha_autoriza_checkColumnConstraints(p_fecha_autoriza) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_autoriza LIKE prtb00026.fecha_autoriza LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00026_fecha_autoriza_checkColumnConstraints {<BLOCK Name="fct.prtb00026_usuario_checkColumnConstraints">} #+ Check constraints on the "prtb00026.usuario" column #+ #+ @param p_usuario - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00026_usuario_checkColumnConstraints(p_usuario) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_usuario LIKE prtb00026.usuario LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00026_usuario_checkColumnConstraints {<BLOCK Name="fct.prtb00026_status_t_checkColumnConstraints">} #+ Check constraints on the "prtb00026.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00026_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE prtb00026.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00026_status_t_checkColumnConstraints {<BLOCK Name="fct.prtb00026_us_crea_checkColumnConstraints">} #+ Check constraints on the "prtb00026.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00026_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE prtb00026.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00026_us_crea_checkColumnConstraints {<BLOCK Name="fct.prtb00026_fech_crea_checkColumnConstraints">} #+ Check constraints on the "prtb00026.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00026_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE prtb00026.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00026_fech_crea_checkColumnConstraints {<BLOCK Name="fct.prtb00026_us_mod_checkColumnConstraints">} #+ Check constraints on the "prtb00026.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00026_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE prtb00026.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00026_us_mod_checkColumnConstraints {<BLOCK Name="fct.prtb00026_fech_mod_checkColumnConstraints">} #+ Check constraints on the "prtb00026.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00026_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE prtb00026.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00026_fech_mod_checkColumnConstraints {<BLOCK Name="fct.prtb00025_checkTableConstraints">} #+ Check constraints on the "prtb00025" table #+ #+ @param p_data - a row data LIKE prtb00025.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00025_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE prtb00025.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_prtb00025_num_oc_checkColumnConstraints(p_data.num_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00025_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00025_tipo_cliente_checkColumnConstraints(p_data.tipo_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00025_sec_cliente_checkColumnConstraints(p_data.sec_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00025_nombre_checkColumnConstraints(p_data.nombre) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00025_valor_checkColumnConstraints(p_data.valor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00025_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00025_us_autoriza_checkColumnConstraints(p_data.us_autoriza) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00025_fecha_autorizacion_checkColumnConstraints(p_data.fecha_autorizacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00025_estado_checkColumnConstraints(p_data.estado) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00025_checkTableConstraints {<BLOCK Name="fct.prtb00025_num_oc_checkColumnConstraints">} #+ Check constraints on the "prtb00025.num_oc" column #+ #+ @param p_num_oc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00025_num_oc_checkColumnConstraints(p_num_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_oc LIKE prtb00025.num_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00025_num_oc_checkColumnConstraints {<BLOCK Name="fct.prtb00025_fecha_checkColumnConstraints">} #+ Check constraints on the "prtb00025.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00025_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE prtb00025.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00025_fecha_checkColumnConstraints {<BLOCK Name="fct.prtb00025_tipo_cliente_checkColumnConstraints">} #+ Check constraints on the "prtb00025.tipo_cliente" column #+ #+ @param p_tipo_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00025_tipo_cliente_checkColumnConstraints(p_tipo_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_cliente LIKE prtb00025.tipo_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00025_tipo_cliente_checkColumnConstraints {<BLOCK Name="fct.prtb00025_sec_cliente_checkColumnConstraints">} #+ Check constraints on the "prtb00025.sec_cliente" column #+ #+ @param p_sec_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00025_sec_cliente_checkColumnConstraints(p_sec_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_cliente LIKE prtb00025.sec_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00025_sec_cliente_checkColumnConstraints {<BLOCK Name="fct.prtb00025_nombre_checkColumnConstraints">} #+ Check constraints on the "prtb00025.nombre" column #+ #+ @param p_nombre - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00025_nombre_checkColumnConstraints(p_nombre) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombre LIKE prtb00025.nombre LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00025_nombre_checkColumnConstraints {<BLOCK Name="fct.prtb00025_valor_checkColumnConstraints">} #+ Check constraints on the "prtb00025.valor" column #+ #+ @param p_valor - DECIMAL(16,0) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00025_valor_checkColumnConstraints(p_valor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor LIKE prtb00025.valor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00025_valor_checkColumnConstraints {<BLOCK Name="fct.prtb00025_us_crea_checkColumnConstraints">} #+ Check constraints on the "prtb00025.us_crea" column #+ #+ @param p_us_crea - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00025_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE prtb00025.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00025_us_crea_checkColumnConstraints {<BLOCK Name="fct.prtb00025_us_autoriza_checkColumnConstraints">} #+ Check constraints on the "prtb00025.us_autoriza" column #+ #+ @param p_us_autoriza - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00025_us_autoriza_checkColumnConstraints(p_us_autoriza) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_autoriza LIKE prtb00025.us_autoriza LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00025_us_autoriza_checkColumnConstraints {<BLOCK Name="fct.prtb00025_fecha_autorizacion_checkColumnConstraints">} #+ Check constraints on the "prtb00025.fecha_autorizacion" column #+ #+ @param p_fecha_autorizacion - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00025_fecha_autorizacion_checkColumnConstraints(p_fecha_autorizacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_autorizacion LIKE prtb00025.fecha_autorizacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00025_fecha_autorizacion_checkColumnConstraints {<BLOCK Name="fct.prtb00025_estado_checkColumnConstraints">} #+ Check constraints on the "prtb00025.estado" column #+ #+ @param p_estado - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00025_estado_checkColumnConstraints(p_estado) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_estado LIKE prtb00025.estado LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00025_estado_checkColumnConstraints {<BLOCK Name="fct.prtb00024_checkTableConstraints">} #+ Check constraints on the "prtb00024" table #+ #+ @param p_data - a row data LIKE prtb00024.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00024_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE prtb00024.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_prtb00024_num_oc_checkColumnConstraints(p_data.num_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00024_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00024_checkTableConstraints {<BLOCK Name="fct.prtb00024_num_oc_checkColumnConstraints">} #+ Check constraints on the "prtb00024.num_oc" column #+ #+ @param p_num_oc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00024_num_oc_checkColumnConstraints(p_num_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_oc LIKE prtb00024.num_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00024_num_oc_checkColumnConstraints {<BLOCK Name="fct.prtb00024_us_crea_checkColumnConstraints">} #+ Check constraints on the "prtb00024.us_crea" column #+ #+ @param p_us_crea - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00024_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE prtb00024.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00024_us_crea_checkColumnConstraints {<BLOCK Name="fct.prtb00023_checkTableConstraints">} #+ Check constraints on the "prtb00023" table #+ #+ @param p_data - a row data LIKE prtb00023.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00023_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE prtb00023.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_prtb00023_num_oc_checkColumnConstraints(p_data.num_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00023_secuencia_checkColumnConstraints(p_data.secuencia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00023_area_checkColumnConstraints(p_data.area) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00023_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00023_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00023_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00023_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00023_cantidad_1_checkColumnConstraints(p_data.cantidad_1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00023_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00023_checkTableConstraints {<BLOCK Name="fct.prtb00023_num_oc_checkColumnConstraints">} #+ Check constraints on the "prtb00023.num_oc" column #+ #+ @param p_num_oc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00023_num_oc_checkColumnConstraints(p_num_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_oc LIKE prtb00023.num_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00023_num_oc_checkColumnConstraints {<BLOCK Name="fct.prtb00023_secuencia_checkColumnConstraints">} #+ Check constraints on the "prtb00023.secuencia" column #+ #+ @param p_secuencia - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00023_secuencia_checkColumnConstraints(p_secuencia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_secuencia LIKE prtb00023.secuencia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00023_secuencia_checkColumnConstraints {<BLOCK Name="fct.prtb00023_area_checkColumnConstraints">} #+ Check constraints on the "prtb00023.area" column #+ #+ @param p_area - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00023_area_checkColumnConstraints(p_area) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_area LIKE prtb00023.area LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00023_area_checkColumnConstraints {<BLOCK Name="fct.prtb00023_cod_n_checkColumnConstraints">} #+ Check constraints on the "prtb00023.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00023_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE prtb00023.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00023_cod_n_checkColumnConstraints {<BLOCK Name="fct.prtb00023_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "prtb00023.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00023_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE prtb00023.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00023_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.prtb00023_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "prtb00023.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00023_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE prtb00023.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00023_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.prtb00023_cod_sec_checkColumnConstraints">} #+ Check constraints on the "prtb00023.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00023_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE prtb00023.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00023_cod_sec_checkColumnConstraints {<BLOCK Name="fct.prtb00023_cantidad_1_checkColumnConstraints">} #+ Check constraints on the "prtb00023.cantidad_1" column #+ #+ @param p_cantidad_1 - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00023_cantidad_1_checkColumnConstraints(p_cantidad_1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad_1 LIKE prtb00023.cantidad_1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00023_cantidad_1_checkColumnConstraints {<BLOCK Name="fct.prtb00023_cantidad_checkColumnConstraints">} #+ Check constraints on the "prtb00023.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00023_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE prtb00023.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00023_cantidad_checkColumnConstraints {<BLOCK Name="fct.prtb00022_checkTableConstraints">} #+ Check constraints on the "prtb00022" table #+ #+ @param p_data - a row data LIKE prtb00022.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00022_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE prtb00022.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_prtb00022_etiqueta_checkColumnConstraints(p_data.etiqueta) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00022_num_oc_checkColumnConstraints(p_data.num_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00022_secuencia_checkColumnConstraints(p_data.secuencia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00022_area_checkColumnConstraints(p_data.area) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00022_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00022_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00022_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00022_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00022_lado_1_checkColumnConstraints(p_data.lado_1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00022_lado_2_checkColumnConstraints(p_data.lado_2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00022_lado_3_checkColumnConstraints(p_data.lado_3) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00022_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00022_medida_checkColumnConstraints(p_data.medida) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00022_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00022_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00022_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00022_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00022_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00022_checkTableConstraints {<BLOCK Name="fct.prtb00022_etiqueta_checkColumnConstraints">} #+ Check constraints on the "prtb00022.etiqueta" column #+ #+ @param p_etiqueta - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00022_etiqueta_checkColumnConstraints(p_etiqueta) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_etiqueta LIKE prtb00022.etiqueta LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_etiqueta IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- etiqueta: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00022_etiqueta_checkColumnConstraints {<BLOCK Name="fct.prtb00022_num_oc_checkColumnConstraints">} #+ Check constraints on the "prtb00022.num_oc" column #+ #+ @param p_num_oc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00022_num_oc_checkColumnConstraints(p_num_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_oc LIKE prtb00022.num_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00022_num_oc_checkColumnConstraints {<BLOCK Name="fct.prtb00022_secuencia_checkColumnConstraints">} #+ Check constraints on the "prtb00022.secuencia" column #+ #+ @param p_secuencia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00022_secuencia_checkColumnConstraints(p_secuencia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_secuencia LIKE prtb00022.secuencia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00022_secuencia_checkColumnConstraints {<BLOCK Name="fct.prtb00022_area_checkColumnConstraints">} #+ Check constraints on the "prtb00022.area" column #+ #+ @param p_area - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00022_area_checkColumnConstraints(p_area) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_area LIKE prtb00022.area LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00022_area_checkColumnConstraints {<BLOCK Name="fct.prtb00022_cod_n_checkColumnConstraints">} #+ Check constraints on the "prtb00022.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00022_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE prtb00022.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00022_cod_n_checkColumnConstraints {<BLOCK Name="fct.prtb00022_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "prtb00022.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00022_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE prtb00022.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00022_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.prtb00022_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "prtb00022.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00022_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE prtb00022.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00022_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.prtb00022_cod_sec_checkColumnConstraints">} #+ Check constraints on the "prtb00022.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00022_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE prtb00022.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00022_cod_sec_checkColumnConstraints {<BLOCK Name="fct.prtb00022_lado_1_checkColumnConstraints">} #+ Check constraints on the "prtb00022.lado_1" column #+ #+ @param p_lado_1 - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00022_lado_1_checkColumnConstraints(p_lado_1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_lado_1 LIKE prtb00022.lado_1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00022_lado_1_checkColumnConstraints {<BLOCK Name="fct.prtb00022_lado_2_checkColumnConstraints">} #+ Check constraints on the "prtb00022.lado_2" column #+ #+ @param p_lado_2 - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00022_lado_2_checkColumnConstraints(p_lado_2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_lado_2 LIKE prtb00022.lado_2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00022_lado_2_checkColumnConstraints {<BLOCK Name="fct.prtb00022_lado_3_checkColumnConstraints">} #+ Check constraints on the "prtb00022.lado_3" column #+ #+ @param p_lado_3 - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00022_lado_3_checkColumnConstraints(p_lado_3) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_lado_3 LIKE prtb00022.lado_3 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00022_lado_3_checkColumnConstraints {<BLOCK Name="fct.prtb00022_cantidad_checkColumnConstraints">} #+ Check constraints on the "prtb00022.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00022_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE prtb00022.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00022_cantidad_checkColumnConstraints {<BLOCK Name="fct.prtb00022_medida_checkColumnConstraints">} #+ Check constraints on the "prtb00022.medida" column #+ #+ @param p_medida - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00022_medida_checkColumnConstraints(p_medida) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_medida LIKE prtb00022.medida LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00022_medida_checkColumnConstraints {<BLOCK Name="fct.prtb00022_status_t_checkColumnConstraints">} #+ Check constraints on the "prtb00022.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00022_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE prtb00022.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00022_status_t_checkColumnConstraints {<BLOCK Name="fct.prtb00022_us_crea_checkColumnConstraints">} #+ Check constraints on the "prtb00022.us_crea" column #+ #+ @param p_us_crea - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00022_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE prtb00022.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00022_us_crea_checkColumnConstraints {<BLOCK Name="fct.prtb00022_fech_crea_checkColumnConstraints">} #+ Check constraints on the "prtb00022.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00022_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE prtb00022.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00022_fech_crea_checkColumnConstraints {<BLOCK Name="fct.prtb00022_us_mod_checkColumnConstraints">} #+ Check constraints on the "prtb00022.us_mod" column #+ #+ @param p_us_mod - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00022_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE prtb00022.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00022_us_mod_checkColumnConstraints {<BLOCK Name="fct.prtb00022_fech_mod_checkColumnConstraints">} #+ Check constraints on the "prtb00022.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00022_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE prtb00022.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00022_fech_mod_checkColumnConstraints {<BLOCK Name="fct.prtb00021_checkTableConstraints">} #+ Check constraints on the "prtb00021" table #+ #+ @param p_data - a row data LIKE prtb00021.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00021_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE prtb00021.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_prtb00021_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00021_dia_checkColumnConstraints(p_data.dia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00021_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00021_semana_checkColumnConstraints(p_data.semana) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00021_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00021_documento_checkColumnConstraints(p_data.documento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00021_codigosemi_checkColumnConstraints(p_data.codigosemi) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00021_descripcionsemi_checkColumnConstraints(p_data.descripcionsemi) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00021_uniadmed_checkColumnConstraints(p_data.uniadmed) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00021_codigodepto_checkColumnConstraints(p_data.codigodepto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00021_nombredto_checkColumnConstraints(p_data.nombredto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00021_ficha_checkColumnConstraints(p_data.ficha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00021_nombre_checkColumnConstraints(p_data.nombre) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00021_apellido_checkColumnConstraints(p_data.apellido) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00021_normalesd_checkColumnConstraints(p_data.normalesd) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00021_normalesind_checkColumnConstraints(p_data.normalesind) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00021_extrasdirecta_checkColumnConstraints(p_data.extrasdirecta) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00021_extrasind_checkColumnConstraints(p_data.extrasind) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00021_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00021_bloque_checkColumnConstraints(p_data.bloque) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00021_cantidadprep_checkColumnConstraints(p_data.cantidadprep) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00021_grupodepto_checkColumnConstraints(p_data.grupodepto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00021_costo_checkColumnConstraints(p_data.costo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00021_checkTableConstraints {<BLOCK Name="fct.prtb00021_ano_checkColumnConstraints">} #+ Check constraints on the "prtb00021.ano" column #+ #+ @param p_ano - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00021_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE prtb00021.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00021_ano_checkColumnConstraints {<BLOCK Name="fct.prtb00021_dia_checkColumnConstraints">} #+ Check constraints on the "prtb00021.dia" column #+ #+ @param p_dia - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00021_dia_checkColumnConstraints(p_dia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_dia LIKE prtb00021.dia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00021_dia_checkColumnConstraints {<BLOCK Name="fct.prtb00021_mes_checkColumnConstraints">} #+ Check constraints on the "prtb00021.mes" column #+ #+ @param p_mes - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00021_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE prtb00021.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00021_mes_checkColumnConstraints {<BLOCK Name="fct.prtb00021_semana_checkColumnConstraints">} #+ Check constraints on the "prtb00021.semana" column #+ #+ @param p_semana - CHAR(25) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00021_semana_checkColumnConstraints(p_semana) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_semana LIKE prtb00021.semana LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00021_semana_checkColumnConstraints {<BLOCK Name="fct.prtb00021_fecha_checkColumnConstraints">} #+ Check constraints on the "prtb00021.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00021_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE prtb00021.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00021_fecha_checkColumnConstraints {<BLOCK Name="fct.prtb00021_documento_checkColumnConstraints">} #+ Check constraints on the "prtb00021.documento" column #+ #+ @param p_documento - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00021_documento_checkColumnConstraints(p_documento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_documento LIKE prtb00021.documento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00021_documento_checkColumnConstraints {<BLOCK Name="fct.prtb00021_codigosemi_checkColumnConstraints">} #+ Check constraints on the "prtb00021.codigosemi" column #+ #+ @param p_codigosemi - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00021_codigosemi_checkColumnConstraints(p_codigosemi) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codigosemi LIKE prtb00021.codigosemi LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00021_codigosemi_checkColumnConstraints {<BLOCK Name="fct.prtb00021_descripcionsemi_checkColumnConstraints">} #+ Check constraints on the "prtb00021.descripcionsemi" column #+ #+ @param p_descripcionsemi - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00021_descripcionsemi_checkColumnConstraints(p_descripcionsemi) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcionsemi LIKE prtb00021.descripcionsemi LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00021_descripcionsemi_checkColumnConstraints {<BLOCK Name="fct.prtb00021_uniadmed_checkColumnConstraints">} #+ Check constraints on the "prtb00021.uniadmed" column #+ #+ @param p_uniadmed - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00021_uniadmed_checkColumnConstraints(p_uniadmed) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_uniadmed LIKE prtb00021.uniadmed LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00021_uniadmed_checkColumnConstraints {<BLOCK Name="fct.prtb00021_codigodepto_checkColumnConstraints">} #+ Check constraints on the "prtb00021.codigodepto" column #+ #+ @param p_codigodepto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00021_codigodepto_checkColumnConstraints(p_codigodepto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codigodepto LIKE prtb00021.codigodepto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00021_codigodepto_checkColumnConstraints {<BLOCK Name="fct.prtb00021_nombredto_checkColumnConstraints">} #+ Check constraints on the "prtb00021.nombredto" column #+ #+ @param p_nombredto - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00021_nombredto_checkColumnConstraints(p_nombredto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombredto LIKE prtb00021.nombredto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00021_nombredto_checkColumnConstraints {<BLOCK Name="fct.prtb00021_ficha_checkColumnConstraints">} #+ Check constraints on the "prtb00021.ficha" column #+ #+ @param p_ficha - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00021_ficha_checkColumnConstraints(p_ficha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ficha LIKE prtb00021.ficha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00021_ficha_checkColumnConstraints {<BLOCK Name="fct.prtb00021_nombre_checkColumnConstraints">} #+ Check constraints on the "prtb00021.nombre" column #+ #+ @param p_nombre - CHAR(25) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00021_nombre_checkColumnConstraints(p_nombre) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombre LIKE prtb00021.nombre LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00021_nombre_checkColumnConstraints {<BLOCK Name="fct.prtb00021_apellido_checkColumnConstraints">} #+ Check constraints on the "prtb00021.apellido" column #+ #+ @param p_apellido - CHAR(25) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00021_apellido_checkColumnConstraints(p_apellido) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_apellido LIKE prtb00021.apellido LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00021_apellido_checkColumnConstraints {<BLOCK Name="fct.prtb00021_normalesd_checkColumnConstraints">} #+ Check constraints on the "prtb00021.normalesd" column #+ #+ @param p_normalesd - DECIMAL(8,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00021_normalesd_checkColumnConstraints(p_normalesd) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_normalesd LIKE prtb00021.normalesd LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00021_normalesd_checkColumnConstraints {<BLOCK Name="fct.prtb00021_normalesind_checkColumnConstraints">} #+ Check constraints on the "prtb00021.normalesind" column #+ #+ @param p_normalesind - DECIMAL(8,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00021_normalesind_checkColumnConstraints(p_normalesind) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_normalesind LIKE prtb00021.normalesind LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00021_normalesind_checkColumnConstraints {<BLOCK Name="fct.prtb00021_extrasdirecta_checkColumnConstraints">} #+ Check constraints on the "prtb00021.extrasdirecta" column #+ #+ @param p_extrasdirecta - DECIMAL(8,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00021_extrasdirecta_checkColumnConstraints(p_extrasdirecta) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_extrasdirecta LIKE prtb00021.extrasdirecta LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00021_extrasdirecta_checkColumnConstraints {<BLOCK Name="fct.prtb00021_extrasind_checkColumnConstraints">} #+ Check constraints on the "prtb00021.extrasind" column #+ #+ @param p_extrasind - DECIMAL(8,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00021_extrasind_checkColumnConstraints(p_extrasind) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_extrasind LIKE prtb00021.extrasind LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00021_extrasind_checkColumnConstraints {<BLOCK Name="fct.prtb00021_cantidad_checkColumnConstraints">} #+ Check constraints on the "prtb00021.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00021_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE prtb00021.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00021_cantidad_checkColumnConstraints {<BLOCK Name="fct.prtb00021_bloque_checkColumnConstraints">} #+ Check constraints on the "prtb00021.bloque" column #+ #+ @param p_bloque - CHAR(25) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00021_bloque_checkColumnConstraints(p_bloque) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_bloque LIKE prtb00021.bloque LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00021_bloque_checkColumnConstraints {<BLOCK Name="fct.prtb00021_cantidadprep_checkColumnConstraints">} #+ Check constraints on the "prtb00021.cantidadprep" column #+ #+ @param p_cantidadprep - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00021_cantidadprep_checkColumnConstraints(p_cantidadprep) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidadprep LIKE prtb00021.cantidadprep LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00021_cantidadprep_checkColumnConstraints {<BLOCK Name="fct.prtb00021_grupodepto_checkColumnConstraints">} #+ Check constraints on the "prtb00021.grupodepto" column #+ #+ @param p_grupodepto - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00021_grupodepto_checkColumnConstraints(p_grupodepto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_grupodepto LIKE prtb00021.grupodepto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00021_grupodepto_checkColumnConstraints {<BLOCK Name="fct.prtb00021_costo_checkColumnConstraints">} #+ Check constraints on the "prtb00021.costo" column #+ #+ @param p_costo - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00021_costo_checkColumnConstraints(p_costo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_costo LIKE prtb00021.costo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00021_costo_checkColumnConstraints {<BLOCK Name="fct.prtb00020_checkTableConstraints">} #+ Check constraints on the "prtb00020" table #+ #+ @param p_data - a row data LIKE prtb00020.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00020_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE prtb00020.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_prtb00020_num_oc_checkColumnConstraints(p_data.num_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00020_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00020_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00020_checkTableConstraints {<BLOCK Name="fct.prtb00020_num_oc_checkColumnConstraints">} #+ Check constraints on the "prtb00020.num_oc" column #+ #+ @param p_num_oc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00020_num_oc_checkColumnConstraints(p_num_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_oc LIKE prtb00020.num_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00020_num_oc_checkColumnConstraints {<BLOCK Name="fct.prtb00020_us_crea_checkColumnConstraints">} #+ Check constraints on the "prtb00020.us_crea" column #+ #+ @param p_us_crea - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00020_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE prtb00020.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00020_us_crea_checkColumnConstraints {<BLOCK Name="fct.prtb00020_fech_crea_checkColumnConstraints">} #+ Check constraints on the "prtb00020.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00020_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE prtb00020.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00020_fech_crea_checkColumnConstraints {<BLOCK Name="fct.prtb00019_checkTableConstraints">} #+ Check constraints on the "prtb00019" table #+ #+ @param p_data - a row data LIKE prtb00019.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00019_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE prtb00019.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_prtb00019_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00019_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00019_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00019_num_emp_checkColumnConstraints(p_data.num_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00019_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00019_checkTableConstraints {<BLOCK Name="fct.prtb00019_ano_checkColumnConstraints">} #+ Check constraints on the "prtb00019.ano" column #+ #+ @param p_ano - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00019_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE prtb00019.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00019_ano_checkColumnConstraints {<BLOCK Name="fct.prtb00019_mes_checkColumnConstraints">} #+ Check constraints on the "prtb00019.mes" column #+ #+ @param p_mes - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00019_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE prtb00019.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00019_mes_checkColumnConstraints {<BLOCK Name="fct.prtb00019_departamento_checkColumnConstraints">} #+ Check constraints on the "prtb00019.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00019_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE prtb00019.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00019_departamento_checkColumnConstraints {<BLOCK Name="fct.prtb00019_num_emp_checkColumnConstraints">} #+ Check constraints on the "prtb00019.num_emp" column #+ #+ @param p_num_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00019_num_emp_checkColumnConstraints(p_num_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_emp LIKE prtb00019.num_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00019_num_emp_checkColumnConstraints {<BLOCK Name="fct.prtb00019_cantidad_checkColumnConstraints">} #+ Check constraints on the "prtb00019.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00019_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE prtb00019.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00019_cantidad_checkColumnConstraints {<BLOCK Name="fct.prtb00018_checkTableConstraints">} #+ Check constraints on the "prtb00018" table #+ #+ @param p_data - a row data LIKE prtb00018.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00018_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE prtb00018.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_prtb00018_num_oc_checkColumnConstraints(p_data.num_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00018_detalle_checkColumnConstraints(p_data.detalle) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00018_fecha_entrada_checkColumnConstraints(p_data.fecha_entrada) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00018_fecha_realizacion_checkColumnConstraints(p_data.fecha_realizacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00018_fecha_inicial_checkColumnConstraints(p_data.fecha_inicial) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00018_fecha_final_checkColumnConstraints(p_data.fecha_final) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00018_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00018_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00018_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00018_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00018_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00018_checkTableConstraints {<BLOCK Name="fct.prtb00018_num_oc_checkColumnConstraints">} #+ Check constraints on the "prtb00018.num_oc" column #+ #+ @param p_num_oc - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00018_num_oc_checkColumnConstraints(p_num_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_oc LIKE prtb00018.num_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00018_num_oc_checkColumnConstraints {<BLOCK Name="fct.prtb00018_detalle_checkColumnConstraints">} #+ Check constraints on the "prtb00018.detalle" column #+ #+ @param p_detalle - CHAR(100) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00018_detalle_checkColumnConstraints(p_detalle) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_detalle LIKE prtb00018.detalle LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00018_detalle_checkColumnConstraints {<BLOCK Name="fct.prtb00018_fecha_entrada_checkColumnConstraints">} #+ Check constraints on the "prtb00018.fecha_entrada" column #+ #+ @param p_fecha_entrada - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00018_fecha_entrada_checkColumnConstraints(p_fecha_entrada) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_entrada LIKE prtb00018.fecha_entrada LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00018_fecha_entrada_checkColumnConstraints {<BLOCK Name="fct.prtb00018_fecha_realizacion_checkColumnConstraints">} #+ Check constraints on the "prtb00018.fecha_realizacion" column #+ #+ @param p_fecha_realizacion - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00018_fecha_realizacion_checkColumnConstraints(p_fecha_realizacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_realizacion LIKE prtb00018.fecha_realizacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00018_fecha_realizacion_checkColumnConstraints {<BLOCK Name="fct.prtb00018_fecha_inicial_checkColumnConstraints">} #+ Check constraints on the "prtb00018.fecha_inicial" column #+ #+ @param p_fecha_inicial - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00018_fecha_inicial_checkColumnConstraints(p_fecha_inicial) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_inicial LIKE prtb00018.fecha_inicial LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00018_fecha_inicial_checkColumnConstraints {<BLOCK Name="fct.prtb00018_fecha_final_checkColumnConstraints">} #+ Check constraints on the "prtb00018.fecha_final" column #+ #+ @param p_fecha_final - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00018_fecha_final_checkColumnConstraints(p_fecha_final) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_final LIKE prtb00018.fecha_final LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00018_fecha_final_checkColumnConstraints {<BLOCK Name="fct.prtb00018_status_t_checkColumnConstraints">} #+ Check constraints on the "prtb00018.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00018_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE prtb00018.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00018_status_t_checkColumnConstraints {<BLOCK Name="fct.prtb00018_us_crea_checkColumnConstraints">} #+ Check constraints on the "prtb00018.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00018_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE prtb00018.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00018_us_crea_checkColumnConstraints {<BLOCK Name="fct.prtb00018_fech_crea_checkColumnConstraints">} #+ Check constraints on the "prtb00018.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00018_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE prtb00018.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00018_fech_crea_checkColumnConstraints {<BLOCK Name="fct.prtb00018_us_mod_checkColumnConstraints">} #+ Check constraints on the "prtb00018.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00018_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE prtb00018.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00018_us_mod_checkColumnConstraints {<BLOCK Name="fct.prtb00018_fech_mod_checkColumnConstraints">} #+ Check constraints on the "prtb00018.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00018_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE prtb00018.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00018_fech_mod_checkColumnConstraints {<BLOCK Name="fct.prtb00017_checkTableConstraints">} #+ Check constraints on the "prtb00017" table #+ #+ @param p_data - a row data LIKE prtb00017.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00017_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE prtb00017.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_prtb00017_num_oc_checkColumnConstraints(p_data.num_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00017_fecha_mensaje_checkColumnConstraints(p_data.fecha_mensaje) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00017_usuario_checkColumnConstraints(p_data.usuario) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00017_usuario_lee_checkColumnConstraints(p_data.usuario_lee) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00017_fecha_leido_checkColumnConstraints(p_data.fecha_leido) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00017_tema_checkColumnConstraints(p_data.tema) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00017_mensaje_checkColumnConstraints(p_data.mensaje) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00017_leido_checkColumnConstraints(p_data.leido) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00017_checkTableConstraints {<BLOCK Name="fct.prtb00017_num_oc_checkColumnConstraints">} #+ Check constraints on the "prtb00017.num_oc" column #+ #+ @param p_num_oc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00017_num_oc_checkColumnConstraints(p_num_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_oc LIKE prtb00017.num_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_num_oc IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- num_oc: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00017_num_oc_checkColumnConstraints {<BLOCK Name="fct.prtb00017_fecha_mensaje_checkColumnConstraints">} #+ Check constraints on the "prtb00017.fecha_mensaje" column #+ #+ @param p_fecha_mensaje - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00017_fecha_mensaje_checkColumnConstraints(p_fecha_mensaje) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_mensaje LIKE prtb00017.fecha_mensaje LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_fecha_mensaje IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- fecha_mensaje: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00017_fecha_mensaje_checkColumnConstraints {<BLOCK Name="fct.prtb00017_usuario_checkColumnConstraints">} #+ Check constraints on the "prtb00017.usuario" column #+ #+ @param p_usuario - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00017_usuario_checkColumnConstraints(p_usuario) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_usuario LIKE prtb00017.usuario LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00017_usuario_checkColumnConstraints {<BLOCK Name="fct.prtb00017_usuario_lee_checkColumnConstraints">} #+ Check constraints on the "prtb00017.usuario_lee" column #+ #+ @param p_usuario_lee - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00017_usuario_lee_checkColumnConstraints(p_usuario_lee) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_usuario_lee LIKE prtb00017.usuario_lee LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00017_usuario_lee_checkColumnConstraints {<BLOCK Name="fct.prtb00017_fecha_leido_checkColumnConstraints">} #+ Check constraints on the "prtb00017.fecha_leido" column #+ #+ @param p_fecha_leido - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00017_fecha_leido_checkColumnConstraints(p_fecha_leido) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_leido LIKE prtb00017.fecha_leido LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00017_fecha_leido_checkColumnConstraints {<BLOCK Name="fct.prtb00017_tema_checkColumnConstraints">} #+ Check constraints on the "prtb00017.tema" column #+ #+ @param p_tema - CHAR(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00017_tema_checkColumnConstraints(p_tema) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tema LIKE prtb00017.tema LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_tema IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- tema: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00017_tema_checkColumnConstraints {<BLOCK Name="fct.prtb00017_mensaje_checkColumnConstraints">} #+ Check constraints on the "prtb00017.mensaje" column #+ #+ @param p_mensaje - CHAR(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00017_mensaje_checkColumnConstraints(p_mensaje) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mensaje LIKE prtb00017.mensaje LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_mensaje IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- mensaje: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00017_mensaje_checkColumnConstraints {<BLOCK Name="fct.prtb00017_leido_checkColumnConstraints">} #+ Check constraints on the "prtb00017.leido" column #+ #+ @param p_leido - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00017_leido_checkColumnConstraints(p_leido) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_leido LIKE prtb00017.leido LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00017_leido_checkColumnConstraints {<BLOCK Name="fct.prtb00016_checkTableConstraints">} #+ Check constraints on the "prtb00016" table #+ #+ @param p_data - a row data LIKE prtb00016.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00016_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE prtb00016.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_prtb00016_area_num_checkColumnConstraints(p_data.area_num) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00016_nombre_area_checkColumnConstraints(p_data.nombre_area) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00016_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00016_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00016_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00016_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00016_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00016_checkTableConstraints {<BLOCK Name="fct.prtb00016_area_num_checkColumnConstraints">} #+ Check constraints on the "prtb00016.area_num" column #+ #+ @param p_area_num - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00016_area_num_checkColumnConstraints(p_area_num) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_area_num LIKE prtb00016.area_num LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_area_num IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- area_num: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00016_area_num_checkColumnConstraints {<BLOCK Name="fct.prtb00016_nombre_area_checkColumnConstraints">} #+ Check constraints on the "prtb00016.nombre_area" column #+ #+ @param p_nombre_area - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00016_nombre_area_checkColumnConstraints(p_nombre_area) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombre_area LIKE prtb00016.nombre_area LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00016_nombre_area_checkColumnConstraints {<BLOCK Name="fct.prtb00016_status_t_checkColumnConstraints">} #+ Check constraints on the "prtb00016.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00016_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE prtb00016.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00016_status_t_checkColumnConstraints {<BLOCK Name="fct.prtb00016_us_crea_checkColumnConstraints">} #+ Check constraints on the "prtb00016.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00016_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE prtb00016.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00016_us_crea_checkColumnConstraints {<BLOCK Name="fct.prtb00016_fech_crea_checkColumnConstraints">} #+ Check constraints on the "prtb00016.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00016_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE prtb00016.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00016_fech_crea_checkColumnConstraints {<BLOCK Name="fct.prtb00016_us_mod_checkColumnConstraints">} #+ Check constraints on the "prtb00016.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00016_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE prtb00016.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00016_us_mod_checkColumnConstraints {<BLOCK Name="fct.prtb00016_fech_mod_checkColumnConstraints">} #+ Check constraints on the "prtb00016.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00016_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE prtb00016.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00016_fech_mod_checkColumnConstraints {<BLOCK Name="fct.prtb00015_checkTableConstraints">} #+ Check constraints on the "prtb00015" table #+ #+ @param p_data - a row data LIKE prtb00015.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00015_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE prtb00015.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_prtb00015_num_oc_checkColumnConstraints(p_data.num_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00015_area_checkColumnConstraints(p_data.area) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00015_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00015_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00015_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00015_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00015_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00015_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00015_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00015_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00015_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00015_checkTableConstraints {<BLOCK Name="fct.prtb00015_num_oc_checkColumnConstraints">} #+ Check constraints on the "prtb00015.num_oc" column #+ #+ @param p_num_oc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00015_num_oc_checkColumnConstraints(p_num_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_oc LIKE prtb00015.num_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00015_num_oc_checkColumnConstraints {<BLOCK Name="fct.prtb00015_area_checkColumnConstraints">} #+ Check constraints on the "prtb00015.area" column #+ #+ @param p_area - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00015_area_checkColumnConstraints(p_area) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_area LIKE prtb00015.area LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00015_area_checkColumnConstraints {<BLOCK Name="fct.prtb00015_cod_n_checkColumnConstraints">} #+ Check constraints on the "prtb00015.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00015_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE prtb00015.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00015_cod_n_checkColumnConstraints {<BLOCK Name="fct.prtb00015_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "prtb00015.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00015_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE prtb00015.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00015_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.prtb00015_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "prtb00015.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00015_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE prtb00015.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00015_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.prtb00015_cod_sec_checkColumnConstraints">} #+ Check constraints on the "prtb00015.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00015_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE prtb00015.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00015_cod_sec_checkColumnConstraints {<BLOCK Name="fct.prtb00015_cantidad_checkColumnConstraints">} #+ Check constraints on the "prtb00015.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00015_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE prtb00015.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00015_cantidad_checkColumnConstraints {<BLOCK Name="fct.prtb00015_fecha_checkColumnConstraints">} #+ Check constraints on the "prtb00015.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00015_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE prtb00015.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00015_fecha_checkColumnConstraints {<BLOCK Name="fct.prtb00015_status_t_checkColumnConstraints">} #+ Check constraints on the "prtb00015.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00015_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE prtb00015.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00015_status_t_checkColumnConstraints {<BLOCK Name="fct.prtb00015_us_mod_checkColumnConstraints">} #+ Check constraints on the "prtb00015.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00015_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE prtb00015.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00015_us_mod_checkColumnConstraints {<BLOCK Name="fct.prtb00015_fech_mod_checkColumnConstraints">} #+ Check constraints on the "prtb00015.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00015_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE prtb00015.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00015_fech_mod_checkColumnConstraints {<BLOCK Name="fct.prtb00014_checkTableConstraints">} #+ Check constraints on the "prtb00014" table #+ #+ @param p_data - a row data LIKE prtb00014.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00014_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE prtb00014.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_prtb00014_num_oc_checkColumnConstraints(p_data.num_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00014_observacion_checkColumnConstraints(p_data.observacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00014_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00014_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00014_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00014_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00014_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00014_checkTableConstraints {<BLOCK Name="fct.prtb00014_num_oc_checkColumnConstraints">} #+ Check constraints on the "prtb00014.num_oc" column #+ #+ @param p_num_oc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00014_num_oc_checkColumnConstraints(p_num_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_oc LIKE prtb00014.num_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00014_num_oc_checkColumnConstraints {<BLOCK Name="fct.prtb00014_observacion_checkColumnConstraints">} #+ Check constraints on the "prtb00014.observacion" column #+ #+ @param p_observacion - CHAR(180) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00014_observacion_checkColumnConstraints(p_observacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_observacion LIKE prtb00014.observacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00014_observacion_checkColumnConstraints {<BLOCK Name="fct.prtb00014_status_t_checkColumnConstraints">} #+ Check constraints on the "prtb00014.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00014_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE prtb00014.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00014_status_t_checkColumnConstraints {<BLOCK Name="fct.prtb00014_us_crea_checkColumnConstraints">} #+ Check constraints on the "prtb00014.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00014_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE prtb00014.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00014_us_crea_checkColumnConstraints {<BLOCK Name="fct.prtb00014_fech_crea_checkColumnConstraints">} #+ Check constraints on the "prtb00014.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00014_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE prtb00014.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00014_fech_crea_checkColumnConstraints {<BLOCK Name="fct.prtb00014_us_mod_checkColumnConstraints">} #+ Check constraints on the "prtb00014.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00014_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE prtb00014.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00014_us_mod_checkColumnConstraints {<BLOCK Name="fct.prtb00014_fech_mod_checkColumnConstraints">} #+ Check constraints on the "prtb00014.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00014_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE prtb00014.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00014_fech_mod_checkColumnConstraints {<BLOCK Name="fct.prtb00013_checkTableConstraints">} #+ Check constraints on the "prtb00013" table #+ #+ @param p_data - a row data LIKE prtb00013.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00013_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE prtb00013.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_prtb00013_num_oc_checkColumnConstraints(p_data.num_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00013_secuencia_checkColumnConstraints(p_data.secuencia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00013_area_checkColumnConstraints(p_data.area) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00013_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00013_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00013_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00013_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00013_altura_zocalo_checkColumnConstraints(p_data.altura_zocalo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00013_terminacion_checkColumnConstraints(p_data.terminacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00013_bisel_checkColumnConstraints(p_data.bisel) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00013_precio_checkColumnConstraints(p_data.precio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00013_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00013_descuento_checkColumnConstraints(p_data.descuento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00013_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00013_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00013_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00013_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00013_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00013_fecha_compromiso_checkColumnConstraints(p_data.fecha_compromiso) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00013_estado_produccion_checkColumnConstraints(p_data.estado_produccion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00013_observacion_checkColumnConstraints(p_data.observacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00013_checkTableConstraints {<BLOCK Name="fct.prtb00013_num_oc_checkColumnConstraints">} #+ Check constraints on the "prtb00013.num_oc" column #+ #+ @param p_num_oc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00013_num_oc_checkColumnConstraints(p_num_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_oc LIKE prtb00013.num_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00013_num_oc_checkColumnConstraints {<BLOCK Name="fct.prtb00013_secuencia_checkColumnConstraints">} #+ Check constraints on the "prtb00013.secuencia" column #+ #+ @param p_secuencia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00013_secuencia_checkColumnConstraints(p_secuencia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_secuencia LIKE prtb00013.secuencia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00013_secuencia_checkColumnConstraints {<BLOCK Name="fct.prtb00013_area_checkColumnConstraints">} #+ Check constraints on the "prtb00013.area" column #+ #+ @param p_area - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00013_area_checkColumnConstraints(p_area) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_area LIKE prtb00013.area LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00013_area_checkColumnConstraints {<BLOCK Name="fct.prtb00013_cod_n_checkColumnConstraints">} #+ Check constraints on the "prtb00013.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00013_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE prtb00013.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00013_cod_n_checkColumnConstraints {<BLOCK Name="fct.prtb00013_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "prtb00013.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00013_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE prtb00013.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00013_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.prtb00013_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "prtb00013.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00013_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE prtb00013.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00013_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.prtb00013_cod_sec_checkColumnConstraints">} #+ Check constraints on the "prtb00013.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00013_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE prtb00013.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00013_cod_sec_checkColumnConstraints {<BLOCK Name="fct.prtb00013_altura_zocalo_checkColumnConstraints">} #+ Check constraints on the "prtb00013.altura_zocalo" column #+ #+ @param p_altura_zocalo - DECIMAL(8,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00013_altura_zocalo_checkColumnConstraints(p_altura_zocalo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_altura_zocalo LIKE prtb00013.altura_zocalo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00013_altura_zocalo_checkColumnConstraints {<BLOCK Name="fct.prtb00013_terminacion_checkColumnConstraints">} #+ Check constraints on the "prtb00013.terminacion" column #+ #+ @param p_terminacion - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00013_terminacion_checkColumnConstraints(p_terminacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_terminacion LIKE prtb00013.terminacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00013_terminacion_checkColumnConstraints {<BLOCK Name="fct.prtb00013_bisel_checkColumnConstraints">} #+ Check constraints on the "prtb00013.bisel" column #+ #+ @param p_bisel - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00013_bisel_checkColumnConstraints(p_bisel) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_bisel LIKE prtb00013.bisel LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00013_bisel_checkColumnConstraints {<BLOCK Name="fct.prtb00013_precio_checkColumnConstraints">} #+ Check constraints on the "prtb00013.precio" column #+ #+ @param p_precio - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00013_precio_checkColumnConstraints(p_precio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_precio LIKE prtb00013.precio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00013_precio_checkColumnConstraints {<BLOCK Name="fct.prtb00013_cantidad_checkColumnConstraints">} #+ Check constraints on the "prtb00013.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00013_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE prtb00013.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00013_cantidad_checkColumnConstraints {<BLOCK Name="fct.prtb00013_descuento_checkColumnConstraints">} #+ Check constraints on the "prtb00013.descuento" column #+ #+ @param p_descuento - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00013_descuento_checkColumnConstraints(p_descuento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descuento LIKE prtb00013.descuento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00013_descuento_checkColumnConstraints {<BLOCK Name="fct.prtb00013_status_t_checkColumnConstraints">} #+ Check constraints on the "prtb00013.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00013_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE prtb00013.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00013_status_t_checkColumnConstraints {<BLOCK Name="fct.prtb00013_us_crea_checkColumnConstraints">} #+ Check constraints on the "prtb00013.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00013_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE prtb00013.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00013_us_crea_checkColumnConstraints {<BLOCK Name="fct.prtb00013_fech_crea_checkColumnConstraints">} #+ Check constraints on the "prtb00013.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00013_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE prtb00013.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00013_fech_crea_checkColumnConstraints {<BLOCK Name="fct.prtb00013_us_mod_checkColumnConstraints">} #+ Check constraints on the "prtb00013.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00013_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE prtb00013.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00013_us_mod_checkColumnConstraints {<BLOCK Name="fct.prtb00013_fech_mod_checkColumnConstraints">} #+ Check constraints on the "prtb00013.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00013_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE prtb00013.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00013_fech_mod_checkColumnConstraints {<BLOCK Name="fct.prtb00013_fecha_compromiso_checkColumnConstraints">} #+ Check constraints on the "prtb00013.fecha_compromiso" column #+ #+ @param p_fecha_compromiso - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00013_fecha_compromiso_checkColumnConstraints(p_fecha_compromiso) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_compromiso LIKE prtb00013.fecha_compromiso LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00013_fecha_compromiso_checkColumnConstraints {<BLOCK Name="fct.prtb00013_estado_produccion_checkColumnConstraints">} #+ Check constraints on the "prtb00013.estado_produccion" column #+ #+ @param p_estado_produccion - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00013_estado_produccion_checkColumnConstraints(p_estado_produccion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_estado_produccion LIKE prtb00013.estado_produccion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00013_estado_produccion_checkColumnConstraints {<BLOCK Name="fct.prtb00013_observacion_checkColumnConstraints">} #+ Check constraints on the "prtb00013.observacion" column #+ #+ @param p_observacion - CHAR(100) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00013_observacion_checkColumnConstraints(p_observacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_observacion LIKE prtb00013.observacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00013_observacion_checkColumnConstraints {<BLOCK Name="fct.prtb00012_checkTableConstraints">} #+ Check constraints on the "prtb00012" table #+ #+ @param p_data - a row data LIKE prtb00012.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00012_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE prtb00012.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_prtb00012_ventas_checkColumnConstraints(p_data.ventas) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00012_cotizacion_no_checkColumnConstraints(p_data.cotizacion_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00012_num_oc_checkColumnConstraints(p_data.num_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00012_fecha_oc_checkColumnConstraints(p_data.fecha_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00012_nombre_file_checkColumnConstraints(p_data.nombre_file) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00012_sec_vend_checkColumnConstraints(p_data.sec_vend) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00012_tipo_cliente_checkColumnConstraints(p_data.tipo_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00012_sec_cliente_checkColumnConstraints(p_data.sec_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00012_direccion_checkColumnConstraints(p_data.direccion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00012_telefono_checkColumnConstraints(p_data.telefono) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00012_fax_checkColumnConstraints(p_data.fax) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00012_fecha_entrega_checkColumnConstraints(p_data.fecha_entrega) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00012_cond_pago_checkColumnConstraints(p_data.cond_pago) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00012_cantidad_i_checkColumnConstraints(p_data.cantidad_i) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00012_precio_i_checkColumnConstraints(p_data.precio_i) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00012_cantidad_mo_checkColumnConstraints(p_data.cantidad_mo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00012_precio_mo_checkColumnConstraints(p_data.precio_mo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00012_transporte_checkColumnConstraints(p_data.transporte) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00012_itbis_checkColumnConstraints(p_data.itbis) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00012_ubicacion_checkColumnConstraints(p_data.ubicacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00012_cerrada_checkColumnConstraints(p_data.cerrada) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00012_fecha_cierre_checkColumnConstraints(p_data.fecha_cierre) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00012_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00012_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00012_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00012_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00012_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00012_observacion_checkColumnConstraints(p_data.observacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00012_nombre_file2_checkColumnConstraints(p_data.nombre_file2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00012_pk_prtb00012_checkUniqueConstraint(p_forUpdate, p_data.num_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00012_checkTableConstraints {<BLOCK Name="fct.prtb00012_pk_prtb00012_checkUniqueConstraint">} #+ Check the primary key uniqueness constraint on the "prtb00012" #+ #+ @param p_key - Primary Key #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00012_pk_prtb00012_checkUniqueConstraint(p_forUpdate, p_key) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_forUpdate BOOLEAN DEFINE p_key RECORD prtb00012_num_oc LIKE prtb00012.num_oc END RECORD DEFINE l_key RECORD prtb00012_num_oc LIKE prtb00012.num_oc 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 prtb00012.num_oc = ? " let l_sqlQuery = "SELECT COUNT(*), num_oc FROM prtb00012 ", l_where, " GROUP BY num_oc" PREPARE cur_prtb00012_pk_prtb00012_checkUniqueConstraint FROM l_sqlQuery EXECUTE cur_prtb00012_pk_prtb00012_checkUniqueConstraint INTO l_count, l_key.* USING p_key.* FREE cur_prtb00012_pk_prtb00012_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- num_oc: " || ERROR_BAM_00002) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00012_pk_prtb00012_checkUniqueConstraint {<BLOCK Name="fct.prtb00012_ventas_checkColumnConstraints">} #+ Check constraints on the "prtb00012.ventas" column #+ #+ @param p_ventas - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00012_ventas_checkColumnConstraints(p_ventas) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ventas LIKE prtb00012.ventas LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00012_ventas_checkColumnConstraints {<BLOCK Name="fct.prtb00012_cotizacion_no_checkColumnConstraints">} #+ Check constraints on the "prtb00012.cotizacion_no" column #+ #+ @param p_cotizacion_no - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00012_cotizacion_no_checkColumnConstraints(p_cotizacion_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cotizacion_no LIKE prtb00012.cotizacion_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00012_cotizacion_no_checkColumnConstraints {<BLOCK Name="fct.prtb00012_num_oc_checkColumnConstraints">} #+ Check constraints on the "prtb00012.num_oc" column #+ #+ @param p_num_oc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00012_num_oc_checkColumnConstraints(p_num_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_oc LIKE prtb00012.num_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_num_oc IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- num_oc: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00012_num_oc_checkColumnConstraints {<BLOCK Name="fct.prtb00012_fecha_oc_checkColumnConstraints">} #+ Check constraints on the "prtb00012.fecha_oc" column #+ #+ @param p_fecha_oc - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00012_fecha_oc_checkColumnConstraints(p_fecha_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_oc LIKE prtb00012.fecha_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_fecha_oc IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- fecha_oc: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00012_fecha_oc_checkColumnConstraints {<BLOCK Name="fct.prtb00012_nombre_file_checkColumnConstraints">} #+ Check constraints on the "prtb00012.nombre_file" column #+ #+ @param p_nombre_file - CHAR(15) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00012_nombre_file_checkColumnConstraints(p_nombre_file) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombre_file LIKE prtb00012.nombre_file LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_nombre_file IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- nombre_file: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00012_nombre_file_checkColumnConstraints {<BLOCK Name="fct.prtb00012_sec_vend_checkColumnConstraints">} #+ Check constraints on the "prtb00012.sec_vend" column #+ #+ @param p_sec_vend - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00012_sec_vend_checkColumnConstraints(p_sec_vend) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_vend LIKE prtb00012.sec_vend LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00012_sec_vend_checkColumnConstraints {<BLOCK Name="fct.prtb00012_tipo_cliente_checkColumnConstraints">} #+ Check constraints on the "prtb00012.tipo_cliente" column #+ #+ @param p_tipo_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00012_tipo_cliente_checkColumnConstraints(p_tipo_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_cliente LIKE prtb00012.tipo_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_tipo_cliente IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- tipo_cliente: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00012_tipo_cliente_checkColumnConstraints {<BLOCK Name="fct.prtb00012_sec_cliente_checkColumnConstraints">} #+ Check constraints on the "prtb00012.sec_cliente" column #+ #+ @param p_sec_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00012_sec_cliente_checkColumnConstraints(p_sec_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_cliente LIKE prtb00012.sec_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_sec_cliente IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- sec_cliente: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00012_sec_cliente_checkColumnConstraints {<BLOCK Name="fct.prtb00012_direccion_checkColumnConstraints">} #+ Check constraints on the "prtb00012.direccion" column #+ #+ @param p_direccion - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00012_direccion_checkColumnConstraints(p_direccion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_direccion LIKE prtb00012.direccion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00012_direccion_checkColumnConstraints {<BLOCK Name="fct.prtb00012_telefono_checkColumnConstraints">} #+ Check constraints on the "prtb00012.telefono" column #+ #+ @param p_telefono - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00012_telefono_checkColumnConstraints(p_telefono) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_telefono LIKE prtb00012.telefono LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00012_telefono_checkColumnConstraints {<BLOCK Name="fct.prtb00012_fax_checkColumnConstraints">} #+ Check constraints on the "prtb00012.fax" column #+ #+ @param p_fax - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00012_fax_checkColumnConstraints(p_fax) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fax LIKE prtb00012.fax LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00012_fax_checkColumnConstraints {<BLOCK Name="fct.prtb00012_fecha_entrega_checkColumnConstraints">} #+ Check constraints on the "prtb00012.fecha_entrega" column #+ #+ @param p_fecha_entrega - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00012_fecha_entrega_checkColumnConstraints(p_fecha_entrega) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_entrega LIKE prtb00012.fecha_entrega LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00012_fecha_entrega_checkColumnConstraints {<BLOCK Name="fct.prtb00012_cond_pago_checkColumnConstraints">} #+ Check constraints on the "prtb00012.cond_pago" column #+ #+ @param p_cond_pago - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00012_cond_pago_checkColumnConstraints(p_cond_pago) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cond_pago LIKE prtb00012.cond_pago LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00012_cond_pago_checkColumnConstraints {<BLOCK Name="fct.prtb00012_cantidad_i_checkColumnConstraints">} #+ Check constraints on the "prtb00012.cantidad_i" column #+ #+ @param p_cantidad_i - DECIMAL(8,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00012_cantidad_i_checkColumnConstraints(p_cantidad_i) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad_i LIKE prtb00012.cantidad_i LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00012_cantidad_i_checkColumnConstraints {<BLOCK Name="fct.prtb00012_precio_i_checkColumnConstraints">} #+ Check constraints on the "prtb00012.precio_i" column #+ #+ @param p_precio_i - DECIMAL(8,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00012_precio_i_checkColumnConstraints(p_precio_i) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_precio_i LIKE prtb00012.precio_i LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00012_precio_i_checkColumnConstraints {<BLOCK Name="fct.prtb00012_cantidad_mo_checkColumnConstraints">} #+ Check constraints on the "prtb00012.cantidad_mo" column #+ #+ @param p_cantidad_mo - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00012_cantidad_mo_checkColumnConstraints(p_cantidad_mo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad_mo LIKE prtb00012.cantidad_mo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00012_cantidad_mo_checkColumnConstraints {<BLOCK Name="fct.prtb00012_precio_mo_checkColumnConstraints">} #+ Check constraints on the "prtb00012.precio_mo" column #+ #+ @param p_precio_mo - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00012_precio_mo_checkColumnConstraints(p_precio_mo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_precio_mo LIKE prtb00012.precio_mo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00012_precio_mo_checkColumnConstraints {<BLOCK Name="fct.prtb00012_transporte_checkColumnConstraints">} #+ Check constraints on the "prtb00012.transporte" column #+ #+ @param p_transporte - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00012_transporte_checkColumnConstraints(p_transporte) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_transporte LIKE prtb00012.transporte LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00012_transporte_checkColumnConstraints {<BLOCK Name="fct.prtb00012_itbis_checkColumnConstraints">} #+ Check constraints on the "prtb00012.itbis" column #+ #+ @param p_itbis - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00012_itbis_checkColumnConstraints(p_itbis) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_itbis LIKE prtb00012.itbis LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00012_itbis_checkColumnConstraints {<BLOCK Name="fct.prtb00012_ubicacion_checkColumnConstraints">} #+ Check constraints on the "prtb00012.ubicacion" column #+ #+ @param p_ubicacion - VARCHAR2(170) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00012_ubicacion_checkColumnConstraints(p_ubicacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ubicacion LIKE prtb00012.ubicacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00012_ubicacion_checkColumnConstraints {<BLOCK Name="fct.prtb00012_cerrada_checkColumnConstraints">} #+ Check constraints on the "prtb00012.cerrada" column #+ #+ @param p_cerrada - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00012_cerrada_checkColumnConstraints(p_cerrada) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cerrada LIKE prtb00012.cerrada LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00012_cerrada_checkColumnConstraints {<BLOCK Name="fct.prtb00012_fecha_cierre_checkColumnConstraints">} #+ Check constraints on the "prtb00012.fecha_cierre" column #+ #+ @param p_fecha_cierre - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00012_fecha_cierre_checkColumnConstraints(p_fecha_cierre) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_cierre LIKE prtb00012.fecha_cierre LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00012_fecha_cierre_checkColumnConstraints {<BLOCK Name="fct.prtb00012_status_t_checkColumnConstraints">} #+ Check constraints on the "prtb00012.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00012_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE prtb00012.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00012_status_t_checkColumnConstraints {<BLOCK Name="fct.prtb00012_us_crea_checkColumnConstraints">} #+ Check constraints on the "prtb00012.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00012_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE prtb00012.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00012_us_crea_checkColumnConstraints {<BLOCK Name="fct.prtb00012_fech_crea_checkColumnConstraints">} #+ Check constraints on the "prtb00012.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00012_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE prtb00012.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00012_fech_crea_checkColumnConstraints {<BLOCK Name="fct.prtb00012_us_mod_checkColumnConstraints">} #+ Check constraints on the "prtb00012.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00012_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE prtb00012.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00012_us_mod_checkColumnConstraints {<BLOCK Name="fct.prtb00012_fech_mod_checkColumnConstraints">} #+ Check constraints on the "prtb00012.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00012_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE prtb00012.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00012_fech_mod_checkColumnConstraints {<BLOCK Name="fct.prtb00012_observacion_checkColumnConstraints">} #+ Check constraints on the "prtb00012.observacion" column #+ #+ @param p_observacion - CHAR(100) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00012_observacion_checkColumnConstraints(p_observacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_observacion LIKE prtb00012.observacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00012_observacion_checkColumnConstraints {<BLOCK Name="fct.prtb00012_nombre_file2_checkColumnConstraints">} #+ Check constraints on the "prtb00012.nombre_file2" column #+ #+ @param p_nombre_file2 - CHAR(100) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00012_nombre_file2_checkColumnConstraints(p_nombre_file2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombre_file2 LIKE prtb00012.nombre_file2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00012_nombre_file2_checkColumnConstraints {<BLOCK Name="fct.prtb00011_checkTableConstraints">} #+ Check constraints on the "prtb00011" table #+ #+ @param p_data - a row data LIKE prtb00011.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00011_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE prtb00011.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_prtb00011_cotiza_no_checkColumnConstraints(p_data.cotiza_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00011_cot_n_checkColumnConstraints(p_data.cot_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00011_cot_grupo_checkColumnConstraints(p_data.cot_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00011_cot_tipo_checkColumnConstraints(p_data.cot_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00011_cot_sec_checkColumnConstraints(p_data.cot_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00011_precio_checkColumnConstraints(p_data.precio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00011_porc_desc_checkColumnConstraints(p_data.porc_desc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00011_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00011_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00011_us_month_checkColumnConstraints(p_data.us_month) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00011_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00011_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00011_checkTableConstraints {<BLOCK Name="fct.prtb00011_cotiza_no_checkColumnConstraints">} #+ Check constraints on the "prtb00011.cotiza_no" column #+ #+ @param p_cotiza_no - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00011_cotiza_no_checkColumnConstraints(p_cotiza_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cotiza_no LIKE prtb00011.cotiza_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00011_cotiza_no_checkColumnConstraints {<BLOCK Name="fct.prtb00011_cot_n_checkColumnConstraints">} #+ Check constraints on the "prtb00011.cot_n" column #+ #+ @param p_cot_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00011_cot_n_checkColumnConstraints(p_cot_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cot_n LIKE prtb00011.cot_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00011_cot_n_checkColumnConstraints {<BLOCK Name="fct.prtb00011_cot_grupo_checkColumnConstraints">} #+ Check constraints on the "prtb00011.cot_grupo" column #+ #+ @param p_cot_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00011_cot_grupo_checkColumnConstraints(p_cot_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cot_grupo LIKE prtb00011.cot_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00011_cot_grupo_checkColumnConstraints {<BLOCK Name="fct.prtb00011_cot_tipo_checkColumnConstraints">} #+ Check constraints on the "prtb00011.cot_tipo" column #+ #+ @param p_cot_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00011_cot_tipo_checkColumnConstraints(p_cot_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cot_tipo LIKE prtb00011.cot_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00011_cot_tipo_checkColumnConstraints {<BLOCK Name="fct.prtb00011_cot_sec_checkColumnConstraints">} #+ Check constraints on the "prtb00011.cot_sec" column #+ #+ @param p_cot_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00011_cot_sec_checkColumnConstraints(p_cot_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cot_sec LIKE prtb00011.cot_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00011_cot_sec_checkColumnConstraints {<BLOCK Name="fct.prtb00011_precio_checkColumnConstraints">} #+ Check constraints on the "prtb00011.precio" column #+ #+ @param p_precio - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00011_precio_checkColumnConstraints(p_precio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_precio LIKE prtb00011.precio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00011_precio_checkColumnConstraints {<BLOCK Name="fct.prtb00011_porc_desc_checkColumnConstraints">} #+ Check constraints on the "prtb00011.porc_desc" column #+ #+ @param p_porc_desc - DECIMAL(8,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00011_porc_desc_checkColumnConstraints(p_porc_desc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_porc_desc LIKE prtb00011.porc_desc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00011_porc_desc_checkColumnConstraints {<BLOCK Name="fct.prtb00011_status_t_checkColumnConstraints">} #+ Check constraints on the "prtb00011.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00011_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE prtb00011.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00011_status_t_checkColumnConstraints {<BLOCK Name="fct.prtb00011_us_crea_checkColumnConstraints">} #+ Check constraints on the "prtb00011.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00011_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE prtb00011.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00011_us_crea_checkColumnConstraints {<BLOCK Name="fct.prtb00011_us_month_checkColumnConstraints">} #+ Check constraints on the "prtb00011.us_month" column #+ #+ @param p_us_month - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00011_us_month_checkColumnConstraints(p_us_month) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_month LIKE prtb00011.us_month LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00011_us_month_checkColumnConstraints {<BLOCK Name="fct.prtb00011_fech_crea_checkColumnConstraints">} #+ Check constraints on the "prtb00011.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00011_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE prtb00011.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00011_fech_crea_checkColumnConstraints {<BLOCK Name="fct.prtb00011_fech_mod_checkColumnConstraints">} #+ Check constraints on the "prtb00011.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00011_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE prtb00011.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00011_fech_mod_checkColumnConstraints {<BLOCK Name="fct.prtb00010_checkTableConstraints">} #+ Check constraints on the "prtb00010" table #+ #+ @param p_data - a row data LIKE prtb00010.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00010_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE prtb00010.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_prtb00010_cotiza_no_checkColumnConstraints(p_data.cotiza_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00010_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00010_tipo_cliente_checkColumnConstraints(p_data.tipo_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00010_sec_cliente_checkColumnConstraints(p_data.sec_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00010_obra_checkColumnConstraints(p_data.obra) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00010_atencion_checkColumnConstraints(p_data.atencion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00010_cond_pago_checkColumnConstraints(p_data.cond_pago) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00010_sec_vent_checkColumnConstraints(p_data.sec_vent) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00010_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00010_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00010_us_month_checkColumnConstraints(p_data.us_month) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00010_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00010_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00010_checkTableConstraints {<BLOCK Name="fct.prtb00010_cotiza_no_checkColumnConstraints">} #+ Check constraints on the "prtb00010.cotiza_no" column #+ #+ @param p_cotiza_no - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00010_cotiza_no_checkColumnConstraints(p_cotiza_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cotiza_no LIKE prtb00010.cotiza_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00010_cotiza_no_checkColumnConstraints {<BLOCK Name="fct.prtb00010_fecha_checkColumnConstraints">} #+ Check constraints on the "prtb00010.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00010_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE prtb00010.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00010_fecha_checkColumnConstraints {<BLOCK Name="fct.prtb00010_tipo_cliente_checkColumnConstraints">} #+ Check constraints on the "prtb00010.tipo_cliente" column #+ #+ @param p_tipo_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00010_tipo_cliente_checkColumnConstraints(p_tipo_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_cliente LIKE prtb00010.tipo_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00010_tipo_cliente_checkColumnConstraints {<BLOCK Name="fct.prtb00010_sec_cliente_checkColumnConstraints">} #+ Check constraints on the "prtb00010.sec_cliente" column #+ #+ @param p_sec_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00010_sec_cliente_checkColumnConstraints(p_sec_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_cliente LIKE prtb00010.sec_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00010_sec_cliente_checkColumnConstraints {<BLOCK Name="fct.prtb00010_obra_checkColumnConstraints">} #+ Check constraints on the "prtb00010.obra" column #+ #+ @param p_obra - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00010_obra_checkColumnConstraints(p_obra) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_obra LIKE prtb00010.obra LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00010_obra_checkColumnConstraints {<BLOCK Name="fct.prtb00010_atencion_checkColumnConstraints">} #+ Check constraints on the "prtb00010.atencion" column #+ #+ @param p_atencion - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00010_atencion_checkColumnConstraints(p_atencion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_atencion LIKE prtb00010.atencion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00010_atencion_checkColumnConstraints {<BLOCK Name="fct.prtb00010_cond_pago_checkColumnConstraints">} #+ Check constraints on the "prtb00010.cond_pago" column #+ #+ @param p_cond_pago - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00010_cond_pago_checkColumnConstraints(p_cond_pago) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cond_pago LIKE prtb00010.cond_pago LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00010_cond_pago_checkColumnConstraints {<BLOCK Name="fct.prtb00010_sec_vent_checkColumnConstraints">} #+ Check constraints on the "prtb00010.sec_vent" column #+ #+ @param p_sec_vent - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00010_sec_vent_checkColumnConstraints(p_sec_vent) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_vent LIKE prtb00010.sec_vent LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00010_sec_vent_checkColumnConstraints {<BLOCK Name="fct.prtb00010_status_t_checkColumnConstraints">} #+ Check constraints on the "prtb00010.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00010_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE prtb00010.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00010_status_t_checkColumnConstraints {<BLOCK Name="fct.prtb00010_us_crea_checkColumnConstraints">} #+ Check constraints on the "prtb00010.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00010_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE prtb00010.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00010_us_crea_checkColumnConstraints {<BLOCK Name="fct.prtb00010_us_month_checkColumnConstraints">} #+ Check constraints on the "prtb00010.us_month" column #+ #+ @param p_us_month - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00010_us_month_checkColumnConstraints(p_us_month) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_month LIKE prtb00010.us_month LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00010_us_month_checkColumnConstraints {<BLOCK Name="fct.prtb00010_fech_crea_checkColumnConstraints">} #+ Check constraints on the "prtb00010.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00010_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE prtb00010.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00010_fech_crea_checkColumnConstraints {<BLOCK Name="fct.prtb00010_fech_mod_checkColumnConstraints">} #+ Check constraints on the "prtb00010.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00010_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE prtb00010.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00010_fech_mod_checkColumnConstraints {<BLOCK Name="fct.prtb00009_checkTableConstraints">} #+ Check constraints on the "prtb00009" table #+ #+ @param p_data - a row data LIKE prtb00009.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00009_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE prtb00009.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_prtb00009_num_oc_checkColumnConstraints(p_data.num_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00009_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00009_fecha_fabricacion_checkColumnConstraints(p_data.fecha_fabricacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00009_pendiente_checkColumnConstraints(p_data.pendiente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00009_detalle_checkColumnConstraints(p_data.detalle) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00009_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00009_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00009_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00009_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00009_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00009_checkTableConstraints {<BLOCK Name="fct.prtb00009_num_oc_checkColumnConstraints">} #+ Check constraints on the "prtb00009.num_oc" column #+ #+ @param p_num_oc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00009_num_oc_checkColumnConstraints(p_num_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_oc LIKE prtb00009.num_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00009_num_oc_checkColumnConstraints {<BLOCK Name="fct.prtb00009_fecha_checkColumnConstraints">} #+ Check constraints on the "prtb00009.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00009_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE prtb00009.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00009_fecha_checkColumnConstraints {<BLOCK Name="fct.prtb00009_fecha_fabricacion_checkColumnConstraints">} #+ Check constraints on the "prtb00009.fecha_fabricacion" column #+ #+ @param p_fecha_fabricacion - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00009_fecha_fabricacion_checkColumnConstraints(p_fecha_fabricacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_fabricacion LIKE prtb00009.fecha_fabricacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00009_fecha_fabricacion_checkColumnConstraints {<BLOCK Name="fct.prtb00009_pendiente_checkColumnConstraints">} #+ Check constraints on the "prtb00009.pendiente" column #+ #+ @param p_pendiente - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00009_pendiente_checkColumnConstraints(p_pendiente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_pendiente LIKE prtb00009.pendiente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00009_pendiente_checkColumnConstraints {<BLOCK Name="fct.prtb00009_detalle_checkColumnConstraints">} #+ Check constraints on the "prtb00009.detalle" column #+ #+ @param p_detalle - CHAR(300) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00009_detalle_checkColumnConstraints(p_detalle) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_detalle LIKE prtb00009.detalle LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00009_detalle_checkColumnConstraints {<BLOCK Name="fct.prtb00009_status_t_checkColumnConstraints">} #+ Check constraints on the "prtb00009.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00009_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE prtb00009.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00009_status_t_checkColumnConstraints {<BLOCK Name="fct.prtb00009_us_crea_checkColumnConstraints">} #+ Check constraints on the "prtb00009.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00009_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE prtb00009.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00009_us_crea_checkColumnConstraints {<BLOCK Name="fct.prtb00009_fech_crea_checkColumnConstraints">} #+ Check constraints on the "prtb00009.fech_crea" column #+ #+ @param p_fech_crea - VARCHAR2(27) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00009_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE prtb00009.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00009_fech_crea_checkColumnConstraints {<BLOCK Name="fct.prtb00009_us_mod_checkColumnConstraints">} #+ Check constraints on the "prtb00009.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00009_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE prtb00009.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00009_us_mod_checkColumnConstraints {<BLOCK Name="fct.prtb00009_fech_mod_checkColumnConstraints">} #+ Check constraints on the "prtb00009.fech_mod" column #+ #+ @param p_fech_mod - VARCHAR2(27) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00009_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE prtb00009.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00009_fech_mod_checkColumnConstraints {<BLOCK Name="fct.prtb00008_checkTableConstraints">} #+ Check constraints on the "prtb00008" table #+ #+ @param p_data - a row data LIKE prtb00008.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00008_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE prtb00008.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_prtb00008_num_oc_checkColumnConstraints(p_data.num_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00008_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00008_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00008_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00008_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00008_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00008_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00008_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00008_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00008_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00008_checkTableConstraints {<BLOCK Name="fct.prtb00008_num_oc_checkColumnConstraints">} #+ Check constraints on the "prtb00008.num_oc" column #+ #+ @param p_num_oc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00008_num_oc_checkColumnConstraints(p_num_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_oc LIKE prtb00008.num_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_num_oc IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- num_oc: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00008_num_oc_checkColumnConstraints {<BLOCK Name="fct.prtb00008_cod_n_checkColumnConstraints">} #+ Check constraints on the "prtb00008.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00008_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE prtb00008.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00008_cod_n_checkColumnConstraints {<BLOCK Name="fct.prtb00008_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "prtb00008.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00008_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE prtb00008.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_grupo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_grupo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00008_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.prtb00008_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "prtb00008.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00008_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE prtb00008.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tipo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tipo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00008_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.prtb00008_cod_sec_checkColumnConstraints">} #+ Check constraints on the "prtb00008.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00008_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE prtb00008.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00008_cod_sec_checkColumnConstraints {<BLOCK Name="fct.prtb00008_cantidad_checkColumnConstraints">} #+ Check constraints on the "prtb00008.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00008_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE prtb00008.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00008_cantidad_checkColumnConstraints {<BLOCK Name="fct.prtb00008_us_crea_checkColumnConstraints">} #+ Check constraints on the "prtb00008.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00008_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE prtb00008.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00008_us_crea_checkColumnConstraints {<BLOCK Name="fct.prtb00008_fech_crea_checkColumnConstraints">} #+ Check constraints on the "prtb00008.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00008_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE prtb00008.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00008_fech_crea_checkColumnConstraints {<BLOCK Name="fct.prtb00008_us_mod_checkColumnConstraints">} #+ Check constraints on the "prtb00008.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00008_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE prtb00008.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00008_us_mod_checkColumnConstraints {<BLOCK Name="fct.prtb00008_fech_mod_checkColumnConstraints">} #+ Check constraints on the "prtb00008.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00008_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE prtb00008.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00008_fech_mod_checkColumnConstraints {<BLOCK Name="fct.prtb00007_checkTableConstraints">} #+ Check constraints on the "prtb00007" table #+ #+ @param p_data - a row data LIKE prtb00007.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00007_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE prtb00007.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_prtb00007_num_oc_checkColumnConstraints(p_data.num_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00007_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00007_fecha_termina_checkColumnConstraints(p_data.fecha_termina) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00007_tipo_cliente_checkColumnConstraints(p_data.tipo_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00007_sec_cliente_checkColumnConstraints(p_data.sec_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00007_sec_vend_checkColumnConstraints(p_data.sec_vend) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00007_orden_pedido_checkColumnConstraints(p_data.orden_pedido) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00007_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00007_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00007_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00007_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00007_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00007_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00007_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00007_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00007_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00007_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00007_checkTableConstraints {<BLOCK Name="fct.prtb00007_num_oc_checkColumnConstraints">} #+ Check constraints on the "prtb00007.num_oc" column #+ #+ @param p_num_oc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00007_num_oc_checkColumnConstraints(p_num_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_oc LIKE prtb00007.num_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_num_oc IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- num_oc: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00007_num_oc_checkColumnConstraints {<BLOCK Name="fct.prtb00007_fecha_checkColumnConstraints">} #+ Check constraints on the "prtb00007.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00007_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE prtb00007.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_fecha IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- fecha: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00007_fecha_checkColumnConstraints {<BLOCK Name="fct.prtb00007_fecha_termina_checkColumnConstraints">} #+ Check constraints on the "prtb00007.fecha_termina" column #+ #+ @param p_fecha_termina - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00007_fecha_termina_checkColumnConstraints(p_fecha_termina) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_termina LIKE prtb00007.fecha_termina LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00007_fecha_termina_checkColumnConstraints {<BLOCK Name="fct.prtb00007_tipo_cliente_checkColumnConstraints">} #+ Check constraints on the "prtb00007.tipo_cliente" column #+ #+ @param p_tipo_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00007_tipo_cliente_checkColumnConstraints(p_tipo_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_cliente LIKE prtb00007.tipo_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_tipo_cliente IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- tipo_cliente: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00007_tipo_cliente_checkColumnConstraints {<BLOCK Name="fct.prtb00007_sec_cliente_checkColumnConstraints">} #+ Check constraints on the "prtb00007.sec_cliente" column #+ #+ @param p_sec_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00007_sec_cliente_checkColumnConstraints(p_sec_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_cliente LIKE prtb00007.sec_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_sec_cliente IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- sec_cliente: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00007_sec_cliente_checkColumnConstraints {<BLOCK Name="fct.prtb00007_sec_vend_checkColumnConstraints">} #+ Check constraints on the "prtb00007.sec_vend" column #+ #+ @param p_sec_vend - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00007_sec_vend_checkColumnConstraints(p_sec_vend) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_vend LIKE prtb00007.sec_vend LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00007_sec_vend_checkColumnConstraints {<BLOCK Name="fct.prtb00007_orden_pedido_checkColumnConstraints">} #+ Check constraints on the "prtb00007.orden_pedido" column #+ #+ @param p_orden_pedido - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00007_orden_pedido_checkColumnConstraints(p_orden_pedido) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_orden_pedido LIKE prtb00007.orden_pedido LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00007_orden_pedido_checkColumnConstraints {<BLOCK Name="fct.prtb00007_cod_n_checkColumnConstraints">} #+ Check constraints on the "prtb00007.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00007_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE prtb00007.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00007_cod_n_checkColumnConstraints {<BLOCK Name="fct.prtb00007_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "prtb00007.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00007_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE prtb00007.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00007_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.prtb00007_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "prtb00007.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00007_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE prtb00007.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00007_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.prtb00007_cod_sec_checkColumnConstraints">} #+ Check constraints on the "prtb00007.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00007_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE prtb00007.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00007_cod_sec_checkColumnConstraints {<BLOCK Name="fct.prtb00007_cantidad_checkColumnConstraints">} #+ Check constraints on the "prtb00007.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00007_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE prtb00007.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00007_cantidad_checkColumnConstraints {<BLOCK Name="fct.prtb00007_status_t_checkColumnConstraints">} #+ Check constraints on the "prtb00007.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00007_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE prtb00007.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00007_status_t_checkColumnConstraints {<BLOCK Name="fct.prtb00007_us_crea_checkColumnConstraints">} #+ Check constraints on the "prtb00007.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00007_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE prtb00007.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00007_us_crea_checkColumnConstraints {<BLOCK Name="fct.prtb00007_fech_crea_checkColumnConstraints">} #+ Check constraints on the "prtb00007.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00007_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE prtb00007.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00007_fech_crea_checkColumnConstraints {<BLOCK Name="fct.prtb00007_us_mod_checkColumnConstraints">} #+ Check constraints on the "prtb00007.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00007_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE prtb00007.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00007_us_mod_checkColumnConstraints {<BLOCK Name="fct.prtb00007_fech_mod_checkColumnConstraints">} #+ Check constraints on the "prtb00007.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00007_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE prtb00007.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00007_fech_mod_checkColumnConstraints {<BLOCK Name="fct.prtb00006_checkTableConstraints">} #+ Check constraints on the "prtb00006" table #+ #+ @param p_data - a row data LIKE prtb00006.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00006_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE prtb00006.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_prtb00006_cod_prod_checkColumnConstraints(p_data.cod_prod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00006_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00006_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00006_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00006_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00006_fact_conv_checkColumnConstraints(p_data.fact_conv) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00006_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00006_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00006_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00006_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00006_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00006_checkTableConstraints {<BLOCK Name="fct.prtb00006_cod_prod_checkColumnConstraints">} #+ Check constraints on the "prtb00006.cod_prod" column #+ #+ @param p_cod_prod - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00006_cod_prod_checkColumnConstraints(p_cod_prod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_prod LIKE prtb00006.cod_prod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00006_cod_prod_checkColumnConstraints {<BLOCK Name="fct.prtb00006_cod_n_checkColumnConstraints">} #+ Check constraints on the "prtb00006.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00006_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE prtb00006.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00006_cod_n_checkColumnConstraints {<BLOCK Name="fct.prtb00006_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "prtb00006.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00006_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE prtb00006.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00006_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.prtb00006_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "prtb00006.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00006_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE prtb00006.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00006_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.prtb00006_cod_sec_checkColumnConstraints">} #+ Check constraints on the "prtb00006.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00006_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE prtb00006.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00006_cod_sec_checkColumnConstraints {<BLOCK Name="fct.prtb00006_fact_conv_checkColumnConstraints">} #+ Check constraints on the "prtb00006.fact_conv" column #+ #+ @param p_fact_conv - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00006_fact_conv_checkColumnConstraints(p_fact_conv) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fact_conv LIKE prtb00006.fact_conv LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00006_fact_conv_checkColumnConstraints {<BLOCK Name="fct.prtb00006_status_t_checkColumnConstraints">} #+ Check constraints on the "prtb00006.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00006_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE prtb00006.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00006_status_t_checkColumnConstraints {<BLOCK Name="fct.prtb00006_us_crea_checkColumnConstraints">} #+ Check constraints on the "prtb00006.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00006_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE prtb00006.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00006_us_crea_checkColumnConstraints {<BLOCK Name="fct.prtb00006_fech_crea_checkColumnConstraints">} #+ Check constraints on the "prtb00006.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00006_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE prtb00006.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00006_fech_crea_checkColumnConstraints {<BLOCK Name="fct.prtb00006_us_mod_checkColumnConstraints">} #+ Check constraints on the "prtb00006.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00006_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE prtb00006.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00006_us_mod_checkColumnConstraints {<BLOCK Name="fct.prtb00006_fech_mod_checkColumnConstraints">} #+ Check constraints on the "prtb00006.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00006_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE prtb00006.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00006_fech_mod_checkColumnConstraints {<BLOCK Name="fct.prtb00005_checkTableConstraints">} #+ Check constraints on the "prtb00005" table #+ #+ @param p_data - a row data LIKE prtb00005.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00005_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE prtb00005.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_prtb00005_codigo_checkColumnConstraints(p_data.codigo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00005_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00005_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00005_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00005_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00005_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00005_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00005_checkTableConstraints {<BLOCK Name="fct.prtb00005_codigo_checkColumnConstraints">} #+ Check constraints on the "prtb00005.codigo" column #+ #+ @param p_codigo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00005_codigo_checkColumnConstraints(p_codigo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codigo LIKE prtb00005.codigo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00005_codigo_checkColumnConstraints {<BLOCK Name="fct.prtb00005_descripcion_checkColumnConstraints">} #+ Check constraints on the "prtb00005.descripcion" column #+ #+ @param p_descripcion - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00005_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE prtb00005.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00005_descripcion_checkColumnConstraints {<BLOCK Name="fct.prtb00005_status_t_checkColumnConstraints">} #+ Check constraints on the "prtb00005.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00005_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE prtb00005.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00005_status_t_checkColumnConstraints {<BLOCK Name="fct.prtb00005_us_crea_checkColumnConstraints">} #+ Check constraints on the "prtb00005.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00005_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE prtb00005.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00005_us_crea_checkColumnConstraints {<BLOCK Name="fct.prtb00005_fech_crea_checkColumnConstraints">} #+ Check constraints on the "prtb00005.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00005_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE prtb00005.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00005_fech_crea_checkColumnConstraints {<BLOCK Name="fct.prtb00005_us_mod_checkColumnConstraints">} #+ Check constraints on the "prtb00005.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00005_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE prtb00005.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00005_us_mod_checkColumnConstraints {<BLOCK Name="fct.prtb00005_fech_mod_checkColumnConstraints">} #+ Check constraints on the "prtb00005.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00005_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE prtb00005.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00005_fech_mod_checkColumnConstraints {<BLOCK Name="fct.prtb00004_checkTableConstraints">} #+ Check constraints on the "prtb00004" table #+ #+ @param p_data - a row data LIKE prtb00004.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00004_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE prtb00004.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_prtb00004_tipo_checkColumnConstraints(p_data.tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00004_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00004_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00004_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00004_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00004_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00004_checkTableConstraints {<BLOCK Name="fct.prtb00004_tipo_checkColumnConstraints">} #+ Check constraints on the "prtb00004.tipo" column #+ #+ @param p_tipo - CHAR(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00004_tipo_checkColumnConstraints(p_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo LIKE prtb00004.tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00004_tipo_checkColumnConstraints {<BLOCK Name="fct.prtb00004_departamento_checkColumnConstraints">} #+ Check constraints on the "prtb00004.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00004_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE prtb00004.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00004_departamento_checkColumnConstraints {<BLOCK Name="fct.prtb00004_us_crea_checkColumnConstraints">} #+ Check constraints on the "prtb00004.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00004_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE prtb00004.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00004_us_crea_checkColumnConstraints {<BLOCK Name="fct.prtb00004_fech_crea_checkColumnConstraints">} #+ Check constraints on the "prtb00004.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00004_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE prtb00004.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00004_fech_crea_checkColumnConstraints {<BLOCK Name="fct.prtb00004_us_mod_checkColumnConstraints">} #+ Check constraints on the "prtb00004.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00004_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE prtb00004.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00004_us_mod_checkColumnConstraints {<BLOCK Name="fct.prtb00004_fech_mod_checkColumnConstraints">} #+ Check constraints on the "prtb00004.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00004_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE prtb00004.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00004_fech_mod_checkColumnConstraints {<BLOCK Name="fct.prtb00003_checkTableConstraints">} #+ Check constraints on the "prtb00003" table #+ #+ @param p_data - a row data LIKE prtb00003.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00003_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE prtb00003.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_prtb00003_num_semana_checkColumnConstraints(p_data.num_semana) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00003_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00003_num_emp_checkColumnConstraints(p_data.num_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00003_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00003_hn_ind_checkColumnConstraints(p_data.hn_ind) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00003_he_ind_checkColumnConstraints(p_data.he_ind) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00003_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00003_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00003_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00003_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00003_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00003_checkTableConstraints {<BLOCK Name="fct.prtb00003_num_semana_checkColumnConstraints">} #+ Check constraints on the "prtb00003.num_semana" column #+ #+ @param p_num_semana - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00003_num_semana_checkColumnConstraints(p_num_semana) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_semana LIKE prtb00003.num_semana LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00003_num_semana_checkColumnConstraints {<BLOCK Name="fct.prtb00003_departamento_checkColumnConstraints">} #+ Check constraints on the "prtb00003.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00003_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE prtb00003.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00003_departamento_checkColumnConstraints {<BLOCK Name="fct.prtb00003_num_emp_checkColumnConstraints">} #+ Check constraints on the "prtb00003.num_emp" column #+ #+ @param p_num_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00003_num_emp_checkColumnConstraints(p_num_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_emp LIKE prtb00003.num_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00003_num_emp_checkColumnConstraints {<BLOCK Name="fct.prtb00003_fecha_checkColumnConstraints">} #+ Check constraints on the "prtb00003.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00003_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE prtb00003.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00003_fecha_checkColumnConstraints {<BLOCK Name="fct.prtb00003_hn_ind_checkColumnConstraints">} #+ Check constraints on the "prtb00003.hn_ind" column #+ #+ @param p_hn_ind - DECIMAL(5,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00003_hn_ind_checkColumnConstraints(p_hn_ind) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_hn_ind LIKE prtb00003.hn_ind LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00003_hn_ind_checkColumnConstraints {<BLOCK Name="fct.prtb00003_he_ind_checkColumnConstraints">} #+ Check constraints on the "prtb00003.he_ind" column #+ #+ @param p_he_ind - DECIMAL(5,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00003_he_ind_checkColumnConstraints(p_he_ind) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_he_ind LIKE prtb00003.he_ind LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00003_he_ind_checkColumnConstraints {<BLOCK Name="fct.prtb00003_status_t_checkColumnConstraints">} #+ Check constraints on the "prtb00003.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00003_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE prtb00003.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00003_status_t_checkColumnConstraints {<BLOCK Name="fct.prtb00003_us_crea_checkColumnConstraints">} #+ Check constraints on the "prtb00003.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00003_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE prtb00003.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00003_us_crea_checkColumnConstraints {<BLOCK Name="fct.prtb00003_fech_crea_checkColumnConstraints">} #+ Check constraints on the "prtb00003.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00003_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE prtb00003.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00003_fech_crea_checkColumnConstraints {<BLOCK Name="fct.prtb00003_us_mod_checkColumnConstraints">} #+ Check constraints on the "prtb00003.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00003_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE prtb00003.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00003_us_mod_checkColumnConstraints {<BLOCK Name="fct.prtb00003_fech_mod_checkColumnConstraints">} #+ Check constraints on the "prtb00003.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00003_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE prtb00003.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00003_fech_mod_checkColumnConstraints {<BLOCK Name="fct.prtb00002_checkTableConstraints">} #+ Check constraints on the "prtb00002" table #+ #+ @param p_data - a row data LIKE prtb00002.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00002_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE prtb00002.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_prtb00002_num_semana_checkColumnConstraints(p_data.num_semana) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00002_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00002_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00002_semana_del_checkColumnConstraints(p_data.semana_del) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00002_semana_al_checkColumnConstraints(p_data.semana_al) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00002_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00002_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00002_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00002_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00002_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00002_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00002_checkTableConstraints {<BLOCK Name="fct.prtb00002_num_semana_checkColumnConstraints">} #+ Check constraints on the "prtb00002.num_semana" column #+ #+ @param p_num_semana - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00002_num_semana_checkColumnConstraints(p_num_semana) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_semana LIKE prtb00002.num_semana LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00002_num_semana_checkColumnConstraints {<BLOCK Name="fct.prtb00002_ano_checkColumnConstraints">} #+ Check constraints on the "prtb00002.ano" column #+ #+ @param p_ano - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00002_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE prtb00002.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00002_ano_checkColumnConstraints {<BLOCK Name="fct.prtb00002_mes_checkColumnConstraints">} #+ Check constraints on the "prtb00002.mes" column #+ #+ @param p_mes - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00002_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE prtb00002.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00002_mes_checkColumnConstraints {<BLOCK Name="fct.prtb00002_semana_del_checkColumnConstraints">} #+ Check constraints on the "prtb00002.semana_del" column #+ #+ @param p_semana_del - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00002_semana_del_checkColumnConstraints(p_semana_del) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_semana_del LIKE prtb00002.semana_del LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00002_semana_del_checkColumnConstraints {<BLOCK Name="fct.prtb00002_semana_al_checkColumnConstraints">} #+ Check constraints on the "prtb00002.semana_al" column #+ #+ @param p_semana_al - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00002_semana_al_checkColumnConstraints(p_semana_al) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_semana_al LIKE prtb00002.semana_al LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00002_semana_al_checkColumnConstraints {<BLOCK Name="fct.prtb00002_descripcion_checkColumnConstraints">} #+ Check constraints on the "prtb00002.descripcion" column #+ #+ @param p_descripcion - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00002_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE prtb00002.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00002_descripcion_checkColumnConstraints {<BLOCK Name="fct.prtb00002_status_t_checkColumnConstraints">} #+ Check constraints on the "prtb00002.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00002_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE prtb00002.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00002_status_t_checkColumnConstraints {<BLOCK Name="fct.prtb00002_us_crea_checkColumnConstraints">} #+ Check constraints on the "prtb00002.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00002_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE prtb00002.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00002_us_crea_checkColumnConstraints {<BLOCK Name="fct.prtb00002_fech_crea_checkColumnConstraints">} #+ Check constraints on the "prtb00002.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00002_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE prtb00002.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00002_fech_crea_checkColumnConstraints {<BLOCK Name="fct.prtb00002_us_mod_checkColumnConstraints">} #+ Check constraints on the "prtb00002.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00002_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE prtb00002.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00002_us_mod_checkColumnConstraints {<BLOCK Name="fct.prtb00002_fech_mod_checkColumnConstraints">} #+ Check constraints on the "prtb00002.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00002_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE prtb00002.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00002_fech_mod_checkColumnConstraints {<BLOCK Name="fct.prtb00001_checkTableConstraints">} #+ Check constraints on the "prtb00001" table #+ #+ @param p_data - a row data LIKE prtb00001.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00001_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE prtb00001.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_prtb00001_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00001_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00001_tasa_checkColumnConstraints(p_data.tasa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prtb00001_concepto_checkColumnConstraints(p_data.concepto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00001_checkTableConstraints {<BLOCK Name="fct.prtb00001_ano_checkColumnConstraints">} #+ Check constraints on the "prtb00001.ano" column #+ #+ @param p_ano - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00001_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE prtb00001.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00001_ano_checkColumnConstraints {<BLOCK Name="fct.prtb00001_mes_checkColumnConstraints">} #+ Check constraints on the "prtb00001.mes" column #+ #+ @param p_mes - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00001_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE prtb00001.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00001_mes_checkColumnConstraints {<BLOCK Name="fct.prtb00001_tasa_checkColumnConstraints">} #+ Check constraints on the "prtb00001.tasa" column #+ #+ @param p_tasa - DECIMAL(8,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00001_tasa_checkColumnConstraints(p_tasa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tasa LIKE prtb00001.tasa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00001_tasa_checkColumnConstraints {<BLOCK Name="fct.prtb00001_concepto_checkColumnConstraints">} #+ Check constraints on the "prtb00001.concepto" column #+ #+ @param p_concepto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prtb00001_concepto_checkColumnConstraints(p_concepto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_concepto LIKE prtb00001.concepto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prtb00001_concepto_checkColumnConstraints {<BLOCK Name="fct.prordenstatus_checkTableConstraints">} #+ Check constraints on the "prordenstatus" table #+ #+ @param p_data - a row data LIKE prordenstatus.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_prordenstatus_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE prordenstatus.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_prordenstatus_fecha_trx_checkColumnConstraints(p_data.fecha_trx) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prordenstatus_num_oc_checkColumnConstraints(p_data.num_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prordenstatus_cerrada_checkColumnConstraints(p_data.cerrada) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prordenstatus_fecha_compromiso_checkColumnConstraints(p_data.fecha_compromiso) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prordenstatus_observacion_checkColumnConstraints(p_data.observacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prordenstatus_usuario_checkColumnConstraints(p_data.usuario) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prordenstatus_checkTableConstraints {<BLOCK Name="fct.prordenstatus_fecha_trx_checkColumnConstraints">} #+ Check constraints on the "prordenstatus.fecha_trx" column #+ #+ @param p_fecha_trx - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prordenstatus_fecha_trx_checkColumnConstraints(p_fecha_trx) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_trx LIKE prordenstatus.fecha_trx LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prordenstatus_fecha_trx_checkColumnConstraints {<BLOCK Name="fct.prordenstatus_num_oc_checkColumnConstraints">} #+ Check constraints on the "prordenstatus.num_oc" column #+ #+ @param p_num_oc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prordenstatus_num_oc_checkColumnConstraints(p_num_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_oc LIKE prordenstatus.num_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prordenstatus_num_oc_checkColumnConstraints {<BLOCK Name="fct.prordenstatus_cerrada_checkColumnConstraints">} #+ Check constraints on the "prordenstatus.cerrada" column #+ #+ @param p_cerrada - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prordenstatus_cerrada_checkColumnConstraints(p_cerrada) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cerrada LIKE prordenstatus.cerrada LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prordenstatus_cerrada_checkColumnConstraints {<BLOCK Name="fct.prordenstatus_fecha_compromiso_checkColumnConstraints">} #+ Check constraints on the "prordenstatus.fecha_compromiso" column #+ #+ @param p_fecha_compromiso - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prordenstatus_fecha_compromiso_checkColumnConstraints(p_fecha_compromiso) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_compromiso LIKE prordenstatus.fecha_compromiso LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prordenstatus_fecha_compromiso_checkColumnConstraints {<BLOCK Name="fct.prordenstatus_observacion_checkColumnConstraints">} #+ Check constraints on the "prordenstatus.observacion" column #+ #+ @param p_observacion - VARCHAR2(100) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prordenstatus_observacion_checkColumnConstraints(p_observacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_observacion LIKE prordenstatus.observacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prordenstatus_observacion_checkColumnConstraints {<BLOCK Name="fct.prordenstatus_usuario_checkColumnConstraints">} #+ Check constraints on the "prordenstatus.usuario" column #+ #+ @param p_usuario - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prordenstatus_usuario_checkColumnConstraints(p_usuario) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_usuario LIKE prordenstatus.usuario LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prordenstatus_usuario_checkColumnConstraints {<BLOCK Name="fct.prordenlog_checkTableConstraints">} #+ Check constraints on the "prordenlog" table #+ #+ @param p_data - a row data LIKE prordenlog.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_prordenlog_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE prordenlog.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_prordenlog_num_oc_checkColumnConstraints(p_data.num_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prordenlog_documento_checkColumnConstraints(p_data.documento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prordenlog_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prordenlog_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prordenlog_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prordenlog_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prordenlog_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prordenlog_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prordenlog_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prordenlog_cantidad_p_checkColumnConstraints(p_data.cantidad_p) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prordenlog_diferencia_checkColumnConstraints(p_data.diferencia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prordenlog_checkTableConstraints {<BLOCK Name="fct.prordenlog_num_oc_checkColumnConstraints">} #+ Check constraints on the "prordenlog.num_oc" column #+ #+ @param p_num_oc - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prordenlog_num_oc_checkColumnConstraints(p_num_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_oc LIKE prordenlog.num_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prordenlog_num_oc_checkColumnConstraints {<BLOCK Name="fct.prordenlog_documento_checkColumnConstraints">} #+ Check constraints on the "prordenlog.documento" column #+ #+ @param p_documento - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prordenlog_documento_checkColumnConstraints(p_documento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_documento LIKE prordenlog.documento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prordenlog_documento_checkColumnConstraints {<BLOCK Name="fct.prordenlog_cod_n_checkColumnConstraints">} #+ Check constraints on the "prordenlog.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prordenlog_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE prordenlog.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prordenlog_cod_n_checkColumnConstraints {<BLOCK Name="fct.prordenlog_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "prordenlog.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prordenlog_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE prordenlog.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prordenlog_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.prordenlog_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "prordenlog.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prordenlog_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE prordenlog.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prordenlog_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.prordenlog_cod_sec_checkColumnConstraints">} #+ Check constraints on the "prordenlog.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prordenlog_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE prordenlog.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prordenlog_cod_sec_checkColumnConstraints {<BLOCK Name="fct.prordenlog_cantidad_checkColumnConstraints">} #+ Check constraints on the "prordenlog.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prordenlog_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE prordenlog.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prordenlog_cantidad_checkColumnConstraints {<BLOCK Name="fct.prordenlog_fecha_checkColumnConstraints">} #+ Check constraints on the "prordenlog.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prordenlog_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE prordenlog.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prordenlog_fecha_checkColumnConstraints {<BLOCK Name="fct.prordenlog_cod_mov_checkColumnConstraints">} #+ Check constraints on the "prordenlog.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prordenlog_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE prordenlog.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prordenlog_cod_mov_checkColumnConstraints {<BLOCK Name="fct.prordenlog_cantidad_p_checkColumnConstraints">} #+ Check constraints on the "prordenlog.cantidad_p" column #+ #+ @param p_cantidad_p - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prordenlog_cantidad_p_checkColumnConstraints(p_cantidad_p) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad_p LIKE prordenlog.cantidad_p LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prordenlog_cantidad_p_checkColumnConstraints {<BLOCK Name="fct.prordenlog_diferencia_checkColumnConstraints">} #+ Check constraints on the "prordenlog.diferencia" column #+ #+ @param p_diferencia - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prordenlog_diferencia_checkColumnConstraints(p_diferencia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_diferencia LIKE prordenlog.diferencia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prordenlog_diferencia_checkColumnConstraints {<BLOCK Name="fct.product_checkTableConstraints">} #+ Check constraints on the "product" table #+ #+ @param p_data - a row data LIKE product.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_product_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE product.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_product_productid_checkColumnConstraints(p_data.productid) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_product_catid_checkColumnConstraints(p_data.catid) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_product_prodname_checkColumnConstraints(p_data.prodname) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_product_proddesc_checkColumnConstraints(p_data.proddesc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_product_prodpic_checkColumnConstraints(p_data.prodpic) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.product_checkTableConstraints {<BLOCK Name="fct.product_productid_checkColumnConstraints">} #+ Check constraints on the "product.productid" column #+ #+ @param p_productid - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_product_productid_checkColumnConstraints(p_productid) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_productid LIKE product.productid LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_productid IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- productid: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.product_productid_checkColumnConstraints {<BLOCK Name="fct.product_catid_checkColumnConstraints">} #+ Check constraints on the "product.catid" column #+ #+ @param p_catid - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_product_catid_checkColumnConstraints(p_catid) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_catid LIKE product.catid LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_catid IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- catid: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.product_catid_checkColumnConstraints {<BLOCK Name="fct.product_prodname_checkColumnConstraints">} #+ Check constraints on the "product.prodname" column #+ #+ @param p_prodname - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_product_prodname_checkColumnConstraints(p_prodname) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_prodname LIKE product.prodname LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.product_prodname_checkColumnConstraints {<BLOCK Name="fct.product_proddesc_checkColumnConstraints">} #+ Check constraints on the "product.proddesc" column #+ #+ @param p_proddesc - CHAR(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_product_proddesc_checkColumnConstraints(p_proddesc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_proddesc LIKE product.proddesc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.product_proddesc_checkColumnConstraints {<BLOCK Name="fct.product_prodpic_checkColumnConstraints">} #+ Check constraints on the "product.prodpic" column #+ #+ @param p_prodpic - CHAR(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_product_prodpic_checkColumnConstraints(p_prodpic) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_prodpic LIKE product.prodpic LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.product_prodpic_checkColumnConstraints {<BLOCK Name="fct.preciosc_checkTableConstraints">} #+ Check constraints on the "preciosc" table #+ #+ @param p_data - a row data LIKE preciosc.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_preciosc_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE preciosc.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_preciosc_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_preciosc_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_preciosc_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_preciosc_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_preciosc_precio_checkColumnConstraints(p_data.precio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.preciosc_checkTableConstraints {<BLOCK Name="fct.preciosc_cod_n_checkColumnConstraints">} #+ Check constraints on the "preciosc.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_preciosc_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE preciosc.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.preciosc_cod_n_checkColumnConstraints {<BLOCK Name="fct.preciosc_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "preciosc.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_preciosc_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE preciosc.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.preciosc_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.preciosc_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "preciosc.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_preciosc_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE preciosc.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.preciosc_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.preciosc_cod_sec_checkColumnConstraints">} #+ Check constraints on the "preciosc.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_preciosc_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE preciosc.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.preciosc_cod_sec_checkColumnConstraints {<BLOCK Name="fct.preciosc_precio_checkColumnConstraints">} #+ Check constraints on the "preciosc.precio" column #+ #+ @param p_precio - DECIMAL(18,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_preciosc_precio_checkColumnConstraints(p_precio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_precio LIKE preciosc.precio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.preciosc_precio_checkColumnConstraints {<BLOCK Name="fct.precios_checkTableConstraints">} #+ Check constraints on the "precios" table #+ #+ @param p_data - a row data LIKE precios.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_precios_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE precios.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_precios_ventas_checkColumnConstraints(p_data.ventas) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_precios_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_precios_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_precios_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_precios_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_precios_precios_checkColumnConstraints(p_data.precios) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_precios_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_precios_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.precios_checkTableConstraints {<BLOCK Name="fct.precios_ventas_checkColumnConstraints">} #+ Check constraints on the "precios.ventas" column #+ #+ @param p_ventas - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_precios_ventas_checkColumnConstraints(p_ventas) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ventas LIKE precios.ventas LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.precios_ventas_checkColumnConstraints {<BLOCK Name="fct.precios_cod_n_checkColumnConstraints">} #+ Check constraints on the "precios.cod_n" column #+ #+ @param p_cod_n - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_precios_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE precios.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.precios_cod_n_checkColumnConstraints {<BLOCK Name="fct.precios_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "precios.cod_grupo" column #+ #+ @param p_cod_grupo - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_precios_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE precios.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.precios_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.precios_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "precios.cod_tipo" column #+ #+ @param p_cod_tipo - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_precios_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE precios.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.precios_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.precios_cod_sec_checkColumnConstraints">} #+ Check constraints on the "precios.cod_sec" column #+ #+ @param p_cod_sec - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_precios_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE precios.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.precios_cod_sec_checkColumnConstraints {<BLOCK Name="fct.precios_precios_checkColumnConstraints">} #+ Check constraints on the "precios.precios" column #+ #+ @param p_precios - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_precios_precios_checkColumnConstraints(p_precios) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_precios LIKE precios.precios LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.precios_precios_checkColumnConstraints {<BLOCK Name="fct.precios_us_crea_checkColumnConstraints">} #+ Check constraints on the "precios.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_precios_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE precios.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.precios_us_crea_checkColumnConstraints {<BLOCK Name="fct.precios_descripcion_checkColumnConstraints">} #+ Check constraints on the "precios.descripcion" column #+ #+ @param p_descripcion - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_precios_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE precios.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.precios_descripcion_checkColumnConstraints {<BLOCK Name="fct.prdtable_checkTableConstraints">} #+ Check constraints on the "prdtable" table #+ #+ @param p_data - a row data LIKE prdtable.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_prdtable_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE prdtable.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_prdtable_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prdtable_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prdtable_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 smarmotech_dbxconstraints_prdtable_fecha_corte_checkColumnConstraints(p_data.fecha_corte) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prdtable_dias_habiles_checkColumnConstraints(p_data.dias_habiles) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prdtable_dias_gracia_checkColumnConstraints(p_data.dias_gracia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prdtable_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prdtable_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prdtable_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_prdtable_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prdtable_checkTableConstraints {<BLOCK Name="fct.prdtable_ano_checkColumnConstraints">} #+ Check constraints on the "prdtable.ano" column #+ #+ @param p_ano - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prdtable_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE prdtable.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prdtable_ano_checkColumnConstraints {<BLOCK Name="fct.prdtable_mes_checkColumnConstraints">} #+ Check constraints on the "prdtable.mes" column #+ #+ @param p_mes - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prdtable_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE prdtable.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prdtable_mes_checkColumnConstraints {<BLOCK Name="fct.prdtable_fecha_inicio_checkColumnConstraints">} #+ Check constraints on the "prdtable.fecha_inicio" column #+ #+ @param p_fecha_inicio - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prdtable_fecha_inicio_checkColumnConstraints(p_fecha_inicio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_inicio LIKE prdtable.fecha_inicio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prdtable_fecha_inicio_checkColumnConstraints {<BLOCK Name="fct.prdtable_fecha_corte_checkColumnConstraints">} #+ Check constraints on the "prdtable.fecha_corte" column #+ #+ @param p_fecha_corte - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prdtable_fecha_corte_checkColumnConstraints(p_fecha_corte) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_corte LIKE prdtable.fecha_corte LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prdtable_fecha_corte_checkColumnConstraints {<BLOCK Name="fct.prdtable_dias_habiles_checkColumnConstraints">} #+ Check constraints on the "prdtable.dias_habiles" column #+ #+ @param p_dias_habiles - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prdtable_dias_habiles_checkColumnConstraints(p_dias_habiles) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_dias_habiles LIKE prdtable.dias_habiles LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prdtable_dias_habiles_checkColumnConstraints {<BLOCK Name="fct.prdtable_dias_gracia_checkColumnConstraints">} #+ Check constraints on the "prdtable.dias_gracia" column #+ #+ @param p_dias_gracia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prdtable_dias_gracia_checkColumnConstraints(p_dias_gracia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_dias_gracia LIKE prdtable.dias_gracia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prdtable_dias_gracia_checkColumnConstraints {<BLOCK Name="fct.prdtable_us_crea_checkColumnConstraints">} #+ Check constraints on the "prdtable.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prdtable_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE prdtable.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prdtable_us_crea_checkColumnConstraints {<BLOCK Name="fct.prdtable_fech_crea_checkColumnConstraints">} #+ Check constraints on the "prdtable.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prdtable_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE prdtable.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prdtable_fech_crea_checkColumnConstraints {<BLOCK Name="fct.prdtable_us_mod_checkColumnConstraints">} #+ Check constraints on the "prdtable.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prdtable_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE prdtable.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prdtable_us_mod_checkColumnConstraints {<BLOCK Name="fct.prdtable_fech_mod_checkColumnConstraints">} #+ Check constraints on the "prdtable.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_prdtable_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE prdtable.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.prdtable_fech_mod_checkColumnConstraints {<BLOCK Name="fct.permisos_checkTableConstraints">} #+ Check constraints on the "permisos" table #+ #+ @param p_data - a row data LIKE permisos.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_permisos_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE permisos.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_permisos_cod_perfil_checkColumnConstraints(p_data.cod_perfil) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_permisos_column_1_checkColumnConstraints(p_data.column_1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_permisos_column_2_checkColumnConstraints(p_data.column_2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_permisos_column_3_checkColumnConstraints(p_data.column_3) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.permisos_checkTableConstraints {<BLOCK Name="fct.permisos_cod_perfil_checkColumnConstraints">} #+ Check constraints on the "permisos.cod_perfil" column #+ #+ @param p_cod_perfil - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_permisos_cod_perfil_checkColumnConstraints(p_cod_perfil) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_perfil LIKE permisos.cod_perfil LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.permisos_cod_perfil_checkColumnConstraints {<BLOCK Name="fct.permisos_column_1_checkColumnConstraints">} #+ Check constraints on the "permisos.column_1" column #+ #+ @param p_column_1 - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_permisos_column_1_checkColumnConstraints(p_column_1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_column_1 LIKE permisos.column_1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.permisos_column_1_checkColumnConstraints {<BLOCK Name="fct.permisos_column_2_checkColumnConstraints">} #+ Check constraints on the "permisos.column_2" column #+ #+ @param p_column_2 - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_permisos_column_2_checkColumnConstraints(p_column_2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_column_2 LIKE permisos.column_2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.permisos_column_2_checkColumnConstraints {<BLOCK Name="fct.permisos_column_3_checkColumnConstraints">} #+ Check constraints on the "permisos.column_3" column #+ #+ @param p_column_3 - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_permisos_column_3_checkColumnConstraints(p_column_3) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_column_3 LIKE permisos.column_3 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.permisos_column_3_checkColumnConstraints {<BLOCK Name="fct.pda5_checkTableConstraints">} #+ Check constraints on the "pda5" table #+ #+ @param p_data - a row data LIKE pda5.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_pda5_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE pda5.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_pda5_idtrx_checkColumnConstraints(p_data.idtrx) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_pda5_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_pda5_bodega_checkColumnConstraints(p_data.bodega) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_pda5_cod_seccion_checkColumnConstraints(p_data.cod_seccion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_pda5_cod_tramo_checkColumnConstraints(p_data.cod_tramo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_pda5_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_pda5_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_pda5_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_pda5_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_pda5_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_pda5_balance_checkColumnConstraints(p_data.balance) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_pda5_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_pda5_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_pda5_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_pda5_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_pda5_lado_1_checkColumnConstraints(p_data.lado_1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_pda5_lado_2_checkColumnConstraints(p_data.lado_2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_pda5_lado_3_checkColumnConstraints(p_data.lado_3) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.pda5_checkTableConstraints {<BLOCK Name="fct.pda5_idtrx_checkColumnConstraints">} #+ Check constraints on the "pda5.idtrx" column #+ #+ @param p_idtrx - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_pda5_idtrx_checkColumnConstraints(p_idtrx) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_idtrx LIKE pda5.idtrx LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.pda5_idtrx_checkColumnConstraints {<BLOCK Name="fct.pda5_fecha_checkColumnConstraints">} #+ Check constraints on the "pda5.fecha" column #+ #+ @param p_fecha - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_pda5_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE pda5.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.pda5_fecha_checkColumnConstraints {<BLOCK Name="fct.pda5_bodega_checkColumnConstraints">} #+ Check constraints on the "pda5.bodega" column #+ #+ @param p_bodega - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_pda5_bodega_checkColumnConstraints(p_bodega) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_bodega LIKE pda5.bodega LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.pda5_bodega_checkColumnConstraints {<BLOCK Name="fct.pda5_cod_seccion_checkColumnConstraints">} #+ Check constraints on the "pda5.cod_seccion" column #+ #+ @param p_cod_seccion - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_pda5_cod_seccion_checkColumnConstraints(p_cod_seccion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_seccion LIKE pda5.cod_seccion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.pda5_cod_seccion_checkColumnConstraints {<BLOCK Name="fct.pda5_cod_tramo_checkColumnConstraints">} #+ Check constraints on the "pda5.cod_tramo" column #+ #+ @param p_cod_tramo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_pda5_cod_tramo_checkColumnConstraints(p_cod_tramo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tramo LIKE pda5.cod_tramo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.pda5_cod_tramo_checkColumnConstraints {<BLOCK Name="fct.pda5_cod_n_checkColumnConstraints">} #+ Check constraints on the "pda5.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_pda5_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE pda5.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.pda5_cod_n_checkColumnConstraints {<BLOCK Name="fct.pda5_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "pda5.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_pda5_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE pda5.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.pda5_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.pda5_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "pda5.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_pda5_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE pda5.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.pda5_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.pda5_cod_sec_checkColumnConstraints">} #+ Check constraints on the "pda5.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_pda5_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE pda5.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.pda5_cod_sec_checkColumnConstraints {<BLOCK Name="fct.pda5_cantidad_checkColumnConstraints">} #+ Check constraints on the "pda5.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_pda5_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE pda5.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.pda5_cantidad_checkColumnConstraints {<BLOCK Name="fct.pda5_balance_checkColumnConstraints">} #+ Check constraints on the "pda5.balance" column #+ #+ @param p_balance - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_pda5_balance_checkColumnConstraints(p_balance) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_balance LIKE pda5.balance LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.pda5_balance_checkColumnConstraints {<BLOCK Name="fct.pda5_us_crea_checkColumnConstraints">} #+ Check constraints on the "pda5.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_pda5_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE pda5.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.pda5_us_crea_checkColumnConstraints {<BLOCK Name="fct.pda5_fech_crea_checkColumnConstraints">} #+ Check constraints on the "pda5.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_pda5_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE pda5.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.pda5_fech_crea_checkColumnConstraints {<BLOCK Name="fct.pda5_us_mod_checkColumnConstraints">} #+ Check constraints on the "pda5.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_pda5_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE pda5.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.pda5_us_mod_checkColumnConstraints {<BLOCK Name="fct.pda5_fech_mod_checkColumnConstraints">} #+ Check constraints on the "pda5.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_pda5_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE pda5.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.pda5_fech_mod_checkColumnConstraints {<BLOCK Name="fct.pda5_lado_1_checkColumnConstraints">} #+ Check constraints on the "pda5.lado_1" column #+ #+ @param p_lado_1 - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_pda5_lado_1_checkColumnConstraints(p_lado_1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_lado_1 LIKE pda5.lado_1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.pda5_lado_1_checkColumnConstraints {<BLOCK Name="fct.pda5_lado_2_checkColumnConstraints">} #+ Check constraints on the "pda5.lado_2" column #+ #+ @param p_lado_2 - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_pda5_lado_2_checkColumnConstraints(p_lado_2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_lado_2 LIKE pda5.lado_2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.pda5_lado_2_checkColumnConstraints {<BLOCK Name="fct.pda5_lado_3_checkColumnConstraints">} #+ Check constraints on the "pda5.lado_3" column #+ #+ @param p_lado_3 - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_pda5_lado_3_checkColumnConstraints(p_lado_3) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_lado_3 LIKE pda5.lado_3 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.pda5_lado_3_checkColumnConstraints {<BLOCK Name="fct.orderstatus_checkTableConstraints">} #+ Check constraints on the "orderstatus" table #+ #+ @param p_data - a row data LIKE orderstatus.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_orderstatus_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE orderstatus.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_orderstatus_orderid_checkColumnConstraints(p_data.orderid) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_orderstatus_linenum_checkColumnConstraints(p_data.linenum) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_orderstatus_mdate_checkColumnConstraints(p_data.mdate) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_orderstatus_status_checkColumnConstraints(p_data.status) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.orderstatus_checkTableConstraints {<BLOCK Name="fct.orderstatus_orderid_checkColumnConstraints">} #+ Check constraints on the "orderstatus.orderid" column #+ #+ @param p_orderid - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_orderstatus_orderid_checkColumnConstraints(p_orderid) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_orderid LIKE orderstatus.orderid LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_orderid IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- orderid: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.orderstatus_orderid_checkColumnConstraints {<BLOCK Name="fct.orderstatus_linenum_checkColumnConstraints">} #+ Check constraints on the "orderstatus.linenum" column #+ #+ @param p_linenum - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_orderstatus_linenum_checkColumnConstraints(p_linenum) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_linenum LIKE orderstatus.linenum LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_linenum IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- linenum: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.orderstatus_linenum_checkColumnConstraints {<BLOCK Name="fct.orderstatus_mdate_checkColumnConstraints">} #+ Check constraints on the "orderstatus.mdate" column #+ #+ @param p_mdate - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_orderstatus_mdate_checkColumnConstraints(p_mdate) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mdate LIKE orderstatus.mdate LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_mdate IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- mdate: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.orderstatus_mdate_checkColumnConstraints {<BLOCK Name="fct.orderstatus_status_checkColumnConstraints">} #+ Check constraints on the "orderstatus.status" column #+ #+ @param p_status - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_orderstatus_status_checkColumnConstraints(p_status) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status LIKE orderstatus.status LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_status IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- status: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.orderstatus_status_checkColumnConstraints {<BLOCK Name="fct.orders_checkTableConstraints">} #+ Check constraints on the "orders" table #+ #+ @param p_data - a row data LIKE orders.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_orders_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE orders.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_orders_orderid_checkColumnConstraints(p_data.orderid) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_orders_userid_checkColumnConstraints(p_data.userid) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_orders_orderdate_checkColumnConstraints(p_data.orderdate) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_orders_shipfirstname_checkColumnConstraints(p_data.shipfirstname) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_orders_shiplastname_checkColumnConstraints(p_data.shiplastname) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_orders_shipaddr1_checkColumnConstraints(p_data.shipaddr1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_orders_shipaddr2_checkColumnConstraints(p_data.shipaddr2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_orders_shipcity_checkColumnConstraints(p_data.shipcity) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_orders_shipstate_checkColumnConstraints(p_data.shipstate) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_orders_shipzip_checkColumnConstraints(p_data.shipzip) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_orders_shipcountry_checkColumnConstraints(p_data.shipcountry) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_orders_billfirstname_checkColumnConstraints(p_data.billfirstname) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_orders_billlastname_checkColumnConstraints(p_data.billlastname) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_orders_billaddr1_checkColumnConstraints(p_data.billaddr1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_orders_billaddr2_checkColumnConstraints(p_data.billaddr2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_orders_billcity_checkColumnConstraints(p_data.billcity) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_orders_billstate_checkColumnConstraints(p_data.billstate) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_orders_billzip_checkColumnConstraints(p_data.billzip) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_orders_billcountry_checkColumnConstraints(p_data.billcountry) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_orders_totalprice_checkColumnConstraints(p_data.totalprice) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_orders_creditcard_checkColumnConstraints(p_data.creditcard) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_orders_exprdate_checkColumnConstraints(p_data.exprdate) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_orders_cardtype_checkColumnConstraints(p_data.cardtype) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_orders_sourceapp_checkColumnConstraints(p_data.sourceapp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.orders_checkTableConstraints {<BLOCK Name="fct.orders_orderid_checkColumnConstraints">} #+ Check constraints on the "orders.orderid" column #+ #+ @param p_orderid - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_orders_orderid_checkColumnConstraints(p_orderid) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_orderid LIKE orders.orderid LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_orderid IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- orderid: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.orders_orderid_checkColumnConstraints {<BLOCK Name="fct.orders_userid_checkColumnConstraints">} #+ Check constraints on the "orders.userid" column #+ #+ @param p_userid - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_orders_userid_checkColumnConstraints(p_userid) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_userid LIKE orders.userid LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_userid IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- userid: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.orders_userid_checkColumnConstraints {<BLOCK Name="fct.orders_orderdate_checkColumnConstraints">} #+ Check constraints on the "orders.orderdate" column #+ #+ @param p_orderdate - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_orders_orderdate_checkColumnConstraints(p_orderdate) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_orderdate LIKE orders.orderdate LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_orderdate IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- orderdate: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.orders_orderdate_checkColumnConstraints {<BLOCK Name="fct.orders_shipfirstname_checkColumnConstraints">} #+ Check constraints on the "orders.shipfirstname" column #+ #+ @param p_shipfirstname - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_orders_shipfirstname_checkColumnConstraints(p_shipfirstname) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_shipfirstname LIKE orders.shipfirstname LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_shipfirstname IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- shipfirstname: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.orders_shipfirstname_checkColumnConstraints {<BLOCK Name="fct.orders_shiplastname_checkColumnConstraints">} #+ Check constraints on the "orders.shiplastname" column #+ #+ @param p_shiplastname - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_orders_shiplastname_checkColumnConstraints(p_shiplastname) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_shiplastname LIKE orders.shiplastname LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_shiplastname IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- shiplastname: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.orders_shiplastname_checkColumnConstraints {<BLOCK Name="fct.orders_shipaddr1_checkColumnConstraints">} #+ Check constraints on the "orders.shipaddr1" column #+ #+ @param p_shipaddr1 - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_orders_shipaddr1_checkColumnConstraints(p_shipaddr1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_shipaddr1 LIKE orders.shipaddr1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_shipaddr1 IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- shipaddr1: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.orders_shipaddr1_checkColumnConstraints {<BLOCK Name="fct.orders_shipaddr2_checkColumnConstraints">} #+ Check constraints on the "orders.shipaddr2" column #+ #+ @param p_shipaddr2 - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_orders_shipaddr2_checkColumnConstraints(p_shipaddr2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_shipaddr2 LIKE orders.shipaddr2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.orders_shipaddr2_checkColumnConstraints {<BLOCK Name="fct.orders_shipcity_checkColumnConstraints">} #+ Check constraints on the "orders.shipcity" column #+ #+ @param p_shipcity - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_orders_shipcity_checkColumnConstraints(p_shipcity) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_shipcity LIKE orders.shipcity LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_shipcity IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- shipcity: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.orders_shipcity_checkColumnConstraints {<BLOCK Name="fct.orders_shipstate_checkColumnConstraints">} #+ Check constraints on the "orders.shipstate" column #+ #+ @param p_shipstate - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_orders_shipstate_checkColumnConstraints(p_shipstate) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_shipstate LIKE orders.shipstate LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.orders_shipstate_checkColumnConstraints {<BLOCK Name="fct.orders_shipzip_checkColumnConstraints">} #+ Check constraints on the "orders.shipzip" column #+ #+ @param p_shipzip - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_orders_shipzip_checkColumnConstraints(p_shipzip) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_shipzip LIKE orders.shipzip LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_shipzip IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- shipzip: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.orders_shipzip_checkColumnConstraints {<BLOCK Name="fct.orders_shipcountry_checkColumnConstraints">} #+ Check constraints on the "orders.shipcountry" column #+ #+ @param p_shipcountry - CHAR(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_orders_shipcountry_checkColumnConstraints(p_shipcountry) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_shipcountry LIKE orders.shipcountry LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_shipcountry IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- shipcountry: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.orders_shipcountry_checkColumnConstraints {<BLOCK Name="fct.orders_billfirstname_checkColumnConstraints">} #+ Check constraints on the "orders.billfirstname" column #+ #+ @param p_billfirstname - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_orders_billfirstname_checkColumnConstraints(p_billfirstname) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_billfirstname LIKE orders.billfirstname LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_billfirstname IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- billfirstname: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.orders_billfirstname_checkColumnConstraints {<BLOCK Name="fct.orders_billlastname_checkColumnConstraints">} #+ Check constraints on the "orders.billlastname" column #+ #+ @param p_billlastname - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_orders_billlastname_checkColumnConstraints(p_billlastname) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_billlastname LIKE orders.billlastname LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_billlastname IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- billlastname: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.orders_billlastname_checkColumnConstraints {<BLOCK Name="fct.orders_billaddr1_checkColumnConstraints">} #+ Check constraints on the "orders.billaddr1" column #+ #+ @param p_billaddr1 - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_orders_billaddr1_checkColumnConstraints(p_billaddr1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_billaddr1 LIKE orders.billaddr1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_billaddr1 IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- billaddr1: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.orders_billaddr1_checkColumnConstraints {<BLOCK Name="fct.orders_billaddr2_checkColumnConstraints">} #+ Check constraints on the "orders.billaddr2" column #+ #+ @param p_billaddr2 - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_orders_billaddr2_checkColumnConstraints(p_billaddr2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_billaddr2 LIKE orders.billaddr2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.orders_billaddr2_checkColumnConstraints {<BLOCK Name="fct.orders_billcity_checkColumnConstraints">} #+ Check constraints on the "orders.billcity" column #+ #+ @param p_billcity - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_orders_billcity_checkColumnConstraints(p_billcity) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_billcity LIKE orders.billcity LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_billcity IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- billcity: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.orders_billcity_checkColumnConstraints {<BLOCK Name="fct.orders_billstate_checkColumnConstraints">} #+ Check constraints on the "orders.billstate" column #+ #+ @param p_billstate - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_orders_billstate_checkColumnConstraints(p_billstate) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_billstate LIKE orders.billstate LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.orders_billstate_checkColumnConstraints {<BLOCK Name="fct.orders_billzip_checkColumnConstraints">} #+ Check constraints on the "orders.billzip" column #+ #+ @param p_billzip - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_orders_billzip_checkColumnConstraints(p_billzip) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_billzip LIKE orders.billzip LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_billzip IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- billzip: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.orders_billzip_checkColumnConstraints {<BLOCK Name="fct.orders_billcountry_checkColumnConstraints">} #+ Check constraints on the "orders.billcountry" column #+ #+ @param p_billcountry - CHAR(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_orders_billcountry_checkColumnConstraints(p_billcountry) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_billcountry LIKE orders.billcountry LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_billcountry IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- billcountry: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.orders_billcountry_checkColumnConstraints {<BLOCK Name="fct.orders_totalprice_checkColumnConstraints">} #+ Check constraints on the "orders.totalprice" column #+ #+ @param p_totalprice - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_orders_totalprice_checkColumnConstraints(p_totalprice) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_totalprice LIKE orders.totalprice LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_totalprice IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- totalprice: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.orders_totalprice_checkColumnConstraints {<BLOCK Name="fct.orders_creditcard_checkColumnConstraints">} #+ Check constraints on the "orders.creditcard" column #+ #+ @param p_creditcard - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_orders_creditcard_checkColumnConstraints(p_creditcard) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_creditcard LIKE orders.creditcard LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.orders_creditcard_checkColumnConstraints {<BLOCK Name="fct.orders_exprdate_checkColumnConstraints">} #+ Check constraints on the "orders.exprdate" column #+ #+ @param p_exprdate - CHAR(7) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_orders_exprdate_checkColumnConstraints(p_exprdate) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_exprdate LIKE orders.exprdate LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.orders_exprdate_checkColumnConstraints {<BLOCK Name="fct.orders_cardtype_checkColumnConstraints">} #+ Check constraints on the "orders.cardtype" column #+ #+ @param p_cardtype - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_orders_cardtype_checkColumnConstraints(p_cardtype) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cardtype LIKE orders.cardtype LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.orders_cardtype_checkColumnConstraints {<BLOCK Name="fct.orders_sourceapp_checkColumnConstraints">} #+ Check constraints on the "orders.sourceapp" column #+ #+ @param p_sourceapp - CHAR(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_orders_sourceapp_checkColumnConstraints(p_sourceapp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sourceapp LIKE orders.sourceapp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_sourceapp IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- sourceapp: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.orders_sourceapp_checkColumnConstraints {<BLOCK Name="fct.ntb00005_checkTableConstraints">} #+ Check constraints on the "ntb00005" table #+ #+ @param p_data - a row data LIKE ntb00005.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_ntb00005_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE ntb00005.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_ntb00005_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ntb00005_descrip_mov_checkColumnConstraints(p_data.descrip_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ntb00005_status_mov_checkColumnConstraints(p_data.status_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ntb00005_cuenta_1_checkColumnConstraints(p_data.cuenta_1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ntb00005_cuenta_2_checkColumnConstraints(p_data.cuenta_2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ntb00005_cuenta_3_checkColumnConstraints(p_data.cuenta_3) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ntb00005_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ntb00005_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ntb00005_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ntb00005_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ntb00005_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ntb00005_checkTableConstraints {<BLOCK Name="fct.ntb00005_cod_mov_checkColumnConstraints">} #+ Check constraints on the "ntb00005.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ntb00005_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE ntb00005.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_mov IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_mov: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ntb00005_cod_mov_checkColumnConstraints {<BLOCK Name="fct.ntb00005_descrip_mov_checkColumnConstraints">} #+ Check constraints on the "ntb00005.descrip_mov" column #+ #+ @param p_descrip_mov - VARCHAR2(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ntb00005_descrip_mov_checkColumnConstraints(p_descrip_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip_mov LIKE ntb00005.descrip_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ntb00005_descrip_mov_checkColumnConstraints {<BLOCK Name="fct.ntb00005_status_mov_checkColumnConstraints">} #+ Check constraints on the "ntb00005.status_mov" column #+ #+ @param p_status_mov - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ntb00005_status_mov_checkColumnConstraints(p_status_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_mov LIKE ntb00005.status_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ntb00005_status_mov_checkColumnConstraints {<BLOCK Name="fct.ntb00005_cuenta_1_checkColumnConstraints">} #+ Check constraints on the "ntb00005.cuenta_1" column #+ #+ @param p_cuenta_1 - VARCHAR2(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ntb00005_cuenta_1_checkColumnConstraints(p_cuenta_1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_1 LIKE ntb00005.cuenta_1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ntb00005_cuenta_1_checkColumnConstraints {<BLOCK Name="fct.ntb00005_cuenta_2_checkColumnConstraints">} #+ Check constraints on the "ntb00005.cuenta_2" column #+ #+ @param p_cuenta_2 - VARCHAR2(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ntb00005_cuenta_2_checkColumnConstraints(p_cuenta_2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_2 LIKE ntb00005.cuenta_2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ntb00005_cuenta_2_checkColumnConstraints {<BLOCK Name="fct.ntb00005_cuenta_3_checkColumnConstraints">} #+ Check constraints on the "ntb00005.cuenta_3" column #+ #+ @param p_cuenta_3 - VARCHAR2(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ntb00005_cuenta_3_checkColumnConstraints(p_cuenta_3) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_3 LIKE ntb00005.cuenta_3 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ntb00005_cuenta_3_checkColumnConstraints {<BLOCK Name="fct.ntb00005_status_t_checkColumnConstraints">} #+ Check constraints on the "ntb00005.status_t" column #+ #+ @param p_status_t - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ntb00005_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE ntb00005.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ntb00005_status_t_checkColumnConstraints {<BLOCK Name="fct.ntb00005_us_crea_checkColumnConstraints">} #+ Check constraints on the "ntb00005.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ntb00005_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE ntb00005.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ntb00005_us_crea_checkColumnConstraints {<BLOCK Name="fct.ntb00005_fech_crea_checkColumnConstraints">} #+ Check constraints on the "ntb00005.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ntb00005_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE ntb00005.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ntb00005_fech_crea_checkColumnConstraints {<BLOCK Name="fct.ntb00005_us_mod_checkColumnConstraints">} #+ Check constraints on the "ntb00005.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ntb00005_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE ntb00005.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ntb00005_us_mod_checkColumnConstraints {<BLOCK Name="fct.ntb00005_fech_mod_checkColumnConstraints">} #+ Check constraints on the "ntb00005.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ntb00005_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE ntb00005.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ntb00005_fech_mod_checkColumnConstraints {<BLOCK Name="fct.notbingresos_checkTableConstraints">} #+ Check constraints on the "notbingresos" table #+ #+ @param p_data - a row data LIKE notbingresos.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_notbingresos_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE notbingresos.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_notbingresos_num_emp_checkColumnConstraints(p_data.num_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notbingresos_monto_checkColumnConstraints(p_data.monto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notbingresos_checkTableConstraints {<BLOCK Name="fct.notbingresos_num_emp_checkColumnConstraints">} #+ Check constraints on the "notbingresos.num_emp" column #+ #+ @param p_num_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notbingresos_num_emp_checkColumnConstraints(p_num_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_emp LIKE notbingresos.num_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notbingresos_num_emp_checkColumnConstraints {<BLOCK Name="fct.notbingresos_monto_checkColumnConstraints">} #+ Check constraints on the "notbingresos.monto" column #+ #+ @param p_monto - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notbingresos_monto_checkColumnConstraints(p_monto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_monto LIKE notbingresos.monto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notbingresos_monto_checkColumnConstraints {<BLOCK Name="fct.notbcuenta_checkTableConstraints">} #+ Check constraints on the "notbcuenta" table #+ #+ @param p_data - a row data LIKE notbcuenta.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_notbcuenta_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE notbcuenta.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_notbcuenta_num_emp_checkColumnConstraints(p_data.num_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notbcuenta_cuenta_no_checkColumnConstraints(p_data.cuenta_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notbcuenta_valor_checkColumnConstraints(p_data.valor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notbcuenta_checkTableConstraints {<BLOCK Name="fct.notbcuenta_num_emp_checkColumnConstraints">} #+ Check constraints on the "notbcuenta.num_emp" column #+ #+ @param p_num_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notbcuenta_num_emp_checkColumnConstraints(p_num_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_emp LIKE notbcuenta.num_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notbcuenta_num_emp_checkColumnConstraints {<BLOCK Name="fct.notbcuenta_cuenta_no_checkColumnConstraints">} #+ Check constraints on the "notbcuenta.cuenta_no" column #+ #+ @param p_cuenta_no - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notbcuenta_cuenta_no_checkColumnConstraints(p_cuenta_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_no LIKE notbcuenta.cuenta_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notbcuenta_cuenta_no_checkColumnConstraints {<BLOCK Name="fct.notbcuenta_valor_checkColumnConstraints">} #+ Check constraints on the "notbcuenta.valor" column #+ #+ @param p_valor - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notbcuenta_valor_checkColumnConstraints(p_valor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor LIKE notbcuenta.valor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notbcuenta_valor_checkColumnConstraints {<BLOCK Name="fct.notb03_checkTableConstraints">} #+ Check constraints on the "notb03" table #+ #+ @param p_data - a row data LIKE notb03.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_notb03_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE notb03.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_notb03_num_emp_checkColumnConstraints(p_data.num_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb03_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb03_nivel_emp_checkColumnConstraints(p_data.nivel_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb03_cod_puesto_checkColumnConstraints(p_data.cod_puesto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb03_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb03_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb03_valor_checkColumnConstraints(p_data.valor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb03_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb03_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb03_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb03_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb03_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb03_pk_notb003_checkUniqueConstraint(p_forUpdate, p_data.num_emp, p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb03_checkTableConstraints {<BLOCK Name="fct.notb03_pk_notb003_checkUniqueConstraint">} #+ Check the primary key uniqueness constraint on the "notb03" #+ #+ @param p_key - Primary Key #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb03_pk_notb003_checkUniqueConstraint(p_forUpdate, p_key) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_forUpdate BOOLEAN DEFINE p_key RECORD notb03_num_emp LIKE notb03.num_emp, notb03_cod_mov LIKE notb03.cod_mov END RECORD DEFINE l_key RECORD notb03_num_emp LIKE notb03.num_emp, notb03_cod_mov LIKE notb03.cod_mov 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 notb03.num_emp = ? AND notb03.cod_mov = ? " let l_sqlQuery = "SELECT COUNT(*), num_emp, cod_mov FROM notb03 ", l_where, " GROUP BY num_emp, cod_mov" PREPARE cur_notb03_pk_notb003_checkUniqueConstraint FROM l_sqlQuery EXECUTE cur_notb03_pk_notb003_checkUniqueConstraint INTO l_count, l_key.* USING p_key.* FREE cur_notb03_pk_notb003_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- num_emp + cod_mov: " || ERROR_BAM_00002) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb03_pk_notb003_checkUniqueConstraint {<BLOCK Name="fct.notb03_num_emp_checkColumnConstraints">} #+ Check constraints on the "notb03.num_emp" column #+ #+ @param p_num_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb03_num_emp_checkColumnConstraints(p_num_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_emp LIKE notb03.num_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_num_emp IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- num_emp: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb03_num_emp_checkColumnConstraints {<BLOCK Name="fct.notb03_departamento_checkColumnConstraints">} #+ Check constraints on the "notb03.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb03_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE notb03.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb03_departamento_checkColumnConstraints {<BLOCK Name="fct.notb03_nivel_emp_checkColumnConstraints">} #+ Check constraints on the "notb03.nivel_emp" column #+ #+ @param p_nivel_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb03_nivel_emp_checkColumnConstraints(p_nivel_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nivel_emp LIKE notb03.nivel_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb03_nivel_emp_checkColumnConstraints {<BLOCK Name="fct.notb03_cod_puesto_checkColumnConstraints">} #+ Check constraints on the "notb03.cod_puesto" column #+ #+ @param p_cod_puesto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb03_cod_puesto_checkColumnConstraints(p_cod_puesto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_puesto LIKE notb03.cod_puesto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb03_cod_puesto_checkColumnConstraints {<BLOCK Name="fct.notb03_cod_mov_checkColumnConstraints">} #+ Check constraints on the "notb03.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb03_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE notb03.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_mov IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_mov: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb03_cod_mov_checkColumnConstraints {<BLOCK Name="fct.notb03_cantidad_checkColumnConstraints">} #+ Check constraints on the "notb03.cantidad" column #+ #+ @param p_cantidad - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb03_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE notb03.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb03_cantidad_checkColumnConstraints {<BLOCK Name="fct.notb03_valor_checkColumnConstraints">} #+ Check constraints on the "notb03.valor" column #+ #+ @param p_valor - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb03_valor_checkColumnConstraints(p_valor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor LIKE notb03.valor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb03_valor_checkColumnConstraints {<BLOCK Name="fct.notb03_status_t_checkColumnConstraints">} #+ Check constraints on the "notb03.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb03_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE notb03.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb03_status_t_checkColumnConstraints {<BLOCK Name="fct.notb03_us_crea_checkColumnConstraints">} #+ Check constraints on the "notb03.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb03_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE notb03.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb03_us_crea_checkColumnConstraints {<BLOCK Name="fct.notb03_fech_crea_checkColumnConstraints">} #+ Check constraints on the "notb03.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb03_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE notb03.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb03_fech_crea_checkColumnConstraints {<BLOCK Name="fct.notb03_us_mod_checkColumnConstraints">} #+ Check constraints on the "notb03.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb03_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE notb03.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb03_us_mod_checkColumnConstraints {<BLOCK Name="fct.notb03_fech_mod_checkColumnConstraints">} #+ Check constraints on the "notb03.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb03_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE notb03.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb03_fech_mod_checkColumnConstraints {<BLOCK Name="fct.notb0019_checkTableConstraints">} #+ Check constraints on the "notb0019" table #+ #+ @param p_data - a row data LIKE notb0019.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_notb0019_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE notb0019.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_notb0019_num_nomi_checkColumnConstraints(p_data.num_nomi) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb0019_tipo_emp_checkColumnConstraints(p_data.tipo_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb0019_cheque_no_ini_checkColumnConstraints(p_data.cheque_no_ini) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb0019_cheque_no_fin_checkColumnConstraints(p_data.cheque_no_fin) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb0019_cuenta_no_checkColumnConstraints(p_data.cuenta_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb0019_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb0019_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb0019_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb0019_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb0019_checkTableConstraints {<BLOCK Name="fct.notb0019_num_nomi_checkColumnConstraints">} #+ Check constraints on the "notb0019.num_nomi" column #+ #+ @param p_num_nomi - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb0019_num_nomi_checkColumnConstraints(p_num_nomi) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_nomi LIKE notb0019.num_nomi LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb0019_num_nomi_checkColumnConstraints {<BLOCK Name="fct.notb0019_tipo_emp_checkColumnConstraints">} #+ Check constraints on the "notb0019.tipo_emp" column #+ #+ @param p_tipo_emp - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb0019_tipo_emp_checkColumnConstraints(p_tipo_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_emp LIKE notb0019.tipo_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb0019_tipo_emp_checkColumnConstraints {<BLOCK Name="fct.notb0019_cheque_no_ini_checkColumnConstraints">} #+ Check constraints on the "notb0019.cheque_no_ini" column #+ #+ @param p_cheque_no_ini - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb0019_cheque_no_ini_checkColumnConstraints(p_cheque_no_ini) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cheque_no_ini LIKE notb0019.cheque_no_ini LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb0019_cheque_no_ini_checkColumnConstraints {<BLOCK Name="fct.notb0019_cheque_no_fin_checkColumnConstraints">} #+ Check constraints on the "notb0019.cheque_no_fin" column #+ #+ @param p_cheque_no_fin - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb0019_cheque_no_fin_checkColumnConstraints(p_cheque_no_fin) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cheque_no_fin LIKE notb0019.cheque_no_fin LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb0019_cheque_no_fin_checkColumnConstraints {<BLOCK Name="fct.notb0019_cuenta_no_checkColumnConstraints">} #+ Check constraints on the "notb0019.cuenta_no" column #+ #+ @param p_cuenta_no - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb0019_cuenta_no_checkColumnConstraints(p_cuenta_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_no LIKE notb0019.cuenta_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb0019_cuenta_no_checkColumnConstraints {<BLOCK Name="fct.notb0019_us_crea_checkColumnConstraints">} #+ Check constraints on the "notb0019.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb0019_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE notb0019.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb0019_us_crea_checkColumnConstraints {<BLOCK Name="fct.notb0019_fech_crea_checkColumnConstraints">} #+ Check constraints on the "notb0019.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb0019_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE notb0019.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb0019_fech_crea_checkColumnConstraints {<BLOCK Name="fct.notb0019_us_mod_checkColumnConstraints">} #+ Check constraints on the "notb0019.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb0019_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE notb0019.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb0019_us_mod_checkColumnConstraints {<BLOCK Name="fct.notb0019_fech_mod_checkColumnConstraints">} #+ Check constraints on the "notb0019.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb0019_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE notb0019.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb0019_fech_mod_checkColumnConstraints {<BLOCK Name="fct.notb00033_checkTableConstraints">} #+ Check constraints on the "notb00033" table #+ #+ @param p_data - a row data LIKE notb00033.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_notb00033_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE notb00033.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_notb00033_num_nomi_checkColumnConstraints(p_data.num_nomi) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00033_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00033_cod_puesto_checkColumnConstraints(p_data.cod_puesto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00033_fecha_liquidacion_checkColumnConstraints(p_data.fecha_liquidacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00033_num_emp_checkColumnConstraints(p_data.num_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00033_sueldo_actual_checkColumnConstraints(p_data.sueldo_actual) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00033_sueldo_promedio_checkColumnConstraints(p_data.sueldo_promedio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00033_salario_dia_checkColumnConstraints(p_data.salario_dia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00033_anos_empresa_checkColumnConstraints(p_data.anos_empresa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00033_meses_empresa_checkColumnConstraints(p_data.meses_empresa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00033_dias_empresa_checkColumnConstraints(p_data.dias_empresa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00033_dias_cesantia_checkColumnConstraints(p_data.dias_cesantia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00033_dias_preaviso_checkColumnConstraints(p_data.dias_preaviso) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00033_dias_vacaciones_checkColumnConstraints(p_data.dias_vacaciones) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00033_ultimas_vacaciones_checkColumnConstraints(p_data.ultimas_vacaciones) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00033_tiempo_empresa_checkColumnConstraints(p_data.tiempo_empresa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00033_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00033_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00033_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00033_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00033_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00033_checkTableConstraints {<BLOCK Name="fct.notb00033_num_nomi_checkColumnConstraints">} #+ Check constraints on the "notb00033.num_nomi" column #+ #+ @param p_num_nomi - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00033_num_nomi_checkColumnConstraints(p_num_nomi) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_nomi LIKE notb00033.num_nomi LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00033_num_nomi_checkColumnConstraints {<BLOCK Name="fct.notb00033_departamento_checkColumnConstraints">} #+ Check constraints on the "notb00033.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00033_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE notb00033.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00033_departamento_checkColumnConstraints {<BLOCK Name="fct.notb00033_cod_puesto_checkColumnConstraints">} #+ Check constraints on the "notb00033.cod_puesto" column #+ #+ @param p_cod_puesto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00033_cod_puesto_checkColumnConstraints(p_cod_puesto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_puesto LIKE notb00033.cod_puesto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00033_cod_puesto_checkColumnConstraints {<BLOCK Name="fct.notb00033_fecha_liquidacion_checkColumnConstraints">} #+ Check constraints on the "notb00033.fecha_liquidacion" column #+ #+ @param p_fecha_liquidacion - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00033_fecha_liquidacion_checkColumnConstraints(p_fecha_liquidacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_liquidacion LIKE notb00033.fecha_liquidacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00033_fecha_liquidacion_checkColumnConstraints {<BLOCK Name="fct.notb00033_num_emp_checkColumnConstraints">} #+ Check constraints on the "notb00033.num_emp" column #+ #+ @param p_num_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00033_num_emp_checkColumnConstraints(p_num_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_emp LIKE notb00033.num_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00033_num_emp_checkColumnConstraints {<BLOCK Name="fct.notb00033_sueldo_actual_checkColumnConstraints">} #+ Check constraints on the "notb00033.sueldo_actual" column #+ #+ @param p_sueldo_actual - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00033_sueldo_actual_checkColumnConstraints(p_sueldo_actual) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sueldo_actual LIKE notb00033.sueldo_actual LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00033_sueldo_actual_checkColumnConstraints {<BLOCK Name="fct.notb00033_sueldo_promedio_checkColumnConstraints">} #+ Check constraints on the "notb00033.sueldo_promedio" column #+ #+ @param p_sueldo_promedio - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00033_sueldo_promedio_checkColumnConstraints(p_sueldo_promedio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sueldo_promedio LIKE notb00033.sueldo_promedio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00033_sueldo_promedio_checkColumnConstraints {<BLOCK Name="fct.notb00033_salario_dia_checkColumnConstraints">} #+ Check constraints on the "notb00033.salario_dia" column #+ #+ @param p_salario_dia - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00033_salario_dia_checkColumnConstraints(p_salario_dia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_salario_dia LIKE notb00033.salario_dia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00033_salario_dia_checkColumnConstraints {<BLOCK Name="fct.notb00033_anos_empresa_checkColumnConstraints">} #+ Check constraints on the "notb00033.anos_empresa" column #+ #+ @param p_anos_empresa - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00033_anos_empresa_checkColumnConstraints(p_anos_empresa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_anos_empresa LIKE notb00033.anos_empresa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00033_anos_empresa_checkColumnConstraints {<BLOCK Name="fct.notb00033_meses_empresa_checkColumnConstraints">} #+ Check constraints on the "notb00033.meses_empresa" column #+ #+ @param p_meses_empresa - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00033_meses_empresa_checkColumnConstraints(p_meses_empresa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_meses_empresa LIKE notb00033.meses_empresa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00033_meses_empresa_checkColumnConstraints {<BLOCK Name="fct.notb00033_dias_empresa_checkColumnConstraints">} #+ Check constraints on the "notb00033.dias_empresa" column #+ #+ @param p_dias_empresa - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00033_dias_empresa_checkColumnConstraints(p_dias_empresa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_dias_empresa LIKE notb00033.dias_empresa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00033_dias_empresa_checkColumnConstraints {<BLOCK Name="fct.notb00033_dias_cesantia_checkColumnConstraints">} #+ Check constraints on the "notb00033.dias_cesantia" column #+ #+ @param p_dias_cesantia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00033_dias_cesantia_checkColumnConstraints(p_dias_cesantia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_dias_cesantia LIKE notb00033.dias_cesantia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00033_dias_cesantia_checkColumnConstraints {<BLOCK Name="fct.notb00033_dias_preaviso_checkColumnConstraints">} #+ Check constraints on the "notb00033.dias_preaviso" column #+ #+ @param p_dias_preaviso - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00033_dias_preaviso_checkColumnConstraints(p_dias_preaviso) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_dias_preaviso LIKE notb00033.dias_preaviso LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00033_dias_preaviso_checkColumnConstraints {<BLOCK Name="fct.notb00033_dias_vacaciones_checkColumnConstraints">} #+ Check constraints on the "notb00033.dias_vacaciones" column #+ #+ @param p_dias_vacaciones - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00033_dias_vacaciones_checkColumnConstraints(p_dias_vacaciones) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_dias_vacaciones LIKE notb00033.dias_vacaciones LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00033_dias_vacaciones_checkColumnConstraints {<BLOCK Name="fct.notb00033_ultimas_vacaciones_checkColumnConstraints">} #+ Check constraints on the "notb00033.ultimas_vacaciones" column #+ #+ @param p_ultimas_vacaciones - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00033_ultimas_vacaciones_checkColumnConstraints(p_ultimas_vacaciones) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ultimas_vacaciones LIKE notb00033.ultimas_vacaciones LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00033_ultimas_vacaciones_checkColumnConstraints {<BLOCK Name="fct.notb00033_tiempo_empresa_checkColumnConstraints">} #+ Check constraints on the "notb00033.tiempo_empresa" column #+ #+ @param p_tiempo_empresa - DECIMAL(6,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00033_tiempo_empresa_checkColumnConstraints(p_tiempo_empresa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tiempo_empresa LIKE notb00033.tiempo_empresa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00033_tiempo_empresa_checkColumnConstraints {<BLOCK Name="fct.notb00033_status_t_checkColumnConstraints">} #+ Check constraints on the "notb00033.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00033_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE notb00033.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00033_status_t_checkColumnConstraints {<BLOCK Name="fct.notb00033_us_crea_checkColumnConstraints">} #+ Check constraints on the "notb00033.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00033_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE notb00033.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00033_us_crea_checkColumnConstraints {<BLOCK Name="fct.notb00033_fech_crea_checkColumnConstraints">} #+ Check constraints on the "notb00033.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00033_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE notb00033.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00033_fech_crea_checkColumnConstraints {<BLOCK Name="fct.notb00033_us_mod_checkColumnConstraints">} #+ Check constraints on the "notb00033.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00033_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE notb00033.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00033_us_mod_checkColumnConstraints {<BLOCK Name="fct.notb00033_fech_mod_checkColumnConstraints">} #+ Check constraints on the "notb00033.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00033_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE notb00033.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00033_fech_mod_checkColumnConstraints {<BLOCK Name="fct.notb00023_checkTableConstraints">} #+ Check constraints on the "notb00023" table #+ #+ @param p_data - a row data LIKE notb00023.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_notb00023_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE notb00023.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_notb00023_numero_nomina_checkColumnConstraints(p_data.numero_nomina) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00023_tipo_emp_checkColumnConstraints(p_data.tipo_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00023_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00023_monto_excento_checkColumnConstraints(p_data.monto_excento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00023_porc_15_checkColumnConstraints(p_data.porc_15) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00023_porc_20_checkColumnConstraints(p_data.porc_20) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00023_porc_25_checkColumnConstraints(p_data.porc_25) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00023_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00023_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00023_fecha_crea_checkColumnConstraints(p_data.fecha_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00023_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00023_fecha_mod_checkColumnConstraints(p_data.fecha_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00023_checkTableConstraints {<BLOCK Name="fct.notb00023_numero_nomina_checkColumnConstraints">} #+ Check constraints on the "notb00023.numero_nomina" column #+ #+ @param p_numero_nomina - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00023_numero_nomina_checkColumnConstraints(p_numero_nomina) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_numero_nomina LIKE notb00023.numero_nomina LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00023_numero_nomina_checkColumnConstraints {<BLOCK Name="fct.notb00023_tipo_emp_checkColumnConstraints">} #+ Check constraints on the "notb00023.tipo_emp" column #+ #+ @param p_tipo_emp - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00023_tipo_emp_checkColumnConstraints(p_tipo_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_emp LIKE notb00023.tipo_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00023_tipo_emp_checkColumnConstraints {<BLOCK Name="fct.notb00023_fecha_checkColumnConstraints">} #+ Check constraints on the "notb00023.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00023_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE notb00023.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00023_fecha_checkColumnConstraints {<BLOCK Name="fct.notb00023_monto_excento_checkColumnConstraints">} #+ Check constraints on the "notb00023.monto_excento" column #+ #+ @param p_monto_excento - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00023_monto_excento_checkColumnConstraints(p_monto_excento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_monto_excento LIKE notb00023.monto_excento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00023_monto_excento_checkColumnConstraints {<BLOCK Name="fct.notb00023_porc_15_checkColumnConstraints">} #+ Check constraints on the "notb00023.porc_15" column #+ #+ @param p_porc_15 - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00023_porc_15_checkColumnConstraints(p_porc_15) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_porc_15 LIKE notb00023.porc_15 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00023_porc_15_checkColumnConstraints {<BLOCK Name="fct.notb00023_porc_20_checkColumnConstraints">} #+ Check constraints on the "notb00023.porc_20" column #+ #+ @param p_porc_20 - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00023_porc_20_checkColumnConstraints(p_porc_20) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_porc_20 LIKE notb00023.porc_20 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00023_porc_20_checkColumnConstraints {<BLOCK Name="fct.notb00023_porc_25_checkColumnConstraints">} #+ Check constraints on the "notb00023.porc_25" column #+ #+ @param p_porc_25 - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00023_porc_25_checkColumnConstraints(p_porc_25) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_porc_25 LIKE notb00023.porc_25 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00023_porc_25_checkColumnConstraints {<BLOCK Name="fct.notb00023_status_t_checkColumnConstraints">} #+ Check constraints on the "notb00023.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00023_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE notb00023.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00023_status_t_checkColumnConstraints {<BLOCK Name="fct.notb00023_us_crea_checkColumnConstraints">} #+ Check constraints on the "notb00023.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00023_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE notb00023.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00023_us_crea_checkColumnConstraints {<BLOCK Name="fct.notb00023_fecha_crea_checkColumnConstraints">} #+ Check constraints on the "notb00023.fecha_crea" column #+ #+ @param p_fecha_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00023_fecha_crea_checkColumnConstraints(p_fecha_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_crea LIKE notb00023.fecha_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00023_fecha_crea_checkColumnConstraints {<BLOCK Name="fct.notb00023_us_mod_checkColumnConstraints">} #+ Check constraints on the "notb00023.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00023_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE notb00023.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00023_us_mod_checkColumnConstraints {<BLOCK Name="fct.notb00023_fecha_mod_checkColumnConstraints">} #+ Check constraints on the "notb00023.fecha_mod" column #+ #+ @param p_fecha_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00023_fecha_mod_checkColumnConstraints(p_fecha_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_mod LIKE notb00023.fecha_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00023_fecha_mod_checkColumnConstraints {<BLOCK Name="fct.notb00021_checkTableConstraints">} #+ Check constraints on the "notb00021" table #+ #+ @param p_data - a row data LIKE notb00021.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_notb00021_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE notb00021.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_notb00021_num_nomi_checkColumnConstraints(p_data.num_nomi) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00021_tipo_emp_checkColumnConstraints(p_data.tipo_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00021_cheque_no_ini_checkColumnConstraints(p_data.cheque_no_ini) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00021_cheque_no_fin_checkColumnConstraints(p_data.cheque_no_fin) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00021_cuenta_no_checkColumnConstraints(p_data.cuenta_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00021_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00021_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00021_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00021_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00021_checkTableConstraints {<BLOCK Name="fct.notb00021_num_nomi_checkColumnConstraints">} #+ Check constraints on the "notb00021.num_nomi" column #+ #+ @param p_num_nomi - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00021_num_nomi_checkColumnConstraints(p_num_nomi) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_nomi LIKE notb00021.num_nomi LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00021_num_nomi_checkColumnConstraints {<BLOCK Name="fct.notb00021_tipo_emp_checkColumnConstraints">} #+ Check constraints on the "notb00021.tipo_emp" column #+ #+ @param p_tipo_emp - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00021_tipo_emp_checkColumnConstraints(p_tipo_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_emp LIKE notb00021.tipo_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00021_tipo_emp_checkColumnConstraints {<BLOCK Name="fct.notb00021_cheque_no_ini_checkColumnConstraints">} #+ Check constraints on the "notb00021.cheque_no_ini" column #+ #+ @param p_cheque_no_ini - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00021_cheque_no_ini_checkColumnConstraints(p_cheque_no_ini) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cheque_no_ini LIKE notb00021.cheque_no_ini LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00021_cheque_no_ini_checkColumnConstraints {<BLOCK Name="fct.notb00021_cheque_no_fin_checkColumnConstraints">} #+ Check constraints on the "notb00021.cheque_no_fin" column #+ #+ @param p_cheque_no_fin - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00021_cheque_no_fin_checkColumnConstraints(p_cheque_no_fin) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cheque_no_fin LIKE notb00021.cheque_no_fin LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00021_cheque_no_fin_checkColumnConstraints {<BLOCK Name="fct.notb00021_cuenta_no_checkColumnConstraints">} #+ Check constraints on the "notb00021.cuenta_no" column #+ #+ @param p_cuenta_no - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00021_cuenta_no_checkColumnConstraints(p_cuenta_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_no LIKE notb00021.cuenta_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00021_cuenta_no_checkColumnConstraints {<BLOCK Name="fct.notb00021_us_crea_checkColumnConstraints">} #+ Check constraints on the "notb00021.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00021_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE notb00021.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00021_us_crea_checkColumnConstraints {<BLOCK Name="fct.notb00021_fech_crea_checkColumnConstraints">} #+ Check constraints on the "notb00021.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00021_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE notb00021.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00021_fech_crea_checkColumnConstraints {<BLOCK Name="fct.notb00021_us_mod_checkColumnConstraints">} #+ Check constraints on the "notb00021.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00021_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE notb00021.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00021_us_mod_checkColumnConstraints {<BLOCK Name="fct.notb00021_fech_mod_checkColumnConstraints">} #+ Check constraints on the "notb00021.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00021_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE notb00021.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00021_fech_mod_checkColumnConstraints {<BLOCK Name="fct.notb00020_checkTableConstraints">} #+ Check constraints on the "notb00020" table #+ #+ @param p_data - a row data LIKE notb00020.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_notb00020_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE notb00020.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_notb00020_cuenta_no_checkColumnConstraints(p_data.cuenta_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00020_cheque_no_checkColumnConstraints(p_data.cheque_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00020_num_emp_checkColumnConstraints(p_data.num_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00020_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00020_portador_checkColumnConstraints(p_data.portador) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00020_tasa_checkColumnConstraints(p_data.tasa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00020_monto_checkColumnConstraints(p_data.monto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00020_status_impresion_checkColumnConstraints(p_data.status_impresion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00020_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00020_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00020_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00020_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00020_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00020_checkTableConstraints {<BLOCK Name="fct.notb00020_cuenta_no_checkColumnConstraints">} #+ Check constraints on the "notb00020.cuenta_no" column #+ #+ @param p_cuenta_no - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00020_cuenta_no_checkColumnConstraints(p_cuenta_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_no LIKE notb00020.cuenta_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00020_cuenta_no_checkColumnConstraints {<BLOCK Name="fct.notb00020_cheque_no_checkColumnConstraints">} #+ Check constraints on the "notb00020.cheque_no" column #+ #+ @param p_cheque_no - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00020_cheque_no_checkColumnConstraints(p_cheque_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cheque_no LIKE notb00020.cheque_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00020_cheque_no_checkColumnConstraints {<BLOCK Name="fct.notb00020_num_emp_checkColumnConstraints">} #+ Check constraints on the "notb00020.num_emp" column #+ #+ @param p_num_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00020_num_emp_checkColumnConstraints(p_num_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_emp LIKE notb00020.num_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00020_num_emp_checkColumnConstraints {<BLOCK Name="fct.notb00020_fecha_checkColumnConstraints">} #+ Check constraints on the "notb00020.fecha" column #+ #+ @param p_fecha - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00020_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE notb00020.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00020_fecha_checkColumnConstraints {<BLOCK Name="fct.notb00020_portador_checkColumnConstraints">} #+ Check constraints on the "notb00020.portador" column #+ #+ @param p_portador - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00020_portador_checkColumnConstraints(p_portador) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_portador LIKE notb00020.portador LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00020_portador_checkColumnConstraints {<BLOCK Name="fct.notb00020_tasa_checkColumnConstraints">} #+ Check constraints on the "notb00020.tasa" column #+ #+ @param p_tasa - DECIMAL(8,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00020_tasa_checkColumnConstraints(p_tasa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tasa LIKE notb00020.tasa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00020_tasa_checkColumnConstraints {<BLOCK Name="fct.notb00020_monto_checkColumnConstraints">} #+ Check constraints on the "notb00020.monto" column #+ #+ @param p_monto - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00020_monto_checkColumnConstraints(p_monto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_monto LIKE notb00020.monto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00020_monto_checkColumnConstraints {<BLOCK Name="fct.notb00020_status_impresion_checkColumnConstraints">} #+ Check constraints on the "notb00020.status_impresion" column #+ #+ @param p_status_impresion - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00020_status_impresion_checkColumnConstraints(p_status_impresion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_impresion LIKE notb00020.status_impresion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00020_status_impresion_checkColumnConstraints {<BLOCK Name="fct.notb00020_status_t_checkColumnConstraints">} #+ Check constraints on the "notb00020.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00020_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE notb00020.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00020_status_t_checkColumnConstraints {<BLOCK Name="fct.notb00020_us_crea_checkColumnConstraints">} #+ Check constraints on the "notb00020.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00020_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE notb00020.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00020_us_crea_checkColumnConstraints {<BLOCK Name="fct.notb00020_fech_crea_checkColumnConstraints">} #+ Check constraints on the "notb00020.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00020_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE notb00020.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00020_fech_crea_checkColumnConstraints {<BLOCK Name="fct.notb00020_us_mod_checkColumnConstraints">} #+ Check constraints on the "notb00020.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00020_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE notb00020.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00020_us_mod_checkColumnConstraints {<BLOCK Name="fct.notb00020_fech_mod_checkColumnConstraints">} #+ Check constraints on the "notb00020.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00020_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE notb00020.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00020_fech_mod_checkColumnConstraints {<BLOCK Name="fct.notb00019_checkTableConstraints">} #+ Check constraints on the "notb00019" table #+ #+ @param p_data - a row data LIKE notb00019.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_notb00019_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE notb00019.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_notb00019_num_nomi_checkColumnConstraints(p_data.num_nomi) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00019_tipo_emp_checkColumnConstraints(p_data.tipo_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00019_cheque_no_ini_checkColumnConstraints(p_data.cheque_no_ini) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00019_cheque_no_fin_checkColumnConstraints(p_data.cheque_no_fin) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00019_cuenta_no_checkColumnConstraints(p_data.cuenta_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00019_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00019_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00019_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00019_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00019_checkTableConstraints {<BLOCK Name="fct.notb00019_num_nomi_checkColumnConstraints">} #+ Check constraints on the "notb00019.num_nomi" column #+ #+ @param p_num_nomi - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00019_num_nomi_checkColumnConstraints(p_num_nomi) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_nomi LIKE notb00019.num_nomi LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00019_num_nomi_checkColumnConstraints {<BLOCK Name="fct.notb00019_tipo_emp_checkColumnConstraints">} #+ Check constraints on the "notb00019.tipo_emp" column #+ #+ @param p_tipo_emp - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00019_tipo_emp_checkColumnConstraints(p_tipo_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_emp LIKE notb00019.tipo_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00019_tipo_emp_checkColumnConstraints {<BLOCK Name="fct.notb00019_cheque_no_ini_checkColumnConstraints">} #+ Check constraints on the "notb00019.cheque_no_ini" column #+ #+ @param p_cheque_no_ini - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00019_cheque_no_ini_checkColumnConstraints(p_cheque_no_ini) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cheque_no_ini LIKE notb00019.cheque_no_ini LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00019_cheque_no_ini_checkColumnConstraints {<BLOCK Name="fct.notb00019_cheque_no_fin_checkColumnConstraints">} #+ Check constraints on the "notb00019.cheque_no_fin" column #+ #+ @param p_cheque_no_fin - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00019_cheque_no_fin_checkColumnConstraints(p_cheque_no_fin) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cheque_no_fin LIKE notb00019.cheque_no_fin LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00019_cheque_no_fin_checkColumnConstraints {<BLOCK Name="fct.notb00019_cuenta_no_checkColumnConstraints">} #+ Check constraints on the "notb00019.cuenta_no" column #+ #+ @param p_cuenta_no - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00019_cuenta_no_checkColumnConstraints(p_cuenta_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_no LIKE notb00019.cuenta_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00019_cuenta_no_checkColumnConstraints {<BLOCK Name="fct.notb00019_us_crea_checkColumnConstraints">} #+ Check constraints on the "notb00019.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00019_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE notb00019.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00019_us_crea_checkColumnConstraints {<BLOCK Name="fct.notb00019_fech_crea_checkColumnConstraints">} #+ Check constraints on the "notb00019.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00019_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE notb00019.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00019_fech_crea_checkColumnConstraints {<BLOCK Name="fct.notb00019_us_mod_checkColumnConstraints">} #+ Check constraints on the "notb00019.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00019_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE notb00019.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00019_us_mod_checkColumnConstraints {<BLOCK Name="fct.notb00019_fech_mod_checkColumnConstraints">} #+ Check constraints on the "notb00019.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00019_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE notb00019.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00019_fech_mod_checkColumnConstraints {<BLOCK Name="fct.notb00018_checkTableConstraints">} #+ Check constraints on the "notb00018" table #+ #+ @param p_data - a row data LIKE notb00018.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_notb00018_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE notb00018.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_notb00018_num_emp_checkColumnConstraints(p_data.num_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00018_porc_accidente_checkColumnConstraints(p_data.porc_accidente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00018_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00018_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00018_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00018_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00018_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00018_checkTableConstraints {<BLOCK Name="fct.notb00018_num_emp_checkColumnConstraints">} #+ Check constraints on the "notb00018.num_emp" column #+ #+ @param p_num_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00018_num_emp_checkColumnConstraints(p_num_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_emp LIKE notb00018.num_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00018_num_emp_checkColumnConstraints {<BLOCK Name="fct.notb00018_porc_accidente_checkColumnConstraints">} #+ Check constraints on the "notb00018.porc_accidente" column #+ #+ @param p_porc_accidente - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00018_porc_accidente_checkColumnConstraints(p_porc_accidente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_porc_accidente LIKE notb00018.porc_accidente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00018_porc_accidente_checkColumnConstraints {<BLOCK Name="fct.notb00018_status_t_checkColumnConstraints">} #+ Check constraints on the "notb00018.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00018_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE notb00018.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00018_status_t_checkColumnConstraints {<BLOCK Name="fct.notb00018_us_crea_checkColumnConstraints">} #+ Check constraints on the "notb00018.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00018_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE notb00018.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00018_us_crea_checkColumnConstraints {<BLOCK Name="fct.notb00018_fech_crea_checkColumnConstraints">} #+ Check constraints on the "notb00018.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00018_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE notb00018.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00018_fech_crea_checkColumnConstraints {<BLOCK Name="fct.notb00018_us_mod_checkColumnConstraints">} #+ Check constraints on the "notb00018.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00018_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE notb00018.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00018_us_mod_checkColumnConstraints {<BLOCK Name="fct.notb00018_fech_mod_checkColumnConstraints">} #+ Check constraints on the "notb00018.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00018_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE notb00018.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00018_fech_mod_checkColumnConstraints {<BLOCK Name="fct.notb00017_checkTableConstraints">} #+ Check constraints on the "notb00017" table #+ #+ @param p_data - a row data LIKE notb00017.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_notb00017_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE notb00017.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_notb00017_num_emp_checkColumnConstraints(p_data.num_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00017_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00017_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00017_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00017_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00017_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00017_checkTableConstraints {<BLOCK Name="fct.notb00017_num_emp_checkColumnConstraints">} #+ Check constraints on the "notb00017.num_emp" column #+ #+ @param p_num_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00017_num_emp_checkColumnConstraints(p_num_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_emp LIKE notb00017.num_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00017_num_emp_checkColumnConstraints {<BLOCK Name="fct.notb00017_departamento_checkColumnConstraints">} #+ Check constraints on the "notb00017.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00017_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE notb00017.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00017_departamento_checkColumnConstraints {<BLOCK Name="fct.notb00017_us_crea_checkColumnConstraints">} #+ Check constraints on the "notb00017.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00017_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE notb00017.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00017_us_crea_checkColumnConstraints {<BLOCK Name="fct.notb00017_fech_crea_checkColumnConstraints">} #+ Check constraints on the "notb00017.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00017_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE notb00017.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00017_fech_crea_checkColumnConstraints {<BLOCK Name="fct.notb00017_us_mod_checkColumnConstraints">} #+ Check constraints on the "notb00017.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00017_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE notb00017.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00017_us_mod_checkColumnConstraints {<BLOCK Name="fct.notb00017_fech_mod_checkColumnConstraints">} #+ Check constraints on the "notb00017.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00017_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE notb00017.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00017_fech_mod_checkColumnConstraints {<BLOCK Name="fct.notb00016_checkTableConstraints">} #+ Check constraints on the "notb00016" table #+ #+ @param p_data - a row data LIKE notb00016.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_notb00016_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE notb00016.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_notb00016_num_nomi_checkColumnConstraints(p_data.num_nomi) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00016_tipo_emp_checkColumnConstraints(p_data.tipo_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00016_num_emp_checkColumnConstraints(p_data.num_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00016_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00016_nivel_emp_checkColumnConstraints(p_data.nivel_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00016_cod_puesto_checkColumnConstraints(p_data.cod_puesto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00016_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00016_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00016_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00016_valor_checkColumnConstraints(p_data.valor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00016_clase_mov_checkColumnConstraints(p_data.clase_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00016_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00016_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00016_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00016_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00016_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00016_checkTableConstraints {<BLOCK Name="fct.notb00016_num_nomi_checkColumnConstraints">} #+ Check constraints on the "notb00016.num_nomi" column #+ #+ @param p_num_nomi - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00016_num_nomi_checkColumnConstraints(p_num_nomi) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_nomi LIKE notb00016.num_nomi LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00016_num_nomi_checkColumnConstraints {<BLOCK Name="fct.notb00016_tipo_emp_checkColumnConstraints">} #+ Check constraints on the "notb00016.tipo_emp" column #+ #+ @param p_tipo_emp - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00016_tipo_emp_checkColumnConstraints(p_tipo_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_emp LIKE notb00016.tipo_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00016_tipo_emp_checkColumnConstraints {<BLOCK Name="fct.notb00016_num_emp_checkColumnConstraints">} #+ Check constraints on the "notb00016.num_emp" column #+ #+ @param p_num_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00016_num_emp_checkColumnConstraints(p_num_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_emp LIKE notb00016.num_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00016_num_emp_checkColumnConstraints {<BLOCK Name="fct.notb00016_departamento_checkColumnConstraints">} #+ Check constraints on the "notb00016.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00016_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE notb00016.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00016_departamento_checkColumnConstraints {<BLOCK Name="fct.notb00016_nivel_emp_checkColumnConstraints">} #+ Check constraints on the "notb00016.nivel_emp" column #+ #+ @param p_nivel_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00016_nivel_emp_checkColumnConstraints(p_nivel_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nivel_emp LIKE notb00016.nivel_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00016_nivel_emp_checkColumnConstraints {<BLOCK Name="fct.notb00016_cod_puesto_checkColumnConstraints">} #+ Check constraints on the "notb00016.cod_puesto" column #+ #+ @param p_cod_puesto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00016_cod_puesto_checkColumnConstraints(p_cod_puesto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_puesto LIKE notb00016.cod_puesto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00016_cod_puesto_checkColumnConstraints {<BLOCK Name="fct.notb00016_fecha_checkColumnConstraints">} #+ Check constraints on the "notb00016.fecha" column #+ #+ @param p_fecha - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00016_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE notb00016.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00016_fecha_checkColumnConstraints {<BLOCK Name="fct.notb00016_cod_mov_checkColumnConstraints">} #+ Check constraints on the "notb00016.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00016_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE notb00016.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00016_cod_mov_checkColumnConstraints {<BLOCK Name="fct.notb00016_cantidad_checkColumnConstraints">} #+ Check constraints on the "notb00016.cantidad" column #+ #+ @param p_cantidad - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00016_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE notb00016.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00016_cantidad_checkColumnConstraints {<BLOCK Name="fct.notb00016_valor_checkColumnConstraints">} #+ Check constraints on the "notb00016.valor" column #+ #+ @param p_valor - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00016_valor_checkColumnConstraints(p_valor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor LIKE notb00016.valor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00016_valor_checkColumnConstraints {<BLOCK Name="fct.notb00016_clase_mov_checkColumnConstraints">} #+ Check constraints on the "notb00016.clase_mov" column #+ #+ @param p_clase_mov - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00016_clase_mov_checkColumnConstraints(p_clase_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_clase_mov LIKE notb00016.clase_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00016_clase_mov_checkColumnConstraints {<BLOCK Name="fct.notb00016_status_t_checkColumnConstraints">} #+ Check constraints on the "notb00016.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00016_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE notb00016.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00016_status_t_checkColumnConstraints {<BLOCK Name="fct.notb00016_us_crea_checkColumnConstraints">} #+ Check constraints on the "notb00016.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00016_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE notb00016.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00016_us_crea_checkColumnConstraints {<BLOCK Name="fct.notb00016_fech_crea_checkColumnConstraints">} #+ Check constraints on the "notb00016.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00016_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE notb00016.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00016_fech_crea_checkColumnConstraints {<BLOCK Name="fct.notb00016_us_mod_checkColumnConstraints">} #+ Check constraints on the "notb00016.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00016_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE notb00016.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00016_us_mod_checkColumnConstraints {<BLOCK Name="fct.notb00016_fech_mod_checkColumnConstraints">} #+ Check constraints on the "notb00016.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00016_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE notb00016.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00016_fech_mod_checkColumnConstraints {<BLOCK Name="fct.notb00015_checkTableConstraints">} #+ Check constraints on the "notb00015" table #+ #+ @param p_data - a row data LIKE notb00015.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_notb00015_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE notb00015.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_notb00015_num_emp_checkColumnConstraints(p_data.num_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00015_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00015_nivel_emp_checkColumnConstraints(p_data.nivel_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00015_cod_puesto_checkColumnConstraints(p_data.cod_puesto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00015_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00015_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00015_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00015_monto_checkColumnConstraints(p_data.monto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00015_porciento_checkColumnConstraints(p_data.porciento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00015_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00015_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00015_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00015_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00015_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00015_checkTableConstraints {<BLOCK Name="fct.notb00015_num_emp_checkColumnConstraints">} #+ Check constraints on the "notb00015.num_emp" column #+ #+ @param p_num_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00015_num_emp_checkColumnConstraints(p_num_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_emp LIKE notb00015.num_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00015_num_emp_checkColumnConstraints {<BLOCK Name="fct.notb00015_departamento_checkColumnConstraints">} #+ Check constraints on the "notb00015.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00015_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE notb00015.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00015_departamento_checkColumnConstraints {<BLOCK Name="fct.notb00015_nivel_emp_checkColumnConstraints">} #+ Check constraints on the "notb00015.nivel_emp" column #+ #+ @param p_nivel_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00015_nivel_emp_checkColumnConstraints(p_nivel_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nivel_emp LIKE notb00015.nivel_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00015_nivel_emp_checkColumnConstraints {<BLOCK Name="fct.notb00015_cod_puesto_checkColumnConstraints">} #+ Check constraints on the "notb00015.cod_puesto" column #+ #+ @param p_cod_puesto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00015_cod_puesto_checkColumnConstraints(p_cod_puesto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_puesto LIKE notb00015.cod_puesto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00015_cod_puesto_checkColumnConstraints {<BLOCK Name="fct.notb00015_num_doc_checkColumnConstraints">} #+ Check constraints on the "notb00015.num_doc" column #+ #+ @param p_num_doc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00015_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE notb00015.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00015_num_doc_checkColumnConstraints {<BLOCK Name="fct.notb00015_cod_mov_checkColumnConstraints">} #+ Check constraints on the "notb00015.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00015_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE notb00015.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00015_cod_mov_checkColumnConstraints {<BLOCK Name="fct.notb00015_fecha_checkColumnConstraints">} #+ Check constraints on the "notb00015.fecha" column #+ #+ @param p_fecha - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00015_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE notb00015.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00015_fecha_checkColumnConstraints {<BLOCK Name="fct.notb00015_monto_checkColumnConstraints">} #+ Check constraints on the "notb00015.monto" column #+ #+ @param p_monto - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00015_monto_checkColumnConstraints(p_monto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_monto LIKE notb00015.monto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00015_monto_checkColumnConstraints {<BLOCK Name="fct.notb00015_porciento_checkColumnConstraints">} #+ Check constraints on the "notb00015.porciento" column #+ #+ @param p_porciento - DECIMAL(5,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00015_porciento_checkColumnConstraints(p_porciento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_porciento LIKE notb00015.porciento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00015_porciento_checkColumnConstraints {<BLOCK Name="fct.notb00015_status_t_checkColumnConstraints">} #+ Check constraints on the "notb00015.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00015_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE notb00015.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00015_status_t_checkColumnConstraints {<BLOCK Name="fct.notb00015_us_crea_checkColumnConstraints">} #+ Check constraints on the "notb00015.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00015_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE notb00015.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00015_us_crea_checkColumnConstraints {<BLOCK Name="fct.notb00015_fech_crea_checkColumnConstraints">} #+ Check constraints on the "notb00015.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00015_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE notb00015.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00015_fech_crea_checkColumnConstraints {<BLOCK Name="fct.notb00015_us_mod_checkColumnConstraints">} #+ Check constraints on the "notb00015.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00015_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE notb00015.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00015_us_mod_checkColumnConstraints {<BLOCK Name="fct.notb00015_fech_mod_checkColumnConstraints">} #+ Check constraints on the "notb00015.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00015_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE notb00015.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00015_fech_mod_checkColumnConstraints {<BLOCK Name="fct.notb00014_checkTableConstraints">} #+ Check constraints on the "notb00014" table #+ #+ @param p_data - a row data LIKE notb00014.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_notb00014_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE notb00014.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_notb00014_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00014_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00014_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00014_checkTableConstraints {<BLOCK Name="fct.notb00014_cod_mov_checkColumnConstraints">} #+ Check constraints on the "notb00014.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00014_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE notb00014.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00014_cod_mov_checkColumnConstraints {<BLOCK Name="fct.notb00014_us_crea_checkColumnConstraints">} #+ Check constraints on the "notb00014.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00014_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE notb00014.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00014_us_crea_checkColumnConstraints {<BLOCK Name="fct.notb00014_fech_crea_checkColumnConstraints">} #+ Check constraints on the "notb00014.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00014_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE notb00014.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00014_fech_crea_checkColumnConstraints {<BLOCK Name="fct.notb00013_checkTableConstraints">} #+ Check constraints on the "notb00013" table #+ #+ @param p_data - a row data LIKE notb00013.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_notb00013_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE notb00013.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_notb00013_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00013_cod_mov_a_checkColumnConstraints(p_data.cod_mov_a) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00013_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00013_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00013_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00013_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00013_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00013_checkTableConstraints {<BLOCK Name="fct.notb00013_cod_mov_checkColumnConstraints">} #+ Check constraints on the "notb00013.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00013_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE notb00013.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00013_cod_mov_checkColumnConstraints {<BLOCK Name="fct.notb00013_cod_mov_a_checkColumnConstraints">} #+ Check constraints on the "notb00013.cod_mov_a" column #+ #+ @param p_cod_mov_a - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00013_cod_mov_a_checkColumnConstraints(p_cod_mov_a) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov_a LIKE notb00013.cod_mov_a LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00013_cod_mov_a_checkColumnConstraints {<BLOCK Name="fct.notb00013_status_t_checkColumnConstraints">} #+ Check constraints on the "notb00013.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00013_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE notb00013.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00013_status_t_checkColumnConstraints {<BLOCK Name="fct.notb00013_us_crea_checkColumnConstraints">} #+ Check constraints on the "notb00013.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00013_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE notb00013.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00013_us_crea_checkColumnConstraints {<BLOCK Name="fct.notb00013_fech_crea_checkColumnConstraints">} #+ Check constraints on the "notb00013.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00013_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE notb00013.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00013_fech_crea_checkColumnConstraints {<BLOCK Name="fct.notb00013_us_mod_checkColumnConstraints">} #+ Check constraints on the "notb00013.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00013_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE notb00013.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00013_us_mod_checkColumnConstraints {<BLOCK Name="fct.notb00013_fech_mod_checkColumnConstraints">} #+ Check constraints on the "notb00013.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00013_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE notb00013.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00013_fech_mod_checkColumnConstraints {<BLOCK Name="fct.notb00012_checkTableConstraints">} #+ Check constraints on the "notb00012" table #+ #+ @param p_data - a row data LIKE notb00012.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_notb00012_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE notb00012.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_notb00012_cod_mes_checkColumnConstraints(p_data.cod_mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00012_dias_checkColumnConstraints(p_data.dias) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00012_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00012_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00012_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00012_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00012_checkTableConstraints {<BLOCK Name="fct.notb00012_cod_mes_checkColumnConstraints">} #+ Check constraints on the "notb00012.cod_mes" column #+ #+ @param p_cod_mes - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00012_cod_mes_checkColumnConstraints(p_cod_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mes LIKE notb00012.cod_mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00012_cod_mes_checkColumnConstraints {<BLOCK Name="fct.notb00012_dias_checkColumnConstraints">} #+ Check constraints on the "notb00012.dias" column #+ #+ @param p_dias - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00012_dias_checkColumnConstraints(p_dias) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_dias LIKE notb00012.dias LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00012_dias_checkColumnConstraints {<BLOCK Name="fct.notb00012_us_crea_checkColumnConstraints">} #+ Check constraints on the "notb00012.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00012_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE notb00012.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00012_us_crea_checkColumnConstraints {<BLOCK Name="fct.notb00012_fech_crea_checkColumnConstraints">} #+ Check constraints on the "notb00012.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00012_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE notb00012.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00012_fech_crea_checkColumnConstraints {<BLOCK Name="fct.notb00012_us_mod_checkColumnConstraints">} #+ Check constraints on the "notb00012.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00012_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE notb00012.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00012_us_mod_checkColumnConstraints {<BLOCK Name="fct.notb00012_fech_mod_checkColumnConstraints">} #+ Check constraints on the "notb00012.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00012_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE notb00012.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00012_fech_mod_checkColumnConstraints {<BLOCK Name="fct.notb00011_checkTableConstraints">} #+ Check constraints on the "notb00011" table #+ #+ @param p_data - a row data LIKE notb00011.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_notb00011_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE notb00011.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_notb00011_num_emp_checkColumnConstraints(p_data.num_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00011_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00011_nivel_emp_checkColumnConstraints(p_data.nivel_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00011_cod_puesto_checkColumnConstraints(p_data.cod_puesto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00011_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00011_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00011_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00011_monto_checkColumnConstraints(p_data.monto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00011_porciento_checkColumnConstraints(p_data.porciento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00011_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00011_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00011_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00011_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00011_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00011_checkTableConstraints {<BLOCK Name="fct.notb00011_num_emp_checkColumnConstraints">} #+ Check constraints on the "notb00011.num_emp" column #+ #+ @param p_num_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00011_num_emp_checkColumnConstraints(p_num_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_emp LIKE notb00011.num_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00011_num_emp_checkColumnConstraints {<BLOCK Name="fct.notb00011_departamento_checkColumnConstraints">} #+ Check constraints on the "notb00011.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00011_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE notb00011.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00011_departamento_checkColumnConstraints {<BLOCK Name="fct.notb00011_nivel_emp_checkColumnConstraints">} #+ Check constraints on the "notb00011.nivel_emp" column #+ #+ @param p_nivel_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00011_nivel_emp_checkColumnConstraints(p_nivel_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nivel_emp LIKE notb00011.nivel_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00011_nivel_emp_checkColumnConstraints {<BLOCK Name="fct.notb00011_cod_puesto_checkColumnConstraints">} #+ Check constraints on the "notb00011.cod_puesto" column #+ #+ @param p_cod_puesto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00011_cod_puesto_checkColumnConstraints(p_cod_puesto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_puesto LIKE notb00011.cod_puesto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00011_cod_puesto_checkColumnConstraints {<BLOCK Name="fct.notb00011_num_doc_checkColumnConstraints">} #+ Check constraints on the "notb00011.num_doc" column #+ #+ @param p_num_doc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00011_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE notb00011.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00011_num_doc_checkColumnConstraints {<BLOCK Name="fct.notb00011_cod_mov_checkColumnConstraints">} #+ Check constraints on the "notb00011.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00011_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE notb00011.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00011_cod_mov_checkColumnConstraints {<BLOCK Name="fct.notb00011_fecha_checkColumnConstraints">} #+ Check constraints on the "notb00011.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00011_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE notb00011.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00011_fecha_checkColumnConstraints {<BLOCK Name="fct.notb00011_monto_checkColumnConstraints">} #+ Check constraints on the "notb00011.monto" column #+ #+ @param p_monto - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00011_monto_checkColumnConstraints(p_monto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_monto LIKE notb00011.monto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00011_monto_checkColumnConstraints {<BLOCK Name="fct.notb00011_porciento_checkColumnConstraints">} #+ Check constraints on the "notb00011.porciento" column #+ #+ @param p_porciento - DECIMAL(5,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00011_porciento_checkColumnConstraints(p_porciento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_porciento LIKE notb00011.porciento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00011_porciento_checkColumnConstraints {<BLOCK Name="fct.notb00011_status_t_checkColumnConstraints">} #+ Check constraints on the "notb00011.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00011_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE notb00011.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00011_status_t_checkColumnConstraints {<BLOCK Name="fct.notb00011_us_crea_checkColumnConstraints">} #+ Check constraints on the "notb00011.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00011_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE notb00011.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00011_us_crea_checkColumnConstraints {<BLOCK Name="fct.notb00011_fech_crea_checkColumnConstraints">} #+ Check constraints on the "notb00011.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00011_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE notb00011.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00011_fech_crea_checkColumnConstraints {<BLOCK Name="fct.notb00011_us_mod_checkColumnConstraints">} #+ Check constraints on the "notb00011.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00011_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE notb00011.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00011_us_mod_checkColumnConstraints {<BLOCK Name="fct.notb00011_fech_mod_checkColumnConstraints">} #+ Check constraints on the "notb00011.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00011_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE notb00011.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00011_fech_mod_checkColumnConstraints {<BLOCK Name="fct.notb00010_checkTableConstraints">} #+ Check constraints on the "notb00010" table #+ #+ @param p_data - a row data LIKE notb00010.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_notb00010_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE notb00010.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_notb00010_tipo_emp_checkColumnConstraints(p_data.tipo_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00010_h_normal_checkColumnConstraints(p_data.h_normal) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00010_num_nomi_checkColumnConstraints(p_data.num_nomi) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00010_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00010_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00010_num_sem_checkColumnConstraints(p_data.num_sem) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00010_fecha_del_checkColumnConstraints(p_data.fecha_del) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00010_fecha_al_checkColumnConstraints(p_data.fecha_al) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00010_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00010_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00010_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00010_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00010_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00010_checkTableConstraints {<BLOCK Name="fct.notb00010_tipo_emp_checkColumnConstraints">} #+ Check constraints on the "notb00010.tipo_emp" column #+ #+ @param p_tipo_emp - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00010_tipo_emp_checkColumnConstraints(p_tipo_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_emp LIKE notb00010.tipo_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00010_tipo_emp_checkColumnConstraints {<BLOCK Name="fct.notb00010_h_normal_checkColumnConstraints">} #+ Check constraints on the "notb00010.h_normal" column #+ #+ @param p_h_normal - DECIMAL(8,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00010_h_normal_checkColumnConstraints(p_h_normal) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_h_normal LIKE notb00010.h_normal LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00010_h_normal_checkColumnConstraints {<BLOCK Name="fct.notb00010_num_nomi_checkColumnConstraints">} #+ Check constraints on the "notb00010.num_nomi" column #+ #+ @param p_num_nomi - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00010_num_nomi_checkColumnConstraints(p_num_nomi) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_nomi LIKE notb00010.num_nomi LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00010_num_nomi_checkColumnConstraints {<BLOCK Name="fct.notb00010_mes_checkColumnConstraints">} #+ Check constraints on the "notb00010.mes" column #+ #+ @param p_mes - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00010_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE notb00010.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00010_mes_checkColumnConstraints {<BLOCK Name="fct.notb00010_ano_checkColumnConstraints">} #+ Check constraints on the "notb00010.ano" column #+ #+ @param p_ano - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00010_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE notb00010.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_ano IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- ano: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00010_ano_checkColumnConstraints {<BLOCK Name="fct.notb00010_num_sem_checkColumnConstraints">} #+ Check constraints on the "notb00010.num_sem" column #+ #+ @param p_num_sem - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00010_num_sem_checkColumnConstraints(p_num_sem) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_sem LIKE notb00010.num_sem LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00010_num_sem_checkColumnConstraints {<BLOCK Name="fct.notb00010_fecha_del_checkColumnConstraints">} #+ Check constraints on the "notb00010.fecha_del" column #+ #+ @param p_fecha_del - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00010_fecha_del_checkColumnConstraints(p_fecha_del) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_del LIKE notb00010.fecha_del LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00010_fecha_del_checkColumnConstraints {<BLOCK Name="fct.notb00010_fecha_al_checkColumnConstraints">} #+ Check constraints on the "notb00010.fecha_al" column #+ #+ @param p_fecha_al - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00010_fecha_al_checkColumnConstraints(p_fecha_al) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_al LIKE notb00010.fecha_al LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00010_fecha_al_checkColumnConstraints {<BLOCK Name="fct.notb00010_status_t_checkColumnConstraints">} #+ Check constraints on the "notb00010.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00010_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE notb00010.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00010_status_t_checkColumnConstraints {<BLOCK Name="fct.notb00010_us_crea_checkColumnConstraints">} #+ Check constraints on the "notb00010.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00010_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE notb00010.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00010_us_crea_checkColumnConstraints {<BLOCK Name="fct.notb00010_fech_crea_checkColumnConstraints">} #+ Check constraints on the "notb00010.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00010_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE notb00010.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00010_fech_crea_checkColumnConstraints {<BLOCK Name="fct.notb00010_us_mod_checkColumnConstraints">} #+ Check constraints on the "notb00010.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00010_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE notb00010.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00010_us_mod_checkColumnConstraints {<BLOCK Name="fct.notb00010_fech_mod_checkColumnConstraints">} #+ Check constraints on the "notb00010.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00010_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE notb00010.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00010_fech_mod_checkColumnConstraints {<BLOCK Name="fct.notb00009_checkTableConstraints">} #+ Check constraints on the "notb00009" table #+ #+ @param p_data - a row data LIKE notb00009.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_notb00009_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE notb00009.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_notb00009_num_nomi_checkColumnConstraints(p_data.num_nomi) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00009_tipo_emp_checkColumnConstraints(p_data.tipo_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00009_cheque_no_checkColumnConstraints(p_data.cheque_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00009_num_emp_checkColumnConstraints(p_data.num_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00009_monto_checkColumnConstraints(p_data.monto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00009_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00009_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00009_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00009_checkTableConstraints {<BLOCK Name="fct.notb00009_num_nomi_checkColumnConstraints">} #+ Check constraints on the "notb00009.num_nomi" column #+ #+ @param p_num_nomi - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00009_num_nomi_checkColumnConstraints(p_num_nomi) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_nomi LIKE notb00009.num_nomi LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00009_num_nomi_checkColumnConstraints {<BLOCK Name="fct.notb00009_tipo_emp_checkColumnConstraints">} #+ Check constraints on the "notb00009.tipo_emp" column #+ #+ @param p_tipo_emp - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00009_tipo_emp_checkColumnConstraints(p_tipo_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_emp LIKE notb00009.tipo_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00009_tipo_emp_checkColumnConstraints {<BLOCK Name="fct.notb00009_cheque_no_checkColumnConstraints">} #+ Check constraints on the "notb00009.cheque_no" column #+ #+ @param p_cheque_no - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00009_cheque_no_checkColumnConstraints(p_cheque_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cheque_no LIKE notb00009.cheque_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00009_cheque_no_checkColumnConstraints {<BLOCK Name="fct.notb00009_num_emp_checkColumnConstraints">} #+ Check constraints on the "notb00009.num_emp" column #+ #+ @param p_num_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00009_num_emp_checkColumnConstraints(p_num_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_emp LIKE notb00009.num_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00009_num_emp_checkColumnConstraints {<BLOCK Name="fct.notb00009_monto_checkColumnConstraints">} #+ Check constraints on the "notb00009.monto" column #+ #+ @param p_monto - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00009_monto_checkColumnConstraints(p_monto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_monto LIKE notb00009.monto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00009_monto_checkColumnConstraints {<BLOCK Name="fct.notb00009_status_t_checkColumnConstraints">} #+ Check constraints on the "notb00009.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00009_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE notb00009.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00009_status_t_checkColumnConstraints {<BLOCK Name="fct.notb00009_us_crea_checkColumnConstraints">} #+ Check constraints on the "notb00009.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00009_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE notb00009.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00009_us_crea_checkColumnConstraints {<BLOCK Name="fct.notb00009_fech_crea_checkColumnConstraints">} #+ Check constraints on the "notb00009.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00009_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE notb00009.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00009_fech_crea_checkColumnConstraints {<BLOCK Name="fct.notb00008_checkTableConstraints">} #+ Check constraints on the "notb00008" table #+ #+ @param p_data - a row data LIKE notb00008.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_notb00008_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE notb00008.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_notb00008_num_nomi_checkColumnConstraints(p_data.num_nomi) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00008_tipo_emp_checkColumnConstraints(p_data.tipo_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00008_num_emp_checkColumnConstraints(p_data.num_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00008_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00008_nivel_emp_checkColumnConstraints(p_data.nivel_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00008_cod_puesto_checkColumnConstraints(p_data.cod_puesto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00008_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00008_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00008_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00008_valor_checkColumnConstraints(p_data.valor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00008_clase_mov_checkColumnConstraints(p_data.clase_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00008_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00008_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00008_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00008_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00008_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00008_checkTableConstraints {<BLOCK Name="fct.notb00008_num_nomi_checkColumnConstraints">} #+ Check constraints on the "notb00008.num_nomi" column #+ #+ @param p_num_nomi - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00008_num_nomi_checkColumnConstraints(p_num_nomi) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_nomi LIKE notb00008.num_nomi LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00008_num_nomi_checkColumnConstraints {<BLOCK Name="fct.notb00008_tipo_emp_checkColumnConstraints">} #+ Check constraints on the "notb00008.tipo_emp" column #+ #+ @param p_tipo_emp - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00008_tipo_emp_checkColumnConstraints(p_tipo_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_emp LIKE notb00008.tipo_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00008_tipo_emp_checkColumnConstraints {<BLOCK Name="fct.notb00008_num_emp_checkColumnConstraints">} #+ Check constraints on the "notb00008.num_emp" column #+ #+ @param p_num_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00008_num_emp_checkColumnConstraints(p_num_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_emp LIKE notb00008.num_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00008_num_emp_checkColumnConstraints {<BLOCK Name="fct.notb00008_departamento_checkColumnConstraints">} #+ Check constraints on the "notb00008.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00008_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE notb00008.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00008_departamento_checkColumnConstraints {<BLOCK Name="fct.notb00008_nivel_emp_checkColumnConstraints">} #+ Check constraints on the "notb00008.nivel_emp" column #+ #+ @param p_nivel_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00008_nivel_emp_checkColumnConstraints(p_nivel_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nivel_emp LIKE notb00008.nivel_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00008_nivel_emp_checkColumnConstraints {<BLOCK Name="fct.notb00008_cod_puesto_checkColumnConstraints">} #+ Check constraints on the "notb00008.cod_puesto" column #+ #+ @param p_cod_puesto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00008_cod_puesto_checkColumnConstraints(p_cod_puesto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_puesto LIKE notb00008.cod_puesto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00008_cod_puesto_checkColumnConstraints {<BLOCK Name="fct.notb00008_fecha_checkColumnConstraints">} #+ Check constraints on the "notb00008.fecha" column #+ #+ @param p_fecha - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00008_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE notb00008.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00008_fecha_checkColumnConstraints {<BLOCK Name="fct.notb00008_cod_mov_checkColumnConstraints">} #+ Check constraints on the "notb00008.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00008_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE notb00008.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00008_cod_mov_checkColumnConstraints {<BLOCK Name="fct.notb00008_cantidad_checkColumnConstraints">} #+ Check constraints on the "notb00008.cantidad" column #+ #+ @param p_cantidad - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00008_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE notb00008.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00008_cantidad_checkColumnConstraints {<BLOCK Name="fct.notb00008_valor_checkColumnConstraints">} #+ Check constraints on the "notb00008.valor" column #+ #+ @param p_valor - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00008_valor_checkColumnConstraints(p_valor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor LIKE notb00008.valor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00008_valor_checkColumnConstraints {<BLOCK Name="fct.notb00008_clase_mov_checkColumnConstraints">} #+ Check constraints on the "notb00008.clase_mov" column #+ #+ @param p_clase_mov - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00008_clase_mov_checkColumnConstraints(p_clase_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_clase_mov LIKE notb00008.clase_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00008_clase_mov_checkColumnConstraints {<BLOCK Name="fct.notb00008_status_t_checkColumnConstraints">} #+ Check constraints on the "notb00008.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00008_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE notb00008.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00008_status_t_checkColumnConstraints {<BLOCK Name="fct.notb00008_us_crea_checkColumnConstraints">} #+ Check constraints on the "notb00008.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00008_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE notb00008.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00008_us_crea_checkColumnConstraints {<BLOCK Name="fct.notb00008_fech_crea_checkColumnConstraints">} #+ Check constraints on the "notb00008.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00008_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE notb00008.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00008_fech_crea_checkColumnConstraints {<BLOCK Name="fct.notb00008_us_mod_checkColumnConstraints">} #+ Check constraints on the "notb00008.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00008_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE notb00008.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00008_us_mod_checkColumnConstraints {<BLOCK Name="fct.notb00008_fech_mod_checkColumnConstraints">} #+ Check constraints on the "notb00008.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00008_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE notb00008.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00008_fech_mod_checkColumnConstraints {<BLOCK Name="fct.notb00007_checkTableConstraints">} #+ Check constraints on the "notb00007" table #+ #+ @param p_data - a row data LIKE notb00007.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_notb00007_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE notb00007.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_notb00007_num_nomi_checkColumnConstraints(p_data.num_nomi) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00007_tipo_emp_checkColumnConstraints(p_data.tipo_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00007_num_emp_checkColumnConstraints(p_data.num_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00007_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00007_nivel_emp_checkColumnConstraints(p_data.nivel_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00007_cod_puesto_checkColumnConstraints(p_data.cod_puesto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00007_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00007_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00007_valor_checkColumnConstraints(p_data.valor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00007_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00007_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00007_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00007_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00007_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00007_checkTableConstraints {<BLOCK Name="fct.notb00007_num_nomi_checkColumnConstraints">} #+ Check constraints on the "notb00007.num_nomi" column #+ #+ @param p_num_nomi - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00007_num_nomi_checkColumnConstraints(p_num_nomi) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_nomi LIKE notb00007.num_nomi LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00007_num_nomi_checkColumnConstraints {<BLOCK Name="fct.notb00007_tipo_emp_checkColumnConstraints">} #+ Check constraints on the "notb00007.tipo_emp" column #+ #+ @param p_tipo_emp - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00007_tipo_emp_checkColumnConstraints(p_tipo_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_emp LIKE notb00007.tipo_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00007_tipo_emp_checkColumnConstraints {<BLOCK Name="fct.notb00007_num_emp_checkColumnConstraints">} #+ Check constraints on the "notb00007.num_emp" column #+ #+ @param p_num_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00007_num_emp_checkColumnConstraints(p_num_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_emp LIKE notb00007.num_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00007_num_emp_checkColumnConstraints {<BLOCK Name="fct.notb00007_departamento_checkColumnConstraints">} #+ Check constraints on the "notb00007.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00007_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE notb00007.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00007_departamento_checkColumnConstraints {<BLOCK Name="fct.notb00007_nivel_emp_checkColumnConstraints">} #+ Check constraints on the "notb00007.nivel_emp" column #+ #+ @param p_nivel_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00007_nivel_emp_checkColumnConstraints(p_nivel_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nivel_emp LIKE notb00007.nivel_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00007_nivel_emp_checkColumnConstraints {<BLOCK Name="fct.notb00007_cod_puesto_checkColumnConstraints">} #+ Check constraints on the "notb00007.cod_puesto" column #+ #+ @param p_cod_puesto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00007_cod_puesto_checkColumnConstraints(p_cod_puesto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_puesto LIKE notb00007.cod_puesto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00007_cod_puesto_checkColumnConstraints {<BLOCK Name="fct.notb00007_cod_mov_checkColumnConstraints">} #+ Check constraints on the "notb00007.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00007_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE notb00007.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00007_cod_mov_checkColumnConstraints {<BLOCK Name="fct.notb00007_cantidad_checkColumnConstraints">} #+ Check constraints on the "notb00007.cantidad" column #+ #+ @param p_cantidad - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00007_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE notb00007.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00007_cantidad_checkColumnConstraints {<BLOCK Name="fct.notb00007_valor_checkColumnConstraints">} #+ Check constraints on the "notb00007.valor" column #+ #+ @param p_valor - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00007_valor_checkColumnConstraints(p_valor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor LIKE notb00007.valor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00007_valor_checkColumnConstraints {<BLOCK Name="fct.notb00007_status_t_checkColumnConstraints">} #+ Check constraints on the "notb00007.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00007_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE notb00007.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00007_status_t_checkColumnConstraints {<BLOCK Name="fct.notb00007_us_crea_checkColumnConstraints">} #+ Check constraints on the "notb00007.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00007_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE notb00007.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00007_us_crea_checkColumnConstraints {<BLOCK Name="fct.notb00007_fech_crea_checkColumnConstraints">} #+ Check constraints on the "notb00007.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00007_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE notb00007.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00007_fech_crea_checkColumnConstraints {<BLOCK Name="fct.notb00007_us_mod_checkColumnConstraints">} #+ Check constraints on the "notb00007.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00007_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE notb00007.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00007_us_mod_checkColumnConstraints {<BLOCK Name="fct.notb00007_fech_mod_checkColumnConstraints">} #+ Check constraints on the "notb00007.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00007_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE notb00007.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00007_fech_mod_checkColumnConstraints {<BLOCK Name="fct.notb00006_checkTableConstraints">} #+ Check constraints on the "notb00006" table #+ #+ @param p_data - a row data LIKE notb00006.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_notb00006_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE notb00006.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_notb00006_salario_sem_desde_checkColumnConstraints(p_data.salario_sem_desde) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00006_salario_sem_hasta_checkColumnConstraints(p_data.salario_sem_hasta) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00006_salario_men_desde_checkColumnConstraints(p_data.salario_men_desde) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00006_salario_men_hasta_checkColumnConstraints(p_data.salario_men_hasta) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00006_porc_emp_checkColumnConstraints(p_data.porc_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00006_porc_pat_checkColumnConstraints(p_data.porc_pat) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00006_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00006_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00006_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00006_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00006_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00006_checkTableConstraints {<BLOCK Name="fct.notb00006_salario_sem_desde_checkColumnConstraints">} #+ Check constraints on the "notb00006.salario_sem_desde" column #+ #+ @param p_salario_sem_desde - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00006_salario_sem_desde_checkColumnConstraints(p_salario_sem_desde) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_salario_sem_desde LIKE notb00006.salario_sem_desde LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00006_salario_sem_desde_checkColumnConstraints {<BLOCK Name="fct.notb00006_salario_sem_hasta_checkColumnConstraints">} #+ Check constraints on the "notb00006.salario_sem_hasta" column #+ #+ @param p_salario_sem_hasta - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00006_salario_sem_hasta_checkColumnConstraints(p_salario_sem_hasta) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_salario_sem_hasta LIKE notb00006.salario_sem_hasta LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00006_salario_sem_hasta_checkColumnConstraints {<BLOCK Name="fct.notb00006_salario_men_desde_checkColumnConstraints">} #+ Check constraints on the "notb00006.salario_men_desde" column #+ #+ @param p_salario_men_desde - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00006_salario_men_desde_checkColumnConstraints(p_salario_men_desde) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_salario_men_desde LIKE notb00006.salario_men_desde LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00006_salario_men_desde_checkColumnConstraints {<BLOCK Name="fct.notb00006_salario_men_hasta_checkColumnConstraints">} #+ Check constraints on the "notb00006.salario_men_hasta" column #+ #+ @param p_salario_men_hasta - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00006_salario_men_hasta_checkColumnConstraints(p_salario_men_hasta) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_salario_men_hasta LIKE notb00006.salario_men_hasta LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00006_salario_men_hasta_checkColumnConstraints {<BLOCK Name="fct.notb00006_porc_emp_checkColumnConstraints">} #+ Check constraints on the "notb00006.porc_emp" column #+ #+ @param p_porc_emp - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00006_porc_emp_checkColumnConstraints(p_porc_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_porc_emp LIKE notb00006.porc_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00006_porc_emp_checkColumnConstraints {<BLOCK Name="fct.notb00006_porc_pat_checkColumnConstraints">} #+ Check constraints on the "notb00006.porc_pat" column #+ #+ @param p_porc_pat - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00006_porc_pat_checkColumnConstraints(p_porc_pat) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_porc_pat LIKE notb00006.porc_pat LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00006_porc_pat_checkColumnConstraints {<BLOCK Name="fct.notb00006_status_t_checkColumnConstraints">} #+ Check constraints on the "notb00006.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00006_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE notb00006.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00006_status_t_checkColumnConstraints {<BLOCK Name="fct.notb00006_us_crea_checkColumnConstraints">} #+ Check constraints on the "notb00006.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00006_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE notb00006.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00006_us_crea_checkColumnConstraints {<BLOCK Name="fct.notb00006_fech_crea_checkColumnConstraints">} #+ Check constraints on the "notb00006.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00006_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE notb00006.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00006_fech_crea_checkColumnConstraints {<BLOCK Name="fct.notb00006_us_mod_checkColumnConstraints">} #+ Check constraints on the "notb00006.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00006_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE notb00006.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00006_us_mod_checkColumnConstraints {<BLOCK Name="fct.notb00006_fech_mod_checkColumnConstraints">} #+ Check constraints on the "notb00006.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00006_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE notb00006.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00006_fech_mod_checkColumnConstraints {<BLOCK Name="fct.notb00005_checkTableConstraints">} #+ Check constraints on the "notb00005" table #+ #+ @param p_data - a row data LIKE notb00005.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_notb00005_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE notb00005.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_notb00005_salario_checkColumnConstraints(p_data.salario) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00005_valor_checkColumnConstraints(p_data.valor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00005_porc_imp_checkColumnConstraints(p_data.porc_imp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00005_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00005_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00005_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00005_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00005_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00005_checkTableConstraints {<BLOCK Name="fct.notb00005_salario_checkColumnConstraints">} #+ Check constraints on the "notb00005.salario" column #+ #+ @param p_salario - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00005_salario_checkColumnConstraints(p_salario) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_salario LIKE notb00005.salario LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00005_salario_checkColumnConstraints {<BLOCK Name="fct.notb00005_valor_checkColumnConstraints">} #+ Check constraints on the "notb00005.valor" column #+ #+ @param p_valor - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00005_valor_checkColumnConstraints(p_valor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor LIKE notb00005.valor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00005_valor_checkColumnConstraints {<BLOCK Name="fct.notb00005_porc_imp_checkColumnConstraints">} #+ Check constraints on the "notb00005.porc_imp" column #+ #+ @param p_porc_imp - DECIMAL(8,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00005_porc_imp_checkColumnConstraints(p_porc_imp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_porc_imp LIKE notb00005.porc_imp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00005_porc_imp_checkColumnConstraints {<BLOCK Name="fct.notb00005_status_t_checkColumnConstraints">} #+ Check constraints on the "notb00005.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00005_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE notb00005.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00005_status_t_checkColumnConstraints {<BLOCK Name="fct.notb00005_us_crea_checkColumnConstraints">} #+ Check constraints on the "notb00005.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00005_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE notb00005.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00005_us_crea_checkColumnConstraints {<BLOCK Name="fct.notb00005_fech_crea_checkColumnConstraints">} #+ Check constraints on the "notb00005.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00005_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE notb00005.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00005_fech_crea_checkColumnConstraints {<BLOCK Name="fct.notb00005_us_mod_checkColumnConstraints">} #+ Check constraints on the "notb00005.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00005_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE notb00005.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00005_us_mod_checkColumnConstraints {<BLOCK Name="fct.notb00005_fech_mod_checkColumnConstraints">} #+ Check constraints on the "notb00005.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00005_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE notb00005.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00005_fech_mod_checkColumnConstraints {<BLOCK Name="fct.notb00003_checkTableConstraints">} #+ Check constraints on the "notb00003" table #+ #+ @param p_data - a row data LIKE notb00003.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_notb00003_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE notb00003.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_notb00003_num_emp_checkColumnConstraints(p_data.num_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00003_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00003_nivel_emp_checkColumnConstraints(p_data.nivel_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00003_cod_puesto_checkColumnConstraints(p_data.cod_puesto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00003_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00003_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00003_valor_checkColumnConstraints(p_data.valor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00003_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00003_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00003_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00003_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00003_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00003_pk_notb00003_checkUniqueConstraint(p_forUpdate, p_data.num_emp, p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00003_checkTableConstraints {<BLOCK Name="fct.notb00003_pk_notb00003_checkUniqueConstraint">} #+ Check the primary key uniqueness constraint on the "notb00003" #+ #+ @param p_key - Primary Key #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00003_pk_notb00003_checkUniqueConstraint(p_forUpdate, p_key) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_forUpdate BOOLEAN DEFINE p_key RECORD notb00003_num_emp LIKE notb00003.num_emp, notb00003_cod_mov LIKE notb00003.cod_mov END RECORD DEFINE l_key RECORD notb00003_num_emp LIKE notb00003.num_emp, notb00003_cod_mov LIKE notb00003.cod_mov 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 notb00003.num_emp = ? AND notb00003.cod_mov = ? " let l_sqlQuery = "SELECT COUNT(*), num_emp, cod_mov FROM notb00003 ", l_where, " GROUP BY num_emp, cod_mov" PREPARE cur_notb00003_pk_notb00003_checkUniqueConstraint FROM l_sqlQuery EXECUTE cur_notb00003_pk_notb00003_checkUniqueConstraint INTO l_count, l_key.* USING p_key.* FREE cur_notb00003_pk_notb00003_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- num_emp + cod_mov: " || ERROR_BAM_00002) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00003_pk_notb00003_checkUniqueConstraint {<BLOCK Name="fct.notb00003_num_emp_checkColumnConstraints">} #+ Check constraints on the "notb00003.num_emp" column #+ #+ @param p_num_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00003_num_emp_checkColumnConstraints(p_num_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_emp LIKE notb00003.num_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_num_emp IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- num_emp: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00003_num_emp_checkColumnConstraints {<BLOCK Name="fct.notb00003_departamento_checkColumnConstraints">} #+ Check constraints on the "notb00003.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00003_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE notb00003.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00003_departamento_checkColumnConstraints {<BLOCK Name="fct.notb00003_nivel_emp_checkColumnConstraints">} #+ Check constraints on the "notb00003.nivel_emp" column #+ #+ @param p_nivel_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00003_nivel_emp_checkColumnConstraints(p_nivel_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nivel_emp LIKE notb00003.nivel_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00003_nivel_emp_checkColumnConstraints {<BLOCK Name="fct.notb00003_cod_puesto_checkColumnConstraints">} #+ Check constraints on the "notb00003.cod_puesto" column #+ #+ @param p_cod_puesto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00003_cod_puesto_checkColumnConstraints(p_cod_puesto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_puesto LIKE notb00003.cod_puesto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00003_cod_puesto_checkColumnConstraints {<BLOCK Name="fct.notb00003_cod_mov_checkColumnConstraints">} #+ Check constraints on the "notb00003.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00003_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE notb00003.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_mov IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_mov: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00003_cod_mov_checkColumnConstraints {<BLOCK Name="fct.notb00003_cantidad_checkColumnConstraints">} #+ Check constraints on the "notb00003.cantidad" column #+ #+ @param p_cantidad - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00003_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE notb00003.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00003_cantidad_checkColumnConstraints {<BLOCK Name="fct.notb00003_valor_checkColumnConstraints">} #+ Check constraints on the "notb00003.valor" column #+ #+ @param p_valor - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00003_valor_checkColumnConstraints(p_valor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor LIKE notb00003.valor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00003_valor_checkColumnConstraints {<BLOCK Name="fct.notb00003_status_t_checkColumnConstraints">} #+ Check constraints on the "notb00003.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00003_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE notb00003.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00003_status_t_checkColumnConstraints {<BLOCK Name="fct.notb00003_us_crea_checkColumnConstraints">} #+ Check constraints on the "notb00003.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00003_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE notb00003.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00003_us_crea_checkColumnConstraints {<BLOCK Name="fct.notb00003_fech_crea_checkColumnConstraints">} #+ Check constraints on the "notb00003.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00003_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE notb00003.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00003_fech_crea_checkColumnConstraints {<BLOCK Name="fct.notb00003_us_mod_checkColumnConstraints">} #+ Check constraints on the "notb00003.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00003_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE notb00003.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00003_us_mod_checkColumnConstraints {<BLOCK Name="fct.notb00003_fech_mod_checkColumnConstraints">} #+ Check constraints on the "notb00003.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00003_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE notb00003.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00003_fech_mod_checkColumnConstraints {<BLOCK Name="fct.notb00002_checkTableConstraints">} #+ Check constraints on the "notb00002" table #+ #+ @param p_data - a row data LIKE notb00002.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_notb00002_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE notb00002.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_notb00002_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00002_descrip_mov_checkColumnConstraints(p_data.descrip_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00002_primer_enc_checkColumnConstraints(p_data.primer_enc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00002_segundo_enc_checkColumnConstraints(p_data.segundo_enc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00002_tercer_enc_checkColumnConstraints(p_data.tercer_enc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00002_ch_encabeza_checkColumnConstraints(p_data.ch_encabeza) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00002_tipo_mov_checkColumnConstraints(p_data.tipo_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00002_clase_mov_checkColumnConstraints(p_data.clase_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00002_cantidad_cia_checkColumnConstraints(p_data.cantidad_cia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00002_cantidad_emp_checkColumnConstraints(p_data.cantidad_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00002_cta_control_checkColumnConstraints(p_data.cta_control) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00002_cta_aux_checkColumnConstraints(p_data.cta_aux) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00002_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00002_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00002_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00002_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00002_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00002_checkTableConstraints {<BLOCK Name="fct.notb00002_cod_mov_checkColumnConstraints">} #+ Check constraints on the "notb00002.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00002_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE notb00002.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00002_cod_mov_checkColumnConstraints {<BLOCK Name="fct.notb00002_descrip_mov_checkColumnConstraints">} #+ Check constraints on the "notb00002.descrip_mov" column #+ #+ @param p_descrip_mov - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00002_descrip_mov_checkColumnConstraints(p_descrip_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip_mov LIKE notb00002.descrip_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00002_descrip_mov_checkColumnConstraints {<BLOCK Name="fct.notb00002_primer_enc_checkColumnConstraints">} #+ Check constraints on the "notb00002.primer_enc" column #+ #+ @param p_primer_enc - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00002_primer_enc_checkColumnConstraints(p_primer_enc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_primer_enc LIKE notb00002.primer_enc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00002_primer_enc_checkColumnConstraints {<BLOCK Name="fct.notb00002_segundo_enc_checkColumnConstraints">} #+ Check constraints on the "notb00002.segundo_enc" column #+ #+ @param p_segundo_enc - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00002_segundo_enc_checkColumnConstraints(p_segundo_enc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_segundo_enc LIKE notb00002.segundo_enc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00002_segundo_enc_checkColumnConstraints {<BLOCK Name="fct.notb00002_tercer_enc_checkColumnConstraints">} #+ Check constraints on the "notb00002.tercer_enc" column #+ #+ @param p_tercer_enc - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00002_tercer_enc_checkColumnConstraints(p_tercer_enc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tercer_enc LIKE notb00002.tercer_enc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00002_tercer_enc_checkColumnConstraints {<BLOCK Name="fct.notb00002_ch_encabeza_checkColumnConstraints">} #+ Check constraints on the "notb00002.ch_encabeza" column #+ #+ @param p_ch_encabeza - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00002_ch_encabeza_checkColumnConstraints(p_ch_encabeza) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ch_encabeza LIKE notb00002.ch_encabeza LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00002_ch_encabeza_checkColumnConstraints {<BLOCK Name="fct.notb00002_tipo_mov_checkColumnConstraints">} #+ Check constraints on the "notb00002.tipo_mov" column #+ #+ @param p_tipo_mov - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00002_tipo_mov_checkColumnConstraints(p_tipo_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_mov LIKE notb00002.tipo_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00002_tipo_mov_checkColumnConstraints {<BLOCK Name="fct.notb00002_clase_mov_checkColumnConstraints">} #+ Check constraints on the "notb00002.clase_mov" column #+ #+ @param p_clase_mov - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00002_clase_mov_checkColumnConstraints(p_clase_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_clase_mov LIKE notb00002.clase_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00002_clase_mov_checkColumnConstraints {<BLOCK Name="fct.notb00002_cantidad_cia_checkColumnConstraints">} #+ Check constraints on the "notb00002.cantidad_cia" column #+ #+ @param p_cantidad_cia - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00002_cantidad_cia_checkColumnConstraints(p_cantidad_cia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad_cia LIKE notb00002.cantidad_cia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00002_cantidad_cia_checkColumnConstraints {<BLOCK Name="fct.notb00002_cantidad_emp_checkColumnConstraints">} #+ Check constraints on the "notb00002.cantidad_emp" column #+ #+ @param p_cantidad_emp - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00002_cantidad_emp_checkColumnConstraints(p_cantidad_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad_emp LIKE notb00002.cantidad_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00002_cantidad_emp_checkColumnConstraints {<BLOCK Name="fct.notb00002_cta_control_checkColumnConstraints">} #+ Check constraints on the "notb00002.cta_control" column #+ #+ @param p_cta_control - CHAR(6) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00002_cta_control_checkColumnConstraints(p_cta_control) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cta_control LIKE notb00002.cta_control LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00002_cta_control_checkColumnConstraints {<BLOCK Name="fct.notb00002_cta_aux_checkColumnConstraints">} #+ Check constraints on the "notb00002.cta_aux" column #+ #+ @param p_cta_aux - CHAR(7) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00002_cta_aux_checkColumnConstraints(p_cta_aux) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cta_aux LIKE notb00002.cta_aux LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00002_cta_aux_checkColumnConstraints {<BLOCK Name="fct.notb00002_status_t_checkColumnConstraints">} #+ Check constraints on the "notb00002.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00002_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE notb00002.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00002_status_t_checkColumnConstraints {<BLOCK Name="fct.notb00002_us_crea_checkColumnConstraints">} #+ Check constraints on the "notb00002.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00002_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE notb00002.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00002_us_crea_checkColumnConstraints {<BLOCK Name="fct.notb00002_fech_crea_checkColumnConstraints">} #+ Check constraints on the "notb00002.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00002_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE notb00002.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00002_fech_crea_checkColumnConstraints {<BLOCK Name="fct.notb00002_us_mod_checkColumnConstraints">} #+ Check constraints on the "notb00002.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00002_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE notb00002.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00002_us_mod_checkColumnConstraints {<BLOCK Name="fct.notb00002_fech_mod_checkColumnConstraints">} #+ Check constraints on the "notb00002.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00002_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE notb00002.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00002_fech_mod_checkColumnConstraints {<BLOCK Name="fct.notb00001_checkTableConstraints">} #+ Check constraints on the "notb00001" table #+ #+ @param p_data - a row data LIKE notb00001.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_notb00001_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE notb00001.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_notb00001_ult_cheque_checkColumnConstraints(p_data.ult_cheque) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00001_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_notb00001_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00001_checkTableConstraints {<BLOCK Name="fct.notb00001_ult_cheque_checkColumnConstraints">} #+ Check constraints on the "notb00001.ult_cheque" column #+ #+ @param p_ult_cheque - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00001_ult_cheque_checkColumnConstraints(p_ult_cheque) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ult_cheque LIKE notb00001.ult_cheque LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00001_ult_cheque_checkColumnConstraints {<BLOCK Name="fct.notb00001_us_crea_checkColumnConstraints">} #+ Check constraints on the "notb00001.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00001_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE notb00001.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00001_us_crea_checkColumnConstraints {<BLOCK Name="fct.notb00001_fech_crea_checkColumnConstraints">} #+ Check constraints on the "notb00001.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_notb00001_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE notb00001.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.notb00001_fech_crea_checkColumnConstraints {<BLOCK Name="fct.nc_checkTableConstraints">} #+ Check constraints on the "nc" table #+ #+ @param p_data - a row data LIKE nc.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_nc_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE nc.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_nc_cuenta_no_checkColumnConstraints(p_data.cuenta_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_nc_cod_cia_checkColumnConstraints(p_data.cod_cia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_nc_tipo_doc_checkColumnConstraints(p_data.tipo_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_nc_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_nc_tipo_cliente_checkColumnConstraints(p_data.tipo_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_nc_sec_cliente_checkColumnConstraints(p_data.sec_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_nc_cod_emp_checkColumnConstraints(p_data.cod_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_nc_cod_emp_sec_checkColumnConstraints(p_data.cod_emp_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_nc_fecha_orig_checkColumnConstraints(p_data.fecha_orig) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_nc_fecha_ven_checkColumnConstraints(p_data.fecha_ven) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_nc_aplica_a_checkColumnConstraints(p_data.aplica_a) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_nc_banco_checkColumnConstraints(p_data.banco) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_nc_num_cheque_checkColumnConstraints(p_data.num_cheque) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_nc_valor_checkColumnConstraints(p_data.valor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_nc_valor_efectivo_checkColumnConstraints(p_data.valor_efectivo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_nc_valor_cheque_checkColumnConstraints(p_data.valor_cheque) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_nc_costo_checkColumnConstraints(p_data.costo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_nc_monto_desc_checkColumnConstraints(p_data.monto_desc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_nc_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_nc_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_nc_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_nc_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_nc_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.nc_checkTableConstraints {<BLOCK Name="fct.nc_cuenta_no_checkColumnConstraints">} #+ Check constraints on the "nc.cuenta_no" column #+ #+ @param p_cuenta_no - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_nc_cuenta_no_checkColumnConstraints(p_cuenta_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_no LIKE nc.cuenta_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.nc_cuenta_no_checkColumnConstraints {<BLOCK Name="fct.nc_cod_cia_checkColumnConstraints">} #+ Check constraints on the "nc.cod_cia" column #+ #+ @param p_cod_cia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_nc_cod_cia_checkColumnConstraints(p_cod_cia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_cia LIKE nc.cod_cia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.nc_cod_cia_checkColumnConstraints {<BLOCK Name="fct.nc_tipo_doc_checkColumnConstraints">} #+ Check constraints on the "nc.tipo_doc" column #+ #+ @param p_tipo_doc - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_nc_tipo_doc_checkColumnConstraints(p_tipo_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_doc LIKE nc.tipo_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.nc_tipo_doc_checkColumnConstraints {<BLOCK Name="fct.nc_num_doc_checkColumnConstraints">} #+ Check constraints on the "nc.num_doc" column #+ #+ @param p_num_doc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_nc_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE nc.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_num_doc IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- num_doc: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.nc_num_doc_checkColumnConstraints {<BLOCK Name="fct.nc_tipo_cliente_checkColumnConstraints">} #+ Check constraints on the "nc.tipo_cliente" column #+ #+ @param p_tipo_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_nc_tipo_cliente_checkColumnConstraints(p_tipo_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_cliente LIKE nc.tipo_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.nc_tipo_cliente_checkColumnConstraints {<BLOCK Name="fct.nc_sec_cliente_checkColumnConstraints">} #+ Check constraints on the "nc.sec_cliente" column #+ #+ @param p_sec_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_nc_sec_cliente_checkColumnConstraints(p_sec_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_cliente LIKE nc.sec_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.nc_sec_cliente_checkColumnConstraints {<BLOCK Name="fct.nc_cod_emp_checkColumnConstraints">} #+ Check constraints on the "nc.cod_emp" column #+ #+ @param p_cod_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_nc_cod_emp_checkColumnConstraints(p_cod_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_emp LIKE nc.cod_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.nc_cod_emp_checkColumnConstraints {<BLOCK Name="fct.nc_cod_emp_sec_checkColumnConstraints">} #+ Check constraints on the "nc.cod_emp_sec" column #+ #+ @param p_cod_emp_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_nc_cod_emp_sec_checkColumnConstraints(p_cod_emp_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_emp_sec LIKE nc.cod_emp_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.nc_cod_emp_sec_checkColumnConstraints {<BLOCK Name="fct.nc_fecha_orig_checkColumnConstraints">} #+ Check constraints on the "nc.fecha_orig" column #+ #+ @param p_fecha_orig - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_nc_fecha_orig_checkColumnConstraints(p_fecha_orig) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_orig LIKE nc.fecha_orig LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.nc_fecha_orig_checkColumnConstraints {<BLOCK Name="fct.nc_fecha_ven_checkColumnConstraints">} #+ Check constraints on the "nc.fecha_ven" column #+ #+ @param p_fecha_ven - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_nc_fecha_ven_checkColumnConstraints(p_fecha_ven) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_ven LIKE nc.fecha_ven LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.nc_fecha_ven_checkColumnConstraints {<BLOCK Name="fct.nc_aplica_a_checkColumnConstraints">} #+ Check constraints on the "nc.aplica_a" column #+ #+ @param p_aplica_a - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_nc_aplica_a_checkColumnConstraints(p_aplica_a) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_aplica_a LIKE nc.aplica_a LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.nc_aplica_a_checkColumnConstraints {<BLOCK Name="fct.nc_banco_checkColumnConstraints">} #+ Check constraints on the "nc.banco" column #+ #+ @param p_banco - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_nc_banco_checkColumnConstraints(p_banco) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_banco LIKE nc.banco LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.nc_banco_checkColumnConstraints {<BLOCK Name="fct.nc_num_cheque_checkColumnConstraints">} #+ Check constraints on the "nc.num_cheque" column #+ #+ @param p_num_cheque - CHAR(12) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_nc_num_cheque_checkColumnConstraints(p_num_cheque) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_cheque LIKE nc.num_cheque LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.nc_num_cheque_checkColumnConstraints {<BLOCK Name="fct.nc_valor_checkColumnConstraints">} #+ Check constraints on the "nc.valor" column #+ #+ @param p_valor - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_nc_valor_checkColumnConstraints(p_valor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor LIKE nc.valor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_valor IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- valor: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.nc_valor_checkColumnConstraints {<BLOCK Name="fct.nc_valor_efectivo_checkColumnConstraints">} #+ Check constraints on the "nc.valor_efectivo" column #+ #+ @param p_valor_efectivo - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_nc_valor_efectivo_checkColumnConstraints(p_valor_efectivo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor_efectivo LIKE nc.valor_efectivo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.nc_valor_efectivo_checkColumnConstraints {<BLOCK Name="fct.nc_valor_cheque_checkColumnConstraints">} #+ Check constraints on the "nc.valor_cheque" column #+ #+ @param p_valor_cheque - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_nc_valor_cheque_checkColumnConstraints(p_valor_cheque) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor_cheque LIKE nc.valor_cheque LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.nc_valor_cheque_checkColumnConstraints {<BLOCK Name="fct.nc_costo_checkColumnConstraints">} #+ Check constraints on the "nc.costo" column #+ #+ @param p_costo - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_nc_costo_checkColumnConstraints(p_costo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_costo LIKE nc.costo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.nc_costo_checkColumnConstraints {<BLOCK Name="fct.nc_monto_desc_checkColumnConstraints">} #+ Check constraints on the "nc.monto_desc" column #+ #+ @param p_monto_desc - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_nc_monto_desc_checkColumnConstraints(p_monto_desc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_monto_desc LIKE nc.monto_desc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.nc_monto_desc_checkColumnConstraints {<BLOCK Name="fct.nc_status_t_checkColumnConstraints">} #+ Check constraints on the "nc.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_nc_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE nc.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.nc_status_t_checkColumnConstraints {<BLOCK Name="fct.nc_us_crea_checkColumnConstraints">} #+ Check constraints on the "nc.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_nc_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE nc.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.nc_us_crea_checkColumnConstraints {<BLOCK Name="fct.nc_fech_crea_checkColumnConstraints">} #+ Check constraints on the "nc.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_nc_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE nc.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.nc_fech_crea_checkColumnConstraints {<BLOCK Name="fct.nc_us_mod_checkColumnConstraints">} #+ Check constraints on the "nc.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_nc_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE nc.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.nc_us_mod_checkColumnConstraints {<BLOCK Name="fct.nc_fech_mod_checkColumnConstraints">} #+ Check constraints on the "nc.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_nc_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE nc.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.nc_fech_mod_checkColumnConstraints {<BLOCK Name="fct.msgtable_checkTableConstraints">} #+ Check constraints on the "msgtable" table #+ #+ @param p_data - a row data LIKE msgtable.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_msgtable_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE msgtable.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_msgtable_cod_msg_checkColumnConstraints(p_data.cod_msg) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_msgtable_desc_msg_checkColumnConstraints(p_data.desc_msg) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_msgtable_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_msgtable_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_msgtable_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_msgtable_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.msgtable_checkTableConstraints {<BLOCK Name="fct.msgtable_cod_msg_checkColumnConstraints">} #+ Check constraints on the "msgtable.cod_msg" column #+ #+ @param p_cod_msg - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_msgtable_cod_msg_checkColumnConstraints(p_cod_msg) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_msg LIKE msgtable.cod_msg LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.msgtable_cod_msg_checkColumnConstraints {<BLOCK Name="fct.msgtable_desc_msg_checkColumnConstraints">} #+ Check constraints on the "msgtable.desc_msg" column #+ #+ @param p_desc_msg - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_msgtable_desc_msg_checkColumnConstraints(p_desc_msg) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_desc_msg LIKE msgtable.desc_msg LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.msgtable_desc_msg_checkColumnConstraints {<BLOCK Name="fct.msgtable_us_crea_checkColumnConstraints">} #+ Check constraints on the "msgtable.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_msgtable_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE msgtable.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.msgtable_us_crea_checkColumnConstraints {<BLOCK Name="fct.msgtable_fech_crea_checkColumnConstraints">} #+ Check constraints on the "msgtable.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_msgtable_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE msgtable.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.msgtable_fech_crea_checkColumnConstraints {<BLOCK Name="fct.msgtable_us_mod_checkColumnConstraints">} #+ Check constraints on the "msgtable.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_msgtable_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE msgtable.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.msgtable_us_mod_checkColumnConstraints {<BLOCK Name="fct.msgtable_fech_mod_checkColumnConstraints">} #+ Check constraints on the "msgtable.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_msgtable_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE msgtable.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.msgtable_fech_mod_checkColumnConstraints {<BLOCK Name="fct.molduras23_checkTableConstraints">} #+ Check constraints on the "molduras23" table #+ #+ @param p_data - a row data LIKE molduras23.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_molduras23_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE molduras23.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_molduras23_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_molduras23_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_molduras23_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_molduras23_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.molduras23_checkTableConstraints {<BLOCK Name="fct.molduras23_cod_n_checkColumnConstraints">} #+ Check constraints on the "molduras23.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_molduras23_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE molduras23.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.molduras23_cod_n_checkColumnConstraints {<BLOCK Name="fct.molduras23_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "molduras23.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_molduras23_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE molduras23.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.molduras23_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.molduras23_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "molduras23.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_molduras23_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE molduras23.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.molduras23_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.molduras23_cod_sec_checkColumnConstraints">} #+ Check constraints on the "molduras23.cod_sec" column #+ #+ @param p_cod_sec - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_molduras23_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE molduras23.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.molduras23_cod_sec_checkColumnConstraints {<BLOCK Name="fct.mestable_checkTableConstraints">} #+ Check constraints on the "mestable" table #+ #+ @param p_data - a row data LIKE mestable.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_mestable_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE mestable.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_mestable_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_mestable_descrip_checkColumnConstraints(p_data.descrip) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_mestable_dias_prod_checkColumnConstraints(p_data.dias_prod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_mestable_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_mestable_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_mestable_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_mestable_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_mestable_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.mestable_checkTableConstraints {<BLOCK Name="fct.mestable_mes_checkColumnConstraints">} #+ Check constraints on the "mestable.mes" column #+ #+ @param p_mes - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_mestable_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE mestable.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.mestable_mes_checkColumnConstraints {<BLOCK Name="fct.mestable_descrip_checkColumnConstraints">} #+ Check constraints on the "mestable.descrip" column #+ #+ @param p_descrip - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_mestable_descrip_checkColumnConstraints(p_descrip) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip LIKE mestable.descrip LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.mestable_descrip_checkColumnConstraints {<BLOCK Name="fct.mestable_dias_prod_checkColumnConstraints">} #+ Check constraints on the "mestable.dias_prod" column #+ #+ @param p_dias_prod - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_mestable_dias_prod_checkColumnConstraints(p_dias_prod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_dias_prod LIKE mestable.dias_prod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.mestable_dias_prod_checkColumnConstraints {<BLOCK Name="fct.mestable_status_t_checkColumnConstraints">} #+ Check constraints on the "mestable.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_mestable_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE mestable.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.mestable_status_t_checkColumnConstraints {<BLOCK Name="fct.mestable_us_crea_checkColumnConstraints">} #+ Check constraints on the "mestable.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_mestable_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE mestable.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.mestable_us_crea_checkColumnConstraints {<BLOCK Name="fct.mestable_fech_crea_checkColumnConstraints">} #+ Check constraints on the "mestable.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_mestable_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE mestable.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.mestable_fech_crea_checkColumnConstraints {<BLOCK Name="fct.mestable_us_mod_checkColumnConstraints">} #+ Check constraints on the "mestable.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_mestable_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE mestable.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.mestable_us_mod_checkColumnConstraints {<BLOCK Name="fct.mestable_fech_mod_checkColumnConstraints">} #+ Check constraints on the "mestable.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_mestable_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE mestable.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.mestable_fech_mod_checkColumnConstraints {<BLOCK Name="fct.marzo$_checkTableConstraints">} #+ Check constraints on the "marzo$" table #+ #+ @param p_data - a row data LIKE marzo$.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_marzo$_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE marzo$.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_marzo$_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_marzo$_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_marzo$_codprod_checkColumnConstraints(p_data.codprod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_marzo$_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.marzo$_checkTableConstraints {<BLOCK Name="fct.marzo$_mes_checkColumnConstraints">} #+ Check constraints on the "marzo$.mes" column #+ #+ @param p_mes - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_marzo$_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE marzo$.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.marzo$_mes_checkColumnConstraints {<BLOCK Name="fct.marzo$_ano_checkColumnConstraints">} #+ Check constraints on the "marzo$.ano" column #+ #+ @param p_ano - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_marzo$_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE marzo$.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.marzo$_ano_checkColumnConstraints {<BLOCK Name="fct.marzo$_codprod_checkColumnConstraints">} #+ Check constraints on the "marzo$.codprod" column #+ #+ @param p_codprod - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_marzo$_codprod_checkColumnConstraints(p_codprod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codprod LIKE marzo$.codprod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.marzo$_codprod_checkColumnConstraints {<BLOCK Name="fct.marzo$_cantidad_checkColumnConstraints">} #+ Check constraints on the "marzo$.cantidad" column #+ #+ @param p_cantidad - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_marzo$_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE marzo$.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.marzo$_cantidad_checkColumnConstraints {<BLOCK Name="fct.mallas9_checkTableConstraints">} #+ Check constraints on the "mallas9" table #+ #+ @param p_data - a row data LIKE mallas9.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_mallas9_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE mallas9.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_mallas9_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_mallas9_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_mallas9_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_mallas9_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.mallas9_checkTableConstraints {<BLOCK Name="fct.mallas9_cod_n_checkColumnConstraints">} #+ Check constraints on the "mallas9.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_mallas9_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE mallas9.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.mallas9_cod_n_checkColumnConstraints {<BLOCK Name="fct.mallas9_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "mallas9.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_mallas9_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE mallas9.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.mallas9_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.mallas9_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "mallas9.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_mallas9_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE mallas9.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.mallas9_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.mallas9_cod_sec_checkColumnConstraints">} #+ Check constraints on the "mallas9.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_mallas9_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE mallas9.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.mallas9_cod_sec_checkColumnConstraints {<BLOCK Name="fct.localizacion_checkTableConstraints">} #+ Check constraints on the "localizacion" table #+ #+ @param p_data - a row data LIKE localizacion.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_localizacion_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE localizacion.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_localizacion_sucid_checkColumnConstraints(p_data.sucid) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_localizacion_locid_checkColumnConstraints(p_data.locid) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_localizacion_locdescripcion_checkColumnConstraints(p_data.locdescripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.localizacion_checkTableConstraints {<BLOCK Name="fct.localizacion_sucid_checkColumnConstraints">} #+ Check constraints on the "localizacion.sucid" column #+ #+ @param p_sucid - VARCHAR2(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_localizacion_sucid_checkColumnConstraints(p_sucid) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sucid LIKE localizacion.sucid LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_sucid IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- sucid: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.localizacion_sucid_checkColumnConstraints {<BLOCK Name="fct.localizacion_locid_checkColumnConstraints">} #+ Check constraints on the "localizacion.locid" column #+ #+ @param p_locid - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_localizacion_locid_checkColumnConstraints(p_locid) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_locid LIKE localizacion.locid LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_locid IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- locid: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.localizacion_locid_checkColumnConstraints {<BLOCK Name="fct.localizacion_locdescripcion_checkColumnConstraints">} #+ Check constraints on the "localizacion.locdescripcion" column #+ #+ @param p_locdescripcion - VARCHAR2(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_localizacion_locdescripcion_checkColumnConstraints(p_locdescripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_locdescripcion LIKE localizacion.locdescripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_locdescripcion IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- locdescripcion: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.localizacion_locdescripcion_checkColumnConstraints {<BLOCK Name="fct.listaprecio_checkTableConstraints">} #+ Check constraints on the "listaprecio" table #+ #+ @param p_data - a row data LIKE listaprecio.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_listaprecio_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE listaprecio.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_listaprecio_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_listaprecio_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_listaprecio_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_listaprecio_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_listaprecio_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_listaprecio_costo_prima_checkColumnConstraints(p_data.costo_prima) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_listaprecio_costo_rd_checkColumnConstraints(p_data.costo_rd) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_listaprecio_costo_estand_checkColumnConstraints(p_data.costo_estand) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_listaprecio_dif_costo_estand_checkColumnConstraints(p_data.dif_costo_estand) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.listaprecio_checkTableConstraints {<BLOCK Name="fct.listaprecio_cod_n_checkColumnConstraints">} #+ Check constraints on the "listaprecio.cod_n" column #+ #+ @param p_cod_n - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_listaprecio_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE listaprecio.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.listaprecio_cod_n_checkColumnConstraints {<BLOCK Name="fct.listaprecio_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "listaprecio.cod_grupo" column #+ #+ @param p_cod_grupo - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_listaprecio_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE listaprecio.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.listaprecio_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.listaprecio_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "listaprecio.cod_tipo" column #+ #+ @param p_cod_tipo - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_listaprecio_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE listaprecio.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.listaprecio_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.listaprecio_cod_sec_checkColumnConstraints">} #+ Check constraints on the "listaprecio.cod_sec" column #+ #+ @param p_cod_sec - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_listaprecio_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE listaprecio.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.listaprecio_cod_sec_checkColumnConstraints {<BLOCK Name="fct.listaprecio_descripcion_checkColumnConstraints">} #+ Check constraints on the "listaprecio.descripcion" column #+ #+ @param p_descripcion - VARCHAR2(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_listaprecio_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE listaprecio.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.listaprecio_descripcion_checkColumnConstraints {<BLOCK Name="fct.listaprecio_costo_prima_checkColumnConstraints">} #+ Check constraints on the "listaprecio.costo_prima" column #+ #+ @param p_costo_prima - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_listaprecio_costo_prima_checkColumnConstraints(p_costo_prima) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_costo_prima LIKE listaprecio.costo_prima LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.listaprecio_costo_prima_checkColumnConstraints {<BLOCK Name="fct.listaprecio_costo_rd_checkColumnConstraints">} #+ Check constraints on the "listaprecio.costo_rd" column #+ #+ @param p_costo_rd - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_listaprecio_costo_rd_checkColumnConstraints(p_costo_rd) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_costo_rd LIKE listaprecio.costo_rd LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.listaprecio_costo_rd_checkColumnConstraints {<BLOCK Name="fct.listaprecio_costo_estand_checkColumnConstraints">} #+ Check constraints on the "listaprecio.costo_estand" column #+ #+ @param p_costo_estand - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_listaprecio_costo_estand_checkColumnConstraints(p_costo_estand) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_costo_estand LIKE listaprecio.costo_estand LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.listaprecio_costo_estand_checkColumnConstraints {<BLOCK Name="fct.listaprecio_dif_costo_estand_checkColumnConstraints">} #+ Check constraints on the "listaprecio.dif_costo_estand" column #+ #+ @param p_dif_costo_estand - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_listaprecio_dif_costo_estand_checkColumnConstraints(p_dif_costo_estand) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_dif_costo_estand LIKE listaprecio.dif_costo_estand LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.listaprecio_dif_costo_estand_checkColumnConstraints {<BLOCK Name="fct.lineitem_checkTableConstraints">} #+ Check constraints on the "lineitem" table #+ #+ @param p_data - a row data LIKE lineitem.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_lineitem_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE lineitem.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_lineitem_orderid_checkColumnConstraints(p_data.orderid) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_lineitem_linenum_checkColumnConstraints(p_data.linenum) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_lineitem_itemid_checkColumnConstraints(p_data.itemid) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_lineitem_quantity_checkColumnConstraints(p_data.quantity) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_lineitem_unitprice_checkColumnConstraints(p_data.unitprice) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.lineitem_checkTableConstraints {<BLOCK Name="fct.lineitem_orderid_checkColumnConstraints">} #+ Check constraints on the "lineitem.orderid" column #+ #+ @param p_orderid - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_lineitem_orderid_checkColumnConstraints(p_orderid) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_orderid LIKE lineitem.orderid LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_orderid IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- orderid: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.lineitem_orderid_checkColumnConstraints {<BLOCK Name="fct.lineitem_linenum_checkColumnConstraints">} #+ Check constraints on the "lineitem.linenum" column #+ #+ @param p_linenum - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_lineitem_linenum_checkColumnConstraints(p_linenum) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_linenum LIKE lineitem.linenum LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_linenum IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- linenum: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.lineitem_linenum_checkColumnConstraints {<BLOCK Name="fct.lineitem_itemid_checkColumnConstraints">} #+ Check constraints on the "lineitem.itemid" column #+ #+ @param p_itemid - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_lineitem_itemid_checkColumnConstraints(p_itemid) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_itemid LIKE lineitem.itemid LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_itemid IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- itemid: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.lineitem_itemid_checkColumnConstraints {<BLOCK Name="fct.lineitem_quantity_checkColumnConstraints">} #+ Check constraints on the "lineitem.quantity" column #+ #+ @param p_quantity - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_lineitem_quantity_checkColumnConstraints(p_quantity) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_quantity LIKE lineitem.quantity LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_quantity IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- quantity: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.lineitem_quantity_checkColumnConstraints {<BLOCK Name="fct.lineitem_unitprice_checkColumnConstraints">} #+ Check constraints on the "lineitem.unitprice" column #+ #+ @param p_unitprice - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_lineitem_unitprice_checkColumnConstraints(p_unitprice) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_unitprice LIKE lineitem.unitprice LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_unitprice IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- unitprice: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.lineitem_unitprice_checkColumnConstraints {<BLOCK Name="fct.lajas2$_checkTableConstraints">} #+ Check constraints on the "lajas2$" table #+ #+ @param p_data - a row data LIKE lajas2$.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_lajas2$_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE lajas2$.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_lajas2$_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_lajas2$_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_lajas2$_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_lajas2$_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.lajas2$_checkTableConstraints {<BLOCK Name="fct.lajas2$_cod_n_checkColumnConstraints">} #+ Check constraints on the "lajas2$.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_lajas2$_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE lajas2$.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.lajas2$_cod_n_checkColumnConstraints {<BLOCK Name="fct.lajas2$_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "lajas2$.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_lajas2$_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE lajas2$.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.lajas2$_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.lajas2$_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "lajas2$.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_lajas2$_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE lajas2$.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.lajas2$_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.lajas2$_cod_sec_checkColumnConstraints">} #+ Check constraints on the "lajas2$.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_lajas2$_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE lajas2$.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.lajas2$_cod_sec_checkColumnConstraints {<BLOCK Name="fct.lajas2_checkTableConstraints">} #+ Check constraints on the "lajas2" table #+ #+ @param p_data - a row data LIKE lajas2.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_lajas2_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE lajas2.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_lajas2_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_lajas2_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_lajas2_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_lajas2_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.lajas2_checkTableConstraints {<BLOCK Name="fct.lajas2_cod_n_checkColumnConstraints">} #+ Check constraints on the "lajas2.cod_n" column #+ #+ @param p_cod_n - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_lajas2_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE lajas2.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.lajas2_cod_n_checkColumnConstraints {<BLOCK Name="fct.lajas2_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "lajas2.cod_grupo" column #+ #+ @param p_cod_grupo - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_lajas2_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE lajas2.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.lajas2_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.lajas2_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "lajas2.cod_tipo" column #+ #+ @param p_cod_tipo - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_lajas2_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE lajas2.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.lajas2_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.lajas2_cod_sec_checkColumnConstraints">} #+ Check constraints on the "lajas2.cod_sec" column #+ #+ @param p_cod_sec - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_lajas2_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE lajas2.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.lajas2_cod_sec_checkColumnConstraints {<BLOCK Name="fct.lajas14_checkTableConstraints">} #+ Check constraints on the "lajas14" table #+ #+ @param p_data - a row data LIKE lajas14.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_lajas14_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE lajas14.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_lajas14_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_lajas14_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_lajas14_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_lajas14_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.lajas14_checkTableConstraints {<BLOCK Name="fct.lajas14_cod_n_checkColumnConstraints">} #+ Check constraints on the "lajas14.cod_n" column #+ #+ @param p_cod_n - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_lajas14_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE lajas14.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.lajas14_cod_n_checkColumnConstraints {<BLOCK Name="fct.lajas14_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "lajas14.cod_grupo" column #+ #+ @param p_cod_grupo - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_lajas14_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE lajas14.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.lajas14_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.lajas14_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "lajas14.cod_tipo" column #+ #+ @param p_cod_tipo - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_lajas14_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE lajas14.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.lajas14_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.lajas14_cod_sec_checkColumnConstraints">} #+ Check constraints on the "lajas14.cod_sec" column #+ #+ @param p_cod_sec - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_lajas14_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE lajas14.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.lajas14_cod_sec_checkColumnConstraints {<BLOCK Name="fct.lajas_checkTableConstraints">} #+ Check constraints on the "lajas" table #+ #+ @param p_data - a row data LIKE lajas.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_lajas_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE lajas.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_lajas_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_lajas_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_lajas_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_lajas_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.lajas_checkTableConstraints {<BLOCK Name="fct.lajas_cod_n_checkColumnConstraints">} #+ Check constraints on the "lajas.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_lajas_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE lajas.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.lajas_cod_n_checkColumnConstraints {<BLOCK Name="fct.lajas_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "lajas.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_lajas_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE lajas.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.lajas_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.lajas_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "lajas.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_lajas_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE lajas.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.lajas_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.lajas_cod_sec_checkColumnConstraints">} #+ Check constraints on the "lajas.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_lajas_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE lajas.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.lajas_cod_sec_checkColumnConstraints {<BLOCK Name="fct.item_checkTableConstraints">} #+ Check constraints on the "item" table #+ #+ @param p_data - a row data LIKE item.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_item_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE item.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_item_itemid_checkColumnConstraints(p_data.itemid) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_item_productid_checkColumnConstraints(p_data.productid) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_item_listprice_checkColumnConstraints(p_data.listprice) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_item_unitcost_checkColumnConstraints(p_data.unitcost) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_item_supplier_checkColumnConstraints(p_data.supplier) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_item_status_checkColumnConstraints(p_data.status) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_item_attr1_checkColumnConstraints(p_data.attr1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_item_attr2_checkColumnConstraints(p_data.attr2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_item_attr3_checkColumnConstraints(p_data.attr3) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_item_attr4_checkColumnConstraints(p_data.attr4) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_item_attr5_checkColumnConstraints(p_data.attr5) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.item_checkTableConstraints {<BLOCK Name="fct.item_itemid_checkColumnConstraints">} #+ Check constraints on the "item.itemid" column #+ #+ @param p_itemid - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_item_itemid_checkColumnConstraints(p_itemid) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_itemid LIKE item.itemid LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_itemid IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- itemid: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.item_itemid_checkColumnConstraints {<BLOCK Name="fct.item_productid_checkColumnConstraints">} #+ Check constraints on the "item.productid" column #+ #+ @param p_productid - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_item_productid_checkColumnConstraints(p_productid) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_productid LIKE item.productid LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_productid IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- productid: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.item_productid_checkColumnConstraints {<BLOCK Name="fct.item_listprice_checkColumnConstraints">} #+ Check constraints on the "item.listprice" column #+ #+ @param p_listprice - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_item_listprice_checkColumnConstraints(p_listprice) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_listprice LIKE item.listprice LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.item_listprice_checkColumnConstraints {<BLOCK Name="fct.item_unitcost_checkColumnConstraints">} #+ Check constraints on the "item.unitcost" column #+ #+ @param p_unitcost - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_item_unitcost_checkColumnConstraints(p_unitcost) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_unitcost LIKE item.unitcost LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.item_unitcost_checkColumnConstraints {<BLOCK Name="fct.item_supplier_checkColumnConstraints">} #+ Check constraints on the "item.supplier" column #+ #+ @param p_supplier - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_item_supplier_checkColumnConstraints(p_supplier) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_supplier LIKE item.supplier LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.item_supplier_checkColumnConstraints {<BLOCK Name="fct.item_status_checkColumnConstraints">} #+ Check constraints on the "item.status" column #+ #+ @param p_status - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_item_status_checkColumnConstraints(p_status) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status LIKE item.status LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.item_status_checkColumnConstraints {<BLOCK Name="fct.item_attr1_checkColumnConstraints">} #+ Check constraints on the "item.attr1" column #+ #+ @param p_attr1 - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_item_attr1_checkColumnConstraints(p_attr1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_attr1 LIKE item.attr1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.item_attr1_checkColumnConstraints {<BLOCK Name="fct.item_attr2_checkColumnConstraints">} #+ Check constraints on the "item.attr2" column #+ #+ @param p_attr2 - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_item_attr2_checkColumnConstraints(p_attr2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_attr2 LIKE item.attr2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.item_attr2_checkColumnConstraints {<BLOCK Name="fct.item_attr3_checkColumnConstraints">} #+ Check constraints on the "item.attr3" column #+ #+ @param p_attr3 - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_item_attr3_checkColumnConstraints(p_attr3) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_attr3 LIKE item.attr3 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.item_attr3_checkColumnConstraints {<BLOCK Name="fct.item_attr4_checkColumnConstraints">} #+ Check constraints on the "item.attr4" column #+ #+ @param p_attr4 - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_item_attr4_checkColumnConstraints(p_attr4) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_attr4 LIKE item.attr4 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.item_attr4_checkColumnConstraints {<BLOCK Name="fct.item_attr5_checkColumnConstraints">} #+ Check constraints on the "item.attr5" column #+ #+ @param p_attr5 - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_item_attr5_checkColumnConstraints(p_attr5) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_attr5 LIKE item.attr5 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.item_attr5_checkColumnConstraints {<BLOCK Name="fct.irtb00042_checkTableConstraints">} #+ Check constraints on the "irtb00042" table #+ #+ @param p_data - a row data LIKE irtb00042.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00042_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE irtb00042.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_irtb00042_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00042_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00042_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00042_bodega_checkColumnConstraints(p_data.bodega) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00042_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00042_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00042_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00042_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00042_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00042_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00042_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00042_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00042_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00042_checkTableConstraints {<BLOCK Name="fct.irtb00042_num_doc_checkColumnConstraints">} #+ Check constraints on the "irtb00042.num_doc" column #+ #+ @param p_num_doc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00042_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE irtb00042.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00042_num_doc_checkColumnConstraints {<BLOCK Name="fct.irtb00042_fecha_checkColumnConstraints">} #+ Check constraints on the "irtb00042.fecha" column #+ #+ @param p_fecha - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00042_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE irtb00042.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00042_fecha_checkColumnConstraints {<BLOCK Name="fct.irtb00042_cod_mov_checkColumnConstraints">} #+ Check constraints on the "irtb00042.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00042_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE irtb00042.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00042_cod_mov_checkColumnConstraints {<BLOCK Name="fct.irtb00042_bodega_checkColumnConstraints">} #+ Check constraints on the "irtb00042.bodega" column #+ #+ @param p_bodega - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00042_bodega_checkColumnConstraints(p_bodega) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_bodega LIKE irtb00042.bodega LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00042_bodega_checkColumnConstraints {<BLOCK Name="fct.irtb00042_cod_n_checkColumnConstraints">} #+ Check constraints on the "irtb00042.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00042_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE irtb00042.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00042_cod_n_checkColumnConstraints {<BLOCK Name="fct.irtb00042_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "irtb00042.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00042_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE irtb00042.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00042_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.irtb00042_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "irtb00042.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00042_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE irtb00042.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00042_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.irtb00042_cod_sec_checkColumnConstraints">} #+ Check constraints on the "irtb00042.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00042_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE irtb00042.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00042_cod_sec_checkColumnConstraints {<BLOCK Name="fct.irtb00042_cantidad_checkColumnConstraints">} #+ Check constraints on the "irtb00042.cantidad" column #+ #+ @param p_cantidad - DECIMAL(18,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00042_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE irtb00042.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00042_cantidad_checkColumnConstraints {<BLOCK Name="fct.irtb00042_us_crea_checkColumnConstraints">} #+ Check constraints on the "irtb00042.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00042_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE irtb00042.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00042_us_crea_checkColumnConstraints {<BLOCK Name="fct.irtb00042_fech_crea_checkColumnConstraints">} #+ Check constraints on the "irtb00042.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00042_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE irtb00042.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00042_fech_crea_checkColumnConstraints {<BLOCK Name="fct.irtb00042_us_mod_checkColumnConstraints">} #+ Check constraints on the "irtb00042.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00042_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE irtb00042.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00042_us_mod_checkColumnConstraints {<BLOCK Name="fct.irtb00042_fech_mod_checkColumnConstraints">} #+ Check constraints on the "irtb00042.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00042_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE irtb00042.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00042_fech_mod_checkColumnConstraints {<BLOCK Name="fct.irtb00041_checkTableConstraints">} #+ Check constraints on the "irtb00041" table #+ #+ @param p_data - a row data LIKE irtb00041.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00041_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE irtb00041.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_irtb00041_fecha_act_checkColumnConstraints(p_data.fecha_act) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00041_idtrx_checkColumnConstraints(p_data.idtrx) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00041_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00041_bodega_checkColumnConstraints(p_data.bodega) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00041_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00041_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00041_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00041_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00041_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00041_balance_checkColumnConstraints(p_data.balance) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00041_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00041_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00041_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00041_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00041_checkTableConstraints {<BLOCK Name="fct.irtb00041_fecha_act_checkColumnConstraints">} #+ Check constraints on the "irtb00041.fecha_act" column #+ #+ @param p_fecha_act - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00041_fecha_act_checkColumnConstraints(p_fecha_act) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_act LIKE irtb00041.fecha_act LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00041_fecha_act_checkColumnConstraints {<BLOCK Name="fct.irtb00041_idtrx_checkColumnConstraints">} #+ Check constraints on the "irtb00041.idtrx" column #+ #+ @param p_idtrx - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00041_idtrx_checkColumnConstraints(p_idtrx) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_idtrx LIKE irtb00041.idtrx LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00041_idtrx_checkColumnConstraints {<BLOCK Name="fct.irtb00041_fecha_checkColumnConstraints">} #+ Check constraints on the "irtb00041.fecha" column #+ #+ @param p_fecha - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00041_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE irtb00041.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00041_fecha_checkColumnConstraints {<BLOCK Name="fct.irtb00041_bodega_checkColumnConstraints">} #+ Check constraints on the "irtb00041.bodega" column #+ #+ @param p_bodega - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00041_bodega_checkColumnConstraints(p_bodega) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_bodega LIKE irtb00041.bodega LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00041_bodega_checkColumnConstraints {<BLOCK Name="fct.irtb00041_cod_n_checkColumnConstraints">} #+ Check constraints on the "irtb00041.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00041_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE irtb00041.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00041_cod_n_checkColumnConstraints {<BLOCK Name="fct.irtb00041_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "irtb00041.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00041_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE irtb00041.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00041_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.irtb00041_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "irtb00041.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00041_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE irtb00041.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00041_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.irtb00041_cod_sec_checkColumnConstraints">} #+ Check constraints on the "irtb00041.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00041_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE irtb00041.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00041_cod_sec_checkColumnConstraints {<BLOCK Name="fct.irtb00041_cantidad_checkColumnConstraints">} #+ Check constraints on the "irtb00041.cantidad" column #+ #+ @param p_cantidad - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00041_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE irtb00041.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00041_cantidad_checkColumnConstraints {<BLOCK Name="fct.irtb00041_balance_checkColumnConstraints">} #+ Check constraints on the "irtb00041.balance" column #+ #+ @param p_balance - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00041_balance_checkColumnConstraints(p_balance) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_balance LIKE irtb00041.balance LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00041_balance_checkColumnConstraints {<BLOCK Name="fct.irtb00041_us_crea_checkColumnConstraints">} #+ Check constraints on the "irtb00041.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00041_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE irtb00041.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00041_us_crea_checkColumnConstraints {<BLOCK Name="fct.irtb00041_fech_crea_checkColumnConstraints">} #+ Check constraints on the "irtb00041.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00041_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE irtb00041.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00041_fech_crea_checkColumnConstraints {<BLOCK Name="fct.irtb00041_us_mod_checkColumnConstraints">} #+ Check constraints on the "irtb00041.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00041_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE irtb00041.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00041_us_mod_checkColumnConstraints {<BLOCK Name="fct.irtb00041_fech_mod_checkColumnConstraints">} #+ Check constraints on the "irtb00041.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00041_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE irtb00041.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00041_fech_mod_checkColumnConstraints {<BLOCK Name="fct.irtb00040_checkTableConstraints">} #+ Check constraints on the "irtb00040" table #+ #+ @param p_data - a row data LIKE irtb00040.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00040_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE irtb00040.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_irtb00040_fecha_act_checkColumnConstraints(p_data.fecha_act) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00040_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00040_bodega_checkColumnConstraints(p_data.bodega) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00040_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00040_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00040_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00040_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00040_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00040_balance_checkColumnConstraints(p_data.balance) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00040_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00040_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00040_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00040_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00040_checkTableConstraints {<BLOCK Name="fct.irtb00040_fecha_act_checkColumnConstraints">} #+ Check constraints on the "irtb00040.fecha_act" column #+ #+ @param p_fecha_act - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00040_fecha_act_checkColumnConstraints(p_fecha_act) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_act LIKE irtb00040.fecha_act LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00040_fecha_act_checkColumnConstraints {<BLOCK Name="fct.irtb00040_fecha_checkColumnConstraints">} #+ Check constraints on the "irtb00040.fecha" column #+ #+ @param p_fecha - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00040_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE irtb00040.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00040_fecha_checkColumnConstraints {<BLOCK Name="fct.irtb00040_bodega_checkColumnConstraints">} #+ Check constraints on the "irtb00040.bodega" column #+ #+ @param p_bodega - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00040_bodega_checkColumnConstraints(p_bodega) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_bodega LIKE irtb00040.bodega LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00040_bodega_checkColumnConstraints {<BLOCK Name="fct.irtb00040_cod_n_checkColumnConstraints">} #+ Check constraints on the "irtb00040.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00040_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE irtb00040.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00040_cod_n_checkColumnConstraints {<BLOCK Name="fct.irtb00040_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "irtb00040.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00040_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE irtb00040.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00040_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.irtb00040_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "irtb00040.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00040_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE irtb00040.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00040_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.irtb00040_cod_sec_checkColumnConstraints">} #+ Check constraints on the "irtb00040.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00040_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE irtb00040.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00040_cod_sec_checkColumnConstraints {<BLOCK Name="fct.irtb00040_cantidad_checkColumnConstraints">} #+ Check constraints on the "irtb00040.cantidad" column #+ #+ @param p_cantidad - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00040_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE irtb00040.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00040_cantidad_checkColumnConstraints {<BLOCK Name="fct.irtb00040_balance_checkColumnConstraints">} #+ Check constraints on the "irtb00040.balance" column #+ #+ @param p_balance - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00040_balance_checkColumnConstraints(p_balance) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_balance LIKE irtb00040.balance LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00040_balance_checkColumnConstraints {<BLOCK Name="fct.irtb00040_us_crea_checkColumnConstraints">} #+ Check constraints on the "irtb00040.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00040_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE irtb00040.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00040_us_crea_checkColumnConstraints {<BLOCK Name="fct.irtb00040_fech_crea_checkColumnConstraints">} #+ Check constraints on the "irtb00040.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00040_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE irtb00040.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00040_fech_crea_checkColumnConstraints {<BLOCK Name="fct.irtb00040_us_mod_checkColumnConstraints">} #+ Check constraints on the "irtb00040.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00040_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE irtb00040.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00040_us_mod_checkColumnConstraints {<BLOCK Name="fct.irtb00040_fech_mod_checkColumnConstraints">} #+ Check constraints on the "irtb00040.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00040_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE irtb00040.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00040_fech_mod_checkColumnConstraints {<BLOCK Name="fct.irtb00029_checkTableConstraints">} #+ Check constraints on the "irtb00029" table #+ #+ @param p_data - a row data LIKE irtb00029.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00029_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE irtb00029.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_irtb00029_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00029_maquina_checkColumnConstraints(p_data.maquina) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00029_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00029_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00029_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00029_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00029_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00029_checkTableConstraints {<BLOCK Name="fct.irtb00029_departamento_checkColumnConstraints">} #+ Check constraints on the "irtb00029.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00029_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE irtb00029.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00029_departamento_checkColumnConstraints {<BLOCK Name="fct.irtb00029_maquina_checkColumnConstraints">} #+ Check constraints on the "irtb00029.maquina" column #+ #+ @param p_maquina - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00029_maquina_checkColumnConstraints(p_maquina) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_maquina LIKE irtb00029.maquina LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00029_maquina_checkColumnConstraints {<BLOCK Name="fct.irtb00029_status_t_checkColumnConstraints">} #+ Check constraints on the "irtb00029.status_t" column #+ #+ @param p_status_t - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00029_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE irtb00029.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00029_status_t_checkColumnConstraints {<BLOCK Name="fct.irtb00029_us_crea_checkColumnConstraints">} #+ Check constraints on the "irtb00029.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00029_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE irtb00029.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00029_us_crea_checkColumnConstraints {<BLOCK Name="fct.irtb00029_fech_crea_checkColumnConstraints">} #+ Check constraints on the "irtb00029.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00029_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE irtb00029.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00029_fech_crea_checkColumnConstraints {<BLOCK Name="fct.irtb00029_us_mod_checkColumnConstraints">} #+ Check constraints on the "irtb00029.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00029_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE irtb00029.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00029_us_mod_checkColumnConstraints {<BLOCK Name="fct.irtb00029_fech_mod_checkColumnConstraints">} #+ Check constraints on the "irtb00029.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00029_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE irtb00029.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00029_fech_mod_checkColumnConstraints {<BLOCK Name="fct.irtb00027_checkTableConstraints">} #+ Check constraints on the "irtb00027" table #+ #+ @param p_data - a row data LIKE irtb00027.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00027_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE irtb00027.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_irtb00027_fecha_r_checkColumnConstraints(p_data.fecha_r) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00027_cod_n_r_checkColumnConstraints(p_data.cod_n_r) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00027_cod_grupo_r_checkColumnConstraints(p_data.cod_grupo_r) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00027_cod_tipo_r_checkColumnConstraints(p_data.cod_tipo_r) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00027_cod_sec_r_checkColumnConstraints(p_data.cod_sec_r) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00027_cod_n_m_checkColumnConstraints(p_data.cod_n_m) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00027_cod_grupo_m_checkColumnConstraints(p_data.cod_grupo_m) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00027_cod_tipo_m_checkColumnConstraints(p_data.cod_tipo_m) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00027_cod_sec_m_checkColumnConstraints(p_data.cod_sec_m) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00027_cantidad_m_checkColumnConstraints(p_data.cantidad_m) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00027_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00027_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00027_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00027_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00027_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00027_checkTableConstraints {<BLOCK Name="fct.irtb00027_fecha_r_checkColumnConstraints">} #+ Check constraints on the "irtb00027.fecha_r" column #+ #+ @param p_fecha_r - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00027_fecha_r_checkColumnConstraints(p_fecha_r) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_r LIKE irtb00027.fecha_r LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_fecha_r IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- fecha_r: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00027_fecha_r_checkColumnConstraints {<BLOCK Name="fct.irtb00027_cod_n_r_checkColumnConstraints">} #+ Check constraints on the "irtb00027.cod_n_r" column #+ #+ @param p_cod_n_r - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00027_cod_n_r_checkColumnConstraints(p_cod_n_r) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n_r LIKE irtb00027.cod_n_r LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n_r IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n_r: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00027_cod_n_r_checkColumnConstraints {<BLOCK Name="fct.irtb00027_cod_grupo_r_checkColumnConstraints">} #+ Check constraints on the "irtb00027.cod_grupo_r" column #+ #+ @param p_cod_grupo_r - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00027_cod_grupo_r_checkColumnConstraints(p_cod_grupo_r) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo_r LIKE irtb00027.cod_grupo_r LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_grupo_r IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_grupo_r: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00027_cod_grupo_r_checkColumnConstraints {<BLOCK Name="fct.irtb00027_cod_tipo_r_checkColumnConstraints">} #+ Check constraints on the "irtb00027.cod_tipo_r" column #+ #+ @param p_cod_tipo_r - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00027_cod_tipo_r_checkColumnConstraints(p_cod_tipo_r) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo_r LIKE irtb00027.cod_tipo_r LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tipo_r IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tipo_r: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00027_cod_tipo_r_checkColumnConstraints {<BLOCK Name="fct.irtb00027_cod_sec_r_checkColumnConstraints">} #+ Check constraints on the "irtb00027.cod_sec_r" column #+ #+ @param p_cod_sec_r - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00027_cod_sec_r_checkColumnConstraints(p_cod_sec_r) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec_r LIKE irtb00027.cod_sec_r LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sec_r IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sec_r: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00027_cod_sec_r_checkColumnConstraints {<BLOCK Name="fct.irtb00027_cod_n_m_checkColumnConstraints">} #+ Check constraints on the "irtb00027.cod_n_m" column #+ #+ @param p_cod_n_m - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00027_cod_n_m_checkColumnConstraints(p_cod_n_m) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n_m LIKE irtb00027.cod_n_m LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n_m IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n_m: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00027_cod_n_m_checkColumnConstraints {<BLOCK Name="fct.irtb00027_cod_grupo_m_checkColumnConstraints">} #+ Check constraints on the "irtb00027.cod_grupo_m" column #+ #+ @param p_cod_grupo_m - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00027_cod_grupo_m_checkColumnConstraints(p_cod_grupo_m) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo_m LIKE irtb00027.cod_grupo_m LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_grupo_m IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_grupo_m: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00027_cod_grupo_m_checkColumnConstraints {<BLOCK Name="fct.irtb00027_cod_tipo_m_checkColumnConstraints">} #+ Check constraints on the "irtb00027.cod_tipo_m" column #+ #+ @param p_cod_tipo_m - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00027_cod_tipo_m_checkColumnConstraints(p_cod_tipo_m) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo_m LIKE irtb00027.cod_tipo_m LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tipo_m IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tipo_m: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00027_cod_tipo_m_checkColumnConstraints {<BLOCK Name="fct.irtb00027_cod_sec_m_checkColumnConstraints">} #+ Check constraints on the "irtb00027.cod_sec_m" column #+ #+ @param p_cod_sec_m - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00027_cod_sec_m_checkColumnConstraints(p_cod_sec_m) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec_m LIKE irtb00027.cod_sec_m LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sec_m IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sec_m: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00027_cod_sec_m_checkColumnConstraints {<BLOCK Name="fct.irtb00027_cantidad_m_checkColumnConstraints">} #+ Check constraints on the "irtb00027.cantidad_m" column #+ #+ @param p_cantidad_m - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00027_cantidad_m_checkColumnConstraints(p_cantidad_m) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad_m LIKE irtb00027.cantidad_m LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cantidad_m IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cantidad_m: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00027_cantidad_m_checkColumnConstraints {<BLOCK Name="fct.irtb00027_status_t_checkColumnConstraints">} #+ Check constraints on the "irtb00027.status_t" column #+ #+ @param p_status_t - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00027_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE irtb00027.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00027_status_t_checkColumnConstraints {<BLOCK Name="fct.irtb00027_us_crea_checkColumnConstraints">} #+ Check constraints on the "irtb00027.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00027_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE irtb00027.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00027_us_crea_checkColumnConstraints {<BLOCK Name="fct.irtb00027_fech_crea_checkColumnConstraints">} #+ Check constraints on the "irtb00027.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00027_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE irtb00027.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00027_fech_crea_checkColumnConstraints {<BLOCK Name="fct.irtb00027_us_mod_checkColumnConstraints">} #+ Check constraints on the "irtb00027.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00027_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE irtb00027.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00027_us_mod_checkColumnConstraints {<BLOCK Name="fct.irtb00027_fech_mod_checkColumnConstraints">} #+ Check constraints on the "irtb00027.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00027_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE irtb00027.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00027_fech_mod_checkColumnConstraints {<BLOCK Name="fct.irtb00018_checkTableConstraints">} #+ Check constraints on the "irtb00018" table #+ #+ @param p_data - a row data LIKE irtb00018.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00018_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE irtb00018.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_irtb00018_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00018_usuario_checkColumnConstraints(p_data.usuario) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00018_checkTableConstraints {<BLOCK Name="fct.irtb00018_cod_mov_checkColumnConstraints">} #+ Check constraints on the "irtb00018.cod_mov" column #+ #+ @param p_cod_mov - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00018_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE irtb00018.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00018_cod_mov_checkColumnConstraints {<BLOCK Name="fct.irtb00018_usuario_checkColumnConstraints">} #+ Check constraints on the "irtb00018.usuario" column #+ #+ @param p_usuario - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00018_usuario_checkColumnConstraints(p_usuario) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_usuario LIKE irtb00018.usuario LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00018_usuario_checkColumnConstraints {<BLOCK Name="fct.irtb00017_checkTableConstraints">} #+ Check constraints on the "irtb00017" table #+ #+ @param p_data - a row data LIKE irtb00017.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00017_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE irtb00017.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_irtb00017_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00017_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00017_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00017_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00017_semana_del_checkColumnConstraints(p_data.semana_del) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00017_semana_al_checkColumnConstraints(p_data.semana_al) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00017_exis_act_checkColumnConstraints(p_data.exis_act) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00017_exis_fisica_checkColumnConstraints(p_data.exis_fisica) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00017_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00017_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00017_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00017_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00017_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00017_checkTableConstraints {<BLOCK Name="fct.irtb00017_cod_n_checkColumnConstraints">} #+ Check constraints on the "irtb00017.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00017_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE irtb00017.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00017_cod_n_checkColumnConstraints {<BLOCK Name="fct.irtb00017_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "irtb00017.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00017_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE irtb00017.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00017_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.irtb00017_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "irtb00017.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00017_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE irtb00017.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00017_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.irtb00017_cod_sec_checkColumnConstraints">} #+ Check constraints on the "irtb00017.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00017_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE irtb00017.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00017_cod_sec_checkColumnConstraints {<BLOCK Name="fct.irtb00017_semana_del_checkColumnConstraints">} #+ Check constraints on the "irtb00017.semana_del" column #+ #+ @param p_semana_del - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00017_semana_del_checkColumnConstraints(p_semana_del) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_semana_del LIKE irtb00017.semana_del LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00017_semana_del_checkColumnConstraints {<BLOCK Name="fct.irtb00017_semana_al_checkColumnConstraints">} #+ Check constraints on the "irtb00017.semana_al" column #+ #+ @param p_semana_al - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00017_semana_al_checkColumnConstraints(p_semana_al) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_semana_al LIKE irtb00017.semana_al LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00017_semana_al_checkColumnConstraints {<BLOCK Name="fct.irtb00017_exis_act_checkColumnConstraints">} #+ Check constraints on the "irtb00017.exis_act" column #+ #+ @param p_exis_act - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00017_exis_act_checkColumnConstraints(p_exis_act) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_exis_act LIKE irtb00017.exis_act LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00017_exis_act_checkColumnConstraints {<BLOCK Name="fct.irtb00017_exis_fisica_checkColumnConstraints">} #+ Check constraints on the "irtb00017.exis_fisica" column #+ #+ @param p_exis_fisica - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00017_exis_fisica_checkColumnConstraints(p_exis_fisica) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_exis_fisica LIKE irtb00017.exis_fisica LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00017_exis_fisica_checkColumnConstraints {<BLOCK Name="fct.irtb00017_status_t_checkColumnConstraints">} #+ Check constraints on the "irtb00017.status_t" column #+ #+ @param p_status_t - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00017_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE irtb00017.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00017_status_t_checkColumnConstraints {<BLOCK Name="fct.irtb00017_us_crea_checkColumnConstraints">} #+ Check constraints on the "irtb00017.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00017_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE irtb00017.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00017_us_crea_checkColumnConstraints {<BLOCK Name="fct.irtb00017_fech_crea_checkColumnConstraints">} #+ Check constraints on the "irtb00017.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00017_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE irtb00017.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00017_fech_crea_checkColumnConstraints {<BLOCK Name="fct.irtb00017_us_mod_checkColumnConstraints">} #+ Check constraints on the "irtb00017.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00017_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE irtb00017.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00017_us_mod_checkColumnConstraints {<BLOCK Name="fct.irtb00017_fech_mod_checkColumnConstraints">} #+ Check constraints on the "irtb00017.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00017_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE irtb00017.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00017_fech_mod_checkColumnConstraints {<BLOCK Name="fct.irtb00016_checkTableConstraints">} #+ Check constraints on the "irtb00016" table #+ #+ @param p_data - a row data LIKE irtb00016.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00016_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE irtb00016.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_irtb00016_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00016_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00016_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00016_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00016_categoria_checkColumnConstraints(p_data.categoria) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00016_mes_ch_checkColumnConstraints(p_data.mes_ch) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00016_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00016_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00016_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00016_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00016_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00016_checkTableConstraints {<BLOCK Name="fct.irtb00016_cod_n_checkColumnConstraints">} #+ Check constraints on the "irtb00016.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00016_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE irtb00016.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00016_cod_n_checkColumnConstraints {<BLOCK Name="fct.irtb00016_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "irtb00016.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00016_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE irtb00016.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00016_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.irtb00016_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "irtb00016.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00016_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE irtb00016.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00016_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.irtb00016_cod_sec_checkColumnConstraints">} #+ Check constraints on the "irtb00016.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00016_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE irtb00016.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00016_cod_sec_checkColumnConstraints {<BLOCK Name="fct.irtb00016_categoria_checkColumnConstraints">} #+ Check constraints on the "irtb00016.categoria" column #+ #+ @param p_categoria - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00016_categoria_checkColumnConstraints(p_categoria) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_categoria LIKE irtb00016.categoria LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00016_categoria_checkColumnConstraints {<BLOCK Name="fct.irtb00016_mes_ch_checkColumnConstraints">} #+ Check constraints on the "irtb00016.mes_ch" column #+ #+ @param p_mes_ch - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00016_mes_ch_checkColumnConstraints(p_mes_ch) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes_ch LIKE irtb00016.mes_ch LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00016_mes_ch_checkColumnConstraints {<BLOCK Name="fct.irtb00016_status_t_checkColumnConstraints">} #+ Check constraints on the "irtb00016.status_t" column #+ #+ @param p_status_t - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00016_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE irtb00016.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00016_status_t_checkColumnConstraints {<BLOCK Name="fct.irtb00016_us_crea_checkColumnConstraints">} #+ Check constraints on the "irtb00016.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00016_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE irtb00016.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00016_us_crea_checkColumnConstraints {<BLOCK Name="fct.irtb00016_fech_crea_checkColumnConstraints">} #+ Check constraints on the "irtb00016.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00016_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE irtb00016.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00016_fech_crea_checkColumnConstraints {<BLOCK Name="fct.irtb00016_us_mod_checkColumnConstraints">} #+ Check constraints on the "irtb00016.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00016_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE irtb00016.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00016_us_mod_checkColumnConstraints {<BLOCK Name="fct.irtb00016_fech_mod_checkColumnConstraints">} #+ Check constraints on the "irtb00016.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00016_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE irtb00016.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00016_fech_mod_checkColumnConstraints {<BLOCK Name="fct.irtb00014_checkTableConstraints">} #+ Check constraints on the "irtb00014" table #+ #+ @param p_data - a row data LIKE irtb00014.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00014_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE irtb00014.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_irtb00014_num_salida_checkColumnConstraints(p_data.num_salida) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00014_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00014_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00014_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00014_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00014_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00014_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00014_checkTableConstraints {<BLOCK Name="fct.irtb00014_num_salida_checkColumnConstraints">} #+ Check constraints on the "irtb00014.num_salida" column #+ #+ @param p_num_salida - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00014_num_salida_checkColumnConstraints(p_num_salida) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_salida LIKE irtb00014.num_salida LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00014_num_salida_checkColumnConstraints {<BLOCK Name="fct.irtb00014_cod_mov_checkColumnConstraints">} #+ Check constraints on the "irtb00014.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00014_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE irtb00014.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00014_cod_mov_checkColumnConstraints {<BLOCK Name="fct.irtb00014_status_t_checkColumnConstraints">} #+ Check constraints on the "irtb00014.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00014_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE irtb00014.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00014_status_t_checkColumnConstraints {<BLOCK Name="fct.irtb00014_us_crea_checkColumnConstraints">} #+ Check constraints on the "irtb00014.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00014_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE irtb00014.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00014_us_crea_checkColumnConstraints {<BLOCK Name="fct.irtb00014_fech_crea_checkColumnConstraints">} #+ Check constraints on the "irtb00014.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00014_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE irtb00014.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00014_fech_crea_checkColumnConstraints {<BLOCK Name="fct.irtb00014_us_mod_checkColumnConstraints">} #+ Check constraints on the "irtb00014.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00014_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE irtb00014.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00014_us_mod_checkColumnConstraints {<BLOCK Name="fct.irtb00014_fech_mod_checkColumnConstraints">} #+ Check constraints on the "irtb00014.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00014_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE irtb00014.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00014_fech_mod_checkColumnConstraints {<BLOCK Name="fct.irtb00013_checkTableConstraints">} #+ Check constraints on the "irtb00013" table #+ #+ @param p_data - a row data LIKE irtb00013.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00013_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE irtb00013.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_irtb00013_mes_ini_checkColumnConstraints(p_data.mes_ini) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00013_mes_fin_checkColumnConstraints(p_data.mes_fin) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00013_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00013_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00013_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00013_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00013_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00013_costo_st_checkColumnConstraints(p_data.costo_st) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00013_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00013_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00013_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00013_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00013_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00013_pk_irtb00013_checkUniqueConstraint(p_forUpdate, p_data.ano, p_data.cod_n, p_data.cod_grupo, p_data.cod_tipo, p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00013_checkTableConstraints {<BLOCK Name="fct.irtb00013_pk_irtb00013_checkUniqueConstraint">} #+ Check the primary key uniqueness constraint on the "irtb00013" #+ #+ @param p_key - Primary Key #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00013_pk_irtb00013_checkUniqueConstraint(p_forUpdate, p_key) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_forUpdate BOOLEAN DEFINE p_key RECORD irtb00013_ano LIKE irtb00013.ano, irtb00013_cod_n LIKE irtb00013.cod_n, irtb00013_cod_grupo LIKE irtb00013.cod_grupo, irtb00013_cod_tipo LIKE irtb00013.cod_tipo, irtb00013_cod_sec LIKE irtb00013.cod_sec END RECORD DEFINE l_key RECORD irtb00013_ano LIKE irtb00013.ano, irtb00013_cod_n LIKE irtb00013.cod_n, irtb00013_cod_grupo LIKE irtb00013.cod_grupo, irtb00013_cod_tipo LIKE irtb00013.cod_tipo, irtb00013_cod_sec LIKE irtb00013.cod_sec 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 irtb00013.ano = ? AND irtb00013.cod_n = ? AND irtb00013.cod_grupo = ? AND irtb00013.cod_tipo = ? AND irtb00013.cod_sec = ? " let l_sqlQuery = "SELECT COUNT(*), ano, cod_n, cod_grupo, cod_tipo, cod_sec FROM irtb00013 ", l_where, " GROUP BY ano, cod_n, cod_grupo, cod_tipo, cod_sec" PREPARE cur_irtb00013_pk_irtb00013_checkUniqueConstraint FROM l_sqlQuery EXECUTE cur_irtb00013_pk_irtb00013_checkUniqueConstraint INTO l_count, l_key.* USING p_key.* FREE cur_irtb00013_pk_irtb00013_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- ano + cod_n + cod_grupo + cod_tipo + cod_sec: " || ERROR_BAM_00002) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00013_pk_irtb00013_checkUniqueConstraint {<BLOCK Name="fct.irtb00013_mes_ini_checkColumnConstraints">} #+ Check constraints on the "irtb00013.mes_ini" column #+ #+ @param p_mes_ini - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00013_mes_ini_checkColumnConstraints(p_mes_ini) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes_ini LIKE irtb00013.mes_ini LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00013_mes_ini_checkColumnConstraints {<BLOCK Name="fct.irtb00013_mes_fin_checkColumnConstraints">} #+ Check constraints on the "irtb00013.mes_fin" column #+ #+ @param p_mes_fin - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00013_mes_fin_checkColumnConstraints(p_mes_fin) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes_fin LIKE irtb00013.mes_fin LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00013_mes_fin_checkColumnConstraints {<BLOCK Name="fct.irtb00013_ano_checkColumnConstraints">} #+ Check constraints on the "irtb00013.ano" column #+ #+ @param p_ano - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00013_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE irtb00013.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_ano IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- ano: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00013_ano_checkColumnConstraints {<BLOCK Name="fct.irtb00013_cod_n_checkColumnConstraints">} #+ Check constraints on the "irtb00013.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00013_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE irtb00013.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00013_cod_n_checkColumnConstraints {<BLOCK Name="fct.irtb00013_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "irtb00013.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00013_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE irtb00013.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_grupo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_grupo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00013_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.irtb00013_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "irtb00013.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00013_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE irtb00013.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tipo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tipo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00013_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.irtb00013_cod_sec_checkColumnConstraints">} #+ Check constraints on the "irtb00013.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00013_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE irtb00013.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00013_cod_sec_checkColumnConstraints {<BLOCK Name="fct.irtb00013_costo_st_checkColumnConstraints">} #+ Check constraints on the "irtb00013.costo_st" column #+ #+ @param p_costo_st - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00013_costo_st_checkColumnConstraints(p_costo_st) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_costo_st LIKE irtb00013.costo_st LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00013_costo_st_checkColumnConstraints {<BLOCK Name="fct.irtb00013_status_t_checkColumnConstraints">} #+ Check constraints on the "irtb00013.status_t" column #+ #+ @param p_status_t - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00013_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE irtb00013.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00013_status_t_checkColumnConstraints {<BLOCK Name="fct.irtb00013_us_crea_checkColumnConstraints">} #+ Check constraints on the "irtb00013.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00013_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE irtb00013.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00013_us_crea_checkColumnConstraints {<BLOCK Name="fct.irtb00013_fech_crea_checkColumnConstraints">} #+ Check constraints on the "irtb00013.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00013_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE irtb00013.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00013_fech_crea_checkColumnConstraints {<BLOCK Name="fct.irtb00013_us_mod_checkColumnConstraints">} #+ Check constraints on the "irtb00013.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00013_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE irtb00013.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00013_us_mod_checkColumnConstraints {<BLOCK Name="fct.irtb00013_fech_mod_checkColumnConstraints">} #+ Check constraints on the "irtb00013.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00013_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE irtb00013.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00013_fech_mod_checkColumnConstraints {<BLOCK Name="fct.irtb00012_checkTableConstraints">} #+ Check constraints on the "irtb00012" table #+ #+ @param p_data - a row data LIKE irtb00012.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00012_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE irtb00012.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_irtb00012_idtrx_checkColumnConstraints(p_data.idtrx) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00012_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00012_bodega_checkColumnConstraints(p_data.bodega) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00012_cod_seccion_checkColumnConstraints(p_data.cod_seccion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00012_cod_tramo_checkColumnConstraints(p_data.cod_tramo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00012_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00012_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00012_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00012_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00012_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00012_balance_checkColumnConstraints(p_data.balance) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00012_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00012_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00012_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00012_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00012_checkTableConstraints {<BLOCK Name="fct.irtb00012_idtrx_checkColumnConstraints">} #+ Check constraints on the "irtb00012.idtrx" column #+ #+ @param p_idtrx - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00012_idtrx_checkColumnConstraints(p_idtrx) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_idtrx LIKE irtb00012.idtrx LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00012_idtrx_checkColumnConstraints {<BLOCK Name="fct.irtb00012_fecha_checkColumnConstraints">} #+ Check constraints on the "irtb00012.fecha" column #+ #+ @param p_fecha - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00012_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE irtb00012.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00012_fecha_checkColumnConstraints {<BLOCK Name="fct.irtb00012_bodega_checkColumnConstraints">} #+ Check constraints on the "irtb00012.bodega" column #+ #+ @param p_bodega - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00012_bodega_checkColumnConstraints(p_bodega) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_bodega LIKE irtb00012.bodega LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00012_bodega_checkColumnConstraints {<BLOCK Name="fct.irtb00012_cod_seccion_checkColumnConstraints">} #+ Check constraints on the "irtb00012.cod_seccion" column #+ #+ @param p_cod_seccion - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00012_cod_seccion_checkColumnConstraints(p_cod_seccion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_seccion LIKE irtb00012.cod_seccion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00012_cod_seccion_checkColumnConstraints {<BLOCK Name="fct.irtb00012_cod_tramo_checkColumnConstraints">} #+ Check constraints on the "irtb00012.cod_tramo" column #+ #+ @param p_cod_tramo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00012_cod_tramo_checkColumnConstraints(p_cod_tramo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tramo LIKE irtb00012.cod_tramo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00012_cod_tramo_checkColumnConstraints {<BLOCK Name="fct.irtb00012_cod_n_checkColumnConstraints">} #+ Check constraints on the "irtb00012.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00012_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE irtb00012.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00012_cod_n_checkColumnConstraints {<BLOCK Name="fct.irtb00012_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "irtb00012.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00012_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE irtb00012.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00012_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.irtb00012_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "irtb00012.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00012_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE irtb00012.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00012_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.irtb00012_cod_sec_checkColumnConstraints">} #+ Check constraints on the "irtb00012.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00012_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE irtb00012.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00012_cod_sec_checkColumnConstraints {<BLOCK Name="fct.irtb00012_cantidad_checkColumnConstraints">} #+ Check constraints on the "irtb00012.cantidad" column #+ #+ @param p_cantidad - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00012_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE irtb00012.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00012_cantidad_checkColumnConstraints {<BLOCK Name="fct.irtb00012_balance_checkColumnConstraints">} #+ Check constraints on the "irtb00012.balance" column #+ #+ @param p_balance - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00012_balance_checkColumnConstraints(p_balance) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_balance LIKE irtb00012.balance LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00012_balance_checkColumnConstraints {<BLOCK Name="fct.irtb00012_us_crea_checkColumnConstraints">} #+ Check constraints on the "irtb00012.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00012_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE irtb00012.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00012_us_crea_checkColumnConstraints {<BLOCK Name="fct.irtb00012_fech_crea_checkColumnConstraints">} #+ Check constraints on the "irtb00012.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00012_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE irtb00012.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00012_fech_crea_checkColumnConstraints {<BLOCK Name="fct.irtb00012_us_mod_checkColumnConstraints">} #+ Check constraints on the "irtb00012.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00012_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE irtb00012.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00012_us_mod_checkColumnConstraints {<BLOCK Name="fct.irtb00012_fech_mod_checkColumnConstraints">} #+ Check constraints on the "irtb00012.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00012_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE irtb00012.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00012_fech_mod_checkColumnConstraints {<BLOCK Name="fct.irtb00011_checkTableConstraints">} #+ Check constraints on the "irtb00011" table #+ #+ @param p_data - a row data LIKE irtb00011.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00011_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE irtb00011.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_irtb00011_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00011_bodega_checkColumnConstraints(p_data.bodega) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00011_cod_seccion_checkColumnConstraints(p_data.cod_seccion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00011_cod_tramo_checkColumnConstraints(p_data.cod_tramo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00011_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00011_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00011_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00011_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00011_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00011_balance_checkColumnConstraints(p_data.balance) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00011_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00011_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00011_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00011_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00011_checkTableConstraints {<BLOCK Name="fct.irtb00011_fecha_checkColumnConstraints">} #+ Check constraints on the "irtb00011.fecha" column #+ #+ @param p_fecha - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00011_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE irtb00011.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_fecha IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- fecha: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00011_fecha_checkColumnConstraints {<BLOCK Name="fct.irtb00011_bodega_checkColumnConstraints">} #+ Check constraints on the "irtb00011.bodega" column #+ #+ @param p_bodega - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00011_bodega_checkColumnConstraints(p_bodega) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_bodega LIKE irtb00011.bodega LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_bodega IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- bodega: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00011_bodega_checkColumnConstraints {<BLOCK Name="fct.irtb00011_cod_seccion_checkColumnConstraints">} #+ Check constraints on the "irtb00011.cod_seccion" column #+ #+ @param p_cod_seccion - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00011_cod_seccion_checkColumnConstraints(p_cod_seccion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_seccion LIKE irtb00011.cod_seccion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_seccion IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_seccion: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00011_cod_seccion_checkColumnConstraints {<BLOCK Name="fct.irtb00011_cod_tramo_checkColumnConstraints">} #+ Check constraints on the "irtb00011.cod_tramo" column #+ #+ @param p_cod_tramo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00011_cod_tramo_checkColumnConstraints(p_cod_tramo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tramo LIKE irtb00011.cod_tramo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tramo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tramo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00011_cod_tramo_checkColumnConstraints {<BLOCK Name="fct.irtb00011_cod_n_checkColumnConstraints">} #+ Check constraints on the "irtb00011.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00011_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE irtb00011.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00011_cod_n_checkColumnConstraints {<BLOCK Name="fct.irtb00011_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "irtb00011.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00011_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE irtb00011.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_grupo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_grupo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00011_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.irtb00011_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "irtb00011.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00011_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE irtb00011.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tipo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tipo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00011_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.irtb00011_cod_sec_checkColumnConstraints">} #+ Check constraints on the "irtb00011.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00011_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE irtb00011.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00011_cod_sec_checkColumnConstraints {<BLOCK Name="fct.irtb00011_cantidad_checkColumnConstraints">} #+ Check constraints on the "irtb00011.cantidad" column #+ #+ @param p_cantidad - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00011_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE irtb00011.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cantidad IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cantidad: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00011_cantidad_checkColumnConstraints {<BLOCK Name="fct.irtb00011_balance_checkColumnConstraints">} #+ Check constraints on the "irtb00011.balance" column #+ #+ @param p_balance - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00011_balance_checkColumnConstraints(p_balance) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_balance LIKE irtb00011.balance LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00011_balance_checkColumnConstraints {<BLOCK Name="fct.irtb00011_us_crea_checkColumnConstraints">} #+ Check constraints on the "irtb00011.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00011_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE irtb00011.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00011_us_crea_checkColumnConstraints {<BLOCK Name="fct.irtb00011_fech_crea_checkColumnConstraints">} #+ Check constraints on the "irtb00011.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00011_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE irtb00011.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00011_fech_crea_checkColumnConstraints {<BLOCK Name="fct.irtb00011_us_mod_checkColumnConstraints">} #+ Check constraints on the "irtb00011.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00011_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE irtb00011.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00011_us_mod_checkColumnConstraints {<BLOCK Name="fct.irtb00011_fech_mod_checkColumnConstraints">} #+ Check constraints on the "irtb00011.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00011_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE irtb00011.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00011_fech_mod_checkColumnConstraints {<BLOCK Name="fct.irtb00010_checkTableConstraints">} #+ Check constraints on the "irtb00010" table #+ #+ @param p_data - a row data LIKE irtb00010.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00010_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE irtb00010.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_irtb00010_codigo_checkColumnConstraints(p_data.codigo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00010_nombre_checkColumnConstraints(p_data.nombre) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00010_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00010_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00010_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00010_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00010_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00010_checkTableConstraints {<BLOCK Name="fct.irtb00010_codigo_checkColumnConstraints">} #+ Check constraints on the "irtb00010.codigo" column #+ #+ @param p_codigo - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00010_codigo_checkColumnConstraints(p_codigo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codigo LIKE irtb00010.codigo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00010_codigo_checkColumnConstraints {<BLOCK Name="fct.irtb00010_nombre_checkColumnConstraints">} #+ Check constraints on the "irtb00010.nombre" column #+ #+ @param p_nombre - VARCHAR2(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00010_nombre_checkColumnConstraints(p_nombre) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombre LIKE irtb00010.nombre LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00010_nombre_checkColumnConstraints {<BLOCK Name="fct.irtb00010_status_t_checkColumnConstraints">} #+ Check constraints on the "irtb00010.status_t" column #+ #+ @param p_status_t - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00010_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE irtb00010.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00010_status_t_checkColumnConstraints {<BLOCK Name="fct.irtb00010_us_crea_checkColumnConstraints">} #+ Check constraints on the "irtb00010.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00010_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE irtb00010.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00010_us_crea_checkColumnConstraints {<BLOCK Name="fct.irtb00010_fech_crea_checkColumnConstraints">} #+ Check constraints on the "irtb00010.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00010_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE irtb00010.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00010_fech_crea_checkColumnConstraints {<BLOCK Name="fct.irtb00010_us_mod_checkColumnConstraints">} #+ Check constraints on the "irtb00010.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00010_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE irtb00010.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00010_us_mod_checkColumnConstraints {<BLOCK Name="fct.irtb00010_fech_mod_checkColumnConstraints">} #+ Check constraints on the "irtb00010.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00010_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE irtb00010.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00010_fech_mod_checkColumnConstraints {<BLOCK Name="fct.irtb00009_checkTableConstraints">} #+ Check constraints on the "irtb00009" table #+ #+ @param p_data - a row data LIKE irtb00009.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00009_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE irtb00009.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_irtb00009_codigo_checkColumnConstraints(p_data.codigo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00009_nombre_checkColumnConstraints(p_data.nombre) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00009_unidad_med_checkColumnConstraints(p_data.unidad_med) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00009_modelo_checkColumnConstraints(p_data.modelo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00009_serie_checkColumnConstraints(p_data.serie) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00009_fabricante_checkColumnConstraints(p_data.fabricante) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00009_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00009_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00009_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00009_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00009_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00009_checkTableConstraints {<BLOCK Name="fct.irtb00009_codigo_checkColumnConstraints">} #+ Check constraints on the "irtb00009.codigo" column #+ #+ @param p_codigo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00009_codigo_checkColumnConstraints(p_codigo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codigo LIKE irtb00009.codigo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00009_codigo_checkColumnConstraints {<BLOCK Name="fct.irtb00009_nombre_checkColumnConstraints">} #+ Check constraints on the "irtb00009.nombre" column #+ #+ @param p_nombre - VARCHAR2(25) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00009_nombre_checkColumnConstraints(p_nombre) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombre LIKE irtb00009.nombre LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00009_nombre_checkColumnConstraints {<BLOCK Name="fct.irtb00009_unidad_med_checkColumnConstraints">} #+ Check constraints on the "irtb00009.unidad_med" column #+ #+ @param p_unidad_med - VARCHAR2(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00009_unidad_med_checkColumnConstraints(p_unidad_med) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_unidad_med LIKE irtb00009.unidad_med LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00009_unidad_med_checkColumnConstraints {<BLOCK Name="fct.irtb00009_modelo_checkColumnConstraints">} #+ Check constraints on the "irtb00009.modelo" column #+ #+ @param p_modelo - VARCHAR2(15) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00009_modelo_checkColumnConstraints(p_modelo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_modelo LIKE irtb00009.modelo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00009_modelo_checkColumnConstraints {<BLOCK Name="fct.irtb00009_serie_checkColumnConstraints">} #+ Check constraints on the "irtb00009.serie" column #+ #+ @param p_serie - VARCHAR2(15) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00009_serie_checkColumnConstraints(p_serie) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_serie LIKE irtb00009.serie LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00009_serie_checkColumnConstraints {<BLOCK Name="fct.irtb00009_fabricante_checkColumnConstraints">} #+ Check constraints on the "irtb00009.fabricante" column #+ #+ @param p_fabricante - VARCHAR2(45) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00009_fabricante_checkColumnConstraints(p_fabricante) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fabricante LIKE irtb00009.fabricante LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00009_fabricante_checkColumnConstraints {<BLOCK Name="fct.irtb00009_status_t_checkColumnConstraints">} #+ Check constraints on the "irtb00009.status_t" column #+ #+ @param p_status_t - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00009_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE irtb00009.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00009_status_t_checkColumnConstraints {<BLOCK Name="fct.irtb00009_us_crea_checkColumnConstraints">} #+ Check constraints on the "irtb00009.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00009_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE irtb00009.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00009_us_crea_checkColumnConstraints {<BLOCK Name="fct.irtb00009_fech_crea_checkColumnConstraints">} #+ Check constraints on the "irtb00009.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00009_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE irtb00009.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00009_fech_crea_checkColumnConstraints {<BLOCK Name="fct.irtb00009_us_mod_checkColumnConstraints">} #+ Check constraints on the "irtb00009.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00009_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE irtb00009.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00009_us_mod_checkColumnConstraints {<BLOCK Name="fct.irtb00009_fech_mod_checkColumnConstraints">} #+ Check constraints on the "irtb00009.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00009_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE irtb00009.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00009_fech_mod_checkColumnConstraints {<BLOCK Name="fct.irtb00008_checkTableConstraints">} #+ Check constraints on the "irtb00008" table #+ #+ @param p_data - a row data LIKE irtb00008.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00008_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE irtb00008.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_irtb00008_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00008_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00008_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00008_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00008_cod_maq_checkColumnConstraints(p_data.cod_maq) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00008_numero_checkColumnConstraints(p_data.numero) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00008_serie_checkColumnConstraints(p_data.serie) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00008_distribuidor_checkColumnConstraints(p_data.distribuidor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00008_fabricante_checkColumnConstraints(p_data.fabricante) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00008_localizacion_checkColumnConstraints(p_data.localizacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00008_material_checkColumnConstraints(p_data.material) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00008_dureza_checkColumnConstraints(p_data.dureza) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00008_motor_elec_checkColumnConstraints(p_data.motor_elec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00008_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00008_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00008_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00008_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00008_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00008_checkTableConstraints {<BLOCK Name="fct.irtb00008_cod_n_checkColumnConstraints">} #+ Check constraints on the "irtb00008.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00008_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE irtb00008.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00008_cod_n_checkColumnConstraints {<BLOCK Name="fct.irtb00008_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "irtb00008.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00008_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE irtb00008.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00008_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.irtb00008_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "irtb00008.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00008_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE irtb00008.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00008_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.irtb00008_cod_sec_checkColumnConstraints">} #+ Check constraints on the "irtb00008.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00008_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE irtb00008.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00008_cod_sec_checkColumnConstraints {<BLOCK Name="fct.irtb00008_cod_maq_checkColumnConstraints">} #+ Check constraints on the "irtb00008.cod_maq" column #+ #+ @param p_cod_maq - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00008_cod_maq_checkColumnConstraints(p_cod_maq) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_maq LIKE irtb00008.cod_maq LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00008_cod_maq_checkColumnConstraints {<BLOCK Name="fct.irtb00008_numero_checkColumnConstraints">} #+ Check constraints on the "irtb00008.numero" column #+ #+ @param p_numero - VARCHAR2(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00008_numero_checkColumnConstraints(p_numero) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_numero LIKE irtb00008.numero LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00008_numero_checkColumnConstraints {<BLOCK Name="fct.irtb00008_serie_checkColumnConstraints">} #+ Check constraints on the "irtb00008.serie" column #+ #+ @param p_serie - VARCHAR2(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00008_serie_checkColumnConstraints(p_serie) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_serie LIKE irtb00008.serie LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00008_serie_checkColumnConstraints {<BLOCK Name="fct.irtb00008_distribuidor_checkColumnConstraints">} #+ Check constraints on the "irtb00008.distribuidor" column #+ #+ @param p_distribuidor - VARCHAR2(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00008_distribuidor_checkColumnConstraints(p_distribuidor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_distribuidor LIKE irtb00008.distribuidor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00008_distribuidor_checkColumnConstraints {<BLOCK Name="fct.irtb00008_fabricante_checkColumnConstraints">} #+ Check constraints on the "irtb00008.fabricante" column #+ #+ @param p_fabricante - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00008_fabricante_checkColumnConstraints(p_fabricante) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fabricante LIKE irtb00008.fabricante LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00008_fabricante_checkColumnConstraints {<BLOCK Name="fct.irtb00008_localizacion_checkColumnConstraints">} #+ Check constraints on the "irtb00008.localizacion" column #+ #+ @param p_localizacion - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00008_localizacion_checkColumnConstraints(p_localizacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_localizacion LIKE irtb00008.localizacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00008_localizacion_checkColumnConstraints {<BLOCK Name="fct.irtb00008_material_checkColumnConstraints">} #+ Check constraints on the "irtb00008.material" column #+ #+ @param p_material - VARCHAR2(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00008_material_checkColumnConstraints(p_material) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_material LIKE irtb00008.material LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00008_material_checkColumnConstraints {<BLOCK Name="fct.irtb00008_dureza_checkColumnConstraints">} #+ Check constraints on the "irtb00008.dureza" column #+ #+ @param p_dureza - VARCHAR2(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00008_dureza_checkColumnConstraints(p_dureza) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_dureza LIKE irtb00008.dureza LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00008_dureza_checkColumnConstraints {<BLOCK Name="fct.irtb00008_motor_elec_checkColumnConstraints">} #+ Check constraints on the "irtb00008.motor_elec" column #+ #+ @param p_motor_elec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00008_motor_elec_checkColumnConstraints(p_motor_elec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_motor_elec LIKE irtb00008.motor_elec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00008_motor_elec_checkColumnConstraints {<BLOCK Name="fct.irtb00008_status_t_checkColumnConstraints">} #+ Check constraints on the "irtb00008.status_t" column #+ #+ @param p_status_t - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00008_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE irtb00008.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00008_status_t_checkColumnConstraints {<BLOCK Name="fct.irtb00008_us_crea_checkColumnConstraints">} #+ Check constraints on the "irtb00008.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00008_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE irtb00008.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00008_us_crea_checkColumnConstraints {<BLOCK Name="fct.irtb00008_fech_crea_checkColumnConstraints">} #+ Check constraints on the "irtb00008.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00008_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE irtb00008.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00008_fech_crea_checkColumnConstraints {<BLOCK Name="fct.irtb00008_us_mod_checkColumnConstraints">} #+ Check constraints on the "irtb00008.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00008_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE irtb00008.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00008_us_mod_checkColumnConstraints {<BLOCK Name="fct.irtb00008_fech_mod_checkColumnConstraints">} #+ Check constraints on the "irtb00008.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00008_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE irtb00008.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00008_fech_mod_checkColumnConstraints {<BLOCK Name="fct.irtb00007_checkTableConstraints">} #+ Check constraints on the "irtb00007" table #+ #+ @param p_data - a row data LIKE irtb00007.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00007_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE irtb00007.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_irtb00007_codigo_m_checkColumnConstraints(p_data.codigo_m) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00007_frame_checkColumnConstraints(p_data.frame) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00007_numero_checkColumnConstraints(p_data.numero) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00007_fase_m_checkColumnConstraints(p_data.fase_m) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00007_serie_checkColumnConstraints(p_data.serie) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00007_rpm_m_checkColumnConstraints(p_data.rpm_m) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00007_hp_m_checkColumnConstraints(p_data.hp_m) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00007_voltaje_checkColumnConstraints(p_data.voltaje) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00007_amperaje_checkColumnConstraints(p_data.amperaje) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00007_ciclo_checkColumnConstraints(p_data.ciclo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00007_tipo_checkColumnConstraints(p_data.tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00007_modelo_checkColumnConstraints(p_data.modelo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00007_marca_checkColumnConstraints(p_data.marca) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00007_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00007_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00007_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00007_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00007_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00007_checkTableConstraints {<BLOCK Name="fct.irtb00007_codigo_m_checkColumnConstraints">} #+ Check constraints on the "irtb00007.codigo_m" column #+ #+ @param p_codigo_m - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00007_codigo_m_checkColumnConstraints(p_codigo_m) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codigo_m LIKE irtb00007.codigo_m LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00007_codigo_m_checkColumnConstraints {<BLOCK Name="fct.irtb00007_frame_checkColumnConstraints">} #+ Check constraints on the "irtb00007.frame" column #+ #+ @param p_frame - VARCHAR2(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00007_frame_checkColumnConstraints(p_frame) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_frame LIKE irtb00007.frame LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00007_frame_checkColumnConstraints {<BLOCK Name="fct.irtb00007_numero_checkColumnConstraints">} #+ Check constraints on the "irtb00007.numero" column #+ #+ @param p_numero - VARCHAR2(15) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00007_numero_checkColumnConstraints(p_numero) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_numero LIKE irtb00007.numero LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00007_numero_checkColumnConstraints {<BLOCK Name="fct.irtb00007_fase_m_checkColumnConstraints">} #+ Check constraints on the "irtb00007.fase_m" column #+ #+ @param p_fase_m - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00007_fase_m_checkColumnConstraints(p_fase_m) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fase_m LIKE irtb00007.fase_m LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00007_fase_m_checkColumnConstraints {<BLOCK Name="fct.irtb00007_serie_checkColumnConstraints">} #+ Check constraints on the "irtb00007.serie" column #+ #+ @param p_serie - VARCHAR2(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00007_serie_checkColumnConstraints(p_serie) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_serie LIKE irtb00007.serie LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00007_serie_checkColumnConstraints {<BLOCK Name="fct.irtb00007_rpm_m_checkColumnConstraints">} #+ Check constraints on the "irtb00007.rpm_m" column #+ #+ @param p_rpm_m - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00007_rpm_m_checkColumnConstraints(p_rpm_m) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_rpm_m LIKE irtb00007.rpm_m LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00007_rpm_m_checkColumnConstraints {<BLOCK Name="fct.irtb00007_hp_m_checkColumnConstraints">} #+ Check constraints on the "irtb00007.hp_m" column #+ #+ @param p_hp_m - VARCHAR2(7) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00007_hp_m_checkColumnConstraints(p_hp_m) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_hp_m LIKE irtb00007.hp_m LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00007_hp_m_checkColumnConstraints {<BLOCK Name="fct.irtb00007_voltaje_checkColumnConstraints">} #+ Check constraints on the "irtb00007.voltaje" column #+ #+ @param p_voltaje - VARCHAR2(7) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00007_voltaje_checkColumnConstraints(p_voltaje) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_voltaje LIKE irtb00007.voltaje LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00007_voltaje_checkColumnConstraints {<BLOCK Name="fct.irtb00007_amperaje_checkColumnConstraints">} #+ Check constraints on the "irtb00007.amperaje" column #+ #+ @param p_amperaje - VARCHAR2(7) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00007_amperaje_checkColumnConstraints(p_amperaje) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_amperaje LIKE irtb00007.amperaje LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00007_amperaje_checkColumnConstraints {<BLOCK Name="fct.irtb00007_ciclo_checkColumnConstraints">} #+ Check constraints on the "irtb00007.ciclo" column #+ #+ @param p_ciclo - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00007_ciclo_checkColumnConstraints(p_ciclo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ciclo LIKE irtb00007.ciclo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00007_ciclo_checkColumnConstraints {<BLOCK Name="fct.irtb00007_tipo_checkColumnConstraints">} #+ Check constraints on the "irtb00007.tipo" column #+ #+ @param p_tipo - VARCHAR2(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00007_tipo_checkColumnConstraints(p_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo LIKE irtb00007.tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00007_tipo_checkColumnConstraints {<BLOCK Name="fct.irtb00007_modelo_checkColumnConstraints">} #+ Check constraints on the "irtb00007.modelo" column #+ #+ @param p_modelo - VARCHAR2(15) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00007_modelo_checkColumnConstraints(p_modelo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_modelo LIKE irtb00007.modelo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00007_modelo_checkColumnConstraints {<BLOCK Name="fct.irtb00007_marca_checkColumnConstraints">} #+ Check constraints on the "irtb00007.marca" column #+ #+ @param p_marca - VARCHAR2(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00007_marca_checkColumnConstraints(p_marca) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_marca LIKE irtb00007.marca LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00007_marca_checkColumnConstraints {<BLOCK Name="fct.irtb00007_status_t_checkColumnConstraints">} #+ Check constraints on the "irtb00007.status_t" column #+ #+ @param p_status_t - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00007_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE irtb00007.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00007_status_t_checkColumnConstraints {<BLOCK Name="fct.irtb00007_us_crea_checkColumnConstraints">} #+ Check constraints on the "irtb00007.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00007_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE irtb00007.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00007_us_crea_checkColumnConstraints {<BLOCK Name="fct.irtb00007_fech_crea_checkColumnConstraints">} #+ Check constraints on the "irtb00007.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00007_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE irtb00007.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00007_fech_crea_checkColumnConstraints {<BLOCK Name="fct.irtb00007_us_mod_checkColumnConstraints">} #+ Check constraints on the "irtb00007.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00007_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE irtb00007.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00007_us_mod_checkColumnConstraints {<BLOCK Name="fct.irtb00007_fech_mod_checkColumnConstraints">} #+ Check constraints on the "irtb00007.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00007_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE irtb00007.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00007_fech_mod_checkColumnConstraints {<BLOCK Name="fct.irtb00006_checkTableConstraints">} #+ Check constraints on the "irtb00006" table #+ #+ @param p_data - a row data LIKE irtb00006.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00006_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE irtb00006.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_irtb00006_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00006_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00006_fact_no_checkColumnConstraints(p_data.fact_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00006_conduce_no_checkColumnConstraints(p_data.conduce_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00006_tipo_checkColumnConstraints(p_data.tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00006_orden_compra_checkColumnConstraints(p_data.orden_compra) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00006_cod_sp_checkColumnConstraints(p_data.cod_sp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00006_cod_sp_sec_checkColumnConstraints(p_data.cod_sp_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00006_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00006_maquina_checkColumnConstraints(p_data.maquina) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00006_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00006_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00006_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00006_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00006_cantidad_1_checkColumnConstraints(p_data.cantidad_1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00006_cantidad_2_checkColumnConstraints(p_data.cantidad_2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00006_sec_de_checkColumnConstraints(p_data.sec_de) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00006_sec_a_checkColumnConstraints(p_data.sec_a) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00006_status_mov_checkColumnConstraints(p_data.status_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00006_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00006_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00006_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00006_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00006_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00006_bodega_checkColumnConstraints(p_data.bodega) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00006_checkTableConstraints {<BLOCK Name="fct.irtb00006_num_doc_checkColumnConstraints">} #+ Check constraints on the "irtb00006.num_doc" column #+ #+ @param p_num_doc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00006_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE irtb00006.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_num_doc IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- num_doc: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00006_num_doc_checkColumnConstraints {<BLOCK Name="fct.irtb00006_fecha_checkColumnConstraints">} #+ Check constraints on the "irtb00006.fecha" column #+ #+ @param p_fecha - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00006_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE irtb00006.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_fecha IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- fecha: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00006_fecha_checkColumnConstraints {<BLOCK Name="fct.irtb00006_fact_no_checkColumnConstraints">} #+ Check constraints on the "irtb00006.fact_no" column #+ #+ @param p_fact_no - VARCHAR2(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00006_fact_no_checkColumnConstraints(p_fact_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fact_no LIKE irtb00006.fact_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00006_fact_no_checkColumnConstraints {<BLOCK Name="fct.irtb00006_conduce_no_checkColumnConstraints">} #+ Check constraints on the "irtb00006.conduce_no" column #+ #+ @param p_conduce_no - VARCHAR2(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00006_conduce_no_checkColumnConstraints(p_conduce_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_conduce_no LIKE irtb00006.conduce_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00006_conduce_no_checkColumnConstraints {<BLOCK Name="fct.irtb00006_tipo_checkColumnConstraints">} #+ Check constraints on the "irtb00006.tipo" column #+ #+ @param p_tipo - VARCHAR2(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00006_tipo_checkColumnConstraints(p_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo LIKE irtb00006.tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00006_tipo_checkColumnConstraints {<BLOCK Name="fct.irtb00006_orden_compra_checkColumnConstraints">} #+ Check constraints on the "irtb00006.orden_compra" column #+ #+ @param p_orden_compra - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00006_orden_compra_checkColumnConstraints(p_orden_compra) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_orden_compra LIKE irtb00006.orden_compra LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00006_orden_compra_checkColumnConstraints {<BLOCK Name="fct.irtb00006_cod_sp_checkColumnConstraints">} #+ Check constraints on the "irtb00006.cod_sp" column #+ #+ @param p_cod_sp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00006_cod_sp_checkColumnConstraints(p_cod_sp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp LIKE irtb00006.cod_sp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00006_cod_sp_checkColumnConstraints {<BLOCK Name="fct.irtb00006_cod_sp_sec_checkColumnConstraints">} #+ Check constraints on the "irtb00006.cod_sp_sec" column #+ #+ @param p_cod_sp_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00006_cod_sp_sec_checkColumnConstraints(p_cod_sp_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp_sec LIKE irtb00006.cod_sp_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00006_cod_sp_sec_checkColumnConstraints {<BLOCK Name="fct.irtb00006_cod_mov_checkColumnConstraints">} #+ Check constraints on the "irtb00006.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00006_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE irtb00006.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_mov IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_mov: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00006_cod_mov_checkColumnConstraints {<BLOCK Name="fct.irtb00006_maquina_checkColumnConstraints">} #+ Check constraints on the "irtb00006.maquina" column #+ #+ @param p_maquina - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00006_maquina_checkColumnConstraints(p_maquina) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_maquina LIKE irtb00006.maquina LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00006_maquina_checkColumnConstraints {<BLOCK Name="fct.irtb00006_cod_n_checkColumnConstraints">} #+ Check constraints on the "irtb00006.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00006_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE irtb00006.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00006_cod_n_checkColumnConstraints {<BLOCK Name="fct.irtb00006_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "irtb00006.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00006_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE irtb00006.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00006_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.irtb00006_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "irtb00006.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00006_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE irtb00006.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00006_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.irtb00006_cod_sec_checkColumnConstraints">} #+ Check constraints on the "irtb00006.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00006_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE irtb00006.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00006_cod_sec_checkColumnConstraints {<BLOCK Name="fct.irtb00006_cantidad_1_checkColumnConstraints">} #+ Check constraints on the "irtb00006.cantidad_1" column #+ #+ @param p_cantidad_1 - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00006_cantidad_1_checkColumnConstraints(p_cantidad_1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad_1 LIKE irtb00006.cantidad_1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00006_cantidad_1_checkColumnConstraints {<BLOCK Name="fct.irtb00006_cantidad_2_checkColumnConstraints">} #+ Check constraints on the "irtb00006.cantidad_2" column #+ #+ @param p_cantidad_2 - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00006_cantidad_2_checkColumnConstraints(p_cantidad_2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad_2 LIKE irtb00006.cantidad_2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00006_cantidad_2_checkColumnConstraints {<BLOCK Name="fct.irtb00006_sec_de_checkColumnConstraints">} #+ Check constraints on the "irtb00006.sec_de" column #+ #+ @param p_sec_de - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00006_sec_de_checkColumnConstraints(p_sec_de) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_de LIKE irtb00006.sec_de LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00006_sec_de_checkColumnConstraints {<BLOCK Name="fct.irtb00006_sec_a_checkColumnConstraints">} #+ Check constraints on the "irtb00006.sec_a" column #+ #+ @param p_sec_a - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00006_sec_a_checkColumnConstraints(p_sec_a) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_a LIKE irtb00006.sec_a LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00006_sec_a_checkColumnConstraints {<BLOCK Name="fct.irtb00006_status_mov_checkColumnConstraints">} #+ Check constraints on the "irtb00006.status_mov" column #+ #+ @param p_status_mov - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00006_status_mov_checkColumnConstraints(p_status_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_mov LIKE irtb00006.status_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00006_status_mov_checkColumnConstraints {<BLOCK Name="fct.irtb00006_status_t_checkColumnConstraints">} #+ Check constraints on the "irtb00006.status_t" column #+ #+ @param p_status_t - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00006_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE irtb00006.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00006_status_t_checkColumnConstraints {<BLOCK Name="fct.irtb00006_us_crea_checkColumnConstraints">} #+ Check constraints on the "irtb00006.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00006_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE irtb00006.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00006_us_crea_checkColumnConstraints {<BLOCK Name="fct.irtb00006_fech_crea_checkColumnConstraints">} #+ Check constraints on the "irtb00006.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00006_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE irtb00006.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00006_fech_crea_checkColumnConstraints {<BLOCK Name="fct.irtb00006_us_mod_checkColumnConstraints">} #+ Check constraints on the "irtb00006.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00006_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE irtb00006.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00006_us_mod_checkColumnConstraints {<BLOCK Name="fct.irtb00006_fech_mod_checkColumnConstraints">} #+ Check constraints on the "irtb00006.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00006_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE irtb00006.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00006_fech_mod_checkColumnConstraints {<BLOCK Name="fct.irtb00006_bodega_checkColumnConstraints">} #+ Check constraints on the "irtb00006.bodega" column #+ #+ @param p_bodega - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00006_bodega_checkColumnConstraints(p_bodega) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_bodega LIKE irtb00006.bodega LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00006_bodega_checkColumnConstraints {<BLOCK Name="fct.irtb00005_checkTableConstraints">} #+ Check constraints on the "irtb00005" table #+ #+ @param p_data - a row data LIKE irtb00005.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00005_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE irtb00005.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_irtb00005_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00005_descrip_mov_checkColumnConstraints(p_data.descrip_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00005_status_mov_checkColumnConstraints(p_data.status_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00005_cuenta_1_checkColumnConstraints(p_data.cuenta_1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00005_cuenta_2_checkColumnConstraints(p_data.cuenta_2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00005_cuenta_3_checkColumnConstraints(p_data.cuenta_3) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00005_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00005_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00005_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00005_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00005_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00005_checkTableConstraints {<BLOCK Name="fct.irtb00005_cod_mov_checkColumnConstraints">} #+ Check constraints on the "irtb00005.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00005_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE irtb00005.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_mov IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_mov: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00005_cod_mov_checkColumnConstraints {<BLOCK Name="fct.irtb00005_descrip_mov_checkColumnConstraints">} #+ Check constraints on the "irtb00005.descrip_mov" column #+ #+ @param p_descrip_mov - VARCHAR2(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00005_descrip_mov_checkColumnConstraints(p_descrip_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip_mov LIKE irtb00005.descrip_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00005_descrip_mov_checkColumnConstraints {<BLOCK Name="fct.irtb00005_status_mov_checkColumnConstraints">} #+ Check constraints on the "irtb00005.status_mov" column #+ #+ @param p_status_mov - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00005_status_mov_checkColumnConstraints(p_status_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_mov LIKE irtb00005.status_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00005_status_mov_checkColumnConstraints {<BLOCK Name="fct.irtb00005_cuenta_1_checkColumnConstraints">} #+ Check constraints on the "irtb00005.cuenta_1" column #+ #+ @param p_cuenta_1 - VARCHAR2(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00005_cuenta_1_checkColumnConstraints(p_cuenta_1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_1 LIKE irtb00005.cuenta_1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00005_cuenta_1_checkColumnConstraints {<BLOCK Name="fct.irtb00005_cuenta_2_checkColumnConstraints">} #+ Check constraints on the "irtb00005.cuenta_2" column #+ #+ @param p_cuenta_2 - VARCHAR2(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00005_cuenta_2_checkColumnConstraints(p_cuenta_2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_2 LIKE irtb00005.cuenta_2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00005_cuenta_2_checkColumnConstraints {<BLOCK Name="fct.irtb00005_cuenta_3_checkColumnConstraints">} #+ Check constraints on the "irtb00005.cuenta_3" column #+ #+ @param p_cuenta_3 - VARCHAR2(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00005_cuenta_3_checkColumnConstraints(p_cuenta_3) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_3 LIKE irtb00005.cuenta_3 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00005_cuenta_3_checkColumnConstraints {<BLOCK Name="fct.irtb00005_status_t_checkColumnConstraints">} #+ Check constraints on the "irtb00005.status_t" column #+ #+ @param p_status_t - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00005_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE irtb00005.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00005_status_t_checkColumnConstraints {<BLOCK Name="fct.irtb00005_us_crea_checkColumnConstraints">} #+ Check constraints on the "irtb00005.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00005_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE irtb00005.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00005_us_crea_checkColumnConstraints {<BLOCK Name="fct.irtb00005_fech_crea_checkColumnConstraints">} #+ Check constraints on the "irtb00005.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00005_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE irtb00005.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00005_fech_crea_checkColumnConstraints {<BLOCK Name="fct.irtb00005_us_mod_checkColumnConstraints">} #+ Check constraints on the "irtb00005.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00005_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE irtb00005.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00005_us_mod_checkColumnConstraints {<BLOCK Name="fct.irtb00005_fech_mod_checkColumnConstraints">} #+ Check constraints on the "irtb00005.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00005_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE irtb00005.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00005_fech_mod_checkColumnConstraints {<BLOCK Name="fct.irtb00002_checkTableConstraints">} #+ Check constraints on the "irtb00002" table #+ #+ @param p_data - a row data LIKE irtb00002.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00002_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE irtb00002.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_irtb00002_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00002_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00002_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00002_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00002_descrip_esp_checkColumnConstraints(p_data.descrip_esp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00002_descrip_ing_checkColumnConstraints(p_data.descrip_ing) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00002_unidad_med_checkColumnConstraints(p_data.unidad_med) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00002_existencia_checkColumnConstraints(p_data.existencia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00002_exist_min_checkColumnConstraints(p_data.exist_min) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00002_dia_llegada_checkColumnConstraints(p_data.dia_llegada) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00002_categoria_checkColumnConstraints(p_data.categoria) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00002_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00002_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00002_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00002_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00002_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00002_pk_irtb00002_checkUniqueConstraint(p_forUpdate, p_data.cod_n, p_data.cod_grupo, p_data.cod_tipo, p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00002_checkTableConstraints {<BLOCK Name="fct.irtb00002_pk_irtb00002_checkUniqueConstraint">} #+ Check the primary key uniqueness constraint on the "irtb00002" #+ #+ @param p_key - Primary Key #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00002_pk_irtb00002_checkUniqueConstraint(p_forUpdate, p_key) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_forUpdate BOOLEAN DEFINE p_key RECORD irtb00002_cod_n LIKE irtb00002.cod_n, irtb00002_cod_grupo LIKE irtb00002.cod_grupo, irtb00002_cod_tipo LIKE irtb00002.cod_tipo, irtb00002_cod_sec LIKE irtb00002.cod_sec END RECORD DEFINE l_key RECORD irtb00002_cod_n LIKE irtb00002.cod_n, irtb00002_cod_grupo LIKE irtb00002.cod_grupo, irtb00002_cod_tipo LIKE irtb00002.cod_tipo, irtb00002_cod_sec LIKE irtb00002.cod_sec 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 irtb00002.cod_n = ? AND irtb00002.cod_grupo = ? AND irtb00002.cod_tipo = ? AND irtb00002.cod_sec = ? " let l_sqlQuery = "SELECT COUNT(*), cod_n, cod_grupo, cod_tipo, cod_sec FROM irtb00002 ", l_where, " GROUP BY cod_n, cod_grupo, cod_tipo, cod_sec" PREPARE cur_irtb00002_pk_irtb00002_checkUniqueConstraint FROM l_sqlQuery EXECUTE cur_irtb00002_pk_irtb00002_checkUniqueConstraint INTO l_count, l_key.* USING p_key.* FREE cur_irtb00002_pk_irtb00002_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- cod_n + cod_grupo + cod_tipo + cod_sec: " || ERROR_BAM_00002) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00002_pk_irtb00002_checkUniqueConstraint {<BLOCK Name="fct.irtb00002_cod_n_checkColumnConstraints">} #+ Check constraints on the "irtb00002.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00002_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE irtb00002.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00002_cod_n_checkColumnConstraints {<BLOCK Name="fct.irtb00002_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "irtb00002.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00002_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE irtb00002.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_grupo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_grupo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00002_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.irtb00002_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "irtb00002.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00002_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE irtb00002.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tipo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tipo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00002_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.irtb00002_cod_sec_checkColumnConstraints">} #+ Check constraints on the "irtb00002.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00002_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE irtb00002.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00002_cod_sec_checkColumnConstraints {<BLOCK Name="fct.irtb00002_descrip_esp_checkColumnConstraints">} #+ Check constraints on the "irtb00002.descrip_esp" column #+ #+ @param p_descrip_esp - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00002_descrip_esp_checkColumnConstraints(p_descrip_esp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip_esp LIKE irtb00002.descrip_esp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00002_descrip_esp_checkColumnConstraints {<BLOCK Name="fct.irtb00002_descrip_ing_checkColumnConstraints">} #+ Check constraints on the "irtb00002.descrip_ing" column #+ #+ @param p_descrip_ing - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00002_descrip_ing_checkColumnConstraints(p_descrip_ing) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip_ing LIKE irtb00002.descrip_ing LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00002_descrip_ing_checkColumnConstraints {<BLOCK Name="fct.irtb00002_unidad_med_checkColumnConstraints">} #+ Check constraints on the "irtb00002.unidad_med" column #+ #+ @param p_unidad_med - CHAR(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00002_unidad_med_checkColumnConstraints(p_unidad_med) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_unidad_med LIKE irtb00002.unidad_med LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00002_unidad_med_checkColumnConstraints {<BLOCK Name="fct.irtb00002_existencia_checkColumnConstraints">} #+ Check constraints on the "irtb00002.existencia" column #+ #+ @param p_existencia - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00002_existencia_checkColumnConstraints(p_existencia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_existencia LIKE irtb00002.existencia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00002_existencia_checkColumnConstraints {<BLOCK Name="fct.irtb00002_exist_min_checkColumnConstraints">} #+ Check constraints on the "irtb00002.exist_min" column #+ #+ @param p_exist_min - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00002_exist_min_checkColumnConstraints(p_exist_min) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_exist_min LIKE irtb00002.exist_min LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00002_exist_min_checkColumnConstraints {<BLOCK Name="fct.irtb00002_dia_llegada_checkColumnConstraints">} #+ Check constraints on the "irtb00002.dia_llegada" column #+ #+ @param p_dia_llegada - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00002_dia_llegada_checkColumnConstraints(p_dia_llegada) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_dia_llegada LIKE irtb00002.dia_llegada LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00002_dia_llegada_checkColumnConstraints {<BLOCK Name="fct.irtb00002_categoria_checkColumnConstraints">} #+ Check constraints on the "irtb00002.categoria" column #+ #+ @param p_categoria - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00002_categoria_checkColumnConstraints(p_categoria) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_categoria LIKE irtb00002.categoria LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00002_categoria_checkColumnConstraints {<BLOCK Name="fct.irtb00002_status_t_checkColumnConstraints">} #+ Check constraints on the "irtb00002.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00002_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE irtb00002.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00002_status_t_checkColumnConstraints {<BLOCK Name="fct.irtb00002_us_crea_checkColumnConstraints">} #+ Check constraints on the "irtb00002.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00002_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE irtb00002.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00002_us_crea_checkColumnConstraints {<BLOCK Name="fct.irtb00002_fech_crea_checkColumnConstraints">} #+ Check constraints on the "irtb00002.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00002_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE irtb00002.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00002_fech_crea_checkColumnConstraints {<BLOCK Name="fct.irtb00002_us_mod_checkColumnConstraints">} #+ Check constraints on the "irtb00002.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00002_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE irtb00002.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00002_us_mod_checkColumnConstraints {<BLOCK Name="fct.irtb00002_fech_mod_checkColumnConstraints">} #+ Check constraints on the "irtb00002.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00002_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE irtb00002.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00002_fech_mod_checkColumnConstraints {<BLOCK Name="fct.irtb00001_checkTableConstraints">} #+ Check constraints on the "irtb00001" table #+ #+ @param p_data - a row data LIKE irtb00001.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00001_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE irtb00001.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_irtb00001_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00001_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00001_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00001_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00001_descrip_esp_checkColumnConstraints(p_data.descrip_esp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00001_descrip_ing_checkColumnConstraints(p_data.descrip_ing) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00001_unidad_med_checkColumnConstraints(p_data.unidad_med) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00001_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00001_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00001_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00001_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_irtb00001_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00001_checkTableConstraints {<BLOCK Name="fct.irtb00001_cod_n_checkColumnConstraints">} #+ Check constraints on the "irtb00001.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00001_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE irtb00001.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00001_cod_n_checkColumnConstraints {<BLOCK Name="fct.irtb00001_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "irtb00001.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00001_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE irtb00001.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_grupo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_grupo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00001_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.irtb00001_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "irtb00001.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00001_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE irtb00001.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tipo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tipo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00001_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.irtb00001_cod_sec_checkColumnConstraints">} #+ Check constraints on the "irtb00001.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00001_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE irtb00001.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00001_cod_sec_checkColumnConstraints {<BLOCK Name="fct.irtb00001_descrip_esp_checkColumnConstraints">} #+ Check constraints on the "irtb00001.descrip_esp" column #+ #+ @param p_descrip_esp - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00001_descrip_esp_checkColumnConstraints(p_descrip_esp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip_esp LIKE irtb00001.descrip_esp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_descrip_esp IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- descrip_esp: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00001_descrip_esp_checkColumnConstraints {<BLOCK Name="fct.irtb00001_descrip_ing_checkColumnConstraints">} #+ Check constraints on the "irtb00001.descrip_ing" column #+ #+ @param p_descrip_ing - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00001_descrip_ing_checkColumnConstraints(p_descrip_ing) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip_ing LIKE irtb00001.descrip_ing LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00001_descrip_ing_checkColumnConstraints {<BLOCK Name="fct.irtb00001_unidad_med_checkColumnConstraints">} #+ Check constraints on the "irtb00001.unidad_med" column #+ #+ @param p_unidad_med - CHAR(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00001_unidad_med_checkColumnConstraints(p_unidad_med) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_unidad_med LIKE irtb00001.unidad_med LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00001_unidad_med_checkColumnConstraints {<BLOCK Name="fct.irtb00001_status_t_checkColumnConstraints">} #+ Check constraints on the "irtb00001.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00001_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE irtb00001.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00001_status_t_checkColumnConstraints {<BLOCK Name="fct.irtb00001_us_crea_checkColumnConstraints">} #+ Check constraints on the "irtb00001.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00001_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE irtb00001.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00001_us_crea_checkColumnConstraints {<BLOCK Name="fct.irtb00001_fech_crea_checkColumnConstraints">} #+ Check constraints on the "irtb00001.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00001_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE irtb00001.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00001_fech_crea_checkColumnConstraints {<BLOCK Name="fct.irtb00001_us_mod_checkColumnConstraints">} #+ Check constraints on the "irtb00001.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00001_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE irtb00001.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00001_us_mod_checkColumnConstraints {<BLOCK Name="fct.irtb00001_fech_mod_checkColumnConstraints">} #+ Check constraints on the "irtb00001.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_irtb00001_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE irtb00001.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.irtb00001_fech_mod_checkColumnConstraints {<BLOCK Name="fct.ircodigos_checkTableConstraints">} #+ Check constraints on the "ircodigos" table #+ #+ @param p_data - a row data LIKE ircodigos.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_ircodigos_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE ircodigos.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_ircodigos_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ircodigos_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ircodigos_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ircodigos_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_ircodigos_cuenta_checkColumnConstraints(p_data.cuenta) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ircodigos_checkTableConstraints {<BLOCK Name="fct.ircodigos_cod_n_checkColumnConstraints">} #+ Check constraints on the "ircodigos.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ircodigos_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE ircodigos.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ircodigos_cod_n_checkColumnConstraints {<BLOCK Name="fct.ircodigos_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "ircodigos.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ircodigos_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE ircodigos.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ircodigos_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.ircodigos_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "ircodigos.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ircodigos_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE ircodigos.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ircodigos_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.ircodigos_cod_sec_checkColumnConstraints">} #+ Check constraints on the "ircodigos.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ircodigos_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE ircodigos.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ircodigos_cod_sec_checkColumnConstraints {<BLOCK Name="fct.ircodigos_cuenta_checkColumnConstraints">} #+ Check constraints on the "ircodigos.cuenta" column #+ #+ @param p_cuenta - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_ircodigos_cuenta_checkColumnConstraints(p_cuenta) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta LIKE ircodigos.cuenta LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.ircodigos_cuenta_checkColumnConstraints {<BLOCK Name="fct.iptbexistencia_checkTableConstraints">} #+ Check constraints on the "iptbexistencia" table #+ #+ @param p_data - a row data LIKE iptbexistencia.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_iptbexistencia_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE iptbexistencia.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_iptbexistencia_id_checkColumnConstraints(p_data.id) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptbexistencia_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptbexistencia_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptbexistencia_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptbexistencia_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptbexistencia_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptbexistencia_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptbexistencia_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptbexistencia_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptbexistencia_checkTableConstraints {<BLOCK Name="fct.iptbexistencia_id_checkColumnConstraints">} #+ Check constraints on the "iptbexistencia.id" column #+ #+ @param p_id - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptbexistencia_id_checkColumnConstraints(p_id) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_id LIKE iptbexistencia.id LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptbexistencia_id_checkColumnConstraints {<BLOCK Name="fct.iptbexistencia_cod_n_checkColumnConstraints">} #+ Check constraints on the "iptbexistencia.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptbexistencia_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE iptbexistencia.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptbexistencia_cod_n_checkColumnConstraints {<BLOCK Name="fct.iptbexistencia_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "iptbexistencia.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptbexistencia_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE iptbexistencia.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptbexistencia_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.iptbexistencia_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "iptbexistencia.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptbexistencia_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE iptbexistencia.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptbexistencia_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.iptbexistencia_cod_sec_checkColumnConstraints">} #+ Check constraints on the "iptbexistencia.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptbexistencia_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE iptbexistencia.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptbexistencia_cod_sec_checkColumnConstraints {<BLOCK Name="fct.iptbexistencia_num_doc_checkColumnConstraints">} #+ Check constraints on the "iptbexistencia.num_doc" column #+ #+ @param p_num_doc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptbexistencia_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE iptbexistencia.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptbexistencia_num_doc_checkColumnConstraints {<BLOCK Name="fct.iptbexistencia_cantidad_checkColumnConstraints">} #+ Check constraints on the "iptbexistencia.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptbexistencia_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE iptbexistencia.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptbexistencia_cantidad_checkColumnConstraints {<BLOCK Name="fct.iptbexistencia_fech_crea_checkColumnConstraints">} #+ Check constraints on the "iptbexistencia.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptbexistencia_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE iptbexistencia.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptbexistencia_fech_crea_checkColumnConstraints {<BLOCK Name="fct.iptbexistencia_us_crea_checkColumnConstraints">} #+ Check constraints on the "iptbexistencia.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptbexistencia_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE iptbexistencia.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptbexistencia_us_crea_checkColumnConstraints {<BLOCK Name="fct.iptb025_checkTableConstraints">} #+ Check constraints on the "iptb025" table #+ #+ @param p_data - a row data LIKE iptb025.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_iptb025_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE iptb025.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_iptb025_etiqueta_checkColumnConstraints(p_data.etiqueta) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb025_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb025_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb025_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb025_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb025_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb025_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb025_lado_1_checkColumnConstraints(p_data.lado_1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb025_lado_2_checkColumnConstraints(p_data.lado_2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb025_lado_3_checkColumnConstraints(p_data.lado_3) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb025_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb025_medida_checkColumnConstraints(p_data.medida) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb025_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb025_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb025_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb025_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb025_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb025_checkTableConstraints {<BLOCK Name="fct.iptb025_etiqueta_checkColumnConstraints">} #+ Check constraints on the "iptb025.etiqueta" column #+ #+ @param p_etiqueta - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb025_etiqueta_checkColumnConstraints(p_etiqueta) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_etiqueta LIKE iptb025.etiqueta LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb025_etiqueta_checkColumnConstraints {<BLOCK Name="fct.iptb025_cod_mov_checkColumnConstraints">} #+ Check constraints on the "iptb025.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb025_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE iptb025.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb025_cod_mov_checkColumnConstraints {<BLOCK Name="fct.iptb025_num_doc_checkColumnConstraints">} #+ Check constraints on the "iptb025.num_doc" column #+ #+ @param p_num_doc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb025_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE iptb025.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb025_num_doc_checkColumnConstraints {<BLOCK Name="fct.iptb025_cod_n_checkColumnConstraints">} #+ Check constraints on the "iptb025.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb025_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE iptb025.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb025_cod_n_checkColumnConstraints {<BLOCK Name="fct.iptb025_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "iptb025.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb025_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE iptb025.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb025_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.iptb025_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "iptb025.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb025_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE iptb025.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb025_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.iptb025_cod_sec_checkColumnConstraints">} #+ Check constraints on the "iptb025.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb025_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE iptb025.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb025_cod_sec_checkColumnConstraints {<BLOCK Name="fct.iptb025_lado_1_checkColumnConstraints">} #+ Check constraints on the "iptb025.lado_1" column #+ #+ @param p_lado_1 - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb025_lado_1_checkColumnConstraints(p_lado_1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_lado_1 LIKE iptb025.lado_1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb025_lado_1_checkColumnConstraints {<BLOCK Name="fct.iptb025_lado_2_checkColumnConstraints">} #+ Check constraints on the "iptb025.lado_2" column #+ #+ @param p_lado_2 - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb025_lado_2_checkColumnConstraints(p_lado_2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_lado_2 LIKE iptb025.lado_2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb025_lado_2_checkColumnConstraints {<BLOCK Name="fct.iptb025_lado_3_checkColumnConstraints">} #+ Check constraints on the "iptb025.lado_3" column #+ #+ @param p_lado_3 - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb025_lado_3_checkColumnConstraints(p_lado_3) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_lado_3 LIKE iptb025.lado_3 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb025_lado_3_checkColumnConstraints {<BLOCK Name="fct.iptb025_cantidad_checkColumnConstraints">} #+ Check constraints on the "iptb025.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb025_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE iptb025.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb025_cantidad_checkColumnConstraints {<BLOCK Name="fct.iptb025_medida_checkColumnConstraints">} #+ Check constraints on the "iptb025.medida" column #+ #+ @param p_medida - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb025_medida_checkColumnConstraints(p_medida) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_medida LIKE iptb025.medida LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb025_medida_checkColumnConstraints {<BLOCK Name="fct.iptb025_status_t_checkColumnConstraints">} #+ Check constraints on the "iptb025.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb025_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE iptb025.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb025_status_t_checkColumnConstraints {<BLOCK Name="fct.iptb025_us_crea_checkColumnConstraints">} #+ Check constraints on the "iptb025.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb025_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE iptb025.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb025_us_crea_checkColumnConstraints {<BLOCK Name="fct.iptb025_fech_crea_checkColumnConstraints">} #+ Check constraints on the "iptb025.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb025_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE iptb025.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb025_fech_crea_checkColumnConstraints {<BLOCK Name="fct.iptb025_us_mod_checkColumnConstraints">} #+ Check constraints on the "iptb025.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb025_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE iptb025.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb025_us_mod_checkColumnConstraints {<BLOCK Name="fct.iptb025_fech_mod_checkColumnConstraints">} #+ Check constraints on the "iptb025.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb025_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE iptb025.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb025_fech_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00047_checkTableConstraints">} #+ Check constraints on the "iptb00047" table #+ #+ @param p_data - a row data LIKE iptb00047.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00047_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE iptb00047.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_iptb00047_id_ficha_checkColumnConstraints(p_data.id_ficha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00047_instalacion_checkColumnConstraints(p_data.instalacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00047_secuencia_checkColumnConstraints(p_data.secuencia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00047_checkTableConstraints {<BLOCK Name="fct.iptb00047_id_ficha_checkColumnConstraints">} #+ Check constraints on the "iptb00047.id_ficha" column #+ #+ @param p_id_ficha - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00047_id_ficha_checkColumnConstraints(p_id_ficha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_id_ficha LIKE iptb00047.id_ficha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00047_id_ficha_checkColumnConstraints {<BLOCK Name="fct.iptb00047_instalacion_checkColumnConstraints">} #+ Check constraints on the "iptb00047.instalacion" column #+ #+ @param p_instalacion - TEXT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00047_instalacion_checkColumnConstraints(p_instalacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_instalacion LIKE iptb00047.instalacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00047_instalacion_checkColumnConstraints {<BLOCK Name="fct.iptb00047_secuencia_checkColumnConstraints">} #+ Check constraints on the "iptb00047.secuencia" column #+ #+ @param p_secuencia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00047_secuencia_checkColumnConstraints(p_secuencia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_secuencia LIKE iptb00047.secuencia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00047_secuencia_checkColumnConstraints {<BLOCK Name="fct.iptb00046_checkTableConstraints">} #+ Check constraints on the "iptb00046" table #+ #+ @param p_data - a row data LIKE iptb00046.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00046_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE iptb00046.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_iptb00046_id_ficha_checkColumnConstraints(p_data.id_ficha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00046_foto_producto_checkColumnConstraints(p_data.foto_producto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00046_secuencia_checkColumnConstraints(p_data.secuencia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00046_checkTableConstraints {<BLOCK Name="fct.iptb00046_id_ficha_checkColumnConstraints">} #+ Check constraints on the "iptb00046.id_ficha" column #+ #+ @param p_id_ficha - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00046_id_ficha_checkColumnConstraints(p_id_ficha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_id_ficha LIKE iptb00046.id_ficha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00046_id_ficha_checkColumnConstraints {<BLOCK Name="fct.iptb00046_foto_producto_checkColumnConstraints">} #+ Check constraints on the "iptb00046.foto_producto" column #+ #+ @param p_foto_producto - CHAR(200) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00046_foto_producto_checkColumnConstraints(p_foto_producto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_foto_producto LIKE iptb00046.foto_producto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00046_foto_producto_checkColumnConstraints {<BLOCK Name="fct.iptb00046_secuencia_checkColumnConstraints">} #+ Check constraints on the "iptb00046.secuencia" column #+ #+ @param p_secuencia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00046_secuencia_checkColumnConstraints(p_secuencia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_secuencia LIKE iptb00046.secuencia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00046_secuencia_checkColumnConstraints {<BLOCK Name="fct.iptb00045_checkTableConstraints">} #+ Check constraints on the "iptb00045" table #+ #+ @param p_data - a row data LIKE iptb00045.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00045_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE iptb00045.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_iptb00045_id_ficha_checkColumnConstraints(p_data.id_ficha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00045_caracteristicas_checkColumnConstraints(p_data.caracteristicas) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00045_secuencia_checkColumnConstraints(p_data.secuencia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00045_checkTableConstraints {<BLOCK Name="fct.iptb00045_id_ficha_checkColumnConstraints">} #+ Check constraints on the "iptb00045.id_ficha" column #+ #+ @param p_id_ficha - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00045_id_ficha_checkColumnConstraints(p_id_ficha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_id_ficha LIKE iptb00045.id_ficha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00045_id_ficha_checkColumnConstraints {<BLOCK Name="fct.iptb00045_caracteristicas_checkColumnConstraints">} #+ Check constraints on the "iptb00045.caracteristicas" column #+ #+ @param p_caracteristicas - BYTE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00045_caracteristicas_checkColumnConstraints(p_caracteristicas) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_caracteristicas LIKE iptb00045.caracteristicas LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00045_caracteristicas_checkColumnConstraints {<BLOCK Name="fct.iptb00045_secuencia_checkColumnConstraints">} #+ Check constraints on the "iptb00045.secuencia" column #+ #+ @param p_secuencia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00045_secuencia_checkColumnConstraints(p_secuencia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_secuencia LIKE iptb00045.secuencia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00045_secuencia_checkColumnConstraints {<BLOCK Name="fct.iptb00044_checkTableConstraints">} #+ Check constraints on the "iptb00044" table #+ #+ @param p_data - a row data LIKE iptb00044.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00044_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE iptb00044.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_iptb00044_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00044_cod_provincia_checkColumnConstraints(p_data.cod_provincia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00044_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00044_tipo_checkColumnConstraints(p_data.tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00044_id_ficha_checkColumnConstraints(p_data.id_ficha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00044_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00044_us_crera_checkColumnConstraints(p_data.us_crera) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00044_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00044_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00044_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00044_checkTableConstraints {<BLOCK Name="fct.iptb00044_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "iptb00044.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00044_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE iptb00044.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00044_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.iptb00044_cod_provincia_checkColumnConstraints">} #+ Check constraints on the "iptb00044.cod_provincia" column #+ #+ @param p_cod_provincia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00044_cod_provincia_checkColumnConstraints(p_cod_provincia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_provincia LIKE iptb00044.cod_provincia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00044_cod_provincia_checkColumnConstraints {<BLOCK Name="fct.iptb00044_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "iptb00044.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00044_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE iptb00044.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00044_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.iptb00044_tipo_checkColumnConstraints">} #+ Check constraints on the "iptb00044.tipo" column #+ #+ @param p_tipo - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00044_tipo_checkColumnConstraints(p_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo LIKE iptb00044.tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00044_tipo_checkColumnConstraints {<BLOCK Name="fct.iptb00044_id_ficha_checkColumnConstraints">} #+ Check constraints on the "iptb00044.id_ficha" column #+ #+ @param p_id_ficha - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00044_id_ficha_checkColumnConstraints(p_id_ficha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_id_ficha LIKE iptb00044.id_ficha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00044_id_ficha_checkColumnConstraints {<BLOCK Name="fct.iptb00044_status_t_checkColumnConstraints">} #+ Check constraints on the "iptb00044.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00044_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE iptb00044.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00044_status_t_checkColumnConstraints {<BLOCK Name="fct.iptb00044_us_crera_checkColumnConstraints">} #+ Check constraints on the "iptb00044.us_crera" column #+ #+ @param p_us_crera - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00044_us_crera_checkColumnConstraints(p_us_crera) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crera LIKE iptb00044.us_crera LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00044_us_crera_checkColumnConstraints {<BLOCK Name="fct.iptb00044_fech_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00044.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00044_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE iptb00044.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00044_fech_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00044_us_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00044.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00044_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE iptb00044.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00044_us_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00044_fech_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00044.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00044_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE iptb00044.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00044_fech_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00043_checkTableConstraints">} #+ Check constraints on the "iptb00043" table #+ #+ @param p_data - a row data LIKE iptb00043.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00043_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE iptb00043.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_iptb00043_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00043_usuario_checkColumnConstraints(p_data.usuario) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00043_checkTableConstraints {<BLOCK Name="fct.iptb00043_num_doc_checkColumnConstraints">} #+ Check constraints on the "iptb00043.num_doc" column #+ #+ @param p_num_doc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00043_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE iptb00043.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00043_num_doc_checkColumnConstraints {<BLOCK Name="fct.iptb00043_usuario_checkColumnConstraints">} #+ Check constraints on the "iptb00043.usuario" column #+ #+ @param p_usuario - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00043_usuario_checkColumnConstraints(p_usuario) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_usuario LIKE iptb00043.usuario LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00043_usuario_checkColumnConstraints {<BLOCK Name="fct.iptb00042_checkTableConstraints">} #+ Check constraints on the "iptb00042" table #+ #+ @param p_data - a row data LIKE iptb00042.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00042_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE iptb00042.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_iptb00042_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00042_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00042_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00042_bodega_checkColumnConstraints(p_data.bodega) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00042_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00042_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00042_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00042_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00042_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00042_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00042_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00042_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00042_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00042_checkTableConstraints {<BLOCK Name="fct.iptb00042_num_doc_checkColumnConstraints">} #+ Check constraints on the "iptb00042.num_doc" column #+ #+ @param p_num_doc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00042_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE iptb00042.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00042_num_doc_checkColumnConstraints {<BLOCK Name="fct.iptb00042_fecha_checkColumnConstraints">} #+ Check constraints on the "iptb00042.fecha" column #+ #+ @param p_fecha - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00042_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE iptb00042.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00042_fecha_checkColumnConstraints {<BLOCK Name="fct.iptb00042_cod_mov_checkColumnConstraints">} #+ Check constraints on the "iptb00042.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00042_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE iptb00042.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00042_cod_mov_checkColumnConstraints {<BLOCK Name="fct.iptb00042_bodega_checkColumnConstraints">} #+ Check constraints on the "iptb00042.bodega" column #+ #+ @param p_bodega - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00042_bodega_checkColumnConstraints(p_bodega) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_bodega LIKE iptb00042.bodega LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00042_bodega_checkColumnConstraints {<BLOCK Name="fct.iptb00042_cod_n_checkColumnConstraints">} #+ Check constraints on the "iptb00042.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00042_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE iptb00042.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00042_cod_n_checkColumnConstraints {<BLOCK Name="fct.iptb00042_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "iptb00042.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00042_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE iptb00042.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00042_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.iptb00042_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "iptb00042.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00042_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE iptb00042.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00042_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.iptb00042_cod_sec_checkColumnConstraints">} #+ Check constraints on the "iptb00042.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00042_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE iptb00042.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00042_cod_sec_checkColumnConstraints {<BLOCK Name="fct.iptb00042_cantidad_checkColumnConstraints">} #+ Check constraints on the "iptb00042.cantidad" column #+ #+ @param p_cantidad - DECIMAL(18,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00042_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE iptb00042.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00042_cantidad_checkColumnConstraints {<BLOCK Name="fct.iptb00042_us_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00042.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00042_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE iptb00042.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00042_us_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00042_fech_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00042.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00042_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE iptb00042.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00042_fech_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00042_us_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00042.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00042_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE iptb00042.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00042_us_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00042_fech_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00042.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00042_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE iptb00042.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00042_fech_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00041_checkTableConstraints">} #+ Check constraints on the "iptb00041" table #+ #+ @param p_data - a row data LIKE iptb00041.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00041_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE iptb00041.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_iptb00041_fecha_act_checkColumnConstraints(p_data.fecha_act) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00041_idtrx_checkColumnConstraints(p_data.idtrx) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00041_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00041_bodega_checkColumnConstraints(p_data.bodega) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00041_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00041_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00041_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00041_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00041_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00041_balance_checkColumnConstraints(p_data.balance) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00041_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00041_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00041_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00041_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00041_checkTableConstraints {<BLOCK Name="fct.iptb00041_fecha_act_checkColumnConstraints">} #+ Check constraints on the "iptb00041.fecha_act" column #+ #+ @param p_fecha_act - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00041_fecha_act_checkColumnConstraints(p_fecha_act) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_act LIKE iptb00041.fecha_act LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00041_fecha_act_checkColumnConstraints {<BLOCK Name="fct.iptb00041_idtrx_checkColumnConstraints">} #+ Check constraints on the "iptb00041.idtrx" column #+ #+ @param p_idtrx - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00041_idtrx_checkColumnConstraints(p_idtrx) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_idtrx LIKE iptb00041.idtrx LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00041_idtrx_checkColumnConstraints {<BLOCK Name="fct.iptb00041_fecha_checkColumnConstraints">} #+ Check constraints on the "iptb00041.fecha" column #+ #+ @param p_fecha - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00041_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE iptb00041.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00041_fecha_checkColumnConstraints {<BLOCK Name="fct.iptb00041_bodega_checkColumnConstraints">} #+ Check constraints on the "iptb00041.bodega" column #+ #+ @param p_bodega - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00041_bodega_checkColumnConstraints(p_bodega) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_bodega LIKE iptb00041.bodega LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00041_bodega_checkColumnConstraints {<BLOCK Name="fct.iptb00041_cod_n_checkColumnConstraints">} #+ Check constraints on the "iptb00041.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00041_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE iptb00041.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00041_cod_n_checkColumnConstraints {<BLOCK Name="fct.iptb00041_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "iptb00041.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00041_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE iptb00041.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00041_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.iptb00041_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "iptb00041.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00041_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE iptb00041.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00041_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.iptb00041_cod_sec_checkColumnConstraints">} #+ Check constraints on the "iptb00041.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00041_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE iptb00041.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00041_cod_sec_checkColumnConstraints {<BLOCK Name="fct.iptb00041_cantidad_checkColumnConstraints">} #+ Check constraints on the "iptb00041.cantidad" column #+ #+ @param p_cantidad - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00041_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE iptb00041.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00041_cantidad_checkColumnConstraints {<BLOCK Name="fct.iptb00041_balance_checkColumnConstraints">} #+ Check constraints on the "iptb00041.balance" column #+ #+ @param p_balance - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00041_balance_checkColumnConstraints(p_balance) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_balance LIKE iptb00041.balance LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00041_balance_checkColumnConstraints {<BLOCK Name="fct.iptb00041_us_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00041.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00041_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE iptb00041.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00041_us_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00041_fech_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00041.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00041_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE iptb00041.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00041_fech_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00041_us_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00041.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00041_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE iptb00041.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00041_us_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00041_fech_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00041.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00041_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE iptb00041.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00041_fech_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00040_checkTableConstraints">} #+ Check constraints on the "iptb00040" table #+ #+ @param p_data - a row data LIKE iptb00040.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00040_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE iptb00040.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_iptb00040_fecha_act_checkColumnConstraints(p_data.fecha_act) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00040_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00040_bodega_checkColumnConstraints(p_data.bodega) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00040_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00040_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00040_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00040_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00040_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00040_balance_checkColumnConstraints(p_data.balance) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00040_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00040_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00040_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00040_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00040_checkTableConstraints {<BLOCK Name="fct.iptb00040_fecha_act_checkColumnConstraints">} #+ Check constraints on the "iptb00040.fecha_act" column #+ #+ @param p_fecha_act - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00040_fecha_act_checkColumnConstraints(p_fecha_act) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_act LIKE iptb00040.fecha_act LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00040_fecha_act_checkColumnConstraints {<BLOCK Name="fct.iptb00040_fecha_checkColumnConstraints">} #+ Check constraints on the "iptb00040.fecha" column #+ #+ @param p_fecha - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00040_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE iptb00040.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00040_fecha_checkColumnConstraints {<BLOCK Name="fct.iptb00040_bodega_checkColumnConstraints">} #+ Check constraints on the "iptb00040.bodega" column #+ #+ @param p_bodega - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00040_bodega_checkColumnConstraints(p_bodega) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_bodega LIKE iptb00040.bodega LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00040_bodega_checkColumnConstraints {<BLOCK Name="fct.iptb00040_cod_n_checkColumnConstraints">} #+ Check constraints on the "iptb00040.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00040_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE iptb00040.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00040_cod_n_checkColumnConstraints {<BLOCK Name="fct.iptb00040_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "iptb00040.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00040_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE iptb00040.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00040_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.iptb00040_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "iptb00040.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00040_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE iptb00040.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00040_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.iptb00040_cod_sec_checkColumnConstraints">} #+ Check constraints on the "iptb00040.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00040_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE iptb00040.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00040_cod_sec_checkColumnConstraints {<BLOCK Name="fct.iptb00040_cantidad_checkColumnConstraints">} #+ Check constraints on the "iptb00040.cantidad" column #+ #+ @param p_cantidad - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00040_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE iptb00040.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00040_cantidad_checkColumnConstraints {<BLOCK Name="fct.iptb00040_balance_checkColumnConstraints">} #+ Check constraints on the "iptb00040.balance" column #+ #+ @param p_balance - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00040_balance_checkColumnConstraints(p_balance) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_balance LIKE iptb00040.balance LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00040_balance_checkColumnConstraints {<BLOCK Name="fct.iptb00040_us_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00040.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00040_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE iptb00040.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00040_us_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00040_fech_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00040.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00040_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE iptb00040.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00040_fech_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00040_us_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00040.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00040_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE iptb00040.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00040_us_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00040_fech_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00040.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00040_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE iptb00040.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00040_fech_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00033_checkTableConstraints">} #+ Check constraints on the "iptb00033" table #+ #+ @param p_data - a row data LIKE iptb00033.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00033_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE iptb00033.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_iptb00033_documento_checkColumnConstraints(p_data.documento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00033_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00033_codigo_checkColumnConstraints(p_data.codigo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00033_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00033_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00033_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00033_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00033_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00033_bodega_checkColumnConstraints(p_data.bodega) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00033_checkTableConstraints {<BLOCK Name="fct.iptb00033_documento_checkColumnConstraints">} #+ Check constraints on the "iptb00033.documento" column #+ #+ @param p_documento - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00033_documento_checkColumnConstraints(p_documento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_documento LIKE iptb00033.documento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_documento IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- documento: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00033_documento_checkColumnConstraints {<BLOCK Name="fct.iptb00033_fecha_checkColumnConstraints">} #+ Check constraints on the "iptb00033.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00033_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE iptb00033.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_fecha IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- fecha: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00033_fecha_checkColumnConstraints {<BLOCK Name="fct.iptb00033_codigo_checkColumnConstraints">} #+ Check constraints on the "iptb00033.codigo" column #+ #+ @param p_codigo - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00033_codigo_checkColumnConstraints(p_codigo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codigo LIKE iptb00033.codigo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_codigo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- codigo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00033_codigo_checkColumnConstraints {<BLOCK Name="fct.iptb00033_cod_n_checkColumnConstraints">} #+ Check constraints on the "iptb00033.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00033_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE iptb00033.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00033_cod_n_checkColumnConstraints {<BLOCK Name="fct.iptb00033_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "iptb00033.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00033_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE iptb00033.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_grupo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_grupo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00033_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.iptb00033_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "iptb00033.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00033_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE iptb00033.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tipo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tipo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00033_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.iptb00033_cod_sec_checkColumnConstraints">} #+ Check constraints on the "iptb00033.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00033_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE iptb00033.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00033_cod_sec_checkColumnConstraints {<BLOCK Name="fct.iptb00033_cantidad_checkColumnConstraints">} #+ Check constraints on the "iptb00033.cantidad" column #+ #+ @param p_cantidad - DECIMAL(18,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00033_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE iptb00033.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cantidad IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cantidad: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00033_cantidad_checkColumnConstraints {<BLOCK Name="fct.iptb00033_bodega_checkColumnConstraints">} #+ Check constraints on the "iptb00033.bodega" column #+ #+ @param p_bodega - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00033_bodega_checkColumnConstraints(p_bodega) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_bodega LIKE iptb00033.bodega LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_bodega IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- bodega: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00033_bodega_checkColumnConstraints {<BLOCK Name="fct.iptb00032_checkTableConstraints">} #+ Check constraints on the "iptb00032" table #+ #+ @param p_data - a row data LIKE iptb00032.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00032_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE iptb00032.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_iptb00032_documento_checkColumnConstraints(p_data.documento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00032_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00032_usuario_checkColumnConstraints(p_data.usuario) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00032_pk_iptb00032_checkUniqueConstraint(p_forUpdate, p_data.documento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00032_checkTableConstraints {<BLOCK Name="fct.iptb00032_pk_iptb00032_checkUniqueConstraint">} #+ Check the primary key uniqueness constraint on the "iptb00032" #+ #+ @param p_key - Primary Key #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00032_pk_iptb00032_checkUniqueConstraint(p_forUpdate, p_key) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_forUpdate BOOLEAN DEFINE p_key RECORD iptb00032_documento LIKE iptb00032.documento END RECORD DEFINE l_key RECORD iptb00032_documento LIKE iptb00032.documento 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 iptb00032.documento = ? " let l_sqlQuery = "SELECT COUNT(*), documento FROM iptb00032 ", l_where, " GROUP BY documento" PREPARE cur_iptb00032_pk_iptb00032_checkUniqueConstraint FROM l_sqlQuery EXECUTE cur_iptb00032_pk_iptb00032_checkUniqueConstraint INTO l_count, l_key.* USING p_key.* FREE cur_iptb00032_pk_iptb00032_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- documento: " || ERROR_BAM_00002) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00032_pk_iptb00032_checkUniqueConstraint {<BLOCK Name="fct.iptb00032_documento_checkColumnConstraints">} #+ Check constraints on the "iptb00032.documento" column #+ #+ @param p_documento - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00032_documento_checkColumnConstraints(p_documento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_documento LIKE iptb00032.documento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_documento IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- documento: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00032_documento_checkColumnConstraints {<BLOCK Name="fct.iptb00032_fecha_checkColumnConstraints">} #+ Check constraints on the "iptb00032.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00032_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE iptb00032.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_fecha IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- fecha: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00032_fecha_checkColumnConstraints {<BLOCK Name="fct.iptb00032_usuario_checkColumnConstraints">} #+ Check constraints on the "iptb00032.usuario" column #+ #+ @param p_usuario - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00032_usuario_checkColumnConstraints(p_usuario) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_usuario LIKE iptb00032.usuario LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_usuario IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- usuario: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00032_usuario_checkColumnConstraints {<BLOCK Name="fct.iptb00031_checkTableConstraints">} #+ Check constraints on the "iptb00031" table #+ #+ @param p_data - a row data LIKE iptb00031.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00031_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE iptb00031.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_iptb00031_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00031_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00031_checkTableConstraints {<BLOCK Name="fct.iptb00031_cod_sec_checkColumnConstraints">} #+ Check constraints on the "iptb00031.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00031_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE iptb00031.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00031_cod_sec_checkColumnConstraints {<BLOCK Name="fct.iptb00031_descripcion_checkColumnConstraints">} #+ Check constraints on the "iptb00031.descripcion" column #+ #+ @param p_descripcion - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00031_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE iptb00031.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00031_descripcion_checkColumnConstraints {<BLOCK Name="fct.iptb00030_checkTableConstraints">} #+ Check constraints on the "iptb00030" table #+ #+ @param p_data - a row data LIKE iptb00030.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00030_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE iptb00030.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_iptb00030_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00030_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00030_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00030_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00030_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00030_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00030_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00030_checkTableConstraints {<BLOCK Name="fct.iptb00030_cod_sec_checkColumnConstraints">} #+ Check constraints on the "iptb00030.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00030_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE iptb00030.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00030_cod_sec_checkColumnConstraints {<BLOCK Name="fct.iptb00030_descripcion_checkColumnConstraints">} #+ Check constraints on the "iptb00030.descripcion" column #+ #+ @param p_descripcion - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00030_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE iptb00030.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00030_descripcion_checkColumnConstraints {<BLOCK Name="fct.iptb00030_status_t_checkColumnConstraints">} #+ Check constraints on the "iptb00030.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00030_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE iptb00030.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00030_status_t_checkColumnConstraints {<BLOCK Name="fct.iptb00030_us_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00030.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00030_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE iptb00030.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00030_us_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00030_fech_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00030.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00030_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE iptb00030.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00030_fech_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00030_us_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00030.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00030_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE iptb00030.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00030_us_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00030_fech_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00030.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00030_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE iptb00030.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00030_fech_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00029_checkTableConstraints">} #+ Check constraints on the "iptb00029" table #+ #+ @param p_data - a row data LIKE iptb00029.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00029_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE iptb00029.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_iptb00029_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00029_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00029_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00029_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00029_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00029_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00029_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00029_checkTableConstraints {<BLOCK Name="fct.iptb00029_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "iptb00029.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00029_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE iptb00029.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00029_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.iptb00029_descripcion_checkColumnConstraints">} #+ Check constraints on the "iptb00029.descripcion" column #+ #+ @param p_descripcion - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00029_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE iptb00029.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00029_descripcion_checkColumnConstraints {<BLOCK Name="fct.iptb00029_status_t_checkColumnConstraints">} #+ Check constraints on the "iptb00029.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00029_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE iptb00029.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00029_status_t_checkColumnConstraints {<BLOCK Name="fct.iptb00029_us_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00029.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00029_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE iptb00029.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00029_us_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00029_fech_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00029.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00029_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE iptb00029.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00029_fech_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00029_us_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00029.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00029_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE iptb00029.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00029_us_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00029_fech_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00029.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00029_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE iptb00029.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00029_fech_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00028_checkTableConstraints">} #+ Check constraints on the "iptb00028" table #+ #+ @param p_data - a row data LIKE iptb00028.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00028_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE iptb00028.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_iptb00028_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00028_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00028_cod_mov1_checkColumnConstraints(p_data.cod_mov1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00028_entrada_checkColumnConstraints(p_data.entrada) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00028_checkTableConstraints {<BLOCK Name="fct.iptb00028_cod_mov_checkColumnConstraints">} #+ Check constraints on the "iptb00028.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00028_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE iptb00028.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00028_cod_mov_checkColumnConstraints {<BLOCK Name="fct.iptb00028_num_doc_checkColumnConstraints">} #+ Check constraints on the "iptb00028.num_doc" column #+ #+ @param p_num_doc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00028_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE iptb00028.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00028_num_doc_checkColumnConstraints {<BLOCK Name="fct.iptb00028_cod_mov1_checkColumnConstraints">} #+ Check constraints on the "iptb00028.cod_mov1" column #+ #+ @param p_cod_mov1 - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00028_cod_mov1_checkColumnConstraints(p_cod_mov1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov1 LIKE iptb00028.cod_mov1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00028_cod_mov1_checkColumnConstraints {<BLOCK Name="fct.iptb00028_entrada_checkColumnConstraints">} #+ Check constraints on the "iptb00028.entrada" column #+ #+ @param p_entrada - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00028_entrada_checkColumnConstraints(p_entrada) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_entrada LIKE iptb00028.entrada LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00028_entrada_checkColumnConstraints {<BLOCK Name="fct.iptb00027_checkTableConstraints">} #+ Check constraints on the "iptb00027" table #+ #+ @param p_data - a row data LIKE iptb00027.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00027_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE iptb00027.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_iptb00027_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00027_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00027_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00027_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00027_checkTableConstraints {<BLOCK Name="fct.iptb00027_cod_n_checkColumnConstraints">} #+ Check constraints on the "iptb00027.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00027_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE iptb00027.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00027_cod_n_checkColumnConstraints {<BLOCK Name="fct.iptb00027_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "iptb00027.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00027_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE iptb00027.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00027_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.iptb00027_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "iptb00027.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00027_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE iptb00027.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00027_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.iptb00027_cod_sec_checkColumnConstraints">} #+ Check constraints on the "iptb00027.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00027_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE iptb00027.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00027_cod_sec_checkColumnConstraints {<BLOCK Name="fct.iptb00026_checkTableConstraints">} #+ Check constraints on the "iptb00026" table #+ #+ @param p_data - a row data LIKE iptb00026.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00026_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE iptb00026.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_iptb00026_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00026_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00026_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00026_checkTableConstraints {<BLOCK Name="fct.iptb00026_cod_mov_checkColumnConstraints">} #+ Check constraints on the "iptb00026.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00026_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE iptb00026.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00026_cod_mov_checkColumnConstraints {<BLOCK Name="fct.iptb00026_num_doc_checkColumnConstraints">} #+ Check constraints on the "iptb00026.num_doc" column #+ #+ @param p_num_doc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00026_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE iptb00026.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00026_num_doc_checkColumnConstraints {<BLOCK Name="fct.iptb00026_departamento_checkColumnConstraints">} #+ Check constraints on the "iptb00026.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00026_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE iptb00026.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00026_departamento_checkColumnConstraints {<BLOCK Name="fct.iptb00025_checkTableConstraints">} #+ Check constraints on the "iptb00025" table #+ #+ @param p_data - a row data LIKE iptb00025.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00025_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE iptb00025.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_iptb00025_etiqueta_checkColumnConstraints(p_data.etiqueta) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00025_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00025_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00025_area_checkColumnConstraints(p_data.area) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00025_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00025_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00025_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00025_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00025_lado_1_checkColumnConstraints(p_data.lado_1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00025_lado_2_checkColumnConstraints(p_data.lado_2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00025_lado_3_checkColumnConstraints(p_data.lado_3) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00025_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00025_medida_checkColumnConstraints(p_data.medida) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00025_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00025_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00025_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00025_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00025_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00025_checkTableConstraints {<BLOCK Name="fct.iptb00025_etiqueta_checkColumnConstraints">} #+ Check constraints on the "iptb00025.etiqueta" column #+ #+ @param p_etiqueta - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00025_etiqueta_checkColumnConstraints(p_etiqueta) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_etiqueta LIKE iptb00025.etiqueta LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00025_etiqueta_checkColumnConstraints {<BLOCK Name="fct.iptb00025_cod_mov_checkColumnConstraints">} #+ Check constraints on the "iptb00025.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00025_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE iptb00025.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00025_cod_mov_checkColumnConstraints {<BLOCK Name="fct.iptb00025_num_doc_checkColumnConstraints">} #+ Check constraints on the "iptb00025.num_doc" column #+ #+ @param p_num_doc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00025_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE iptb00025.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00025_num_doc_checkColumnConstraints {<BLOCK Name="fct.iptb00025_area_checkColumnConstraints">} #+ Check constraints on the "iptb00025.area" column #+ #+ @param p_area - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00025_area_checkColumnConstraints(p_area) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_area LIKE iptb00025.area LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00025_area_checkColumnConstraints {<BLOCK Name="fct.iptb00025_cod_n_checkColumnConstraints">} #+ Check constraints on the "iptb00025.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00025_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE iptb00025.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00025_cod_n_checkColumnConstraints {<BLOCK Name="fct.iptb00025_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "iptb00025.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00025_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE iptb00025.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00025_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.iptb00025_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "iptb00025.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00025_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE iptb00025.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00025_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.iptb00025_cod_sec_checkColumnConstraints">} #+ Check constraints on the "iptb00025.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00025_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE iptb00025.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00025_cod_sec_checkColumnConstraints {<BLOCK Name="fct.iptb00025_lado_1_checkColumnConstraints">} #+ Check constraints on the "iptb00025.lado_1" column #+ #+ @param p_lado_1 - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00025_lado_1_checkColumnConstraints(p_lado_1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_lado_1 LIKE iptb00025.lado_1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00025_lado_1_checkColumnConstraints {<BLOCK Name="fct.iptb00025_lado_2_checkColumnConstraints">} #+ Check constraints on the "iptb00025.lado_2" column #+ #+ @param p_lado_2 - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00025_lado_2_checkColumnConstraints(p_lado_2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_lado_2 LIKE iptb00025.lado_2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00025_lado_2_checkColumnConstraints {<BLOCK Name="fct.iptb00025_lado_3_checkColumnConstraints">} #+ Check constraints on the "iptb00025.lado_3" column #+ #+ @param p_lado_3 - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00025_lado_3_checkColumnConstraints(p_lado_3) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_lado_3 LIKE iptb00025.lado_3 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00025_lado_3_checkColumnConstraints {<BLOCK Name="fct.iptb00025_cantidad_checkColumnConstraints">} #+ Check constraints on the "iptb00025.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00025_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE iptb00025.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00025_cantidad_checkColumnConstraints {<BLOCK Name="fct.iptb00025_medida_checkColumnConstraints">} #+ Check constraints on the "iptb00025.medida" column #+ #+ @param p_medida - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00025_medida_checkColumnConstraints(p_medida) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_medida LIKE iptb00025.medida LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00025_medida_checkColumnConstraints {<BLOCK Name="fct.iptb00025_status_t_checkColumnConstraints">} #+ Check constraints on the "iptb00025.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00025_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE iptb00025.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00025_status_t_checkColumnConstraints {<BLOCK Name="fct.iptb00025_us_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00025.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00025_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE iptb00025.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00025_us_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00025_fech_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00025.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00025_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE iptb00025.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00025_fech_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00025_us_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00025.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00025_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE iptb00025.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00025_us_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00025_fech_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00025.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00025_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE iptb00025.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00025_fech_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00024_checkTableConstraints">} #+ Check constraints on the "iptb00024" table #+ #+ @param p_data - a row data LIKE iptb00024.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00024_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE iptb00024.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_iptb00024_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00024_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00024_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00024_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00024_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00024_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00024_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00024_cod_inv_checkColumnConstraints(p_data.cod_inv) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00024_checkTableConstraints {<BLOCK Name="fct.iptb00024_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "iptb00024.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00024_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE iptb00024.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00024_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.iptb00024_descripcion_checkColumnConstraints">} #+ Check constraints on the "iptb00024.descripcion" column #+ #+ @param p_descripcion - VARCHAR2(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00024_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE iptb00024.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00024_descripcion_checkColumnConstraints {<BLOCK Name="fct.iptb00024_status_t_checkColumnConstraints">} #+ Check constraints on the "iptb00024.status_t" column #+ #+ @param p_status_t - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00024_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE iptb00024.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00024_status_t_checkColumnConstraints {<BLOCK Name="fct.iptb00024_us_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00024.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00024_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE iptb00024.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00024_us_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00024_fech_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00024.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00024_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE iptb00024.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00024_fech_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00024_us_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00024.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00024_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE iptb00024.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00024_us_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00024_fech_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00024.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00024_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE iptb00024.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00024_fech_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00024_cod_inv_checkColumnConstraints">} #+ Check constraints on the "iptb00024.cod_inv" column #+ #+ @param p_cod_inv - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00024_cod_inv_checkColumnConstraints(p_cod_inv) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_inv LIKE iptb00024.cod_inv LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00024_cod_inv_checkColumnConstraints {<BLOCK Name="fct.iptb00022_checkTableConstraints">} #+ Check constraints on the "iptb00022" table #+ #+ @param p_data - a row data LIKE iptb00022.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00022_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE iptb00022.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_iptb00022_cod_cia_checkColumnConstraints(p_data.cod_cia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00022_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00022_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00022_cuenta_no_checkColumnConstraints(p_data.cuenta_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00022_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00022_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00022_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00022_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00022_checkTableConstraints {<BLOCK Name="fct.iptb00022_cod_cia_checkColumnConstraints">} #+ Check constraints on the "iptb00022.cod_cia" column #+ #+ @param p_cod_cia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00022_cod_cia_checkColumnConstraints(p_cod_cia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_cia LIKE iptb00022.cod_cia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00022_cod_cia_checkColumnConstraints {<BLOCK Name="fct.iptb00022_descripcion_checkColumnConstraints">} #+ Check constraints on the "iptb00022.descripcion" column #+ #+ @param p_descripcion - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00022_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE iptb00022.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00022_descripcion_checkColumnConstraints {<BLOCK Name="fct.iptb00022_departamento_checkColumnConstraints">} #+ Check constraints on the "iptb00022.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00022_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE iptb00022.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00022_departamento_checkColumnConstraints {<BLOCK Name="fct.iptb00022_cuenta_no_checkColumnConstraints">} #+ Check constraints on the "iptb00022.cuenta_no" column #+ #+ @param p_cuenta_no - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00022_cuenta_no_checkColumnConstraints(p_cuenta_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_no LIKE iptb00022.cuenta_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00022_cuenta_no_checkColumnConstraints {<BLOCK Name="fct.iptb00022_us_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00022.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00022_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE iptb00022.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00022_us_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00022_fech_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00022.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00022_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE iptb00022.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00022_fech_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00022_us_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00022.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00022_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE iptb00022.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00022_us_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00022_fech_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00022.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00022_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE iptb00022.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00022_fech_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00021_checkTableConstraints">} #+ Check constraints on the "iptb00021" table #+ #+ @param p_data - a row data LIKE iptb00021.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00021_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE iptb00021.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_iptb00021_cod_cia_checkColumnConstraints(p_data.cod_cia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00021_nombre_cia_checkColumnConstraints(p_data.nombre_cia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00021_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00021_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00021_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00021_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00021_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00021_checkTableConstraints {<BLOCK Name="fct.iptb00021_cod_cia_checkColumnConstraints">} #+ Check constraints on the "iptb00021.cod_cia" column #+ #+ @param p_cod_cia - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00021_cod_cia_checkColumnConstraints(p_cod_cia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_cia LIKE iptb00021.cod_cia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_cia IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_cia: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00021_cod_cia_checkColumnConstraints {<BLOCK Name="fct.iptb00021_nombre_cia_checkColumnConstraints">} #+ Check constraints on the "iptb00021.nombre_cia" column #+ #+ @param p_nombre_cia - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00021_nombre_cia_checkColumnConstraints(p_nombre_cia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombre_cia LIKE iptb00021.nombre_cia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00021_nombre_cia_checkColumnConstraints {<BLOCK Name="fct.iptb00021_status_t_checkColumnConstraints">} #+ Check constraints on the "iptb00021.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00021_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE iptb00021.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00021_status_t_checkColumnConstraints {<BLOCK Name="fct.iptb00021_us_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00021.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00021_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE iptb00021.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00021_us_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00021_fech_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00021.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00021_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE iptb00021.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00021_fech_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00021_us_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00021.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00021_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE iptb00021.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00021_us_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00021_fech_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00021.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00021_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE iptb00021.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00021_fech_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00020_checkTableConstraints">} #+ Check constraints on the "iptb00020" table #+ #+ @param p_data - a row data LIKE iptb00020.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00020_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE iptb00020.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_iptb00020_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00020_producto_checkColumnConstraints(p_data.producto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00020_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00020_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00020_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00020_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00020_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00020_cod_inv_checkColumnConstraints(p_data.cod_inv) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00020_checkTableConstraints {<BLOCK Name="fct.iptb00020_cod_n_checkColumnConstraints">} #+ Check constraints on the "iptb00020.cod_n" column #+ #+ @param p_cod_n - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00020_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE iptb00020.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00020_cod_n_checkColumnConstraints {<BLOCK Name="fct.iptb00020_producto_checkColumnConstraints">} #+ Check constraints on the "iptb00020.producto" column #+ #+ @param p_producto - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00020_producto_checkColumnConstraints(p_producto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_producto LIKE iptb00020.producto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00020_producto_checkColumnConstraints {<BLOCK Name="fct.iptb00020_status_t_checkColumnConstraints">} #+ Check constraints on the "iptb00020.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00020_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE iptb00020.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00020_status_t_checkColumnConstraints {<BLOCK Name="fct.iptb00020_us_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00020.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00020_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE iptb00020.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00020_us_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00020_fech_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00020.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00020_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE iptb00020.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00020_fech_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00020_us_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00020.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00020_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE iptb00020.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00020_us_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00020_fech_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00020.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00020_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE iptb00020.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00020_fech_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00020_cod_inv_checkColumnConstraints">} #+ Check constraints on the "iptb00020.cod_inv" column #+ #+ @param p_cod_inv - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00020_cod_inv_checkColumnConstraints(p_cod_inv) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_inv LIKE iptb00020.cod_inv LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00020_cod_inv_checkColumnConstraints {<BLOCK Name="fct.iptb00019_checkTableConstraints">} #+ Check constraints on the "iptb00019" table #+ #+ @param p_data - a row data LIKE iptb00019.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00019_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE iptb00019.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_iptb00019_marca_checkColumnConstraints(p_data.marca) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00019_nombre_marca_checkColumnConstraints(p_data.nombre_marca) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00019_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00019_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00019_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00019_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00019_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00019_checkTableConstraints {<BLOCK Name="fct.iptb00019_marca_checkColumnConstraints">} #+ Check constraints on the "iptb00019.marca" column #+ #+ @param p_marca - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00019_marca_checkColumnConstraints(p_marca) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_marca LIKE iptb00019.marca LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00019_marca_checkColumnConstraints {<BLOCK Name="fct.iptb00019_nombre_marca_checkColumnConstraints">} #+ Check constraints on the "iptb00019.nombre_marca" column #+ #+ @param p_nombre_marca - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00019_nombre_marca_checkColumnConstraints(p_nombre_marca) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombre_marca LIKE iptb00019.nombre_marca LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00019_nombre_marca_checkColumnConstraints {<BLOCK Name="fct.iptb00019_status_t_checkColumnConstraints">} #+ Check constraints on the "iptb00019.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00019_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE iptb00019.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00019_status_t_checkColumnConstraints {<BLOCK Name="fct.iptb00019_us_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00019.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00019_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE iptb00019.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00019_us_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00019_fech_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00019.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00019_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE iptb00019.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00019_fech_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00019_us_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00019.us_mod" column #+ #+ @param p_us_mod - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00019_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE iptb00019.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00019_us_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00019_fech_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00019.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00019_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE iptb00019.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00019_fech_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00017_checkTableConstraints">} #+ Check constraints on the "iptb00017" table #+ #+ @param p_data - a row data LIKE iptb00017.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00017_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE iptb00017.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_iptb00017_cod_cia_checkColumnConstraints(p_data.cod_cia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00017_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00017_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00017_fact_no_checkColumnConstraints(p_data.fact_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00017_conduce_no_checkColumnConstraints(p_data.conduce_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00017_tipo_checkColumnConstraints(p_data.tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00017_orden_compra_checkColumnConstraints(p_data.orden_compra) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00017_cod_sp_checkColumnConstraints(p_data.cod_sp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00017_cod_sp_sec_checkColumnConstraints(p_data.cod_sp_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00017_cod_transp_checkColumnConstraints(p_data.cod_transp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00017_sec_transp_checkColumnConstraints(p_data.sec_transp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00017_placa_checkColumnConstraints(p_data.placa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00017_cod_tarifa_checkColumnConstraints(p_data.cod_tarifa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00017_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00017_detalle_checkColumnConstraints(p_data.detalle) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00017_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00017_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00017_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00017_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00017_cantidad_1_checkColumnConstraints(p_data.cantidad_1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00017_cantidad_2_checkColumnConstraints(p_data.cantidad_2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00017_cond_recep_checkColumnConstraints(p_data.cond_recep) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00017_uso_tiempo_checkColumnConstraints(p_data.uso_tiempo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00017_bodega_checkColumnConstraints(p_data.bodega) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00017_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00017_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00017_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00017_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00017_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00017_checkTableConstraints {<BLOCK Name="fct.iptb00017_cod_cia_checkColumnConstraints">} #+ Check constraints on the "iptb00017.cod_cia" column #+ #+ @param p_cod_cia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00017_cod_cia_checkColumnConstraints(p_cod_cia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_cia LIKE iptb00017.cod_cia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00017_cod_cia_checkColumnConstraints {<BLOCK Name="fct.iptb00017_num_doc_checkColumnConstraints">} #+ Check constraints on the "iptb00017.num_doc" column #+ #+ @param p_num_doc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00017_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE iptb00017.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_num_doc IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- num_doc: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00017_num_doc_checkColumnConstraints {<BLOCK Name="fct.iptb00017_fecha_checkColumnConstraints">} #+ Check constraints on the "iptb00017.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00017_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE iptb00017.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00017_fecha_checkColumnConstraints {<BLOCK Name="fct.iptb00017_fact_no_checkColumnConstraints">} #+ Check constraints on the "iptb00017.fact_no" column #+ #+ @param p_fact_no - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00017_fact_no_checkColumnConstraints(p_fact_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fact_no LIKE iptb00017.fact_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00017_fact_no_checkColumnConstraints {<BLOCK Name="fct.iptb00017_conduce_no_checkColumnConstraints">} #+ Check constraints on the "iptb00017.conduce_no" column #+ #+ @param p_conduce_no - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00017_conduce_no_checkColumnConstraints(p_conduce_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_conduce_no LIKE iptb00017.conduce_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00017_conduce_no_checkColumnConstraints {<BLOCK Name="fct.iptb00017_tipo_checkColumnConstraints">} #+ Check constraints on the "iptb00017.tipo" column #+ #+ @param p_tipo - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00017_tipo_checkColumnConstraints(p_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo LIKE iptb00017.tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00017_tipo_checkColumnConstraints {<BLOCK Name="fct.iptb00017_orden_compra_checkColumnConstraints">} #+ Check constraints on the "iptb00017.orden_compra" column #+ #+ @param p_orden_compra - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00017_orden_compra_checkColumnConstraints(p_orden_compra) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_orden_compra LIKE iptb00017.orden_compra LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00017_orden_compra_checkColumnConstraints {<BLOCK Name="fct.iptb00017_cod_sp_checkColumnConstraints">} #+ Check constraints on the "iptb00017.cod_sp" column #+ #+ @param p_cod_sp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00017_cod_sp_checkColumnConstraints(p_cod_sp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp LIKE iptb00017.cod_sp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00017_cod_sp_checkColumnConstraints {<BLOCK Name="fct.iptb00017_cod_sp_sec_checkColumnConstraints">} #+ Check constraints on the "iptb00017.cod_sp_sec" column #+ #+ @param p_cod_sp_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00017_cod_sp_sec_checkColumnConstraints(p_cod_sp_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp_sec LIKE iptb00017.cod_sp_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00017_cod_sp_sec_checkColumnConstraints {<BLOCK Name="fct.iptb00017_cod_transp_checkColumnConstraints">} #+ Check constraints on the "iptb00017.cod_transp" column #+ #+ @param p_cod_transp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00017_cod_transp_checkColumnConstraints(p_cod_transp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_transp LIKE iptb00017.cod_transp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00017_cod_transp_checkColumnConstraints {<BLOCK Name="fct.iptb00017_sec_transp_checkColumnConstraints">} #+ Check constraints on the "iptb00017.sec_transp" column #+ #+ @param p_sec_transp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00017_sec_transp_checkColumnConstraints(p_sec_transp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_transp LIKE iptb00017.sec_transp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00017_sec_transp_checkColumnConstraints {<BLOCK Name="fct.iptb00017_placa_checkColumnConstraints">} #+ Check constraints on the "iptb00017.placa" column #+ #+ @param p_placa - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00017_placa_checkColumnConstraints(p_placa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_placa LIKE iptb00017.placa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00017_placa_checkColumnConstraints {<BLOCK Name="fct.iptb00017_cod_tarifa_checkColumnConstraints">} #+ Check constraints on the "iptb00017.cod_tarifa" column #+ #+ @param p_cod_tarifa - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00017_cod_tarifa_checkColumnConstraints(p_cod_tarifa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tarifa LIKE iptb00017.cod_tarifa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00017_cod_tarifa_checkColumnConstraints {<BLOCK Name="fct.iptb00017_cod_mov_checkColumnConstraints">} #+ Check constraints on the "iptb00017.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00017_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE iptb00017.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00017_cod_mov_checkColumnConstraints {<BLOCK Name="fct.iptb00017_detalle_checkColumnConstraints">} #+ Check constraints on the "iptb00017.detalle" column #+ #+ @param p_detalle - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00017_detalle_checkColumnConstraints(p_detalle) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_detalle LIKE iptb00017.detalle LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00017_detalle_checkColumnConstraints {<BLOCK Name="fct.iptb00017_cod_n_checkColumnConstraints">} #+ Check constraints on the "iptb00017.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00017_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE iptb00017.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00017_cod_n_checkColumnConstraints {<BLOCK Name="fct.iptb00017_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "iptb00017.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00017_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE iptb00017.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00017_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.iptb00017_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "iptb00017.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00017_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE iptb00017.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00017_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.iptb00017_cod_sec_checkColumnConstraints">} #+ Check constraints on the "iptb00017.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00017_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE iptb00017.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00017_cod_sec_checkColumnConstraints {<BLOCK Name="fct.iptb00017_cantidad_1_checkColumnConstraints">} #+ Check constraints on the "iptb00017.cantidad_1" column #+ #+ @param p_cantidad_1 - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00017_cantidad_1_checkColumnConstraints(p_cantidad_1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad_1 LIKE iptb00017.cantidad_1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00017_cantidad_1_checkColumnConstraints {<BLOCK Name="fct.iptb00017_cantidad_2_checkColumnConstraints">} #+ Check constraints on the "iptb00017.cantidad_2" column #+ #+ @param p_cantidad_2 - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00017_cantidad_2_checkColumnConstraints(p_cantidad_2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad_2 LIKE iptb00017.cantidad_2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00017_cantidad_2_checkColumnConstraints {<BLOCK Name="fct.iptb00017_cond_recep_checkColumnConstraints">} #+ Check constraints on the "iptb00017.cond_recep" column #+ #+ @param p_cond_recep - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00017_cond_recep_checkColumnConstraints(p_cond_recep) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cond_recep LIKE iptb00017.cond_recep LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00017_cond_recep_checkColumnConstraints {<BLOCK Name="fct.iptb00017_uso_tiempo_checkColumnConstraints">} #+ Check constraints on the "iptb00017.uso_tiempo" column #+ #+ @param p_uso_tiempo - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00017_uso_tiempo_checkColumnConstraints(p_uso_tiempo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_uso_tiempo LIKE iptb00017.uso_tiempo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00017_uso_tiempo_checkColumnConstraints {<BLOCK Name="fct.iptb00017_bodega_checkColumnConstraints">} #+ Check constraints on the "iptb00017.bodega" column #+ #+ @param p_bodega - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00017_bodega_checkColumnConstraints(p_bodega) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_bodega LIKE iptb00017.bodega LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00017_bodega_checkColumnConstraints {<BLOCK Name="fct.iptb00017_status_t_checkColumnConstraints">} #+ Check constraints on the "iptb00017.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00017_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE iptb00017.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00017_status_t_checkColumnConstraints {<BLOCK Name="fct.iptb00017_us_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00017.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00017_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE iptb00017.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00017_us_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00017_fech_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00017.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00017_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE iptb00017.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00017_fech_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00017_us_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00017.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00017_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE iptb00017.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00017_us_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00017_fech_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00017.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00017_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE iptb00017.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00017_fech_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00015_checkTableConstraints">} #+ Check constraints on the "iptb00015" table #+ #+ @param p_data - a row data LIKE iptb00015.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00015_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE iptb00015.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_iptb00015_fecha_conteo_checkColumnConstraints(p_data.fecha_conteo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00015_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00015_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00015_checkTableConstraints {<BLOCK Name="fct.iptb00015_fecha_conteo_checkColumnConstraints">} #+ Check constraints on the "iptb00015.fecha_conteo" column #+ #+ @param p_fecha_conteo - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00015_fecha_conteo_checkColumnConstraints(p_fecha_conteo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_conteo LIKE iptb00015.fecha_conteo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00015_fecha_conteo_checkColumnConstraints {<BLOCK Name="fct.iptb00015_us_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00015.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00015_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE iptb00015.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00015_us_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00015_fech_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00015.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00015_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE iptb00015.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00015_fech_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00014_checkTableConstraints">} #+ Check constraints on the "iptb00014" table #+ #+ @param p_data - a row data LIKE iptb00014.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00014_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE iptb00014.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_iptb00014_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00014_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00014_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00014_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00014_precio_min_checkColumnConstraints(p_data.precio_min) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00014_precio_lista_checkColumnConstraints(p_data.precio_lista) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00014_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00014_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00014_fecha_crea_checkColumnConstraints(p_data.fecha_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00014_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00014_fecha_mod_checkColumnConstraints(p_data.fecha_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00014_checkTableConstraints {<BLOCK Name="fct.iptb00014_cod_n_checkColumnConstraints">} #+ Check constraints on the "iptb00014.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00014_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE iptb00014.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00014_cod_n_checkColumnConstraints {<BLOCK Name="fct.iptb00014_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "iptb00014.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00014_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE iptb00014.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_grupo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_grupo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00014_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.iptb00014_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "iptb00014.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00014_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE iptb00014.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tipo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tipo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00014_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.iptb00014_cod_sec_checkColumnConstraints">} #+ Check constraints on the "iptb00014.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00014_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE iptb00014.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00014_cod_sec_checkColumnConstraints {<BLOCK Name="fct.iptb00014_precio_min_checkColumnConstraints">} #+ Check constraints on the "iptb00014.precio_min" column #+ #+ @param p_precio_min - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00014_precio_min_checkColumnConstraints(p_precio_min) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_precio_min LIKE iptb00014.precio_min LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00014_precio_min_checkColumnConstraints {<BLOCK Name="fct.iptb00014_precio_lista_checkColumnConstraints">} #+ Check constraints on the "iptb00014.precio_lista" column #+ #+ @param p_precio_lista - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00014_precio_lista_checkColumnConstraints(p_precio_lista) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_precio_lista LIKE iptb00014.precio_lista LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00014_precio_lista_checkColumnConstraints {<BLOCK Name="fct.iptb00014_status_t_checkColumnConstraints">} #+ Check constraints on the "iptb00014.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00014_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE iptb00014.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00014_status_t_checkColumnConstraints {<BLOCK Name="fct.iptb00014_us_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00014.us_crea" column #+ #+ @param p_us_crea - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00014_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE iptb00014.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00014_us_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00014_fecha_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00014.fecha_crea" column #+ #+ @param p_fecha_crea - VARCHAR2(27) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00014_fecha_crea_checkColumnConstraints(p_fecha_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_crea LIKE iptb00014.fecha_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00014_fecha_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00014_us_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00014.us_mod" column #+ #+ @param p_us_mod - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00014_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE iptb00014.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00014_us_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00014_fecha_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00014.fecha_mod" column #+ #+ @param p_fecha_mod - VARCHAR2(27) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00014_fecha_mod_checkColumnConstraints(p_fecha_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_mod LIKE iptb00014.fecha_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00014_fecha_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00013_checkTableConstraints">} #+ Check constraints on the "iptb00013" table #+ #+ @param p_data - a row data LIKE iptb00013.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00013_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE iptb00013.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_iptb00013_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00013_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00013_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00013_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00013_tipo_prod_checkColumnConstraints(p_data.tipo_prod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00013_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00013_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00013_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00013_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00013_checkTableConstraints {<BLOCK Name="fct.iptb00013_cod_n_checkColumnConstraints">} #+ Check constraints on the "iptb00013.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00013_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE iptb00013.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00013_cod_n_checkColumnConstraints {<BLOCK Name="fct.iptb00013_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "iptb00013.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00013_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE iptb00013.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00013_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.iptb00013_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "iptb00013.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00013_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE iptb00013.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00013_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.iptb00013_cod_sec_checkColumnConstraints">} #+ Check constraints on the "iptb00013.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00013_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE iptb00013.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00013_cod_sec_checkColumnConstraints {<BLOCK Name="fct.iptb00013_tipo_prod_checkColumnConstraints">} #+ Check constraints on the "iptb00013.tipo_prod" column #+ #+ @param p_tipo_prod - CHAR(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00013_tipo_prod_checkColumnConstraints(p_tipo_prod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_prod LIKE iptb00013.tipo_prod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00013_tipo_prod_checkColumnConstraints {<BLOCK Name="fct.iptb00013_us_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00013.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00013_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE iptb00013.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00013_us_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00013_fech_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00013.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00013_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE iptb00013.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00013_fech_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00013_us_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00013.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00013_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE iptb00013.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00013_us_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00013_fech_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00013.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00013_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE iptb00013.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00013_fech_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00012_checkTableConstraints">} #+ Check constraints on the "iptb00012" table #+ #+ @param p_data - a row data LIKE iptb00012.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00012_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE iptb00012.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_iptb00012_idtrx_checkColumnConstraints(p_data.idtrx) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00012_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00012_bodega_checkColumnConstraints(p_data.bodega) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00012_cod_seccion_checkColumnConstraints(p_data.cod_seccion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00012_cod_tramo_checkColumnConstraints(p_data.cod_tramo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00012_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00012_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00012_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00012_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00012_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00012_balance_checkColumnConstraints(p_data.balance) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00012_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00012_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00012_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00012_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00012_lado_1_checkColumnConstraints(p_data.lado_1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00012_lado_2_checkColumnConstraints(p_data.lado_2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00012_lado_3_checkColumnConstraints(p_data.lado_3) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00012_checkTableConstraints {<BLOCK Name="fct.iptb00012_idtrx_checkColumnConstraints">} #+ Check constraints on the "iptb00012.idtrx" column #+ #+ @param p_idtrx - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00012_idtrx_checkColumnConstraints(p_idtrx) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_idtrx LIKE iptb00012.idtrx LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00012_idtrx_checkColumnConstraints {<BLOCK Name="fct.iptb00012_fecha_checkColumnConstraints">} #+ Check constraints on the "iptb00012.fecha" column #+ #+ @param p_fecha - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00012_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE iptb00012.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00012_fecha_checkColumnConstraints {<BLOCK Name="fct.iptb00012_bodega_checkColumnConstraints">} #+ Check constraints on the "iptb00012.bodega" column #+ #+ @param p_bodega - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00012_bodega_checkColumnConstraints(p_bodega) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_bodega LIKE iptb00012.bodega LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00012_bodega_checkColumnConstraints {<BLOCK Name="fct.iptb00012_cod_seccion_checkColumnConstraints">} #+ Check constraints on the "iptb00012.cod_seccion" column #+ #+ @param p_cod_seccion - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00012_cod_seccion_checkColumnConstraints(p_cod_seccion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_seccion LIKE iptb00012.cod_seccion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00012_cod_seccion_checkColumnConstraints {<BLOCK Name="fct.iptb00012_cod_tramo_checkColumnConstraints">} #+ Check constraints on the "iptb00012.cod_tramo" column #+ #+ @param p_cod_tramo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00012_cod_tramo_checkColumnConstraints(p_cod_tramo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tramo LIKE iptb00012.cod_tramo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00012_cod_tramo_checkColumnConstraints {<BLOCK Name="fct.iptb00012_cod_n_checkColumnConstraints">} #+ Check constraints on the "iptb00012.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00012_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE iptb00012.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00012_cod_n_checkColumnConstraints {<BLOCK Name="fct.iptb00012_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "iptb00012.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00012_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE iptb00012.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00012_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.iptb00012_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "iptb00012.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00012_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE iptb00012.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00012_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.iptb00012_cod_sec_checkColumnConstraints">} #+ Check constraints on the "iptb00012.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00012_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE iptb00012.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00012_cod_sec_checkColumnConstraints {<BLOCK Name="fct.iptb00012_cantidad_checkColumnConstraints">} #+ Check constraints on the "iptb00012.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00012_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE iptb00012.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00012_cantidad_checkColumnConstraints {<BLOCK Name="fct.iptb00012_balance_checkColumnConstraints">} #+ Check constraints on the "iptb00012.balance" column #+ #+ @param p_balance - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00012_balance_checkColumnConstraints(p_balance) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_balance LIKE iptb00012.balance LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00012_balance_checkColumnConstraints {<BLOCK Name="fct.iptb00012_us_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00012.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00012_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE iptb00012.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00012_us_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00012_fech_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00012.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00012_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE iptb00012.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00012_fech_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00012_us_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00012.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00012_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE iptb00012.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00012_us_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00012_fech_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00012.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00012_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE iptb00012.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00012_fech_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00012_lado_1_checkColumnConstraints">} #+ Check constraints on the "iptb00012.lado_1" column #+ #+ @param p_lado_1 - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00012_lado_1_checkColumnConstraints(p_lado_1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_lado_1 LIKE iptb00012.lado_1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00012_lado_1_checkColumnConstraints {<BLOCK Name="fct.iptb00012_lado_2_checkColumnConstraints">} #+ Check constraints on the "iptb00012.lado_2" column #+ #+ @param p_lado_2 - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00012_lado_2_checkColumnConstraints(p_lado_2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_lado_2 LIKE iptb00012.lado_2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00012_lado_2_checkColumnConstraints {<BLOCK Name="fct.iptb00012_lado_3_checkColumnConstraints">} #+ Check constraints on the "iptb00012.lado_3" column #+ #+ @param p_lado_3 - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00012_lado_3_checkColumnConstraints(p_lado_3) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_lado_3 LIKE iptb00012.lado_3 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00012_lado_3_checkColumnConstraints {<BLOCK Name="fct.iptb00011_checkTableConstraints">} #+ Check constraints on the "iptb00011" table #+ #+ @param p_data - a row data LIKE iptb00011.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00011_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE iptb00011.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_iptb00011_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00011_bodega_checkColumnConstraints(p_data.bodega) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00011_cod_seccion_checkColumnConstraints(p_data.cod_seccion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00011_cod_tramo_checkColumnConstraints(p_data.cod_tramo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00011_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00011_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00011_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00011_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00011_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00011_balance_checkColumnConstraints(p_data.balance) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00011_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00011_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00011_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00011_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00011_checkTableConstraints {<BLOCK Name="fct.iptb00011_fecha_checkColumnConstraints">} #+ Check constraints on the "iptb00011.fecha" column #+ #+ @param p_fecha - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00011_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE iptb00011.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_fecha IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- fecha: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00011_fecha_checkColumnConstraints {<BLOCK Name="fct.iptb00011_bodega_checkColumnConstraints">} #+ Check constraints on the "iptb00011.bodega" column #+ #+ @param p_bodega - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00011_bodega_checkColumnConstraints(p_bodega) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_bodega LIKE iptb00011.bodega LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_bodega IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- bodega: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00011_bodega_checkColumnConstraints {<BLOCK Name="fct.iptb00011_cod_seccion_checkColumnConstraints">} #+ Check constraints on the "iptb00011.cod_seccion" column #+ #+ @param p_cod_seccion - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00011_cod_seccion_checkColumnConstraints(p_cod_seccion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_seccion LIKE iptb00011.cod_seccion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_seccion IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_seccion: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00011_cod_seccion_checkColumnConstraints {<BLOCK Name="fct.iptb00011_cod_tramo_checkColumnConstraints">} #+ Check constraints on the "iptb00011.cod_tramo" column #+ #+ @param p_cod_tramo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00011_cod_tramo_checkColumnConstraints(p_cod_tramo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tramo LIKE iptb00011.cod_tramo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tramo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tramo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00011_cod_tramo_checkColumnConstraints {<BLOCK Name="fct.iptb00011_cod_n_checkColumnConstraints">} #+ Check constraints on the "iptb00011.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00011_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE iptb00011.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00011_cod_n_checkColumnConstraints {<BLOCK Name="fct.iptb00011_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "iptb00011.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00011_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE iptb00011.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_grupo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_grupo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00011_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.iptb00011_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "iptb00011.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00011_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE iptb00011.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tipo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tipo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00011_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.iptb00011_cod_sec_checkColumnConstraints">} #+ Check constraints on the "iptb00011.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00011_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE iptb00011.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00011_cod_sec_checkColumnConstraints {<BLOCK Name="fct.iptb00011_cantidad_checkColumnConstraints">} #+ Check constraints on the "iptb00011.cantidad" column #+ #+ @param p_cantidad - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00011_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE iptb00011.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cantidad IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cantidad: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00011_cantidad_checkColumnConstraints {<BLOCK Name="fct.iptb00011_balance_checkColumnConstraints">} #+ Check constraints on the "iptb00011.balance" column #+ #+ @param p_balance - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00011_balance_checkColumnConstraints(p_balance) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_balance LIKE iptb00011.balance LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00011_balance_checkColumnConstraints {<BLOCK Name="fct.iptb00011_us_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00011.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00011_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE iptb00011.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00011_us_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00011_fech_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00011.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00011_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE iptb00011.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00011_fech_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00011_us_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00011.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00011_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE iptb00011.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00011_us_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00011_fech_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00011.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00011_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE iptb00011.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00011_fech_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00010_checkTableConstraints">} #+ Check constraints on the "iptb00010" table #+ #+ @param p_data - a row data LIKE iptb00010.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00010_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE iptb00010.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_iptb00010_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00010_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00010_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00010_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00010_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00010_cod_barra1_checkColumnConstraints(p_data.cod_barra1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00010_cod_barra2_checkColumnConstraints(p_data.cod_barra2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00010_conversion_checkColumnConstraints(p_data.conversion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00010_cod_dumm1_checkColumnConstraints(p_data.cod_dumm1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00010_cod_dumm2_checkColumnConstraints(p_data.cod_dumm2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00010_cod_dumm3_checkColumnConstraints(p_data.cod_dumm3) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00010_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00010_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00010_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00010_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00010_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00010_checkTableConstraints {<BLOCK Name="fct.iptb00010_cod_n_checkColumnConstraints">} #+ Check constraints on the "iptb00010.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00010_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE iptb00010.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00010_cod_n_checkColumnConstraints {<BLOCK Name="fct.iptb00010_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "iptb00010.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00010_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE iptb00010.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00010_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.iptb00010_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "iptb00010.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00010_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE iptb00010.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00010_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.iptb00010_cod_sec_checkColumnConstraints">} #+ Check constraints on the "iptb00010.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00010_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE iptb00010.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00010_cod_sec_checkColumnConstraints {<BLOCK Name="fct.iptb00010_descripcion_checkColumnConstraints">} #+ Check constraints on the "iptb00010.descripcion" column #+ #+ @param p_descripcion - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00010_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE iptb00010.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00010_descripcion_checkColumnConstraints {<BLOCK Name="fct.iptb00010_cod_barra1_checkColumnConstraints">} #+ Check constraints on the "iptb00010.cod_barra1" column #+ #+ @param p_cod_barra1 - CHAR(13) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00010_cod_barra1_checkColumnConstraints(p_cod_barra1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_barra1 LIKE iptb00010.cod_barra1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00010_cod_barra1_checkColumnConstraints {<BLOCK Name="fct.iptb00010_cod_barra2_checkColumnConstraints">} #+ Check constraints on the "iptb00010.cod_barra2" column #+ #+ @param p_cod_barra2 - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00010_cod_barra2_checkColumnConstraints(p_cod_barra2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_barra2 LIKE iptb00010.cod_barra2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00010_cod_barra2_checkColumnConstraints {<BLOCK Name="fct.iptb00010_conversion_checkColumnConstraints">} #+ Check constraints on the "iptb00010.conversion" column #+ #+ @param p_conversion - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00010_conversion_checkColumnConstraints(p_conversion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_conversion LIKE iptb00010.conversion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00010_conversion_checkColumnConstraints {<BLOCK Name="fct.iptb00010_cod_dumm1_checkColumnConstraints">} #+ Check constraints on the "iptb00010.cod_dumm1" column #+ #+ @param p_cod_dumm1 - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00010_cod_dumm1_checkColumnConstraints(p_cod_dumm1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_dumm1 LIKE iptb00010.cod_dumm1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00010_cod_dumm1_checkColumnConstraints {<BLOCK Name="fct.iptb00010_cod_dumm2_checkColumnConstraints">} #+ Check constraints on the "iptb00010.cod_dumm2" column #+ #+ @param p_cod_dumm2 - CHAR(12) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00010_cod_dumm2_checkColumnConstraints(p_cod_dumm2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_dumm2 LIKE iptb00010.cod_dumm2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00010_cod_dumm2_checkColumnConstraints {<BLOCK Name="fct.iptb00010_cod_dumm3_checkColumnConstraints">} #+ Check constraints on the "iptb00010.cod_dumm3" column #+ #+ @param p_cod_dumm3 - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00010_cod_dumm3_checkColumnConstraints(p_cod_dumm3) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_dumm3 LIKE iptb00010.cod_dumm3 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00010_cod_dumm3_checkColumnConstraints {<BLOCK Name="fct.iptb00010_status_t_checkColumnConstraints">} #+ Check constraints on the "iptb00010.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00010_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE iptb00010.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00010_status_t_checkColumnConstraints {<BLOCK Name="fct.iptb00010_us_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00010.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00010_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE iptb00010.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00010_us_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00010_fech_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00010.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00010_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE iptb00010.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00010_fech_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00010_us_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00010.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00010_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE iptb00010.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00010_us_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00010_fech_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00010.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00010_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE iptb00010.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00010_fech_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00008_checkTableConstraints">} #+ Check constraints on the "iptb00008" table #+ #+ @param p_data - a row data LIKE iptb00008.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00008_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE iptb00008.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_iptb00008_cod_cia_checkColumnConstraints(p_data.cod_cia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00008_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00008_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00008_fact_no_checkColumnConstraints(p_data.fact_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00008_conduce_no_checkColumnConstraints(p_data.conduce_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00008_tipo_checkColumnConstraints(p_data.tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00008_orden_compra_checkColumnConstraints(p_data.orden_compra) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00008_cod_sp_checkColumnConstraints(p_data.cod_sp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00008_cod_sp_sec_checkColumnConstraints(p_data.cod_sp_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00008_cod_transp_checkColumnConstraints(p_data.cod_transp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00008_sec_transp_checkColumnConstraints(p_data.sec_transp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00008_placa_checkColumnConstraints(p_data.placa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00008_cod_tarifa_checkColumnConstraints(p_data.cod_tarifa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00008_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00008_detalle_checkColumnConstraints(p_data.detalle) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00008_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00008_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00008_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00008_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00008_cantidad_1_checkColumnConstraints(p_data.cantidad_1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00008_cantidad_2_checkColumnConstraints(p_data.cantidad_2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00008_cond_recep_checkColumnConstraints(p_data.cond_recep) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00008_uso_tiempo_checkColumnConstraints(p_data.uso_tiempo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00008_bodega_checkColumnConstraints(p_data.bodega) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00008_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00008_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00008_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00008_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00008_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00008_checkTableConstraints {<BLOCK Name="fct.iptb00008_cod_cia_checkColumnConstraints">} #+ Check constraints on the "iptb00008.cod_cia" column #+ #+ @param p_cod_cia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00008_cod_cia_checkColumnConstraints(p_cod_cia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_cia LIKE iptb00008.cod_cia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00008_cod_cia_checkColumnConstraints {<BLOCK Name="fct.iptb00008_num_doc_checkColumnConstraints">} #+ Check constraints on the "iptb00008.num_doc" column #+ #+ @param p_num_doc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00008_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE iptb00008.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_num_doc IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- num_doc: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00008_num_doc_checkColumnConstraints {<BLOCK Name="fct.iptb00008_fecha_checkColumnConstraints">} #+ Check constraints on the "iptb00008.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00008_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE iptb00008.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00008_fecha_checkColumnConstraints {<BLOCK Name="fct.iptb00008_fact_no_checkColumnConstraints">} #+ Check constraints on the "iptb00008.fact_no" column #+ #+ @param p_fact_no - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00008_fact_no_checkColumnConstraints(p_fact_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fact_no LIKE iptb00008.fact_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00008_fact_no_checkColumnConstraints {<BLOCK Name="fct.iptb00008_conduce_no_checkColumnConstraints">} #+ Check constraints on the "iptb00008.conduce_no" column #+ #+ @param p_conduce_no - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00008_conduce_no_checkColumnConstraints(p_conduce_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_conduce_no LIKE iptb00008.conduce_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00008_conduce_no_checkColumnConstraints {<BLOCK Name="fct.iptb00008_tipo_checkColumnConstraints">} #+ Check constraints on the "iptb00008.tipo" column #+ #+ @param p_tipo - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00008_tipo_checkColumnConstraints(p_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo LIKE iptb00008.tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00008_tipo_checkColumnConstraints {<BLOCK Name="fct.iptb00008_orden_compra_checkColumnConstraints">} #+ Check constraints on the "iptb00008.orden_compra" column #+ #+ @param p_orden_compra - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00008_orden_compra_checkColumnConstraints(p_orden_compra) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_orden_compra LIKE iptb00008.orden_compra LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00008_orden_compra_checkColumnConstraints {<BLOCK Name="fct.iptb00008_cod_sp_checkColumnConstraints">} #+ Check constraints on the "iptb00008.cod_sp" column #+ #+ @param p_cod_sp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00008_cod_sp_checkColumnConstraints(p_cod_sp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp LIKE iptb00008.cod_sp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00008_cod_sp_checkColumnConstraints {<BLOCK Name="fct.iptb00008_cod_sp_sec_checkColumnConstraints">} #+ Check constraints on the "iptb00008.cod_sp_sec" column #+ #+ @param p_cod_sp_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00008_cod_sp_sec_checkColumnConstraints(p_cod_sp_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp_sec LIKE iptb00008.cod_sp_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00008_cod_sp_sec_checkColumnConstraints {<BLOCK Name="fct.iptb00008_cod_transp_checkColumnConstraints">} #+ Check constraints on the "iptb00008.cod_transp" column #+ #+ @param p_cod_transp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00008_cod_transp_checkColumnConstraints(p_cod_transp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_transp LIKE iptb00008.cod_transp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00008_cod_transp_checkColumnConstraints {<BLOCK Name="fct.iptb00008_sec_transp_checkColumnConstraints">} #+ Check constraints on the "iptb00008.sec_transp" column #+ #+ @param p_sec_transp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00008_sec_transp_checkColumnConstraints(p_sec_transp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_transp LIKE iptb00008.sec_transp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00008_sec_transp_checkColumnConstraints {<BLOCK Name="fct.iptb00008_placa_checkColumnConstraints">} #+ Check constraints on the "iptb00008.placa" column #+ #+ @param p_placa - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00008_placa_checkColumnConstraints(p_placa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_placa LIKE iptb00008.placa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00008_placa_checkColumnConstraints {<BLOCK Name="fct.iptb00008_cod_tarifa_checkColumnConstraints">} #+ Check constraints on the "iptb00008.cod_tarifa" column #+ #+ @param p_cod_tarifa - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00008_cod_tarifa_checkColumnConstraints(p_cod_tarifa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tarifa LIKE iptb00008.cod_tarifa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00008_cod_tarifa_checkColumnConstraints {<BLOCK Name="fct.iptb00008_cod_mov_checkColumnConstraints">} #+ Check constraints on the "iptb00008.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00008_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE iptb00008.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_mov IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_mov: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00008_cod_mov_checkColumnConstraints {<BLOCK Name="fct.iptb00008_detalle_checkColumnConstraints">} #+ Check constraints on the "iptb00008.detalle" column #+ #+ @param p_detalle - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00008_detalle_checkColumnConstraints(p_detalle) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_detalle LIKE iptb00008.detalle LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00008_detalle_checkColumnConstraints {<BLOCK Name="fct.iptb00008_cod_n_checkColumnConstraints">} #+ Check constraints on the "iptb00008.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00008_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE iptb00008.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00008_cod_n_checkColumnConstraints {<BLOCK Name="fct.iptb00008_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "iptb00008.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00008_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE iptb00008.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00008_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.iptb00008_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "iptb00008.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00008_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE iptb00008.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00008_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.iptb00008_cod_sec_checkColumnConstraints">} #+ Check constraints on the "iptb00008.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00008_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE iptb00008.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00008_cod_sec_checkColumnConstraints {<BLOCK Name="fct.iptb00008_cantidad_1_checkColumnConstraints">} #+ Check constraints on the "iptb00008.cantidad_1" column #+ #+ @param p_cantidad_1 - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00008_cantidad_1_checkColumnConstraints(p_cantidad_1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad_1 LIKE iptb00008.cantidad_1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00008_cantidad_1_checkColumnConstraints {<BLOCK Name="fct.iptb00008_cantidad_2_checkColumnConstraints">} #+ Check constraints on the "iptb00008.cantidad_2" column #+ #+ @param p_cantidad_2 - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00008_cantidad_2_checkColumnConstraints(p_cantidad_2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad_2 LIKE iptb00008.cantidad_2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cantidad_2 IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cantidad_2: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00008_cantidad_2_checkColumnConstraints {<BLOCK Name="fct.iptb00008_cond_recep_checkColumnConstraints">} #+ Check constraints on the "iptb00008.cond_recep" column #+ #+ @param p_cond_recep - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00008_cond_recep_checkColumnConstraints(p_cond_recep) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cond_recep LIKE iptb00008.cond_recep LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00008_cond_recep_checkColumnConstraints {<BLOCK Name="fct.iptb00008_uso_tiempo_checkColumnConstraints">} #+ Check constraints on the "iptb00008.uso_tiempo" column #+ #+ @param p_uso_tiempo - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00008_uso_tiempo_checkColumnConstraints(p_uso_tiempo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_uso_tiempo LIKE iptb00008.uso_tiempo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00008_uso_tiempo_checkColumnConstraints {<BLOCK Name="fct.iptb00008_bodega_checkColumnConstraints">} #+ Check constraints on the "iptb00008.bodega" column #+ #+ @param p_bodega - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00008_bodega_checkColumnConstraints(p_bodega) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_bodega LIKE iptb00008.bodega LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00008_bodega_checkColumnConstraints {<BLOCK Name="fct.iptb00008_status_t_checkColumnConstraints">} #+ Check constraints on the "iptb00008.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00008_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE iptb00008.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00008_status_t_checkColumnConstraints {<BLOCK Name="fct.iptb00008_us_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00008.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00008_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE iptb00008.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00008_us_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00008_fech_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00008.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00008_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE iptb00008.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00008_fech_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00008_us_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00008.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00008_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE iptb00008.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00008_us_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00008_fech_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00008.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00008_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE iptb00008.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00008_fech_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00007_checkTableConstraints">} #+ Check constraints on the "iptb00007" table #+ #+ @param p_data - a row data LIKE iptb00007.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00007_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE iptb00007.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_iptb00007_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00007_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00007_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00007_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00007_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00007_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00007_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00007_checkTableConstraints {<BLOCK Name="fct.iptb00007_num_doc_checkColumnConstraints">} #+ Check constraints on the "iptb00007.num_doc" column #+ #+ @param p_num_doc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00007_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE iptb00007.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_num_doc IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- num_doc: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00007_num_doc_checkColumnConstraints {<BLOCK Name="fct.iptb00007_cod_mov_checkColumnConstraints">} #+ Check constraints on the "iptb00007.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00007_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE iptb00007.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00007_cod_mov_checkColumnConstraints {<BLOCK Name="fct.iptb00007_status_t_checkColumnConstraints">} #+ Check constraints on the "iptb00007.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00007_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE iptb00007.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00007_status_t_checkColumnConstraints {<BLOCK Name="fct.iptb00007_us_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00007.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00007_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE iptb00007.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00007_us_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00007_fech_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00007.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00007_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE iptb00007.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00007_fech_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00007_us_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00007.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00007_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE iptb00007.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00007_us_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00007_fech_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00007.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00007_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE iptb00007.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00007_fech_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00006_checkTableConstraints">} #+ Check constraints on the "iptb00006" table #+ #+ @param p_data - a row data LIKE iptb00006.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00006_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE iptb00006.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_iptb00006_cod_cia_checkColumnConstraints(p_data.cod_cia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00006_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00006_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00006_fact_no_checkColumnConstraints(p_data.fact_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00006_conduce_no_checkColumnConstraints(p_data.conduce_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00006_tipo_checkColumnConstraints(p_data.tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00006_orden_compra_checkColumnConstraints(p_data.orden_compra) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00006_cod_sp_checkColumnConstraints(p_data.cod_sp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00006_cod_sp_sec_checkColumnConstraints(p_data.cod_sp_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00006_cod_transp_checkColumnConstraints(p_data.cod_transp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00006_sec_transp_checkColumnConstraints(p_data.sec_transp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00006_placa_checkColumnConstraints(p_data.placa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00006_cod_tarifa_checkColumnConstraints(p_data.cod_tarifa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00006_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00006_detalle_checkColumnConstraints(p_data.detalle) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00006_area_checkColumnConstraints(p_data.area) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00006_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00006_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00006_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00006_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00006_cantidad_1_checkColumnConstraints(p_data.cantidad_1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00006_cantidad_2_checkColumnConstraints(p_data.cantidad_2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00006_cond_recep_checkColumnConstraints(p_data.cond_recep) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00006_uso_tiempo_checkColumnConstraints(p_data.uso_tiempo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00006_bodega_checkColumnConstraints(p_data.bodega) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00006_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00006_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00006_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00006_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00006_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00006_num_req_checkColumnConstraints(p_data.num_req) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00006_codigo_bloque_checkColumnConstraints(p_data.codigo_bloque) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00006_sec_vend_checkColumnConstraints(p_data.sec_vend) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00006_direccion_checkColumnConstraints(p_data.direccion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00006_num_oc_checkColumnConstraints(p_data.num_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00006_checkTableConstraints {<BLOCK Name="fct.iptb00006_cod_cia_checkColumnConstraints">} #+ Check constraints on the "iptb00006.cod_cia" column #+ #+ @param p_cod_cia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00006_cod_cia_checkColumnConstraints(p_cod_cia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_cia LIKE iptb00006.cod_cia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00006_cod_cia_checkColumnConstraints {<BLOCK Name="fct.iptb00006_num_doc_checkColumnConstraints">} #+ Check constraints on the "iptb00006.num_doc" column #+ #+ @param p_num_doc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00006_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE iptb00006.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_num_doc IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- num_doc: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00006_num_doc_checkColumnConstraints {<BLOCK Name="fct.iptb00006_fecha_checkColumnConstraints">} #+ Check constraints on the "iptb00006.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00006_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE iptb00006.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_fecha IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- fecha: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00006_fecha_checkColumnConstraints {<BLOCK Name="fct.iptb00006_fact_no_checkColumnConstraints">} #+ Check constraints on the "iptb00006.fact_no" column #+ #+ @param p_fact_no - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00006_fact_no_checkColumnConstraints(p_fact_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fact_no LIKE iptb00006.fact_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00006_fact_no_checkColumnConstraints {<BLOCK Name="fct.iptb00006_conduce_no_checkColumnConstraints">} #+ Check constraints on the "iptb00006.conduce_no" column #+ #+ @param p_conduce_no - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00006_conduce_no_checkColumnConstraints(p_conduce_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_conduce_no LIKE iptb00006.conduce_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00006_conduce_no_checkColumnConstraints {<BLOCK Name="fct.iptb00006_tipo_checkColumnConstraints">} #+ Check constraints on the "iptb00006.tipo" column #+ #+ @param p_tipo - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00006_tipo_checkColumnConstraints(p_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo LIKE iptb00006.tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00006_tipo_checkColumnConstraints {<BLOCK Name="fct.iptb00006_orden_compra_checkColumnConstraints">} #+ Check constraints on the "iptb00006.orden_compra" column #+ #+ @param p_orden_compra - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00006_orden_compra_checkColumnConstraints(p_orden_compra) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_orden_compra LIKE iptb00006.orden_compra LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00006_orden_compra_checkColumnConstraints {<BLOCK Name="fct.iptb00006_cod_sp_checkColumnConstraints">} #+ Check constraints on the "iptb00006.cod_sp" column #+ #+ @param p_cod_sp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00006_cod_sp_checkColumnConstraints(p_cod_sp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp LIKE iptb00006.cod_sp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00006_cod_sp_checkColumnConstraints {<BLOCK Name="fct.iptb00006_cod_sp_sec_checkColumnConstraints">} #+ Check constraints on the "iptb00006.cod_sp_sec" column #+ #+ @param p_cod_sp_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00006_cod_sp_sec_checkColumnConstraints(p_cod_sp_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp_sec LIKE iptb00006.cod_sp_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00006_cod_sp_sec_checkColumnConstraints {<BLOCK Name="fct.iptb00006_cod_transp_checkColumnConstraints">} #+ Check constraints on the "iptb00006.cod_transp" column #+ #+ @param p_cod_transp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00006_cod_transp_checkColumnConstraints(p_cod_transp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_transp LIKE iptb00006.cod_transp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00006_cod_transp_checkColumnConstraints {<BLOCK Name="fct.iptb00006_sec_transp_checkColumnConstraints">} #+ Check constraints on the "iptb00006.sec_transp" column #+ #+ @param p_sec_transp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00006_sec_transp_checkColumnConstraints(p_sec_transp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_transp LIKE iptb00006.sec_transp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00006_sec_transp_checkColumnConstraints {<BLOCK Name="fct.iptb00006_placa_checkColumnConstraints">} #+ Check constraints on the "iptb00006.placa" column #+ #+ @param p_placa - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00006_placa_checkColumnConstraints(p_placa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_placa LIKE iptb00006.placa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00006_placa_checkColumnConstraints {<BLOCK Name="fct.iptb00006_cod_tarifa_checkColumnConstraints">} #+ Check constraints on the "iptb00006.cod_tarifa" column #+ #+ @param p_cod_tarifa - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00006_cod_tarifa_checkColumnConstraints(p_cod_tarifa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tarifa LIKE iptb00006.cod_tarifa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00006_cod_tarifa_checkColumnConstraints {<BLOCK Name="fct.iptb00006_cod_mov_checkColumnConstraints">} #+ Check constraints on the "iptb00006.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00006_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE iptb00006.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_mov IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_mov: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00006_cod_mov_checkColumnConstraints {<BLOCK Name="fct.iptb00006_detalle_checkColumnConstraints">} #+ Check constraints on the "iptb00006.detalle" column #+ #+ @param p_detalle - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00006_detalle_checkColumnConstraints(p_detalle) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_detalle LIKE iptb00006.detalle LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00006_detalle_checkColumnConstraints {<BLOCK Name="fct.iptb00006_area_checkColumnConstraints">} #+ Check constraints on the "iptb00006.area" column #+ #+ @param p_area - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00006_area_checkColumnConstraints(p_area) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_area LIKE iptb00006.area LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00006_area_checkColumnConstraints {<BLOCK Name="fct.iptb00006_cod_n_checkColumnConstraints">} #+ Check constraints on the "iptb00006.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00006_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE iptb00006.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00006_cod_n_checkColumnConstraints {<BLOCK Name="fct.iptb00006_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "iptb00006.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00006_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE iptb00006.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_grupo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_grupo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00006_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.iptb00006_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "iptb00006.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00006_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE iptb00006.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tipo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tipo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00006_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.iptb00006_cod_sec_checkColumnConstraints">} #+ Check constraints on the "iptb00006.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00006_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE iptb00006.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00006_cod_sec_checkColumnConstraints {<BLOCK Name="fct.iptb00006_cantidad_1_checkColumnConstraints">} #+ Check constraints on the "iptb00006.cantidad_1" column #+ #+ @param p_cantidad_1 - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00006_cantidad_1_checkColumnConstraints(p_cantidad_1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad_1 LIKE iptb00006.cantidad_1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00006_cantidad_1_checkColumnConstraints {<BLOCK Name="fct.iptb00006_cantidad_2_checkColumnConstraints">} #+ Check constraints on the "iptb00006.cantidad_2" column #+ #+ @param p_cantidad_2 - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00006_cantidad_2_checkColumnConstraints(p_cantidad_2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad_2 LIKE iptb00006.cantidad_2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cantidad_2 IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cantidad_2: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00006_cantidad_2_checkColumnConstraints {<BLOCK Name="fct.iptb00006_cond_recep_checkColumnConstraints">} #+ Check constraints on the "iptb00006.cond_recep" column #+ #+ @param p_cond_recep - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00006_cond_recep_checkColumnConstraints(p_cond_recep) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cond_recep LIKE iptb00006.cond_recep LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00006_cond_recep_checkColumnConstraints {<BLOCK Name="fct.iptb00006_uso_tiempo_checkColumnConstraints">} #+ Check constraints on the "iptb00006.uso_tiempo" column #+ #+ @param p_uso_tiempo - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00006_uso_tiempo_checkColumnConstraints(p_uso_tiempo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_uso_tiempo LIKE iptb00006.uso_tiempo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00006_uso_tiempo_checkColumnConstraints {<BLOCK Name="fct.iptb00006_bodega_checkColumnConstraints">} #+ Check constraints on the "iptb00006.bodega" column #+ #+ @param p_bodega - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00006_bodega_checkColumnConstraints(p_bodega) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_bodega LIKE iptb00006.bodega LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00006_bodega_checkColumnConstraints {<BLOCK Name="fct.iptb00006_status_t_checkColumnConstraints">} #+ Check constraints on the "iptb00006.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00006_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE iptb00006.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00006_status_t_checkColumnConstraints {<BLOCK Name="fct.iptb00006_us_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00006.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00006_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE iptb00006.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00006_us_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00006_fech_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00006.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00006_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE iptb00006.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00006_fech_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00006_us_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00006.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00006_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE iptb00006.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00006_us_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00006_fech_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00006.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00006_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE iptb00006.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00006_fech_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00006_num_req_checkColumnConstraints">} #+ Check constraints on the "iptb00006.num_req" column #+ #+ @param p_num_req - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00006_num_req_checkColumnConstraints(p_num_req) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_req LIKE iptb00006.num_req LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00006_num_req_checkColumnConstraints {<BLOCK Name="fct.iptb00006_codigo_bloque_checkColumnConstraints">} #+ Check constraints on the "iptb00006.codigo_bloque" column #+ #+ @param p_codigo_bloque - CHAR(25) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00006_codigo_bloque_checkColumnConstraints(p_codigo_bloque) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codigo_bloque LIKE iptb00006.codigo_bloque LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00006_codigo_bloque_checkColumnConstraints {<BLOCK Name="fct.iptb00006_sec_vend_checkColumnConstraints">} #+ Check constraints on the "iptb00006.sec_vend" column #+ #+ @param p_sec_vend - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00006_sec_vend_checkColumnConstraints(p_sec_vend) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_vend LIKE iptb00006.sec_vend LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00006_sec_vend_checkColumnConstraints {<BLOCK Name="fct.iptb00006_direccion_checkColumnConstraints">} #+ Check constraints on the "iptb00006.direccion" column #+ #+ @param p_direccion - CHAR(500) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00006_direccion_checkColumnConstraints(p_direccion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_direccion LIKE iptb00006.direccion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00006_direccion_checkColumnConstraints {<BLOCK Name="fct.iptb00006_num_oc_checkColumnConstraints">} #+ Check constraints on the "iptb00006.num_oc" column #+ #+ @param p_num_oc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00006_num_oc_checkColumnConstraints(p_num_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_oc LIKE iptb00006.num_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00006_num_oc_checkColumnConstraints {<BLOCK Name="fct.iptb00005_checkTableConstraints">} #+ Check constraints on the "iptb00005" table #+ #+ @param p_data - a row data LIKE iptb00005.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00005_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE iptb00005.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_iptb00005_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00005_descrip_mov_checkColumnConstraints(p_data.descrip_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00005_status_mov_checkColumnConstraints(p_data.status_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00005_cuenta_1_checkColumnConstraints(p_data.cuenta_1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00005_cuenta_2_checkColumnConstraints(p_data.cuenta_2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00005_cuenta_3_checkColumnConstraints(p_data.cuenta_3) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00005_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00005_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00005_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00005_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00005_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00005_control_clientes_checkColumnConstraints(p_data.control_clientes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00005_control_despacho_checkColumnConstraints(p_data.control_despacho) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00005_control_devolucion_checkColumnConstraints(p_data.control_devolucion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00005_checkTableConstraints {<BLOCK Name="fct.iptb00005_cod_mov_checkColumnConstraints">} #+ Check constraints on the "iptb00005.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00005_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE iptb00005.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_mov IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_mov: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00005_cod_mov_checkColumnConstraints {<BLOCK Name="fct.iptb00005_descrip_mov_checkColumnConstraints">} #+ Check constraints on the "iptb00005.descrip_mov" column #+ #+ @param p_descrip_mov - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00005_descrip_mov_checkColumnConstraints(p_descrip_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip_mov LIKE iptb00005.descrip_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00005_descrip_mov_checkColumnConstraints {<BLOCK Name="fct.iptb00005_status_mov_checkColumnConstraints">} #+ Check constraints on the "iptb00005.status_mov" column #+ #+ @param p_status_mov - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00005_status_mov_checkColumnConstraints(p_status_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_mov LIKE iptb00005.status_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00005_status_mov_checkColumnConstraints {<BLOCK Name="fct.iptb00005_cuenta_1_checkColumnConstraints">} #+ Check constraints on the "iptb00005.cuenta_1" column #+ #+ @param p_cuenta_1 - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00005_cuenta_1_checkColumnConstraints(p_cuenta_1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_1 LIKE iptb00005.cuenta_1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00005_cuenta_1_checkColumnConstraints {<BLOCK Name="fct.iptb00005_cuenta_2_checkColumnConstraints">} #+ Check constraints on the "iptb00005.cuenta_2" column #+ #+ @param p_cuenta_2 - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00005_cuenta_2_checkColumnConstraints(p_cuenta_2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_2 LIKE iptb00005.cuenta_2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00005_cuenta_2_checkColumnConstraints {<BLOCK Name="fct.iptb00005_cuenta_3_checkColumnConstraints">} #+ Check constraints on the "iptb00005.cuenta_3" column #+ #+ @param p_cuenta_3 - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00005_cuenta_3_checkColumnConstraints(p_cuenta_3) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_3 LIKE iptb00005.cuenta_3 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00005_cuenta_3_checkColumnConstraints {<BLOCK Name="fct.iptb00005_status_t_checkColumnConstraints">} #+ Check constraints on the "iptb00005.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00005_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE iptb00005.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00005_status_t_checkColumnConstraints {<BLOCK Name="fct.iptb00005_us_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00005.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00005_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE iptb00005.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00005_us_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00005_fech_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00005.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00005_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE iptb00005.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00005_fech_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00005_us_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00005.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00005_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE iptb00005.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00005_us_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00005_fech_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00005.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00005_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE iptb00005.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00005_fech_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00005_control_clientes_checkColumnConstraints">} #+ Check constraints on the "iptb00005.control_clientes" column #+ #+ @param p_control_clientes - CHAR(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00005_control_clientes_checkColumnConstraints(p_control_clientes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_control_clientes LIKE iptb00005.control_clientes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_control_clientes IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- control_clientes: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00005_control_clientes_checkColumnConstraints {<BLOCK Name="fct.iptb00005_control_despacho_checkColumnConstraints">} #+ Check constraints on the "iptb00005.control_despacho" column #+ #+ @param p_control_despacho - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00005_control_despacho_checkColumnConstraints(p_control_despacho) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_control_despacho LIKE iptb00005.control_despacho LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00005_control_despacho_checkColumnConstraints {<BLOCK Name="fct.iptb00005_control_devolucion_checkColumnConstraints">} #+ Check constraints on the "iptb00005.control_devolucion" column #+ #+ @param p_control_devolucion - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00005_control_devolucion_checkColumnConstraints(p_control_devolucion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_control_devolucion LIKE iptb00005.control_devolucion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00005_control_devolucion_checkColumnConstraints {<BLOCK Name="fct.iptb00004_checkTableConstraints">} #+ Check constraints on the "iptb00004" table #+ #+ @param p_data - a row data LIKE iptb00004.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00004_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE iptb00004.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_iptb00004_ventas_checkColumnConstraints(p_data.ventas) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00004_mes_ini_checkColumnConstraints(p_data.mes_ini) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00004_mes_fin_checkColumnConstraints(p_data.mes_fin) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00004_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00004_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00004_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00004_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00004_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00004_material_checkColumnConstraints(p_data.material) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00004_labor_checkColumnConstraints(p_data.labor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00004_gastos_checkColumnConstraints(p_data.gastos) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00004_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00004_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00004_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00004_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00004_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00004_pk_iptb00004_checkUniqueConstraint(p_forUpdate, p_data.ano, p_data.cod_n, p_data.cod_grupo, p_data.cod_tipo, p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00004_checkTableConstraints {<BLOCK Name="fct.iptb00004_pk_iptb00004_checkUniqueConstraint">} #+ Check the primary key uniqueness constraint on the "iptb00004" #+ #+ @param p_key - Primary Key #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00004_pk_iptb00004_checkUniqueConstraint(p_forUpdate, p_key) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_forUpdate BOOLEAN DEFINE p_key RECORD iptb00004_ano LIKE iptb00004.ano, iptb00004_cod_n LIKE iptb00004.cod_n, iptb00004_cod_grupo LIKE iptb00004.cod_grupo, iptb00004_cod_tipo LIKE iptb00004.cod_tipo, iptb00004_cod_sec LIKE iptb00004.cod_sec END RECORD DEFINE l_key RECORD iptb00004_ano LIKE iptb00004.ano, iptb00004_cod_n LIKE iptb00004.cod_n, iptb00004_cod_grupo LIKE iptb00004.cod_grupo, iptb00004_cod_tipo LIKE iptb00004.cod_tipo, iptb00004_cod_sec LIKE iptb00004.cod_sec 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 iptb00004.ano = ? AND iptb00004.cod_n = ? AND iptb00004.cod_grupo = ? AND iptb00004.cod_tipo = ? AND iptb00004.cod_sec = ? " let l_sqlQuery = "SELECT COUNT(*), ano, cod_n, cod_grupo, cod_tipo, cod_sec FROM iptb00004 ", l_where, " GROUP BY ano, cod_n, cod_grupo, cod_tipo, cod_sec" PREPARE cur_iptb00004_pk_iptb00004_checkUniqueConstraint FROM l_sqlQuery EXECUTE cur_iptb00004_pk_iptb00004_checkUniqueConstraint INTO l_count, l_key.* USING p_key.* FREE cur_iptb00004_pk_iptb00004_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- ano + cod_n + cod_grupo + cod_tipo + cod_sec: " || ERROR_BAM_00002) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00004_pk_iptb00004_checkUniqueConstraint {<BLOCK Name="fct.iptb00004_ventas_checkColumnConstraints">} #+ Check constraints on the "iptb00004.ventas" column #+ #+ @param p_ventas - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00004_ventas_checkColumnConstraints(p_ventas) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ventas LIKE iptb00004.ventas LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00004_ventas_checkColumnConstraints {<BLOCK Name="fct.iptb00004_mes_ini_checkColumnConstraints">} #+ Check constraints on the "iptb00004.mes_ini" column #+ #+ @param p_mes_ini - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00004_mes_ini_checkColumnConstraints(p_mes_ini) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes_ini LIKE iptb00004.mes_ini LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00004_mes_ini_checkColumnConstraints {<BLOCK Name="fct.iptb00004_mes_fin_checkColumnConstraints">} #+ Check constraints on the "iptb00004.mes_fin" column #+ #+ @param p_mes_fin - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00004_mes_fin_checkColumnConstraints(p_mes_fin) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes_fin LIKE iptb00004.mes_fin LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00004_mes_fin_checkColumnConstraints {<BLOCK Name="fct.iptb00004_ano_checkColumnConstraints">} #+ Check constraints on the "iptb00004.ano" column #+ #+ @param p_ano - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00004_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE iptb00004.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_ano IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- ano: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00004_ano_checkColumnConstraints {<BLOCK Name="fct.iptb00004_cod_n_checkColumnConstraints">} #+ Check constraints on the "iptb00004.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00004_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE iptb00004.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00004_cod_n_checkColumnConstraints {<BLOCK Name="fct.iptb00004_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "iptb00004.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00004_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE iptb00004.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_grupo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_grupo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00004_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.iptb00004_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "iptb00004.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00004_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE iptb00004.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tipo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tipo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00004_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.iptb00004_cod_sec_checkColumnConstraints">} #+ Check constraints on the "iptb00004.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00004_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE iptb00004.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00004_cod_sec_checkColumnConstraints {<BLOCK Name="fct.iptb00004_material_checkColumnConstraints">} #+ Check constraints on the "iptb00004.material" column #+ #+ @param p_material - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00004_material_checkColumnConstraints(p_material) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_material LIKE iptb00004.material LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00004_material_checkColumnConstraints {<BLOCK Name="fct.iptb00004_labor_checkColumnConstraints">} #+ Check constraints on the "iptb00004.labor" column #+ #+ @param p_labor - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00004_labor_checkColumnConstraints(p_labor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_labor LIKE iptb00004.labor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00004_labor_checkColumnConstraints {<BLOCK Name="fct.iptb00004_gastos_checkColumnConstraints">} #+ Check constraints on the "iptb00004.gastos" column #+ #+ @param p_gastos - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00004_gastos_checkColumnConstraints(p_gastos) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_gastos LIKE iptb00004.gastos LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00004_gastos_checkColumnConstraints {<BLOCK Name="fct.iptb00004_status_t_checkColumnConstraints">} #+ Check constraints on the "iptb00004.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00004_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE iptb00004.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00004_status_t_checkColumnConstraints {<BLOCK Name="fct.iptb00004_us_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00004.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00004_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE iptb00004.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00004_us_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00004_fech_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00004.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00004_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE iptb00004.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00004_fech_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00004_us_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00004.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00004_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE iptb00004.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00004_us_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00004_fech_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00004.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00004_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE iptb00004.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00004_fech_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00003_checkTableConstraints">} #+ Check constraints on the "iptb00003" table #+ #+ @param p_data - a row data LIKE iptb00003.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00003_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE iptb00003.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_iptb00003_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00003_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00003_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00003_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00003_presentacion_checkColumnConstraints(p_data.presentacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00003_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00003_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00003_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00003_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00003_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00003_checkTableConstraints {<BLOCK Name="fct.iptb00003_cod_n_checkColumnConstraints">} #+ Check constraints on the "iptb00003.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00003_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE iptb00003.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00003_cod_n_checkColumnConstraints {<BLOCK Name="fct.iptb00003_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "iptb00003.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00003_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE iptb00003.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00003_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.iptb00003_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "iptb00003.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00003_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE iptb00003.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00003_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.iptb00003_cod_sec_checkColumnConstraints">} #+ Check constraints on the "iptb00003.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00003_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE iptb00003.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00003_cod_sec_checkColumnConstraints {<BLOCK Name="fct.iptb00003_presentacion_checkColumnConstraints">} #+ Check constraints on the "iptb00003.presentacion" column #+ #+ @param p_presentacion - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00003_presentacion_checkColumnConstraints(p_presentacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_presentacion LIKE iptb00003.presentacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00003_presentacion_checkColumnConstraints {<BLOCK Name="fct.iptb00003_status_t_checkColumnConstraints">} #+ Check constraints on the "iptb00003.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00003_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE iptb00003.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00003_status_t_checkColumnConstraints {<BLOCK Name="fct.iptb00003_us_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00003.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00003_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE iptb00003.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00003_us_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00003_fech_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00003.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00003_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE iptb00003.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00003_fech_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00003_us_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00003.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00003_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE iptb00003.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00003_us_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00003_fech_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00003.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00003_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE iptb00003.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00003_fech_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00002_checkTableConstraints">} #+ Check constraints on the "iptb00002" table #+ #+ @param p_data - a row data LIKE iptb00002.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00002_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE iptb00002.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_iptb00002_cod_cia_checkColumnConstraints(p_data.cod_cia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00002_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00002_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00002_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00002_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00002_descrip_esp_checkColumnConstraints(p_data.descrip_esp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00002_descrip_ing_checkColumnConstraints(p_data.descrip_ing) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00002_unidad_med_checkColumnConstraints(p_data.unidad_med) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00002_nomenclatura_checkColumnConstraints(p_data.nomenclatura) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00002_bodega_checkColumnConstraints(p_data.bodega) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00002_exist_max_checkColumnConstraints(p_data.exist_max) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00002_exist_min_checkColumnConstraints(p_data.exist_min) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00002_dia_llegada_checkColumnConstraints(p_data.dia_llegada) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00002_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00002_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00002_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00002_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00002_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00002_control_existencia_checkColumnConstraints(p_data.control_existencia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00002_control_itbis_checkColumnConstraints(p_data.control_itbis) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00002_codid_checkColumnConstraints(p_data.codid) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00002_foto_producto_checkColumnConstraints(p_data.foto_producto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00002_pk_iptb00002_1_checkUniqueConstraint(p_forUpdate, p_data.cod_n, p_data.cod_grupo, p_data.cod_tipo, p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00002_checkTableConstraints {<BLOCK Name="fct.iptb00002_pk_iptb00002_1_checkUniqueConstraint">} #+ Check the primary key uniqueness constraint on the "iptb00002" #+ #+ @param p_key - Primary Key #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00002_pk_iptb00002_1_checkUniqueConstraint(p_forUpdate, p_key) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_forUpdate BOOLEAN DEFINE p_key RECORD iptb00002_cod_n LIKE iptb00002.cod_n, iptb00002_cod_grupo LIKE iptb00002.cod_grupo, iptb00002_cod_tipo LIKE iptb00002.cod_tipo, iptb00002_cod_sec LIKE iptb00002.cod_sec END RECORD DEFINE l_key RECORD iptb00002_cod_n LIKE iptb00002.cod_n, iptb00002_cod_grupo LIKE iptb00002.cod_grupo, iptb00002_cod_tipo LIKE iptb00002.cod_tipo, iptb00002_cod_sec LIKE iptb00002.cod_sec 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 iptb00002.cod_n = ? AND iptb00002.cod_grupo = ? AND iptb00002.cod_tipo = ? AND iptb00002.cod_sec = ? " let l_sqlQuery = "SELECT COUNT(*), cod_n, cod_grupo, cod_tipo, cod_sec FROM iptb00002 ", l_where, " GROUP BY cod_n, cod_grupo, cod_tipo, cod_sec" PREPARE cur_iptb00002_pk_iptb00002_1_checkUniqueConstraint FROM l_sqlQuery EXECUTE cur_iptb00002_pk_iptb00002_1_checkUniqueConstraint INTO l_count, l_key.* USING p_key.* FREE cur_iptb00002_pk_iptb00002_1_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- cod_n + cod_grupo + cod_tipo + cod_sec: " || ERROR_BAM_00002) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00002_pk_iptb00002_1_checkUniqueConstraint {<BLOCK Name="fct.iptb00002_cod_cia_checkColumnConstraints">} #+ Check constraints on the "iptb00002.cod_cia" column #+ #+ @param p_cod_cia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00002_cod_cia_checkColumnConstraints(p_cod_cia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_cia LIKE iptb00002.cod_cia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_cia IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_cia: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00002_cod_cia_checkColumnConstraints {<BLOCK Name="fct.iptb00002_cod_n_checkColumnConstraints">} #+ Check constraints on the "iptb00002.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00002_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE iptb00002.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00002_cod_n_checkColumnConstraints {<BLOCK Name="fct.iptb00002_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "iptb00002.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00002_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE iptb00002.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_grupo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_grupo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00002_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.iptb00002_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "iptb00002.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00002_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE iptb00002.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tipo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tipo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00002_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.iptb00002_cod_sec_checkColumnConstraints">} #+ Check constraints on the "iptb00002.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00002_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE iptb00002.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00002_cod_sec_checkColumnConstraints {<BLOCK Name="fct.iptb00002_descrip_esp_checkColumnConstraints">} #+ Check constraints on the "iptb00002.descrip_esp" column #+ #+ @param p_descrip_esp - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00002_descrip_esp_checkColumnConstraints(p_descrip_esp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip_esp LIKE iptb00002.descrip_esp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_descrip_esp IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- descrip_esp: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00002_descrip_esp_checkColumnConstraints {<BLOCK Name="fct.iptb00002_descrip_ing_checkColumnConstraints">} #+ Check constraints on the "iptb00002.descrip_ing" column #+ #+ @param p_descrip_ing - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00002_descrip_ing_checkColumnConstraints(p_descrip_ing) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip_ing LIKE iptb00002.descrip_ing LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00002_descrip_ing_checkColumnConstraints {<BLOCK Name="fct.iptb00002_unidad_med_checkColumnConstraints">} #+ Check constraints on the "iptb00002.unidad_med" column #+ #+ @param p_unidad_med - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00002_unidad_med_checkColumnConstraints(p_unidad_med) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_unidad_med LIKE iptb00002.unidad_med LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00002_unidad_med_checkColumnConstraints {<BLOCK Name="fct.iptb00002_nomenclatura_checkColumnConstraints">} #+ Check constraints on the "iptb00002.nomenclatura" column #+ #+ @param p_nomenclatura - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00002_nomenclatura_checkColumnConstraints(p_nomenclatura) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nomenclatura LIKE iptb00002.nomenclatura LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00002_nomenclatura_checkColumnConstraints {<BLOCK Name="fct.iptb00002_bodega_checkColumnConstraints">} #+ Check constraints on the "iptb00002.bodega" column #+ #+ @param p_bodega - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00002_bodega_checkColumnConstraints(p_bodega) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_bodega LIKE iptb00002.bodega LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00002_bodega_checkColumnConstraints {<BLOCK Name="fct.iptb00002_exist_max_checkColumnConstraints">} #+ Check constraints on the "iptb00002.exist_max" column #+ #+ @param p_exist_max - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00002_exist_max_checkColumnConstraints(p_exist_max) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_exist_max LIKE iptb00002.exist_max LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00002_exist_max_checkColumnConstraints {<BLOCK Name="fct.iptb00002_exist_min_checkColumnConstraints">} #+ Check constraints on the "iptb00002.exist_min" column #+ #+ @param p_exist_min - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00002_exist_min_checkColumnConstraints(p_exist_min) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_exist_min LIKE iptb00002.exist_min LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00002_exist_min_checkColumnConstraints {<BLOCK Name="fct.iptb00002_dia_llegada_checkColumnConstraints">} #+ Check constraints on the "iptb00002.dia_llegada" column #+ #+ @param p_dia_llegada - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00002_dia_llegada_checkColumnConstraints(p_dia_llegada) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_dia_llegada LIKE iptb00002.dia_llegada LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00002_dia_llegada_checkColumnConstraints {<BLOCK Name="fct.iptb00002_status_t_checkColumnConstraints">} #+ Check constraints on the "iptb00002.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00002_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE iptb00002.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00002_status_t_checkColumnConstraints {<BLOCK Name="fct.iptb00002_us_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00002.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00002_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE iptb00002.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00002_us_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00002_fech_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00002.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00002_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE iptb00002.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00002_fech_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00002_us_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00002.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00002_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE iptb00002.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00002_us_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00002_fech_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00002.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00002_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE iptb00002.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00002_fech_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00002_control_existencia_checkColumnConstraints">} #+ Check constraints on the "iptb00002.control_existencia" column #+ #+ @param p_control_existencia - VARCHAR2(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00002_control_existencia_checkColumnConstraints(p_control_existencia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_control_existencia LIKE iptb00002.control_existencia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00002_control_existencia_checkColumnConstraints {<BLOCK Name="fct.iptb00002_control_itbis_checkColumnConstraints">} #+ Check constraints on the "iptb00002.control_itbis" column #+ #+ @param p_control_itbis - VARCHAR2(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00002_control_itbis_checkColumnConstraints(p_control_itbis) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_control_itbis LIKE iptb00002.control_itbis LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00002_control_itbis_checkColumnConstraints {<BLOCK Name="fct.iptb00002_codid_checkColumnConstraints">} #+ Check constraints on the "iptb00002.codid" column #+ #+ @param p_codid - SERIAL - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00002_codid_checkColumnConstraints(p_codid) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codid LIKE iptb00002.codid LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_codid IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- codid: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00002_codid_checkColumnConstraints {<BLOCK Name="fct.iptb00002_foto_producto_checkColumnConstraints">} #+ Check constraints on the "iptb00002.foto_producto" column #+ #+ @param p_foto_producto - CHAR(200) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00002_foto_producto_checkColumnConstraints(p_foto_producto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_foto_producto LIKE iptb00002.foto_producto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00002_foto_producto_checkColumnConstraints {<BLOCK Name="fct.iptb00001_checkTableConstraints">} #+ Check constraints on the "iptb00001" table #+ #+ @param p_data - a row data LIKE iptb00001.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00001_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE iptb00001.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_iptb00001_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00001_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00001_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00001_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00001_unidad_checkColumnConstraints(p_data.unidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00001_factor_conv_checkColumnConstraints(p_data.factor_conv) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00001_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00001_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00001_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00001_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00001_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00001_factor_ad_checkColumnConstraints(p_data.factor_ad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_iptb00001_pk_iptb00001_checkUniqueConstraint(p_forUpdate, p_data.cod_n, p_data.cod_grupo, p_data.cod_tipo, p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00001_checkTableConstraints {<BLOCK Name="fct.iptb00001_pk_iptb00001_checkUniqueConstraint">} #+ Check the primary key uniqueness constraint on the "iptb00001" #+ #+ @param p_key - Primary Key #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00001_pk_iptb00001_checkUniqueConstraint(p_forUpdate, p_key) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_forUpdate BOOLEAN DEFINE p_key RECORD iptb00001_cod_n LIKE iptb00001.cod_n, iptb00001_cod_grupo LIKE iptb00001.cod_grupo, iptb00001_cod_tipo LIKE iptb00001.cod_tipo, iptb00001_cod_sec LIKE iptb00001.cod_sec END RECORD DEFINE l_key RECORD iptb00001_cod_n LIKE iptb00001.cod_n, iptb00001_cod_grupo LIKE iptb00001.cod_grupo, iptb00001_cod_tipo LIKE iptb00001.cod_tipo, iptb00001_cod_sec LIKE iptb00001.cod_sec 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 iptb00001.cod_n = ? AND iptb00001.cod_grupo = ? AND iptb00001.cod_tipo = ? AND iptb00001.cod_sec = ? " let l_sqlQuery = "SELECT COUNT(*), cod_n, cod_grupo, cod_tipo, cod_sec FROM iptb00001 ", l_where, " GROUP BY cod_n, cod_grupo, cod_tipo, cod_sec" PREPARE cur_iptb00001_pk_iptb00001_checkUniqueConstraint FROM l_sqlQuery EXECUTE cur_iptb00001_pk_iptb00001_checkUniqueConstraint INTO l_count, l_key.* USING p_key.* FREE cur_iptb00001_pk_iptb00001_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- cod_n + cod_grupo + cod_tipo + cod_sec: " || ERROR_BAM_00002) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00001_pk_iptb00001_checkUniqueConstraint {<BLOCK Name="fct.iptb00001_cod_n_checkColumnConstraints">} #+ Check constraints on the "iptb00001.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00001_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE iptb00001.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00001_cod_n_checkColumnConstraints {<BLOCK Name="fct.iptb00001_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "iptb00001.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00001_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE iptb00001.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_grupo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_grupo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00001_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.iptb00001_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "iptb00001.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00001_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE iptb00001.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tipo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tipo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00001_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.iptb00001_cod_sec_checkColumnConstraints">} #+ Check constraints on the "iptb00001.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00001_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE iptb00001.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00001_cod_sec_checkColumnConstraints {<BLOCK Name="fct.iptb00001_unidad_checkColumnConstraints">} #+ Check constraints on the "iptb00001.unidad" column #+ #+ @param p_unidad - CHAR(5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00001_unidad_checkColumnConstraints(p_unidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_unidad LIKE iptb00001.unidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00001_unidad_checkColumnConstraints {<BLOCK Name="fct.iptb00001_factor_conv_checkColumnConstraints">} #+ Check constraints on the "iptb00001.factor_conv" column #+ #+ @param p_factor_conv - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00001_factor_conv_checkColumnConstraints(p_factor_conv) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_factor_conv LIKE iptb00001.factor_conv LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00001_factor_conv_checkColumnConstraints {<BLOCK Name="fct.iptb00001_status_t_checkColumnConstraints">} #+ Check constraints on the "iptb00001.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00001_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE iptb00001.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00001_status_t_checkColumnConstraints {<BLOCK Name="fct.iptb00001_us_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00001.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00001_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE iptb00001.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00001_us_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00001_fech_crea_checkColumnConstraints">} #+ Check constraints on the "iptb00001.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00001_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE iptb00001.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00001_fech_crea_checkColumnConstraints {<BLOCK Name="fct.iptb00001_us_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00001.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00001_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE iptb00001.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00001_us_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00001_fech_mod_checkColumnConstraints">} #+ Check constraints on the "iptb00001.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00001_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE iptb00001.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00001_fech_mod_checkColumnConstraints {<BLOCK Name="fct.iptb00001_factor_ad_checkColumnConstraints">} #+ Check constraints on the "iptb00001.factor_ad" column #+ #+ @param p_factor_ad - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_iptb00001_factor_ad_checkColumnConstraints(p_factor_ad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_factor_ad LIKE iptb00001.factor_ad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.iptb00001_factor_ad_checkColumnConstraints {<BLOCK Name="fct.inventory_checkTableConstraints">} #+ Check constraints on the "inventory" table #+ #+ @param p_data - a row data LIKE inventory.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_inventory_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE inventory.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_inventory_itemid_checkColumnConstraints(p_data.itemid) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_inventory_qty_checkColumnConstraints(p_data.qty) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.inventory_checkTableConstraints {<BLOCK Name="fct.inventory_itemid_checkColumnConstraints">} #+ Check constraints on the "inventory.itemid" column #+ #+ @param p_itemid - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_inventory_itemid_checkColumnConstraints(p_itemid) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_itemid LIKE inventory.itemid LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_itemid IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- itemid: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.inventory_itemid_checkColumnConstraints {<BLOCK Name="fct.inventory_qty_checkColumnConstraints">} #+ Check constraints on the "inventory.qty" column #+ #+ @param p_qty - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_inventory_qty_checkColumnConstraints(p_qty) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_qty LIKE inventory.qty LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_qty IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- qty: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.inventory_qty_checkColumnConstraints {<BLOCK Name="fct.intb00043a_checkTableConstraints">} #+ Check constraints on the "intb00043a" table #+ #+ @param p_data - a row data LIKE intb00043a.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_intb00043a_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE intb00043a.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_intb00043a_cod_bodega_checkColumnConstraints(p_data.cod_bodega) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00043a_cod_seccion_checkColumnConstraints(p_data.cod_seccion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00043a_cod_tramo_checkColumnConstraints(p_data.cod_tramo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00043a_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00043a_checkTableConstraints {<BLOCK Name="fct.intb00043a_cod_bodega_checkColumnConstraints">} #+ Check constraints on the "intb00043a.cod_bodega" column #+ #+ @param p_cod_bodega - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00043a_cod_bodega_checkColumnConstraints(p_cod_bodega) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_bodega LIKE intb00043a.cod_bodega LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_bodega IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_bodega: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00043a_cod_bodega_checkColumnConstraints {<BLOCK Name="fct.intb00043a_cod_seccion_checkColumnConstraints">} #+ Check constraints on the "intb00043a.cod_seccion" column #+ #+ @param p_cod_seccion - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00043a_cod_seccion_checkColumnConstraints(p_cod_seccion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_seccion LIKE intb00043a.cod_seccion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_seccion IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_seccion: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00043a_cod_seccion_checkColumnConstraints {<BLOCK Name="fct.intb00043a_cod_tramo_checkColumnConstraints">} #+ Check constraints on the "intb00043a.cod_tramo" column #+ #+ @param p_cod_tramo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00043a_cod_tramo_checkColumnConstraints(p_cod_tramo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tramo LIKE intb00043a.cod_tramo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tramo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tramo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00043a_cod_tramo_checkColumnConstraints {<BLOCK Name="fct.intb00043a_descripcion_checkColumnConstraints">} #+ Check constraints on the "intb00043a.descripcion" column #+ #+ @param p_descripcion - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00043a_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE intb00043a.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00043a_descripcion_checkColumnConstraints {<BLOCK Name="fct.intb00043$_checkTableConstraints">} #+ Check constraints on the "intb00043$" table #+ #+ @param p_data - a row data LIKE intb00043$.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_intb00043$_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE intb00043$.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_intb00043$_cod_bodega_checkColumnConstraints(p_data.cod_bodega) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00043$_cod_seccion_checkColumnConstraints(p_data.cod_seccion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00043$_cod_tramo_checkColumnConstraints(p_data.cod_tramo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00043$_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00043$_checkTableConstraints {<BLOCK Name="fct.intb00043$_cod_bodega_checkColumnConstraints">} #+ Check constraints on the "intb00043$.cod_bodega" column #+ #+ @param p_cod_bodega - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00043$_cod_bodega_checkColumnConstraints(p_cod_bodega) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_bodega LIKE intb00043$.cod_bodega LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00043$_cod_bodega_checkColumnConstraints {<BLOCK Name="fct.intb00043$_cod_seccion_checkColumnConstraints">} #+ Check constraints on the "intb00043$.cod_seccion" column #+ #+ @param p_cod_seccion - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00043$_cod_seccion_checkColumnConstraints(p_cod_seccion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_seccion LIKE intb00043$.cod_seccion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00043$_cod_seccion_checkColumnConstraints {<BLOCK Name="fct.intb00043$_cod_tramo_checkColumnConstraints">} #+ Check constraints on the "intb00043$.cod_tramo" column #+ #+ @param p_cod_tramo - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00043$_cod_tramo_checkColumnConstraints(p_cod_tramo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tramo LIKE intb00043$.cod_tramo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00043$_cod_tramo_checkColumnConstraints {<BLOCK Name="fct.intb00043$_descripcion_checkColumnConstraints">} #+ Check constraints on the "intb00043$.descripcion" column #+ #+ @param p_descripcion - VARCHAR2(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00043$_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE intb00043$.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00043$_descripcion_checkColumnConstraints {<BLOCK Name="fct.intb00043_checkTableConstraints">} #+ Check constraints on the "intb00043" table #+ #+ @param p_data - a row data LIKE intb00043.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_intb00043_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE intb00043.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_intb00043_cod_bodega_checkColumnConstraints(p_data.cod_bodega) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00043_cod_seccion_checkColumnConstraints(p_data.cod_seccion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00043_cod_tramo_checkColumnConstraints(p_data.cod_tramo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00043_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00043_checkTableConstraints {<BLOCK Name="fct.intb00043_cod_bodega_checkColumnConstraints">} #+ Check constraints on the "intb00043.cod_bodega" column #+ #+ @param p_cod_bodega - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00043_cod_bodega_checkColumnConstraints(p_cod_bodega) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_bodega LIKE intb00043.cod_bodega LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00043_cod_bodega_checkColumnConstraints {<BLOCK Name="fct.intb00043_cod_seccion_checkColumnConstraints">} #+ Check constraints on the "intb00043.cod_seccion" column #+ #+ @param p_cod_seccion - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00043_cod_seccion_checkColumnConstraints(p_cod_seccion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_seccion LIKE intb00043.cod_seccion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00043_cod_seccion_checkColumnConstraints {<BLOCK Name="fct.intb00043_cod_tramo_checkColumnConstraints">} #+ Check constraints on the "intb00043.cod_tramo" column #+ #+ @param p_cod_tramo - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00043_cod_tramo_checkColumnConstraints(p_cod_tramo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tramo LIKE intb00043.cod_tramo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00043_cod_tramo_checkColumnConstraints {<BLOCK Name="fct.intb00043_descripcion_checkColumnConstraints">} #+ Check constraints on the "intb00043.descripcion" column #+ #+ @param p_descripcion - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00043_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE intb00043.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00043_descripcion_checkColumnConstraints {<BLOCK Name="fct.intb00042_checkTableConstraints">} #+ Check constraints on the "intb00042" table #+ #+ @param p_data - a row data LIKE intb00042.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_intb00042_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE intb00042.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_intb00042_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00042_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00042_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00042_bodega_checkColumnConstraints(p_data.bodega) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00042_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00042_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00042_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00042_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00042_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00042_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00042_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00042_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00042_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00042_checkTableConstraints {<BLOCK Name="fct.intb00042_num_doc_checkColumnConstraints">} #+ Check constraints on the "intb00042.num_doc" column #+ #+ @param p_num_doc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00042_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE intb00042.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00042_num_doc_checkColumnConstraints {<BLOCK Name="fct.intb00042_fecha_checkColumnConstraints">} #+ Check constraints on the "intb00042.fecha" column #+ #+ @param p_fecha - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00042_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE intb00042.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00042_fecha_checkColumnConstraints {<BLOCK Name="fct.intb00042_cod_mov_checkColumnConstraints">} #+ Check constraints on the "intb00042.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00042_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE intb00042.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00042_cod_mov_checkColumnConstraints {<BLOCK Name="fct.intb00042_bodega_checkColumnConstraints">} #+ Check constraints on the "intb00042.bodega" column #+ #+ @param p_bodega - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00042_bodega_checkColumnConstraints(p_bodega) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_bodega LIKE intb00042.bodega LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00042_bodega_checkColumnConstraints {<BLOCK Name="fct.intb00042_cod_n_checkColumnConstraints">} #+ Check constraints on the "intb00042.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00042_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE intb00042.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00042_cod_n_checkColumnConstraints {<BLOCK Name="fct.intb00042_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "intb00042.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00042_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE intb00042.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00042_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.intb00042_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "intb00042.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00042_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE intb00042.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00042_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.intb00042_cod_sec_checkColumnConstraints">} #+ Check constraints on the "intb00042.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00042_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE intb00042.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00042_cod_sec_checkColumnConstraints {<BLOCK Name="fct.intb00042_cantidad_checkColumnConstraints">} #+ Check constraints on the "intb00042.cantidad" column #+ #+ @param p_cantidad - DECIMAL(18,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00042_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE intb00042.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00042_cantidad_checkColumnConstraints {<BLOCK Name="fct.intb00042_us_crea_checkColumnConstraints">} #+ Check constraints on the "intb00042.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00042_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE intb00042.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00042_us_crea_checkColumnConstraints {<BLOCK Name="fct.intb00042_fech_crea_checkColumnConstraints">} #+ Check constraints on the "intb00042.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00042_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE intb00042.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00042_fech_crea_checkColumnConstraints {<BLOCK Name="fct.intb00042_us_mod_checkColumnConstraints">} #+ Check constraints on the "intb00042.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00042_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE intb00042.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00042_us_mod_checkColumnConstraints {<BLOCK Name="fct.intb00042_fech_mod_checkColumnConstraints">} #+ Check constraints on the "intb00042.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00042_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE intb00042.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00042_fech_mod_checkColumnConstraints {<BLOCK Name="fct.intb00041_checkTableConstraints">} #+ Check constraints on the "intb00041" table #+ #+ @param p_data - a row data LIKE intb00041.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_intb00041_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE intb00041.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_intb00041_fecha_act_checkColumnConstraints(p_data.fecha_act) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00041_idtrx_checkColumnConstraints(p_data.idtrx) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00041_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00041_bodega_checkColumnConstraints(p_data.bodega) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00041_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00041_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00041_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00041_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00041_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00041_balance_checkColumnConstraints(p_data.balance) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00041_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00041_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00041_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00041_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00041_checkTableConstraints {<BLOCK Name="fct.intb00041_fecha_act_checkColumnConstraints">} #+ Check constraints on the "intb00041.fecha_act" column #+ #+ @param p_fecha_act - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00041_fecha_act_checkColumnConstraints(p_fecha_act) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_act LIKE intb00041.fecha_act LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00041_fecha_act_checkColumnConstraints {<BLOCK Name="fct.intb00041_idtrx_checkColumnConstraints">} #+ Check constraints on the "intb00041.idtrx" column #+ #+ @param p_idtrx - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00041_idtrx_checkColumnConstraints(p_idtrx) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_idtrx LIKE intb00041.idtrx LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00041_idtrx_checkColumnConstraints {<BLOCK Name="fct.intb00041_fecha_checkColumnConstraints">} #+ Check constraints on the "intb00041.fecha" column #+ #+ @param p_fecha - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00041_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE intb00041.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00041_fecha_checkColumnConstraints {<BLOCK Name="fct.intb00041_bodega_checkColumnConstraints">} #+ Check constraints on the "intb00041.bodega" column #+ #+ @param p_bodega - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00041_bodega_checkColumnConstraints(p_bodega) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_bodega LIKE intb00041.bodega LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00041_bodega_checkColumnConstraints {<BLOCK Name="fct.intb00041_cod_n_checkColumnConstraints">} #+ Check constraints on the "intb00041.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00041_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE intb00041.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00041_cod_n_checkColumnConstraints {<BLOCK Name="fct.intb00041_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "intb00041.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00041_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE intb00041.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00041_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.intb00041_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "intb00041.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00041_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE intb00041.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00041_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.intb00041_cod_sec_checkColumnConstraints">} #+ Check constraints on the "intb00041.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00041_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE intb00041.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00041_cod_sec_checkColumnConstraints {<BLOCK Name="fct.intb00041_cantidad_checkColumnConstraints">} #+ Check constraints on the "intb00041.cantidad" column #+ #+ @param p_cantidad - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00041_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE intb00041.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00041_cantidad_checkColumnConstraints {<BLOCK Name="fct.intb00041_balance_checkColumnConstraints">} #+ Check constraints on the "intb00041.balance" column #+ #+ @param p_balance - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00041_balance_checkColumnConstraints(p_balance) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_balance LIKE intb00041.balance LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00041_balance_checkColumnConstraints {<BLOCK Name="fct.intb00041_us_crea_checkColumnConstraints">} #+ Check constraints on the "intb00041.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00041_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE intb00041.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00041_us_crea_checkColumnConstraints {<BLOCK Name="fct.intb00041_fech_crea_checkColumnConstraints">} #+ Check constraints on the "intb00041.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00041_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE intb00041.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00041_fech_crea_checkColumnConstraints {<BLOCK Name="fct.intb00041_us_mod_checkColumnConstraints">} #+ Check constraints on the "intb00041.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00041_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE intb00041.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00041_us_mod_checkColumnConstraints {<BLOCK Name="fct.intb00041_fech_mod_checkColumnConstraints">} #+ Check constraints on the "intb00041.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00041_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE intb00041.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00041_fech_mod_checkColumnConstraints {<BLOCK Name="fct.intb00040_checkTableConstraints">} #+ Check constraints on the "intb00040" table #+ #+ @param p_data - a row data LIKE intb00040.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_intb00040_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE intb00040.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_intb00040_fecha_act_checkColumnConstraints(p_data.fecha_act) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00040_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00040_bodega_checkColumnConstraints(p_data.bodega) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00040_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00040_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00040_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00040_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00040_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00040_balance_checkColumnConstraints(p_data.balance) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00040_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00040_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00040_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00040_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00040_checkTableConstraints {<BLOCK Name="fct.intb00040_fecha_act_checkColumnConstraints">} #+ Check constraints on the "intb00040.fecha_act" column #+ #+ @param p_fecha_act - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00040_fecha_act_checkColumnConstraints(p_fecha_act) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_act LIKE intb00040.fecha_act LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00040_fecha_act_checkColumnConstraints {<BLOCK Name="fct.intb00040_fecha_checkColumnConstraints">} #+ Check constraints on the "intb00040.fecha" column #+ #+ @param p_fecha - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00040_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE intb00040.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00040_fecha_checkColumnConstraints {<BLOCK Name="fct.intb00040_bodega_checkColumnConstraints">} #+ Check constraints on the "intb00040.bodega" column #+ #+ @param p_bodega - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00040_bodega_checkColumnConstraints(p_bodega) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_bodega LIKE intb00040.bodega LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00040_bodega_checkColumnConstraints {<BLOCK Name="fct.intb00040_cod_n_checkColumnConstraints">} #+ Check constraints on the "intb00040.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00040_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE intb00040.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00040_cod_n_checkColumnConstraints {<BLOCK Name="fct.intb00040_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "intb00040.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00040_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE intb00040.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00040_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.intb00040_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "intb00040.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00040_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE intb00040.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00040_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.intb00040_cod_sec_checkColumnConstraints">} #+ Check constraints on the "intb00040.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00040_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE intb00040.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00040_cod_sec_checkColumnConstraints {<BLOCK Name="fct.intb00040_cantidad_checkColumnConstraints">} #+ Check constraints on the "intb00040.cantidad" column #+ #+ @param p_cantidad - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00040_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE intb00040.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00040_cantidad_checkColumnConstraints {<BLOCK Name="fct.intb00040_balance_checkColumnConstraints">} #+ Check constraints on the "intb00040.balance" column #+ #+ @param p_balance - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00040_balance_checkColumnConstraints(p_balance) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_balance LIKE intb00040.balance LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00040_balance_checkColumnConstraints {<BLOCK Name="fct.intb00040_us_crea_checkColumnConstraints">} #+ Check constraints on the "intb00040.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00040_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE intb00040.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00040_us_crea_checkColumnConstraints {<BLOCK Name="fct.intb00040_fech_crea_checkColumnConstraints">} #+ Check constraints on the "intb00040.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00040_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE intb00040.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00040_fech_crea_checkColumnConstraints {<BLOCK Name="fct.intb00040_us_mod_checkColumnConstraints">} #+ Check constraints on the "intb00040.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00040_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE intb00040.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00040_us_mod_checkColumnConstraints {<BLOCK Name="fct.intb00040_fech_mod_checkColumnConstraints">} #+ Check constraints on the "intb00040.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00040_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE intb00040.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00040_fech_mod_checkColumnConstraints {<BLOCK Name="fct.intb00026_checkTableConstraints">} #+ Check constraints on the "intb00026" table #+ #+ @param p_data - a row data LIKE intb00026.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_intb00026_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE intb00026.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_intb00026_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00026_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00026_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00026_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00026_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00026_cantidad_a_checkColumnConstraints(p_data.cantidad_a) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00026_cantidad_b_checkColumnConstraints(p_data.cantidad_b) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00026_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00026_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00026_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00026_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00026_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00026_checkTableConstraints {<BLOCK Name="fct.intb00026_fecha_checkColumnConstraints">} #+ Check constraints on the "intb00026.fecha" column #+ #+ @param p_fecha - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00026_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE intb00026.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00026_fecha_checkColumnConstraints {<BLOCK Name="fct.intb00026_cod_n_checkColumnConstraints">} #+ Check constraints on the "intb00026.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00026_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE intb00026.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00026_cod_n_checkColumnConstraints {<BLOCK Name="fct.intb00026_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "intb00026.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00026_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE intb00026.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00026_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.intb00026_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "intb00026.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00026_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE intb00026.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00026_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.intb00026_cod_sec_checkColumnConstraints">} #+ Check constraints on the "intb00026.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00026_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE intb00026.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00026_cod_sec_checkColumnConstraints {<BLOCK Name="fct.intb00026_cantidad_a_checkColumnConstraints">} #+ Check constraints on the "intb00026.cantidad_a" column #+ #+ @param p_cantidad_a - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00026_cantidad_a_checkColumnConstraints(p_cantidad_a) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad_a LIKE intb00026.cantidad_a LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00026_cantidad_a_checkColumnConstraints {<BLOCK Name="fct.intb00026_cantidad_b_checkColumnConstraints">} #+ Check constraints on the "intb00026.cantidad_b" column #+ #+ @param p_cantidad_b - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00026_cantidad_b_checkColumnConstraints(p_cantidad_b) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad_b LIKE intb00026.cantidad_b LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00026_cantidad_b_checkColumnConstraints {<BLOCK Name="fct.intb00026_status_t_checkColumnConstraints">} #+ Check constraints on the "intb00026.status_t" column #+ #+ @param p_status_t - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00026_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE intb00026.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00026_status_t_checkColumnConstraints {<BLOCK Name="fct.intb00026_us_crea_checkColumnConstraints">} #+ Check constraints on the "intb00026.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00026_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE intb00026.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00026_us_crea_checkColumnConstraints {<BLOCK Name="fct.intb00026_fech_crea_checkColumnConstraints">} #+ Check constraints on the "intb00026.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00026_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE intb00026.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00026_fech_crea_checkColumnConstraints {<BLOCK Name="fct.intb00026_us_mod_checkColumnConstraints">} #+ Check constraints on the "intb00026.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00026_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE intb00026.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00026_us_mod_checkColumnConstraints {<BLOCK Name="fct.intb00026_fech_mod_checkColumnConstraints">} #+ Check constraints on the "intb00026.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00026_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE intb00026.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00026_fech_mod_checkColumnConstraints {<BLOCK Name="fct.intb00023_checkTableConstraints">} #+ Check constraints on the "intb00023" table #+ #+ @param p_data - a row data LIKE intb00023.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_intb00023_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE intb00023.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_intb00023_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00023_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00023_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00023_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00023_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00023_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00023_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00023_checkTableConstraints {<BLOCK Name="fct.intb00023_num_doc_checkColumnConstraints">} #+ Check constraints on the "intb00023.num_doc" column #+ #+ @param p_num_doc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00023_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE intb00023.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_num_doc IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- num_doc: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00023_num_doc_checkColumnConstraints {<BLOCK Name="fct.intb00023_cod_mov_checkColumnConstraints">} #+ Check constraints on the "intb00023.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00023_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE intb00023.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00023_cod_mov_checkColumnConstraints {<BLOCK Name="fct.intb00023_status_t_checkColumnConstraints">} #+ Check constraints on the "intb00023.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00023_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE intb00023.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00023_status_t_checkColumnConstraints {<BLOCK Name="fct.intb00023_us_crea_checkColumnConstraints">} #+ Check constraints on the "intb00023.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00023_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE intb00023.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00023_us_crea_checkColumnConstraints {<BLOCK Name="fct.intb00023_fech_crea_checkColumnConstraints">} #+ Check constraints on the "intb00023.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00023_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE intb00023.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00023_fech_crea_checkColumnConstraints {<BLOCK Name="fct.intb00023_us_mod_checkColumnConstraints">} #+ Check constraints on the "intb00023.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00023_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE intb00023.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00023_us_mod_checkColumnConstraints {<BLOCK Name="fct.intb00023_fech_mod_checkColumnConstraints">} #+ Check constraints on the "intb00023.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00023_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE intb00023.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00023_fech_mod_checkColumnConstraints {<BLOCK Name="fct.intb00022_checkTableConstraints">} #+ Check constraints on the "intb00022" table #+ #+ @param p_data - a row data LIKE intb00022.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_intb00022_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE intb00022.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_intb00022_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00022_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00022_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00022_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00022_descrip_esp_checkColumnConstraints(p_data.descrip_esp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00022_descrip_ing_checkColumnConstraints(p_data.descrip_ing) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00022_unidad_med_checkColumnConstraints(p_data.unidad_med) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00022_costo_real_ci_checkColumnConstraints(p_data.costo_real_ci) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00022_costo_real_si_checkColumnConstraints(p_data.costo_real_si) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00022_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00022_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00022_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00022_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00022_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00022_checkTableConstraints {<BLOCK Name="fct.intb00022_cod_n_checkColumnConstraints">} #+ Check constraints on the "intb00022.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00022_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE intb00022.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00022_cod_n_checkColumnConstraints {<BLOCK Name="fct.intb00022_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "intb00022.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00022_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE intb00022.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_grupo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_grupo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00022_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.intb00022_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "intb00022.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00022_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE intb00022.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tipo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tipo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00022_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.intb00022_cod_sec_checkColumnConstraints">} #+ Check constraints on the "intb00022.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00022_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE intb00022.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00022_cod_sec_checkColumnConstraints {<BLOCK Name="fct.intb00022_descrip_esp_checkColumnConstraints">} #+ Check constraints on the "intb00022.descrip_esp" column #+ #+ @param p_descrip_esp - VARCHAR2(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00022_descrip_esp_checkColumnConstraints(p_descrip_esp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip_esp LIKE intb00022.descrip_esp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00022_descrip_esp_checkColumnConstraints {<BLOCK Name="fct.intb00022_descrip_ing_checkColumnConstraints">} #+ Check constraints on the "intb00022.descrip_ing" column #+ #+ @param p_descrip_ing - VARCHAR2(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00022_descrip_ing_checkColumnConstraints(p_descrip_ing) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip_ing LIKE intb00022.descrip_ing LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00022_descrip_ing_checkColumnConstraints {<BLOCK Name="fct.intb00022_unidad_med_checkColumnConstraints">} #+ Check constraints on the "intb00022.unidad_med" column #+ #+ @param p_unidad_med - VARCHAR2(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00022_unidad_med_checkColumnConstraints(p_unidad_med) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_unidad_med LIKE intb00022.unidad_med LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00022_unidad_med_checkColumnConstraints {<BLOCK Name="fct.intb00022_costo_real_ci_checkColumnConstraints">} #+ Check constraints on the "intb00022.costo_real_ci" column #+ #+ @param p_costo_real_ci - DECIMAL(9,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00022_costo_real_ci_checkColumnConstraints(p_costo_real_ci) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_costo_real_ci LIKE intb00022.costo_real_ci LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00022_costo_real_ci_checkColumnConstraints {<BLOCK Name="fct.intb00022_costo_real_si_checkColumnConstraints">} #+ Check constraints on the "intb00022.costo_real_si" column #+ #+ @param p_costo_real_si - DECIMAL(9,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00022_costo_real_si_checkColumnConstraints(p_costo_real_si) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_costo_real_si LIKE intb00022.costo_real_si LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00022_costo_real_si_checkColumnConstraints {<BLOCK Name="fct.intb00022_status_t_checkColumnConstraints">} #+ Check constraints on the "intb00022.status_t" column #+ #+ @param p_status_t - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00022_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE intb00022.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00022_status_t_checkColumnConstraints {<BLOCK Name="fct.intb00022_us_crea_checkColumnConstraints">} #+ Check constraints on the "intb00022.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00022_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE intb00022.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00022_us_crea_checkColumnConstraints {<BLOCK Name="fct.intb00022_fech_crea_checkColumnConstraints">} #+ Check constraints on the "intb00022.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00022_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE intb00022.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00022_fech_crea_checkColumnConstraints {<BLOCK Name="fct.intb00022_us_mod_checkColumnConstraints">} #+ Check constraints on the "intb00022.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00022_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE intb00022.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00022_us_mod_checkColumnConstraints {<BLOCK Name="fct.intb00022_fech_mod_checkColumnConstraints">} #+ Check constraints on the "intb00022.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00022_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE intb00022.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00022_fech_mod_checkColumnConstraints {<BLOCK Name="fct.intb00020_checkTableConstraints">} #+ Check constraints on the "intb00020" table #+ #+ @param p_data - a row data LIKE intb00020.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_intb00020_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE intb00020.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_intb00020_tipo_doc_checkColumnConstraints(p_data.tipo_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00020_num_fianza_checkColumnConstraints(p_data.num_fianza) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00020_num_res_checkColumnConstraints(p_data.num_res) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00020_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00020_nom_buque_checkColumnConstraints(p_data.nom_buque) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00020_fecha_ent_checkColumnConstraints(p_data.fecha_ent) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00020_cod_sp_checkColumnConstraints(p_data.cod_sp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00020_cod_sp_sec_checkColumnConstraints(p_data.cod_sp_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00020_cod_pais_checkColumnConstraints(p_data.cod_pais) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00020_cant_bulto_checkColumnConstraints(p_data.cant_bulto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00020_num_oc_checkColumnConstraints(p_data.num_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00020_num_emb_checkColumnConstraints(p_data.num_emb) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00020_valor_merc_checkColumnConstraints(p_data.valor_merc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00020_cod_ca_checkColumnConstraints(p_data.cod_ca) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00020_poliza_checkColumnConstraints(p_data.poliza) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00020_prima_checkColumnConstraints(p_data.prima) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00020_porc_prima_checkColumnConstraints(p_data.porc_prima) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00020_valor_desm_checkColumnConstraints(p_data.valor_desm) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00020_valor_gar_checkColumnConstraints(p_data.valor_gar) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00020_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00020_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00020_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00020_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00020_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00020_cantidad_c_checkColumnConstraints(p_data.cantidad_c) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00020_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00020_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00020_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00020_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00020_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00020_checkTableConstraints {<BLOCK Name="fct.intb00020_tipo_doc_checkColumnConstraints">} #+ Check constraints on the "intb00020.tipo_doc" column #+ #+ @param p_tipo_doc - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00020_tipo_doc_checkColumnConstraints(p_tipo_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_doc LIKE intb00020.tipo_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00020_tipo_doc_checkColumnConstraints {<BLOCK Name="fct.intb00020_num_fianza_checkColumnConstraints">} #+ Check constraints on the "intb00020.num_fianza" column #+ #+ @param p_num_fianza - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00020_num_fianza_checkColumnConstraints(p_num_fianza) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_fianza LIKE intb00020.num_fianza LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00020_num_fianza_checkColumnConstraints {<BLOCK Name="fct.intb00020_num_res_checkColumnConstraints">} #+ Check constraints on the "intb00020.num_res" column #+ #+ @param p_num_res - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00020_num_res_checkColumnConstraints(p_num_res) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_res LIKE intb00020.num_res LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00020_num_res_checkColumnConstraints {<BLOCK Name="fct.intb00020_fecha_checkColumnConstraints">} #+ Check constraints on the "intb00020.fecha" column #+ #+ @param p_fecha - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00020_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE intb00020.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00020_fecha_checkColumnConstraints {<BLOCK Name="fct.intb00020_nom_buque_checkColumnConstraints">} #+ Check constraints on the "intb00020.nom_buque" column #+ #+ @param p_nom_buque - VARCHAR2(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00020_nom_buque_checkColumnConstraints(p_nom_buque) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nom_buque LIKE intb00020.nom_buque LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00020_nom_buque_checkColumnConstraints {<BLOCK Name="fct.intb00020_fecha_ent_checkColumnConstraints">} #+ Check constraints on the "intb00020.fecha_ent" column #+ #+ @param p_fecha_ent - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00020_fecha_ent_checkColumnConstraints(p_fecha_ent) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_ent LIKE intb00020.fecha_ent LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00020_fecha_ent_checkColumnConstraints {<BLOCK Name="fct.intb00020_cod_sp_checkColumnConstraints">} #+ Check constraints on the "intb00020.cod_sp" column #+ #+ @param p_cod_sp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00020_cod_sp_checkColumnConstraints(p_cod_sp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp LIKE intb00020.cod_sp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00020_cod_sp_checkColumnConstraints {<BLOCK Name="fct.intb00020_cod_sp_sec_checkColumnConstraints">} #+ Check constraints on the "intb00020.cod_sp_sec" column #+ #+ @param p_cod_sp_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00020_cod_sp_sec_checkColumnConstraints(p_cod_sp_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp_sec LIKE intb00020.cod_sp_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00020_cod_sp_sec_checkColumnConstraints {<BLOCK Name="fct.intb00020_cod_pais_checkColumnConstraints">} #+ Check constraints on the "intb00020.cod_pais" column #+ #+ @param p_cod_pais - VARCHAR2(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00020_cod_pais_checkColumnConstraints(p_cod_pais) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_pais LIKE intb00020.cod_pais LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00020_cod_pais_checkColumnConstraints {<BLOCK Name="fct.intb00020_cant_bulto_checkColumnConstraints">} #+ Check constraints on the "intb00020.cant_bulto" column #+ #+ @param p_cant_bulto - VARCHAR2(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00020_cant_bulto_checkColumnConstraints(p_cant_bulto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cant_bulto LIKE intb00020.cant_bulto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00020_cant_bulto_checkColumnConstraints {<BLOCK Name="fct.intb00020_num_oc_checkColumnConstraints">} #+ Check constraints on the "intb00020.num_oc" column #+ #+ @param p_num_oc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00020_num_oc_checkColumnConstraints(p_num_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_oc LIKE intb00020.num_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00020_num_oc_checkColumnConstraints {<BLOCK Name="fct.intb00020_num_emb_checkColumnConstraints">} #+ Check constraints on the "intb00020.num_emb" column #+ #+ @param p_num_emb - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00020_num_emb_checkColumnConstraints(p_num_emb) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_emb LIKE intb00020.num_emb LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00020_num_emb_checkColumnConstraints {<BLOCK Name="fct.intb00020_valor_merc_checkColumnConstraints">} #+ Check constraints on the "intb00020.valor_merc" column #+ #+ @param p_valor_merc - DECIMAL(13,3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00020_valor_merc_checkColumnConstraints(p_valor_merc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor_merc LIKE intb00020.valor_merc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00020_valor_merc_checkColumnConstraints {<BLOCK Name="fct.intb00020_cod_ca_checkColumnConstraints">} #+ Check constraints on the "intb00020.cod_ca" column #+ #+ @param p_cod_ca - VARCHAR2(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00020_cod_ca_checkColumnConstraints(p_cod_ca) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_ca LIKE intb00020.cod_ca LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00020_cod_ca_checkColumnConstraints {<BLOCK Name="fct.intb00020_poliza_checkColumnConstraints">} #+ Check constraints on the "intb00020.poliza" column #+ #+ @param p_poliza - VARCHAR2(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00020_poliza_checkColumnConstraints(p_poliza) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_poliza LIKE intb00020.poliza LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00020_poliza_checkColumnConstraints {<BLOCK Name="fct.intb00020_prima_checkColumnConstraints">} #+ Check constraints on the "intb00020.prima" column #+ #+ @param p_prima - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00020_prima_checkColumnConstraints(p_prima) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_prima LIKE intb00020.prima LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00020_prima_checkColumnConstraints {<BLOCK Name="fct.intb00020_porc_prima_checkColumnConstraints">} #+ Check constraints on the "intb00020.porc_prima" column #+ #+ @param p_porc_prima - DECIMAL(7,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00020_porc_prima_checkColumnConstraints(p_porc_prima) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_porc_prima LIKE intb00020.porc_prima LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00020_porc_prima_checkColumnConstraints {<BLOCK Name="fct.intb00020_valor_desm_checkColumnConstraints">} #+ Check constraints on the "intb00020.valor_desm" column #+ #+ @param p_valor_desm - DECIMAL(7,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00020_valor_desm_checkColumnConstraints(p_valor_desm) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor_desm LIKE intb00020.valor_desm LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00020_valor_desm_checkColumnConstraints {<BLOCK Name="fct.intb00020_valor_gar_checkColumnConstraints">} #+ Check constraints on the "intb00020.valor_gar" column #+ #+ @param p_valor_gar - DECIMAL(13,3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00020_valor_gar_checkColumnConstraints(p_valor_gar) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor_gar LIKE intb00020.valor_gar LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00020_valor_gar_checkColumnConstraints {<BLOCK Name="fct.intb00020_cod_n_checkColumnConstraints">} #+ Check constraints on the "intb00020.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00020_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE intb00020.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00020_cod_n_checkColumnConstraints {<BLOCK Name="fct.intb00020_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "intb00020.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00020_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE intb00020.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00020_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.intb00020_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "intb00020.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00020_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE intb00020.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00020_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.intb00020_cod_sec_checkColumnConstraints">} #+ Check constraints on the "intb00020.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00020_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE intb00020.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00020_cod_sec_checkColumnConstraints {<BLOCK Name="fct.intb00020_cantidad_checkColumnConstraints">} #+ Check constraints on the "intb00020.cantidad" column #+ #+ @param p_cantidad - DECIMAL(13,3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00020_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE intb00020.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00020_cantidad_checkColumnConstraints {<BLOCK Name="fct.intb00020_cantidad_c_checkColumnConstraints">} #+ Check constraints on the "intb00020.cantidad_c" column #+ #+ @param p_cantidad_c - DECIMAL(13,3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00020_cantidad_c_checkColumnConstraints(p_cantidad_c) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad_c LIKE intb00020.cantidad_c LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00020_cantidad_c_checkColumnConstraints {<BLOCK Name="fct.intb00020_status_t_checkColumnConstraints">} #+ Check constraints on the "intb00020.status_t" column #+ #+ @param p_status_t - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00020_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE intb00020.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00020_status_t_checkColumnConstraints {<BLOCK Name="fct.intb00020_us_crea_checkColumnConstraints">} #+ Check constraints on the "intb00020.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00020_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE intb00020.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00020_us_crea_checkColumnConstraints {<BLOCK Name="fct.intb00020_fech_crea_checkColumnConstraints">} #+ Check constraints on the "intb00020.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00020_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE intb00020.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00020_fech_crea_checkColumnConstraints {<BLOCK Name="fct.intb00020_us_mod_checkColumnConstraints">} #+ Check constraints on the "intb00020.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00020_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE intb00020.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00020_us_mod_checkColumnConstraints {<BLOCK Name="fct.intb00020_fech_mod_checkColumnConstraints">} #+ Check constraints on the "intb00020.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00020_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE intb00020.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00020_fech_mod_checkColumnConstraints {<BLOCK Name="fct.intb00019_checkTableConstraints">} #+ Check constraints on the "intb00019" table #+ #+ @param p_data - a row data LIKE intb00019.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_intb00019_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE intb00019.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_intb00019_cod_inv_checkColumnConstraints(p_data.cod_inv) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00019_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00019_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00019_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00019_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00019_cod_sp_checkColumnConstraints(p_data.cod_sp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00019_cod_sp_sec_checkColumnConstraints(p_data.cod_sp_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00019_unidad_med_checkColumnConstraints(p_data.unidad_med) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00019_conversion_checkColumnConstraints(p_data.conversion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00019_precio_checkColumnConstraints(p_data.precio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00019_precio_s_checkColumnConstraints(p_data.precio_s) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00019_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00019_referencia_checkColumnConstraints(p_data.referencia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00019_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00019_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00019_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00019_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00019_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00019_pk_intb00019_checkUniqueConstraint(p_forUpdate, p_data.cod_n, p_data.cod_grupo, p_data.cod_tipo, p_data.cod_sec, p_data.cod_sp, p_data.cod_sp_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00019_checkTableConstraints {<BLOCK Name="fct.intb00019_pk_intb00019_checkUniqueConstraint">} #+ Check the primary key uniqueness constraint on the "intb00019" #+ #+ @param p_key - Primary Key #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00019_pk_intb00019_checkUniqueConstraint(p_forUpdate, p_key) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_forUpdate BOOLEAN DEFINE p_key RECORD intb00019_cod_n LIKE intb00019.cod_n, intb00019_cod_grupo LIKE intb00019.cod_grupo, intb00019_cod_tipo LIKE intb00019.cod_tipo, intb00019_cod_sec LIKE intb00019.cod_sec, intb00019_cod_sp LIKE intb00019.cod_sp, intb00019_cod_sp_sec LIKE intb00019.cod_sp_sec END RECORD DEFINE l_key RECORD intb00019_cod_n LIKE intb00019.cod_n, intb00019_cod_grupo LIKE intb00019.cod_grupo, intb00019_cod_tipo LIKE intb00019.cod_tipo, intb00019_cod_sec LIKE intb00019.cod_sec, intb00019_cod_sp LIKE intb00019.cod_sp, intb00019_cod_sp_sec LIKE intb00019.cod_sp_sec 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 intb00019.cod_n = ? AND intb00019.cod_grupo = ? AND intb00019.cod_tipo = ? AND intb00019.cod_sec = ? AND intb00019.cod_sp = ? AND intb00019.cod_sp_sec = ? " let l_sqlQuery = "SELECT COUNT(*), cod_n, cod_grupo, cod_tipo, cod_sec, cod_sp, cod_sp_sec FROM intb00019 ", l_where, " GROUP BY cod_n, cod_grupo, cod_tipo, cod_sec, cod_sp, cod_sp_sec" PREPARE cur_intb00019_pk_intb00019_checkUniqueConstraint FROM l_sqlQuery EXECUTE cur_intb00019_pk_intb00019_checkUniqueConstraint INTO l_count, l_key.* USING p_key.* FREE cur_intb00019_pk_intb00019_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- cod_n + cod_grupo + cod_tipo + cod_sec + cod_sp + cod_sp_sec: " || ERROR_BAM_00002) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00019_pk_intb00019_checkUniqueConstraint {<BLOCK Name="fct.intb00019_cod_inv_checkColumnConstraints">} #+ Check constraints on the "intb00019.cod_inv" column #+ #+ @param p_cod_inv - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00019_cod_inv_checkColumnConstraints(p_cod_inv) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_inv LIKE intb00019.cod_inv LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00019_cod_inv_checkColumnConstraints {<BLOCK Name="fct.intb00019_cod_n_checkColumnConstraints">} #+ Check constraints on the "intb00019.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00019_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE intb00019.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00019_cod_n_checkColumnConstraints {<BLOCK Name="fct.intb00019_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "intb00019.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00019_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE intb00019.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_grupo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_grupo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00019_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.intb00019_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "intb00019.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00019_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE intb00019.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tipo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tipo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00019_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.intb00019_cod_sec_checkColumnConstraints">} #+ Check constraints on the "intb00019.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00019_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE intb00019.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00019_cod_sec_checkColumnConstraints {<BLOCK Name="fct.intb00019_cod_sp_checkColumnConstraints">} #+ Check constraints on the "intb00019.cod_sp" column #+ #+ @param p_cod_sp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00019_cod_sp_checkColumnConstraints(p_cod_sp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp LIKE intb00019.cod_sp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sp IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sp: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00019_cod_sp_checkColumnConstraints {<BLOCK Name="fct.intb00019_cod_sp_sec_checkColumnConstraints">} #+ Check constraints on the "intb00019.cod_sp_sec" column #+ #+ @param p_cod_sp_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00019_cod_sp_sec_checkColumnConstraints(p_cod_sp_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp_sec LIKE intb00019.cod_sp_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sp_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sp_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00019_cod_sp_sec_checkColumnConstraints {<BLOCK Name="fct.intb00019_unidad_med_checkColumnConstraints">} #+ Check constraints on the "intb00019.unidad_med" column #+ #+ @param p_unidad_med - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00019_unidad_med_checkColumnConstraints(p_unidad_med) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_unidad_med LIKE intb00019.unidad_med LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00019_unidad_med_checkColumnConstraints {<BLOCK Name="fct.intb00019_conversion_checkColumnConstraints">} #+ Check constraints on the "intb00019.conversion" column #+ #+ @param p_conversion - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00019_conversion_checkColumnConstraints(p_conversion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_conversion LIKE intb00019.conversion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00019_conversion_checkColumnConstraints {<BLOCK Name="fct.intb00019_precio_checkColumnConstraints">} #+ Check constraints on the "intb00019.precio" column #+ #+ @param p_precio - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00019_precio_checkColumnConstraints(p_precio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_precio LIKE intb00019.precio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00019_precio_checkColumnConstraints {<BLOCK Name="fct.intb00019_precio_s_checkColumnConstraints">} #+ Check constraints on the "intb00019.precio_s" column #+ #+ @param p_precio_s - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00019_precio_s_checkColumnConstraints(p_precio_s) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_precio_s LIKE intb00019.precio_s LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00019_precio_s_checkColumnConstraints {<BLOCK Name="fct.intb00019_descripcion_checkColumnConstraints">} #+ Check constraints on the "intb00019.descripcion" column #+ #+ @param p_descripcion - CHAR(100) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00019_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE intb00019.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00019_descripcion_checkColumnConstraints {<BLOCK Name="fct.intb00019_referencia_checkColumnConstraints">} #+ Check constraints on the "intb00019.referencia" column #+ #+ @param p_referencia - CHAR(25) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00019_referencia_checkColumnConstraints(p_referencia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_referencia LIKE intb00019.referencia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00019_referencia_checkColumnConstraints {<BLOCK Name="fct.intb00019_status_t_checkColumnConstraints">} #+ Check constraints on the "intb00019.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00019_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE intb00019.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00019_status_t_checkColumnConstraints {<BLOCK Name="fct.intb00019_us_crea_checkColumnConstraints">} #+ Check constraints on the "intb00019.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00019_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE intb00019.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00019_us_crea_checkColumnConstraints {<BLOCK Name="fct.intb00019_fech_crea_checkColumnConstraints">} #+ Check constraints on the "intb00019.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00019_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE intb00019.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00019_fech_crea_checkColumnConstraints {<BLOCK Name="fct.intb00019_us_mod_checkColumnConstraints">} #+ Check constraints on the "intb00019.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00019_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE intb00019.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00019_us_mod_checkColumnConstraints {<BLOCK Name="fct.intb00019_fech_mod_checkColumnConstraints">} #+ Check constraints on the "intb00019.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00019_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE intb00019.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00019_fech_mod_checkColumnConstraints {<BLOCK Name="fct.intb00018_checkTableConstraints">} #+ Check constraints on the "intb00018" table #+ #+ @param p_data - a row data LIKE intb00018.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_intb00018_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE intb00018.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_intb00018_documento_checkColumnConstraints(p_data.documento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00018_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00018_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00018_codigo_bloque_checkColumnConstraints(p_data.codigo_bloque) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00018_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00018_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00018_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00018_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00018_ancho1_checkColumnConstraints(p_data.ancho1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00018_largo1_checkColumnConstraints(p_data.largo1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00018_espesor1_checkColumnConstraints(p_data.espesor1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00018_medida1_checkColumnConstraints(p_data.medida1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00018_ancho2_checkColumnConstraints(p_data.ancho2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00018_largo2_checkColumnConstraints(p_data.largo2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00018_espesor2_checkColumnConstraints(p_data.espesor2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00018_medida2_checkColumnConstraints(p_data.medida2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00018_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00018_checkTableConstraints {<BLOCK Name="fct.intb00018_documento_checkColumnConstraints">} #+ Check constraints on the "intb00018.documento" column #+ #+ @param p_documento - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00018_documento_checkColumnConstraints(p_documento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_documento LIKE intb00018.documento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00018_documento_checkColumnConstraints {<BLOCK Name="fct.intb00018_cod_mov_checkColumnConstraints">} #+ Check constraints on the "intb00018.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00018_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE intb00018.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00018_cod_mov_checkColumnConstraints {<BLOCK Name="fct.intb00018_fecha_checkColumnConstraints">} #+ Check constraints on the "intb00018.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00018_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE intb00018.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00018_fecha_checkColumnConstraints {<BLOCK Name="fct.intb00018_codigo_bloque_checkColumnConstraints">} #+ Check constraints on the "intb00018.codigo_bloque" column #+ #+ @param p_codigo_bloque - CHAR(25) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00018_codigo_bloque_checkColumnConstraints(p_codigo_bloque) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codigo_bloque LIKE intb00018.codigo_bloque LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00018_codigo_bloque_checkColumnConstraints {<BLOCK Name="fct.intb00018_cod_n_checkColumnConstraints">} #+ Check constraints on the "intb00018.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00018_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE intb00018.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00018_cod_n_checkColumnConstraints {<BLOCK Name="fct.intb00018_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "intb00018.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00018_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE intb00018.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00018_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.intb00018_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "intb00018.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00018_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE intb00018.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00018_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.intb00018_cod_sec_checkColumnConstraints">} #+ Check constraints on the "intb00018.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00018_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE intb00018.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00018_cod_sec_checkColumnConstraints {<BLOCK Name="fct.intb00018_ancho1_checkColumnConstraints">} #+ Check constraints on the "intb00018.ancho1" column #+ #+ @param p_ancho1 - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00018_ancho1_checkColumnConstraints(p_ancho1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ancho1 LIKE intb00018.ancho1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00018_ancho1_checkColumnConstraints {<BLOCK Name="fct.intb00018_largo1_checkColumnConstraints">} #+ Check constraints on the "intb00018.largo1" column #+ #+ @param p_largo1 - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00018_largo1_checkColumnConstraints(p_largo1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_largo1 LIKE intb00018.largo1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00018_largo1_checkColumnConstraints {<BLOCK Name="fct.intb00018_espesor1_checkColumnConstraints">} #+ Check constraints on the "intb00018.espesor1" column #+ #+ @param p_espesor1 - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00018_espesor1_checkColumnConstraints(p_espesor1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_espesor1 LIKE intb00018.espesor1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00018_espesor1_checkColumnConstraints {<BLOCK Name="fct.intb00018_medida1_checkColumnConstraints">} #+ Check constraints on the "intb00018.medida1" column #+ #+ @param p_medida1 - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00018_medida1_checkColumnConstraints(p_medida1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_medida1 LIKE intb00018.medida1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00018_medida1_checkColumnConstraints {<BLOCK Name="fct.intb00018_ancho2_checkColumnConstraints">} #+ Check constraints on the "intb00018.ancho2" column #+ #+ @param p_ancho2 - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00018_ancho2_checkColumnConstraints(p_ancho2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ancho2 LIKE intb00018.ancho2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00018_ancho2_checkColumnConstraints {<BLOCK Name="fct.intb00018_largo2_checkColumnConstraints">} #+ Check constraints on the "intb00018.largo2" column #+ #+ @param p_largo2 - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00018_largo2_checkColumnConstraints(p_largo2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_largo2 LIKE intb00018.largo2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00018_largo2_checkColumnConstraints {<BLOCK Name="fct.intb00018_espesor2_checkColumnConstraints">} #+ Check constraints on the "intb00018.espesor2" column #+ #+ @param p_espesor2 - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00018_espesor2_checkColumnConstraints(p_espesor2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_espesor2 LIKE intb00018.espesor2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00018_espesor2_checkColumnConstraints {<BLOCK Name="fct.intb00018_medida2_checkColumnConstraints">} #+ Check constraints on the "intb00018.medida2" column #+ #+ @param p_medida2 - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00018_medida2_checkColumnConstraints(p_medida2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_medida2 LIKE intb00018.medida2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00018_medida2_checkColumnConstraints {<BLOCK Name="fct.intb00018_cantidad_checkColumnConstraints">} #+ Check constraints on the "intb00018.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00018_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE intb00018.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00018_cantidad_checkColumnConstraints {<BLOCK Name="fct.intb00015_checkTableConstraints">} #+ Check constraints on the "intb00015" table #+ #+ @param p_data - a row data LIKE intb00015.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_intb00015_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE intb00015.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_intb00015_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00015_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00015_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00015_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00015_semana_del_checkColumnConstraints(p_data.semana_del) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00015_semana_al_checkColumnConstraints(p_data.semana_al) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00015_exis_act_checkColumnConstraints(p_data.exis_act) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00015_exis_fisica_checkColumnConstraints(p_data.exis_fisica) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00015_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00015_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00015_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00015_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00015_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00015_checkTableConstraints {<BLOCK Name="fct.intb00015_cod_n_checkColumnConstraints">} #+ Check constraints on the "intb00015.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00015_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE intb00015.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00015_cod_n_checkColumnConstraints {<BLOCK Name="fct.intb00015_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "intb00015.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00015_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE intb00015.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00015_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.intb00015_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "intb00015.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00015_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE intb00015.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00015_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.intb00015_cod_sec_checkColumnConstraints">} #+ Check constraints on the "intb00015.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00015_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE intb00015.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00015_cod_sec_checkColumnConstraints {<BLOCK Name="fct.intb00015_semana_del_checkColumnConstraints">} #+ Check constraints on the "intb00015.semana_del" column #+ #+ @param p_semana_del - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00015_semana_del_checkColumnConstraints(p_semana_del) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_semana_del LIKE intb00015.semana_del LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00015_semana_del_checkColumnConstraints {<BLOCK Name="fct.intb00015_semana_al_checkColumnConstraints">} #+ Check constraints on the "intb00015.semana_al" column #+ #+ @param p_semana_al - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00015_semana_al_checkColumnConstraints(p_semana_al) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_semana_al LIKE intb00015.semana_al LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00015_semana_al_checkColumnConstraints {<BLOCK Name="fct.intb00015_exis_act_checkColumnConstraints">} #+ Check constraints on the "intb00015.exis_act" column #+ #+ @param p_exis_act - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00015_exis_act_checkColumnConstraints(p_exis_act) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_exis_act LIKE intb00015.exis_act LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00015_exis_act_checkColumnConstraints {<BLOCK Name="fct.intb00015_exis_fisica_checkColumnConstraints">} #+ Check constraints on the "intb00015.exis_fisica" column #+ #+ @param p_exis_fisica - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00015_exis_fisica_checkColumnConstraints(p_exis_fisica) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_exis_fisica LIKE intb00015.exis_fisica LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00015_exis_fisica_checkColumnConstraints {<BLOCK Name="fct.intb00015_status_t_checkColumnConstraints">} #+ Check constraints on the "intb00015.status_t" column #+ #+ @param p_status_t - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00015_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE intb00015.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00015_status_t_checkColumnConstraints {<BLOCK Name="fct.intb00015_us_crea_checkColumnConstraints">} #+ Check constraints on the "intb00015.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00015_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE intb00015.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00015_us_crea_checkColumnConstraints {<BLOCK Name="fct.intb00015_fech_crea_checkColumnConstraints">} #+ Check constraints on the "intb00015.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00015_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE intb00015.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00015_fech_crea_checkColumnConstraints {<BLOCK Name="fct.intb00015_us_mod_checkColumnConstraints">} #+ Check constraints on the "intb00015.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00015_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE intb00015.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00015_us_mod_checkColumnConstraints {<BLOCK Name="fct.intb00015_fech_mod_checkColumnConstraints">} #+ Check constraints on the "intb00015.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00015_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE intb00015.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00015_fech_mod_checkColumnConstraints {<BLOCK Name="fct.intb00014_checkTableConstraints">} #+ Check constraints on the "intb00014" table #+ #+ @param p_data - a row data LIKE intb00014.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_intb00014_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE intb00014.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_intb00014_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00014_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00014_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00014_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00014_categoria_checkColumnConstraints(p_data.categoria) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00014_mes_ch_checkColumnConstraints(p_data.mes_ch) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00014_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00014_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00014_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00014_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00014_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00014_checkTableConstraints {<BLOCK Name="fct.intb00014_cod_n_checkColumnConstraints">} #+ Check constraints on the "intb00014.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00014_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE intb00014.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00014_cod_n_checkColumnConstraints {<BLOCK Name="fct.intb00014_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "intb00014.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00014_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE intb00014.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00014_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.intb00014_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "intb00014.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00014_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE intb00014.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00014_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.intb00014_cod_sec_checkColumnConstraints">} #+ Check constraints on the "intb00014.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00014_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE intb00014.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00014_cod_sec_checkColumnConstraints {<BLOCK Name="fct.intb00014_categoria_checkColumnConstraints">} #+ Check constraints on the "intb00014.categoria" column #+ #+ @param p_categoria - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00014_categoria_checkColumnConstraints(p_categoria) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_categoria LIKE intb00014.categoria LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00014_categoria_checkColumnConstraints {<BLOCK Name="fct.intb00014_mes_ch_checkColumnConstraints">} #+ Check constraints on the "intb00014.mes_ch" column #+ #+ @param p_mes_ch - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00014_mes_ch_checkColumnConstraints(p_mes_ch) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes_ch LIKE intb00014.mes_ch LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00014_mes_ch_checkColumnConstraints {<BLOCK Name="fct.intb00014_status_t_checkColumnConstraints">} #+ Check constraints on the "intb00014.status_t" column #+ #+ @param p_status_t - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00014_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE intb00014.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00014_status_t_checkColumnConstraints {<BLOCK Name="fct.intb00014_us_crea_checkColumnConstraints">} #+ Check constraints on the "intb00014.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00014_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE intb00014.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00014_us_crea_checkColumnConstraints {<BLOCK Name="fct.intb00014_fech_crea_checkColumnConstraints">} #+ Check constraints on the "intb00014.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00014_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE intb00014.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00014_fech_crea_checkColumnConstraints {<BLOCK Name="fct.intb00014_us_mod_checkColumnConstraints">} #+ Check constraints on the "intb00014.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00014_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE intb00014.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00014_us_mod_checkColumnConstraints {<BLOCK Name="fct.intb00014_fech_mod_checkColumnConstraints">} #+ Check constraints on the "intb00014.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00014_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE intb00014.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00014_fech_mod_checkColumnConstraints {<BLOCK Name="fct.intb00013_checkTableConstraints">} #+ Check constraints on the "intb00013" table #+ #+ @param p_data - a row data LIKE intb00013.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_intb00013_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE intb00013.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_intb00013_mes_ini_checkColumnConstraints(p_data.mes_ini) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00013_mes_fin_checkColumnConstraints(p_data.mes_fin) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00013_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00013_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00013_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00013_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00013_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00013_costo_st_checkColumnConstraints(p_data.costo_st) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00013_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00013_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00013_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00013_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00013_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00013_pk_intb00013_checkUniqueConstraint(p_forUpdate, p_data.ano, p_data.cod_n, p_data.cod_grupo, p_data.cod_tipo, p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00013_checkTableConstraints {<BLOCK Name="fct.intb00013_pk_intb00013_checkUniqueConstraint">} #+ Check the primary key uniqueness constraint on the "intb00013" #+ #+ @param p_key - Primary Key #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00013_pk_intb00013_checkUniqueConstraint(p_forUpdate, p_key) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_forUpdate BOOLEAN DEFINE p_key RECORD intb00013_ano LIKE intb00013.ano, intb00013_cod_n LIKE intb00013.cod_n, intb00013_cod_grupo LIKE intb00013.cod_grupo, intb00013_cod_tipo LIKE intb00013.cod_tipo, intb00013_cod_sec LIKE intb00013.cod_sec END RECORD DEFINE l_key RECORD intb00013_ano LIKE intb00013.ano, intb00013_cod_n LIKE intb00013.cod_n, intb00013_cod_grupo LIKE intb00013.cod_grupo, intb00013_cod_tipo LIKE intb00013.cod_tipo, intb00013_cod_sec LIKE intb00013.cod_sec 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 intb00013.ano = ? AND intb00013.cod_n = ? AND intb00013.cod_grupo = ? AND intb00013.cod_tipo = ? AND intb00013.cod_sec = ? " let l_sqlQuery = "SELECT COUNT(*), ano, cod_n, cod_grupo, cod_tipo, cod_sec FROM intb00013 ", l_where, " GROUP BY ano, cod_n, cod_grupo, cod_tipo, cod_sec" PREPARE cur_intb00013_pk_intb00013_checkUniqueConstraint FROM l_sqlQuery EXECUTE cur_intb00013_pk_intb00013_checkUniqueConstraint INTO l_count, l_key.* USING p_key.* FREE cur_intb00013_pk_intb00013_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- ano + cod_n + cod_grupo + cod_tipo + cod_sec: " || ERROR_BAM_00002) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00013_pk_intb00013_checkUniqueConstraint {<BLOCK Name="fct.intb00013_mes_ini_checkColumnConstraints">} #+ Check constraints on the "intb00013.mes_ini" column #+ #+ @param p_mes_ini - VARCHAR2(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00013_mes_ini_checkColumnConstraints(p_mes_ini) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes_ini LIKE intb00013.mes_ini LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00013_mes_ini_checkColumnConstraints {<BLOCK Name="fct.intb00013_mes_fin_checkColumnConstraints">} #+ Check constraints on the "intb00013.mes_fin" column #+ #+ @param p_mes_fin - VARCHAR2(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00013_mes_fin_checkColumnConstraints(p_mes_fin) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes_fin LIKE intb00013.mes_fin LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00013_mes_fin_checkColumnConstraints {<BLOCK Name="fct.intb00013_ano_checkColumnConstraints">} #+ Check constraints on the "intb00013.ano" column #+ #+ @param p_ano - VARCHAR2(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00013_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE intb00013.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_ano IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- ano: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00013_ano_checkColumnConstraints {<BLOCK Name="fct.intb00013_cod_n_checkColumnConstraints">} #+ Check constraints on the "intb00013.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00013_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE intb00013.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00013_cod_n_checkColumnConstraints {<BLOCK Name="fct.intb00013_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "intb00013.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00013_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE intb00013.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_grupo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_grupo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00013_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.intb00013_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "intb00013.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00013_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE intb00013.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tipo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tipo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00013_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.intb00013_cod_sec_checkColumnConstraints">} #+ Check constraints on the "intb00013.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00013_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE intb00013.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00013_cod_sec_checkColumnConstraints {<BLOCK Name="fct.intb00013_costo_st_checkColumnConstraints">} #+ Check constraints on the "intb00013.costo_st" column #+ #+ @param p_costo_st - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00013_costo_st_checkColumnConstraints(p_costo_st) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_costo_st LIKE intb00013.costo_st LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00013_costo_st_checkColumnConstraints {<BLOCK Name="fct.intb00013_status_t_checkColumnConstraints">} #+ Check constraints on the "intb00013.status_t" column #+ #+ @param p_status_t - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00013_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE intb00013.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00013_status_t_checkColumnConstraints {<BLOCK Name="fct.intb00013_us_crea_checkColumnConstraints">} #+ Check constraints on the "intb00013.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00013_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE intb00013.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00013_us_crea_checkColumnConstraints {<BLOCK Name="fct.intb00013_fech_crea_checkColumnConstraints">} #+ Check constraints on the "intb00013.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00013_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE intb00013.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00013_fech_crea_checkColumnConstraints {<BLOCK Name="fct.intb00013_us_mod_checkColumnConstraints">} #+ Check constraints on the "intb00013.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00013_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE intb00013.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00013_us_mod_checkColumnConstraints {<BLOCK Name="fct.intb00013_fech_mod_checkColumnConstraints">} #+ Check constraints on the "intb00013.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00013_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE intb00013.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00013_fech_mod_checkColumnConstraints {<BLOCK Name="fct.intb00012_checkTableConstraints">} #+ Check constraints on the "intb00012" table #+ #+ @param p_data - a row data LIKE intb00012.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_intb00012_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE intb00012.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_intb00012_idtrx_checkColumnConstraints(p_data.idtrx) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00012_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00012_bodega_checkColumnConstraints(p_data.bodega) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00012_cod_seccion_checkColumnConstraints(p_data.cod_seccion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00012_cod_tramo_checkColumnConstraints(p_data.cod_tramo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00012_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00012_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00012_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00012_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00012_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00012_balance_checkColumnConstraints(p_data.balance) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00012_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00012_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00012_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00012_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00012_checkTableConstraints {<BLOCK Name="fct.intb00012_idtrx_checkColumnConstraints">} #+ Check constraints on the "intb00012.idtrx" column #+ #+ @param p_idtrx - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00012_idtrx_checkColumnConstraints(p_idtrx) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_idtrx LIKE intb00012.idtrx LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00012_idtrx_checkColumnConstraints {<BLOCK Name="fct.intb00012_fecha_checkColumnConstraints">} #+ Check constraints on the "intb00012.fecha" column #+ #+ @param p_fecha - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00012_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE intb00012.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00012_fecha_checkColumnConstraints {<BLOCK Name="fct.intb00012_bodega_checkColumnConstraints">} #+ Check constraints on the "intb00012.bodega" column #+ #+ @param p_bodega - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00012_bodega_checkColumnConstraints(p_bodega) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_bodega LIKE intb00012.bodega LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00012_bodega_checkColumnConstraints {<BLOCK Name="fct.intb00012_cod_seccion_checkColumnConstraints">} #+ Check constraints on the "intb00012.cod_seccion" column #+ #+ @param p_cod_seccion - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00012_cod_seccion_checkColumnConstraints(p_cod_seccion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_seccion LIKE intb00012.cod_seccion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00012_cod_seccion_checkColumnConstraints {<BLOCK Name="fct.intb00012_cod_tramo_checkColumnConstraints">} #+ Check constraints on the "intb00012.cod_tramo" column #+ #+ @param p_cod_tramo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00012_cod_tramo_checkColumnConstraints(p_cod_tramo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tramo LIKE intb00012.cod_tramo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00012_cod_tramo_checkColumnConstraints {<BLOCK Name="fct.intb00012_cod_n_checkColumnConstraints">} #+ Check constraints on the "intb00012.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00012_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE intb00012.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00012_cod_n_checkColumnConstraints {<BLOCK Name="fct.intb00012_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "intb00012.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00012_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE intb00012.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00012_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.intb00012_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "intb00012.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00012_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE intb00012.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00012_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.intb00012_cod_sec_checkColumnConstraints">} #+ Check constraints on the "intb00012.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00012_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE intb00012.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00012_cod_sec_checkColumnConstraints {<BLOCK Name="fct.intb00012_cantidad_checkColumnConstraints">} #+ Check constraints on the "intb00012.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00012_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE intb00012.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00012_cantidad_checkColumnConstraints {<BLOCK Name="fct.intb00012_balance_checkColumnConstraints">} #+ Check constraints on the "intb00012.balance" column #+ #+ @param p_balance - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00012_balance_checkColumnConstraints(p_balance) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_balance LIKE intb00012.balance LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00012_balance_checkColumnConstraints {<BLOCK Name="fct.intb00012_us_crea_checkColumnConstraints">} #+ Check constraints on the "intb00012.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00012_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE intb00012.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00012_us_crea_checkColumnConstraints {<BLOCK Name="fct.intb00012_fech_crea_checkColumnConstraints">} #+ Check constraints on the "intb00012.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00012_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE intb00012.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00012_fech_crea_checkColumnConstraints {<BLOCK Name="fct.intb00012_us_mod_checkColumnConstraints">} #+ Check constraints on the "intb00012.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00012_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE intb00012.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00012_us_mod_checkColumnConstraints {<BLOCK Name="fct.intb00012_fech_mod_checkColumnConstraints">} #+ Check constraints on the "intb00012.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00012_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE intb00012.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00012_fech_mod_checkColumnConstraints {<BLOCK Name="fct.intb00011_checkTableConstraints">} #+ Check constraints on the "intb00011" table #+ #+ @param p_data - a row data LIKE intb00011.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_intb00011_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE intb00011.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_intb00011_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00011_bodega_checkColumnConstraints(p_data.bodega) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00011_cod_seccion_checkColumnConstraints(p_data.cod_seccion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00011_cod_tramo_checkColumnConstraints(p_data.cod_tramo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00011_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00011_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00011_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00011_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00011_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00011_balance_checkColumnConstraints(p_data.balance) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00011_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00011_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00011_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00011_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00011_checkTableConstraints {<BLOCK Name="fct.intb00011_fecha_checkColumnConstraints">} #+ Check constraints on the "intb00011.fecha" column #+ #+ @param p_fecha - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00011_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE intb00011.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_fecha IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- fecha: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00011_fecha_checkColumnConstraints {<BLOCK Name="fct.intb00011_bodega_checkColumnConstraints">} #+ Check constraints on the "intb00011.bodega" column #+ #+ @param p_bodega - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00011_bodega_checkColumnConstraints(p_bodega) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_bodega LIKE intb00011.bodega LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_bodega IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- bodega: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00011_bodega_checkColumnConstraints {<BLOCK Name="fct.intb00011_cod_seccion_checkColumnConstraints">} #+ Check constraints on the "intb00011.cod_seccion" column #+ #+ @param p_cod_seccion - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00011_cod_seccion_checkColumnConstraints(p_cod_seccion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_seccion LIKE intb00011.cod_seccion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00011_cod_seccion_checkColumnConstraints {<BLOCK Name="fct.intb00011_cod_tramo_checkColumnConstraints">} #+ Check constraints on the "intb00011.cod_tramo" column #+ #+ @param p_cod_tramo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00011_cod_tramo_checkColumnConstraints(p_cod_tramo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tramo LIKE intb00011.cod_tramo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00011_cod_tramo_checkColumnConstraints {<BLOCK Name="fct.intb00011_cod_n_checkColumnConstraints">} #+ Check constraints on the "intb00011.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00011_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE intb00011.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00011_cod_n_checkColumnConstraints {<BLOCK Name="fct.intb00011_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "intb00011.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00011_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE intb00011.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_grupo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_grupo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00011_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.intb00011_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "intb00011.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00011_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE intb00011.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tipo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tipo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00011_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.intb00011_cod_sec_checkColumnConstraints">} #+ Check constraints on the "intb00011.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00011_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE intb00011.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00011_cod_sec_checkColumnConstraints {<BLOCK Name="fct.intb00011_cantidad_checkColumnConstraints">} #+ Check constraints on the "intb00011.cantidad" column #+ #+ @param p_cantidad - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00011_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE intb00011.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cantidad IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cantidad: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00011_cantidad_checkColumnConstraints {<BLOCK Name="fct.intb00011_balance_checkColumnConstraints">} #+ Check constraints on the "intb00011.balance" column #+ #+ @param p_balance - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00011_balance_checkColumnConstraints(p_balance) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_balance LIKE intb00011.balance LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00011_balance_checkColumnConstraints {<BLOCK Name="fct.intb00011_us_crea_checkColumnConstraints">} #+ Check constraints on the "intb00011.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00011_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE intb00011.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00011_us_crea_checkColumnConstraints {<BLOCK Name="fct.intb00011_fech_crea_checkColumnConstraints">} #+ Check constraints on the "intb00011.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00011_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE intb00011.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00011_fech_crea_checkColumnConstraints {<BLOCK Name="fct.intb00011_us_mod_checkColumnConstraints">} #+ Check constraints on the "intb00011.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00011_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE intb00011.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00011_us_mod_checkColumnConstraints {<BLOCK Name="fct.intb00011_fech_mod_checkColumnConstraints">} #+ Check constraints on the "intb00011.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00011_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE intb00011.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00011_fech_mod_checkColumnConstraints {<BLOCK Name="fct.intb00010_checkTableConstraints">} #+ Check constraints on the "intb00010" table #+ #+ @param p_data - a row data LIKE intb00010.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_intb00010_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE intb00010.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_intb00010_cod_bodega_checkColumnConstraints(p_data.cod_bodega) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00010_cod_seccion_checkColumnConstraints(p_data.cod_seccion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00010_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00010_pk_intb00010_checkUniqueConstraint(p_forUpdate, p_data.cod_bodega, p_data.cod_seccion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00010_checkTableConstraints {<BLOCK Name="fct.intb00010_pk_intb00010_checkUniqueConstraint">} #+ Check the primary key uniqueness constraint on the "intb00010" #+ #+ @param p_key - Primary Key #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00010_pk_intb00010_checkUniqueConstraint(p_forUpdate, p_key) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_forUpdate BOOLEAN DEFINE p_key RECORD intb00010_cod_bodega LIKE intb00010.cod_bodega, intb00010_cod_seccion LIKE intb00010.cod_seccion END RECORD DEFINE l_key RECORD intb00010_cod_bodega LIKE intb00010.cod_bodega, intb00010_cod_seccion LIKE intb00010.cod_seccion 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 intb00010.cod_bodega = ? AND intb00010.cod_seccion = ? " let l_sqlQuery = "SELECT COUNT(*), cod_bodega, cod_seccion FROM intb00010 ", l_where, " GROUP BY cod_bodega, cod_seccion" PREPARE cur_intb00010_pk_intb00010_checkUniqueConstraint FROM l_sqlQuery EXECUTE cur_intb00010_pk_intb00010_checkUniqueConstraint INTO l_count, l_key.* USING p_key.* FREE cur_intb00010_pk_intb00010_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- cod_bodega + cod_seccion: " || ERROR_BAM_00002) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00010_pk_intb00010_checkUniqueConstraint {<BLOCK Name="fct.intb00010_cod_bodega_checkColumnConstraints">} #+ Check constraints on the "intb00010.cod_bodega" column #+ #+ @param p_cod_bodega - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00010_cod_bodega_checkColumnConstraints(p_cod_bodega) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_bodega LIKE intb00010.cod_bodega LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_bodega IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_bodega: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00010_cod_bodega_checkColumnConstraints {<BLOCK Name="fct.intb00010_cod_seccion_checkColumnConstraints">} #+ Check constraints on the "intb00010.cod_seccion" column #+ #+ @param p_cod_seccion - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00010_cod_seccion_checkColumnConstraints(p_cod_seccion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_seccion LIKE intb00010.cod_seccion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_seccion IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_seccion: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00010_cod_seccion_checkColumnConstraints {<BLOCK Name="fct.intb00010_descripcion_checkColumnConstraints">} #+ Check constraints on the "intb00010.descripcion" column #+ #+ @param p_descripcion - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00010_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE intb00010.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00010_descripcion_checkColumnConstraints {<BLOCK Name="fct.intb00009_checkTableConstraints">} #+ Check constraints on the "intb00009" table #+ #+ @param p_data - a row data LIKE intb00009.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_intb00009_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE intb00009.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_intb00009_cod_bodega_checkColumnConstraints(p_data.cod_bodega) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00009_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00009_pk_intb00009_checkUniqueConstraint(p_forUpdate, p_data.cod_bodega) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00009_checkTableConstraints {<BLOCK Name="fct.intb00009_pk_intb00009_checkUniqueConstraint">} #+ Check the primary key uniqueness constraint on the "intb00009" #+ #+ @param p_key - Primary Key #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00009_pk_intb00009_checkUniqueConstraint(p_forUpdate, p_key) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_forUpdate BOOLEAN DEFINE p_key RECORD intb00009_cod_bodega LIKE intb00009.cod_bodega END RECORD DEFINE l_key RECORD intb00009_cod_bodega LIKE intb00009.cod_bodega 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 intb00009.cod_bodega = ? " let l_sqlQuery = "SELECT COUNT(*), cod_bodega FROM intb00009 ", l_where, " GROUP BY cod_bodega" PREPARE cur_intb00009_pk_intb00009_checkUniqueConstraint FROM l_sqlQuery EXECUTE cur_intb00009_pk_intb00009_checkUniqueConstraint INTO l_count, l_key.* USING p_key.* FREE cur_intb00009_pk_intb00009_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- cod_bodega: " || ERROR_BAM_00002) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00009_pk_intb00009_checkUniqueConstraint {<BLOCK Name="fct.intb00009_cod_bodega_checkColumnConstraints">} #+ Check constraints on the "intb00009.cod_bodega" column #+ #+ @param p_cod_bodega - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00009_cod_bodega_checkColumnConstraints(p_cod_bodega) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_bodega LIKE intb00009.cod_bodega LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_bodega IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_bodega: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00009_cod_bodega_checkColumnConstraints {<BLOCK Name="fct.intb00009_descripcion_checkColumnConstraints">} #+ Check constraints on the "intb00009.descripcion" column #+ #+ @param p_descripcion - VARCHAR2(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00009_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE intb00009.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00009_descripcion_checkColumnConstraints {<BLOCK Name="fct.intb00008_checkTableConstraints">} #+ Check constraints on the "intb00008" table #+ #+ @param p_data - a row data LIKE intb00008.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_intb00008_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE intb00008.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_intb00008_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00008_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00008_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00008_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00008_cod_sp_checkColumnConstraints(p_data.cod_sp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00008_cod_sp_sec_checkColumnConstraints(p_data.cod_sp_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00008_precio_checkColumnConstraints(p_data.precio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00008_fecha_act_checkColumnConstraints(p_data.fecha_act) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00008_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00008_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00008_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00008_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00008_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00008_checkTableConstraints {<BLOCK Name="fct.intb00008_cod_n_checkColumnConstraints">} #+ Check constraints on the "intb00008.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00008_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE intb00008.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00008_cod_n_checkColumnConstraints {<BLOCK Name="fct.intb00008_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "intb00008.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00008_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE intb00008.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_grupo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_grupo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00008_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.intb00008_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "intb00008.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00008_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE intb00008.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tipo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tipo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00008_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.intb00008_cod_sec_checkColumnConstraints">} #+ Check constraints on the "intb00008.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00008_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE intb00008.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00008_cod_sec_checkColumnConstraints {<BLOCK Name="fct.intb00008_cod_sp_checkColumnConstraints">} #+ Check constraints on the "intb00008.cod_sp" column #+ #+ @param p_cod_sp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00008_cod_sp_checkColumnConstraints(p_cod_sp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp LIKE intb00008.cod_sp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sp IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sp: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00008_cod_sp_checkColumnConstraints {<BLOCK Name="fct.intb00008_cod_sp_sec_checkColumnConstraints">} #+ Check constraints on the "intb00008.cod_sp_sec" column #+ #+ @param p_cod_sp_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00008_cod_sp_sec_checkColumnConstraints(p_cod_sp_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp_sec LIKE intb00008.cod_sp_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sp_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sp_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00008_cod_sp_sec_checkColumnConstraints {<BLOCK Name="fct.intb00008_precio_checkColumnConstraints">} #+ Check constraints on the "intb00008.precio" column #+ #+ @param p_precio - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00008_precio_checkColumnConstraints(p_precio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_precio LIKE intb00008.precio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00008_precio_checkColumnConstraints {<BLOCK Name="fct.intb00008_fecha_act_checkColumnConstraints">} #+ Check constraints on the "intb00008.fecha_act" column #+ #+ @param p_fecha_act - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00008_fecha_act_checkColumnConstraints(p_fecha_act) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_act LIKE intb00008.fecha_act LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00008_fecha_act_checkColumnConstraints {<BLOCK Name="fct.intb00008_status_t_checkColumnConstraints">} #+ Check constraints on the "intb00008.status_t" column #+ #+ @param p_status_t - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00008_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE intb00008.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00008_status_t_checkColumnConstraints {<BLOCK Name="fct.intb00008_us_crea_checkColumnConstraints">} #+ Check constraints on the "intb00008.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00008_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE intb00008.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00008_us_crea_checkColumnConstraints {<BLOCK Name="fct.intb00008_fech_crea_checkColumnConstraints">} #+ Check constraints on the "intb00008.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00008_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE intb00008.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00008_fech_crea_checkColumnConstraints {<BLOCK Name="fct.intb00008_us_mod_checkColumnConstraints">} #+ Check constraints on the "intb00008.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00008_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE intb00008.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00008_us_mod_checkColumnConstraints {<BLOCK Name="fct.intb00008_fech_mod_checkColumnConstraints">} #+ Check constraints on the "intb00008.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00008_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE intb00008.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00008_fech_mod_checkColumnConstraints {<BLOCK Name="fct.intb00007_checkTableConstraints">} #+ Check constraints on the "intb00007" table #+ #+ @param p_data - a row data LIKE intb00007.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_intb00007_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE intb00007.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_intb00007_codigo_unidad_checkColumnConstraints(p_data.codigo_unidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00007_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00007_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00007_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00007_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00007_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00007_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00007_checkTableConstraints {<BLOCK Name="fct.intb00007_codigo_unidad_checkColumnConstraints">} #+ Check constraints on the "intb00007.codigo_unidad" column #+ #+ @param p_codigo_unidad - VARCHAR2(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00007_codigo_unidad_checkColumnConstraints(p_codigo_unidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codigo_unidad LIKE intb00007.codigo_unidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_codigo_unidad IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- codigo_unidad: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00007_codigo_unidad_checkColumnConstraints {<BLOCK Name="fct.intb00007_descripcion_checkColumnConstraints">} #+ Check constraints on the "intb00007.descripcion" column #+ #+ @param p_descripcion - VARCHAR2(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00007_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE intb00007.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00007_descripcion_checkColumnConstraints {<BLOCK Name="fct.intb00007_status_t_checkColumnConstraints">} #+ Check constraints on the "intb00007.status_t" column #+ #+ @param p_status_t - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00007_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE intb00007.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00007_status_t_checkColumnConstraints {<BLOCK Name="fct.intb00007_us_crea_checkColumnConstraints">} #+ Check constraints on the "intb00007.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00007_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE intb00007.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00007_us_crea_checkColumnConstraints {<BLOCK Name="fct.intb00007_fech_crea_checkColumnConstraints">} #+ Check constraints on the "intb00007.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00007_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE intb00007.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00007_fech_crea_checkColumnConstraints {<BLOCK Name="fct.intb00007_us_mod_checkColumnConstraints">} #+ Check constraints on the "intb00007.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00007_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE intb00007.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00007_us_mod_checkColumnConstraints {<BLOCK Name="fct.intb00007_fech_mod_checkColumnConstraints">} #+ Check constraints on the "intb00007.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00007_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE intb00007.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00007_fech_mod_checkColumnConstraints {<BLOCK Name="fct.intb00006_checkTableConstraints">} #+ Check constraints on the "intb00006" table #+ #+ @param p_data - a row data LIKE intb00006.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_intb00006_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE intb00006.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_intb00006_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00006_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00006_fact_no_checkColumnConstraints(p_data.fact_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00006_conduce_no_checkColumnConstraints(p_data.conduce_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00006_orden_compra_checkColumnConstraints(p_data.orden_compra) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00006_tipo_checkColumnConstraints(p_data.tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00006_cod_sp_checkColumnConstraints(p_data.cod_sp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00006_cod_sp_sec_checkColumnConstraints(p_data.cod_sp_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00006_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00006_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00006_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00006_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00006_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00006_cantidad_1_checkColumnConstraints(p_data.cantidad_1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00006_cantidad_2_checkColumnConstraints(p_data.cantidad_2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00006_depto_de_checkColumnConstraints(p_data.depto_de) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00006_depto_a_checkColumnConstraints(p_data.depto_a) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00006_cod_seccion_checkColumnConstraints(p_data.cod_seccion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00006_cond_recep_checkColumnConstraints(p_data.cond_recep) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00006_uso_tiempo_checkColumnConstraints(p_data.uso_tiempo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00006_bodega_checkColumnConstraints(p_data.bodega) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00006_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00006_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00006_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00006_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00006_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00006_num_emp_checkColumnConstraints(p_data.num_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00006_checkTableConstraints {<BLOCK Name="fct.intb00006_num_doc_checkColumnConstraints">} #+ Check constraints on the "intb00006.num_doc" column #+ #+ @param p_num_doc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00006_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE intb00006.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_num_doc IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- num_doc: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00006_num_doc_checkColumnConstraints {<BLOCK Name="fct.intb00006_fecha_checkColumnConstraints">} #+ Check constraints on the "intb00006.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00006_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE intb00006.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00006_fecha_checkColumnConstraints {<BLOCK Name="fct.intb00006_fact_no_checkColumnConstraints">} #+ Check constraints on the "intb00006.fact_no" column #+ #+ @param p_fact_no - VARCHAR2(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00006_fact_no_checkColumnConstraints(p_fact_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fact_no LIKE intb00006.fact_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00006_fact_no_checkColumnConstraints {<BLOCK Name="fct.intb00006_conduce_no_checkColumnConstraints">} #+ Check constraints on the "intb00006.conduce_no" column #+ #+ @param p_conduce_no - VARCHAR2(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00006_conduce_no_checkColumnConstraints(p_conduce_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_conduce_no LIKE intb00006.conduce_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00006_conduce_no_checkColumnConstraints {<BLOCK Name="fct.intb00006_orden_compra_checkColumnConstraints">} #+ Check constraints on the "intb00006.orden_compra" column #+ #+ @param p_orden_compra - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00006_orden_compra_checkColumnConstraints(p_orden_compra) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_orden_compra LIKE intb00006.orden_compra LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00006_orden_compra_checkColumnConstraints {<BLOCK Name="fct.intb00006_tipo_checkColumnConstraints">} #+ Check constraints on the "intb00006.tipo" column #+ #+ @param p_tipo - VARCHAR2(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00006_tipo_checkColumnConstraints(p_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo LIKE intb00006.tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00006_tipo_checkColumnConstraints {<BLOCK Name="fct.intb00006_cod_sp_checkColumnConstraints">} #+ Check constraints on the "intb00006.cod_sp" column #+ #+ @param p_cod_sp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00006_cod_sp_checkColumnConstraints(p_cod_sp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp LIKE intb00006.cod_sp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00006_cod_sp_checkColumnConstraints {<BLOCK Name="fct.intb00006_cod_sp_sec_checkColumnConstraints">} #+ Check constraints on the "intb00006.cod_sp_sec" column #+ #+ @param p_cod_sp_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00006_cod_sp_sec_checkColumnConstraints(p_cod_sp_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp_sec LIKE intb00006.cod_sp_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00006_cod_sp_sec_checkColumnConstraints {<BLOCK Name="fct.intb00006_cod_mov_checkColumnConstraints">} #+ Check constraints on the "intb00006.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00006_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE intb00006.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_mov IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_mov: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00006_cod_mov_checkColumnConstraints {<BLOCK Name="fct.intb00006_cod_n_checkColumnConstraints">} #+ Check constraints on the "intb00006.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00006_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE intb00006.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00006_cod_n_checkColumnConstraints {<BLOCK Name="fct.intb00006_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "intb00006.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00006_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE intb00006.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00006_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.intb00006_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "intb00006.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00006_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE intb00006.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00006_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.intb00006_cod_sec_checkColumnConstraints">} #+ Check constraints on the "intb00006.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00006_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE intb00006.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00006_cod_sec_checkColumnConstraints {<BLOCK Name="fct.intb00006_cantidad_1_checkColumnConstraints">} #+ Check constraints on the "intb00006.cantidad_1" column #+ #+ @param p_cantidad_1 - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00006_cantidad_1_checkColumnConstraints(p_cantidad_1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad_1 LIKE intb00006.cantidad_1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00006_cantidad_1_checkColumnConstraints {<BLOCK Name="fct.intb00006_cantidad_2_checkColumnConstraints">} #+ Check constraints on the "intb00006.cantidad_2" column #+ #+ @param p_cantidad_2 - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00006_cantidad_2_checkColumnConstraints(p_cantidad_2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad_2 LIKE intb00006.cantidad_2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00006_cantidad_2_checkColumnConstraints {<BLOCK Name="fct.intb00006_depto_de_checkColumnConstraints">} #+ Check constraints on the "intb00006.depto_de" column #+ #+ @param p_depto_de - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00006_depto_de_checkColumnConstraints(p_depto_de) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_depto_de LIKE intb00006.depto_de LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00006_depto_de_checkColumnConstraints {<BLOCK Name="fct.intb00006_depto_a_checkColumnConstraints">} #+ Check constraints on the "intb00006.depto_a" column #+ #+ @param p_depto_a - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00006_depto_a_checkColumnConstraints(p_depto_a) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_depto_a LIKE intb00006.depto_a LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00006_depto_a_checkColumnConstraints {<BLOCK Name="fct.intb00006_cod_seccion_checkColumnConstraints">} #+ Check constraints on the "intb00006.cod_seccion" column #+ #+ @param p_cod_seccion - VARCHAR2(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00006_cod_seccion_checkColumnConstraints(p_cod_seccion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_seccion LIKE intb00006.cod_seccion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00006_cod_seccion_checkColumnConstraints {<BLOCK Name="fct.intb00006_cond_recep_checkColumnConstraints">} #+ Check constraints on the "intb00006.cond_recep" column #+ #+ @param p_cond_recep - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00006_cond_recep_checkColumnConstraints(p_cond_recep) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cond_recep LIKE intb00006.cond_recep LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00006_cond_recep_checkColumnConstraints {<BLOCK Name="fct.intb00006_uso_tiempo_checkColumnConstraints">} #+ Check constraints on the "intb00006.uso_tiempo" column #+ #+ @param p_uso_tiempo - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00006_uso_tiempo_checkColumnConstraints(p_uso_tiempo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_uso_tiempo LIKE intb00006.uso_tiempo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00006_uso_tiempo_checkColumnConstraints {<BLOCK Name="fct.intb00006_bodega_checkColumnConstraints">} #+ Check constraints on the "intb00006.bodega" column #+ #+ @param p_bodega - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00006_bodega_checkColumnConstraints(p_bodega) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_bodega LIKE intb00006.bodega LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_bodega IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- bodega: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00006_bodega_checkColumnConstraints {<BLOCK Name="fct.intb00006_status_t_checkColumnConstraints">} #+ Check constraints on the "intb00006.status_t" column #+ #+ @param p_status_t - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00006_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE intb00006.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00006_status_t_checkColumnConstraints {<BLOCK Name="fct.intb00006_us_crea_checkColumnConstraints">} #+ Check constraints on the "intb00006.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00006_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE intb00006.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00006_us_crea_checkColumnConstraints {<BLOCK Name="fct.intb00006_fech_crea_checkColumnConstraints">} #+ Check constraints on the "intb00006.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00006_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE intb00006.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00006_fech_crea_checkColumnConstraints {<BLOCK Name="fct.intb00006_us_mod_checkColumnConstraints">} #+ Check constraints on the "intb00006.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00006_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE intb00006.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00006_us_mod_checkColumnConstraints {<BLOCK Name="fct.intb00006_fech_mod_checkColumnConstraints">} #+ Check constraints on the "intb00006.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00006_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE intb00006.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00006_fech_mod_checkColumnConstraints {<BLOCK Name="fct.intb00006_num_emp_checkColumnConstraints">} #+ Check constraints on the "intb00006.num_emp" column #+ #+ @param p_num_emp - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00006_num_emp_checkColumnConstraints(p_num_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_emp LIKE intb00006.num_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00006_num_emp_checkColumnConstraints {<BLOCK Name="fct.intb00005_checkTableConstraints">} #+ Check constraints on the "intb00005" table #+ #+ @param p_data - a row data LIKE intb00005.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_intb00005_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE intb00005.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_intb00005_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00005_descrip_mov_checkColumnConstraints(p_data.descrip_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00005_status_mov_checkColumnConstraints(p_data.status_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00005_cuenta_1_checkColumnConstraints(p_data.cuenta_1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00005_cuenta_2_checkColumnConstraints(p_data.cuenta_2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00005_cuenta_3_checkColumnConstraints(p_data.cuenta_3) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00005_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00005_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00005_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00005_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00005_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00005_checkTableConstraints {<BLOCK Name="fct.intb00005_cod_mov_checkColumnConstraints">} #+ Check constraints on the "intb00005.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00005_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE intb00005.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_mov IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_mov: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00005_cod_mov_checkColumnConstraints {<BLOCK Name="fct.intb00005_descrip_mov_checkColumnConstraints">} #+ Check constraints on the "intb00005.descrip_mov" column #+ #+ @param p_descrip_mov - VARCHAR2(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00005_descrip_mov_checkColumnConstraints(p_descrip_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip_mov LIKE intb00005.descrip_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00005_descrip_mov_checkColumnConstraints {<BLOCK Name="fct.intb00005_status_mov_checkColumnConstraints">} #+ Check constraints on the "intb00005.status_mov" column #+ #+ @param p_status_mov - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00005_status_mov_checkColumnConstraints(p_status_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_mov LIKE intb00005.status_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00005_status_mov_checkColumnConstraints {<BLOCK Name="fct.intb00005_cuenta_1_checkColumnConstraints">} #+ Check constraints on the "intb00005.cuenta_1" column #+ #+ @param p_cuenta_1 - VARCHAR2(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00005_cuenta_1_checkColumnConstraints(p_cuenta_1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_1 LIKE intb00005.cuenta_1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00005_cuenta_1_checkColumnConstraints {<BLOCK Name="fct.intb00005_cuenta_2_checkColumnConstraints">} #+ Check constraints on the "intb00005.cuenta_2" column #+ #+ @param p_cuenta_2 - VARCHAR2(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00005_cuenta_2_checkColumnConstraints(p_cuenta_2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_2 LIKE intb00005.cuenta_2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00005_cuenta_2_checkColumnConstraints {<BLOCK Name="fct.intb00005_cuenta_3_checkColumnConstraints">} #+ Check constraints on the "intb00005.cuenta_3" column #+ #+ @param p_cuenta_3 - VARCHAR2(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00005_cuenta_3_checkColumnConstraints(p_cuenta_3) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_3 LIKE intb00005.cuenta_3 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00005_cuenta_3_checkColumnConstraints {<BLOCK Name="fct.intb00005_status_t_checkColumnConstraints">} #+ Check constraints on the "intb00005.status_t" column #+ #+ @param p_status_t - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00005_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE intb00005.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00005_status_t_checkColumnConstraints {<BLOCK Name="fct.intb00005_us_crea_checkColumnConstraints">} #+ Check constraints on the "intb00005.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00005_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE intb00005.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00005_us_crea_checkColumnConstraints {<BLOCK Name="fct.intb00005_fech_crea_checkColumnConstraints">} #+ Check constraints on the "intb00005.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00005_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE intb00005.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00005_fech_crea_checkColumnConstraints {<BLOCK Name="fct.intb00005_us_mod_checkColumnConstraints">} #+ Check constraints on the "intb00005.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00005_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE intb00005.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00005_us_mod_checkColumnConstraints {<BLOCK Name="fct.intb00005_fech_mod_checkColumnConstraints">} #+ Check constraints on the "intb00005.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00005_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE intb00005.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00005_fech_mod_checkColumnConstraints {<BLOCK Name="fct.intb00004_checkTableConstraints">} #+ Check constraints on the "intb00004" table #+ #+ @param p_data - a row data LIKE intb00004.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_intb00004_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE intb00004.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_intb00004_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00004_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00004_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00004_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00004_cod_n_e_checkColumnConstraints(p_data.cod_n_e) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00004_cod_grupo_e_checkColumnConstraints(p_data.cod_grupo_e) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00004_cod_tipo_e_checkColumnConstraints(p_data.cod_tipo_e) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00004_cod_sec_e_checkColumnConstraints(p_data.cod_sec_e) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00004_cod_uso_e_checkColumnConstraints(p_data.cod_uso_e) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00004_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00004_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00004_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00004_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00004_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00004_checkTableConstraints {<BLOCK Name="fct.intb00004_cod_n_checkColumnConstraints">} #+ Check constraints on the "intb00004.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00004_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE intb00004.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00004_cod_n_checkColumnConstraints {<BLOCK Name="fct.intb00004_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "intb00004.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00004_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE intb00004.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_grupo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_grupo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00004_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.intb00004_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "intb00004.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00004_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE intb00004.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tipo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tipo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00004_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.intb00004_cod_sec_checkColumnConstraints">} #+ Check constraints on the "intb00004.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00004_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE intb00004.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00004_cod_sec_checkColumnConstraints {<BLOCK Name="fct.intb00004_cod_n_e_checkColumnConstraints">} #+ Check constraints on the "intb00004.cod_n_e" column #+ #+ @param p_cod_n_e - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00004_cod_n_e_checkColumnConstraints(p_cod_n_e) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n_e LIKE intb00004.cod_n_e LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00004_cod_n_e_checkColumnConstraints {<BLOCK Name="fct.intb00004_cod_grupo_e_checkColumnConstraints">} #+ Check constraints on the "intb00004.cod_grupo_e" column #+ #+ @param p_cod_grupo_e - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00004_cod_grupo_e_checkColumnConstraints(p_cod_grupo_e) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo_e LIKE intb00004.cod_grupo_e LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00004_cod_grupo_e_checkColumnConstraints {<BLOCK Name="fct.intb00004_cod_tipo_e_checkColumnConstraints">} #+ Check constraints on the "intb00004.cod_tipo_e" column #+ #+ @param p_cod_tipo_e - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00004_cod_tipo_e_checkColumnConstraints(p_cod_tipo_e) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo_e LIKE intb00004.cod_tipo_e LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00004_cod_tipo_e_checkColumnConstraints {<BLOCK Name="fct.intb00004_cod_sec_e_checkColumnConstraints">} #+ Check constraints on the "intb00004.cod_sec_e" column #+ #+ @param p_cod_sec_e - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00004_cod_sec_e_checkColumnConstraints(p_cod_sec_e) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec_e LIKE intb00004.cod_sec_e LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00004_cod_sec_e_checkColumnConstraints {<BLOCK Name="fct.intb00004_cod_uso_e_checkColumnConstraints">} #+ Check constraints on the "intb00004.cod_uso_e" column #+ #+ @param p_cod_uso_e - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00004_cod_uso_e_checkColumnConstraints(p_cod_uso_e) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_uso_e LIKE intb00004.cod_uso_e LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00004_cod_uso_e_checkColumnConstraints {<BLOCK Name="fct.intb00004_status_t_checkColumnConstraints">} #+ Check constraints on the "intb00004.status_t" column #+ #+ @param p_status_t - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00004_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE intb00004.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00004_status_t_checkColumnConstraints {<BLOCK Name="fct.intb00004_us_crea_checkColumnConstraints">} #+ Check constraints on the "intb00004.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00004_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE intb00004.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00004_us_crea_checkColumnConstraints {<BLOCK Name="fct.intb00004_fech_crea_checkColumnConstraints">} #+ Check constraints on the "intb00004.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00004_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE intb00004.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00004_fech_crea_checkColumnConstraints {<BLOCK Name="fct.intb00004_us_mod_checkColumnConstraints">} #+ Check constraints on the "intb00004.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00004_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE intb00004.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00004_us_mod_checkColumnConstraints {<BLOCK Name="fct.intb00004_fech_mod_checkColumnConstraints">} #+ Check constraints on the "intb00004.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00004_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE intb00004.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00004_fech_mod_checkColumnConstraints {<BLOCK Name="fct.intb00003_checkTableConstraints">} #+ Check constraints on the "intb00003" table #+ #+ @param p_data - a row data LIKE intb00003.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_intb00003_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE intb00003.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_intb00003_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00003_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00003_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00003_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00003_cod_n_s_checkColumnConstraints(p_data.cod_n_s) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00003_cod_grupo_s_checkColumnConstraints(p_data.cod_grupo_s) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00003_cod_tipo_s_checkColumnConstraints(p_data.cod_tipo_s) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00003_cod_sec_s_checkColumnConstraints(p_data.cod_sec_s) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00003_cod_uso_s_checkColumnConstraints(p_data.cod_uso_s) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00003_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00003_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00003_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00003_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00003_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00003_checkTableConstraints {<BLOCK Name="fct.intb00003_cod_n_checkColumnConstraints">} #+ Check constraints on the "intb00003.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00003_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE intb00003.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00003_cod_n_checkColumnConstraints {<BLOCK Name="fct.intb00003_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "intb00003.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00003_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE intb00003.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_grupo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_grupo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00003_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.intb00003_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "intb00003.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00003_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE intb00003.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tipo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tipo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00003_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.intb00003_cod_sec_checkColumnConstraints">} #+ Check constraints on the "intb00003.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00003_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE intb00003.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00003_cod_sec_checkColumnConstraints {<BLOCK Name="fct.intb00003_cod_n_s_checkColumnConstraints">} #+ Check constraints on the "intb00003.cod_n_s" column #+ #+ @param p_cod_n_s - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00003_cod_n_s_checkColumnConstraints(p_cod_n_s) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n_s LIKE intb00003.cod_n_s LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00003_cod_n_s_checkColumnConstraints {<BLOCK Name="fct.intb00003_cod_grupo_s_checkColumnConstraints">} #+ Check constraints on the "intb00003.cod_grupo_s" column #+ #+ @param p_cod_grupo_s - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00003_cod_grupo_s_checkColumnConstraints(p_cod_grupo_s) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo_s LIKE intb00003.cod_grupo_s LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00003_cod_grupo_s_checkColumnConstraints {<BLOCK Name="fct.intb00003_cod_tipo_s_checkColumnConstraints">} #+ Check constraints on the "intb00003.cod_tipo_s" column #+ #+ @param p_cod_tipo_s - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00003_cod_tipo_s_checkColumnConstraints(p_cod_tipo_s) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo_s LIKE intb00003.cod_tipo_s LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00003_cod_tipo_s_checkColumnConstraints {<BLOCK Name="fct.intb00003_cod_sec_s_checkColumnConstraints">} #+ Check constraints on the "intb00003.cod_sec_s" column #+ #+ @param p_cod_sec_s - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00003_cod_sec_s_checkColumnConstraints(p_cod_sec_s) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec_s LIKE intb00003.cod_sec_s LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00003_cod_sec_s_checkColumnConstraints {<BLOCK Name="fct.intb00003_cod_uso_s_checkColumnConstraints">} #+ Check constraints on the "intb00003.cod_uso_s" column #+ #+ @param p_cod_uso_s - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00003_cod_uso_s_checkColumnConstraints(p_cod_uso_s) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_uso_s LIKE intb00003.cod_uso_s LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00003_cod_uso_s_checkColumnConstraints {<BLOCK Name="fct.intb00003_status_t_checkColumnConstraints">} #+ Check constraints on the "intb00003.status_t" column #+ #+ @param p_status_t - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00003_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE intb00003.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00003_status_t_checkColumnConstraints {<BLOCK Name="fct.intb00003_us_crea_checkColumnConstraints">} #+ Check constraints on the "intb00003.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00003_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE intb00003.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00003_us_crea_checkColumnConstraints {<BLOCK Name="fct.intb00003_fech_crea_checkColumnConstraints">} #+ Check constraints on the "intb00003.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00003_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE intb00003.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00003_fech_crea_checkColumnConstraints {<BLOCK Name="fct.intb00003_us_mod_checkColumnConstraints">} #+ Check constraints on the "intb00003.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00003_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE intb00003.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00003_us_mod_checkColumnConstraints {<BLOCK Name="fct.intb00003_fech_mod_checkColumnConstraints">} #+ Check constraints on the "intb00003.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00003_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE intb00003.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00003_fech_mod_checkColumnConstraints {<BLOCK Name="fct.intb00002_checkTableConstraints">} #+ Check constraints on the "intb00002" table #+ #+ @param p_data - a row data LIKE intb00002.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_intb00002_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE intb00002.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_intb00002_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00002_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00002_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00002_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00002_pto_reorden_checkColumnConstraints(p_data.pto_reorden) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00002_existencia_checkColumnConstraints(p_data.existencia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00002_cod_nab_checkColumnConstraints(p_data.cod_nab) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00002_base_checkColumnConstraints(p_data.base) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00002_bodega_checkColumnConstraints(p_data.bodega) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00002_categoria_checkColumnConstraints(p_data.categoria) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00002_dia_llegada_checkColumnConstraints(p_data.dia_llegada) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00002_gravamen_checkColumnConstraints(p_data.gravamen) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00002_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00002_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00002_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00002_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00002_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00002_pk_intb00002_checkUniqueConstraint(p_forUpdate, p_data.cod_n, p_data.cod_grupo, p_data.cod_tipo, p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00002_checkTableConstraints {<BLOCK Name="fct.intb00002_pk_intb00002_checkUniqueConstraint">} #+ Check the primary key uniqueness constraint on the "intb00002" #+ #+ @param p_key - Primary Key #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00002_pk_intb00002_checkUniqueConstraint(p_forUpdate, p_key) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_forUpdate BOOLEAN DEFINE p_key RECORD intb00002_cod_n LIKE intb00002.cod_n, intb00002_cod_grupo LIKE intb00002.cod_grupo, intb00002_cod_tipo LIKE intb00002.cod_tipo, intb00002_cod_sec LIKE intb00002.cod_sec END RECORD DEFINE l_key RECORD intb00002_cod_n LIKE intb00002.cod_n, intb00002_cod_grupo LIKE intb00002.cod_grupo, intb00002_cod_tipo LIKE intb00002.cod_tipo, intb00002_cod_sec LIKE intb00002.cod_sec 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 intb00002.cod_n = ? AND intb00002.cod_grupo = ? AND intb00002.cod_tipo = ? AND intb00002.cod_sec = ? " let l_sqlQuery = "SELECT COUNT(*), cod_n, cod_grupo, cod_tipo, cod_sec FROM intb00002 ", l_where, " GROUP BY cod_n, cod_grupo, cod_tipo, cod_sec" PREPARE cur_intb00002_pk_intb00002_checkUniqueConstraint FROM l_sqlQuery EXECUTE cur_intb00002_pk_intb00002_checkUniqueConstraint INTO l_count, l_key.* USING p_key.* FREE cur_intb00002_pk_intb00002_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- cod_n + cod_grupo + cod_tipo + cod_sec: " || ERROR_BAM_00002) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00002_pk_intb00002_checkUniqueConstraint {<BLOCK Name="fct.intb00002_cod_n_checkColumnConstraints">} #+ Check constraints on the "intb00002.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00002_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE intb00002.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00002_cod_n_checkColumnConstraints {<BLOCK Name="fct.intb00002_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "intb00002.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00002_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE intb00002.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_grupo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_grupo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00002_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.intb00002_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "intb00002.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00002_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE intb00002.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tipo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tipo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00002_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.intb00002_cod_sec_checkColumnConstraints">} #+ Check constraints on the "intb00002.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00002_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE intb00002.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00002_cod_sec_checkColumnConstraints {<BLOCK Name="fct.intb00002_pto_reorden_checkColumnConstraints">} #+ Check constraints on the "intb00002.pto_reorden" column #+ #+ @param p_pto_reorden - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00002_pto_reorden_checkColumnConstraints(p_pto_reorden) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_pto_reorden LIKE intb00002.pto_reorden LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00002_pto_reorden_checkColumnConstraints {<BLOCK Name="fct.intb00002_existencia_checkColumnConstraints">} #+ Check constraints on the "intb00002.existencia" column #+ #+ @param p_existencia - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00002_existencia_checkColumnConstraints(p_existencia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_existencia LIKE intb00002.existencia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00002_existencia_checkColumnConstraints {<BLOCK Name="fct.intb00002_cod_nab_checkColumnConstraints">} #+ Check constraints on the "intb00002.cod_nab" column #+ #+ @param p_cod_nab - CHAR(11) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00002_cod_nab_checkColumnConstraints(p_cod_nab) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_nab LIKE intb00002.cod_nab LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00002_cod_nab_checkColumnConstraints {<BLOCK Name="fct.intb00002_base_checkColumnConstraints">} #+ Check constraints on the "intb00002.base" column #+ #+ @param p_base - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00002_base_checkColumnConstraints(p_base) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_base LIKE intb00002.base LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00002_base_checkColumnConstraints {<BLOCK Name="fct.intb00002_bodega_checkColumnConstraints">} #+ Check constraints on the "intb00002.bodega" column #+ #+ @param p_bodega - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00002_bodega_checkColumnConstraints(p_bodega) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_bodega LIKE intb00002.bodega LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00002_bodega_checkColumnConstraints {<BLOCK Name="fct.intb00002_categoria_checkColumnConstraints">} #+ Check constraints on the "intb00002.categoria" column #+ #+ @param p_categoria - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00002_categoria_checkColumnConstraints(p_categoria) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_categoria LIKE intb00002.categoria LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00002_categoria_checkColumnConstraints {<BLOCK Name="fct.intb00002_dia_llegada_checkColumnConstraints">} #+ Check constraints on the "intb00002.dia_llegada" column #+ #+ @param p_dia_llegada - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00002_dia_llegada_checkColumnConstraints(p_dia_llegada) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_dia_llegada LIKE intb00002.dia_llegada LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00002_dia_llegada_checkColumnConstraints {<BLOCK Name="fct.intb00002_gravamen_checkColumnConstraints">} #+ Check constraints on the "intb00002.gravamen" column #+ #+ @param p_gravamen - DECIMAL(5,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00002_gravamen_checkColumnConstraints(p_gravamen) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_gravamen LIKE intb00002.gravamen LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00002_gravamen_checkColumnConstraints {<BLOCK Name="fct.intb00002_status_t_checkColumnConstraints">} #+ Check constraints on the "intb00002.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00002_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE intb00002.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00002_status_t_checkColumnConstraints {<BLOCK Name="fct.intb00002_us_crea_checkColumnConstraints">} #+ Check constraints on the "intb00002.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00002_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE intb00002.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00002_us_crea_checkColumnConstraints {<BLOCK Name="fct.intb00002_fech_crea_checkColumnConstraints">} #+ Check constraints on the "intb00002.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00002_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE intb00002.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00002_fech_crea_checkColumnConstraints {<BLOCK Name="fct.intb00002_us_mod_checkColumnConstraints">} #+ Check constraints on the "intb00002.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00002_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE intb00002.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00002_us_mod_checkColumnConstraints {<BLOCK Name="fct.intb00002_fech_mod_checkColumnConstraints">} #+ Check constraints on the "intb00002.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00002_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE intb00002.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00002_fech_mod_checkColumnConstraints {<BLOCK Name="fct.intb00001_checkTableConstraints">} #+ Check constraints on the "intb00001" table #+ #+ @param p_data - a row data LIKE intb00001.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_intb00001_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE intb00001.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_intb00001_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00001_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00001_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00001_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00001_descrip_esp_checkColumnConstraints(p_data.descrip_esp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00001_descrip_ing_checkColumnConstraints(p_data.descrip_ing) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00001_unidad_med_checkColumnConstraints(p_data.unidad_med) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00001_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00001_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00001_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00001_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00001_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_intb00001_codid_checkColumnConstraints(p_data.codid) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00001_checkTableConstraints {<BLOCK Name="fct.intb00001_cod_n_checkColumnConstraints">} #+ Check constraints on the "intb00001.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00001_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE intb00001.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00001_cod_n_checkColumnConstraints {<BLOCK Name="fct.intb00001_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "intb00001.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00001_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE intb00001.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_grupo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_grupo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00001_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.intb00001_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "intb00001.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00001_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE intb00001.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tipo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tipo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00001_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.intb00001_cod_sec_checkColumnConstraints">} #+ Check constraints on the "intb00001.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00001_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE intb00001.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00001_cod_sec_checkColumnConstraints {<BLOCK Name="fct.intb00001_descrip_esp_checkColumnConstraints">} #+ Check constraints on the "intb00001.descrip_esp" column #+ #+ @param p_descrip_esp - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00001_descrip_esp_checkColumnConstraints(p_descrip_esp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip_esp LIKE intb00001.descrip_esp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_descrip_esp IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- descrip_esp: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00001_descrip_esp_checkColumnConstraints {<BLOCK Name="fct.intb00001_descrip_ing_checkColumnConstraints">} #+ Check constraints on the "intb00001.descrip_ing" column #+ #+ @param p_descrip_ing - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00001_descrip_ing_checkColumnConstraints(p_descrip_ing) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip_ing LIKE intb00001.descrip_ing LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00001_descrip_ing_checkColumnConstraints {<BLOCK Name="fct.intb00001_unidad_med_checkColumnConstraints">} #+ Check constraints on the "intb00001.unidad_med" column #+ #+ @param p_unidad_med - CHAR(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00001_unidad_med_checkColumnConstraints(p_unidad_med) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_unidad_med LIKE intb00001.unidad_med LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00001_unidad_med_checkColumnConstraints {<BLOCK Name="fct.intb00001_status_t_checkColumnConstraints">} #+ Check constraints on the "intb00001.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00001_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE intb00001.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00001_status_t_checkColumnConstraints {<BLOCK Name="fct.intb00001_us_crea_checkColumnConstraints">} #+ Check constraints on the "intb00001.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00001_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE intb00001.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00001_us_crea_checkColumnConstraints {<BLOCK Name="fct.intb00001_fech_crea_checkColumnConstraints">} #+ Check constraints on the "intb00001.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00001_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE intb00001.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00001_fech_crea_checkColumnConstraints {<BLOCK Name="fct.intb00001_us_mod_checkColumnConstraints">} #+ Check constraints on the "intb00001.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00001_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE intb00001.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00001_us_mod_checkColumnConstraints {<BLOCK Name="fct.intb00001_fech_mod_checkColumnConstraints">} #+ Check constraints on the "intb00001.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00001_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE intb00001.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00001_fech_mod_checkColumnConstraints {<BLOCK Name="fct.intb00001_codid_checkColumnConstraints">} #+ Check constraints on the "intb00001.codid" column #+ #+ @param p_codid - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_intb00001_codid_checkColumnConstraints(p_codid) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codid LIKE intb00001.codid LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.intb00001_codid_checkColumnConstraints {<BLOCK Name="fct.inrp00002_checkTableConstraints">} #+ Check constraints on the "inrp00002" table #+ #+ @param p_data - a row data LIKE inrp00002.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_inrp00002_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE inrp00002.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_inrp00002_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_inrp00002_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_inrp00002_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_inrp00002_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_inrp00002_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_inrp00002_unidad_checkColumnConstraints(p_data.unidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_inrp00002_existencia_checkColumnConstraints(p_data.existencia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_inrp00002_costos_checkColumnConstraints(p_data.costos) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_inrp00002_total_checkColumnConstraints(p_data.total) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.inrp00002_checkTableConstraints {<BLOCK Name="fct.inrp00002_cod_n_checkColumnConstraints">} #+ Check constraints on the "inrp00002.cod_n" column #+ #+ @param p_cod_n - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_inrp00002_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE inrp00002.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.inrp00002_cod_n_checkColumnConstraints {<BLOCK Name="fct.inrp00002_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "inrp00002.cod_grupo" column #+ #+ @param p_cod_grupo - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_inrp00002_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE inrp00002.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.inrp00002_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.inrp00002_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "inrp00002.cod_tipo" column #+ #+ @param p_cod_tipo - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_inrp00002_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE inrp00002.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.inrp00002_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.inrp00002_cod_sec_checkColumnConstraints">} #+ Check constraints on the "inrp00002.cod_sec" column #+ #+ @param p_cod_sec - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_inrp00002_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE inrp00002.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.inrp00002_cod_sec_checkColumnConstraints {<BLOCK Name="fct.inrp00002_descripcion_checkColumnConstraints">} #+ Check constraints on the "inrp00002.descripcion" column #+ #+ @param p_descripcion - VARCHAR2(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_inrp00002_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE inrp00002.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.inrp00002_descripcion_checkColumnConstraints {<BLOCK Name="fct.inrp00002_unidad_checkColumnConstraints">} #+ Check constraints on the "inrp00002.unidad" column #+ #+ @param p_unidad - VARCHAR2(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_inrp00002_unidad_checkColumnConstraints(p_unidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_unidad LIKE inrp00002.unidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.inrp00002_unidad_checkColumnConstraints {<BLOCK Name="fct.inrp00002_existencia_checkColumnConstraints">} #+ Check constraints on the "inrp00002.existencia" column #+ #+ @param p_existencia - VARCHAR2(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_inrp00002_existencia_checkColumnConstraints(p_existencia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_existencia LIKE inrp00002.existencia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.inrp00002_existencia_checkColumnConstraints {<BLOCK Name="fct.inrp00002_costos_checkColumnConstraints">} #+ Check constraints on the "inrp00002.costos" column #+ #+ @param p_costos - VARCHAR2(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_inrp00002_costos_checkColumnConstraints(p_costos) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_costos LIKE inrp00002.costos LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.inrp00002_costos_checkColumnConstraints {<BLOCK Name="fct.inrp00002_total_checkColumnConstraints">} #+ Check constraints on the "inrp00002.total" column #+ #+ @param p_total - VARCHAR2(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_inrp00002_total_checkColumnConstraints(p_total) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_total LIKE inrp00002.total LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.inrp00002_total_checkColumnConstraints {<BLOCK Name="fct.emventas_checkTableConstraints">} #+ Check constraints on the "emventas" table #+ #+ @param p_data - a row data LIKE emventas.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_emventas_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE emventas.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_emventas_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_emventas_ventas_checkColumnConstraints(p_data.ventas) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_emventas_ventas_dia_checkColumnConstraints(p_data.ventas_dia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_emventas_ventas_acum_checkColumnConstraints(p_data.ventas_acum) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.emventas_checkTableConstraints {<BLOCK Name="fct.emventas_mes_checkColumnConstraints">} #+ Check constraints on the "emventas.mes" column #+ #+ @param p_mes - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_emventas_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE emventas.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.emventas_mes_checkColumnConstraints {<BLOCK Name="fct.emventas_ventas_checkColumnConstraints">} #+ Check constraints on the "emventas.ventas" column #+ #+ @param p_ventas - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_emventas_ventas_checkColumnConstraints(p_ventas) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ventas LIKE emventas.ventas LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.emventas_ventas_checkColumnConstraints {<BLOCK Name="fct.emventas_ventas_dia_checkColumnConstraints">} #+ Check constraints on the "emventas.ventas_dia" column #+ #+ @param p_ventas_dia - DECIMAL(18,0) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_emventas_ventas_dia_checkColumnConstraints(p_ventas_dia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ventas_dia LIKE emventas.ventas_dia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.emventas_ventas_dia_checkColumnConstraints {<BLOCK Name="fct.emventas_ventas_acum_checkColumnConstraints">} #+ Check constraints on the "emventas.ventas_acum" column #+ #+ @param p_ventas_acum - DECIMAL(18,0) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_emventas_ventas_acum_checkColumnConstraints(p_ventas_acum) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ventas_acum LIKE emventas.ventas_acum LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.emventas_ventas_acum_checkColumnConstraints {<BLOCK Name="fct.empleados_checkTableConstraints">} #+ Check constraints on the "empleados" table #+ #+ @param p_data - a row data LIKE empleados.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_empleados_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE empleados.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_empleados_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_empleados_tipo_empleado_checkColumnConstraints(p_data.tipo_empleado) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_empleados_ficha_checkColumnConstraints(p_data.ficha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_empleados_nombre_checkColumnConstraints(p_data.nombre) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_empleados_cedula_checkColumnConstraints(p_data.cedula) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_empleados_puesto_checkColumnConstraints(p_data.puesto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_empleados_fecha_nacimiento_checkColumnConstraints(p_data.fecha_nacimiento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_empleados_mes_nacimiento_checkColumnConstraints(p_data.mes_nacimiento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_empleados_fecha_entrada_checkColumnConstraints(p_data.fecha_entrada) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_empleados_fecha_nomina_checkColumnConstraints(p_data.fecha_nomina) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_empleados_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_empleados_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_empleados_tiempo_empresa_checkColumnConstraints(p_data.tiempo_empresa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_empleados_meses_checkColumnConstraints(p_data.meses) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_empleados_movimiento_nom_checkColumnConstraints(p_data.movimiento_nom) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_empleados_sueldo_actual_checkColumnConstraints(p_data.sueldo_actual) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_empleados_valor_nomina_checkColumnConstraints(p_data.valor_nomina) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_empleados_estado_checkColumnConstraints(p_data.estado) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_empleados_nomina_checkColumnConstraints(p_data.nomina) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_empleados_fehasalida_checkColumnConstraints(p_data.fehasalida) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_empleados_clasemovimiento_checkColumnConstraints(p_data.clasemovimiento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_empleados_cuenta_checkColumnConstraints(p_data.cuenta) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_empleados_localidad_checkColumnConstraints(p_data.localidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_empleados_provincia_checkColumnConstraints(p_data.provincia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.empleados_checkTableConstraints {<BLOCK Name="fct.empleados_departamento_checkColumnConstraints">} #+ Check constraints on the "empleados.departamento" column #+ #+ @param p_departamento - VARCHAR2(35) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_empleados_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE empleados.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.empleados_departamento_checkColumnConstraints {<BLOCK Name="fct.empleados_tipo_empleado_checkColumnConstraints">} #+ Check constraints on the "empleados.tipo_empleado" column #+ #+ @param p_tipo_empleado - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_empleados_tipo_empleado_checkColumnConstraints(p_tipo_empleado) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_empleado LIKE empleados.tipo_empleado LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.empleados_tipo_empleado_checkColumnConstraints {<BLOCK Name="fct.empleados_ficha_checkColumnConstraints">} #+ Check constraints on the "empleados.ficha" column #+ #+ @param p_ficha - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_empleados_ficha_checkColumnConstraints(p_ficha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ficha LIKE empleados.ficha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_ficha IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- ficha: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.empleados_ficha_checkColumnConstraints {<BLOCK Name="fct.empleados_nombre_checkColumnConstraints">} #+ Check constraints on the "empleados.nombre" column #+ #+ @param p_nombre - VARCHAR2(31) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_empleados_nombre_checkColumnConstraints(p_nombre) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombre LIKE empleados.nombre LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.empleados_nombre_checkColumnConstraints {<BLOCK Name="fct.empleados_cedula_checkColumnConstraints">} #+ Check constraints on the "empleados.cedula" column #+ #+ @param p_cedula - CHAR(11) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_empleados_cedula_checkColumnConstraints(p_cedula) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cedula LIKE empleados.cedula LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.empleados_cedula_checkColumnConstraints {<BLOCK Name="fct.empleados_puesto_checkColumnConstraints">} #+ Check constraints on the "empleados.puesto" column #+ #+ @param p_puesto - VARCHAR2(35) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_empleados_puesto_checkColumnConstraints(p_puesto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_puesto LIKE empleados.puesto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.empleados_puesto_checkColumnConstraints {<BLOCK Name="fct.empleados_fecha_nacimiento_checkColumnConstraints">} #+ Check constraints on the "empleados.fecha_nacimiento" column #+ #+ @param p_fecha_nacimiento - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_empleados_fecha_nacimiento_checkColumnConstraints(p_fecha_nacimiento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_nacimiento LIKE empleados.fecha_nacimiento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.empleados_fecha_nacimiento_checkColumnConstraints {<BLOCK Name="fct.empleados_mes_nacimiento_checkColumnConstraints">} #+ Check constraints on the "empleados.mes_nacimiento" column #+ #+ @param p_mes_nacimiento - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_empleados_mes_nacimiento_checkColumnConstraints(p_mes_nacimiento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes_nacimiento LIKE empleados.mes_nacimiento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.empleados_mes_nacimiento_checkColumnConstraints {<BLOCK Name="fct.empleados_fecha_entrada_checkColumnConstraints">} #+ Check constraints on the "empleados.fecha_entrada" column #+ #+ @param p_fecha_entrada - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_empleados_fecha_entrada_checkColumnConstraints(p_fecha_entrada) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_entrada LIKE empleados.fecha_entrada LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.empleados_fecha_entrada_checkColumnConstraints {<BLOCK Name="fct.empleados_fecha_nomina_checkColumnConstraints">} #+ Check constraints on the "empleados.fecha_nomina" column #+ #+ @param p_fecha_nomina - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_empleados_fecha_nomina_checkColumnConstraints(p_fecha_nomina) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_nomina LIKE empleados.fecha_nomina LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.empleados_fecha_nomina_checkColumnConstraints {<BLOCK Name="fct.empleados_ano_checkColumnConstraints">} #+ Check constraints on the "empleados.ano" column #+ #+ @param p_ano - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_empleados_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE empleados.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_ano IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- ano: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.empleados_ano_checkColumnConstraints {<BLOCK Name="fct.empleados_mes_checkColumnConstraints">} #+ Check constraints on the "empleados.mes" column #+ #+ @param p_mes - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_empleados_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE empleados.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.empleados_mes_checkColumnConstraints {<BLOCK Name="fct.empleados_tiempo_empresa_checkColumnConstraints">} #+ Check constraints on the "empleados.tiempo_empresa" column #+ #+ @param p_tiempo_empresa - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_empleados_tiempo_empresa_checkColumnConstraints(p_tiempo_empresa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tiempo_empresa LIKE empleados.tiempo_empresa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.empleados_tiempo_empresa_checkColumnConstraints {<BLOCK Name="fct.empleados_meses_checkColumnConstraints">} #+ Check constraints on the "empleados.meses" column #+ #+ @param p_meses - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_empleados_meses_checkColumnConstraints(p_meses) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_meses LIKE empleados.meses LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.empleados_meses_checkColumnConstraints {<BLOCK Name="fct.empleados_movimiento_nom_checkColumnConstraints">} #+ Check constraints on the "empleados.movimiento_nom" column #+ #+ @param p_movimiento_nom - VARCHAR2(33) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_empleados_movimiento_nom_checkColumnConstraints(p_movimiento_nom) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_movimiento_nom LIKE empleados.movimiento_nom LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.empleados_movimiento_nom_checkColumnConstraints {<BLOCK Name="fct.empleados_sueldo_actual_checkColumnConstraints">} #+ Check constraints on the "empleados.sueldo_actual" column #+ #+ @param p_sueldo_actual - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_empleados_sueldo_actual_checkColumnConstraints(p_sueldo_actual) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sueldo_actual LIKE empleados.sueldo_actual LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.empleados_sueldo_actual_checkColumnConstraints {<BLOCK Name="fct.empleados_valor_nomina_checkColumnConstraints">} #+ Check constraints on the "empleados.valor_nomina" column #+ #+ @param p_valor_nomina - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_empleados_valor_nomina_checkColumnConstraints(p_valor_nomina) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor_nomina LIKE empleados.valor_nomina LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.empleados_valor_nomina_checkColumnConstraints {<BLOCK Name="fct.empleados_estado_checkColumnConstraints">} #+ Check constraints on the "empleados.estado" column #+ #+ @param p_estado - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_empleados_estado_checkColumnConstraints(p_estado) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_estado LIKE empleados.estado LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.empleados_estado_checkColumnConstraints {<BLOCK Name="fct.empleados_nomina_checkColumnConstraints">} #+ Check constraints on the "empleados.nomina" column #+ #+ @param p_nomina - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_empleados_nomina_checkColumnConstraints(p_nomina) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nomina LIKE empleados.nomina LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.empleados_nomina_checkColumnConstraints {<BLOCK Name="fct.empleados_fehasalida_checkColumnConstraints">} #+ Check constraints on the "empleados.fehasalida" column #+ #+ @param p_fehasalida - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_empleados_fehasalida_checkColumnConstraints(p_fehasalida) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fehasalida LIKE empleados.fehasalida LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.empleados_fehasalida_checkColumnConstraints {<BLOCK Name="fct.empleados_clasemovimiento_checkColumnConstraints">} #+ Check constraints on the "empleados.clasemovimiento" column #+ #+ @param p_clasemovimiento - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_empleados_clasemovimiento_checkColumnConstraints(p_clasemovimiento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_clasemovimiento LIKE empleados.clasemovimiento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.empleados_clasemovimiento_checkColumnConstraints {<BLOCK Name="fct.empleados_cuenta_checkColumnConstraints">} #+ Check constraints on the "empleados.cuenta" column #+ #+ @param p_cuenta - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_empleados_cuenta_checkColumnConstraints(p_cuenta) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta LIKE empleados.cuenta LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.empleados_cuenta_checkColumnConstraints {<BLOCK Name="fct.empleados_localidad_checkColumnConstraints">} #+ Check constraints on the "empleados.localidad" column #+ #+ @param p_localidad - VARCHAR2(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_empleados_localidad_checkColumnConstraints(p_localidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_localidad LIKE empleados.localidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.empleados_localidad_checkColumnConstraints {<BLOCK Name="fct.empleados_provincia_checkColumnConstraints">} #+ Check constraints on the "empleados.provincia" column #+ #+ @param p_provincia - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_empleados_provincia_checkColumnConstraints(p_provincia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_provincia LIKE empleados.provincia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.empleados_provincia_checkColumnConstraints {<BLOCK Name="fct.dstb00005_checkTableConstraints">} #+ Check constraints on the "dstb00005" table #+ #+ @param p_data - a row data LIKE dstb00005.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00005_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE dstb00005.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_dstb00005_tabla_checkColumnConstraints(p_data.tabla) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00005_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00005_num_emp1_checkColumnConstraints(p_data.num_emp1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00005_fecha_creacion_checkColumnConstraints(p_data.fecha_creacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00005_numero_act_checkColumnConstraints(p_data.numero_act) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00005_campo_checkColumnConstraints(p_data.campo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00005_descrip_campo_checkColumnConstraints(p_data.descrip_campo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00005_tipo_checkColumnConstraints(p_data.tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00005_longitud_checkColumnConstraints(p_data.longitud) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00005_secuencia_checkColumnConstraints(p_data.secuencia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00005_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00005_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00005_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00005_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00005_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00005_checkTableConstraints {<BLOCK Name="fct.dstb00005_tabla_checkColumnConstraints">} #+ Check constraints on the "dstb00005.tabla" column #+ #+ @param p_tabla - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00005_tabla_checkColumnConstraints(p_tabla) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tabla LIKE dstb00005.tabla LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00005_tabla_checkColumnConstraints {<BLOCK Name="fct.dstb00005_descripcion_checkColumnConstraints">} #+ Check constraints on the "dstb00005.descripcion" column #+ #+ @param p_descripcion - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00005_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE dstb00005.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00005_descripcion_checkColumnConstraints {<BLOCK Name="fct.dstb00005_num_emp1_checkColumnConstraints">} #+ Check constraints on the "dstb00005.num_emp1" column #+ #+ @param p_num_emp1 - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00005_num_emp1_checkColumnConstraints(p_num_emp1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_emp1 LIKE dstb00005.num_emp1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00005_num_emp1_checkColumnConstraints {<BLOCK Name="fct.dstb00005_fecha_creacion_checkColumnConstraints">} #+ Check constraints on the "dstb00005.fecha_creacion" column #+ #+ @param p_fecha_creacion - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00005_fecha_creacion_checkColumnConstraints(p_fecha_creacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_creacion LIKE dstb00005.fecha_creacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00005_fecha_creacion_checkColumnConstraints {<BLOCK Name="fct.dstb00005_numero_act_checkColumnConstraints">} #+ Check constraints on the "dstb00005.numero_act" column #+ #+ @param p_numero_act - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00005_numero_act_checkColumnConstraints(p_numero_act) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_numero_act LIKE dstb00005.numero_act LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00005_numero_act_checkColumnConstraints {<BLOCK Name="fct.dstb00005_campo_checkColumnConstraints">} #+ Check constraints on the "dstb00005.campo" column #+ #+ @param p_campo - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00005_campo_checkColumnConstraints(p_campo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_campo LIKE dstb00005.campo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00005_campo_checkColumnConstraints {<BLOCK Name="fct.dstb00005_descrip_campo_checkColumnConstraints">} #+ Check constraints on the "dstb00005.descrip_campo" column #+ #+ @param p_descrip_campo - CHAR(150) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00005_descrip_campo_checkColumnConstraints(p_descrip_campo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip_campo LIKE dstb00005.descrip_campo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00005_descrip_campo_checkColumnConstraints {<BLOCK Name="fct.dstb00005_tipo_checkColumnConstraints">} #+ Check constraints on the "dstb00005.tipo" column #+ #+ @param p_tipo - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00005_tipo_checkColumnConstraints(p_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo LIKE dstb00005.tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00005_tipo_checkColumnConstraints {<BLOCK Name="fct.dstb00005_longitud_checkColumnConstraints">} #+ Check constraints on the "dstb00005.longitud" column #+ #+ @param p_longitud - CHAR(16) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00005_longitud_checkColumnConstraints(p_longitud) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_longitud LIKE dstb00005.longitud LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00005_longitud_checkColumnConstraints {<BLOCK Name="fct.dstb00005_secuencia_checkColumnConstraints">} #+ Check constraints on the "dstb00005.secuencia" column #+ #+ @param p_secuencia - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00005_secuencia_checkColumnConstraints(p_secuencia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_secuencia LIKE dstb00005.secuencia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00005_secuencia_checkColumnConstraints {<BLOCK Name="fct.dstb00005_status_t_checkColumnConstraints">} #+ Check constraints on the "dstb00005.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00005_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE dstb00005.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00005_status_t_checkColumnConstraints {<BLOCK Name="fct.dstb00005_us_crea_checkColumnConstraints">} #+ Check constraints on the "dstb00005.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00005_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE dstb00005.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00005_us_crea_checkColumnConstraints {<BLOCK Name="fct.dstb00005_fech_crea_checkColumnConstraints">} #+ Check constraints on the "dstb00005.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00005_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE dstb00005.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00005_fech_crea_checkColumnConstraints {<BLOCK Name="fct.dstb00005_us_mod_checkColumnConstraints">} #+ Check constraints on the "dstb00005.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00005_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE dstb00005.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00005_us_mod_checkColumnConstraints {<BLOCK Name="fct.dstb00005_fech_mod_checkColumnConstraints">} #+ Check constraints on the "dstb00005.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00005_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE dstb00005.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00005_fech_mod_checkColumnConstraints {<BLOCK Name="fct.dstb00004_checkTableConstraints">} #+ Check constraints on the "dstb00004" table #+ #+ @param p_data - a row data LIKE dstb00004.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00004_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE dstb00004.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_dstb00004_cod_sistema_checkColumnConstraints(p_data.cod_sistema) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00004_menu1_checkColumnConstraints(p_data.menu1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00004_programa_checkColumnConstraints(p_data.programa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00004_opcion_checkColumnConstraints(p_data.opcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00004_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00004_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00004_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00004_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00004_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00004_checkTableConstraints {<BLOCK Name="fct.dstb00004_cod_sistema_checkColumnConstraints">} #+ Check constraints on the "dstb00004.cod_sistema" column #+ #+ @param p_cod_sistema - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00004_cod_sistema_checkColumnConstraints(p_cod_sistema) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sistema LIKE dstb00004.cod_sistema LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00004_cod_sistema_checkColumnConstraints {<BLOCK Name="fct.dstb00004_menu1_checkColumnConstraints">} #+ Check constraints on the "dstb00004.menu1" column #+ #+ @param p_menu1 - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00004_menu1_checkColumnConstraints(p_menu1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_menu1 LIKE dstb00004.menu1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00004_menu1_checkColumnConstraints {<BLOCK Name="fct.dstb00004_programa_checkColumnConstraints">} #+ Check constraints on the "dstb00004.programa" column #+ #+ @param p_programa - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00004_programa_checkColumnConstraints(p_programa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_programa LIKE dstb00004.programa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00004_programa_checkColumnConstraints {<BLOCK Name="fct.dstb00004_opcion_checkColumnConstraints">} #+ Check constraints on the "dstb00004.opcion" column #+ #+ @param p_opcion - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00004_opcion_checkColumnConstraints(p_opcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_opcion LIKE dstb00004.opcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00004_opcion_checkColumnConstraints {<BLOCK Name="fct.dstb00004_status_t_checkColumnConstraints">} #+ Check constraints on the "dstb00004.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00004_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE dstb00004.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00004_status_t_checkColumnConstraints {<BLOCK Name="fct.dstb00004_us_crea_checkColumnConstraints">} #+ Check constraints on the "dstb00004.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00004_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE dstb00004.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00004_us_crea_checkColumnConstraints {<BLOCK Name="fct.dstb00004_fech_crea_checkColumnConstraints">} #+ Check constraints on the "dstb00004.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00004_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE dstb00004.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00004_fech_crea_checkColumnConstraints {<BLOCK Name="fct.dstb00004_us_mod_checkColumnConstraints">} #+ Check constraints on the "dstb00004.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00004_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE dstb00004.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00004_us_mod_checkColumnConstraints {<BLOCK Name="fct.dstb00004_fech_mod_checkColumnConstraints">} #+ Check constraints on the "dstb00004.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00004_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE dstb00004.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00004_fech_mod_checkColumnConstraints {<BLOCK Name="fct.dstb00003_checkTableConstraints">} #+ Check constraints on the "dstb00003" table #+ #+ @param p_data - a row data LIKE dstb00003.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00003_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE dstb00003.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_dstb00003_cod_sistema_checkColumnConstraints(p_data.cod_sistema) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00003_desc_sistema_checkColumnConstraints(p_data.desc_sistema) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00003_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00003_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00003_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00003_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00003_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00003_checkTableConstraints {<BLOCK Name="fct.dstb00003_cod_sistema_checkColumnConstraints">} #+ Check constraints on the "dstb00003.cod_sistema" column #+ #+ @param p_cod_sistema - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00003_cod_sistema_checkColumnConstraints(p_cod_sistema) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sistema LIKE dstb00003.cod_sistema LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00003_cod_sistema_checkColumnConstraints {<BLOCK Name="fct.dstb00003_desc_sistema_checkColumnConstraints">} #+ Check constraints on the "dstb00003.desc_sistema" column #+ #+ @param p_desc_sistema - CHAR(35) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00003_desc_sistema_checkColumnConstraints(p_desc_sistema) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_desc_sistema LIKE dstb00003.desc_sistema LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00003_desc_sistema_checkColumnConstraints {<BLOCK Name="fct.dstb00003_status_t_checkColumnConstraints">} #+ Check constraints on the "dstb00003.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00003_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE dstb00003.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00003_status_t_checkColumnConstraints {<BLOCK Name="fct.dstb00003_us_crea_checkColumnConstraints">} #+ Check constraints on the "dstb00003.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00003_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE dstb00003.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00003_us_crea_checkColumnConstraints {<BLOCK Name="fct.dstb00003_fech_crea_checkColumnConstraints">} #+ Check constraints on the "dstb00003.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00003_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE dstb00003.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00003_fech_crea_checkColumnConstraints {<BLOCK Name="fct.dstb00003_us_mod_checkColumnConstraints">} #+ Check constraints on the "dstb00003.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00003_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE dstb00003.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00003_us_mod_checkColumnConstraints {<BLOCK Name="fct.dstb00003_fech_mod_checkColumnConstraints">} #+ Check constraints on the "dstb00003.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00003_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE dstb00003.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00003_fech_mod_checkColumnConstraints {<BLOCK Name="fct.dstb00002_checkTableConstraints">} #+ Check constraints on the "dstb00002" table #+ #+ @param p_data - a row data LIKE dstb00002.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00002_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE dstb00002.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_dstb00002_programa_checkColumnConstraints(p_data.programa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00002_numero_act_checkColumnConstraints(p_data.numero_act) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00002_linea_no_checkColumnConstraints(p_data.linea_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00002_entradas_checkColumnConstraints(p_data.entradas) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00002_proceso_checkColumnConstraints(p_data.proceso) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00002_salida_checkColumnConstraints(p_data.salida) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00002_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00002_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00002_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00002_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00002_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00002_checkTableConstraints {<BLOCK Name="fct.dstb00002_programa_checkColumnConstraints">} #+ Check constraints on the "dstb00002.programa" column #+ #+ @param p_programa - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00002_programa_checkColumnConstraints(p_programa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_programa LIKE dstb00002.programa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00002_programa_checkColumnConstraints {<BLOCK Name="fct.dstb00002_numero_act_checkColumnConstraints">} #+ Check constraints on the "dstb00002.numero_act" column #+ #+ @param p_numero_act - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00002_numero_act_checkColumnConstraints(p_numero_act) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_numero_act LIKE dstb00002.numero_act LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00002_numero_act_checkColumnConstraints {<BLOCK Name="fct.dstb00002_linea_no_checkColumnConstraints">} #+ Check constraints on the "dstb00002.linea_no" column #+ #+ @param p_linea_no - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00002_linea_no_checkColumnConstraints(p_linea_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_linea_no LIKE dstb00002.linea_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00002_linea_no_checkColumnConstraints {<BLOCK Name="fct.dstb00002_entradas_checkColumnConstraints">} #+ Check constraints on the "dstb00002.entradas" column #+ #+ @param p_entradas - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00002_entradas_checkColumnConstraints(p_entradas) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_entradas LIKE dstb00002.entradas LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00002_entradas_checkColumnConstraints {<BLOCK Name="fct.dstb00002_proceso_checkColumnConstraints">} #+ Check constraints on the "dstb00002.proceso" column #+ #+ @param p_proceso - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00002_proceso_checkColumnConstraints(p_proceso) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_proceso LIKE dstb00002.proceso LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00002_proceso_checkColumnConstraints {<BLOCK Name="fct.dstb00002_salida_checkColumnConstraints">} #+ Check constraints on the "dstb00002.salida" column #+ #+ @param p_salida - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00002_salida_checkColumnConstraints(p_salida) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_salida LIKE dstb00002.salida LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00002_salida_checkColumnConstraints {<BLOCK Name="fct.dstb00002_status_t_checkColumnConstraints">} #+ Check constraints on the "dstb00002.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00002_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE dstb00002.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00002_status_t_checkColumnConstraints {<BLOCK Name="fct.dstb00002_us_crea_checkColumnConstraints">} #+ Check constraints on the "dstb00002.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00002_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE dstb00002.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00002_us_crea_checkColumnConstraints {<BLOCK Name="fct.dstb00002_fech_crea_checkColumnConstraints">} #+ Check constraints on the "dstb00002.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00002_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE dstb00002.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00002_fech_crea_checkColumnConstraints {<BLOCK Name="fct.dstb00002_us_mod_checkColumnConstraints">} #+ Check constraints on the "dstb00002.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00002_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE dstb00002.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00002_us_mod_checkColumnConstraints {<BLOCK Name="fct.dstb00002_fech_mod_checkColumnConstraints">} #+ Check constraints on the "dstb00002.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00002_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE dstb00002.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00002_fech_mod_checkColumnConstraints {<BLOCK Name="fct.dstb00001_checkTableConstraints">} #+ Check constraints on the "dstb00001" table #+ #+ @param p_data - a row data LIKE dstb00001.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00001_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE dstb00001.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_dstb00001_programa_checkColumnConstraints(p_data.programa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00001_cod_sistema_checkColumnConstraints(p_data.cod_sistema) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00001_num_emp_checkColumnConstraints(p_data.num_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00001_no_solicitud_checkColumnConstraints(p_data.no_solicitud) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00001_fecha_creacion_checkColumnConstraints(p_data.fecha_creacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00001_fecha_modificacion_checkColumnConstraints(p_data.fecha_modificacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00001_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00001_objetivo1_checkColumnConstraints(p_data.objetivo1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00001_objetivo2_checkColumnConstraints(p_data.objetivo2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00001_numero_act_checkColumnConstraints(p_data.numero_act) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00001_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00001_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00001_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00001_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dstb00001_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00001_checkTableConstraints {<BLOCK Name="fct.dstb00001_programa_checkColumnConstraints">} #+ Check constraints on the "dstb00001.programa" column #+ #+ @param p_programa - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00001_programa_checkColumnConstraints(p_programa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_programa LIKE dstb00001.programa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00001_programa_checkColumnConstraints {<BLOCK Name="fct.dstb00001_cod_sistema_checkColumnConstraints">} #+ Check constraints on the "dstb00001.cod_sistema" column #+ #+ @param p_cod_sistema - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00001_cod_sistema_checkColumnConstraints(p_cod_sistema) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sistema LIKE dstb00001.cod_sistema LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00001_cod_sistema_checkColumnConstraints {<BLOCK Name="fct.dstb00001_num_emp_checkColumnConstraints">} #+ Check constraints on the "dstb00001.num_emp" column #+ #+ @param p_num_emp - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00001_num_emp_checkColumnConstraints(p_num_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_emp LIKE dstb00001.num_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00001_num_emp_checkColumnConstraints {<BLOCK Name="fct.dstb00001_no_solicitud_checkColumnConstraints">} #+ Check constraints on the "dstb00001.no_solicitud" column #+ #+ @param p_no_solicitud - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00001_no_solicitud_checkColumnConstraints(p_no_solicitud) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_no_solicitud LIKE dstb00001.no_solicitud LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00001_no_solicitud_checkColumnConstraints {<BLOCK Name="fct.dstb00001_fecha_creacion_checkColumnConstraints">} #+ Check constraints on the "dstb00001.fecha_creacion" column #+ #+ @param p_fecha_creacion - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00001_fecha_creacion_checkColumnConstraints(p_fecha_creacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_creacion LIKE dstb00001.fecha_creacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00001_fecha_creacion_checkColumnConstraints {<BLOCK Name="fct.dstb00001_fecha_modificacion_checkColumnConstraints">} #+ Check constraints on the "dstb00001.fecha_modificacion" column #+ #+ @param p_fecha_modificacion - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00001_fecha_modificacion_checkColumnConstraints(p_fecha_modificacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_modificacion LIKE dstb00001.fecha_modificacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00001_fecha_modificacion_checkColumnConstraints {<BLOCK Name="fct.dstb00001_descripcion_checkColumnConstraints">} #+ Check constraints on the "dstb00001.descripcion" column #+ #+ @param p_descripcion - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00001_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE dstb00001.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00001_descripcion_checkColumnConstraints {<BLOCK Name="fct.dstb00001_objetivo1_checkColumnConstraints">} #+ Check constraints on the "dstb00001.objetivo1" column #+ #+ @param p_objetivo1 - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00001_objetivo1_checkColumnConstraints(p_objetivo1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_objetivo1 LIKE dstb00001.objetivo1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00001_objetivo1_checkColumnConstraints {<BLOCK Name="fct.dstb00001_objetivo2_checkColumnConstraints">} #+ Check constraints on the "dstb00001.objetivo2" column #+ #+ @param p_objetivo2 - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00001_objetivo2_checkColumnConstraints(p_objetivo2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_objetivo2 LIKE dstb00001.objetivo2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00001_objetivo2_checkColumnConstraints {<BLOCK Name="fct.dstb00001_numero_act_checkColumnConstraints">} #+ Check constraints on the "dstb00001.numero_act" column #+ #+ @param p_numero_act - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00001_numero_act_checkColumnConstraints(p_numero_act) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_numero_act LIKE dstb00001.numero_act LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00001_numero_act_checkColumnConstraints {<BLOCK Name="fct.dstb00001_status_t_checkColumnConstraints">} #+ Check constraints on the "dstb00001.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00001_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE dstb00001.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00001_status_t_checkColumnConstraints {<BLOCK Name="fct.dstb00001_us_crea_checkColumnConstraints">} #+ Check constraints on the "dstb00001.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00001_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE dstb00001.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00001_us_crea_checkColumnConstraints {<BLOCK Name="fct.dstb00001_fech_crea_checkColumnConstraints">} #+ Check constraints on the "dstb00001.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00001_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE dstb00001.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00001_fech_crea_checkColumnConstraints {<BLOCK Name="fct.dstb00001_us_mod_checkColumnConstraints">} #+ Check constraints on the "dstb00001.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00001_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE dstb00001.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00001_us_mod_checkColumnConstraints {<BLOCK Name="fct.dstb00001_fech_mod_checkColumnConstraints">} #+ Check constraints on the "dstb00001.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dstb00001_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE dstb00001.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dstb00001_fech_mod_checkColumnConstraints {<BLOCK Name="fct.diatable_checkTableConstraints">} #+ Check constraints on the "diatable" table #+ #+ @param p_data - a row data LIKE diatable.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_diatable_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE diatable.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_diatable_dia_checkColumnConstraints(p_data.dia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_diatable_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.diatable_checkTableConstraints {<BLOCK Name="fct.diatable_dia_checkColumnConstraints">} #+ Check constraints on the "diatable.dia" column #+ #+ @param p_dia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_diatable_dia_checkColumnConstraints(p_dia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_dia LIKE diatable.dia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.diatable_dia_checkColumnConstraints {<BLOCK Name="fct.diatable_descripcion_checkColumnConstraints">} #+ Check constraints on the "diatable.descripcion" column #+ #+ @param p_descripcion - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_diatable_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE diatable.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.diatable_descripcion_checkColumnConstraints {<BLOCK Name="fct.dgii_rnc3_checkTableConstraints">} #+ Check constraints on the "dgii_rnc3" table #+ #+ @param p_data - a row data LIKE dgii_rnc3.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_dgii_rnc3_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE dgii_rnc3.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_dgii_rnc3_column_0_checkColumnConstraints(p_data.column_0) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dgii_rnc3_column_1_checkColumnConstraints(p_data.column_1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dgii_rnc3_column_2_checkColumnConstraints(p_data.column_2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dgii_rnc3_column_3_checkColumnConstraints(p_data.column_3) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dgii_rnc3_column_4_checkColumnConstraints(p_data.column_4) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dgii_rnc3_column_5_checkColumnConstraints(p_data.column_5) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dgii_rnc3_column_6_checkColumnConstraints(p_data.column_6) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dgii_rnc3_column_7_checkColumnConstraints(p_data.column_7) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dgii_rnc3_checkTableConstraints {<BLOCK Name="fct.dgii_rnc3_column_0_checkColumnConstraints">} #+ Check constraints on the "dgii_rnc3.column_0" column #+ #+ @param p_column_0 - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dgii_rnc3_column_0_checkColumnConstraints(p_column_0) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_column_0 LIKE dgii_rnc3.column_0 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dgii_rnc3_column_0_checkColumnConstraints {<BLOCK Name="fct.dgii_rnc3_column_1_checkColumnConstraints">} #+ Check constraints on the "dgii_rnc3.column_1" column #+ #+ @param p_column_1 - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dgii_rnc3_column_1_checkColumnConstraints(p_column_1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_column_1 LIKE dgii_rnc3.column_1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dgii_rnc3_column_1_checkColumnConstraints {<BLOCK Name="fct.dgii_rnc3_column_2_checkColumnConstraints">} #+ Check constraints on the "dgii_rnc3.column_2" column #+ #+ @param p_column_2 - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dgii_rnc3_column_2_checkColumnConstraints(p_column_2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_column_2 LIKE dgii_rnc3.column_2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dgii_rnc3_column_2_checkColumnConstraints {<BLOCK Name="fct.dgii_rnc3_column_3_checkColumnConstraints">} #+ Check constraints on the "dgii_rnc3.column_3" column #+ #+ @param p_column_3 - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dgii_rnc3_column_3_checkColumnConstraints(p_column_3) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_column_3 LIKE dgii_rnc3.column_3 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dgii_rnc3_column_3_checkColumnConstraints {<BLOCK Name="fct.dgii_rnc3_column_4_checkColumnConstraints">} #+ Check constraints on the "dgii_rnc3.column_4" column #+ #+ @param p_column_4 - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dgii_rnc3_column_4_checkColumnConstraints(p_column_4) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_column_4 LIKE dgii_rnc3.column_4 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dgii_rnc3_column_4_checkColumnConstraints {<BLOCK Name="fct.dgii_rnc3_column_5_checkColumnConstraints">} #+ Check constraints on the "dgii_rnc3.column_5" column #+ #+ @param p_column_5 - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dgii_rnc3_column_5_checkColumnConstraints(p_column_5) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_column_5 LIKE dgii_rnc3.column_5 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dgii_rnc3_column_5_checkColumnConstraints {<BLOCK Name="fct.dgii_rnc3_column_6_checkColumnConstraints">} #+ Check constraints on the "dgii_rnc3.column_6" column #+ #+ @param p_column_6 - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dgii_rnc3_column_6_checkColumnConstraints(p_column_6) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_column_6 LIKE dgii_rnc3.column_6 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dgii_rnc3_column_6_checkColumnConstraints {<BLOCK Name="fct.dgii_rnc3_column_7_checkColumnConstraints">} #+ Check constraints on the "dgii_rnc3.column_7" column #+ #+ @param p_column_7 - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dgii_rnc3_column_7_checkColumnConstraints(p_column_7) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_column_7 LIKE dgii_rnc3.column_7 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dgii_rnc3_column_7_checkColumnConstraints {<BLOCK Name="fct.dgii_rnc_checkTableConstraints">} #+ Check constraints on the "dgii_rnc" table #+ #+ @param p_data - a row data LIKE dgii_rnc.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_dgii_rnc_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE dgii_rnc.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_dgii_rnc_rnc_checkColumnConstraints(p_data.rnc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dgii_rnc_column1_checkColumnConstraints(p_data.column1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dgii_rnc_column2_checkColumnConstraints(p_data.column2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dgii_rnc_column3_checkColumnConstraints(p_data.column3) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dgii_rnc_column4_checkColumnConstraints(p_data.column4) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dgii_rnc_column5_checkColumnConstraints(p_data.column5) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dgii_rnc_column6_checkColumnConstraints(p_data.column6) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dgii_rnc_column7_checkColumnConstraints(p_data.column7) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dgii_rnc_column8_checkColumnConstraints(p_data.column8) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dgii_rnc_column9_checkColumnConstraints(p_data.column9) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dgii_rnc_column10_checkColumnConstraints(p_data.column10) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dgii_rnc_column11_checkColumnConstraints(p_data.column11) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dgii_rnc_checkTableConstraints {<BLOCK Name="fct.dgii_rnc_rnc_checkColumnConstraints">} #+ Check constraints on the "dgii_rnc.rnc" column #+ #+ @param p_rnc - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dgii_rnc_rnc_checkColumnConstraints(p_rnc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_rnc LIKE dgii_rnc.rnc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dgii_rnc_rnc_checkColumnConstraints {<BLOCK Name="fct.dgii_rnc_column1_checkColumnConstraints">} #+ Check constraints on the "dgii_rnc.column1" column #+ #+ @param p_column1 - TEXT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dgii_rnc_column1_checkColumnConstraints(p_column1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_column1 LIKE dgii_rnc.column1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dgii_rnc_column1_checkColumnConstraints {<BLOCK Name="fct.dgii_rnc_column2_checkColumnConstraints">} #+ Check constraints on the "dgii_rnc.column2" column #+ #+ @param p_column2 - VARCHAR2(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dgii_rnc_column2_checkColumnConstraints(p_column2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_column2 LIKE dgii_rnc.column2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dgii_rnc_column2_checkColumnConstraints {<BLOCK Name="fct.dgii_rnc_column3_checkColumnConstraints">} #+ Check constraints on the "dgii_rnc.column3" column #+ #+ @param p_column3 - VARCHAR2(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dgii_rnc_column3_checkColumnConstraints(p_column3) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_column3 LIKE dgii_rnc.column3 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dgii_rnc_column3_checkColumnConstraints {<BLOCK Name="fct.dgii_rnc_column4_checkColumnConstraints">} #+ Check constraints on the "dgii_rnc.column4" column #+ #+ @param p_column4 - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dgii_rnc_column4_checkColumnConstraints(p_column4) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_column4 LIKE dgii_rnc.column4 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dgii_rnc_column4_checkColumnConstraints {<BLOCK Name="fct.dgii_rnc_column5_checkColumnConstraints">} #+ Check constraints on the "dgii_rnc.column5" column #+ #+ @param p_column5 - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dgii_rnc_column5_checkColumnConstraints(p_column5) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_column5 LIKE dgii_rnc.column5 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dgii_rnc_column5_checkColumnConstraints {<BLOCK Name="fct.dgii_rnc_column6_checkColumnConstraints">} #+ Check constraints on the "dgii_rnc.column6" column #+ #+ @param p_column6 - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dgii_rnc_column6_checkColumnConstraints(p_column6) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_column6 LIKE dgii_rnc.column6 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dgii_rnc_column6_checkColumnConstraints {<BLOCK Name="fct.dgii_rnc_column7_checkColumnConstraints">} #+ Check constraints on the "dgii_rnc.column7" column #+ #+ @param p_column7 - VARCHAR2(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dgii_rnc_column7_checkColumnConstraints(p_column7) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_column7 LIKE dgii_rnc.column7 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dgii_rnc_column7_checkColumnConstraints {<BLOCK Name="fct.dgii_rnc_column8_checkColumnConstraints">} #+ Check constraints on the "dgii_rnc.column8" column #+ #+ @param p_column8 - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dgii_rnc_column8_checkColumnConstraints(p_column8) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_column8 LIKE dgii_rnc.column8 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dgii_rnc_column8_checkColumnConstraints {<BLOCK Name="fct.dgii_rnc_column9_checkColumnConstraints">} #+ Check constraints on the "dgii_rnc.column9" column #+ #+ @param p_column9 - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dgii_rnc_column9_checkColumnConstraints(p_column9) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_column9 LIKE dgii_rnc.column9 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dgii_rnc_column9_checkColumnConstraints {<BLOCK Name="fct.dgii_rnc_column10_checkColumnConstraints">} #+ Check constraints on the "dgii_rnc.column10" column #+ #+ @param p_column10 - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dgii_rnc_column10_checkColumnConstraints(p_column10) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_column10 LIKE dgii_rnc.column10 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dgii_rnc_column10_checkColumnConstraints {<BLOCK Name="fct.dgii_rnc_column11_checkColumnConstraints">} #+ Check constraints on the "dgii_rnc.column11" column #+ #+ @param p_column11 - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dgii_rnc_column11_checkColumnConstraints(p_column11) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_column11 LIKE dgii_rnc.column11 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dgii_rnc_column11_checkColumnConstraints {<BLOCK Name="fct.dbocodigos20_checkTableConstraints">} #+ Check constraints on the "dbocodigos20" table #+ #+ @param p_data - a row data LIKE dbocodigos20.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_dbocodigos20_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE dbocodigos20.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_dbocodigos20_f1_checkColumnConstraints(p_data.f1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dbocodigos20_f2_checkColumnConstraints(p_data.f2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dbocodigos20_f3_checkColumnConstraints(p_data.f3) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_dbocodigos20_f4_checkColumnConstraints(p_data.f4) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dbocodigos20_checkTableConstraints {<BLOCK Name="fct.dbocodigos20_f1_checkColumnConstraints">} #+ Check constraints on the "dbocodigos20.f1" column #+ #+ @param p_f1 - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dbocodigos20_f1_checkColumnConstraints(p_f1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f1 LIKE dbocodigos20.f1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dbocodigos20_f1_checkColumnConstraints {<BLOCK Name="fct.dbocodigos20_f2_checkColumnConstraints">} #+ Check constraints on the "dbocodigos20.f2" column #+ #+ @param p_f2 - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dbocodigos20_f2_checkColumnConstraints(p_f2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f2 LIKE dbocodigos20.f2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dbocodigos20_f2_checkColumnConstraints {<BLOCK Name="fct.dbocodigos20_f3_checkColumnConstraints">} #+ Check constraints on the "dbocodigos20.f3" column #+ #+ @param p_f3 - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dbocodigos20_f3_checkColumnConstraints(p_f3) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f3 LIKE dbocodigos20.f3 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dbocodigos20_f3_checkColumnConstraints {<BLOCK Name="fct.dbocodigos20_f4_checkColumnConstraints">} #+ Check constraints on the "dbocodigos20.f4" column #+ #+ @param p_f4 - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_dbocodigos20_f4_checkColumnConstraints(p_f4) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f4 LIKE dbocodigos20.f4 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.dbocodigos20_f4_checkColumnConstraints {<BLOCK Name="fct.cttb000log2_checkTableConstraints">} #+ Check constraints on the "cttb000log2" table #+ #+ @param p_data - a row data LIKE cttb000log2.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cttb000log2_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cttb000log2.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cttb000log2_fecha_lq_checkColumnConstraints(p_data.fecha_lq) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb000log2_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb000log2_tipo_lq_checkColumnConstraints(p_data.tipo_lq) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb000log2_num_oc_checkColumnConstraints(p_data.num_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb000log2_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb000log2_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb000log2_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb000log2_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb000log2_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb000log2_costo_lq_checkColumnConstraints(p_data.costo_lq) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb000log2_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb000log2_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb000log2_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb000log2_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb000log2_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb000log2_tipo_orden_checkColumnConstraints(p_data.tipo_orden) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb000log2_programa_checkColumnConstraints(p_data.programa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb000log2_checkTableConstraints {<BLOCK Name="fct.cttb000log2_fecha_lq_checkColumnConstraints">} #+ Check constraints on the "cttb000log2.fecha_lq" column #+ #+ @param p_fecha_lq - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb000log2_fecha_lq_checkColumnConstraints(p_fecha_lq) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_lq LIKE cttb000log2.fecha_lq LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb000log2_fecha_lq_checkColumnConstraints {<BLOCK Name="fct.cttb000log2_fecha_checkColumnConstraints">} #+ Check constraints on the "cttb000log2.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb000log2_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE cttb000log2.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb000log2_fecha_checkColumnConstraints {<BLOCK Name="fct.cttb000log2_tipo_lq_checkColumnConstraints">} #+ Check constraints on the "cttb000log2.tipo_lq" column #+ #+ @param p_tipo_lq - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb000log2_tipo_lq_checkColumnConstraints(p_tipo_lq) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_lq LIKE cttb000log2.tipo_lq LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb000log2_tipo_lq_checkColumnConstraints {<BLOCK Name="fct.cttb000log2_num_oc_checkColumnConstraints">} #+ Check constraints on the "cttb000log2.num_oc" column #+ #+ @param p_num_oc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb000log2_num_oc_checkColumnConstraints(p_num_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_oc LIKE cttb000log2.num_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb000log2_num_oc_checkColumnConstraints {<BLOCK Name="fct.cttb000log2_cod_n_checkColumnConstraints">} #+ Check constraints on the "cttb000log2.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb000log2_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE cttb000log2.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb000log2_cod_n_checkColumnConstraints {<BLOCK Name="fct.cttb000log2_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "cttb000log2.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb000log2_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE cttb000log2.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb000log2_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.cttb000log2_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "cttb000log2.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb000log2_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE cttb000log2.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb000log2_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.cttb000log2_cod_sec_checkColumnConstraints">} #+ Check constraints on the "cttb000log2.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb000log2_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE cttb000log2.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb000log2_cod_sec_checkColumnConstraints {<BLOCK Name="fct.cttb000log2_cantidad_checkColumnConstraints">} #+ Check constraints on the "cttb000log2.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb000log2_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE cttb000log2.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb000log2_cantidad_checkColumnConstraints {<BLOCK Name="fct.cttb000log2_costo_lq_checkColumnConstraints">} #+ Check constraints on the "cttb000log2.costo_lq" column #+ #+ @param p_costo_lq - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb000log2_costo_lq_checkColumnConstraints(p_costo_lq) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_costo_lq LIKE cttb000log2.costo_lq LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb000log2_costo_lq_checkColumnConstraints {<BLOCK Name="fct.cttb000log2_status_t_checkColumnConstraints">} #+ Check constraints on the "cttb000log2.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb000log2_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cttb000log2.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb000log2_status_t_checkColumnConstraints {<BLOCK Name="fct.cttb000log2_us_crea_checkColumnConstraints">} #+ Check constraints on the "cttb000log2.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb000log2_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cttb000log2.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb000log2_us_crea_checkColumnConstraints {<BLOCK Name="fct.cttb000log2_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cttb000log2.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb000log2_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cttb000log2.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb000log2_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cttb000log2_us_mod_checkColumnConstraints">} #+ Check constraints on the "cttb000log2.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb000log2_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cttb000log2.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb000log2_us_mod_checkColumnConstraints {<BLOCK Name="fct.cttb000log2_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cttb000log2.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb000log2_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cttb000log2.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb000log2_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cttb000log2_tipo_orden_checkColumnConstraints">} #+ Check constraints on the "cttb000log2.tipo_orden" column #+ #+ @param p_tipo_orden - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb000log2_tipo_orden_checkColumnConstraints(p_tipo_orden) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_orden LIKE cttb000log2.tipo_orden LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb000log2_tipo_orden_checkColumnConstraints {<BLOCK Name="fct.cttb000log2_programa_checkColumnConstraints">} #+ Check constraints on the "cttb000log2.programa" column #+ #+ @param p_programa - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb000log2_programa_checkColumnConstraints(p_programa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_programa LIKE cttb000log2.programa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb000log2_programa_checkColumnConstraints {<BLOCK Name="fct.cttb000log1_checkTableConstraints">} #+ Check constraints on the "cttb000log1" table #+ #+ @param p_data - a row data LIKE cttb000log1.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cttb000log1_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cttb000log1.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cttb000log1_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb000log1_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb000log1_programa_checkColumnConstraints(p_data.programa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb000log1_estado_checkColumnConstraints(p_data.estado) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb000log1_checkTableConstraints {<BLOCK Name="fct.cttb000log1_fecha_checkColumnConstraints">} #+ Check constraints on the "cttb000log1.fecha" column #+ #+ @param p_fecha - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb000log1_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE cttb000log1.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb000log1_fecha_checkColumnConstraints {<BLOCK Name="fct.cttb000log1_us_crea_checkColumnConstraints">} #+ Check constraints on the "cttb000log1.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb000log1_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cttb000log1.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb000log1_us_crea_checkColumnConstraints {<BLOCK Name="fct.cttb000log1_programa_checkColumnConstraints">} #+ Check constraints on the "cttb000log1.programa" column #+ #+ @param p_programa - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb000log1_programa_checkColumnConstraints(p_programa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_programa LIKE cttb000log1.programa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb000log1_programa_checkColumnConstraints {<BLOCK Name="fct.cttb000log1_estado_checkColumnConstraints">} #+ Check constraints on the "cttb000log1.estado" column #+ #+ @param p_estado - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb000log1_estado_checkColumnConstraints(p_estado) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_estado LIKE cttb000log1.estado LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb000log1_estado_checkColumnConstraints {<BLOCK Name="fct.cttb00042_checkTableConstraints">} #+ Check constraints on the "cttb00042" table #+ #+ @param p_data - a row data LIKE cttb00042.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00042_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cttb00042.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cttb00042_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00042_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00042_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00042_observacion_checkColumnConstraints(p_data.observacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00042_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00042_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00042_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00042_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00042_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00042_checkTableConstraints {<BLOCK Name="fct.cttb00042_num_doc_checkColumnConstraints">} #+ Check constraints on the "cttb00042.num_doc" column #+ #+ @param p_num_doc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00042_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE cttb00042.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00042_num_doc_checkColumnConstraints {<BLOCK Name="fct.cttb00042_fecha_checkColumnConstraints">} #+ Check constraints on the "cttb00042.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00042_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE cttb00042.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00042_fecha_checkColumnConstraints {<BLOCK Name="fct.cttb00042_departamento_checkColumnConstraints">} #+ Check constraints on the "cttb00042.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00042_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE cttb00042.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00042_departamento_checkColumnConstraints {<BLOCK Name="fct.cttb00042_observacion_checkColumnConstraints">} #+ Check constraints on the "cttb00042.observacion" column #+ #+ @param p_observacion - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00042_observacion_checkColumnConstraints(p_observacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_observacion LIKE cttb00042.observacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00042_observacion_checkColumnConstraints {<BLOCK Name="fct.cttb00042_status_t_checkColumnConstraints">} #+ Check constraints on the "cttb00042.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00042_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cttb00042.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00042_status_t_checkColumnConstraints {<BLOCK Name="fct.cttb00042_us_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00042.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00042_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cttb00042.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00042_us_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00042_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00042.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00042_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cttb00042.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00042_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00042_us_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00042.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00042_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cttb00042.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00042_us_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00042_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00042.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00042_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cttb00042.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00042_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00041_checkTableConstraints">} #+ Check constraints on the "cttb00041" table #+ #+ @param p_data - a row data LIKE cttb00041.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00041_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cttb00041.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cttb00041_cod_prod_checkColumnConstraints(p_data.cod_prod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00041_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00041_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00041_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00041_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00041_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00041_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00041_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00041_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00041_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00041_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00041_checkTableConstraints {<BLOCK Name="fct.cttb00041_cod_prod_checkColumnConstraints">} #+ Check constraints on the "cttb00041.cod_prod" column #+ #+ @param p_cod_prod - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00041_cod_prod_checkColumnConstraints(p_cod_prod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_prod LIKE cttb00041.cod_prod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00041_cod_prod_checkColumnConstraints {<BLOCK Name="fct.cttb00041_cod_n_checkColumnConstraints">} #+ Check constraints on the "cttb00041.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00041_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE cttb00041.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00041_cod_n_checkColumnConstraints {<BLOCK Name="fct.cttb00041_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "cttb00041.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00041_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE cttb00041.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00041_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.cttb00041_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "cttb00041.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00041_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE cttb00041.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00041_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.cttb00041_cod_sec_checkColumnConstraints">} #+ Check constraints on the "cttb00041.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00041_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE cttb00041.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00041_cod_sec_checkColumnConstraints {<BLOCK Name="fct.cttb00041_cantidad_checkColumnConstraints">} #+ Check constraints on the "cttb00041.cantidad" column #+ #+ @param p_cantidad - DECIMAL(10,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00041_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE cttb00041.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00041_cantidad_checkColumnConstraints {<BLOCK Name="fct.cttb00041_status_t_checkColumnConstraints">} #+ Check constraints on the "cttb00041.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00041_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cttb00041.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00041_status_t_checkColumnConstraints {<BLOCK Name="fct.cttb00041_us_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00041.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00041_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cttb00041.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00041_us_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00041_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00041.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00041_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cttb00041.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00041_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00041_us_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00041.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00041_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cttb00041.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00041_us_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00041_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00041.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00041_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cttb00041.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00041_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00039_checkTableConstraints">} #+ Check constraints on the "cttb00039" table #+ #+ @param p_data - a row data LIKE cttb00039.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00039_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cttb00039.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cttb00039_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00039_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00039_valor_checkColumnConstraints(p_data.valor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00039_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00039_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00039_checkTableConstraints {<BLOCK Name="fct.cttb00039_ano_checkColumnConstraints">} #+ Check constraints on the "cttb00039.ano" column #+ #+ @param p_ano - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00039_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE cttb00039.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00039_ano_checkColumnConstraints {<BLOCK Name="fct.cttb00039_mes_checkColumnConstraints">} #+ Check constraints on the "cttb00039.mes" column #+ #+ @param p_mes - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00039_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE cttb00039.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00039_mes_checkColumnConstraints {<BLOCK Name="fct.cttb00039_valor_checkColumnConstraints">} #+ Check constraints on the "cttb00039.valor" column #+ #+ @param p_valor - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00039_valor_checkColumnConstraints(p_valor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor LIKE cttb00039.valor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00039_valor_checkColumnConstraints {<BLOCK Name="fct.cttb00039_us_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00039.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00039_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cttb00039.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00039_us_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00039_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00039.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00039_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cttb00039.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00039_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00038_checkTableConstraints">} #+ Check constraints on the "cttb00038" table #+ #+ @param p_data - a row data LIKE cttb00038.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00038_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cttb00038.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cttb00038_ventas_checkColumnConstraints(p_data.ventas) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00038_nomenclatura_checkColumnConstraints(p_data.nomenclatura) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00038_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00038_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00038_costo_st_checkColumnConstraints(p_data.costo_st) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00038_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00038_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00038_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00038_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00038_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00038_checkTableConstraints {<BLOCK Name="fct.cttb00038_ventas_checkColumnConstraints">} #+ Check constraints on the "cttb00038.ventas" column #+ #+ @param p_ventas - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00038_ventas_checkColumnConstraints(p_ventas) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ventas LIKE cttb00038.ventas LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_ventas IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- ventas: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00038_ventas_checkColumnConstraints {<BLOCK Name="fct.cttb00038_nomenclatura_checkColumnConstraints">} #+ Check constraints on the "cttb00038.nomenclatura" column #+ #+ @param p_nomenclatura - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00038_nomenclatura_checkColumnConstraints(p_nomenclatura) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nomenclatura LIKE cttb00038.nomenclatura LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_nomenclatura IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- nomenclatura: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00038_nomenclatura_checkColumnConstraints {<BLOCK Name="fct.cttb00038_ano_checkColumnConstraints">} #+ Check constraints on the "cttb00038.ano" column #+ #+ @param p_ano - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00038_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE cttb00038.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_ano IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- ano: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00038_ano_checkColumnConstraints {<BLOCK Name="fct.cttb00038_mes_checkColumnConstraints">} #+ Check constraints on the "cttb00038.mes" column #+ #+ @param p_mes - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00038_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE cttb00038.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_mes IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- mes: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00038_mes_checkColumnConstraints {<BLOCK Name="fct.cttb00038_costo_st_checkColumnConstraints">} #+ Check constraints on the "cttb00038.costo_st" column #+ #+ @param p_costo_st - DECIMAL(12,7) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00038_costo_st_checkColumnConstraints(p_costo_st) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_costo_st LIKE cttb00038.costo_st LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_costo_st IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- costo_st: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00038_costo_st_checkColumnConstraints {<BLOCK Name="fct.cttb00038_status_t_checkColumnConstraints">} #+ Check constraints on the "cttb00038.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00038_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cttb00038.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00038_status_t_checkColumnConstraints {<BLOCK Name="fct.cttb00038_us_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00038.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00038_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cttb00038.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00038_us_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00038_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00038.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00038_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cttb00038.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00038_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00038_us_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00038.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00038_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cttb00038.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00038_us_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00038_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00038.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00038_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cttb00038.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00038_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00036_checkTableConstraints">} #+ Check constraints on the "cttb00036" table #+ #+ @param p_data - a row data LIKE cttb00036.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00036_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cttb00036.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cttb00036_ventas_checkColumnConstraints(p_data.ventas) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00036_fecha_lq_checkColumnConstraints(p_data.fecha_lq) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00036_num_oc_checkColumnConstraints(p_data.num_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00036_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00036_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00036_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00036_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00036_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00036_costo_lq_checkColumnConstraints(p_data.costo_lq) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00036_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00036_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00036_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00036_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00036_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00036_checkTableConstraints {<BLOCK Name="fct.cttb00036_ventas_checkColumnConstraints">} #+ Check constraints on the "cttb00036.ventas" column #+ #+ @param p_ventas - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00036_ventas_checkColumnConstraints(p_ventas) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ventas LIKE cttb00036.ventas LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00036_ventas_checkColumnConstraints {<BLOCK Name="fct.cttb00036_fecha_lq_checkColumnConstraints">} #+ Check constraints on the "cttb00036.fecha_lq" column #+ #+ @param p_fecha_lq - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00036_fecha_lq_checkColumnConstraints(p_fecha_lq) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_lq LIKE cttb00036.fecha_lq LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00036_fecha_lq_checkColumnConstraints {<BLOCK Name="fct.cttb00036_num_oc_checkColumnConstraints">} #+ Check constraints on the "cttb00036.num_oc" column #+ #+ @param p_num_oc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00036_num_oc_checkColumnConstraints(p_num_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_oc LIKE cttb00036.num_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00036_num_oc_checkColumnConstraints {<BLOCK Name="fct.cttb00036_cod_n_checkColumnConstraints">} #+ Check constraints on the "cttb00036.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00036_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE cttb00036.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00036_cod_n_checkColumnConstraints {<BLOCK Name="fct.cttb00036_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "cttb00036.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00036_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE cttb00036.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00036_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.cttb00036_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "cttb00036.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00036_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE cttb00036.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00036_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.cttb00036_cod_sec_checkColumnConstraints">} #+ Check constraints on the "cttb00036.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00036_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE cttb00036.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00036_cod_sec_checkColumnConstraints {<BLOCK Name="fct.cttb00036_cantidad_checkColumnConstraints">} #+ Check constraints on the "cttb00036.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00036_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE cttb00036.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00036_cantidad_checkColumnConstraints {<BLOCK Name="fct.cttb00036_costo_lq_checkColumnConstraints">} #+ Check constraints on the "cttb00036.costo_lq" column #+ #+ @param p_costo_lq - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00036_costo_lq_checkColumnConstraints(p_costo_lq) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_costo_lq LIKE cttb00036.costo_lq LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00036_costo_lq_checkColumnConstraints {<BLOCK Name="fct.cttb00036_status_t_checkColumnConstraints">} #+ Check constraints on the "cttb00036.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00036_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cttb00036.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00036_status_t_checkColumnConstraints {<BLOCK Name="fct.cttb00036_us_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00036.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00036_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cttb00036.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00036_us_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00036_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00036.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00036_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cttb00036.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00036_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00036_us_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00036.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00036_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cttb00036.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00036_us_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00036_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00036.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00036_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cttb00036.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00036_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00034_checkTableConstraints">} #+ Check constraints on the "cttb00034" table #+ #+ @param p_data - a row data LIKE cttb00034.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00034_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cttb00034.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cttb00034_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00034_cod_prod_checkColumnConstraints(p_data.cod_prod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00034_costo_lab_checkColumnConstraints(p_data.costo_lab) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00034_costo_ga_checkColumnConstraints(p_data.costo_ga) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00034_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00034_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00034_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00034_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00034_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00034_checkTableConstraints {<BLOCK Name="fct.cttb00034_fecha_checkColumnConstraints">} #+ Check constraints on the "cttb00034.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00034_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE cttb00034.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00034_fecha_checkColumnConstraints {<BLOCK Name="fct.cttb00034_cod_prod_checkColumnConstraints">} #+ Check constraints on the "cttb00034.cod_prod" column #+ #+ @param p_cod_prod - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00034_cod_prod_checkColumnConstraints(p_cod_prod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_prod LIKE cttb00034.cod_prod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00034_cod_prod_checkColumnConstraints {<BLOCK Name="fct.cttb00034_costo_lab_checkColumnConstraints">} #+ Check constraints on the "cttb00034.costo_lab" column #+ #+ @param p_costo_lab - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00034_costo_lab_checkColumnConstraints(p_costo_lab) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_costo_lab LIKE cttb00034.costo_lab LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00034_costo_lab_checkColumnConstraints {<BLOCK Name="fct.cttb00034_costo_ga_checkColumnConstraints">} #+ Check constraints on the "cttb00034.costo_ga" column #+ #+ @param p_costo_ga - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00034_costo_ga_checkColumnConstraints(p_costo_ga) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_costo_ga LIKE cttb00034.costo_ga LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00034_costo_ga_checkColumnConstraints {<BLOCK Name="fct.cttb00034_status_t_checkColumnConstraints">} #+ Check constraints on the "cttb00034.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00034_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cttb00034.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00034_status_t_checkColumnConstraints {<BLOCK Name="fct.cttb00034_us_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00034.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00034_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cttb00034.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00034_us_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00034_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00034.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00034_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cttb00034.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00034_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00034_us_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00034.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00034_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cttb00034.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00034_us_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00034_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00034.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00034_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cttb00034.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00034_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00033_checkTableConstraints">} #+ Check constraints on the "cttb00033" table #+ #+ @param p_data - a row data LIKE cttb00033.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00033_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cttb00033.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cttb00033_cuenta_m_checkColumnConstraints(p_data.cuenta_m) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00033_cuenta_l_checkColumnConstraints(p_data.cuenta_l) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00033_cuenta_g_checkColumnConstraints(p_data.cuenta_g) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00033_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00033_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00033_checkTableConstraints {<BLOCK Name="fct.cttb00033_cuenta_m_checkColumnConstraints">} #+ Check constraints on the "cttb00033.cuenta_m" column #+ #+ @param p_cuenta_m - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00033_cuenta_m_checkColumnConstraints(p_cuenta_m) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_m LIKE cttb00033.cuenta_m LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00033_cuenta_m_checkColumnConstraints {<BLOCK Name="fct.cttb00033_cuenta_l_checkColumnConstraints">} #+ Check constraints on the "cttb00033.cuenta_l" column #+ #+ @param p_cuenta_l - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00033_cuenta_l_checkColumnConstraints(p_cuenta_l) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_l LIKE cttb00033.cuenta_l LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00033_cuenta_l_checkColumnConstraints {<BLOCK Name="fct.cttb00033_cuenta_g_checkColumnConstraints">} #+ Check constraints on the "cttb00033.cuenta_g" column #+ #+ @param p_cuenta_g - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00033_cuenta_g_checkColumnConstraints(p_cuenta_g) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_g LIKE cttb00033.cuenta_g LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00033_cuenta_g_checkColumnConstraints {<BLOCK Name="fct.cttb00033_us_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00033.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00033_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cttb00033.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00033_us_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00033_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00033.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00033_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cttb00033.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00033_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00032_checkTableConstraints">} #+ Check constraints on the "cttb00032" table #+ #+ @param p_data - a row data LIKE cttb00032.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00032_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cttb00032.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cttb00032_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00032_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00032_tipo_lq_checkColumnConstraints(p_data.tipo_lq) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00032_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00032_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00032_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00032_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00032_cod_sp_checkColumnConstraints(p_data.cod_sp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00032_cod_sp_sec_checkColumnConstraints(p_data.cod_sp_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00032_reporte_ent_checkColumnConstraints(p_data.reporte_ent) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00032_num_oc_checkColumnConstraints(p_data.num_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00032_tipo_checkColumnConstraints(p_data.tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00032_fob_checkColumnConstraints(p_data.fob) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00032_flete_checkColumnConstraints(p_data.flete) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00032_cost_flete_checkColumnConstraints(p_data.cost_flete) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00032_seguro_checkColumnConstraints(p_data.seguro) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00032_impuesto_c_checkColumnConstraints(p_data.impuesto_c) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00032_gasto_ad_checkColumnConstraints(p_data.gasto_ad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00032_prima_d_checkColumnConstraints(p_data.prima_d) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00032_cost_planta_checkColumnConstraints(p_data.cost_planta) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00032_unid_rec_checkColumnConstraints(p_data.unid_rec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00032_cost_uni_checkColumnConstraints(p_data.cost_uni) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00032_precio_std_checkColumnConstraints(p_data.precio_std) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00032_cost_std_checkColumnConstraints(p_data.cost_std) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00032_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00032_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00032_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00032_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00032_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00032_checkTableConstraints {<BLOCK Name="fct.cttb00032_ano_checkColumnConstraints">} #+ Check constraints on the "cttb00032.ano" column #+ #+ @param p_ano - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00032_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE cttb00032.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00032_ano_checkColumnConstraints {<BLOCK Name="fct.cttb00032_mes_checkColumnConstraints">} #+ Check constraints on the "cttb00032.mes" column #+ #+ @param p_mes - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00032_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE cttb00032.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_mes IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- mes: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00032_mes_checkColumnConstraints {<BLOCK Name="fct.cttb00032_tipo_lq_checkColumnConstraints">} #+ Check constraints on the "cttb00032.tipo_lq" column #+ #+ @param p_tipo_lq - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00032_tipo_lq_checkColumnConstraints(p_tipo_lq) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_lq LIKE cttb00032.tipo_lq LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00032_tipo_lq_checkColumnConstraints {<BLOCK Name="fct.cttb00032_cod_n_checkColumnConstraints">} #+ Check constraints on the "cttb00032.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00032_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE cttb00032.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00032_cod_n_checkColumnConstraints {<BLOCK Name="fct.cttb00032_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "cttb00032.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00032_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE cttb00032.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00032_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.cttb00032_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "cttb00032.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00032_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE cttb00032.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00032_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.cttb00032_cod_sec_checkColumnConstraints">} #+ Check constraints on the "cttb00032.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00032_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE cttb00032.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00032_cod_sec_checkColumnConstraints {<BLOCK Name="fct.cttb00032_cod_sp_checkColumnConstraints">} #+ Check constraints on the "cttb00032.cod_sp" column #+ #+ @param p_cod_sp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00032_cod_sp_checkColumnConstraints(p_cod_sp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp LIKE cttb00032.cod_sp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00032_cod_sp_checkColumnConstraints {<BLOCK Name="fct.cttb00032_cod_sp_sec_checkColumnConstraints">} #+ Check constraints on the "cttb00032.cod_sp_sec" column #+ #+ @param p_cod_sp_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00032_cod_sp_sec_checkColumnConstraints(p_cod_sp_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp_sec LIKE cttb00032.cod_sp_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00032_cod_sp_sec_checkColumnConstraints {<BLOCK Name="fct.cttb00032_reporte_ent_checkColumnConstraints">} #+ Check constraints on the "cttb00032.reporte_ent" column #+ #+ @param p_reporte_ent - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00032_reporte_ent_checkColumnConstraints(p_reporte_ent) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_reporte_ent LIKE cttb00032.reporte_ent LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00032_reporte_ent_checkColumnConstraints {<BLOCK Name="fct.cttb00032_num_oc_checkColumnConstraints">} #+ Check constraints on the "cttb00032.num_oc" column #+ #+ @param p_num_oc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00032_num_oc_checkColumnConstraints(p_num_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_oc LIKE cttb00032.num_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00032_num_oc_checkColumnConstraints {<BLOCK Name="fct.cttb00032_tipo_checkColumnConstraints">} #+ Check constraints on the "cttb00032.tipo" column #+ #+ @param p_tipo - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00032_tipo_checkColumnConstraints(p_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo LIKE cttb00032.tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00032_tipo_checkColumnConstraints {<BLOCK Name="fct.cttb00032_fob_checkColumnConstraints">} #+ Check constraints on the "cttb00032.fob" column #+ #+ @param p_fob - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00032_fob_checkColumnConstraints(p_fob) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fob LIKE cttb00032.fob LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00032_fob_checkColumnConstraints {<BLOCK Name="fct.cttb00032_flete_checkColumnConstraints">} #+ Check constraints on the "cttb00032.flete" column #+ #+ @param p_flete - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00032_flete_checkColumnConstraints(p_flete) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_flete LIKE cttb00032.flete LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00032_flete_checkColumnConstraints {<BLOCK Name="fct.cttb00032_cost_flete_checkColumnConstraints">} #+ Check constraints on the "cttb00032.cost_flete" column #+ #+ @param p_cost_flete - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00032_cost_flete_checkColumnConstraints(p_cost_flete) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cost_flete LIKE cttb00032.cost_flete LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00032_cost_flete_checkColumnConstraints {<BLOCK Name="fct.cttb00032_seguro_checkColumnConstraints">} #+ Check constraints on the "cttb00032.seguro" column #+ #+ @param p_seguro - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00032_seguro_checkColumnConstraints(p_seguro) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_seguro LIKE cttb00032.seguro LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00032_seguro_checkColumnConstraints {<BLOCK Name="fct.cttb00032_impuesto_c_checkColumnConstraints">} #+ Check constraints on the "cttb00032.impuesto_c" column #+ #+ @param p_impuesto_c - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00032_impuesto_c_checkColumnConstraints(p_impuesto_c) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_impuesto_c LIKE cttb00032.impuesto_c LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00032_impuesto_c_checkColumnConstraints {<BLOCK Name="fct.cttb00032_gasto_ad_checkColumnConstraints">} #+ Check constraints on the "cttb00032.gasto_ad" column #+ #+ @param p_gasto_ad - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00032_gasto_ad_checkColumnConstraints(p_gasto_ad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_gasto_ad LIKE cttb00032.gasto_ad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00032_gasto_ad_checkColumnConstraints {<BLOCK Name="fct.cttb00032_prima_d_checkColumnConstraints">} #+ Check constraints on the "cttb00032.prima_d" column #+ #+ @param p_prima_d - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00032_prima_d_checkColumnConstraints(p_prima_d) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_prima_d LIKE cttb00032.prima_d LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00032_prima_d_checkColumnConstraints {<BLOCK Name="fct.cttb00032_cost_planta_checkColumnConstraints">} #+ Check constraints on the "cttb00032.cost_planta" column #+ #+ @param p_cost_planta - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00032_cost_planta_checkColumnConstraints(p_cost_planta) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cost_planta LIKE cttb00032.cost_planta LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00032_cost_planta_checkColumnConstraints {<BLOCK Name="fct.cttb00032_unid_rec_checkColumnConstraints">} #+ Check constraints on the "cttb00032.unid_rec" column #+ #+ @param p_unid_rec - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00032_unid_rec_checkColumnConstraints(p_unid_rec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_unid_rec LIKE cttb00032.unid_rec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00032_unid_rec_checkColumnConstraints {<BLOCK Name="fct.cttb00032_cost_uni_checkColumnConstraints">} #+ Check constraints on the "cttb00032.cost_uni" column #+ #+ @param p_cost_uni - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00032_cost_uni_checkColumnConstraints(p_cost_uni) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cost_uni LIKE cttb00032.cost_uni LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00032_cost_uni_checkColumnConstraints {<BLOCK Name="fct.cttb00032_precio_std_checkColumnConstraints">} #+ Check constraints on the "cttb00032.precio_std" column #+ #+ @param p_precio_std - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00032_precio_std_checkColumnConstraints(p_precio_std) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_precio_std LIKE cttb00032.precio_std LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00032_precio_std_checkColumnConstraints {<BLOCK Name="fct.cttb00032_cost_std_checkColumnConstraints">} #+ Check constraints on the "cttb00032.cost_std" column #+ #+ @param p_cost_std - DECIMAL(12,3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00032_cost_std_checkColumnConstraints(p_cost_std) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cost_std LIKE cttb00032.cost_std LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00032_cost_std_checkColumnConstraints {<BLOCK Name="fct.cttb00032_status_t_checkColumnConstraints">} #+ Check constraints on the "cttb00032.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00032_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cttb00032.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00032_status_t_checkColumnConstraints {<BLOCK Name="fct.cttb00032_us_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00032.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00032_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cttb00032.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00032_us_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00032_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00032.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00032_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cttb00032.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00032_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00032_us_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00032.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00032_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cttb00032.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00032_us_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00032_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00032.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00032_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cttb00032.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00032_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00029_checkTableConstraints">} #+ Check constraints on the "cttb00029" table #+ #+ @param p_data - a row data LIKE cttb00029.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00029_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cttb00029.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cttb00029_cod_prod_checkColumnConstraints(p_data.cod_prod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00029_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00029_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00029_gasto_ind_checkColumnConstraints(p_data.gasto_ind) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00029_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00029_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00029_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00029_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00029_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00029_checkTableConstraints {<BLOCK Name="fct.cttb00029_cod_prod_checkColumnConstraints">} #+ Check constraints on the "cttb00029.cod_prod" column #+ #+ @param p_cod_prod - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00029_cod_prod_checkColumnConstraints(p_cod_prod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_prod LIKE cttb00029.cod_prod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00029_cod_prod_checkColumnConstraints {<BLOCK Name="fct.cttb00029_ano_checkColumnConstraints">} #+ Check constraints on the "cttb00029.ano" column #+ #+ @param p_ano - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00029_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE cttb00029.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00029_ano_checkColumnConstraints {<BLOCK Name="fct.cttb00029_departamento_checkColumnConstraints">} #+ Check constraints on the "cttb00029.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00029_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE cttb00029.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00029_departamento_checkColumnConstraints {<BLOCK Name="fct.cttb00029_gasto_ind_checkColumnConstraints">} #+ Check constraints on the "cttb00029.gasto_ind" column #+ #+ @param p_gasto_ind - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00029_gasto_ind_checkColumnConstraints(p_gasto_ind) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_gasto_ind LIKE cttb00029.gasto_ind LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00029_gasto_ind_checkColumnConstraints {<BLOCK Name="fct.cttb00029_status_t_checkColumnConstraints">} #+ Check constraints on the "cttb00029.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00029_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cttb00029.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00029_status_t_checkColumnConstraints {<BLOCK Name="fct.cttb00029_us_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00029.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00029_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cttb00029.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00029_us_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00029_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00029.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00029_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cttb00029.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00029_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00029_us_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00029.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00029_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cttb00029.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00029_us_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00029_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00029.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00029_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cttb00029.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00029_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00028_checkTableConstraints">} #+ Check constraints on the "cttb00028" table #+ #+ @param p_data - a row data LIKE cttb00028.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00028_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cttb00028.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cttb00028_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00028_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00028_cod_prod_checkColumnConstraints(p_data.cod_prod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00028_fact_hombre_checkColumnConstraints(p_data.fact_hombre) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00028_valor_labor_checkColumnConstraints(p_data.valor_labor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00028_hora_hombre_checkColumnConstraints(p_data.hora_hombre) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00028_valor_real_checkColumnConstraints(p_data.valor_real) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00028_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00028_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00028_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00028_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00028_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00028_checkTableConstraints {<BLOCK Name="fct.cttb00028_ano_checkColumnConstraints">} #+ Check constraints on the "cttb00028.ano" column #+ #+ @param p_ano - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00028_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE cttb00028.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00028_ano_checkColumnConstraints {<BLOCK Name="fct.cttb00028_departamento_checkColumnConstraints">} #+ Check constraints on the "cttb00028.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00028_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE cttb00028.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00028_departamento_checkColumnConstraints {<BLOCK Name="fct.cttb00028_cod_prod_checkColumnConstraints">} #+ Check constraints on the "cttb00028.cod_prod" column #+ #+ @param p_cod_prod - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00028_cod_prod_checkColumnConstraints(p_cod_prod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_prod LIKE cttb00028.cod_prod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00028_cod_prod_checkColumnConstraints {<BLOCK Name="fct.cttb00028_fact_hombre_checkColumnConstraints">} #+ Check constraints on the "cttb00028.fact_hombre" column #+ #+ @param p_fact_hombre - DECIMAL(13,8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00028_fact_hombre_checkColumnConstraints(p_fact_hombre) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fact_hombre LIKE cttb00028.fact_hombre LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00028_fact_hombre_checkColumnConstraints {<BLOCK Name="fct.cttb00028_valor_labor_checkColumnConstraints">} #+ Check constraints on the "cttb00028.valor_labor" column #+ #+ @param p_valor_labor - DECIMAL(13,8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00028_valor_labor_checkColumnConstraints(p_valor_labor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor_labor LIKE cttb00028.valor_labor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00028_valor_labor_checkColumnConstraints {<BLOCK Name="fct.cttb00028_hora_hombre_checkColumnConstraints">} #+ Check constraints on the "cttb00028.hora_hombre" column #+ #+ @param p_hora_hombre - DECIMAL(13,8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00028_hora_hombre_checkColumnConstraints(p_hora_hombre) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_hora_hombre LIKE cttb00028.hora_hombre LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00028_hora_hombre_checkColumnConstraints {<BLOCK Name="fct.cttb00028_valor_real_checkColumnConstraints">} #+ Check constraints on the "cttb00028.valor_real" column #+ #+ @param p_valor_real - DECIMAL(13,8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00028_valor_real_checkColumnConstraints(p_valor_real) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor_real LIKE cttb00028.valor_real LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00028_valor_real_checkColumnConstraints {<BLOCK Name="fct.cttb00028_status_t_checkColumnConstraints">} #+ Check constraints on the "cttb00028.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00028_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cttb00028.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00028_status_t_checkColumnConstraints {<BLOCK Name="fct.cttb00028_us_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00028.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00028_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cttb00028.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00028_us_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00028_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00028.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00028_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cttb00028.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00028_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00028_us_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00028.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00028_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cttb00028.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00028_us_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00028_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00028.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00028_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cttb00028.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00028_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00027_checkTableConstraints">} #+ Check constraints on the "cttb00027" table #+ #+ @param p_data - a row data LIKE cttb00027.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00027_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cttb00027.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cttb00027_ventas_checkColumnConstraints(p_data.ventas) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00027_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00027_pila_checkColumnConstraints(p_data.pila) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00027_primo_checkColumnConstraints(p_data.primo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00027_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00027_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00027_checkTableConstraints {<BLOCK Name="fct.cttb00027_ventas_checkColumnConstraints">} #+ Check constraints on the "cttb00027.ventas" column #+ #+ @param p_ventas - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00027_ventas_checkColumnConstraints(p_ventas) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ventas LIKE cttb00027.ventas LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00027_ventas_checkColumnConstraints {<BLOCK Name="fct.cttb00027_mes_checkColumnConstraints">} #+ Check constraints on the "cttb00027.mes" column #+ #+ @param p_mes - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00027_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE cttb00027.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00027_mes_checkColumnConstraints {<BLOCK Name="fct.cttb00027_pila_checkColumnConstraints">} #+ Check constraints on the "cttb00027.pila" column #+ #+ @param p_pila - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00027_pila_checkColumnConstraints(p_pila) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_pila LIKE cttb00027.pila LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00027_pila_checkColumnConstraints {<BLOCK Name="fct.cttb00027_primo_checkColumnConstraints">} #+ Check constraints on the "cttb00027.primo" column #+ #+ @param p_primo - DECIMAL(12,3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00027_primo_checkColumnConstraints(p_primo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_primo LIKE cttb00027.primo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00027_primo_checkColumnConstraints {<BLOCK Name="fct.cttb00027_us_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00027.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00027_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cttb00027.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00027_us_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00027_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00027.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00027_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cttb00027.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00027_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00026_checkTableConstraints">} #+ Check constraints on the "cttb00026" table #+ #+ @param p_data - a row data LIKE cttb00026.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00026_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cttb00026.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cttb00026_mes_ini_checkColumnConstraints(p_data.mes_ini) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00026_mes_fin_checkColumnConstraints(p_data.mes_fin) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00026_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00026_cod_prod_checkColumnConstraints(p_data.cod_prod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00026_costo_st_checkColumnConstraints(p_data.costo_st) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00026_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00026_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00026_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00026_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00026_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00026_checkTableConstraints {<BLOCK Name="fct.cttb00026_mes_ini_checkColumnConstraints">} #+ Check constraints on the "cttb00026.mes_ini" column #+ #+ @param p_mes_ini - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00026_mes_ini_checkColumnConstraints(p_mes_ini) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes_ini LIKE cttb00026.mes_ini LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00026_mes_ini_checkColumnConstraints {<BLOCK Name="fct.cttb00026_mes_fin_checkColumnConstraints">} #+ Check constraints on the "cttb00026.mes_fin" column #+ #+ @param p_mes_fin - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00026_mes_fin_checkColumnConstraints(p_mes_fin) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes_fin LIKE cttb00026.mes_fin LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00026_mes_fin_checkColumnConstraints {<BLOCK Name="fct.cttb00026_ano_checkColumnConstraints">} #+ Check constraints on the "cttb00026.ano" column #+ #+ @param p_ano - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00026_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE cttb00026.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00026_ano_checkColumnConstraints {<BLOCK Name="fct.cttb00026_cod_prod_checkColumnConstraints">} #+ Check constraints on the "cttb00026.cod_prod" column #+ #+ @param p_cod_prod - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00026_cod_prod_checkColumnConstraints(p_cod_prod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_prod LIKE cttb00026.cod_prod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00026_cod_prod_checkColumnConstraints {<BLOCK Name="fct.cttb00026_costo_st_checkColumnConstraints">} #+ Check constraints on the "cttb00026.costo_st" column #+ #+ @param p_costo_st - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00026_costo_st_checkColumnConstraints(p_costo_st) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_costo_st LIKE cttb00026.costo_st LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00026_costo_st_checkColumnConstraints {<BLOCK Name="fct.cttb00026_status_t_checkColumnConstraints">} #+ Check constraints on the "cttb00026.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00026_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cttb00026.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00026_status_t_checkColumnConstraints {<BLOCK Name="fct.cttb00026_us_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00026.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00026_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cttb00026.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00026_us_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00026_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00026.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00026_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cttb00026.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00026_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00026_us_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00026.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00026_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cttb00026.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00026_us_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00026_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00026.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00026_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cttb00026.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00026_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00023_checkTableConstraints">} #+ Check constraints on the "cttb00023" table #+ #+ @param p_data - a row data LIKE cttb00023.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00023_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cttb00023.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cttb00023_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00023_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00023_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00023_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00023_costo_imp_checkColumnConstraints(p_data.costo_imp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00023_costo_s_imp_checkColumnConstraints(p_data.costo_s_imp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00023_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00023_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00023_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00023_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00023_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00023_checkTableConstraints {<BLOCK Name="fct.cttb00023_cod_n_checkColumnConstraints">} #+ Check constraints on the "cttb00023.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00023_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE cttb00023.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00023_cod_n_checkColumnConstraints {<BLOCK Name="fct.cttb00023_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "cttb00023.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00023_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE cttb00023.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00023_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.cttb00023_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "cttb00023.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00023_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE cttb00023.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00023_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.cttb00023_cod_sec_checkColumnConstraints">} #+ Check constraints on the "cttb00023.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00023_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE cttb00023.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00023_cod_sec_checkColumnConstraints {<BLOCK Name="fct.cttb00023_costo_imp_checkColumnConstraints">} #+ Check constraints on the "cttb00023.costo_imp" column #+ #+ @param p_costo_imp - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00023_costo_imp_checkColumnConstraints(p_costo_imp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_costo_imp LIKE cttb00023.costo_imp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00023_costo_imp_checkColumnConstraints {<BLOCK Name="fct.cttb00023_costo_s_imp_checkColumnConstraints">} #+ Check constraints on the "cttb00023.costo_s_imp" column #+ #+ @param p_costo_s_imp - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00023_costo_s_imp_checkColumnConstraints(p_costo_s_imp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_costo_s_imp LIKE cttb00023.costo_s_imp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00023_costo_s_imp_checkColumnConstraints {<BLOCK Name="fct.cttb00023_status_t_checkColumnConstraints">} #+ Check constraints on the "cttb00023.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00023_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cttb00023.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00023_status_t_checkColumnConstraints {<BLOCK Name="fct.cttb00023_us_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00023.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00023_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cttb00023.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00023_us_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00023_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00023.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00023_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cttb00023.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00023_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00023_us_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00023.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00023_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cttb00023.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00023_us_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00023_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00023.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00023_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cttb00023.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00023_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00022_checkTableConstraints">} #+ Check constraints on the "cttb00022" table #+ #+ @param p_data - a row data LIKE cttb00022.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00022_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cttb00022.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cttb00022_cod_prod_checkColumnConstraints(p_data.cod_prod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00022_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00022_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00022_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00022_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00022_cant_prop_checkColumnConstraints(p_data.cant_prop) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00022_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00022_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00022_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00022_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00022_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00022_checkTableConstraints {<BLOCK Name="fct.cttb00022_cod_prod_checkColumnConstraints">} #+ Check constraints on the "cttb00022.cod_prod" column #+ #+ @param p_cod_prod - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00022_cod_prod_checkColumnConstraints(p_cod_prod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_prod LIKE cttb00022.cod_prod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00022_cod_prod_checkColumnConstraints {<BLOCK Name="fct.cttb00022_cod_n_checkColumnConstraints">} #+ Check constraints on the "cttb00022.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00022_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE cttb00022.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00022_cod_n_checkColumnConstraints {<BLOCK Name="fct.cttb00022_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "cttb00022.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00022_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE cttb00022.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00022_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.cttb00022_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "cttb00022.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00022_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE cttb00022.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00022_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.cttb00022_cod_sec_checkColumnConstraints">} #+ Check constraints on the "cttb00022.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00022_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE cttb00022.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00022_cod_sec_checkColumnConstraints {<BLOCK Name="fct.cttb00022_cant_prop_checkColumnConstraints">} #+ Check constraints on the "cttb00022.cant_prop" column #+ #+ @param p_cant_prop - DECIMAL(10,8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00022_cant_prop_checkColumnConstraints(p_cant_prop) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cant_prop LIKE cttb00022.cant_prop LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00022_cant_prop_checkColumnConstraints {<BLOCK Name="fct.cttb00022_status_t_checkColumnConstraints">} #+ Check constraints on the "cttb00022.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00022_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cttb00022.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00022_status_t_checkColumnConstraints {<BLOCK Name="fct.cttb00022_us_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00022.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00022_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cttb00022.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00022_us_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00022_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00022.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00022_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cttb00022.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00022_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00022_us_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00022.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00022_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cttb00022.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00022_us_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00022_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00022.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00022_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cttb00022.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00022_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00021_checkTableConstraints">} #+ Check constraints on the "cttb00021" table #+ #+ @param p_data - a row data LIKE cttb00021.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00021_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cttb00021.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cttb00021_ventas_checkColumnConstraints(p_data.ventas) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00021_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00021_pila_checkColumnConstraints(p_data.pila) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00021_material_checkColumnConstraints(p_data.material) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00021_labor_checkColumnConstraints(p_data.labor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00021_gasto_checkColumnConstraints(p_data.gasto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00021_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00021_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00021_checkTableConstraints {<BLOCK Name="fct.cttb00021_ventas_checkColumnConstraints">} #+ Check constraints on the "cttb00021.ventas" column #+ #+ @param p_ventas - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00021_ventas_checkColumnConstraints(p_ventas) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ventas LIKE cttb00021.ventas LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00021_ventas_checkColumnConstraints {<BLOCK Name="fct.cttb00021_mes_checkColumnConstraints">} #+ Check constraints on the "cttb00021.mes" column #+ #+ @param p_mes - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00021_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE cttb00021.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00021_mes_checkColumnConstraints {<BLOCK Name="fct.cttb00021_pila_checkColumnConstraints">} #+ Check constraints on the "cttb00021.pila" column #+ #+ @param p_pila - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00021_pila_checkColumnConstraints(p_pila) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_pila LIKE cttb00021.pila LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00021_pila_checkColumnConstraints {<BLOCK Name="fct.cttb00021_material_checkColumnConstraints">} #+ Check constraints on the "cttb00021.material" column #+ #+ @param p_material - DECIMAL(12,3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00021_material_checkColumnConstraints(p_material) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_material LIKE cttb00021.material LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00021_material_checkColumnConstraints {<BLOCK Name="fct.cttb00021_labor_checkColumnConstraints">} #+ Check constraints on the "cttb00021.labor" column #+ #+ @param p_labor - DECIMAL(12,3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00021_labor_checkColumnConstraints(p_labor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_labor LIKE cttb00021.labor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00021_labor_checkColumnConstraints {<BLOCK Name="fct.cttb00021_gasto_checkColumnConstraints">} #+ Check constraints on the "cttb00021.gasto" column #+ #+ @param p_gasto - DECIMAL(12,3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00021_gasto_checkColumnConstraints(p_gasto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_gasto LIKE cttb00021.gasto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00021_gasto_checkColumnConstraints {<BLOCK Name="fct.cttb00021_us_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00021.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00021_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cttb00021.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00021_us_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00021_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00021.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00021_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cttb00021.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00021_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00018_checkTableConstraints">} #+ Check constraints on the "cttb00018" table #+ #+ @param p_data - a row data LIKE cttb00018.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00018_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cttb00018.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cttb00018_turno_checkColumnConstraints(p_data.turno) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00018_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00018_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00018_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00018_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00018_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00018_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00018_checkTableConstraints {<BLOCK Name="fct.cttb00018_turno_checkColumnConstraints">} #+ Check constraints on the "cttb00018.turno" column #+ #+ @param p_turno - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00018_turno_checkColumnConstraints(p_turno) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_turno LIKE cttb00018.turno LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00018_turno_checkColumnConstraints {<BLOCK Name="fct.cttb00018_descripcion_checkColumnConstraints">} #+ Check constraints on the "cttb00018.descripcion" column #+ #+ @param p_descripcion - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00018_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE cttb00018.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00018_descripcion_checkColumnConstraints {<BLOCK Name="fct.cttb00018_status_t_checkColumnConstraints">} #+ Check constraints on the "cttb00018.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00018_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cttb00018.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00018_status_t_checkColumnConstraints {<BLOCK Name="fct.cttb00018_us_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00018.us_crea" column #+ #+ @param p_us_crea - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00018_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cttb00018.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00018_us_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00018_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00018.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00018_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cttb00018.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00018_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00018_us_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00018.us_mod" column #+ #+ @param p_us_mod - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00018_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cttb00018.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00018_us_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00018_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00018.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00018_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cttb00018.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00018_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00017_checkTableConstraints">} #+ Check constraints on the "cttb00017" table #+ #+ @param p_data - a row data LIKE cttb00017.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00017_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cttb00017.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cttb00017_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00017_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00017_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00017_emp_no_checkColumnConstraints(p_data.emp_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00017_cod_mq_checkColumnConstraints(p_data.cod_mq) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00017_detalle_checkColumnConstraints(p_data.detalle) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00017_h_directa_checkColumnConstraints(p_data.h_directa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00017_h_indirecta_checkColumnConstraints(p_data.h_indirecta) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00017_e_directa_checkColumnConstraints(p_data.e_directa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00017_e_indirecta_checkColumnConstraints(p_data.e_indirecta) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00017_cod_prod_checkColumnConstraints(p_data.cod_prod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00017_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00017_codigo_bloque_checkColumnConstraints(p_data.codigo_bloque) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00017_costo_lab_checkColumnConstraints(p_data.costo_lab) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00017_costo_gasto_checkColumnConstraints(p_data.costo_gasto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00017_turno_checkColumnConstraints(p_data.turno) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00017_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00017_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00017_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00017_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00017_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00017_checkTableConstraints {<BLOCK Name="fct.cttb00017_num_doc_checkColumnConstraints">} #+ Check constraints on the "cttb00017.num_doc" column #+ #+ @param p_num_doc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00017_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE cttb00017.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00017_num_doc_checkColumnConstraints {<BLOCK Name="fct.cttb00017_fecha_checkColumnConstraints">} #+ Check constraints on the "cttb00017.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00017_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE cttb00017.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00017_fecha_checkColumnConstraints {<BLOCK Name="fct.cttb00017_departamento_checkColumnConstraints">} #+ Check constraints on the "cttb00017.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00017_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE cttb00017.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00017_departamento_checkColumnConstraints {<BLOCK Name="fct.cttb00017_emp_no_checkColumnConstraints">} #+ Check constraints on the "cttb00017.emp_no" column #+ #+ @param p_emp_no - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00017_emp_no_checkColumnConstraints(p_emp_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_emp_no LIKE cttb00017.emp_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00017_emp_no_checkColumnConstraints {<BLOCK Name="fct.cttb00017_cod_mq_checkColumnConstraints">} #+ Check constraints on the "cttb00017.cod_mq" column #+ #+ @param p_cod_mq - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00017_cod_mq_checkColumnConstraints(p_cod_mq) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mq LIKE cttb00017.cod_mq LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00017_cod_mq_checkColumnConstraints {<BLOCK Name="fct.cttb00017_detalle_checkColumnConstraints">} #+ Check constraints on the "cttb00017.detalle" column #+ #+ @param p_detalle - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00017_detalle_checkColumnConstraints(p_detalle) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_detalle LIKE cttb00017.detalle LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00017_detalle_checkColumnConstraints {<BLOCK Name="fct.cttb00017_h_directa_checkColumnConstraints">} #+ Check constraints on the "cttb00017.h_directa" column #+ #+ @param p_h_directa - DECIMAL(8,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00017_h_directa_checkColumnConstraints(p_h_directa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_h_directa LIKE cttb00017.h_directa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00017_h_directa_checkColumnConstraints {<BLOCK Name="fct.cttb00017_h_indirecta_checkColumnConstraints">} #+ Check constraints on the "cttb00017.h_indirecta" column #+ #+ @param p_h_indirecta - DECIMAL(8,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00017_h_indirecta_checkColumnConstraints(p_h_indirecta) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_h_indirecta LIKE cttb00017.h_indirecta LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00017_h_indirecta_checkColumnConstraints {<BLOCK Name="fct.cttb00017_e_directa_checkColumnConstraints">} #+ Check constraints on the "cttb00017.e_directa" column #+ #+ @param p_e_directa - DECIMAL(8,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00017_e_directa_checkColumnConstraints(p_e_directa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_e_directa LIKE cttb00017.e_directa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00017_e_directa_checkColumnConstraints {<BLOCK Name="fct.cttb00017_e_indirecta_checkColumnConstraints">} #+ Check constraints on the "cttb00017.e_indirecta" column #+ #+ @param p_e_indirecta - DECIMAL(8,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00017_e_indirecta_checkColumnConstraints(p_e_indirecta) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_e_indirecta LIKE cttb00017.e_indirecta LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00017_e_indirecta_checkColumnConstraints {<BLOCK Name="fct.cttb00017_cod_prod_checkColumnConstraints">} #+ Check constraints on the "cttb00017.cod_prod" column #+ #+ @param p_cod_prod - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00017_cod_prod_checkColumnConstraints(p_cod_prod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_prod LIKE cttb00017.cod_prod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00017_cod_prod_checkColumnConstraints {<BLOCK Name="fct.cttb00017_cantidad_checkColumnConstraints">} #+ Check constraints on the "cttb00017.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00017_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE cttb00017.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00017_cantidad_checkColumnConstraints {<BLOCK Name="fct.cttb00017_codigo_bloque_checkColumnConstraints">} #+ Check constraints on the "cttb00017.codigo_bloque" column #+ #+ @param p_codigo_bloque - CHAR(25) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00017_codigo_bloque_checkColumnConstraints(p_codigo_bloque) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codigo_bloque LIKE cttb00017.codigo_bloque LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00017_codigo_bloque_checkColumnConstraints {<BLOCK Name="fct.cttb00017_costo_lab_checkColumnConstraints">} #+ Check constraints on the "cttb00017.costo_lab" column #+ #+ @param p_costo_lab - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00017_costo_lab_checkColumnConstraints(p_costo_lab) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_costo_lab LIKE cttb00017.costo_lab LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00017_costo_lab_checkColumnConstraints {<BLOCK Name="fct.cttb00017_costo_gasto_checkColumnConstraints">} #+ Check constraints on the "cttb00017.costo_gasto" column #+ #+ @param p_costo_gasto - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00017_costo_gasto_checkColumnConstraints(p_costo_gasto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_costo_gasto LIKE cttb00017.costo_gasto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00017_costo_gasto_checkColumnConstraints {<BLOCK Name="fct.cttb00017_turno_checkColumnConstraints">} #+ Check constraints on the "cttb00017.turno" column #+ #+ @param p_turno - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00017_turno_checkColumnConstraints(p_turno) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_turno LIKE cttb00017.turno LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00017_turno_checkColumnConstraints {<BLOCK Name="fct.cttb00017_status_t_checkColumnConstraints">} #+ Check constraints on the "cttb00017.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00017_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cttb00017.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00017_status_t_checkColumnConstraints {<BLOCK Name="fct.cttb00017_us_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00017.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00017_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cttb00017.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00017_us_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00017_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00017.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00017_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cttb00017.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00017_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00017_us_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00017.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00017_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cttb00017.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00017_us_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00017_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00017.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00017_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cttb00017.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00017_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00016_checkTableConstraints">} #+ Check constraints on the "cttb00016" table #+ #+ @param p_data - a row data LIKE cttb00016.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00016_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cttb00016.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cttb00016_referencia_checkColumnConstraints(p_data.referencia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00016_numero_checkColumnConstraints(p_data.numero) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00016_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00016_checkTableConstraints {<BLOCK Name="fct.cttb00016_referencia_checkColumnConstraints">} #+ Check constraints on the "cttb00016.referencia" column #+ #+ @param p_referencia - CHAR(25) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00016_referencia_checkColumnConstraints(p_referencia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_referencia LIKE cttb00016.referencia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00016_referencia_checkColumnConstraints {<BLOCK Name="fct.cttb00016_numero_checkColumnConstraints">} #+ Check constraints on the "cttb00016.numero" column #+ #+ @param p_numero - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00016_numero_checkColumnConstraints(p_numero) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_numero LIKE cttb00016.numero LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00016_numero_checkColumnConstraints {<BLOCK Name="fct.cttb00016_fecha_checkColumnConstraints">} #+ Check constraints on the "cttb00016.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00016_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE cttb00016.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00016_fecha_checkColumnConstraints {<BLOCK Name="fct.cttb00015_checkTableConstraints">} #+ Check constraints on the "cttb00015" table #+ #+ @param p_data - a row data LIKE cttb00015.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00015_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cttb00015.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cttb00015_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00015_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00015_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00015_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00015_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00015_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00015_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00015_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00015_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00015_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00015_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00015_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00015_checkTableConstraints {<BLOCK Name="fct.cttb00015_cod_n_checkColumnConstraints">} #+ Check constraints on the "cttb00015.cod_n" column #+ #+ @param p_cod_n - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00015_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE cttb00015.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00015_cod_n_checkColumnConstraints {<BLOCK Name="fct.cttb00015_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "cttb00015.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00015_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE cttb00015.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00015_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.cttb00015_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "cttb00015.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00015_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE cttb00015.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00015_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.cttb00015_cod_sec_checkColumnConstraints">} #+ Check constraints on the "cttb00015.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00015_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE cttb00015.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00015_cod_sec_checkColumnConstraints {<BLOCK Name="fct.cttb00015_mes_checkColumnConstraints">} #+ Check constraints on the "cttb00015.mes" column #+ #+ @param p_mes - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00015_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE cttb00015.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00015_mes_checkColumnConstraints {<BLOCK Name="fct.cttb00015_ano_checkColumnConstraints">} #+ Check constraints on the "cttb00015.ano" column #+ #+ @param p_ano - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00015_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE cttb00015.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00015_ano_checkColumnConstraints {<BLOCK Name="fct.cttb00015_cantidad_checkColumnConstraints">} #+ Check constraints on the "cttb00015.cantidad" column #+ #+ @param p_cantidad - DECIMAL(15,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00015_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE cttb00015.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00015_cantidad_checkColumnConstraints {<BLOCK Name="fct.cttb00015_status_t_checkColumnConstraints">} #+ Check constraints on the "cttb00015.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00015_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cttb00015.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00015_status_t_checkColumnConstraints {<BLOCK Name="fct.cttb00015_us_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00015.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00015_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cttb00015.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00015_us_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00015_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00015.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00015_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cttb00015.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00015_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00015_us_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00015.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00015_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cttb00015.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00015_us_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00015_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00015.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00015_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cttb00015.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00015_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00014_checkTableConstraints">} #+ Check constraints on the "cttb00014" table #+ #+ @param p_data - a row data LIKE cttb00014.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00014_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cttb00014.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cttb00014_cod_prod_checkColumnConstraints(p_data.cod_prod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00014_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00014_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00014_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00014_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00014_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00014_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00014_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00014_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00014_checkTableConstraints {<BLOCK Name="fct.cttb00014_cod_prod_checkColumnConstraints">} #+ Check constraints on the "cttb00014.cod_prod" column #+ #+ @param p_cod_prod - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00014_cod_prod_checkColumnConstraints(p_cod_prod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_prod LIKE cttb00014.cod_prod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00014_cod_prod_checkColumnConstraints {<BLOCK Name="fct.cttb00014_ano_checkColumnConstraints">} #+ Check constraints on the "cttb00014.ano" column #+ #+ @param p_ano - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00014_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE cttb00014.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00014_ano_checkColumnConstraints {<BLOCK Name="fct.cttb00014_mes_checkColumnConstraints">} #+ Check constraints on the "cttb00014.mes" column #+ #+ @param p_mes - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00014_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE cttb00014.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00014_mes_checkColumnConstraints {<BLOCK Name="fct.cttb00014_cantidad_checkColumnConstraints">} #+ Check constraints on the "cttb00014.cantidad" column #+ #+ @param p_cantidad - DECIMAL(15,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00014_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE cttb00014.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00014_cantidad_checkColumnConstraints {<BLOCK Name="fct.cttb00014_status_t_checkColumnConstraints">} #+ Check constraints on the "cttb00014.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00014_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cttb00014.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00014_status_t_checkColumnConstraints {<BLOCK Name="fct.cttb00014_us_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00014.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00014_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cttb00014.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00014_us_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00014_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00014.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00014_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cttb00014.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00014_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00014_us_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00014.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00014_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cttb00014.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00014_us_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00014_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00014.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00014_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cttb00014.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00014_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00013_checkTableConstraints">} #+ Check constraints on the "cttb00013" table #+ #+ @param p_data - a row data LIKE cttb00013.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00013_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cttb00013.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cttb00013_fecha_lq_checkColumnConstraints(p_data.fecha_lq) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00013_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00013_tipo_lq_checkColumnConstraints(p_data.tipo_lq) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00013_num_oc_checkColumnConstraints(p_data.num_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00013_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00013_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00013_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00013_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00013_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00013_costo_lq_checkColumnConstraints(p_data.costo_lq) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00013_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00013_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00013_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00013_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00013_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00013_tipo_orden_checkColumnConstraints(p_data.tipo_orden) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00013_checkTableConstraints {<BLOCK Name="fct.cttb00013_fecha_lq_checkColumnConstraints">} #+ Check constraints on the "cttb00013.fecha_lq" column #+ #+ @param p_fecha_lq - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00013_fecha_lq_checkColumnConstraints(p_fecha_lq) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_lq LIKE cttb00013.fecha_lq LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00013_fecha_lq_checkColumnConstraints {<BLOCK Name="fct.cttb00013_fecha_checkColumnConstraints">} #+ Check constraints on the "cttb00013.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00013_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE cttb00013.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00013_fecha_checkColumnConstraints {<BLOCK Name="fct.cttb00013_tipo_lq_checkColumnConstraints">} #+ Check constraints on the "cttb00013.tipo_lq" column #+ #+ @param p_tipo_lq - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00013_tipo_lq_checkColumnConstraints(p_tipo_lq) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_lq LIKE cttb00013.tipo_lq LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00013_tipo_lq_checkColumnConstraints {<BLOCK Name="fct.cttb00013_num_oc_checkColumnConstraints">} #+ Check constraints on the "cttb00013.num_oc" column #+ #+ @param p_num_oc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00013_num_oc_checkColumnConstraints(p_num_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_oc LIKE cttb00013.num_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00013_num_oc_checkColumnConstraints {<BLOCK Name="fct.cttb00013_cod_n_checkColumnConstraints">} #+ Check constraints on the "cttb00013.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00013_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE cttb00013.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00013_cod_n_checkColumnConstraints {<BLOCK Name="fct.cttb00013_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "cttb00013.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00013_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE cttb00013.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00013_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.cttb00013_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "cttb00013.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00013_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE cttb00013.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00013_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.cttb00013_cod_sec_checkColumnConstraints">} #+ Check constraints on the "cttb00013.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00013_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE cttb00013.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00013_cod_sec_checkColumnConstraints {<BLOCK Name="fct.cttb00013_cantidad_checkColumnConstraints">} #+ Check constraints on the "cttb00013.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00013_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE cttb00013.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00013_cantidad_checkColumnConstraints {<BLOCK Name="fct.cttb00013_costo_lq_checkColumnConstraints">} #+ Check constraints on the "cttb00013.costo_lq" column #+ #+ @param p_costo_lq - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00013_costo_lq_checkColumnConstraints(p_costo_lq) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_costo_lq LIKE cttb00013.costo_lq LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00013_costo_lq_checkColumnConstraints {<BLOCK Name="fct.cttb00013_status_t_checkColumnConstraints">} #+ Check constraints on the "cttb00013.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00013_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cttb00013.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00013_status_t_checkColumnConstraints {<BLOCK Name="fct.cttb00013_us_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00013.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00013_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cttb00013.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00013_us_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00013_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00013.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00013_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cttb00013.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00013_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00013_us_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00013.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00013_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cttb00013.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00013_us_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00013_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00013.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00013_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cttb00013.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00013_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00013_tipo_orden_checkColumnConstraints">} #+ Check constraints on the "cttb00013.tipo_orden" column #+ #+ @param p_tipo_orden - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00013_tipo_orden_checkColumnConstraints(p_tipo_orden) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_orden LIKE cttb00013.tipo_orden LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00013_tipo_orden_checkColumnConstraints {<BLOCK Name="fct.cttb00012_checkTableConstraints">} #+ Check constraints on the "cttb00012" table #+ #+ @param p_data - a row data LIKE cttb00012.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00012_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cttb00012.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cttb00012_documento_checkColumnConstraints(p_data.documento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00012_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00012_codigo_bloque_checkColumnConstraints(p_data.codigo_bloque) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00012_cod_prod_checkColumnConstraints(p_data.cod_prod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00012_ancho1_checkColumnConstraints(p_data.ancho1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00012_largo1_checkColumnConstraints(p_data.largo1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00012_espesor1_checkColumnConstraints(p_data.espesor1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00012_medida1_checkColumnConstraints(p_data.medida1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00012_ancho2_checkColumnConstraints(p_data.ancho2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00012_largo2_checkColumnConstraints(p_data.largo2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00012_espesor2_checkColumnConstraints(p_data.espesor2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00012_medida2_checkColumnConstraints(p_data.medida2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00012_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00012_checkTableConstraints {<BLOCK Name="fct.cttb00012_documento_checkColumnConstraints">} #+ Check constraints on the "cttb00012.documento" column #+ #+ @param p_documento - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00012_documento_checkColumnConstraints(p_documento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_documento LIKE cttb00012.documento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00012_documento_checkColumnConstraints {<BLOCK Name="fct.cttb00012_fecha_checkColumnConstraints">} #+ Check constraints on the "cttb00012.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00012_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE cttb00012.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00012_fecha_checkColumnConstraints {<BLOCK Name="fct.cttb00012_codigo_bloque_checkColumnConstraints">} #+ Check constraints on the "cttb00012.codigo_bloque" column #+ #+ @param p_codigo_bloque - CHAR(15) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00012_codigo_bloque_checkColumnConstraints(p_codigo_bloque) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codigo_bloque LIKE cttb00012.codigo_bloque LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00012_codigo_bloque_checkColumnConstraints {<BLOCK Name="fct.cttb00012_cod_prod_checkColumnConstraints">} #+ Check constraints on the "cttb00012.cod_prod" column #+ #+ @param p_cod_prod - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00012_cod_prod_checkColumnConstraints(p_cod_prod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_prod LIKE cttb00012.cod_prod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00012_cod_prod_checkColumnConstraints {<BLOCK Name="fct.cttb00012_ancho1_checkColumnConstraints">} #+ Check constraints on the "cttb00012.ancho1" column #+ #+ @param p_ancho1 - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00012_ancho1_checkColumnConstraints(p_ancho1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ancho1 LIKE cttb00012.ancho1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00012_ancho1_checkColumnConstraints {<BLOCK Name="fct.cttb00012_largo1_checkColumnConstraints">} #+ Check constraints on the "cttb00012.largo1" column #+ #+ @param p_largo1 - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00012_largo1_checkColumnConstraints(p_largo1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_largo1 LIKE cttb00012.largo1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00012_largo1_checkColumnConstraints {<BLOCK Name="fct.cttb00012_espesor1_checkColumnConstraints">} #+ Check constraints on the "cttb00012.espesor1" column #+ #+ @param p_espesor1 - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00012_espesor1_checkColumnConstraints(p_espesor1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_espesor1 LIKE cttb00012.espesor1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00012_espesor1_checkColumnConstraints {<BLOCK Name="fct.cttb00012_medida1_checkColumnConstraints">} #+ Check constraints on the "cttb00012.medida1" column #+ #+ @param p_medida1 - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00012_medida1_checkColumnConstraints(p_medida1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_medida1 LIKE cttb00012.medida1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00012_medida1_checkColumnConstraints {<BLOCK Name="fct.cttb00012_ancho2_checkColumnConstraints">} #+ Check constraints on the "cttb00012.ancho2" column #+ #+ @param p_ancho2 - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00012_ancho2_checkColumnConstraints(p_ancho2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ancho2 LIKE cttb00012.ancho2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00012_ancho2_checkColumnConstraints {<BLOCK Name="fct.cttb00012_largo2_checkColumnConstraints">} #+ Check constraints on the "cttb00012.largo2" column #+ #+ @param p_largo2 - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00012_largo2_checkColumnConstraints(p_largo2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_largo2 LIKE cttb00012.largo2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00012_largo2_checkColumnConstraints {<BLOCK Name="fct.cttb00012_espesor2_checkColumnConstraints">} #+ Check constraints on the "cttb00012.espesor2" column #+ #+ @param p_espesor2 - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00012_espesor2_checkColumnConstraints(p_espesor2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_espesor2 LIKE cttb00012.espesor2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00012_espesor2_checkColumnConstraints {<BLOCK Name="fct.cttb00012_medida2_checkColumnConstraints">} #+ Check constraints on the "cttb00012.medida2" column #+ #+ @param p_medida2 - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00012_medida2_checkColumnConstraints(p_medida2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_medida2 LIKE cttb00012.medida2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00012_medida2_checkColumnConstraints {<BLOCK Name="fct.cttb00012_cantidad_checkColumnConstraints">} #+ Check constraints on the "cttb00012.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00012_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE cttb00012.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00012_cantidad_checkColumnConstraints {<BLOCK Name="fct.cttb00011_checkTableConstraints">} #+ Check constraints on the "cttb00011" table #+ #+ @param p_data - a row data LIKE cttb00011.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00011_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cttb00011.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cttb00011_cod_prod_checkColumnConstraints(p_data.cod_prod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00011_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00011_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00011_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00011_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00011_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00011_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00011_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00011_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00011_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00011_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00011_checkTableConstraints {<BLOCK Name="fct.cttb00011_cod_prod_checkColumnConstraints">} #+ Check constraints on the "cttb00011.cod_prod" column #+ #+ @param p_cod_prod - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00011_cod_prod_checkColumnConstraints(p_cod_prod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_prod LIKE cttb00011.cod_prod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00011_cod_prod_checkColumnConstraints {<BLOCK Name="fct.cttb00011_cod_n_checkColumnConstraints">} #+ Check constraints on the "cttb00011.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00011_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE cttb00011.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00011_cod_n_checkColumnConstraints {<BLOCK Name="fct.cttb00011_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "cttb00011.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00011_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE cttb00011.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00011_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.cttb00011_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "cttb00011.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00011_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE cttb00011.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00011_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.cttb00011_cod_sec_checkColumnConstraints">} #+ Check constraints on the "cttb00011.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00011_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE cttb00011.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00011_cod_sec_checkColumnConstraints {<BLOCK Name="fct.cttb00011_cantidad_checkColumnConstraints">} #+ Check constraints on the "cttb00011.cantidad" column #+ #+ @param p_cantidad - DECIMAL(10,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00011_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE cttb00011.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00011_cantidad_checkColumnConstraints {<BLOCK Name="fct.cttb00011_status_t_checkColumnConstraints">} #+ Check constraints on the "cttb00011.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00011_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cttb00011.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00011_status_t_checkColumnConstraints {<BLOCK Name="fct.cttb00011_us_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00011.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00011_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cttb00011.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00011_us_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00011_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00011.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00011_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cttb00011.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00011_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00011_us_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00011.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00011_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cttb00011.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00011_us_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00011_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00011.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00011_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cttb00011.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00011_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00010_checkTableConstraints">} #+ Check constraints on the "cttb00010" table #+ #+ @param p_data - a row data LIKE cttb00010.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00010_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cttb00010.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cttb00010_ult_num_checkColumnConstraints(p_data.ult_num) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00010_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00010_observacion_checkColumnConstraints(p_data.observacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00010_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00010_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00010_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00010_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00010_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00010_checkTableConstraints {<BLOCK Name="fct.cttb00010_ult_num_checkColumnConstraints">} #+ Check constraints on the "cttb00010.ult_num" column #+ #+ @param p_ult_num - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00010_ult_num_checkColumnConstraints(p_ult_num) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ult_num LIKE cttb00010.ult_num LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00010_ult_num_checkColumnConstraints {<BLOCK Name="fct.cttb00010_departamento_checkColumnConstraints">} #+ Check constraints on the "cttb00010.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00010_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE cttb00010.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00010_departamento_checkColumnConstraints {<BLOCK Name="fct.cttb00010_observacion_checkColumnConstraints">} #+ Check constraints on the "cttb00010.observacion" column #+ #+ @param p_observacion - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00010_observacion_checkColumnConstraints(p_observacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_observacion LIKE cttb00010.observacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00010_observacion_checkColumnConstraints {<BLOCK Name="fct.cttb00010_fecha_checkColumnConstraints">} #+ Check constraints on the "cttb00010.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00010_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE cttb00010.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00010_fecha_checkColumnConstraints {<BLOCK Name="fct.cttb00010_us_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00010.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00010_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cttb00010.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00010_us_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00010_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00010.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00010_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cttb00010.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00010_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00010_us_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00010.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00010_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cttb00010.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00010_us_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00010_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00010.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00010_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cttb00010.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00010_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00009_checkTableConstraints">} #+ Check constraints on the "cttb00009" table #+ #+ @param p_data - a row data LIKE cttb00009.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00009_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cttb00009.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cttb00009_formula_checkColumnConstraints(p_data.formula) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00009_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00009_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00009_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00009_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00009_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00009_cod_prod_checkColumnConstraints(p_data.cod_prod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00009_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00009_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00009_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00009_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00009_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00009_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00009_checkTableConstraints {<BLOCK Name="fct.cttb00009_formula_checkColumnConstraints">} #+ Check constraints on the "cttb00009.formula" column #+ #+ @param p_formula - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00009_formula_checkColumnConstraints(p_formula) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_formula LIKE cttb00009.formula LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_formula IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- formula: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00009_formula_checkColumnConstraints {<BLOCK Name="fct.cttb00009_descripcion_checkColumnConstraints">} #+ Check constraints on the "cttb00009.descripcion" column #+ #+ @param p_descripcion - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00009_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE cttb00009.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00009_descripcion_checkColumnConstraints {<BLOCK Name="fct.cttb00009_cod_n_checkColumnConstraints">} #+ Check constraints on the "cttb00009.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00009_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE cttb00009.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00009_cod_n_checkColumnConstraints {<BLOCK Name="fct.cttb00009_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "cttb00009.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00009_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE cttb00009.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00009_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.cttb00009_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "cttb00009.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00009_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE cttb00009.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00009_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.cttb00009_cod_sec_checkColumnConstraints">} #+ Check constraints on the "cttb00009.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00009_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE cttb00009.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00009_cod_sec_checkColumnConstraints {<BLOCK Name="fct.cttb00009_cod_prod_checkColumnConstraints">} #+ Check constraints on the "cttb00009.cod_prod" column #+ #+ @param p_cod_prod - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00009_cod_prod_checkColumnConstraints(p_cod_prod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_prod LIKE cttb00009.cod_prod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00009_cod_prod_checkColumnConstraints {<BLOCK Name="fct.cttb00009_cantidad_checkColumnConstraints">} #+ Check constraints on the "cttb00009.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00009_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE cttb00009.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00009_cantidad_checkColumnConstraints {<BLOCK Name="fct.cttb00009_status_t_checkColumnConstraints">} #+ Check constraints on the "cttb00009.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00009_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cttb00009.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00009_status_t_checkColumnConstraints {<BLOCK Name="fct.cttb00009_us_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00009.us_crea" column #+ #+ @param p_us_crea - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00009_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cttb00009.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00009_us_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00009_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00009.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00009_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cttb00009.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00009_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00009_us_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00009.us_mod" column #+ #+ @param p_us_mod - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00009_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cttb00009.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00009_us_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00009_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00009.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00009_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cttb00009.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00009_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00008_checkTableConstraints">} #+ Check constraints on the "cttb00008" table #+ #+ @param p_data - a row data LIKE cttb00008.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00008_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cttb00008.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cttb00008_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00008_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00008_cod_prod_checkColumnConstraints(p_data.cod_prod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00008_fact_hombre_checkColumnConstraints(p_data.fact_hombre) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00008_valor_labor_checkColumnConstraints(p_data.valor_labor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00008_hora_hombre_checkColumnConstraints(p_data.hora_hombre) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00008_valor_real_checkColumnConstraints(p_data.valor_real) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00008_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00008_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00008_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00008_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00008_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00008_checkTableConstraints {<BLOCK Name="fct.cttb00008_ano_checkColumnConstraints">} #+ Check constraints on the "cttb00008.ano" column #+ #+ @param p_ano - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00008_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE cttb00008.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00008_ano_checkColumnConstraints {<BLOCK Name="fct.cttb00008_departamento_checkColumnConstraints">} #+ Check constraints on the "cttb00008.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00008_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE cttb00008.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00008_departamento_checkColumnConstraints {<BLOCK Name="fct.cttb00008_cod_prod_checkColumnConstraints">} #+ Check constraints on the "cttb00008.cod_prod" column #+ #+ @param p_cod_prod - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00008_cod_prod_checkColumnConstraints(p_cod_prod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_prod LIKE cttb00008.cod_prod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00008_cod_prod_checkColumnConstraints {<BLOCK Name="fct.cttb00008_fact_hombre_checkColumnConstraints">} #+ Check constraints on the "cttb00008.fact_hombre" column #+ #+ @param p_fact_hombre - DECIMAL(13,8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00008_fact_hombre_checkColumnConstraints(p_fact_hombre) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fact_hombre LIKE cttb00008.fact_hombre LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00008_fact_hombre_checkColumnConstraints {<BLOCK Name="fct.cttb00008_valor_labor_checkColumnConstraints">} #+ Check constraints on the "cttb00008.valor_labor" column #+ #+ @param p_valor_labor - DECIMAL(13,8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00008_valor_labor_checkColumnConstraints(p_valor_labor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor_labor LIKE cttb00008.valor_labor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00008_valor_labor_checkColumnConstraints {<BLOCK Name="fct.cttb00008_hora_hombre_checkColumnConstraints">} #+ Check constraints on the "cttb00008.hora_hombre" column #+ #+ @param p_hora_hombre - DECIMAL(13,8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00008_hora_hombre_checkColumnConstraints(p_hora_hombre) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_hora_hombre LIKE cttb00008.hora_hombre LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00008_hora_hombre_checkColumnConstraints {<BLOCK Name="fct.cttb00008_valor_real_checkColumnConstraints">} #+ Check constraints on the "cttb00008.valor_real" column #+ #+ @param p_valor_real - DECIMAL(13,8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00008_valor_real_checkColumnConstraints(p_valor_real) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor_real LIKE cttb00008.valor_real LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00008_valor_real_checkColumnConstraints {<BLOCK Name="fct.cttb00008_status_t_checkColumnConstraints">} #+ Check constraints on the "cttb00008.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00008_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cttb00008.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00008_status_t_checkColumnConstraints {<BLOCK Name="fct.cttb00008_us_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00008.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00008_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cttb00008.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00008_us_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00008_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00008.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00008_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cttb00008.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00008_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00008_us_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00008.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00008_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cttb00008.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00008_us_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00008_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00008.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00008_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cttb00008.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00008_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00007_checkTableConstraints">} #+ Check constraints on the "cttb00007" table #+ #+ @param p_data - a row data LIKE cttb00007.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00007_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cttb00007.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cttb00007_codigo_unidad_checkColumnConstraints(p_data.codigo_unidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00007_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00007_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00007_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00007_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00007_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00007_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00007_checkTableConstraints {<BLOCK Name="fct.cttb00007_codigo_unidad_checkColumnConstraints">} #+ Check constraints on the "cttb00007.codigo_unidad" column #+ #+ @param p_codigo_unidad - CHAR(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00007_codigo_unidad_checkColumnConstraints(p_codigo_unidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codigo_unidad LIKE cttb00007.codigo_unidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_codigo_unidad IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- codigo_unidad: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00007_codigo_unidad_checkColumnConstraints {<BLOCK Name="fct.cttb00007_descripcion_checkColumnConstraints">} #+ Check constraints on the "cttb00007.descripcion" column #+ #+ @param p_descripcion - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00007_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE cttb00007.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00007_descripcion_checkColumnConstraints {<BLOCK Name="fct.cttb00007_status_t_checkColumnConstraints">} #+ Check constraints on the "cttb00007.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00007_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cttb00007.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00007_status_t_checkColumnConstraints {<BLOCK Name="fct.cttb00007_us_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00007.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00007_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cttb00007.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00007_us_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00007_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00007.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00007_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cttb00007.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00007_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00007_us_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00007.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00007_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cttb00007.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00007_us_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00007_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00007.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00007_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cttb00007.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00007_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00006_checkTableConstraints">} #+ Check constraints on the "cttb00006" table #+ #+ @param p_data - a row data LIKE cttb00006.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00006_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cttb00006.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cttb00006_num_oc_checkColumnConstraints(p_data.num_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00006_tipo_checkColumnConstraints(p_data.tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00006_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00006_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00006_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00006_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00006_cod_prod_checkColumnConstraints(p_data.cod_prod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00006_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00006_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00006_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00006_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00006_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00006_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00006_checkTableConstraints {<BLOCK Name="fct.cttb00006_num_oc_checkColumnConstraints">} #+ Check constraints on the "cttb00006.num_oc" column #+ #+ @param p_num_oc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00006_num_oc_checkColumnConstraints(p_num_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_oc LIKE cttb00006.num_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00006_num_oc_checkColumnConstraints {<BLOCK Name="fct.cttb00006_tipo_checkColumnConstraints">} #+ Check constraints on the "cttb00006.tipo" column #+ #+ @param p_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00006_tipo_checkColumnConstraints(p_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo LIKE cttb00006.tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00006_tipo_checkColumnConstraints {<BLOCK Name="fct.cttb00006_cod_n_checkColumnConstraints">} #+ Check constraints on the "cttb00006.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00006_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE cttb00006.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00006_cod_n_checkColumnConstraints {<BLOCK Name="fct.cttb00006_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "cttb00006.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00006_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE cttb00006.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00006_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.cttb00006_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "cttb00006.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00006_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE cttb00006.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00006_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.cttb00006_cod_sec_checkColumnConstraints">} #+ Check constraints on the "cttb00006.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00006_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE cttb00006.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00006_cod_sec_checkColumnConstraints {<BLOCK Name="fct.cttb00006_cod_prod_checkColumnConstraints">} #+ Check constraints on the "cttb00006.cod_prod" column #+ #+ @param p_cod_prod - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00006_cod_prod_checkColumnConstraints(p_cod_prod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_prod LIKE cttb00006.cod_prod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00006_cod_prod_checkColumnConstraints {<BLOCK Name="fct.cttb00006_cantidad_checkColumnConstraints">} #+ Check constraints on the "cttb00006.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00006_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE cttb00006.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00006_cantidad_checkColumnConstraints {<BLOCK Name="fct.cttb00006_status_t_checkColumnConstraints">} #+ Check constraints on the "cttb00006.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00006_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cttb00006.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00006_status_t_checkColumnConstraints {<BLOCK Name="fct.cttb00006_us_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00006.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00006_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cttb00006.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00006_us_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00006_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00006.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00006_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cttb00006.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00006_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00006_us_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00006.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00006_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cttb00006.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00006_us_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00006_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00006.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00006_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cttb00006.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00006_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00004_checkTableConstraints">} #+ Check constraints on the "cttb00004" table #+ #+ @param p_data - a row data LIKE cttb00004.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00004_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cttb00004.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cttb00004_fecha_inicio_costo_checkColumnConstraints(p_data.fecha_inicio_costo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00004_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00004_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00004_checkTableConstraints {<BLOCK Name="fct.cttb00004_fecha_inicio_costo_checkColumnConstraints">} #+ Check constraints on the "cttb00004.fecha_inicio_costo" column #+ #+ @param p_fecha_inicio_costo - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00004_fecha_inicio_costo_checkColumnConstraints(p_fecha_inicio_costo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_inicio_costo LIKE cttb00004.fecha_inicio_costo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00004_fecha_inicio_costo_checkColumnConstraints {<BLOCK Name="fct.cttb00004_ano_checkColumnConstraints">} #+ Check constraints on the "cttb00004.ano" column #+ #+ @param p_ano - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00004_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE cttb00004.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00004_ano_checkColumnConstraints {<BLOCK Name="fct.cttb00004_mes_checkColumnConstraints">} #+ Check constraints on the "cttb00004.mes" column #+ #+ @param p_mes - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00004_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE cttb00004.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00004_mes_checkColumnConstraints {<BLOCK Name="fct.cttb00003_checkTableConstraints">} #+ Check constraints on the "cttb00003" table #+ #+ @param p_data - a row data LIKE cttb00003.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00003_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cttb00003.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cttb00003_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00003_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00003_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00003_emp_no_checkColumnConstraints(p_data.emp_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00003_cod_mq_checkColumnConstraints(p_data.cod_mq) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00003_detalle_checkColumnConstraints(p_data.detalle) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00003_h_directa_checkColumnConstraints(p_data.h_directa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00003_h_indirecta_checkColumnConstraints(p_data.h_indirecta) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00003_e_directa_checkColumnConstraints(p_data.e_directa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00003_e_indirecta_checkColumnConstraints(p_data.e_indirecta) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00003_cod_prod_checkColumnConstraints(p_data.cod_prod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00003_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00003_codigo_bloque_checkColumnConstraints(p_data.codigo_bloque) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00003_costo_lab_checkColumnConstraints(p_data.costo_lab) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00003_costo_gasto_checkColumnConstraints(p_data.costo_gasto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00003_turno_checkColumnConstraints(p_data.turno) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00003_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00003_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00003_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00003_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00003_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00003_checkTableConstraints {<BLOCK Name="fct.cttb00003_num_doc_checkColumnConstraints">} #+ Check constraints on the "cttb00003.num_doc" column #+ #+ @param p_num_doc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00003_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE cttb00003.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_num_doc IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- num_doc: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00003_num_doc_checkColumnConstraints {<BLOCK Name="fct.cttb00003_fecha_checkColumnConstraints">} #+ Check constraints on the "cttb00003.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00003_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE cttb00003.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_fecha IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- fecha: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00003_fecha_checkColumnConstraints {<BLOCK Name="fct.cttb00003_departamento_checkColumnConstraints">} #+ Check constraints on the "cttb00003.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00003_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE cttb00003.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_departamento IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- departamento: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00003_departamento_checkColumnConstraints {<BLOCK Name="fct.cttb00003_emp_no_checkColumnConstraints">} #+ Check constraints on the "cttb00003.emp_no" column #+ #+ @param p_emp_no - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00003_emp_no_checkColumnConstraints(p_emp_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_emp_no LIKE cttb00003.emp_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00003_emp_no_checkColumnConstraints {<BLOCK Name="fct.cttb00003_cod_mq_checkColumnConstraints">} #+ Check constraints on the "cttb00003.cod_mq" column #+ #+ @param p_cod_mq - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00003_cod_mq_checkColumnConstraints(p_cod_mq) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mq LIKE cttb00003.cod_mq LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00003_cod_mq_checkColumnConstraints {<BLOCK Name="fct.cttb00003_detalle_checkColumnConstraints">} #+ Check constraints on the "cttb00003.detalle" column #+ #+ @param p_detalle - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00003_detalle_checkColumnConstraints(p_detalle) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_detalle LIKE cttb00003.detalle LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00003_detalle_checkColumnConstraints {<BLOCK Name="fct.cttb00003_h_directa_checkColumnConstraints">} #+ Check constraints on the "cttb00003.h_directa" column #+ #+ @param p_h_directa - DECIMAL(8,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00003_h_directa_checkColumnConstraints(p_h_directa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_h_directa LIKE cttb00003.h_directa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00003_h_directa_checkColumnConstraints {<BLOCK Name="fct.cttb00003_h_indirecta_checkColumnConstraints">} #+ Check constraints on the "cttb00003.h_indirecta" column #+ #+ @param p_h_indirecta - DECIMAL(8,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00003_h_indirecta_checkColumnConstraints(p_h_indirecta) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_h_indirecta LIKE cttb00003.h_indirecta LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00003_h_indirecta_checkColumnConstraints {<BLOCK Name="fct.cttb00003_e_directa_checkColumnConstraints">} #+ Check constraints on the "cttb00003.e_directa" column #+ #+ @param p_e_directa - DECIMAL(8,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00003_e_directa_checkColumnConstraints(p_e_directa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_e_directa LIKE cttb00003.e_directa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00003_e_directa_checkColumnConstraints {<BLOCK Name="fct.cttb00003_e_indirecta_checkColumnConstraints">} #+ Check constraints on the "cttb00003.e_indirecta" column #+ #+ @param p_e_indirecta - DECIMAL(8,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00003_e_indirecta_checkColumnConstraints(p_e_indirecta) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_e_indirecta LIKE cttb00003.e_indirecta LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00003_e_indirecta_checkColumnConstraints {<BLOCK Name="fct.cttb00003_cod_prod_checkColumnConstraints">} #+ Check constraints on the "cttb00003.cod_prod" column #+ #+ @param p_cod_prod - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00003_cod_prod_checkColumnConstraints(p_cod_prod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_prod LIKE cttb00003.cod_prod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00003_cod_prod_checkColumnConstraints {<BLOCK Name="fct.cttb00003_cantidad_checkColumnConstraints">} #+ Check constraints on the "cttb00003.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00003_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE cttb00003.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00003_cantidad_checkColumnConstraints {<BLOCK Name="fct.cttb00003_codigo_bloque_checkColumnConstraints">} #+ Check constraints on the "cttb00003.codigo_bloque" column #+ #+ @param p_codigo_bloque - CHAR(25) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00003_codigo_bloque_checkColumnConstraints(p_codigo_bloque) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codigo_bloque LIKE cttb00003.codigo_bloque LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00003_codigo_bloque_checkColumnConstraints {<BLOCK Name="fct.cttb00003_costo_lab_checkColumnConstraints">} #+ Check constraints on the "cttb00003.costo_lab" column #+ #+ @param p_costo_lab - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00003_costo_lab_checkColumnConstraints(p_costo_lab) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_costo_lab LIKE cttb00003.costo_lab LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00003_costo_lab_checkColumnConstraints {<BLOCK Name="fct.cttb00003_costo_gasto_checkColumnConstraints">} #+ Check constraints on the "cttb00003.costo_gasto" column #+ #+ @param p_costo_gasto - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00003_costo_gasto_checkColumnConstraints(p_costo_gasto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_costo_gasto LIKE cttb00003.costo_gasto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00003_costo_gasto_checkColumnConstraints {<BLOCK Name="fct.cttb00003_turno_checkColumnConstraints">} #+ Check constraints on the "cttb00003.turno" column #+ #+ @param p_turno - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00003_turno_checkColumnConstraints(p_turno) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_turno LIKE cttb00003.turno LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00003_turno_checkColumnConstraints {<BLOCK Name="fct.cttb00003_status_t_checkColumnConstraints">} #+ Check constraints on the "cttb00003.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00003_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cttb00003.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00003_status_t_checkColumnConstraints {<BLOCK Name="fct.cttb00003_us_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00003.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00003_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cttb00003.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00003_us_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00003_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00003.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00003_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cttb00003.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00003_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00003_us_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00003.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00003_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cttb00003.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00003_us_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00003_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00003.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00003_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cttb00003.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00003_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00002_checkTableConstraints">} #+ Check constraints on the "cttb00002" table #+ #+ @param p_data - a row data LIKE cttb00002.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00002_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cttb00002.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cttb00002_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00002_venta_checkColumnConstraints(p_data.venta) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00002_nomenclatura_checkColumnConstraints(p_data.nomenclatura) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00002_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00002_costo_checkColumnConstraints(p_data.costo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00002_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00002_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00002_checkTableConstraints {<BLOCK Name="fct.cttb00002_ano_checkColumnConstraints">} #+ Check constraints on the "cttb00002.ano" column #+ #+ @param p_ano - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00002_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE cttb00002.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00002_ano_checkColumnConstraints {<BLOCK Name="fct.cttb00002_venta_checkColumnConstraints">} #+ Check constraints on the "cttb00002.venta" column #+ #+ @param p_venta - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00002_venta_checkColumnConstraints(p_venta) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_venta LIKE cttb00002.venta LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00002_venta_checkColumnConstraints {<BLOCK Name="fct.cttb00002_nomenclatura_checkColumnConstraints">} #+ Check constraints on the "cttb00002.nomenclatura" column #+ #+ @param p_nomenclatura - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00002_nomenclatura_checkColumnConstraints(p_nomenclatura) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nomenclatura LIKE cttb00002.nomenclatura LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00002_nomenclatura_checkColumnConstraints {<BLOCK Name="fct.cttb00002_mes_checkColumnConstraints">} #+ Check constraints on the "cttb00002.mes" column #+ #+ @param p_mes - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00002_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE cttb00002.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00002_mes_checkColumnConstraints {<BLOCK Name="fct.cttb00002_costo_checkColumnConstraints">} #+ Check constraints on the "cttb00002.costo" column #+ #+ @param p_costo - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00002_costo_checkColumnConstraints(p_costo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_costo LIKE cttb00002.costo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00002_costo_checkColumnConstraints {<BLOCK Name="fct.cttb00002_us_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00002.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00002_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cttb00002.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00002_us_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00002_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00002.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00002_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cttb00002.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00002_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00001_checkTableConstraints">} #+ Check constraints on the "cttb00001" table #+ #+ @param p_data - a row data LIKE cttb00001.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00001_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cttb00001.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cttb00001_cod_prod_checkColumnConstraints(p_data.cod_prod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00001_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00001_unidad_med_checkColumnConstraints(p_data.unidad_med) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00001_nomenclatura_checkColumnConstraints(p_data.nomenclatura) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00001_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00001_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00001_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00001_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00001_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00001_cod_cia_checkColumnConstraints(p_data.cod_cia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cttb00001_pk_cttb00001_checkUniqueConstraint(p_forUpdate, p_data.cod_prod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00001_checkTableConstraints {<BLOCK Name="fct.cttb00001_pk_cttb00001_checkUniqueConstraint">} #+ Check the primary key uniqueness constraint on the "cttb00001" #+ #+ @param p_key - Primary Key #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00001_pk_cttb00001_checkUniqueConstraint(p_forUpdate, p_key) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_forUpdate BOOLEAN DEFINE p_key RECORD cttb00001_cod_prod LIKE cttb00001.cod_prod END RECORD DEFINE l_key RECORD cttb00001_cod_prod LIKE cttb00001.cod_prod 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 cttb00001.cod_prod = ? " let l_sqlQuery = "SELECT COUNT(*), cod_prod FROM cttb00001 ", l_where, " GROUP BY cod_prod" PREPARE cur_cttb00001_pk_cttb00001_checkUniqueConstraint FROM l_sqlQuery EXECUTE cur_cttb00001_pk_cttb00001_checkUniqueConstraint INTO l_count, l_key.* USING p_key.* FREE cur_cttb00001_pk_cttb00001_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- cod_prod: " || ERROR_BAM_00002) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00001_pk_cttb00001_checkUniqueConstraint {<BLOCK Name="fct.cttb00001_cod_prod_checkColumnConstraints">} #+ Check constraints on the "cttb00001.cod_prod" column #+ #+ @param p_cod_prod - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00001_cod_prod_checkColumnConstraints(p_cod_prod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_prod LIKE cttb00001.cod_prod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_prod IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_prod: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00001_cod_prod_checkColumnConstraints {<BLOCK Name="fct.cttb00001_descripcion_checkColumnConstraints">} #+ Check constraints on the "cttb00001.descripcion" column #+ #+ @param p_descripcion - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00001_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE cttb00001.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00001_descripcion_checkColumnConstraints {<BLOCK Name="fct.cttb00001_unidad_med_checkColumnConstraints">} #+ Check constraints on the "cttb00001.unidad_med" column #+ #+ @param p_unidad_med - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00001_unidad_med_checkColumnConstraints(p_unidad_med) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_unidad_med LIKE cttb00001.unidad_med LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00001_unidad_med_checkColumnConstraints {<BLOCK Name="fct.cttb00001_nomenclatura_checkColumnConstraints">} #+ Check constraints on the "cttb00001.nomenclatura" column #+ #+ @param p_nomenclatura - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00001_nomenclatura_checkColumnConstraints(p_nomenclatura) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nomenclatura LIKE cttb00001.nomenclatura LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00001_nomenclatura_checkColumnConstraints {<BLOCK Name="fct.cttb00001_status_t_checkColumnConstraints">} #+ Check constraints on the "cttb00001.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00001_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cttb00001.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00001_status_t_checkColumnConstraints {<BLOCK Name="fct.cttb00001_us_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00001.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00001_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cttb00001.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00001_us_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00001_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cttb00001.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00001_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cttb00001.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00001_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cttb00001_us_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00001.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00001_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cttb00001.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00001_us_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00001_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cttb00001.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00001_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cttb00001.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00001_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cttb00001_cod_cia_checkColumnConstraints">} #+ Check constraints on the "cttb00001.cod_cia" column #+ #+ @param p_cod_cia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cttb00001_cod_cia_checkColumnConstraints(p_cod_cia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_cia LIKE cttb00001.cod_cia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cttb00001_cod_cia_checkColumnConstraints {<BLOCK Name="fct.cptb00007_checkTableConstraints">} #+ Check constraints on the "cptb00007" table #+ #+ @param p_data - a row data LIKE cptb00007.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00007_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cptb00007.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cptb00007_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00007_tipo_doc_checkColumnConstraints(p_data.tipo_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00007_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00007_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00007_checkTableConstraints {<BLOCK Name="fct.cptb00007_num_doc_checkColumnConstraints">} #+ Check constraints on the "cptb00007.num_doc" column #+ #+ @param p_num_doc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00007_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE cptb00007.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00007_num_doc_checkColumnConstraints {<BLOCK Name="fct.cptb00007_tipo_doc_checkColumnConstraints">} #+ Check constraints on the "cptb00007.tipo_doc" column #+ #+ @param p_tipo_doc - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00007_tipo_doc_checkColumnConstraints(p_tipo_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_doc LIKE cptb00007.tipo_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00007_tipo_doc_checkColumnConstraints {<BLOCK Name="fct.cptb00007_us_mod_checkColumnConstraints">} #+ Check constraints on the "cptb00007.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00007_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cptb00007.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00007_us_mod_checkColumnConstraints {<BLOCK Name="fct.cptb00007_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cptb00007.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00007_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cptb00007.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00007_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cptb00006_checkTableConstraints">} #+ Check constraints on the "cptb00006" table #+ #+ @param p_data - a row data LIKE cptb00006.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00006_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cptb00006.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cptb00006_tipo_doc_checkColumnConstraints(p_data.tipo_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00006_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00006_cod_sp_checkColumnConstraints(p_data.cod_sp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00006_cod_sp_sec_checkColumnConstraints(p_data.cod_sp_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00006_fecha_orig_checkColumnConstraints(p_data.fecha_orig) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00006_fecha_proc_checkColumnConstraints(p_data.fecha_proc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00006_orden_no_checkColumnConstraints(p_data.orden_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00006_tipo_checkColumnConstraints(p_data.tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00006_aplica_a_checkColumnConstraints(p_data.aplica_a) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00006_cta_ctble_checkColumnConstraints(p_data.cta_ctble) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00006_valor_checkColumnConstraints(p_data.valor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00006_detalle_checkColumnConstraints(p_data.detalle) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00006_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00006_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00006_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00006_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00006_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00006_checkTableConstraints {<BLOCK Name="fct.cptb00006_tipo_doc_checkColumnConstraints">} #+ Check constraints on the "cptb00006.tipo_doc" column #+ #+ @param p_tipo_doc - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00006_tipo_doc_checkColumnConstraints(p_tipo_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_doc LIKE cptb00006.tipo_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00006_tipo_doc_checkColumnConstraints {<BLOCK Name="fct.cptb00006_num_doc_checkColumnConstraints">} #+ Check constraints on the "cptb00006.num_doc" column #+ #+ @param p_num_doc - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00006_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE cptb00006.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00006_num_doc_checkColumnConstraints {<BLOCK Name="fct.cptb00006_cod_sp_checkColumnConstraints">} #+ Check constraints on the "cptb00006.cod_sp" column #+ #+ @param p_cod_sp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00006_cod_sp_checkColumnConstraints(p_cod_sp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp LIKE cptb00006.cod_sp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00006_cod_sp_checkColumnConstraints {<BLOCK Name="fct.cptb00006_cod_sp_sec_checkColumnConstraints">} #+ Check constraints on the "cptb00006.cod_sp_sec" column #+ #+ @param p_cod_sp_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00006_cod_sp_sec_checkColumnConstraints(p_cod_sp_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp_sec LIKE cptb00006.cod_sp_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00006_cod_sp_sec_checkColumnConstraints {<BLOCK Name="fct.cptb00006_fecha_orig_checkColumnConstraints">} #+ Check constraints on the "cptb00006.fecha_orig" column #+ #+ @param p_fecha_orig - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00006_fecha_orig_checkColumnConstraints(p_fecha_orig) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_orig LIKE cptb00006.fecha_orig LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00006_fecha_orig_checkColumnConstraints {<BLOCK Name="fct.cptb00006_fecha_proc_checkColumnConstraints">} #+ Check constraints on the "cptb00006.fecha_proc" column #+ #+ @param p_fecha_proc - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00006_fecha_proc_checkColumnConstraints(p_fecha_proc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_proc LIKE cptb00006.fecha_proc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00006_fecha_proc_checkColumnConstraints {<BLOCK Name="fct.cptb00006_orden_no_checkColumnConstraints">} #+ Check constraints on the "cptb00006.orden_no" column #+ #+ @param p_orden_no - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00006_orden_no_checkColumnConstraints(p_orden_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_orden_no LIKE cptb00006.orden_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00006_orden_no_checkColumnConstraints {<BLOCK Name="fct.cptb00006_tipo_checkColumnConstraints">} #+ Check constraints on the "cptb00006.tipo" column #+ #+ @param p_tipo - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00006_tipo_checkColumnConstraints(p_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo LIKE cptb00006.tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00006_tipo_checkColumnConstraints {<BLOCK Name="fct.cptb00006_aplica_a_checkColumnConstraints">} #+ Check constraints on the "cptb00006.aplica_a" column #+ #+ @param p_aplica_a - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00006_aplica_a_checkColumnConstraints(p_aplica_a) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_aplica_a LIKE cptb00006.aplica_a LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00006_aplica_a_checkColumnConstraints {<BLOCK Name="fct.cptb00006_cta_ctble_checkColumnConstraints">} #+ Check constraints on the "cptb00006.cta_ctble" column #+ #+ @param p_cta_ctble - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00006_cta_ctble_checkColumnConstraints(p_cta_ctble) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cta_ctble LIKE cptb00006.cta_ctble LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00006_cta_ctble_checkColumnConstraints {<BLOCK Name="fct.cptb00006_valor_checkColumnConstraints">} #+ Check constraints on the "cptb00006.valor" column #+ #+ @param p_valor - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00006_valor_checkColumnConstraints(p_valor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor LIKE cptb00006.valor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_valor IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- valor: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00006_valor_checkColumnConstraints {<BLOCK Name="fct.cptb00006_detalle_checkColumnConstraints">} #+ Check constraints on the "cptb00006.detalle" column #+ #+ @param p_detalle - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00006_detalle_checkColumnConstraints(p_detalle) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_detalle LIKE cptb00006.detalle LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00006_detalle_checkColumnConstraints {<BLOCK Name="fct.cptb00006_status_t_checkColumnConstraints">} #+ Check constraints on the "cptb00006.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00006_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cptb00006.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00006_status_t_checkColumnConstraints {<BLOCK Name="fct.cptb00006_us_crea_checkColumnConstraints">} #+ Check constraints on the "cptb00006.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00006_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cptb00006.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00006_us_crea_checkColumnConstraints {<BLOCK Name="fct.cptb00006_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cptb00006.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00006_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cptb00006.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00006_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cptb00006_us_mod_checkColumnConstraints">} #+ Check constraints on the "cptb00006.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00006_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cptb00006.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00006_us_mod_checkColumnConstraints {<BLOCK Name="fct.cptb00006_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cptb00006.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00006_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cptb00006.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00006_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cptb00005_checkTableConstraints">} #+ Check constraints on the "cptb00005" table #+ #+ @param p_data - a row data LIKE cptb00005.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00005_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cptb00005.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cptb00005_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00005_cod_sp_checkColumnConstraints(p_data.cod_sp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00005_cod_sp_sec_checkColumnConstraints(p_data.cod_sp_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00005_factura_checkColumnConstraints(p_data.factura) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00005_cuenta_no_checkColumnConstraints(p_data.cuenta_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00005_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00005_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00005_cod_aux_checkColumnConstraints(p_data.cod_aux) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00005_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00005_detalles_checkColumnConstraints(p_data.detalles) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00005_debito_checkColumnConstraints(p_data.debito) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00005_credito_checkColumnConstraints(p_data.credito) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00005_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00005_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00005_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00005_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00005_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00005_checkTableConstraints {<BLOCK Name="fct.cptb00005_fecha_checkColumnConstraints">} #+ Check constraints on the "cptb00005.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00005_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE cptb00005.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00005_fecha_checkColumnConstraints {<BLOCK Name="fct.cptb00005_cod_sp_checkColumnConstraints">} #+ Check constraints on the "cptb00005.cod_sp" column #+ #+ @param p_cod_sp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00005_cod_sp_checkColumnConstraints(p_cod_sp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp LIKE cptb00005.cod_sp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00005_cod_sp_checkColumnConstraints {<BLOCK Name="fct.cptb00005_cod_sp_sec_checkColumnConstraints">} #+ Check constraints on the "cptb00005.cod_sp_sec" column #+ #+ @param p_cod_sp_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00005_cod_sp_sec_checkColumnConstraints(p_cod_sp_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp_sec LIKE cptb00005.cod_sp_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00005_cod_sp_sec_checkColumnConstraints {<BLOCK Name="fct.cptb00005_factura_checkColumnConstraints">} #+ Check constraints on the "cptb00005.factura" column #+ #+ @param p_factura - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00005_factura_checkColumnConstraints(p_factura) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_factura LIKE cptb00005.factura LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00005_factura_checkColumnConstraints {<BLOCK Name="fct.cptb00005_cuenta_no_checkColumnConstraints">} #+ Check constraints on the "cptb00005.cuenta_no" column #+ #+ @param p_cuenta_no - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00005_cuenta_no_checkColumnConstraints(p_cuenta_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_no LIKE cptb00005.cuenta_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00005_cuenta_no_checkColumnConstraints {<BLOCK Name="fct.cptb00005_departamento_checkColumnConstraints">} #+ Check constraints on the "cptb00005.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00005_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE cptb00005.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00005_departamento_checkColumnConstraints {<BLOCK Name="fct.cptb00005_num_doc_checkColumnConstraints">} #+ Check constraints on the "cptb00005.num_doc" column #+ #+ @param p_num_doc - CHAR(12) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00005_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE cptb00005.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00005_num_doc_checkColumnConstraints {<BLOCK Name="fct.cptb00005_cod_aux_checkColumnConstraints">} #+ Check constraints on the "cptb00005.cod_aux" column #+ #+ @param p_cod_aux - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00005_cod_aux_checkColumnConstraints(p_cod_aux) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_aux LIKE cptb00005.cod_aux LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00005_cod_aux_checkColumnConstraints {<BLOCK Name="fct.cptb00005_cod_sec_checkColumnConstraints">} #+ Check constraints on the "cptb00005.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00005_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE cptb00005.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00005_cod_sec_checkColumnConstraints {<BLOCK Name="fct.cptb00005_detalles_checkColumnConstraints">} #+ Check constraints on the "cptb00005.detalles" column #+ #+ @param p_detalles - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00005_detalles_checkColumnConstraints(p_detalles) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_detalles LIKE cptb00005.detalles LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00005_detalles_checkColumnConstraints {<BLOCK Name="fct.cptb00005_debito_checkColumnConstraints">} #+ Check constraints on the "cptb00005.debito" column #+ #+ @param p_debito - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00005_debito_checkColumnConstraints(p_debito) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_debito LIKE cptb00005.debito LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00005_debito_checkColumnConstraints {<BLOCK Name="fct.cptb00005_credito_checkColumnConstraints">} #+ Check constraints on the "cptb00005.credito" column #+ #+ @param p_credito - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00005_credito_checkColumnConstraints(p_credito) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_credito LIKE cptb00005.credito LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00005_credito_checkColumnConstraints {<BLOCK Name="fct.cptb00005_status_t_checkColumnConstraints">} #+ Check constraints on the "cptb00005.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00005_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cptb00005.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00005_status_t_checkColumnConstraints {<BLOCK Name="fct.cptb00005_us_crea_checkColumnConstraints">} #+ Check constraints on the "cptb00005.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00005_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cptb00005.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00005_us_crea_checkColumnConstraints {<BLOCK Name="fct.cptb00005_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cptb00005.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00005_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cptb00005.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00005_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cptb00005_us_mod_checkColumnConstraints">} #+ Check constraints on the "cptb00005.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00005_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cptb00005.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00005_us_mod_checkColumnConstraints {<BLOCK Name="fct.cptb00005_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cptb00005.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00005_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cptb00005.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00005_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cptb00003_checkTableConstraints">} #+ Check constraints on the "cptb00003" table #+ #+ @param p_data - a row data LIKE cptb00003.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00003_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cptb00003.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cptb00003_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00003_cod_sp_checkColumnConstraints(p_data.cod_sp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00003_cod_sp_sec_checkColumnConstraints(p_data.cod_sp_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00003_factura_checkColumnConstraints(p_data.factura) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00003_cuenta_no_checkColumnConstraints(p_data.cuenta_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00003_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00003_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00003_cod_aux_checkColumnConstraints(p_data.cod_aux) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00003_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00003_detalles_checkColumnConstraints(p_data.detalles) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00003_debito_checkColumnConstraints(p_data.debito) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00003_credito_checkColumnConstraints(p_data.credito) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00003_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00003_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00003_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00003_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00003_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00003_checkTableConstraints {<BLOCK Name="fct.cptb00003_fecha_checkColumnConstraints">} #+ Check constraints on the "cptb00003.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00003_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE cptb00003.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00003_fecha_checkColumnConstraints {<BLOCK Name="fct.cptb00003_cod_sp_checkColumnConstraints">} #+ Check constraints on the "cptb00003.cod_sp" column #+ #+ @param p_cod_sp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00003_cod_sp_checkColumnConstraints(p_cod_sp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp LIKE cptb00003.cod_sp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00003_cod_sp_checkColumnConstraints {<BLOCK Name="fct.cptb00003_cod_sp_sec_checkColumnConstraints">} #+ Check constraints on the "cptb00003.cod_sp_sec" column #+ #+ @param p_cod_sp_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00003_cod_sp_sec_checkColumnConstraints(p_cod_sp_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp_sec LIKE cptb00003.cod_sp_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00003_cod_sp_sec_checkColumnConstraints {<BLOCK Name="fct.cptb00003_factura_checkColumnConstraints">} #+ Check constraints on the "cptb00003.factura" column #+ #+ @param p_factura - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00003_factura_checkColumnConstraints(p_factura) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_factura LIKE cptb00003.factura LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00003_factura_checkColumnConstraints {<BLOCK Name="fct.cptb00003_cuenta_no_checkColumnConstraints">} #+ Check constraints on the "cptb00003.cuenta_no" column #+ #+ @param p_cuenta_no - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00003_cuenta_no_checkColumnConstraints(p_cuenta_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_no LIKE cptb00003.cuenta_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00003_cuenta_no_checkColumnConstraints {<BLOCK Name="fct.cptb00003_departamento_checkColumnConstraints">} #+ Check constraints on the "cptb00003.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00003_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE cptb00003.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00003_departamento_checkColumnConstraints {<BLOCK Name="fct.cptb00003_num_doc_checkColumnConstraints">} #+ Check constraints on the "cptb00003.num_doc" column #+ #+ @param p_num_doc - CHAR(12) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00003_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE cptb00003.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00003_num_doc_checkColumnConstraints {<BLOCK Name="fct.cptb00003_cod_aux_checkColumnConstraints">} #+ Check constraints on the "cptb00003.cod_aux" column #+ #+ @param p_cod_aux - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00003_cod_aux_checkColumnConstraints(p_cod_aux) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_aux LIKE cptb00003.cod_aux LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00003_cod_aux_checkColumnConstraints {<BLOCK Name="fct.cptb00003_cod_sec_checkColumnConstraints">} #+ Check constraints on the "cptb00003.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00003_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE cptb00003.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00003_cod_sec_checkColumnConstraints {<BLOCK Name="fct.cptb00003_detalles_checkColumnConstraints">} #+ Check constraints on the "cptb00003.detalles" column #+ #+ @param p_detalles - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00003_detalles_checkColumnConstraints(p_detalles) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_detalles LIKE cptb00003.detalles LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00003_detalles_checkColumnConstraints {<BLOCK Name="fct.cptb00003_debito_checkColumnConstraints">} #+ Check constraints on the "cptb00003.debito" column #+ #+ @param p_debito - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00003_debito_checkColumnConstraints(p_debito) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_debito LIKE cptb00003.debito LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00003_debito_checkColumnConstraints {<BLOCK Name="fct.cptb00003_credito_checkColumnConstraints">} #+ Check constraints on the "cptb00003.credito" column #+ #+ @param p_credito - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00003_credito_checkColumnConstraints(p_credito) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_credito LIKE cptb00003.credito LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00003_credito_checkColumnConstraints {<BLOCK Name="fct.cptb00003_status_t_checkColumnConstraints">} #+ Check constraints on the "cptb00003.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00003_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cptb00003.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00003_status_t_checkColumnConstraints {<BLOCK Name="fct.cptb00003_us_crea_checkColumnConstraints">} #+ Check constraints on the "cptb00003.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00003_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cptb00003.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00003_us_crea_checkColumnConstraints {<BLOCK Name="fct.cptb00003_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cptb00003.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00003_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cptb00003.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00003_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cptb00003_us_mod_checkColumnConstraints">} #+ Check constraints on the "cptb00003.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00003_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cptb00003.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00003_us_mod_checkColumnConstraints {<BLOCK Name="fct.cptb00003_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cptb00003.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00003_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cptb00003.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00003_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cptb00002_checkTableConstraints">} #+ Check constraints on the "cptb00002" table #+ #+ @param p_data - a row data LIKE cptb00002.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00002_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cptb00002.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cptb00002_cod_sp_checkColumnConstraints(p_data.cod_sp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00002_cod_sp_sec_checkColumnConstraints(p_data.cod_sp_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00002_cuenta_no_checkColumnConstraints(p_data.cuenta_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00002_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00002_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00002_valor_checkColumnConstraints(p_data.valor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00002_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00002_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00002_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00002_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00002_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00002_checkTableConstraints {<BLOCK Name="fct.cptb00002_cod_sp_checkColumnConstraints">} #+ Check constraints on the "cptb00002.cod_sp" column #+ #+ @param p_cod_sp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00002_cod_sp_checkColumnConstraints(p_cod_sp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp LIKE cptb00002.cod_sp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00002_cod_sp_checkColumnConstraints {<BLOCK Name="fct.cptb00002_cod_sp_sec_checkColumnConstraints">} #+ Check constraints on the "cptb00002.cod_sp_sec" column #+ #+ @param p_cod_sp_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00002_cod_sp_sec_checkColumnConstraints(p_cod_sp_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp_sec LIKE cptb00002.cod_sp_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00002_cod_sp_sec_checkColumnConstraints {<BLOCK Name="fct.cptb00002_cuenta_no_checkColumnConstraints">} #+ Check constraints on the "cptb00002.cuenta_no" column #+ #+ @param p_cuenta_no - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00002_cuenta_no_checkColumnConstraints(p_cuenta_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_no LIKE cptb00002.cuenta_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00002_cuenta_no_checkColumnConstraints {<BLOCK Name="fct.cptb00002_num_doc_checkColumnConstraints">} #+ Check constraints on the "cptb00002.num_doc" column #+ #+ @param p_num_doc - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00002_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE cptb00002.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00002_num_doc_checkColumnConstraints {<BLOCK Name="fct.cptb00002_fecha_checkColumnConstraints">} #+ Check constraints on the "cptb00002.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00002_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE cptb00002.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00002_fecha_checkColumnConstraints {<BLOCK Name="fct.cptb00002_valor_checkColumnConstraints">} #+ Check constraints on the "cptb00002.valor" column #+ #+ @param p_valor - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00002_valor_checkColumnConstraints(p_valor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor LIKE cptb00002.valor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00002_valor_checkColumnConstraints {<BLOCK Name="fct.cptb00002_status_t_checkColumnConstraints">} #+ Check constraints on the "cptb00002.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00002_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cptb00002.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00002_status_t_checkColumnConstraints {<BLOCK Name="fct.cptb00002_us_crea_checkColumnConstraints">} #+ Check constraints on the "cptb00002.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00002_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cptb00002.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00002_us_crea_checkColumnConstraints {<BLOCK Name="fct.cptb00002_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cptb00002.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00002_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cptb00002.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00002_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cptb00002_us_mod_checkColumnConstraints">} #+ Check constraints on the "cptb00002.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00002_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cptb00002.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00002_us_mod_checkColumnConstraints {<BLOCK Name="fct.cptb00002_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cptb00002.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00002_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cptb00002.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00002_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cptb00001_checkTableConstraints">} #+ Check constraints on the "cptb00001" table #+ #+ @param p_data - a row data LIKE cptb00001.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00001_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cptb00001.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cptb00001_tipo_doc_checkColumnConstraints(p_data.tipo_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00001_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00001_cod_sp_checkColumnConstraints(p_data.cod_sp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00001_cod_sp_sec_checkColumnConstraints(p_data.cod_sp_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00001_fecha_orig_checkColumnConstraints(p_data.fecha_orig) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00001_fecha_proc_checkColumnConstraints(p_data.fecha_proc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00001_orden_no_checkColumnConstraints(p_data.orden_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00001_tipo_checkColumnConstraints(p_data.tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00001_aplica_a_checkColumnConstraints(p_data.aplica_a) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00001_cta_ctble_checkColumnConstraints(p_data.cta_ctble) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00001_valor_checkColumnConstraints(p_data.valor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00001_detalle_checkColumnConstraints(p_data.detalle) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00001_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00001_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00001_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00001_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cptb00001_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00001_checkTableConstraints {<BLOCK Name="fct.cptb00001_tipo_doc_checkColumnConstraints">} #+ Check constraints on the "cptb00001.tipo_doc" column #+ #+ @param p_tipo_doc - VARCHAR2(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00001_tipo_doc_checkColumnConstraints(p_tipo_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_doc LIKE cptb00001.tipo_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00001_tipo_doc_checkColumnConstraints {<BLOCK Name="fct.cptb00001_num_doc_checkColumnConstraints">} #+ Check constraints on the "cptb00001.num_doc" column #+ #+ @param p_num_doc - VARCHAR2(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00001_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE cptb00001.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00001_num_doc_checkColumnConstraints {<BLOCK Name="fct.cptb00001_cod_sp_checkColumnConstraints">} #+ Check constraints on the "cptb00001.cod_sp" column #+ #+ @param p_cod_sp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00001_cod_sp_checkColumnConstraints(p_cod_sp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp LIKE cptb00001.cod_sp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00001_cod_sp_checkColumnConstraints {<BLOCK Name="fct.cptb00001_cod_sp_sec_checkColumnConstraints">} #+ Check constraints on the "cptb00001.cod_sp_sec" column #+ #+ @param p_cod_sp_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00001_cod_sp_sec_checkColumnConstraints(p_cod_sp_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp_sec LIKE cptb00001.cod_sp_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00001_cod_sp_sec_checkColumnConstraints {<BLOCK Name="fct.cptb00001_fecha_orig_checkColumnConstraints">} #+ Check constraints on the "cptb00001.fecha_orig" column #+ #+ @param p_fecha_orig - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00001_fecha_orig_checkColumnConstraints(p_fecha_orig) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_orig LIKE cptb00001.fecha_orig LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00001_fecha_orig_checkColumnConstraints {<BLOCK Name="fct.cptb00001_fecha_proc_checkColumnConstraints">} #+ Check constraints on the "cptb00001.fecha_proc" column #+ #+ @param p_fecha_proc - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00001_fecha_proc_checkColumnConstraints(p_fecha_proc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_proc LIKE cptb00001.fecha_proc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00001_fecha_proc_checkColumnConstraints {<BLOCK Name="fct.cptb00001_orden_no_checkColumnConstraints">} #+ Check constraints on the "cptb00001.orden_no" column #+ #+ @param p_orden_no - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00001_orden_no_checkColumnConstraints(p_orden_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_orden_no LIKE cptb00001.orden_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00001_orden_no_checkColumnConstraints {<BLOCK Name="fct.cptb00001_tipo_checkColumnConstraints">} #+ Check constraints on the "cptb00001.tipo" column #+ #+ @param p_tipo - VARCHAR2(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00001_tipo_checkColumnConstraints(p_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo LIKE cptb00001.tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00001_tipo_checkColumnConstraints {<BLOCK Name="fct.cptb00001_aplica_a_checkColumnConstraints">} #+ Check constraints on the "cptb00001.aplica_a" column #+ #+ @param p_aplica_a - VARCHAR2(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00001_aplica_a_checkColumnConstraints(p_aplica_a) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_aplica_a LIKE cptb00001.aplica_a LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00001_aplica_a_checkColumnConstraints {<BLOCK Name="fct.cptb00001_cta_ctble_checkColumnConstraints">} #+ Check constraints on the "cptb00001.cta_ctble" column #+ #+ @param p_cta_ctble - VARCHAR2(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00001_cta_ctble_checkColumnConstraints(p_cta_ctble) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cta_ctble LIKE cptb00001.cta_ctble LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00001_cta_ctble_checkColumnConstraints {<BLOCK Name="fct.cptb00001_valor_checkColumnConstraints">} #+ Check constraints on the "cptb00001.valor" column #+ #+ @param p_valor - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00001_valor_checkColumnConstraints(p_valor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor LIKE cptb00001.valor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_valor IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- valor: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00001_valor_checkColumnConstraints {<BLOCK Name="fct.cptb00001_detalle_checkColumnConstraints">} #+ Check constraints on the "cptb00001.detalle" column #+ #+ @param p_detalle - VARCHAR2(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00001_detalle_checkColumnConstraints(p_detalle) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_detalle LIKE cptb00001.detalle LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00001_detalle_checkColumnConstraints {<BLOCK Name="fct.cptb00001_status_t_checkColumnConstraints">} #+ Check constraints on the "cptb00001.status_t" column #+ #+ @param p_status_t - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00001_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cptb00001.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00001_status_t_checkColumnConstraints {<BLOCK Name="fct.cptb00001_us_crea_checkColumnConstraints">} #+ Check constraints on the "cptb00001.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00001_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cptb00001.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00001_us_crea_checkColumnConstraints {<BLOCK Name="fct.cptb00001_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cptb00001.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00001_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cptb00001.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00001_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cptb00001_us_mod_checkColumnConstraints">} #+ Check constraints on the "cptb00001.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00001_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cptb00001.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00001_us_mod_checkColumnConstraints {<BLOCK Name="fct.cptb00001_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cptb00001.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cptb00001_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cptb00001.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cptb00001_fech_mod_checkColumnConstraints {<BLOCK Name="fct.country_checkTableConstraints">} #+ Check constraints on the "country" table #+ #+ @param p_data - a row data LIKE country.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_country_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE country.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_country_code_checkColumnConstraints(p_data.code) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_country_codedesc_checkColumnConstraints(p_data.codedesc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.country_checkTableConstraints {<BLOCK Name="fct.country_code_checkColumnConstraints">} #+ Check constraints on the "country.code" column #+ #+ @param p_code - CHAR(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_country_code_checkColumnConstraints(p_code) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_code LIKE country.code LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.country_code_checkColumnConstraints {<BLOCK Name="fct.country_codedesc_checkColumnConstraints">} #+ Check constraints on the "country.codedesc" column #+ #+ @param p_codedesc - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_country_codedesc_checkColumnConstraints(p_codedesc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codedesc LIKE country.codedesc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.country_codedesc_checkColumnConstraints {<BLOCK Name="fct.cotb00038_checkTableConstraints">} #+ Check constraints on the "cotb00038" table #+ #+ @param p_data - a row data LIKE cotb00038.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00038_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cotb00038.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cotb00038_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00038_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00038_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00038_num_oc_checkColumnConstraints(p_data.num_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00038_cod_emb_checkColumnConstraints(p_data.cod_emb) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00038_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00038_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00038_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00038_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00038_cantidad_o_checkColumnConstraints(p_data.cantidad_o) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00038_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00038_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00038_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00038_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00038_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00038_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00038_checkTableConstraints {<BLOCK Name="fct.cotb00038_num_doc_checkColumnConstraints">} #+ Check constraints on the "cotb00038.num_doc" column #+ #+ @param p_num_doc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00038_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE cotb00038.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00038_num_doc_checkColumnConstraints {<BLOCK Name="fct.cotb00038_cod_mov_checkColumnConstraints">} #+ Check constraints on the "cotb00038.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00038_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE cotb00038.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00038_cod_mov_checkColumnConstraints {<BLOCK Name="fct.cotb00038_fecha_checkColumnConstraints">} #+ Check constraints on the "cotb00038.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00038_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE cotb00038.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00038_fecha_checkColumnConstraints {<BLOCK Name="fct.cotb00038_num_oc_checkColumnConstraints">} #+ Check constraints on the "cotb00038.num_oc" column #+ #+ @param p_num_oc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00038_num_oc_checkColumnConstraints(p_num_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_oc LIKE cotb00038.num_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00038_num_oc_checkColumnConstraints {<BLOCK Name="fct.cotb00038_cod_emb_checkColumnConstraints">} #+ Check constraints on the "cotb00038.cod_emb" column #+ #+ @param p_cod_emb - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00038_cod_emb_checkColumnConstraints(p_cod_emb) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_emb LIKE cotb00038.cod_emb LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00038_cod_emb_checkColumnConstraints {<BLOCK Name="fct.cotb00038_cod_n_checkColumnConstraints">} #+ Check constraints on the "cotb00038.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00038_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE cotb00038.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00038_cod_n_checkColumnConstraints {<BLOCK Name="fct.cotb00038_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "cotb00038.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00038_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE cotb00038.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00038_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.cotb00038_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "cotb00038.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00038_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE cotb00038.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00038_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.cotb00038_cod_sec_checkColumnConstraints">} #+ Check constraints on the "cotb00038.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00038_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE cotb00038.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00038_cod_sec_checkColumnConstraints {<BLOCK Name="fct.cotb00038_cantidad_o_checkColumnConstraints">} #+ Check constraints on the "cotb00038.cantidad_o" column #+ #+ @param p_cantidad_o - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00038_cantidad_o_checkColumnConstraints(p_cantidad_o) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad_o LIKE cotb00038.cantidad_o LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00038_cantidad_o_checkColumnConstraints {<BLOCK Name="fct.cotb00038_cantidad_checkColumnConstraints">} #+ Check constraints on the "cotb00038.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00038_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE cotb00038.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00038_cantidad_checkColumnConstraints {<BLOCK Name="fct.cotb00038_status_t_checkColumnConstraints">} #+ Check constraints on the "cotb00038.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00038_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cotb00038.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00038_status_t_checkColumnConstraints {<BLOCK Name="fct.cotb00038_us_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00038.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00038_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cotb00038.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00038_us_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00038_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00038.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00038_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cotb00038.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00038_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00038_us_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00038.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00038_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cotb00038.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00038_us_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00038_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00038.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00038_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cotb00038.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00038_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00036_checkTableConstraints">} #+ Check constraints on the "cotb00036" table #+ #+ @param p_data - a row data LIKE cotb00036.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00036_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cotb00036.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cotb00036_priori_req_checkColumnConstraints(p_data.priori_req) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00036_desc_priori_checkColumnConstraints(p_data.desc_priori) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00036_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00036_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00036_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00036_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00036_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00036_checkTableConstraints {<BLOCK Name="fct.cotb00036_priori_req_checkColumnConstraints">} #+ Check constraints on the "cotb00036.priori_req" column #+ #+ @param p_priori_req - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00036_priori_req_checkColumnConstraints(p_priori_req) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_priori_req LIKE cotb00036.priori_req LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_priori_req IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- priori_req: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00036_priori_req_checkColumnConstraints {<BLOCK Name="fct.cotb00036_desc_priori_checkColumnConstraints">} #+ Check constraints on the "cotb00036.desc_priori" column #+ #+ @param p_desc_priori - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00036_desc_priori_checkColumnConstraints(p_desc_priori) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_desc_priori LIKE cotb00036.desc_priori LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_desc_priori IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- desc_priori: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00036_desc_priori_checkColumnConstraints {<BLOCK Name="fct.cotb00036_status_t_checkColumnConstraints">} #+ Check constraints on the "cotb00036.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00036_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cotb00036.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00036_status_t_checkColumnConstraints {<BLOCK Name="fct.cotb00036_us_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00036.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00036_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cotb00036.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00036_us_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00036_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00036.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00036_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cotb00036.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00036_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00036_us_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00036.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00036_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cotb00036.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00036_us_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00036_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00036.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00036_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cotb00036.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00036_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00034_checkTableConstraints">} #+ Check constraints on the "cotb00034" table #+ #+ @param p_data - a row data LIKE cotb00034.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00034_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cotb00034.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cotb00034_num_oc_checkColumnConstraints(p_data.num_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00034_num_req_checkColumnConstraints(p_data.num_req) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00034_tipo_checkColumnConstraints(p_data.tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00034_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00034_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00034_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00034_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00034_num_parte_checkColumnConstraints(p_data.num_parte) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00034_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00034_precio_checkColumnConstraints(p_data.precio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00034_cod_mon_checkColumnConstraints(p_data.cod_mon) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00034_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00034_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00034_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00034_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00034_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00034_checkTableConstraints {<BLOCK Name="fct.cotb00034_num_oc_checkColumnConstraints">} #+ Check constraints on the "cotb00034.num_oc" column #+ #+ @param p_num_oc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00034_num_oc_checkColumnConstraints(p_num_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_oc LIKE cotb00034.num_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00034_num_oc_checkColumnConstraints {<BLOCK Name="fct.cotb00034_num_req_checkColumnConstraints">} #+ Check constraints on the "cotb00034.num_req" column #+ #+ @param p_num_req - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00034_num_req_checkColumnConstraints(p_num_req) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_req LIKE cotb00034.num_req LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00034_num_req_checkColumnConstraints {<BLOCK Name="fct.cotb00034_tipo_checkColumnConstraints">} #+ Check constraints on the "cotb00034.tipo" column #+ #+ @param p_tipo - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00034_tipo_checkColumnConstraints(p_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo LIKE cotb00034.tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00034_tipo_checkColumnConstraints {<BLOCK Name="fct.cotb00034_cod_n_checkColumnConstraints">} #+ Check constraints on the "cotb00034.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00034_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE cotb00034.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00034_cod_n_checkColumnConstraints {<BLOCK Name="fct.cotb00034_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "cotb00034.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00034_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE cotb00034.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00034_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.cotb00034_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "cotb00034.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00034_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE cotb00034.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00034_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.cotb00034_cod_sec_checkColumnConstraints">} #+ Check constraints on the "cotb00034.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00034_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE cotb00034.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00034_cod_sec_checkColumnConstraints {<BLOCK Name="fct.cotb00034_num_parte_checkColumnConstraints">} #+ Check constraints on the "cotb00034.num_parte" column #+ #+ @param p_num_parte - CHAR(12) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00034_num_parte_checkColumnConstraints(p_num_parte) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_parte LIKE cotb00034.num_parte LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00034_num_parte_checkColumnConstraints {<BLOCK Name="fct.cotb00034_cantidad_checkColumnConstraints">} #+ Check constraints on the "cotb00034.cantidad" column #+ #+ @param p_cantidad - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00034_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE cotb00034.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00034_cantidad_checkColumnConstraints {<BLOCK Name="fct.cotb00034_precio_checkColumnConstraints">} #+ Check constraints on the "cotb00034.precio" column #+ #+ @param p_precio - DECIMAL(11,3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00034_precio_checkColumnConstraints(p_precio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_precio LIKE cotb00034.precio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00034_precio_checkColumnConstraints {<BLOCK Name="fct.cotb00034_cod_mon_checkColumnConstraints">} #+ Check constraints on the "cotb00034.cod_mon" column #+ #+ @param p_cod_mon - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00034_cod_mon_checkColumnConstraints(p_cod_mon) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mon LIKE cotb00034.cod_mon LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00034_cod_mon_checkColumnConstraints {<BLOCK Name="fct.cotb00034_status_t_checkColumnConstraints">} #+ Check constraints on the "cotb00034.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00034_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cotb00034.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00034_status_t_checkColumnConstraints {<BLOCK Name="fct.cotb00034_us_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00034.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00034_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cotb00034.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00034_us_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00034_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00034.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00034_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cotb00034.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00034_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00034_us_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00034.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00034_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cotb00034.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00034_us_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00034_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00034.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00034_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cotb00034.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00034_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00033_checkTableConstraints">} #+ Check constraints on the "cotb00033" table #+ #+ @param p_data - a row data LIKE cotb00033.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00033_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cotb00033.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cotb00033_num_oc_checkColumnConstraints(p_data.num_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00033_tipo_checkColumnConstraints(p_data.tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00033_fech_oc_checkColumnConstraints(p_data.fech_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00033_num_pr_checkColumnConstraints(p_data.num_pr) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00033_cod_sp_checkColumnConstraints(p_data.cod_sp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00033_cod_sp_sec_checkColumnConstraints(p_data.cod_sp_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00033_term_sp_checkColumnConstraints(p_data.term_sp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00033_via_checkColumnConstraints(p_data.via) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00033_enviada_checkColumnConstraints(p_data.enviada) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00033_fech_enviada_checkColumnConstraints(p_data.fech_enviada) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00033_pago_checkColumnConstraints(p_data.pago) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00033_fech_pago_checkColumnConstraints(p_data.fech_pago) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00033_cierre_checkColumnConstraints(p_data.cierre) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00033_cod_pt_checkColumnConstraints(p_data.cod_pt) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00033_c_flete_checkColumnConstraints(p_data.c_flete) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00033_otros_g_checkColumnConstraints(p_data.otros_g) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00033_detalle_checkColumnConstraints(p_data.detalle) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00033_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00033_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00033_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00033_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00033_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00033_checkTableConstraints {<BLOCK Name="fct.cotb00033_num_oc_checkColumnConstraints">} #+ Check constraints on the "cotb00033.num_oc" column #+ #+ @param p_num_oc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00033_num_oc_checkColumnConstraints(p_num_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_oc LIKE cotb00033.num_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00033_num_oc_checkColumnConstraints {<BLOCK Name="fct.cotb00033_tipo_checkColumnConstraints">} #+ Check constraints on the "cotb00033.tipo" column #+ #+ @param p_tipo - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00033_tipo_checkColumnConstraints(p_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo LIKE cotb00033.tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00033_tipo_checkColumnConstraints {<BLOCK Name="fct.cotb00033_fech_oc_checkColumnConstraints">} #+ Check constraints on the "cotb00033.fech_oc" column #+ #+ @param p_fech_oc - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00033_fech_oc_checkColumnConstraints(p_fech_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_oc LIKE cotb00033.fech_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00033_fech_oc_checkColumnConstraints {<BLOCK Name="fct.cotb00033_num_pr_checkColumnConstraints">} #+ Check constraints on the "cotb00033.num_pr" column #+ #+ @param p_num_pr - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00033_num_pr_checkColumnConstraints(p_num_pr) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_pr LIKE cotb00033.num_pr LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00033_num_pr_checkColumnConstraints {<BLOCK Name="fct.cotb00033_cod_sp_checkColumnConstraints">} #+ Check constraints on the "cotb00033.cod_sp" column #+ #+ @param p_cod_sp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00033_cod_sp_checkColumnConstraints(p_cod_sp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp LIKE cotb00033.cod_sp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00033_cod_sp_checkColumnConstraints {<BLOCK Name="fct.cotb00033_cod_sp_sec_checkColumnConstraints">} #+ Check constraints on the "cotb00033.cod_sp_sec" column #+ #+ @param p_cod_sp_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00033_cod_sp_sec_checkColumnConstraints(p_cod_sp_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp_sec LIKE cotb00033.cod_sp_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00033_cod_sp_sec_checkColumnConstraints {<BLOCK Name="fct.cotb00033_term_sp_checkColumnConstraints">} #+ Check constraints on the "cotb00033.term_sp" column #+ #+ @param p_term_sp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00033_term_sp_checkColumnConstraints(p_term_sp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_term_sp LIKE cotb00033.term_sp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00033_term_sp_checkColumnConstraints {<BLOCK Name="fct.cotb00033_via_checkColumnConstraints">} #+ Check constraints on the "cotb00033.via" column #+ #+ @param p_via - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00033_via_checkColumnConstraints(p_via) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_via LIKE cotb00033.via LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00033_via_checkColumnConstraints {<BLOCK Name="fct.cotb00033_enviada_checkColumnConstraints">} #+ Check constraints on the "cotb00033.enviada" column #+ #+ @param p_enviada - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00033_enviada_checkColumnConstraints(p_enviada) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_enviada LIKE cotb00033.enviada LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00033_enviada_checkColumnConstraints {<BLOCK Name="fct.cotb00033_fech_enviada_checkColumnConstraints">} #+ Check constraints on the "cotb00033.fech_enviada" column #+ #+ @param p_fech_enviada - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00033_fech_enviada_checkColumnConstraints(p_fech_enviada) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_enviada LIKE cotb00033.fech_enviada LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00033_fech_enviada_checkColumnConstraints {<BLOCK Name="fct.cotb00033_pago_checkColumnConstraints">} #+ Check constraints on the "cotb00033.pago" column #+ #+ @param p_pago - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00033_pago_checkColumnConstraints(p_pago) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_pago LIKE cotb00033.pago LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00033_pago_checkColumnConstraints {<BLOCK Name="fct.cotb00033_fech_pago_checkColumnConstraints">} #+ Check constraints on the "cotb00033.fech_pago" column #+ #+ @param p_fech_pago - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00033_fech_pago_checkColumnConstraints(p_fech_pago) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_pago LIKE cotb00033.fech_pago LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00033_fech_pago_checkColumnConstraints {<BLOCK Name="fct.cotb00033_cierre_checkColumnConstraints">} #+ Check constraints on the "cotb00033.cierre" column #+ #+ @param p_cierre - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00033_cierre_checkColumnConstraints(p_cierre) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cierre LIKE cotb00033.cierre LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00033_cierre_checkColumnConstraints {<BLOCK Name="fct.cotb00033_cod_pt_checkColumnConstraints">} #+ Check constraints on the "cotb00033.cod_pt" column #+ #+ @param p_cod_pt - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00033_cod_pt_checkColumnConstraints(p_cod_pt) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_pt LIKE cotb00033.cod_pt LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00033_cod_pt_checkColumnConstraints {<BLOCK Name="fct.cotb00033_c_flete_checkColumnConstraints">} #+ Check constraints on the "cotb00033.c_flete" column #+ #+ @param p_c_flete - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00033_c_flete_checkColumnConstraints(p_c_flete) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_c_flete LIKE cotb00033.c_flete LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00033_c_flete_checkColumnConstraints {<BLOCK Name="fct.cotb00033_otros_g_checkColumnConstraints">} #+ Check constraints on the "cotb00033.otros_g" column #+ #+ @param p_otros_g - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00033_otros_g_checkColumnConstraints(p_otros_g) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_otros_g LIKE cotb00033.otros_g LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00033_otros_g_checkColumnConstraints {<BLOCK Name="fct.cotb00033_detalle_checkColumnConstraints">} #+ Check constraints on the "cotb00033.detalle" column #+ #+ @param p_detalle - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00033_detalle_checkColumnConstraints(p_detalle) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_detalle LIKE cotb00033.detalle LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00033_detalle_checkColumnConstraints {<BLOCK Name="fct.cotb00033_status_t_checkColumnConstraints">} #+ Check constraints on the "cotb00033.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00033_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cotb00033.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00033_status_t_checkColumnConstraints {<BLOCK Name="fct.cotb00033_us_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00033.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00033_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cotb00033.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00033_us_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00033_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00033.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00033_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cotb00033.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00033_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00033_us_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00033.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00033_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cotb00033.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00033_us_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00033_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00033.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00033_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cotb00033.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00033_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00031_checkTableConstraints">} #+ Check constraints on the "cotb00031" table #+ #+ @param p_data - a row data LIKE cotb00031.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00031_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cotb00031.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cotb00031_cod_mon_checkColumnConstraints(p_data.cod_mon) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00031_descrip_mon_checkColumnConstraints(p_data.descrip_mon) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00031_simbolo_checkColumnConstraints(p_data.simbolo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00031_tasa_cambio_checkColumnConstraints(p_data.tasa_cambio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00031_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00031_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00031_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00031_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00031_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00031_checkTableConstraints {<BLOCK Name="fct.cotb00031_cod_mon_checkColumnConstraints">} #+ Check constraints on the "cotb00031.cod_mon" column #+ #+ @param p_cod_mon - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00031_cod_mon_checkColumnConstraints(p_cod_mon) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mon LIKE cotb00031.cod_mon LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00031_cod_mon_checkColumnConstraints {<BLOCK Name="fct.cotb00031_descrip_mon_checkColumnConstraints">} #+ Check constraints on the "cotb00031.descrip_mon" column #+ #+ @param p_descrip_mon - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00031_descrip_mon_checkColumnConstraints(p_descrip_mon) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip_mon LIKE cotb00031.descrip_mon LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00031_descrip_mon_checkColumnConstraints {<BLOCK Name="fct.cotb00031_simbolo_checkColumnConstraints">} #+ Check constraints on the "cotb00031.simbolo" column #+ #+ @param p_simbolo - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00031_simbolo_checkColumnConstraints(p_simbolo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_simbolo LIKE cotb00031.simbolo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00031_simbolo_checkColumnConstraints {<BLOCK Name="fct.cotb00031_tasa_cambio_checkColumnConstraints">} #+ Check constraints on the "cotb00031.tasa_cambio" column #+ #+ @param p_tasa_cambio - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00031_tasa_cambio_checkColumnConstraints(p_tasa_cambio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tasa_cambio LIKE cotb00031.tasa_cambio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00031_tasa_cambio_checkColumnConstraints {<BLOCK Name="fct.cotb00031_status_t_checkColumnConstraints">} #+ Check constraints on the "cotb00031.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00031_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cotb00031.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00031_status_t_checkColumnConstraints {<BLOCK Name="fct.cotb00031_us_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00031.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00031_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cotb00031.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00031_us_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00031_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00031.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00031_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cotb00031.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00031_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00031_us_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00031.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00031_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cotb00031.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00031_us_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00031_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00031.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00031_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cotb00031.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00031_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00030_checkTableConstraints">} #+ Check constraints on the "cotb00030" table #+ #+ @param p_data - a row data LIKE cotb00030.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00030_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cotb00030.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cotb00030_num_oc_checkColumnConstraints(p_data.num_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00030_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00030_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00030_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00030_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00030_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00030_checkTableConstraints {<BLOCK Name="fct.cotb00030_num_oc_checkColumnConstraints">} #+ Check constraints on the "cotb00030.num_oc" column #+ #+ @param p_num_oc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00030_num_oc_checkColumnConstraints(p_num_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_oc LIKE cotb00030.num_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00030_num_oc_checkColumnConstraints {<BLOCK Name="fct.cotb00030_status_t_checkColumnConstraints">} #+ Check constraints on the "cotb00030.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00030_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cotb00030.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00030_status_t_checkColumnConstraints {<BLOCK Name="fct.cotb00030_us_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00030.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00030_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cotb00030.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00030_us_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00030_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00030.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00030_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cotb00030.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00030_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00030_us_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00030.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00030_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cotb00030.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00030_us_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00030_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00030.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00030_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cotb00030.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00030_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00029_checkTableConstraints">} #+ Check constraints on the "cotb00029" table #+ #+ @param p_data - a row data LIKE cotb00029.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00029_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cotb00029.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cotb00029_num_oc_checkColumnConstraints(p_data.num_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00029_tipo_checkColumnConstraints(p_data.tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00029_cod_sp_checkColumnConstraints(p_data.cod_sp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00029_cod_sp_sec_checkColumnConstraints(p_data.cod_sp_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00029_ship_to_checkColumnConstraints(p_data.ship_to) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00029_n_a_b_checkColumnConstraints(p_data.n_a_b) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00029_c_i_d_checkColumnConstraints(p_data.c_i_d) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00029_c_i_d1_checkColumnConstraints(p_data.c_i_d1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00029_nota_checkColumnConstraints(p_data.nota) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00029_nota1_checkColumnConstraints(p_data.nota1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00029_desc_flete_checkColumnConstraints(p_data.desc_flete) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00029_total_flete_checkColumnConstraints(p_data.total_flete) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00029_desc_valor_checkColumnConstraints(p_data.desc_valor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00029_total_valor_checkColumnConstraints(p_data.total_valor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00029_desc_otro_checkColumnConstraints(p_data.desc_otro) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00029_total_otro_checkColumnConstraints(p_data.total_otro) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00029_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00029_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00029_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00029_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00029_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00029_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00029_checkTableConstraints {<BLOCK Name="fct.cotb00029_num_oc_checkColumnConstraints">} #+ Check constraints on the "cotb00029.num_oc" column #+ #+ @param p_num_oc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00029_num_oc_checkColumnConstraints(p_num_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_oc LIKE cotb00029.num_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00029_num_oc_checkColumnConstraints {<BLOCK Name="fct.cotb00029_tipo_checkColumnConstraints">} #+ Check constraints on the "cotb00029.tipo" column #+ #+ @param p_tipo - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00029_tipo_checkColumnConstraints(p_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo LIKE cotb00029.tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00029_tipo_checkColumnConstraints {<BLOCK Name="fct.cotb00029_cod_sp_checkColumnConstraints">} #+ Check constraints on the "cotb00029.cod_sp" column #+ #+ @param p_cod_sp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00029_cod_sp_checkColumnConstraints(p_cod_sp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp LIKE cotb00029.cod_sp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00029_cod_sp_checkColumnConstraints {<BLOCK Name="fct.cotb00029_cod_sp_sec_checkColumnConstraints">} #+ Check constraints on the "cotb00029.cod_sp_sec" column #+ #+ @param p_cod_sp_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00029_cod_sp_sec_checkColumnConstraints(p_cod_sp_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp_sec LIKE cotb00029.cod_sp_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00029_cod_sp_sec_checkColumnConstraints {<BLOCK Name="fct.cotb00029_ship_to_checkColumnConstraints">} #+ Check constraints on the "cotb00029.ship_to" column #+ #+ @param p_ship_to - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00029_ship_to_checkColumnConstraints(p_ship_to) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ship_to LIKE cotb00029.ship_to LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00029_ship_to_checkColumnConstraints {<BLOCK Name="fct.cotb00029_n_a_b_checkColumnConstraints">} #+ Check constraints on the "cotb00029.n_a_b" column #+ #+ @param p_n_a_b - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00029_n_a_b_checkColumnConstraints(p_n_a_b) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_n_a_b LIKE cotb00029.n_a_b LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00029_n_a_b_checkColumnConstraints {<BLOCK Name="fct.cotb00029_c_i_d_checkColumnConstraints">} #+ Check constraints on the "cotb00029.c_i_d" column #+ #+ @param p_c_i_d - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00029_c_i_d_checkColumnConstraints(p_c_i_d) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_c_i_d LIKE cotb00029.c_i_d LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00029_c_i_d_checkColumnConstraints {<BLOCK Name="fct.cotb00029_c_i_d1_checkColumnConstraints">} #+ Check constraints on the "cotb00029.c_i_d1" column #+ #+ @param p_c_i_d1 - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00029_c_i_d1_checkColumnConstraints(p_c_i_d1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_c_i_d1 LIKE cotb00029.c_i_d1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00029_c_i_d1_checkColumnConstraints {<BLOCK Name="fct.cotb00029_nota_checkColumnConstraints">} #+ Check constraints on the "cotb00029.nota" column #+ #+ @param p_nota - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00029_nota_checkColumnConstraints(p_nota) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nota LIKE cotb00029.nota LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00029_nota_checkColumnConstraints {<BLOCK Name="fct.cotb00029_nota1_checkColumnConstraints">} #+ Check constraints on the "cotb00029.nota1" column #+ #+ @param p_nota1 - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00029_nota1_checkColumnConstraints(p_nota1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nota1 LIKE cotb00029.nota1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00029_nota1_checkColumnConstraints {<BLOCK Name="fct.cotb00029_desc_flete_checkColumnConstraints">} #+ Check constraints on the "cotb00029.desc_flete" column #+ #+ @param p_desc_flete - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00029_desc_flete_checkColumnConstraints(p_desc_flete) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_desc_flete LIKE cotb00029.desc_flete LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00029_desc_flete_checkColumnConstraints {<BLOCK Name="fct.cotb00029_total_flete_checkColumnConstraints">} #+ Check constraints on the "cotb00029.total_flete" column #+ #+ @param p_total_flete - DECIMAL(18,0) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00029_total_flete_checkColumnConstraints(p_total_flete) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_total_flete LIKE cotb00029.total_flete LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00029_total_flete_checkColumnConstraints {<BLOCK Name="fct.cotb00029_desc_valor_checkColumnConstraints">} #+ Check constraints on the "cotb00029.desc_valor" column #+ #+ @param p_desc_valor - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00029_desc_valor_checkColumnConstraints(p_desc_valor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_desc_valor LIKE cotb00029.desc_valor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00029_desc_valor_checkColumnConstraints {<BLOCK Name="fct.cotb00029_total_valor_checkColumnConstraints">} #+ Check constraints on the "cotb00029.total_valor" column #+ #+ @param p_total_valor - DECIMAL(18,0) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00029_total_valor_checkColumnConstraints(p_total_valor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_total_valor LIKE cotb00029.total_valor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00029_total_valor_checkColumnConstraints {<BLOCK Name="fct.cotb00029_desc_otro_checkColumnConstraints">} #+ Check constraints on the "cotb00029.desc_otro" column #+ #+ @param p_desc_otro - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00029_desc_otro_checkColumnConstraints(p_desc_otro) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_desc_otro LIKE cotb00029.desc_otro LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00029_desc_otro_checkColumnConstraints {<BLOCK Name="fct.cotb00029_total_otro_checkColumnConstraints">} #+ Check constraints on the "cotb00029.total_otro" column #+ #+ @param p_total_otro - DECIMAL(18,0) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00029_total_otro_checkColumnConstraints(p_total_otro) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_total_otro LIKE cotb00029.total_otro LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00029_total_otro_checkColumnConstraints {<BLOCK Name="fct.cotb00029_descripcion_checkColumnConstraints">} #+ Check constraints on the "cotb00029.descripcion" column #+ #+ @param p_descripcion - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00029_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE cotb00029.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00029_descripcion_checkColumnConstraints {<BLOCK Name="fct.cotb00029_status_t_checkColumnConstraints">} #+ Check constraints on the "cotb00029.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00029_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cotb00029.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00029_status_t_checkColumnConstraints {<BLOCK Name="fct.cotb00029_us_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00029.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00029_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cotb00029.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00029_us_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00029_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00029.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00029_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cotb00029.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00029_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00029_us_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00029.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00029_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cotb00029.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00029_us_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00029_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00029.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00029_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cotb00029.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00029_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00028_checkTableConstraints">} #+ Check constraints on the "cotb00028" table #+ #+ @param p_data - a row data LIKE cotb00028.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00028_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cotb00028.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cotb00028_dia_checkColumnConstraints(p_data.dia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00028_checkTableConstraints {<BLOCK Name="fct.cotb00028_dia_checkColumnConstraints">} #+ Check constraints on the "cotb00028.dia" column #+ #+ @param p_dia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00028_dia_checkColumnConstraints(p_dia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_dia LIKE cotb00028.dia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00028_dia_checkColumnConstraints {<BLOCK Name="fct.cotb00027_checkTableConstraints">} #+ Check constraints on the "cotb00027" table #+ #+ @param p_data - a row data LIKE cotb00027.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00027_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cotb00027.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cotb00027_cod_embarque_checkColumnConstraints(p_data.cod_embarque) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00027_descrip_emb_checkColumnConstraints(p_data.descrip_emb) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00027_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00027_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00027_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00027_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00027_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00027_checkTableConstraints {<BLOCK Name="fct.cotb00027_cod_embarque_checkColumnConstraints">} #+ Check constraints on the "cotb00027.cod_embarque" column #+ #+ @param p_cod_embarque - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00027_cod_embarque_checkColumnConstraints(p_cod_embarque) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_embarque LIKE cotb00027.cod_embarque LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_embarque IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_embarque: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00027_cod_embarque_checkColumnConstraints {<BLOCK Name="fct.cotb00027_descrip_emb_checkColumnConstraints">} #+ Check constraints on the "cotb00027.descrip_emb" column #+ #+ @param p_descrip_emb - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00027_descrip_emb_checkColumnConstraints(p_descrip_emb) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip_emb LIKE cotb00027.descrip_emb LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00027_descrip_emb_checkColumnConstraints {<BLOCK Name="fct.cotb00027_status_t_checkColumnConstraints">} #+ Check constraints on the "cotb00027.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00027_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cotb00027.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00027_status_t_checkColumnConstraints {<BLOCK Name="fct.cotb00027_us_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00027.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00027_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cotb00027.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00027_us_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00027_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00027.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00027_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cotb00027.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00027_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00027_us_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00027.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00027_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cotb00027.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00027_us_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00027_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00027.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00027_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cotb00027.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00027_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00025_checkTableConstraints">} #+ Check constraints on the "cotb00025" table #+ #+ @param p_data - a row data LIKE cotb00025.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00025_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cotb00025.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cotb00025_num_oc_checkColumnConstraints(p_data.num_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00025_tipo_checkColumnConstraints(p_data.tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00025_num_req_checkColumnConstraints(p_data.num_req) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00025_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00025_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00025_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00025_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00025_fech_emb_checkColumnConstraints(p_data.fech_emb) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00025_fech_ent_checkColumnConstraints(p_data.fech_ent) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00025_fecha_a_checkColumnConstraints(p_data.fecha_a) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00025_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00025_cantidad_r_checkColumnConstraints(p_data.cantidad_r) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00025_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00025_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00025_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00025_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00025_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00025_checkTableConstraints {<BLOCK Name="fct.cotb00025_num_oc_checkColumnConstraints">} #+ Check constraints on the "cotb00025.num_oc" column #+ #+ @param p_num_oc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00025_num_oc_checkColumnConstraints(p_num_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_oc LIKE cotb00025.num_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00025_num_oc_checkColumnConstraints {<BLOCK Name="fct.cotb00025_tipo_checkColumnConstraints">} #+ Check constraints on the "cotb00025.tipo" column #+ #+ @param p_tipo - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00025_tipo_checkColumnConstraints(p_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo LIKE cotb00025.tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00025_tipo_checkColumnConstraints {<BLOCK Name="fct.cotb00025_num_req_checkColumnConstraints">} #+ Check constraints on the "cotb00025.num_req" column #+ #+ @param p_num_req - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00025_num_req_checkColumnConstraints(p_num_req) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_req LIKE cotb00025.num_req LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_num_req IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- num_req: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00025_num_req_checkColumnConstraints {<BLOCK Name="fct.cotb00025_cod_n_checkColumnConstraints">} #+ Check constraints on the "cotb00025.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00025_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE cotb00025.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00025_cod_n_checkColumnConstraints {<BLOCK Name="fct.cotb00025_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "cotb00025.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00025_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE cotb00025.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00025_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.cotb00025_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "cotb00025.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00025_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE cotb00025.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00025_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.cotb00025_cod_sec_checkColumnConstraints">} #+ Check constraints on the "cotb00025.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00025_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE cotb00025.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00025_cod_sec_checkColumnConstraints {<BLOCK Name="fct.cotb00025_fech_emb_checkColumnConstraints">} #+ Check constraints on the "cotb00025.fech_emb" column #+ #+ @param p_fech_emb - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00025_fech_emb_checkColumnConstraints(p_fech_emb) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_emb LIKE cotb00025.fech_emb LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00025_fech_emb_checkColumnConstraints {<BLOCK Name="fct.cotb00025_fech_ent_checkColumnConstraints">} #+ Check constraints on the "cotb00025.fech_ent" column #+ #+ @param p_fech_ent - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00025_fech_ent_checkColumnConstraints(p_fech_ent) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_ent LIKE cotb00025.fech_ent LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00025_fech_ent_checkColumnConstraints {<BLOCK Name="fct.cotb00025_fecha_a_checkColumnConstraints">} #+ Check constraints on the "cotb00025.fecha_a" column #+ #+ @param p_fecha_a - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00025_fecha_a_checkColumnConstraints(p_fecha_a) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_a LIKE cotb00025.fecha_a LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00025_fecha_a_checkColumnConstraints {<BLOCK Name="fct.cotb00025_cantidad_checkColumnConstraints">} #+ Check constraints on the "cotb00025.cantidad" column #+ #+ @param p_cantidad - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00025_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE cotb00025.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00025_cantidad_checkColumnConstraints {<BLOCK Name="fct.cotb00025_cantidad_r_checkColumnConstraints">} #+ Check constraints on the "cotb00025.cantidad_r" column #+ #+ @param p_cantidad_r - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00025_cantidad_r_checkColumnConstraints(p_cantidad_r) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad_r LIKE cotb00025.cantidad_r LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00025_cantidad_r_checkColumnConstraints {<BLOCK Name="fct.cotb00025_status_t_checkColumnConstraints">} #+ Check constraints on the "cotb00025.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00025_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cotb00025.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00025_status_t_checkColumnConstraints {<BLOCK Name="fct.cotb00025_us_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00025.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00025_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cotb00025.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00025_us_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00025_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00025.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00025_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cotb00025.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00025_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00025_us_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00025.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00025_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cotb00025.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00025_us_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00025_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00025.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00025_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cotb00025.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00025_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00024_checkTableConstraints">} #+ Check constraints on the "cotb00024" table #+ #+ @param p_data - a row data LIKE cotb00024.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00024_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cotb00024.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cotb00024_term_sp_checkColumnConstraints(p_data.term_sp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00024_descrip_term_checkColumnConstraints(p_data.descrip_term) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00024_descrip_ting_checkColumnConstraints(p_data.descrip_ting) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00024_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00024_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00024_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00024_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00024_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00024_checkTableConstraints {<BLOCK Name="fct.cotb00024_term_sp_checkColumnConstraints">} #+ Check constraints on the "cotb00024.term_sp" column #+ #+ @param p_term_sp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00024_term_sp_checkColumnConstraints(p_term_sp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_term_sp LIKE cotb00024.term_sp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00024_term_sp_checkColumnConstraints {<BLOCK Name="fct.cotb00024_descrip_term_checkColumnConstraints">} #+ Check constraints on the "cotb00024.descrip_term" column #+ #+ @param p_descrip_term - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00024_descrip_term_checkColumnConstraints(p_descrip_term) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip_term LIKE cotb00024.descrip_term LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00024_descrip_term_checkColumnConstraints {<BLOCK Name="fct.cotb00024_descrip_ting_checkColumnConstraints">} #+ Check constraints on the "cotb00024.descrip_ting" column #+ #+ @param p_descrip_ting - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00024_descrip_ting_checkColumnConstraints(p_descrip_ting) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip_ting LIKE cotb00024.descrip_ting LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00024_descrip_ting_checkColumnConstraints {<BLOCK Name="fct.cotb00024_status_t_checkColumnConstraints">} #+ Check constraints on the "cotb00024.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00024_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cotb00024.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00024_status_t_checkColumnConstraints {<BLOCK Name="fct.cotb00024_us_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00024.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00024_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cotb00024.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00024_us_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00024_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00024.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00024_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cotb00024.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00024_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00024_us_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00024.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00024_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cotb00024.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00024_us_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00024_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00024.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00024_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cotb00024.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00024_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00022_checkTableConstraints">} #+ Check constraints on the "cotb00022" table #+ #+ @param p_data - a row data LIKE cotb00022.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00022_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cotb00022.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cotb00022_cod_ca_checkColumnConstraints(p_data.cod_ca) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00022_nom_ca_checkColumnConstraints(p_data.nom_ca) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00022_poliza_checkColumnConstraints(p_data.poliza) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00022_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00022_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00022_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00022_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00022_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00022_checkTableConstraints {<BLOCK Name="fct.cotb00022_cod_ca_checkColumnConstraints">} #+ Check constraints on the "cotb00022.cod_ca" column #+ #+ @param p_cod_ca - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00022_cod_ca_checkColumnConstraints(p_cod_ca) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_ca LIKE cotb00022.cod_ca LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00022_cod_ca_checkColumnConstraints {<BLOCK Name="fct.cotb00022_nom_ca_checkColumnConstraints">} #+ Check constraints on the "cotb00022.nom_ca" column #+ #+ @param p_nom_ca - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00022_nom_ca_checkColumnConstraints(p_nom_ca) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nom_ca LIKE cotb00022.nom_ca LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00022_nom_ca_checkColumnConstraints {<BLOCK Name="fct.cotb00022_poliza_checkColumnConstraints">} #+ Check constraints on the "cotb00022.poliza" column #+ #+ @param p_poliza - CHAR(15) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00022_poliza_checkColumnConstraints(p_poliza) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_poliza LIKE cotb00022.poliza LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00022_poliza_checkColumnConstraints {<BLOCK Name="fct.cotb00022_status_t_checkColumnConstraints">} #+ Check constraints on the "cotb00022.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00022_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cotb00022.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00022_status_t_checkColumnConstraints {<BLOCK Name="fct.cotb00022_us_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00022.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00022_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cotb00022.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00022_us_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00022_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00022.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00022_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cotb00022.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00022_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00022_us_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00022.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00022_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cotb00022.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00022_us_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00022_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00022.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00022_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cotb00022.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00022_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00019_checkTableConstraints">} #+ Check constraints on the "cotb00019" table #+ #+ @param p_data - a row data LIKE cotb00019.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00019_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cotb00019.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cotb00019_cod_pt_checkColumnConstraints(p_data.cod_pt) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00019_nom_pt_checkColumnConstraints(p_data.nom_pt) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00019_cod_pais_checkColumnConstraints(p_data.cod_pais) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00019_ciudad_checkColumnConstraints(p_data.ciudad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00019_duracion_checkColumnConstraints(p_data.duracion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00019_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00019_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00019_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00019_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00019_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00019_checkTableConstraints {<BLOCK Name="fct.cotb00019_cod_pt_checkColumnConstraints">} #+ Check constraints on the "cotb00019.cod_pt" column #+ #+ @param p_cod_pt - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00019_cod_pt_checkColumnConstraints(p_cod_pt) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_pt LIKE cotb00019.cod_pt LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00019_cod_pt_checkColumnConstraints {<BLOCK Name="fct.cotb00019_nom_pt_checkColumnConstraints">} #+ Check constraints on the "cotb00019.nom_pt" column #+ #+ @param p_nom_pt - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00019_nom_pt_checkColumnConstraints(p_nom_pt) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nom_pt LIKE cotb00019.nom_pt LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00019_nom_pt_checkColumnConstraints {<BLOCK Name="fct.cotb00019_cod_pais_checkColumnConstraints">} #+ Check constraints on the "cotb00019.cod_pais" column #+ #+ @param p_cod_pais - CHAR(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00019_cod_pais_checkColumnConstraints(p_cod_pais) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_pais LIKE cotb00019.cod_pais LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00019_cod_pais_checkColumnConstraints {<BLOCK Name="fct.cotb00019_ciudad_checkColumnConstraints">} #+ Check constraints on the "cotb00019.ciudad" column #+ #+ @param p_ciudad - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00019_ciudad_checkColumnConstraints(p_ciudad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ciudad LIKE cotb00019.ciudad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00019_ciudad_checkColumnConstraints {<BLOCK Name="fct.cotb00019_duracion_checkColumnConstraints">} #+ Check constraints on the "cotb00019.duracion" column #+ #+ @param p_duracion - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00019_duracion_checkColumnConstraints(p_duracion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_duracion LIKE cotb00019.duracion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00019_duracion_checkColumnConstraints {<BLOCK Name="fct.cotb00019_status_t_checkColumnConstraints">} #+ Check constraints on the "cotb00019.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00019_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cotb00019.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00019_status_t_checkColumnConstraints {<BLOCK Name="fct.cotb00019_us_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00019.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00019_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cotb00019.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00019_us_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00019_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00019.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00019_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cotb00019.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00019_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00019_us_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00019.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00019_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cotb00019.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00019_us_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00019_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00019.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00019_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cotb00019.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00019_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00018_checkTableConstraints">} #+ Check constraints on the "cotb00018" table #+ #+ @param p_data - a row data LIKE cotb00018.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00018_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cotb00018.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cotb00018_cod_pais_checkColumnConstraints(p_data.cod_pais) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00018_nom_pais_checkColumnConstraints(p_data.nom_pais) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00018_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00018_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00018_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00018_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00018_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00018_checkTableConstraints {<BLOCK Name="fct.cotb00018_cod_pais_checkColumnConstraints">} #+ Check constraints on the "cotb00018.cod_pais" column #+ #+ @param p_cod_pais - CHAR(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00018_cod_pais_checkColumnConstraints(p_cod_pais) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_pais LIKE cotb00018.cod_pais LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00018_cod_pais_checkColumnConstraints {<BLOCK Name="fct.cotb00018_nom_pais_checkColumnConstraints">} #+ Check constraints on the "cotb00018.nom_pais" column #+ #+ @param p_nom_pais - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00018_nom_pais_checkColumnConstraints(p_nom_pais) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nom_pais LIKE cotb00018.nom_pais LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00018_nom_pais_checkColumnConstraints {<BLOCK Name="fct.cotb00018_status_t_checkColumnConstraints">} #+ Check constraints on the "cotb00018.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00018_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cotb00018.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00018_status_t_checkColumnConstraints {<BLOCK Name="fct.cotb00018_us_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00018.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00018_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cotb00018.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00018_us_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00018_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00018.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00018_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cotb00018.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00018_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00018_us_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00018.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00018_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cotb00018.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00018_us_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00018_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00018.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00018_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cotb00018.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00018_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00017_checkTableConstraints">} #+ Check constraints on the "cotb00017" table #+ #+ @param p_data - a row data LIKE cotb00017.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00017_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cotb00017.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cotb00017_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00017_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00017_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00017_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00017_procedencia_checkColumnConstraints(p_data.procedencia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00017_cod_pt_checkColumnConstraints(p_data.cod_pt) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00017_via_t_checkColumnConstraints(p_data.via_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00017_seguro_checkColumnConstraints(p_data.seguro) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00017_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00017_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00017_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00017_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00017_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00017_checkTableConstraints {<BLOCK Name="fct.cotb00017_cod_n_checkColumnConstraints">} #+ Check constraints on the "cotb00017.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00017_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE cotb00017.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00017_cod_n_checkColumnConstraints {<BLOCK Name="fct.cotb00017_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "cotb00017.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00017_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE cotb00017.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00017_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.cotb00017_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "cotb00017.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00017_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE cotb00017.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00017_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.cotb00017_cod_sec_checkColumnConstraints">} #+ Check constraints on the "cotb00017.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00017_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE cotb00017.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00017_cod_sec_checkColumnConstraints {<BLOCK Name="fct.cotb00017_procedencia_checkColumnConstraints">} #+ Check constraints on the "cotb00017.procedencia" column #+ #+ @param p_procedencia - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00017_procedencia_checkColumnConstraints(p_procedencia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_procedencia LIKE cotb00017.procedencia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00017_procedencia_checkColumnConstraints {<BLOCK Name="fct.cotb00017_cod_pt_checkColumnConstraints">} #+ Check constraints on the "cotb00017.cod_pt" column #+ #+ @param p_cod_pt - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00017_cod_pt_checkColumnConstraints(p_cod_pt) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_pt LIKE cotb00017.cod_pt LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00017_cod_pt_checkColumnConstraints {<BLOCK Name="fct.cotb00017_via_t_checkColumnConstraints">} #+ Check constraints on the "cotb00017.via_t" column #+ #+ @param p_via_t - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00017_via_t_checkColumnConstraints(p_via_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_via_t LIKE cotb00017.via_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00017_via_t_checkColumnConstraints {<BLOCK Name="fct.cotb00017_seguro_checkColumnConstraints">} #+ Check constraints on the "cotb00017.seguro" column #+ #+ @param p_seguro - DECIMAL(5,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00017_seguro_checkColumnConstraints(p_seguro) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_seguro LIKE cotb00017.seguro LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00017_seguro_checkColumnConstraints {<BLOCK Name="fct.cotb00017_status_t_checkColumnConstraints">} #+ Check constraints on the "cotb00017.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00017_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cotb00017.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00017_status_t_checkColumnConstraints {<BLOCK Name="fct.cotb00017_us_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00017.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00017_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cotb00017.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00017_us_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00017_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00017.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00017_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cotb00017.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00017_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00017_us_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00017.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00017_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cotb00017.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00017_us_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00017_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00017.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00017_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cotb00017.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00017_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00015_checkTableConstraints">} #+ Check constraints on the "cotb00015" table #+ #+ @param p_data - a row data LIKE cotb00015.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00015_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cotb00015.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cotb00015_num_oc_checkColumnConstraints(p_data.num_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00015_num_req_checkColumnConstraints(p_data.num_req) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00015_tipo_checkColumnConstraints(p_data.tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00015_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00015_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00015_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00015_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00015_num_parte_checkColumnConstraints(p_data.num_parte) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00015_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00015_precio_checkColumnConstraints(p_data.precio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00015_cod_mon_checkColumnConstraints(p_data.cod_mon) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00015_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00015_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00015_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00015_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00015_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00015_checkTableConstraints {<BLOCK Name="fct.cotb00015_num_oc_checkColumnConstraints">} #+ Check constraints on the "cotb00015.num_oc" column #+ #+ @param p_num_oc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00015_num_oc_checkColumnConstraints(p_num_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_oc LIKE cotb00015.num_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00015_num_oc_checkColumnConstraints {<BLOCK Name="fct.cotb00015_num_req_checkColumnConstraints">} #+ Check constraints on the "cotb00015.num_req" column #+ #+ @param p_num_req - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00015_num_req_checkColumnConstraints(p_num_req) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_req LIKE cotb00015.num_req LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00015_num_req_checkColumnConstraints {<BLOCK Name="fct.cotb00015_tipo_checkColumnConstraints">} #+ Check constraints on the "cotb00015.tipo" column #+ #+ @param p_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00015_tipo_checkColumnConstraints(p_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo LIKE cotb00015.tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00015_tipo_checkColumnConstraints {<BLOCK Name="fct.cotb00015_cod_n_checkColumnConstraints">} #+ Check constraints on the "cotb00015.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00015_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE cotb00015.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00015_cod_n_checkColumnConstraints {<BLOCK Name="fct.cotb00015_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "cotb00015.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00015_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE cotb00015.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00015_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.cotb00015_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "cotb00015.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00015_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE cotb00015.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00015_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.cotb00015_cod_sec_checkColumnConstraints">} #+ Check constraints on the "cotb00015.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00015_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE cotb00015.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00015_cod_sec_checkColumnConstraints {<BLOCK Name="fct.cotb00015_num_parte_checkColumnConstraints">} #+ Check constraints on the "cotb00015.num_parte" column #+ #+ @param p_num_parte - CHAR(12) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00015_num_parte_checkColumnConstraints(p_num_parte) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_parte LIKE cotb00015.num_parte LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00015_num_parte_checkColumnConstraints {<BLOCK Name="fct.cotb00015_cantidad_checkColumnConstraints">} #+ Check constraints on the "cotb00015.cantidad" column #+ #+ @param p_cantidad - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00015_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE cotb00015.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00015_cantidad_checkColumnConstraints {<BLOCK Name="fct.cotb00015_precio_checkColumnConstraints">} #+ Check constraints on the "cotb00015.precio" column #+ #+ @param p_precio - DECIMAL(11,3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00015_precio_checkColumnConstraints(p_precio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_precio LIKE cotb00015.precio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00015_precio_checkColumnConstraints {<BLOCK Name="fct.cotb00015_cod_mon_checkColumnConstraints">} #+ Check constraints on the "cotb00015.cod_mon" column #+ #+ @param p_cod_mon - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00015_cod_mon_checkColumnConstraints(p_cod_mon) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mon LIKE cotb00015.cod_mon LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00015_cod_mon_checkColumnConstraints {<BLOCK Name="fct.cotb00015_status_t_checkColumnConstraints">} #+ Check constraints on the "cotb00015.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00015_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cotb00015.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00015_status_t_checkColumnConstraints {<BLOCK Name="fct.cotb00015_us_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00015.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00015_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cotb00015.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00015_us_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00015_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00015.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00015_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cotb00015.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00015_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00015_us_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00015.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00015_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cotb00015.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00015_us_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00015_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00015.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00015_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cotb00015.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00015_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00014_checkTableConstraints">} #+ Check constraints on the "cotb00014" table #+ #+ @param p_data - a row data LIKE cotb00014.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00014_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cotb00014.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cotb00014_num_oc_checkColumnConstraints(p_data.num_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00014_tipo_checkColumnConstraints(p_data.tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00014_fech_oc_checkColumnConstraints(p_data.fech_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00014_num_pr_checkColumnConstraints(p_data.num_pr) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00014_cod_sp_checkColumnConstraints(p_data.cod_sp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00014_cod_sp_sec_checkColumnConstraints(p_data.cod_sp_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00014_term_sp_checkColumnConstraints(p_data.term_sp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00014_via_checkColumnConstraints(p_data.via) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00014_enviada_checkColumnConstraints(p_data.enviada) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00014_fech_enviada_checkColumnConstraints(p_data.fech_enviada) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00014_pago_checkColumnConstraints(p_data.pago) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00014_fech_pago_checkColumnConstraints(p_data.fech_pago) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00014_cierre_checkColumnConstraints(p_data.cierre) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00014_cod_pt_checkColumnConstraints(p_data.cod_pt) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00014_c_flete_checkColumnConstraints(p_data.c_flete) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00014_otros_g_checkColumnConstraints(p_data.otros_g) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00014_detalle_checkColumnConstraints(p_data.detalle) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00014_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00014_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00014_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00014_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00014_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00014_checkTableConstraints {<BLOCK Name="fct.cotb00014_num_oc_checkColumnConstraints">} #+ Check constraints on the "cotb00014.num_oc" column #+ #+ @param p_num_oc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00014_num_oc_checkColumnConstraints(p_num_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_oc LIKE cotb00014.num_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_num_oc IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- num_oc: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00014_num_oc_checkColumnConstraints {<BLOCK Name="fct.cotb00014_tipo_checkColumnConstraints">} #+ Check constraints on the "cotb00014.tipo" column #+ #+ @param p_tipo - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00014_tipo_checkColumnConstraints(p_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo LIKE cotb00014.tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00014_tipo_checkColumnConstraints {<BLOCK Name="fct.cotb00014_fech_oc_checkColumnConstraints">} #+ Check constraints on the "cotb00014.fech_oc" column #+ #+ @param p_fech_oc - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00014_fech_oc_checkColumnConstraints(p_fech_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_oc LIKE cotb00014.fech_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00014_fech_oc_checkColumnConstraints {<BLOCK Name="fct.cotb00014_num_pr_checkColumnConstraints">} #+ Check constraints on the "cotb00014.num_pr" column #+ #+ @param p_num_pr - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00014_num_pr_checkColumnConstraints(p_num_pr) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_pr LIKE cotb00014.num_pr LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00014_num_pr_checkColumnConstraints {<BLOCK Name="fct.cotb00014_cod_sp_checkColumnConstraints">} #+ Check constraints on the "cotb00014.cod_sp" column #+ #+ @param p_cod_sp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00014_cod_sp_checkColumnConstraints(p_cod_sp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp LIKE cotb00014.cod_sp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00014_cod_sp_checkColumnConstraints {<BLOCK Name="fct.cotb00014_cod_sp_sec_checkColumnConstraints">} #+ Check constraints on the "cotb00014.cod_sp_sec" column #+ #+ @param p_cod_sp_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00014_cod_sp_sec_checkColumnConstraints(p_cod_sp_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp_sec LIKE cotb00014.cod_sp_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00014_cod_sp_sec_checkColumnConstraints {<BLOCK Name="fct.cotb00014_term_sp_checkColumnConstraints">} #+ Check constraints on the "cotb00014.term_sp" column #+ #+ @param p_term_sp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00014_term_sp_checkColumnConstraints(p_term_sp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_term_sp LIKE cotb00014.term_sp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00014_term_sp_checkColumnConstraints {<BLOCK Name="fct.cotb00014_via_checkColumnConstraints">} #+ Check constraints on the "cotb00014.via" column #+ #+ @param p_via - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00014_via_checkColumnConstraints(p_via) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_via LIKE cotb00014.via LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00014_via_checkColumnConstraints {<BLOCK Name="fct.cotb00014_enviada_checkColumnConstraints">} #+ Check constraints on the "cotb00014.enviada" column #+ #+ @param p_enviada - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00014_enviada_checkColumnConstraints(p_enviada) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_enviada LIKE cotb00014.enviada LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00014_enviada_checkColumnConstraints {<BLOCK Name="fct.cotb00014_fech_enviada_checkColumnConstraints">} #+ Check constraints on the "cotb00014.fech_enviada" column #+ #+ @param p_fech_enviada - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00014_fech_enviada_checkColumnConstraints(p_fech_enviada) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_enviada LIKE cotb00014.fech_enviada LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00014_fech_enviada_checkColumnConstraints {<BLOCK Name="fct.cotb00014_pago_checkColumnConstraints">} #+ Check constraints on the "cotb00014.pago" column #+ #+ @param p_pago - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00014_pago_checkColumnConstraints(p_pago) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_pago LIKE cotb00014.pago LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00014_pago_checkColumnConstraints {<BLOCK Name="fct.cotb00014_fech_pago_checkColumnConstraints">} #+ Check constraints on the "cotb00014.fech_pago" column #+ #+ @param p_fech_pago - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00014_fech_pago_checkColumnConstraints(p_fech_pago) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_pago LIKE cotb00014.fech_pago LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00014_fech_pago_checkColumnConstraints {<BLOCK Name="fct.cotb00014_cierre_checkColumnConstraints">} #+ Check constraints on the "cotb00014.cierre" column #+ #+ @param p_cierre - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00014_cierre_checkColumnConstraints(p_cierre) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cierre LIKE cotb00014.cierre LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00014_cierre_checkColumnConstraints {<BLOCK Name="fct.cotb00014_cod_pt_checkColumnConstraints">} #+ Check constraints on the "cotb00014.cod_pt" column #+ #+ @param p_cod_pt - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00014_cod_pt_checkColumnConstraints(p_cod_pt) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_pt LIKE cotb00014.cod_pt LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00014_cod_pt_checkColumnConstraints {<BLOCK Name="fct.cotb00014_c_flete_checkColumnConstraints">} #+ Check constraints on the "cotb00014.c_flete" column #+ #+ @param p_c_flete - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00014_c_flete_checkColumnConstraints(p_c_flete) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_c_flete LIKE cotb00014.c_flete LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00014_c_flete_checkColumnConstraints {<BLOCK Name="fct.cotb00014_otros_g_checkColumnConstraints">} #+ Check constraints on the "cotb00014.otros_g" column #+ #+ @param p_otros_g - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00014_otros_g_checkColumnConstraints(p_otros_g) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_otros_g LIKE cotb00014.otros_g LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00014_otros_g_checkColumnConstraints {<BLOCK Name="fct.cotb00014_detalle_checkColumnConstraints">} #+ Check constraints on the "cotb00014.detalle" column #+ #+ @param p_detalle - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00014_detalle_checkColumnConstraints(p_detalle) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_detalle LIKE cotb00014.detalle LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00014_detalle_checkColumnConstraints {<BLOCK Name="fct.cotb00014_status_t_checkColumnConstraints">} #+ Check constraints on the "cotb00014.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00014_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cotb00014.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00014_status_t_checkColumnConstraints {<BLOCK Name="fct.cotb00014_us_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00014.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00014_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cotb00014.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00014_us_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00014_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00014.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00014_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cotb00014.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00014_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00014_us_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00014.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00014_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cotb00014.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00014_us_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00014_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00014.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00014_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cotb00014.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00014_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00013_checkTableConstraints">} #+ Check constraints on the "cotb00013" table #+ #+ @param p_data - a row data LIKE cotb00013.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00013_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cotb00013.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cotb00013_num_pr_checkColumnConstraints(p_data.num_pr) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00013_tipo_checkColumnConstraints(p_data.tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00013_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00013_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00013_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00013_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00013_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00013_costo_mp_checkColumnConstraints(p_data.costo_mp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00013_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00013_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00013_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00013_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00013_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00013_checkTableConstraints {<BLOCK Name="fct.cotb00013_num_pr_checkColumnConstraints">} #+ Check constraints on the "cotb00013.num_pr" column #+ #+ @param p_num_pr - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00013_num_pr_checkColumnConstraints(p_num_pr) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_pr LIKE cotb00013.num_pr LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00013_num_pr_checkColumnConstraints {<BLOCK Name="fct.cotb00013_tipo_checkColumnConstraints">} #+ Check constraints on the "cotb00013.tipo" column #+ #+ @param p_tipo - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00013_tipo_checkColumnConstraints(p_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo LIKE cotb00013.tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00013_tipo_checkColumnConstraints {<BLOCK Name="fct.cotb00013_cod_n_checkColumnConstraints">} #+ Check constraints on the "cotb00013.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00013_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE cotb00013.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00013_cod_n_checkColumnConstraints {<BLOCK Name="fct.cotb00013_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "cotb00013.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00013_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE cotb00013.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00013_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.cotb00013_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "cotb00013.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00013_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE cotb00013.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00013_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.cotb00013_cod_sec_checkColumnConstraints">} #+ Check constraints on the "cotb00013.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00013_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE cotb00013.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00013_cod_sec_checkColumnConstraints {<BLOCK Name="fct.cotb00013_cantidad_checkColumnConstraints">} #+ Check constraints on the "cotb00013.cantidad" column #+ #+ @param p_cantidad - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00013_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE cotb00013.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00013_cantidad_checkColumnConstraints {<BLOCK Name="fct.cotb00013_costo_mp_checkColumnConstraints">} #+ Check constraints on the "cotb00013.costo_mp" column #+ #+ @param p_costo_mp - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00013_costo_mp_checkColumnConstraints(p_costo_mp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_costo_mp LIKE cotb00013.costo_mp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00013_costo_mp_checkColumnConstraints {<BLOCK Name="fct.cotb00013_status_t_checkColumnConstraints">} #+ Check constraints on the "cotb00013.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00013_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cotb00013.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00013_status_t_checkColumnConstraints {<BLOCK Name="fct.cotb00013_us_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00013.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00013_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cotb00013.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00013_us_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00013_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00013.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00013_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cotb00013.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00013_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00013_us_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00013.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00013_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cotb00013.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00013_us_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00013_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00013.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00013_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cotb00013.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00013_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00012_checkTableConstraints">} #+ Check constraints on the "cotb00012" table #+ #+ @param p_data - a row data LIKE cotb00012.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00012_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cotb00012.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cotb00012_num_pr_checkColumnConstraints(p_data.num_pr) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00012_tipo_checkColumnConstraints(p_data.tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00012_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00012_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00012_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00012_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00012_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00012_costo_mp_checkColumnConstraints(p_data.costo_mp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00012_fech_emb_checkColumnConstraints(p_data.fech_emb) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00012_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00012_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00012_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00012_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00012_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00012_checkTableConstraints {<BLOCK Name="fct.cotb00012_num_pr_checkColumnConstraints">} #+ Check constraints on the "cotb00012.num_pr" column #+ #+ @param p_num_pr - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00012_num_pr_checkColumnConstraints(p_num_pr) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_pr LIKE cotb00012.num_pr LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00012_num_pr_checkColumnConstraints {<BLOCK Name="fct.cotb00012_tipo_checkColumnConstraints">} #+ Check constraints on the "cotb00012.tipo" column #+ #+ @param p_tipo - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00012_tipo_checkColumnConstraints(p_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo LIKE cotb00012.tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00012_tipo_checkColumnConstraints {<BLOCK Name="fct.cotb00012_cod_n_checkColumnConstraints">} #+ Check constraints on the "cotb00012.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00012_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE cotb00012.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00012_cod_n_checkColumnConstraints {<BLOCK Name="fct.cotb00012_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "cotb00012.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00012_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE cotb00012.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00012_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.cotb00012_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "cotb00012.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00012_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE cotb00012.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00012_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.cotb00012_cod_sec_checkColumnConstraints">} #+ Check constraints on the "cotb00012.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00012_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE cotb00012.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00012_cod_sec_checkColumnConstraints {<BLOCK Name="fct.cotb00012_cantidad_checkColumnConstraints">} #+ Check constraints on the "cotb00012.cantidad" column #+ #+ @param p_cantidad - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00012_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE cotb00012.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00012_cantidad_checkColumnConstraints {<BLOCK Name="fct.cotb00012_costo_mp_checkColumnConstraints">} #+ Check constraints on the "cotb00012.costo_mp" column #+ #+ @param p_costo_mp - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00012_costo_mp_checkColumnConstraints(p_costo_mp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_costo_mp LIKE cotb00012.costo_mp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00012_costo_mp_checkColumnConstraints {<BLOCK Name="fct.cotb00012_fech_emb_checkColumnConstraints">} #+ Check constraints on the "cotb00012.fech_emb" column #+ #+ @param p_fech_emb - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00012_fech_emb_checkColumnConstraints(p_fech_emb) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_emb LIKE cotb00012.fech_emb LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00012_fech_emb_checkColumnConstraints {<BLOCK Name="fct.cotb00012_status_t_checkColumnConstraints">} #+ Check constraints on the "cotb00012.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00012_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cotb00012.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00012_status_t_checkColumnConstraints {<BLOCK Name="fct.cotb00012_us_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00012.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00012_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cotb00012.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00012_us_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00012_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00012.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00012_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cotb00012.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00012_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00012_us_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00012.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00012_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cotb00012.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00012_us_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00012_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00012.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00012_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cotb00012.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00012_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00011_checkTableConstraints">} #+ Check constraints on the "cotb00011" table #+ #+ @param p_data - a row data LIKE cotb00011.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00011_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cotb00011.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cotb00011_num_pr_checkColumnConstraints(p_data.num_pr) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00011_cod_sp_checkColumnConstraints(p_data.cod_sp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00011_cod_sp_sec_checkColumnConstraints(p_data.cod_sp_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00011_cod_pais_checkColumnConstraints(p_data.cod_pais) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00011_cod_pt_checkColumnConstraints(p_data.cod_pt) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00011_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00011_flete_checkColumnConstraints(p_data.flete) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00011_decl_cons_checkColumnConstraints(p_data.decl_cons) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00011_otros_imp_checkColumnConstraints(p_data.otros_imp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00011_term_sp_checkColumnConstraints(p_data.term_sp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00011_descrip_term_checkColumnConstraints(p_data.descrip_term) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00011_via_checkColumnConstraints(p_data.via) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00011_procesada_checkColumnConstraints(p_data.procesada) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00011_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00011_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00011_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00011_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00011_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00011_checkTableConstraints {<BLOCK Name="fct.cotb00011_num_pr_checkColumnConstraints">} #+ Check constraints on the "cotb00011.num_pr" column #+ #+ @param p_num_pr - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00011_num_pr_checkColumnConstraints(p_num_pr) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_pr LIKE cotb00011.num_pr LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00011_num_pr_checkColumnConstraints {<BLOCK Name="fct.cotb00011_cod_sp_checkColumnConstraints">} #+ Check constraints on the "cotb00011.cod_sp" column #+ #+ @param p_cod_sp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00011_cod_sp_checkColumnConstraints(p_cod_sp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp LIKE cotb00011.cod_sp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00011_cod_sp_checkColumnConstraints {<BLOCK Name="fct.cotb00011_cod_sp_sec_checkColumnConstraints">} #+ Check constraints on the "cotb00011.cod_sp_sec" column #+ #+ @param p_cod_sp_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00011_cod_sp_sec_checkColumnConstraints(p_cod_sp_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp_sec LIKE cotb00011.cod_sp_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00011_cod_sp_sec_checkColumnConstraints {<BLOCK Name="fct.cotb00011_cod_pais_checkColumnConstraints">} #+ Check constraints on the "cotb00011.cod_pais" column #+ #+ @param p_cod_pais - CHAR(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00011_cod_pais_checkColumnConstraints(p_cod_pais) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_pais LIKE cotb00011.cod_pais LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00011_cod_pais_checkColumnConstraints {<BLOCK Name="fct.cotb00011_cod_pt_checkColumnConstraints">} #+ Check constraints on the "cotb00011.cod_pt" column #+ #+ @param p_cod_pt - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00011_cod_pt_checkColumnConstraints(p_cod_pt) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_pt LIKE cotb00011.cod_pt LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00011_cod_pt_checkColumnConstraints {<BLOCK Name="fct.cotb00011_fecha_checkColumnConstraints">} #+ Check constraints on the "cotb00011.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00011_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE cotb00011.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00011_fecha_checkColumnConstraints {<BLOCK Name="fct.cotb00011_flete_checkColumnConstraints">} #+ Check constraints on the "cotb00011.flete" column #+ #+ @param p_flete - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00011_flete_checkColumnConstraints(p_flete) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_flete LIKE cotb00011.flete LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00011_flete_checkColumnConstraints {<BLOCK Name="fct.cotb00011_decl_cons_checkColumnConstraints">} #+ Check constraints on the "cotb00011.decl_cons" column #+ #+ @param p_decl_cons - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00011_decl_cons_checkColumnConstraints(p_decl_cons) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_decl_cons LIKE cotb00011.decl_cons LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00011_decl_cons_checkColumnConstraints {<BLOCK Name="fct.cotb00011_otros_imp_checkColumnConstraints">} #+ Check constraints on the "cotb00011.otros_imp" column #+ #+ @param p_otros_imp - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00011_otros_imp_checkColumnConstraints(p_otros_imp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_otros_imp LIKE cotb00011.otros_imp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00011_otros_imp_checkColumnConstraints {<BLOCK Name="fct.cotb00011_term_sp_checkColumnConstraints">} #+ Check constraints on the "cotb00011.term_sp" column #+ #+ @param p_term_sp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00011_term_sp_checkColumnConstraints(p_term_sp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_term_sp LIKE cotb00011.term_sp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00011_term_sp_checkColumnConstraints {<BLOCK Name="fct.cotb00011_descrip_term_checkColumnConstraints">} #+ Check constraints on the "cotb00011.descrip_term" column #+ #+ @param p_descrip_term - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00011_descrip_term_checkColumnConstraints(p_descrip_term) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip_term LIKE cotb00011.descrip_term LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00011_descrip_term_checkColumnConstraints {<BLOCK Name="fct.cotb00011_via_checkColumnConstraints">} #+ Check constraints on the "cotb00011.via" column #+ #+ @param p_via - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00011_via_checkColumnConstraints(p_via) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_via LIKE cotb00011.via LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00011_via_checkColumnConstraints {<BLOCK Name="fct.cotb00011_procesada_checkColumnConstraints">} #+ Check constraints on the "cotb00011.procesada" column #+ #+ @param p_procesada - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00011_procesada_checkColumnConstraints(p_procesada) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_procesada LIKE cotb00011.procesada LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00011_procesada_checkColumnConstraints {<BLOCK Name="fct.cotb00011_status_t_checkColumnConstraints">} #+ Check constraints on the "cotb00011.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00011_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cotb00011.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00011_status_t_checkColumnConstraints {<BLOCK Name="fct.cotb00011_us_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00011.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00011_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cotb00011.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00011_us_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00011_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00011.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00011_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cotb00011.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00011_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00011_us_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00011.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00011_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cotb00011.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00011_us_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00011_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00011.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00011_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cotb00011.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00011_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00010_checkTableConstraints">} #+ Check constraints on the "cotb00010" table #+ #+ @param p_data - a row data LIKE cotb00010.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00010_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cotb00010.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cotb00010_tipo_checkColumnConstraints(p_data.tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00010_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00010_checkTableConstraints {<BLOCK Name="fct.cotb00010_tipo_checkColumnConstraints">} #+ Check constraints on the "cotb00010.tipo" column #+ #+ @param p_tipo - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00010_tipo_checkColumnConstraints(p_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo LIKE cotb00010.tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00010_tipo_checkColumnConstraints {<BLOCK Name="fct.cotb00010_descripcion_checkColumnConstraints">} #+ Check constraints on the "cotb00010.descripcion" column #+ #+ @param p_descripcion - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00010_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE cotb00010.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00010_descripcion_checkColumnConstraints {<BLOCK Name="fct.cotb00008_checkTableConstraints">} #+ Check constraints on the "cotb00008" table #+ #+ @param p_data - a row data LIKE cotb00008.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00008_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cotb00008.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cotb00008_num_req_checkColumnConstraints(p_data.num_req) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00008_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00008_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00008_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00008_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00008_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00008_cod_sp_checkColumnConstraints(p_data.cod_sp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00008_cod_sp_sec_checkColumnConstraints(p_data.cod_sp_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00008_precio_checkColumnConstraints(p_data.precio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00008_procesada_checkColumnConstraints(p_data.procesada) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00008_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00008_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00008_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00008_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00008_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00008_checkTableConstraints {<BLOCK Name="fct.cotb00008_num_req_checkColumnConstraints">} #+ Check constraints on the "cotb00008.num_req" column #+ #+ @param p_num_req - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00008_num_req_checkColumnConstraints(p_num_req) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_req LIKE cotb00008.num_req LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00008_num_req_checkColumnConstraints {<BLOCK Name="fct.cotb00008_cod_n_checkColumnConstraints">} #+ Check constraints on the "cotb00008.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00008_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE cotb00008.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00008_cod_n_checkColumnConstraints {<BLOCK Name="fct.cotb00008_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "cotb00008.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00008_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE cotb00008.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00008_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.cotb00008_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "cotb00008.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00008_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE cotb00008.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00008_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.cotb00008_cod_sec_checkColumnConstraints">} #+ Check constraints on the "cotb00008.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00008_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE cotb00008.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00008_cod_sec_checkColumnConstraints {<BLOCK Name="fct.cotb00008_cantidad_checkColumnConstraints">} #+ Check constraints on the "cotb00008.cantidad" column #+ #+ @param p_cantidad - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00008_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE cotb00008.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00008_cantidad_checkColumnConstraints {<BLOCK Name="fct.cotb00008_cod_sp_checkColumnConstraints">} #+ Check constraints on the "cotb00008.cod_sp" column #+ #+ @param p_cod_sp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00008_cod_sp_checkColumnConstraints(p_cod_sp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp LIKE cotb00008.cod_sp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00008_cod_sp_checkColumnConstraints {<BLOCK Name="fct.cotb00008_cod_sp_sec_checkColumnConstraints">} #+ Check constraints on the "cotb00008.cod_sp_sec" column #+ #+ @param p_cod_sp_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00008_cod_sp_sec_checkColumnConstraints(p_cod_sp_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp_sec LIKE cotb00008.cod_sp_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00008_cod_sp_sec_checkColumnConstraints {<BLOCK Name="fct.cotb00008_precio_checkColumnConstraints">} #+ Check constraints on the "cotb00008.precio" column #+ #+ @param p_precio - DECIMAL(11,3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00008_precio_checkColumnConstraints(p_precio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_precio LIKE cotb00008.precio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00008_precio_checkColumnConstraints {<BLOCK Name="fct.cotb00008_procesada_checkColumnConstraints">} #+ Check constraints on the "cotb00008.procesada" column #+ #+ @param p_procesada - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00008_procesada_checkColumnConstraints(p_procesada) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_procesada LIKE cotb00008.procesada LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00008_procesada_checkColumnConstraints {<BLOCK Name="fct.cotb00008_status_t_checkColumnConstraints">} #+ Check constraints on the "cotb00008.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00008_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cotb00008.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00008_status_t_checkColumnConstraints {<BLOCK Name="fct.cotb00008_us_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00008.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00008_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cotb00008.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00008_us_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00008_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00008.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00008_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cotb00008.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00008_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00008_us_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00008.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00008_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cotb00008.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00008_us_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00008_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00008.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00008_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cotb00008.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00008_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00006_checkTableConstraints">} #+ Check constraints on the "cotb00006" table #+ #+ @param p_data - a row data LIKE cotb00006.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00006_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cotb00006.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cotb00006_num_req_checkColumnConstraints(p_data.num_req) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00006_fech_req_checkColumnConstraints(p_data.fech_req) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00006_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00006_cod_emp_sec_checkColumnConstraints(p_data.cod_emp_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00006_fech_ent_checkColumnConstraints(p_data.fech_ent) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00006_uso_checkColumnConstraints(p_data.uso) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00006_prioridad_checkColumnConstraints(p_data.prioridad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00006_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00006_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00006_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00006_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00006_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00006_checkTableConstraints {<BLOCK Name="fct.cotb00006_num_req_checkColumnConstraints">} #+ Check constraints on the "cotb00006.num_req" column #+ #+ @param p_num_req - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00006_num_req_checkColumnConstraints(p_num_req) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_req LIKE cotb00006.num_req LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_num_req IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- num_req: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00006_num_req_checkColumnConstraints {<BLOCK Name="fct.cotb00006_fech_req_checkColumnConstraints">} #+ Check constraints on the "cotb00006.fech_req" column #+ #+ @param p_fech_req - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00006_fech_req_checkColumnConstraints(p_fech_req) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_req LIKE cotb00006.fech_req LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00006_fech_req_checkColumnConstraints {<BLOCK Name="fct.cotb00006_departamento_checkColumnConstraints">} #+ Check constraints on the "cotb00006.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00006_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE cotb00006.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00006_departamento_checkColumnConstraints {<BLOCK Name="fct.cotb00006_cod_emp_sec_checkColumnConstraints">} #+ Check constraints on the "cotb00006.cod_emp_sec" column #+ #+ @param p_cod_emp_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00006_cod_emp_sec_checkColumnConstraints(p_cod_emp_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_emp_sec LIKE cotb00006.cod_emp_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00006_cod_emp_sec_checkColumnConstraints {<BLOCK Name="fct.cotb00006_fech_ent_checkColumnConstraints">} #+ Check constraints on the "cotb00006.fech_ent" column #+ #+ @param p_fech_ent - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00006_fech_ent_checkColumnConstraints(p_fech_ent) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_ent LIKE cotb00006.fech_ent LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00006_fech_ent_checkColumnConstraints {<BLOCK Name="fct.cotb00006_uso_checkColumnConstraints">} #+ Check constraints on the "cotb00006.uso" column #+ #+ @param p_uso - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00006_uso_checkColumnConstraints(p_uso) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_uso LIKE cotb00006.uso LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00006_uso_checkColumnConstraints {<BLOCK Name="fct.cotb00006_prioridad_checkColumnConstraints">} #+ Check constraints on the "cotb00006.prioridad" column #+ #+ @param p_prioridad - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00006_prioridad_checkColumnConstraints(p_prioridad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_prioridad LIKE cotb00006.prioridad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00006_prioridad_checkColumnConstraints {<BLOCK Name="fct.cotb00006_status_t_checkColumnConstraints">} #+ Check constraints on the "cotb00006.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00006_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cotb00006.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00006_status_t_checkColumnConstraints {<BLOCK Name="fct.cotb00006_us_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00006.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00006_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cotb00006.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00006_us_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00006_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00006.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00006_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cotb00006.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00006_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00006_us_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00006.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00006_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cotb00006.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00006_us_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00006_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00006.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00006_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cotb00006.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00006_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00005_checkTableConstraints">} #+ Check constraints on the "cotb00005" table #+ #+ @param p_data - a row data LIKE cotb00005.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00005_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cotb00005.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cotb00005_cod_nab_checkColumnConstraints(p_data.cod_nab) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00005_descrip_esp_checkColumnConstraints(p_data.descrip_esp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00005_descrip_ing_checkColumnConstraints(p_data.descrip_ing) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00005_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00005_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00005_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00005_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00005_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00005_checkTableConstraints {<BLOCK Name="fct.cotb00005_cod_nab_checkColumnConstraints">} #+ Check constraints on the "cotb00005.cod_nab" column #+ #+ @param p_cod_nab - CHAR(11) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00005_cod_nab_checkColumnConstraints(p_cod_nab) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_nab LIKE cotb00005.cod_nab LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00005_cod_nab_checkColumnConstraints {<BLOCK Name="fct.cotb00005_descrip_esp_checkColumnConstraints">} #+ Check constraints on the "cotb00005.descrip_esp" column #+ #+ @param p_descrip_esp - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00005_descrip_esp_checkColumnConstraints(p_descrip_esp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip_esp LIKE cotb00005.descrip_esp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00005_descrip_esp_checkColumnConstraints {<BLOCK Name="fct.cotb00005_descrip_ing_checkColumnConstraints">} #+ Check constraints on the "cotb00005.descrip_ing" column #+ #+ @param p_descrip_ing - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00005_descrip_ing_checkColumnConstraints(p_descrip_ing) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip_ing LIKE cotb00005.descrip_ing LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00005_descrip_ing_checkColumnConstraints {<BLOCK Name="fct.cotb00005_status_t_checkColumnConstraints">} #+ Check constraints on the "cotb00005.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00005_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cotb00005.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00005_status_t_checkColumnConstraints {<BLOCK Name="fct.cotb00005_us_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00005.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00005_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cotb00005.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00005_us_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00005_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00005.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00005_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cotb00005.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00005_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00005_us_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00005.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00005_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cotb00005.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00005_us_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00005_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00005.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00005_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cotb00005.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00005_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00004_checkTableConstraints">} #+ Check constraints on the "cotb00004" table #+ #+ @param p_data - a row data LIKE cotb00004.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00004_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cotb00004.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cotb00004_cod_embarque_checkColumnConstraints(p_data.cod_embarque) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00004_cod_furg_checkColumnConstraints(p_data.cod_furg) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00004_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00004_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00004_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00004_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00004_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00004_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00004_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00004_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00004_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00004_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00004_checkTableConstraints {<BLOCK Name="fct.cotb00004_cod_embarque_checkColumnConstraints">} #+ Check constraints on the "cotb00004.cod_embarque" column #+ #+ @param p_cod_embarque - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00004_cod_embarque_checkColumnConstraints(p_cod_embarque) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_embarque LIKE cotb00004.cod_embarque LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00004_cod_embarque_checkColumnConstraints {<BLOCK Name="fct.cotb00004_cod_furg_checkColumnConstraints">} #+ Check constraints on the "cotb00004.cod_furg" column #+ #+ @param p_cod_furg - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00004_cod_furg_checkColumnConstraints(p_cod_furg) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_furg LIKE cotb00004.cod_furg LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00004_cod_furg_checkColumnConstraints {<BLOCK Name="fct.cotb00004_cod_n_checkColumnConstraints">} #+ Check constraints on the "cotb00004.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00004_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE cotb00004.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00004_cod_n_checkColumnConstraints {<BLOCK Name="fct.cotb00004_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "cotb00004.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00004_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE cotb00004.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00004_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.cotb00004_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "cotb00004.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00004_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE cotb00004.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00004_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.cotb00004_cod_sec_checkColumnConstraints">} #+ Check constraints on the "cotb00004.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00004_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE cotb00004.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00004_cod_sec_checkColumnConstraints {<BLOCK Name="fct.cotb00004_cantidad_checkColumnConstraints">} #+ Check constraints on the "cotb00004.cantidad" column #+ #+ @param p_cantidad - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00004_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE cotb00004.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00004_cantidad_checkColumnConstraints {<BLOCK Name="fct.cotb00004_status_t_checkColumnConstraints">} #+ Check constraints on the "cotb00004.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00004_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cotb00004.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00004_status_t_checkColumnConstraints {<BLOCK Name="fct.cotb00004_us_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00004.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00004_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cotb00004.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00004_us_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00004_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00004.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00004_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cotb00004.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00004_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00004_us_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00004.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00004_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cotb00004.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00004_us_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00004_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00004.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00004_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cotb00004.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00004_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00003_checkTableConstraints">} #+ Check constraints on the "cotb00003" table #+ #+ @param p_data - a row data LIKE cotb00003.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00003_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cotb00003.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cotb00003_cod_furg_checkColumnConstraints(p_data.cod_furg) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00003_descrip_furg_checkColumnConstraints(p_data.descrip_furg) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00003_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00003_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00003_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00003_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00003_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00003_checkTableConstraints {<BLOCK Name="fct.cotb00003_cod_furg_checkColumnConstraints">} #+ Check constraints on the "cotb00003.cod_furg" column #+ #+ @param p_cod_furg - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00003_cod_furg_checkColumnConstraints(p_cod_furg) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_furg LIKE cotb00003.cod_furg LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00003_cod_furg_checkColumnConstraints {<BLOCK Name="fct.cotb00003_descrip_furg_checkColumnConstraints">} #+ Check constraints on the "cotb00003.descrip_furg" column #+ #+ @param p_descrip_furg - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00003_descrip_furg_checkColumnConstraints(p_descrip_furg) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip_furg LIKE cotb00003.descrip_furg LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00003_descrip_furg_checkColumnConstraints {<BLOCK Name="fct.cotb00003_status_t_checkColumnConstraints">} #+ Check constraints on the "cotb00003.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00003_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cotb00003.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00003_status_t_checkColumnConstraints {<BLOCK Name="fct.cotb00003_us_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00003.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00003_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cotb00003.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00003_us_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00003_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00003.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00003_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cotb00003.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00003_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00003_us_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00003.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00003_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cotb00003.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00003_us_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00003_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00003.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00003_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cotb00003.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00003_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00002_checkTableConstraints">} #+ Check constraints on the "cotb00002" table #+ #+ @param p_data - a row data LIKE cotb00002.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00002_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cotb00002.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cotb00002_cod_sp_checkColumnConstraints(p_data.cod_sp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00002_cod_sp_sec_checkColumnConstraints(p_data.cod_sp_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00002_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00002_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00002_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00002_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00002_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00002_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00002_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00002_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00002_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00002_checkTableConstraints {<BLOCK Name="fct.cotb00002_cod_sp_checkColumnConstraints">} #+ Check constraints on the "cotb00002.cod_sp" column #+ #+ @param p_cod_sp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00002_cod_sp_checkColumnConstraints(p_cod_sp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp LIKE cotb00002.cod_sp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00002_cod_sp_checkColumnConstraints {<BLOCK Name="fct.cotb00002_cod_sp_sec_checkColumnConstraints">} #+ Check constraints on the "cotb00002.cod_sp_sec" column #+ #+ @param p_cod_sp_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00002_cod_sp_sec_checkColumnConstraints(p_cod_sp_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp_sec LIKE cotb00002.cod_sp_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00002_cod_sp_sec_checkColumnConstraints {<BLOCK Name="fct.cotb00002_cod_n_checkColumnConstraints">} #+ Check constraints on the "cotb00002.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00002_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE cotb00002.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00002_cod_n_checkColumnConstraints {<BLOCK Name="fct.cotb00002_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "cotb00002.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00002_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE cotb00002.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00002_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.cotb00002_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "cotb00002.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00002_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE cotb00002.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00002_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.cotb00002_cod_sec_checkColumnConstraints">} #+ Check constraints on the "cotb00002.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00002_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE cotb00002.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00002_cod_sec_checkColumnConstraints {<BLOCK Name="fct.cotb00002_status_t_checkColumnConstraints">} #+ Check constraints on the "cotb00002.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00002_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cotb00002.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00002_status_t_checkColumnConstraints {<BLOCK Name="fct.cotb00002_us_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00002.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00002_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cotb00002.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00002_us_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00002_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00002.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00002_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cotb00002.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00002_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00002_us_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00002.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00002_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cotb00002.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00002_us_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00002_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00002.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00002_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cotb00002.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00002_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00001_checkTableConstraints">} #+ Check constraints on the "cotb00001" table #+ #+ @param p_data - a row data LIKE cotb00001.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00001_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cotb00001.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cotb00001_cod_sp_checkColumnConstraints(p_data.cod_sp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00001_cod_sp_sec_checkColumnConstraints(p_data.cod_sp_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00001_nom_sp_checkColumnConstraints(p_data.nom_sp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00001_dir_sp_checkColumnConstraints(p_data.dir_sp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00001_ciu_sp_checkColumnConstraints(p_data.ciu_sp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00001_cod_pais_checkColumnConstraints(p_data.cod_pais) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00001_tel_sp_checkColumnConstraints(p_data.tel_sp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00001_area_sp_checkColumnConstraints(p_data.area_sp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00001_fax_sp_checkColumnConstraints(p_data.fax_sp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00001_cont_sp_checkColumnConstraints(p_data.cont_sp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00001_term_sp_checkColumnConstraints(p_data.term_sp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00001_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00001_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00001_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00001_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cotb00001_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00001_checkTableConstraints {<BLOCK Name="fct.cotb00001_cod_sp_checkColumnConstraints">} #+ Check constraints on the "cotb00001.cod_sp" column #+ #+ @param p_cod_sp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00001_cod_sp_checkColumnConstraints(p_cod_sp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp LIKE cotb00001.cod_sp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00001_cod_sp_checkColumnConstraints {<BLOCK Name="fct.cotb00001_cod_sp_sec_checkColumnConstraints">} #+ Check constraints on the "cotb00001.cod_sp_sec" column #+ #+ @param p_cod_sp_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00001_cod_sp_sec_checkColumnConstraints(p_cod_sp_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp_sec LIKE cotb00001.cod_sp_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00001_cod_sp_sec_checkColumnConstraints {<BLOCK Name="fct.cotb00001_nom_sp_checkColumnConstraints">} #+ Check constraints on the "cotb00001.nom_sp" column #+ #+ @param p_nom_sp - VARCHAR2(41) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00001_nom_sp_checkColumnConstraints(p_nom_sp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nom_sp LIKE cotb00001.nom_sp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00001_nom_sp_checkColumnConstraints {<BLOCK Name="fct.cotb00001_dir_sp_checkColumnConstraints">} #+ Check constraints on the "cotb00001.dir_sp" column #+ #+ @param p_dir_sp - VARCHAR2(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00001_dir_sp_checkColumnConstraints(p_dir_sp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_dir_sp LIKE cotb00001.dir_sp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00001_dir_sp_checkColumnConstraints {<BLOCK Name="fct.cotb00001_ciu_sp_checkColumnConstraints">} #+ Check constraints on the "cotb00001.ciu_sp" column #+ #+ @param p_ciu_sp - VARCHAR2(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00001_ciu_sp_checkColumnConstraints(p_ciu_sp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ciu_sp LIKE cotb00001.ciu_sp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00001_ciu_sp_checkColumnConstraints {<BLOCK Name="fct.cotb00001_cod_pais_checkColumnConstraints">} #+ Check constraints on the "cotb00001.cod_pais" column #+ #+ @param p_cod_pais - VARCHAR2(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00001_cod_pais_checkColumnConstraints(p_cod_pais) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_pais LIKE cotb00001.cod_pais LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00001_cod_pais_checkColumnConstraints {<BLOCK Name="fct.cotb00001_tel_sp_checkColumnConstraints">} #+ Check constraints on the "cotb00001.tel_sp" column #+ #+ @param p_tel_sp - VARCHAR2(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00001_tel_sp_checkColumnConstraints(p_tel_sp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tel_sp LIKE cotb00001.tel_sp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00001_tel_sp_checkColumnConstraints {<BLOCK Name="fct.cotb00001_area_sp_checkColumnConstraints">} #+ Check constraints on the "cotb00001.area_sp" column #+ #+ @param p_area_sp - VARCHAR2(5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00001_area_sp_checkColumnConstraints(p_area_sp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_area_sp LIKE cotb00001.area_sp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00001_area_sp_checkColumnConstraints {<BLOCK Name="fct.cotb00001_fax_sp_checkColumnConstraints">} #+ Check constraints on the "cotb00001.fax_sp" column #+ #+ @param p_fax_sp - VARCHAR2(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00001_fax_sp_checkColumnConstraints(p_fax_sp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fax_sp LIKE cotb00001.fax_sp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00001_fax_sp_checkColumnConstraints {<BLOCK Name="fct.cotb00001_cont_sp_checkColumnConstraints">} #+ Check constraints on the "cotb00001.cont_sp" column #+ #+ @param p_cont_sp - VARCHAR2(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00001_cont_sp_checkColumnConstraints(p_cont_sp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cont_sp LIKE cotb00001.cont_sp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00001_cont_sp_checkColumnConstraints {<BLOCK Name="fct.cotb00001_term_sp_checkColumnConstraints">} #+ Check constraints on the "cotb00001.term_sp" column #+ #+ @param p_term_sp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00001_term_sp_checkColumnConstraints(p_term_sp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_term_sp LIKE cotb00001.term_sp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00001_term_sp_checkColumnConstraints {<BLOCK Name="fct.cotb00001_status_t_checkColumnConstraints">} #+ Check constraints on the "cotb00001.status_t" column #+ #+ @param p_status_t - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00001_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cotb00001.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00001_status_t_checkColumnConstraints {<BLOCK Name="fct.cotb00001_us_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00001.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00001_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cotb00001.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00001_us_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00001_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cotb00001.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00001_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cotb00001.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00001_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cotb00001_us_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00001.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00001_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cotb00001.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00001_us_mod_checkColumnConstraints {<BLOCK Name="fct.cotb00001_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cotb00001.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cotb00001_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cotb00001.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cotb00001_fech_mod_checkColumnConstraints {<BLOCK Name="fct.correos_checkTableConstraints">} #+ Check constraints on the "correos" table #+ #+ @param p_data - a row data LIKE correos.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_correos_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE correos.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_correos_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_correos_emailto_checkColumnConstraints(p_data.emailto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_correos_usubject_checkColumnConstraints(p_data.usubject) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_correos_cuerpo_checkColumnConstraints(p_data.cuerpo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.correos_checkTableConstraints {<BLOCK Name="fct.correos_fecha_checkColumnConstraints">} #+ Check constraints on the "correos.fecha" column #+ #+ @param p_fecha - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_correos_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE correos.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.correos_fecha_checkColumnConstraints {<BLOCK Name="fct.correos_emailto_checkColumnConstraints">} #+ Check constraints on the "correos.emailto" column #+ #+ @param p_emailto - CHAR(150) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_correos_emailto_checkColumnConstraints(p_emailto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_emailto LIKE correos.emailto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.correos_emailto_checkColumnConstraints {<BLOCK Name="fct.correos_usubject_checkColumnConstraints">} #+ Check constraints on the "correos.usubject" column #+ #+ @param p_usubject - CHAR(150) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_correos_usubject_checkColumnConstraints(p_usubject) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_usubject LIKE correos.usubject LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.correos_usubject_checkColumnConstraints {<BLOCK Name="fct.correos_cuerpo_checkColumnConstraints">} #+ Check constraints on the "correos.cuerpo" column #+ #+ @param p_cuerpo - CHAR(150) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_correos_cuerpo_checkColumnConstraints(p_cuerpo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuerpo LIKE correos.cuerpo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.correos_cuerpo_checkColumnConstraints {<BLOCK Name="fct.companias_checkTableConstraints">} #+ Check constraints on the "companias" table #+ #+ @param p_data - a row data LIKE companias.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_companias_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE companias.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_companias_cod_comp_checkColumnConstraints(p_data.cod_comp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_companias_nombre_checkColumnConstraints(p_data.nombre) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_companias_rnc_checkColumnConstraints(p_data.rnc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_companias_direccion_checkColumnConstraints(p_data.direccion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_companias_telefono_checkColumnConstraints(p_data.telefono) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_companias_fax_checkColumnConstraints(p_data.fax) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_companias_administrador_checkColumnConstraints(p_data.administrador) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_companias_email_checkColumnConstraints(p_data.email) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_companias_paginaweb_checkColumnConstraints(p_data.paginaweb) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_companias_direccion1_checkColumnConstraints(p_data.direccion1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_companias_telefono1_checkColumnConstraints(p_data.telefono1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_companias_fax1_checkColumnConstraints(p_data.fax1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_companias_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_companias_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_companias_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_companias_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_companias_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_companias_codnomina_checkColumnConstraints(p_data.codnomina) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_companias_cuenta_no_inv_checkColumnConstraints(p_data.cuenta_no_inv) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.companias_checkTableConstraints {<BLOCK Name="fct.companias_cod_comp_checkColumnConstraints">} #+ Check constraints on the "companias.cod_comp" column #+ #+ @param p_cod_comp - CHAR(5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_companias_cod_comp_checkColumnConstraints(p_cod_comp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_comp LIKE companias.cod_comp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_comp IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_comp: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.companias_cod_comp_checkColumnConstraints {<BLOCK Name="fct.companias_nombre_checkColumnConstraints">} #+ Check constraints on the "companias.nombre" column #+ #+ @param p_nombre - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_companias_nombre_checkColumnConstraints(p_nombre) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombre LIKE companias.nombre LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.companias_nombre_checkColumnConstraints {<BLOCK Name="fct.companias_rnc_checkColumnConstraints">} #+ Check constraints on the "companias.rnc" column #+ #+ @param p_rnc - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_companias_rnc_checkColumnConstraints(p_rnc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_rnc LIKE companias.rnc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.companias_rnc_checkColumnConstraints {<BLOCK Name="fct.companias_direccion_checkColumnConstraints">} #+ Check constraints on the "companias.direccion" column #+ #+ @param p_direccion - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_companias_direccion_checkColumnConstraints(p_direccion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_direccion LIKE companias.direccion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.companias_direccion_checkColumnConstraints {<BLOCK Name="fct.companias_telefono_checkColumnConstraints">} #+ Check constraints on the "companias.telefono" column #+ #+ @param p_telefono - CHAR(15) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_companias_telefono_checkColumnConstraints(p_telefono) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_telefono LIKE companias.telefono LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.companias_telefono_checkColumnConstraints {<BLOCK Name="fct.companias_fax_checkColumnConstraints">} #+ Check constraints on the "companias.fax" column #+ #+ @param p_fax - CHAR(15) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_companias_fax_checkColumnConstraints(p_fax) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fax LIKE companias.fax LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.companias_fax_checkColumnConstraints {<BLOCK Name="fct.companias_administrador_checkColumnConstraints">} #+ Check constraints on the "companias.administrador" column #+ #+ @param p_administrador - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_companias_administrador_checkColumnConstraints(p_administrador) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_administrador LIKE companias.administrador LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.companias_administrador_checkColumnConstraints {<BLOCK Name="fct.companias_email_checkColumnConstraints">} #+ Check constraints on the "companias.email" column #+ #+ @param p_email - CHAR(100) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_companias_email_checkColumnConstraints(p_email) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_email LIKE companias.email LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.companias_email_checkColumnConstraints {<BLOCK Name="fct.companias_paginaweb_checkColumnConstraints">} #+ Check constraints on the "companias.paginaweb" column #+ #+ @param p_paginaweb - CHAR(100) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_companias_paginaweb_checkColumnConstraints(p_paginaweb) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_paginaweb LIKE companias.paginaweb LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.companias_paginaweb_checkColumnConstraints {<BLOCK Name="fct.companias_direccion1_checkColumnConstraints">} #+ Check constraints on the "companias.direccion1" column #+ #+ @param p_direccion1 - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_companias_direccion1_checkColumnConstraints(p_direccion1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_direccion1 LIKE companias.direccion1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.companias_direccion1_checkColumnConstraints {<BLOCK Name="fct.companias_telefono1_checkColumnConstraints">} #+ Check constraints on the "companias.telefono1" column #+ #+ @param p_telefono1 - CHAR(15) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_companias_telefono1_checkColumnConstraints(p_telefono1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_telefono1 LIKE companias.telefono1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.companias_telefono1_checkColumnConstraints {<BLOCK Name="fct.companias_fax1_checkColumnConstraints">} #+ Check constraints on the "companias.fax1" column #+ #+ @param p_fax1 - CHAR(15) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_companias_fax1_checkColumnConstraints(p_fax1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fax1 LIKE companias.fax1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.companias_fax1_checkColumnConstraints {<BLOCK Name="fct.companias_status_t_checkColumnConstraints">} #+ Check constraints on the "companias.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_companias_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE companias.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.companias_status_t_checkColumnConstraints {<BLOCK Name="fct.companias_us_crea_checkColumnConstraints">} #+ Check constraints on the "companias.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_companias_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE companias.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.companias_us_crea_checkColumnConstraints {<BLOCK Name="fct.companias_fech_crea_checkColumnConstraints">} #+ Check constraints on the "companias.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_companias_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE companias.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.companias_fech_crea_checkColumnConstraints {<BLOCK Name="fct.companias_us_mod_checkColumnConstraints">} #+ Check constraints on the "companias.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_companias_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE companias.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.companias_us_mod_checkColumnConstraints {<BLOCK Name="fct.companias_fech_mod_checkColumnConstraints">} #+ Check constraints on the "companias.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_companias_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE companias.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.companias_fech_mod_checkColumnConstraints {<BLOCK Name="fct.companias_codnomina_checkColumnConstraints">} #+ Check constraints on the "companias.codnomina" column #+ #+ @param p_codnomina - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_companias_codnomina_checkColumnConstraints(p_codnomina) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codnomina LIKE companias.codnomina LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.companias_codnomina_checkColumnConstraints {<BLOCK Name="fct.companias_cuenta_no_inv_checkColumnConstraints">} #+ Check constraints on the "companias.cuenta_no_inv" column #+ #+ @param p_cuenta_no_inv - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_companias_cuenta_no_inv_checkColumnConstraints(p_cuenta_no_inv) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_no_inv LIKE companias.cuenta_no_inv LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.companias_cuenta_no_inv_checkColumnConstraints {<BLOCK Name="fct.codigos22_checkTableConstraints">} #+ Check constraints on the "codigos22" table #+ #+ @param p_data - a row data LIKE codigos22.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_codigos22_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE codigos22.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_codigos22_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_codigos22_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_codigos22_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_codigos22_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.codigos22_checkTableConstraints {<BLOCK Name="fct.codigos22_cod_n_checkColumnConstraints">} #+ Check constraints on the "codigos22.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_codigos22_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE codigos22.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.codigos22_cod_n_checkColumnConstraints {<BLOCK Name="fct.codigos22_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "codigos22.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_codigos22_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE codigos22.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.codigos22_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.codigos22_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "codigos22.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_codigos22_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE codigos22.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.codigos22_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.codigos22_cod_sec_checkColumnConstraints">} #+ Check constraints on the "codigos22.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_codigos22_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE codigos22.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.codigos22_cod_sec_checkColumnConstraints {<BLOCK Name="fct.codigo21_checkTableConstraints">} #+ Check constraints on the "codigo21" table #+ #+ @param p_data - a row data LIKE codigo21.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_codigo21_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE codigo21.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_codigo21_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_codigo21_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_codigo21_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_codigo21_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.codigo21_checkTableConstraints {<BLOCK Name="fct.codigo21_cod_n_checkColumnConstraints">} #+ Check constraints on the "codigo21.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_codigo21_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE codigo21.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.codigo21_cod_n_checkColumnConstraints {<BLOCK Name="fct.codigo21_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "codigo21.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_codigo21_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE codigo21.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.codigo21_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.codigo21_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "codigo21.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_codigo21_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE codigo21.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.codigo21_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.codigo21_cod_sec_checkColumnConstraints">} #+ Check constraints on the "codigo21.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_codigo21_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE codigo21.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.codigo21_cod_sec_checkColumnConstraints {<BLOCK Name="fct.codigo20_checkTableConstraints">} #+ Check constraints on the "codigo20" table #+ #+ @param p_data - a row data LIKE codigo20.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_codigo20_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE codigo20.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_codigo20_f1_checkColumnConstraints(p_data.f1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_codigo20_f2_checkColumnConstraints(p_data.f2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_codigo20_f3_checkColumnConstraints(p_data.f3) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_codigo20_f4_checkColumnConstraints(p_data.f4) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.codigo20_checkTableConstraints {<BLOCK Name="fct.codigo20_f1_checkColumnConstraints">} #+ Check constraints on the "codigo20.f1" column #+ #+ @param p_f1 - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_codigo20_f1_checkColumnConstraints(p_f1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f1 LIKE codigo20.f1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.codigo20_f1_checkColumnConstraints {<BLOCK Name="fct.codigo20_f2_checkColumnConstraints">} #+ Check constraints on the "codigo20.f2" column #+ #+ @param p_f2 - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_codigo20_f2_checkColumnConstraints(p_f2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f2 LIKE codigo20.f2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.codigo20_f2_checkColumnConstraints {<BLOCK Name="fct.codigo20_f3_checkColumnConstraints">} #+ Check constraints on the "codigo20.f3" column #+ #+ @param p_f3 - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_codigo20_f3_checkColumnConstraints(p_f3) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f3 LIKE codigo20.f3 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.codigo20_f3_checkColumnConstraints {<BLOCK Name="fct.codigo20_f4_checkColumnConstraints">} #+ Check constraints on the "codigo20.f4" column #+ #+ @param p_f4 - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_codigo20_f4_checkColumnConstraints(p_f4) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f4 LIKE codigo20.f4 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.codigo20_f4_checkColumnConstraints {<BLOCK Name="fct.chequeo_checkTableConstraints">} #+ Check constraints on the "chequeo" table #+ #+ @param p_data - a row data LIKE chequeo.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_chequeo_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE chequeo.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_chequeo_dpto_checkColumnConstraints(p_data.dpto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_chequeo_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_chequeo_nom_dpto_checkColumnConstraints(p_data.nom_dpto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.chequeo_checkTableConstraints {<BLOCK Name="fct.chequeo_dpto_checkColumnConstraints">} #+ Check constraints on the "chequeo.dpto" column #+ #+ @param p_dpto - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_chequeo_dpto_checkColumnConstraints(p_dpto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_dpto LIKE chequeo.dpto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.chequeo_dpto_checkColumnConstraints {<BLOCK Name="fct.chequeo_departamento_checkColumnConstraints">} #+ Check constraints on the "chequeo.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_chequeo_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE chequeo.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.chequeo_departamento_checkColumnConstraints {<BLOCK Name="fct.chequeo_nom_dpto_checkColumnConstraints">} #+ Check constraints on the "chequeo.nom_dpto" column #+ #+ @param p_nom_dpto - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_chequeo_nom_dpto_checkColumnConstraints(p_nom_dpto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nom_dpto LIKE chequeo.nom_dpto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.chequeo_nom_dpto_checkColumnConstraints {<BLOCK Name="fct.cgtbh00004_checkTableConstraints">} #+ Check constraints on the "cgtbh00004" table #+ #+ @param p_data - a row data LIKE cgtbh00004.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cgtbh00004_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cgtbh00004.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cgtbh00004_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtbh00004_tipo_checkColumnConstraints(p_data.tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtbh00004_ref_checkColumnConstraints(p_data.ref) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtbh00004_cuenta_no_checkColumnConstraints(p_data.cuenta_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtbh00004_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtbh00004_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtbh00004_cod_aux_checkColumnConstraints(p_data.cod_aux) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtbh00004_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtbh00004_detalles_checkColumnConstraints(p_data.detalles) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtbh00004_detalle_1_checkColumnConstraints(p_data.detalle_1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtbh00004_detalle_2_checkColumnConstraints(p_data.detalle_2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtbh00004_debito_checkColumnConstraints(p_data.debito) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtbh00004_credito_checkColumnConstraints(p_data.credito) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtbh00004_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtbh00004_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtbh00004_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtbh00004_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtbh00004_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtbh00004_checkTableConstraints {<BLOCK Name="fct.cgtbh00004_fecha_checkColumnConstraints">} #+ Check constraints on the "cgtbh00004.fecha" column #+ #+ @param p_fecha - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtbh00004_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE cgtbh00004.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtbh00004_fecha_checkColumnConstraints {<BLOCK Name="fct.cgtbh00004_tipo_checkColumnConstraints">} #+ Check constraints on the "cgtbh00004.tipo" column #+ #+ @param p_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtbh00004_tipo_checkColumnConstraints(p_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo LIKE cgtbh00004.tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtbh00004_tipo_checkColumnConstraints {<BLOCK Name="fct.cgtbh00004_ref_checkColumnConstraints">} #+ Check constraints on the "cgtbh00004.ref" column #+ #+ @param p_ref - VARCHAR2(14) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtbh00004_ref_checkColumnConstraints(p_ref) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ref LIKE cgtbh00004.ref LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_ref IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- ref: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtbh00004_ref_checkColumnConstraints {<BLOCK Name="fct.cgtbh00004_cuenta_no_checkColumnConstraints">} #+ Check constraints on the "cgtbh00004.cuenta_no" column #+ #+ @param p_cuenta_no - VARCHAR2(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtbh00004_cuenta_no_checkColumnConstraints(p_cuenta_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_no LIKE cgtbh00004.cuenta_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtbh00004_cuenta_no_checkColumnConstraints {<BLOCK Name="fct.cgtbh00004_departamento_checkColumnConstraints">} #+ Check constraints on the "cgtbh00004.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtbh00004_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE cgtbh00004.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtbh00004_departamento_checkColumnConstraints {<BLOCK Name="fct.cgtbh00004_num_doc_checkColumnConstraints">} #+ Check constraints on the "cgtbh00004.num_doc" column #+ #+ @param p_num_doc - VARCHAR2(12) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtbh00004_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE cgtbh00004.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtbh00004_num_doc_checkColumnConstraints {<BLOCK Name="fct.cgtbh00004_cod_aux_checkColumnConstraints">} #+ Check constraints on the "cgtbh00004.cod_aux" column #+ #+ @param p_cod_aux - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtbh00004_cod_aux_checkColumnConstraints(p_cod_aux) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_aux LIKE cgtbh00004.cod_aux LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtbh00004_cod_aux_checkColumnConstraints {<BLOCK Name="fct.cgtbh00004_cod_sec_checkColumnConstraints">} #+ Check constraints on the "cgtbh00004.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtbh00004_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE cgtbh00004.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtbh00004_cod_sec_checkColumnConstraints {<BLOCK Name="fct.cgtbh00004_detalles_checkColumnConstraints">} #+ Check constraints on the "cgtbh00004.detalles" column #+ #+ @param p_detalles - VARCHAR2(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtbh00004_detalles_checkColumnConstraints(p_detalles) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_detalles LIKE cgtbh00004.detalles LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtbh00004_detalles_checkColumnConstraints {<BLOCK Name="fct.cgtbh00004_detalle_1_checkColumnConstraints">} #+ Check constraints on the "cgtbh00004.detalle_1" column #+ #+ @param p_detalle_1 - VARCHAR2(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtbh00004_detalle_1_checkColumnConstraints(p_detalle_1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_detalle_1 LIKE cgtbh00004.detalle_1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtbh00004_detalle_1_checkColumnConstraints {<BLOCK Name="fct.cgtbh00004_detalle_2_checkColumnConstraints">} #+ Check constraints on the "cgtbh00004.detalle_2" column #+ #+ @param p_detalle_2 - VARCHAR2(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtbh00004_detalle_2_checkColumnConstraints(p_detalle_2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_detalle_2 LIKE cgtbh00004.detalle_2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtbh00004_detalle_2_checkColumnConstraints {<BLOCK Name="fct.cgtbh00004_debito_checkColumnConstraints">} #+ Check constraints on the "cgtbh00004.debito" column #+ #+ @param p_debito - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtbh00004_debito_checkColumnConstraints(p_debito) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_debito LIKE cgtbh00004.debito LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtbh00004_debito_checkColumnConstraints {<BLOCK Name="fct.cgtbh00004_credito_checkColumnConstraints">} #+ Check constraints on the "cgtbh00004.credito" column #+ #+ @param p_credito - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtbh00004_credito_checkColumnConstraints(p_credito) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_credito LIKE cgtbh00004.credito LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtbh00004_credito_checkColumnConstraints {<BLOCK Name="fct.cgtbh00004_status_t_checkColumnConstraints">} #+ Check constraints on the "cgtbh00004.status_t" column #+ #+ @param p_status_t - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtbh00004_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cgtbh00004.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtbh00004_status_t_checkColumnConstraints {<BLOCK Name="fct.cgtbh00004_us_crea_checkColumnConstraints">} #+ Check constraints on the "cgtbh00004.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtbh00004_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cgtbh00004.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtbh00004_us_crea_checkColumnConstraints {<BLOCK Name="fct.cgtbh00004_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cgtbh00004.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtbh00004_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cgtbh00004.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtbh00004_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cgtbh00004_us_mod_checkColumnConstraints">} #+ Check constraints on the "cgtbh00004.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtbh00004_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cgtbh00004.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtbh00004_us_mod_checkColumnConstraints {<BLOCK Name="fct.cgtbh00004_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cgtbh00004.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtbh00004_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cgtbh00004.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtbh00004_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cgtb04_checkTableConstraints">} #+ Check constraints on the "cgtb04" table #+ #+ @param p_data - a row data LIKE cgtb04.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb04_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cgtb04.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cgtb04_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb04_tipo_checkColumnConstraints(p_data.tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb04_ref_checkColumnConstraints(p_data.ref) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb04_cuenta_no_checkColumnConstraints(p_data.cuenta_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb04_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb04_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb04_cod_aux_checkColumnConstraints(p_data.cod_aux) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb04_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb04_detalles_checkColumnConstraints(p_data.detalles) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb04_detalle_1_checkColumnConstraints(p_data.detalle_1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb04_detalle_2_checkColumnConstraints(p_data.detalle_2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb04_debito_checkColumnConstraints(p_data.debito) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb04_credito_checkColumnConstraints(p_data.credito) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb04_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb04_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb04_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb04_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb04_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb04_checkTableConstraints {<BLOCK Name="fct.cgtb04_fecha_checkColumnConstraints">} #+ Check constraints on the "cgtb04.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb04_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE cgtb04.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb04_fecha_checkColumnConstraints {<BLOCK Name="fct.cgtb04_tipo_checkColumnConstraints">} #+ Check constraints on the "cgtb04.tipo" column #+ #+ @param p_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb04_tipo_checkColumnConstraints(p_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo LIKE cgtb04.tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb04_tipo_checkColumnConstraints {<BLOCK Name="fct.cgtb04_ref_checkColumnConstraints">} #+ Check constraints on the "cgtb04.ref" column #+ #+ @param p_ref - CHAR(14) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb04_ref_checkColumnConstraints(p_ref) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ref LIKE cgtb04.ref LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_ref IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- ref: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb04_ref_checkColumnConstraints {<BLOCK Name="fct.cgtb04_cuenta_no_checkColumnConstraints">} #+ Check constraints on the "cgtb04.cuenta_no" column #+ #+ @param p_cuenta_no - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb04_cuenta_no_checkColumnConstraints(p_cuenta_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_no LIKE cgtb04.cuenta_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb04_cuenta_no_checkColumnConstraints {<BLOCK Name="fct.cgtb04_departamento_checkColumnConstraints">} #+ Check constraints on the "cgtb04.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb04_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE cgtb04.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb04_departamento_checkColumnConstraints {<BLOCK Name="fct.cgtb04_num_doc_checkColumnConstraints">} #+ Check constraints on the "cgtb04.num_doc" column #+ #+ @param p_num_doc - CHAR(12) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb04_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE cgtb04.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb04_num_doc_checkColumnConstraints {<BLOCK Name="fct.cgtb04_cod_aux_checkColumnConstraints">} #+ Check constraints on the "cgtb04.cod_aux" column #+ #+ @param p_cod_aux - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb04_cod_aux_checkColumnConstraints(p_cod_aux) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_aux LIKE cgtb04.cod_aux LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb04_cod_aux_checkColumnConstraints {<BLOCK Name="fct.cgtb04_cod_sec_checkColumnConstraints">} #+ Check constraints on the "cgtb04.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb04_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE cgtb04.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb04_cod_sec_checkColumnConstraints {<BLOCK Name="fct.cgtb04_detalles_checkColumnConstraints">} #+ Check constraints on the "cgtb04.detalles" column #+ #+ @param p_detalles - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb04_detalles_checkColumnConstraints(p_detalles) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_detalles LIKE cgtb04.detalles LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb04_detalles_checkColumnConstraints {<BLOCK Name="fct.cgtb04_detalle_1_checkColumnConstraints">} #+ Check constraints on the "cgtb04.detalle_1" column #+ #+ @param p_detalle_1 - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb04_detalle_1_checkColumnConstraints(p_detalle_1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_detalle_1 LIKE cgtb04.detalle_1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb04_detalle_1_checkColumnConstraints {<BLOCK Name="fct.cgtb04_detalle_2_checkColumnConstraints">} #+ Check constraints on the "cgtb04.detalle_2" column #+ #+ @param p_detalle_2 - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb04_detalle_2_checkColumnConstraints(p_detalle_2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_detalle_2 LIKE cgtb04.detalle_2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb04_detalle_2_checkColumnConstraints {<BLOCK Name="fct.cgtb04_debito_checkColumnConstraints">} #+ Check constraints on the "cgtb04.debito" column #+ #+ @param p_debito - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb04_debito_checkColumnConstraints(p_debito) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_debito LIKE cgtb04.debito LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb04_debito_checkColumnConstraints {<BLOCK Name="fct.cgtb04_credito_checkColumnConstraints">} #+ Check constraints on the "cgtb04.credito" column #+ #+ @param p_credito - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb04_credito_checkColumnConstraints(p_credito) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_credito LIKE cgtb04.credito LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb04_credito_checkColumnConstraints {<BLOCK Name="fct.cgtb04_status_t_checkColumnConstraints">} #+ Check constraints on the "cgtb04.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb04_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cgtb04.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb04_status_t_checkColumnConstraints {<BLOCK Name="fct.cgtb04_us_crea_checkColumnConstraints">} #+ Check constraints on the "cgtb04.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb04_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cgtb04.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb04_us_crea_checkColumnConstraints {<BLOCK Name="fct.cgtb04_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cgtb04.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb04_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cgtb04.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb04_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cgtb04_us_mod_checkColumnConstraints">} #+ Check constraints on the "cgtb04.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb04_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cgtb04.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb04_us_mod_checkColumnConstraints {<BLOCK Name="fct.cgtb04_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cgtb04.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb04_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cgtb04.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb04_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cgtb00084_checkTableConstraints">} #+ Check constraints on the "cgtb00084" table #+ #+ @param p_data - a row data LIKE cgtb00084.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00084_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cgtb00084.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cgtb00084_ventas_checkColumnConstraints(p_data.ventas) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00084_tipo_cliente_checkColumnConstraints(p_data.tipo_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00084_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00084_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00084_tasa_checkColumnConstraints(p_data.tasa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00084_checkTableConstraints {<BLOCK Name="fct.cgtb00084_ventas_checkColumnConstraints">} #+ Check constraints on the "cgtb00084.ventas" column #+ #+ @param p_ventas - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00084_ventas_checkColumnConstraints(p_ventas) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ventas LIKE cgtb00084.ventas LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00084_ventas_checkColumnConstraints {<BLOCK Name="fct.cgtb00084_tipo_cliente_checkColumnConstraints">} #+ Check constraints on the "cgtb00084.tipo_cliente" column #+ #+ @param p_tipo_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00084_tipo_cliente_checkColumnConstraints(p_tipo_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_cliente LIKE cgtb00084.tipo_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00084_tipo_cliente_checkColumnConstraints {<BLOCK Name="fct.cgtb00084_ano_checkColumnConstraints">} #+ Check constraints on the "cgtb00084.ano" column #+ #+ @param p_ano - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00084_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE cgtb00084.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00084_ano_checkColumnConstraints {<BLOCK Name="fct.cgtb00084_mes_checkColumnConstraints">} #+ Check constraints on the "cgtb00084.mes" column #+ #+ @param p_mes - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00084_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE cgtb00084.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00084_mes_checkColumnConstraints {<BLOCK Name="fct.cgtb00084_tasa_checkColumnConstraints">} #+ Check constraints on the "cgtb00084.tasa" column #+ #+ @param p_tasa - DECIMAL(12,3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00084_tasa_checkColumnConstraints(p_tasa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tasa LIKE cgtb00084.tasa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00084_tasa_checkColumnConstraints {<BLOCK Name="fct.cgtb00083_checkTableConstraints">} #+ Check constraints on the "cgtb00083" table #+ #+ @param p_data - a row data LIKE cgtb00083.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00083_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cgtb00083.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cgtb00083_primern_checkColumnConstraints(p_data.primern) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00083_descrip_n_checkColumnConstraints(p_data.descrip_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00083_aplica_a_checkColumnConstraints(p_data.aplica_a) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00083_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00083_checkTableConstraints {<BLOCK Name="fct.cgtb00083_primern_checkColumnConstraints">} #+ Check constraints on the "cgtb00083.primern" column #+ #+ @param p_primern - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00083_primern_checkColumnConstraints(p_primern) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_primern LIKE cgtb00083.primern LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00083_primern_checkColumnConstraints {<BLOCK Name="fct.cgtb00083_descrip_n_checkColumnConstraints">} #+ Check constraints on the "cgtb00083.descrip_n" column #+ #+ @param p_descrip_n - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00083_descrip_n_checkColumnConstraints(p_descrip_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip_n LIKE cgtb00083.descrip_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00083_descrip_n_checkColumnConstraints {<BLOCK Name="fct.cgtb00083_aplica_a_checkColumnConstraints">} #+ Check constraints on the "cgtb00083.aplica_a" column #+ #+ @param p_aplica_a - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00083_aplica_a_checkColumnConstraints(p_aplica_a) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_aplica_a LIKE cgtb00083.aplica_a LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00083_aplica_a_checkColumnConstraints {<BLOCK Name="fct.cgtb00083_descripcion_checkColumnConstraints">} #+ Check constraints on the "cgtb00083.descripcion" column #+ #+ @param p_descripcion - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00083_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE cgtb00083.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00083_descripcion_checkColumnConstraints {<BLOCK Name="fct.cgtb00060_checkTableConstraints">} #+ Check constraints on the "cgtb00060" table #+ #+ @param p_data - a row data LIKE cgtb00060.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00060_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cgtb00060.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cgtb00060_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00060_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00060_fecha_ini_checkColumnConstraints(p_data.fecha_ini) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00060_fecha_fin_checkColumnConstraints(p_data.fecha_fin) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00060_entrada_datos_checkColumnConstraints(p_data.entrada_datos) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00060_codigo_lote_checkColumnConstraints(p_data.codigo_lote) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00060_afecta_checkColumnConstraints(p_data.afecta) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00060_checkTableConstraints {<BLOCK Name="fct.cgtb00060_ano_checkColumnConstraints">} #+ Check constraints on the "cgtb00060.ano" column #+ #+ @param p_ano - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00060_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE cgtb00060.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00060_ano_checkColumnConstraints {<BLOCK Name="fct.cgtb00060_mes_checkColumnConstraints">} #+ Check constraints on the "cgtb00060.mes" column #+ #+ @param p_mes - CHAR(12) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00060_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE cgtb00060.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00060_mes_checkColumnConstraints {<BLOCK Name="fct.cgtb00060_fecha_ini_checkColumnConstraints">} #+ Check constraints on the "cgtb00060.fecha_ini" column #+ #+ @param p_fecha_ini - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00060_fecha_ini_checkColumnConstraints(p_fecha_ini) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_ini LIKE cgtb00060.fecha_ini LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00060_fecha_ini_checkColumnConstraints {<BLOCK Name="fct.cgtb00060_fecha_fin_checkColumnConstraints">} #+ Check constraints on the "cgtb00060.fecha_fin" column #+ #+ @param p_fecha_fin - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00060_fecha_fin_checkColumnConstraints(p_fecha_fin) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_fin LIKE cgtb00060.fecha_fin LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00060_fecha_fin_checkColumnConstraints {<BLOCK Name="fct.cgtb00060_entrada_datos_checkColumnConstraints">} #+ Check constraints on the "cgtb00060.entrada_datos" column #+ #+ @param p_entrada_datos - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00060_entrada_datos_checkColumnConstraints(p_entrada_datos) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_entrada_datos LIKE cgtb00060.entrada_datos LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00060_entrada_datos_checkColumnConstraints {<BLOCK Name="fct.cgtb00060_codigo_lote_checkColumnConstraints">} #+ Check constraints on the "cgtb00060.codigo_lote" column #+ #+ @param p_codigo_lote - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00060_codigo_lote_checkColumnConstraints(p_codigo_lote) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codigo_lote LIKE cgtb00060.codigo_lote LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00060_codigo_lote_checkColumnConstraints {<BLOCK Name="fct.cgtb00060_afecta_checkColumnConstraints">} #+ Check constraints on the "cgtb00060.afecta" column #+ #+ @param p_afecta - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00060_afecta_checkColumnConstraints(p_afecta) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_afecta LIKE cgtb00060.afecta LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00060_afecta_checkColumnConstraints {<BLOCK Name="fct.cgtb00035_checkTableConstraints">} #+ Check constraints on the "cgtb00035" table #+ #+ @param p_data - a row data LIKE cgtb00035.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00035_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cgtb00035.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cgtb00035_codigo_estado_checkColumnConstraints(p_data.codigo_estado) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00035_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00035_checkTableConstraints {<BLOCK Name="fct.cgtb00035_codigo_estado_checkColumnConstraints">} #+ Check constraints on the "cgtb00035.codigo_estado" column #+ #+ @param p_codigo_estado - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00035_codigo_estado_checkColumnConstraints(p_codigo_estado) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codigo_estado LIKE cgtb00035.codigo_estado LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00035_codigo_estado_checkColumnConstraints {<BLOCK Name="fct.cgtb00035_descripcion_checkColumnConstraints">} #+ Check constraints on the "cgtb00035.descripcion" column #+ #+ @param p_descripcion - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00035_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE cgtb00035.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00035_descripcion_checkColumnConstraints {<BLOCK Name="fct.cgtb00034_checkTableConstraints">} #+ Check constraints on the "cgtb00034" table #+ #+ @param p_data - a row data LIKE cgtb00034.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00034_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cgtb00034.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cgtb00034_codigo_estado_checkColumnConstraints(p_data.codigo_estado) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00034_cuenta_estado_checkColumnConstraints(p_data.cuenta_estado) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00034_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00034_posicion_checkColumnConstraints(p_data.posicion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00034_checkTableConstraints {<BLOCK Name="fct.cgtb00034_codigo_estado_checkColumnConstraints">} #+ Check constraints on the "cgtb00034.codigo_estado" column #+ #+ @param p_codigo_estado - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00034_codigo_estado_checkColumnConstraints(p_codigo_estado) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codigo_estado LIKE cgtb00034.codigo_estado LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00034_codigo_estado_checkColumnConstraints {<BLOCK Name="fct.cgtb00034_cuenta_estado_checkColumnConstraints">} #+ Check constraints on the "cgtb00034.cuenta_estado" column #+ #+ @param p_cuenta_estado - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00034_cuenta_estado_checkColumnConstraints(p_cuenta_estado) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_estado LIKE cgtb00034.cuenta_estado LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00034_cuenta_estado_checkColumnConstraints {<BLOCK Name="fct.cgtb00034_descripcion_checkColumnConstraints">} #+ Check constraints on the "cgtb00034.descripcion" column #+ #+ @param p_descripcion - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00034_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE cgtb00034.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00034_descripcion_checkColumnConstraints {<BLOCK Name="fct.cgtb00034_posicion_checkColumnConstraints">} #+ Check constraints on the "cgtb00034.posicion" column #+ #+ @param p_posicion - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00034_posicion_checkColumnConstraints(p_posicion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_posicion LIKE cgtb00034.posicion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00034_posicion_checkColumnConstraints {<BLOCK Name="fct.cgtb00033_checkTableConstraints">} #+ Check constraints on the "cgtb00033" table #+ #+ @param p_data - a row data LIKE cgtb00033.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00033_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cgtb00033.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cgtb00033_cheque_no_checkColumnConstraints(p_data.cheque_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00033_banco_checkColumnConstraints(p_data.banco) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00033_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00033_monto_checkColumnConstraints(p_data.monto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00033_portador_checkColumnConstraints(p_data.portador) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00033_cod_cro_checkColumnConstraints(p_data.cod_cro) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00033_recibido_por_checkColumnConstraints(p_data.recibido_por) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00033_cedula_checkColumnConstraints(p_data.cedula) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00033_direccion_checkColumnConstraints(p_data.direccion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00033_fecha_ent_checkColumnConstraints(p_data.fecha_ent) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00033_hora_ent_checkColumnConstraints(p_data.hora_ent) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00033_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00033_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00033_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00033_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00033_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00033_checkTableConstraints {<BLOCK Name="fct.cgtb00033_cheque_no_checkColumnConstraints">} #+ Check constraints on the "cgtb00033.cheque_no" column #+ #+ @param p_cheque_no - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00033_cheque_no_checkColumnConstraints(p_cheque_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cheque_no LIKE cgtb00033.cheque_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cheque_no IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cheque_no: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00033_cheque_no_checkColumnConstraints {<BLOCK Name="fct.cgtb00033_banco_checkColumnConstraints">} #+ Check constraints on the "cgtb00033.banco" column #+ #+ @param p_banco - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00033_banco_checkColumnConstraints(p_banco) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_banco LIKE cgtb00033.banco LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_banco IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- banco: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00033_banco_checkColumnConstraints {<BLOCK Name="fct.cgtb00033_fecha_checkColumnConstraints">} #+ Check constraints on the "cgtb00033.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00033_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE cgtb00033.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00033_fecha_checkColumnConstraints {<BLOCK Name="fct.cgtb00033_monto_checkColumnConstraints">} #+ Check constraints on the "cgtb00033.monto" column #+ #+ @param p_monto - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00033_monto_checkColumnConstraints(p_monto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_monto LIKE cgtb00033.monto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00033_monto_checkColumnConstraints {<BLOCK Name="fct.cgtb00033_portador_checkColumnConstraints">} #+ Check constraints on the "cgtb00033.portador" column #+ #+ @param p_portador - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00033_portador_checkColumnConstraints(p_portador) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_portador LIKE cgtb00033.portador LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00033_portador_checkColumnConstraints {<BLOCK Name="fct.cgtb00033_cod_cro_checkColumnConstraints">} #+ Check constraints on the "cgtb00033.cod_cro" column #+ #+ @param p_cod_cro - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00033_cod_cro_checkColumnConstraints(p_cod_cro) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_cro LIKE cgtb00033.cod_cro LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_cro IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_cro: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00033_cod_cro_checkColumnConstraints {<BLOCK Name="fct.cgtb00033_recibido_por_checkColumnConstraints">} #+ Check constraints on the "cgtb00033.recibido_por" column #+ #+ @param p_recibido_por - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00033_recibido_por_checkColumnConstraints(p_recibido_por) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_recibido_por LIKE cgtb00033.recibido_por LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_recibido_por IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- recibido_por: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00033_recibido_por_checkColumnConstraints {<BLOCK Name="fct.cgtb00033_cedula_checkColumnConstraints">} #+ Check constraints on the "cgtb00033.cedula" column #+ #+ @param p_cedula - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00033_cedula_checkColumnConstraints(p_cedula) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cedula LIKE cgtb00033.cedula LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cedula IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cedula: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00033_cedula_checkColumnConstraints {<BLOCK Name="fct.cgtb00033_direccion_checkColumnConstraints">} #+ Check constraints on the "cgtb00033.direccion" column #+ #+ @param p_direccion - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00033_direccion_checkColumnConstraints(p_direccion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_direccion LIKE cgtb00033.direccion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00033_direccion_checkColumnConstraints {<BLOCK Name="fct.cgtb00033_fecha_ent_checkColumnConstraints">} #+ Check constraints on the "cgtb00033.fecha_ent" column #+ #+ @param p_fecha_ent - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00033_fecha_ent_checkColumnConstraints(p_fecha_ent) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_ent LIKE cgtb00033.fecha_ent LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_fecha_ent IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- fecha_ent: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00033_fecha_ent_checkColumnConstraints {<BLOCK Name="fct.cgtb00033_hora_ent_checkColumnConstraints">} #+ Check constraints on the "cgtb00033.hora_ent" column #+ #+ @param p_hora_ent - CHAR(5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00033_hora_ent_checkColumnConstraints(p_hora_ent) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_hora_ent LIKE cgtb00033.hora_ent LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_hora_ent IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- hora_ent: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00033_hora_ent_checkColumnConstraints {<BLOCK Name="fct.cgtb00033_status_t_checkColumnConstraints">} #+ Check constraints on the "cgtb00033.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00033_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cgtb00033.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00033_status_t_checkColumnConstraints {<BLOCK Name="fct.cgtb00033_us_crea_checkColumnConstraints">} #+ Check constraints on the "cgtb00033.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00033_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cgtb00033.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00033_us_crea_checkColumnConstraints {<BLOCK Name="fct.cgtb00033_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cgtb00033.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00033_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cgtb00033.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00033_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cgtb00033_us_mod_checkColumnConstraints">} #+ Check constraints on the "cgtb00033.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00033_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cgtb00033.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00033_us_mod_checkColumnConstraints {<BLOCK Name="fct.cgtb00033_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cgtb00033.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00033_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cgtb00033.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00033_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cgtb00032_checkTableConstraints">} #+ Check constraints on the "cgtb00032" table #+ #+ @param p_data - a row data LIKE cgtb00032.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00032_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cgtb00032.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cgtb00032_cheque_no_checkColumnConstraints(p_data.cheque_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00032_banco_checkColumnConstraints(p_data.banco) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00032_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00032_cod_cro_checkColumnConstraints(p_data.cod_cro) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00032_recibido_por_checkColumnConstraints(p_data.recibido_por) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00032_cedula_checkColumnConstraints(p_data.cedula) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00032_direccion_checkColumnConstraints(p_data.direccion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00032_fecha_ent_checkColumnConstraints(p_data.fecha_ent) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00032_hora_ent_checkColumnConstraints(p_data.hora_ent) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00032_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00032_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00032_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00032_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00032_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00032_checkTableConstraints {<BLOCK Name="fct.cgtb00032_cheque_no_checkColumnConstraints">} #+ Check constraints on the "cgtb00032.cheque_no" column #+ #+ @param p_cheque_no - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00032_cheque_no_checkColumnConstraints(p_cheque_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cheque_no LIKE cgtb00032.cheque_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cheque_no IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cheque_no: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00032_cheque_no_checkColumnConstraints {<BLOCK Name="fct.cgtb00032_banco_checkColumnConstraints">} #+ Check constraints on the "cgtb00032.banco" column #+ #+ @param p_banco - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00032_banco_checkColumnConstraints(p_banco) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_banco LIKE cgtb00032.banco LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_banco IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- banco: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00032_banco_checkColumnConstraints {<BLOCK Name="fct.cgtb00032_fecha_checkColumnConstraints">} #+ Check constraints on the "cgtb00032.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00032_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE cgtb00032.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00032_fecha_checkColumnConstraints {<BLOCK Name="fct.cgtb00032_cod_cro_checkColumnConstraints">} #+ Check constraints on the "cgtb00032.cod_cro" column #+ #+ @param p_cod_cro - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00032_cod_cro_checkColumnConstraints(p_cod_cro) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_cro LIKE cgtb00032.cod_cro LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_cro IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_cro: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00032_cod_cro_checkColumnConstraints {<BLOCK Name="fct.cgtb00032_recibido_por_checkColumnConstraints">} #+ Check constraints on the "cgtb00032.recibido_por" column #+ #+ @param p_recibido_por - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00032_recibido_por_checkColumnConstraints(p_recibido_por) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_recibido_por LIKE cgtb00032.recibido_por LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_recibido_por IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- recibido_por: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00032_recibido_por_checkColumnConstraints {<BLOCK Name="fct.cgtb00032_cedula_checkColumnConstraints">} #+ Check constraints on the "cgtb00032.cedula" column #+ #+ @param p_cedula - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00032_cedula_checkColumnConstraints(p_cedula) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cedula LIKE cgtb00032.cedula LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cedula IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cedula: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00032_cedula_checkColumnConstraints {<BLOCK Name="fct.cgtb00032_direccion_checkColumnConstraints">} #+ Check constraints on the "cgtb00032.direccion" column #+ #+ @param p_direccion - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00032_direccion_checkColumnConstraints(p_direccion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_direccion LIKE cgtb00032.direccion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00032_direccion_checkColumnConstraints {<BLOCK Name="fct.cgtb00032_fecha_ent_checkColumnConstraints">} #+ Check constraints on the "cgtb00032.fecha_ent" column #+ #+ @param p_fecha_ent - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00032_fecha_ent_checkColumnConstraints(p_fecha_ent) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_ent LIKE cgtb00032.fecha_ent LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_fecha_ent IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- fecha_ent: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00032_fecha_ent_checkColumnConstraints {<BLOCK Name="fct.cgtb00032_hora_ent_checkColumnConstraints">} #+ Check constraints on the "cgtb00032.hora_ent" column #+ #+ @param p_hora_ent - CHAR(5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00032_hora_ent_checkColumnConstraints(p_hora_ent) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_hora_ent LIKE cgtb00032.hora_ent LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_hora_ent IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- hora_ent: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00032_hora_ent_checkColumnConstraints {<BLOCK Name="fct.cgtb00032_status_t_checkColumnConstraints">} #+ Check constraints on the "cgtb00032.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00032_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cgtb00032.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00032_status_t_checkColumnConstraints {<BLOCK Name="fct.cgtb00032_us_crea_checkColumnConstraints">} #+ Check constraints on the "cgtb00032.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00032_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cgtb00032.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00032_us_crea_checkColumnConstraints {<BLOCK Name="fct.cgtb00032_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cgtb00032.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00032_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cgtb00032.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00032_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cgtb00032_us_mod_checkColumnConstraints">} #+ Check constraints on the "cgtb00032.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00032_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cgtb00032.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00032_us_mod_checkColumnConstraints {<BLOCK Name="fct.cgtb00032_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cgtb00032.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00032_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cgtb00032.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00032_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cgtb00031_checkTableConstraints">} #+ Check constraints on the "cgtb00031" table #+ #+ @param p_data - a row data LIKE cgtb00031.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00031_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cgtb00031.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cgtb00031_cod_cro_checkColumnConstraints(p_data.cod_cro) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00031_beneficiario_checkColumnConstraints(p_data.beneficiario) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00031_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00031_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00031_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00031_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00031_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00031_checkTableConstraints {<BLOCK Name="fct.cgtb00031_cod_cro_checkColumnConstraints">} #+ Check constraints on the "cgtb00031.cod_cro" column #+ #+ @param p_cod_cro - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00031_cod_cro_checkColumnConstraints(p_cod_cro) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_cro LIKE cgtb00031.cod_cro LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00031_cod_cro_checkColumnConstraints {<BLOCK Name="fct.cgtb00031_beneficiario_checkColumnConstraints">} #+ Check constraints on the "cgtb00031.beneficiario" column #+ #+ @param p_beneficiario - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00031_beneficiario_checkColumnConstraints(p_beneficiario) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_beneficiario LIKE cgtb00031.beneficiario LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00031_beneficiario_checkColumnConstraints {<BLOCK Name="fct.cgtb00031_status_t_checkColumnConstraints">} #+ Check constraints on the "cgtb00031.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00031_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cgtb00031.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00031_status_t_checkColumnConstraints {<BLOCK Name="fct.cgtb00031_us_crea_checkColumnConstraints">} #+ Check constraints on the "cgtb00031.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00031_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cgtb00031.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00031_us_crea_checkColumnConstraints {<BLOCK Name="fct.cgtb00031_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cgtb00031.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00031_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cgtb00031.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00031_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cgtb00031_us_mod_checkColumnConstraints">} #+ Check constraints on the "cgtb00031.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00031_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cgtb00031.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00031_us_mod_checkColumnConstraints {<BLOCK Name="fct.cgtb00031_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cgtb00031.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00031_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cgtb00031.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00031_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cgtb00023_checkTableConstraints">} #+ Check constraints on the "cgtb00023" table #+ #+ @param p_data - a row data LIKE cgtb00023.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00023_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cgtb00023.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cgtb00023_cuenta_no_checkColumnConstraints(p_data.cuenta_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00023_presupuesto_checkColumnConstraints(p_data.presupuesto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00023_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00023_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00023_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00023_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00023_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00023_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00023_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00023_checkTableConstraints {<BLOCK Name="fct.cgtb00023_cuenta_no_checkColumnConstraints">} #+ Check constraints on the "cgtb00023.cuenta_no" column #+ #+ @param p_cuenta_no - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00023_cuenta_no_checkColumnConstraints(p_cuenta_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_no LIKE cgtb00023.cuenta_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cuenta_no IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cuenta_no: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00023_cuenta_no_checkColumnConstraints {<BLOCK Name="fct.cgtb00023_presupuesto_checkColumnConstraints">} #+ Check constraints on the "cgtb00023.presupuesto" column #+ #+ @param p_presupuesto - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00023_presupuesto_checkColumnConstraints(p_presupuesto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_presupuesto LIKE cgtb00023.presupuesto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_presupuesto IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- presupuesto: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00023_presupuesto_checkColumnConstraints {<BLOCK Name="fct.cgtb00023_ano_checkColumnConstraints">} #+ Check constraints on the "cgtb00023.ano" column #+ #+ @param p_ano - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00023_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE cgtb00023.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_ano IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- ano: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00023_ano_checkColumnConstraints {<BLOCK Name="fct.cgtb00023_mes_checkColumnConstraints">} #+ Check constraints on the "cgtb00023.mes" column #+ #+ @param p_mes - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00023_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE cgtb00023.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_mes IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- mes: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00023_mes_checkColumnConstraints {<BLOCK Name="fct.cgtb00023_status_t_checkColumnConstraints">} #+ Check constraints on the "cgtb00023.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00023_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cgtb00023.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00023_status_t_checkColumnConstraints {<BLOCK Name="fct.cgtb00023_us_crea_checkColumnConstraints">} #+ Check constraints on the "cgtb00023.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00023_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cgtb00023.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00023_us_crea_checkColumnConstraints {<BLOCK Name="fct.cgtb00023_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cgtb00023.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00023_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cgtb00023.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00023_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cgtb00023_us_mod_checkColumnConstraints">} #+ Check constraints on the "cgtb00023.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00023_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cgtb00023.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00023_us_mod_checkColumnConstraints {<BLOCK Name="fct.cgtb00023_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cgtb00023.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00023_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cgtb00023.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00023_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cgtb00018_checkTableConstraints">} #+ Check constraints on the "cgtb00018" table #+ #+ @param p_data - a row data LIKE cgtb00018.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00018_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cgtb00018.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cgtb00018_tipo_checkColumnConstraints(p_data.tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00018_num_oc_checkColumnConstraints(p_data.num_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00018_rep_entrada_checkColumnConstraints(p_data.rep_entrada) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00018_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00018_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00018_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00018_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00018_cantidad_oc_checkColumnConstraints(p_data.cantidad_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00018_fob_checkColumnConstraints(p_data.fob) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00018_costo_flete_checkColumnConstraints(p_data.costo_flete) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00018_impuesto_checkColumnConstraints(p_data.impuesto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00018_otros_g_checkColumnConstraints(p_data.otros_g) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00018_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00018_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00018_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00018_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00018_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00018_checkTableConstraints {<BLOCK Name="fct.cgtb00018_tipo_checkColumnConstraints">} #+ Check constraints on the "cgtb00018.tipo" column #+ #+ @param p_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00018_tipo_checkColumnConstraints(p_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo LIKE cgtb00018.tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00018_tipo_checkColumnConstraints {<BLOCK Name="fct.cgtb00018_num_oc_checkColumnConstraints">} #+ Check constraints on the "cgtb00018.num_oc" column #+ #+ @param p_num_oc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00018_num_oc_checkColumnConstraints(p_num_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_oc LIKE cgtb00018.num_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00018_num_oc_checkColumnConstraints {<BLOCK Name="fct.cgtb00018_rep_entrada_checkColumnConstraints">} #+ Check constraints on the "cgtb00018.rep_entrada" column #+ #+ @param p_rep_entrada - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00018_rep_entrada_checkColumnConstraints(p_rep_entrada) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_rep_entrada LIKE cgtb00018.rep_entrada LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00018_rep_entrada_checkColumnConstraints {<BLOCK Name="fct.cgtb00018_cod_n_checkColumnConstraints">} #+ Check constraints on the "cgtb00018.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00018_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE cgtb00018.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00018_cod_n_checkColumnConstraints {<BLOCK Name="fct.cgtb00018_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "cgtb00018.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00018_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE cgtb00018.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00018_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.cgtb00018_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "cgtb00018.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00018_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE cgtb00018.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00018_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.cgtb00018_cod_sec_checkColumnConstraints">} #+ Check constraints on the "cgtb00018.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00018_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE cgtb00018.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00018_cod_sec_checkColumnConstraints {<BLOCK Name="fct.cgtb00018_cantidad_oc_checkColumnConstraints">} #+ Check constraints on the "cgtb00018.cantidad_oc" column #+ #+ @param p_cantidad_oc - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00018_cantidad_oc_checkColumnConstraints(p_cantidad_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad_oc LIKE cgtb00018.cantidad_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00018_cantidad_oc_checkColumnConstraints {<BLOCK Name="fct.cgtb00018_fob_checkColumnConstraints">} #+ Check constraints on the "cgtb00018.fob" column #+ #+ @param p_fob - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00018_fob_checkColumnConstraints(p_fob) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fob LIKE cgtb00018.fob LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00018_fob_checkColumnConstraints {<BLOCK Name="fct.cgtb00018_costo_flete_checkColumnConstraints">} #+ Check constraints on the "cgtb00018.costo_flete" column #+ #+ @param p_costo_flete - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00018_costo_flete_checkColumnConstraints(p_costo_flete) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_costo_flete LIKE cgtb00018.costo_flete LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00018_costo_flete_checkColumnConstraints {<BLOCK Name="fct.cgtb00018_impuesto_checkColumnConstraints">} #+ Check constraints on the "cgtb00018.impuesto" column #+ #+ @param p_impuesto - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00018_impuesto_checkColumnConstraints(p_impuesto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_impuesto LIKE cgtb00018.impuesto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00018_impuesto_checkColumnConstraints {<BLOCK Name="fct.cgtb00018_otros_g_checkColumnConstraints">} #+ Check constraints on the "cgtb00018.otros_g" column #+ #+ @param p_otros_g - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00018_otros_g_checkColumnConstraints(p_otros_g) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_otros_g LIKE cgtb00018.otros_g LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00018_otros_g_checkColumnConstraints {<BLOCK Name="fct.cgtb00018_status_t_checkColumnConstraints">} #+ Check constraints on the "cgtb00018.status_t" column #+ #+ @param p_status_t - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00018_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cgtb00018.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00018_status_t_checkColumnConstraints {<BLOCK Name="fct.cgtb00018_us_crea_checkColumnConstraints">} #+ Check constraints on the "cgtb00018.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00018_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cgtb00018.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00018_us_crea_checkColumnConstraints {<BLOCK Name="fct.cgtb00018_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cgtb00018.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00018_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cgtb00018.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00018_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cgtb00018_us_mod_checkColumnConstraints">} #+ Check constraints on the "cgtb00018.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00018_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cgtb00018.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00018_us_mod_checkColumnConstraints {<BLOCK Name="fct.cgtb00018_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cgtb00018.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00018_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cgtb00018.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00018_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cgtb00017_checkTableConstraints">} #+ Check constraints on the "cgtb00017" table #+ #+ @param p_data - a row data LIKE cgtb00017.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00017_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cgtb00017.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cgtb00017_tipo_checkColumnConstraints(p_data.tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00017_num_oc_checkColumnConstraints(p_data.num_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00017_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00017_liquidada_checkColumnConstraints(p_data.liquidada) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00017_cerrada_checkColumnConstraints(p_data.cerrada) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00017_pagada_checkColumnConstraints(p_data.pagada) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00017_rep_entrada_checkColumnConstraints(p_data.rep_entrada) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00017_factura_checkColumnConstraints(p_data.factura) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00017_prima_us_checkColumnConstraints(p_data.prima_us) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00017_cod_sp_checkColumnConstraints(p_data.cod_sp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00017_cod_sp_sec_checkColumnConstraints(p_data.cod_sp_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00017_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00017_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00017_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00017_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00017_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00017_checkTableConstraints {<BLOCK Name="fct.cgtb00017_tipo_checkColumnConstraints">} #+ Check constraints on the "cgtb00017.tipo" column #+ #+ @param p_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00017_tipo_checkColumnConstraints(p_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo LIKE cgtb00017.tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00017_tipo_checkColumnConstraints {<BLOCK Name="fct.cgtb00017_num_oc_checkColumnConstraints">} #+ Check constraints on the "cgtb00017.num_oc" column #+ #+ @param p_num_oc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00017_num_oc_checkColumnConstraints(p_num_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_oc LIKE cgtb00017.num_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00017_num_oc_checkColumnConstraints {<BLOCK Name="fct.cgtb00017_fecha_checkColumnConstraints">} #+ Check constraints on the "cgtb00017.fecha" column #+ #+ @param p_fecha - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00017_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE cgtb00017.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00017_fecha_checkColumnConstraints {<BLOCK Name="fct.cgtb00017_liquidada_checkColumnConstraints">} #+ Check constraints on the "cgtb00017.liquidada" column #+ #+ @param p_liquidada - VARCHAR2(12) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00017_liquidada_checkColumnConstraints(p_liquidada) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_liquidada LIKE cgtb00017.liquidada LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00017_liquidada_checkColumnConstraints {<BLOCK Name="fct.cgtb00017_cerrada_checkColumnConstraints">} #+ Check constraints on the "cgtb00017.cerrada" column #+ #+ @param p_cerrada - VARCHAR2(12) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00017_cerrada_checkColumnConstraints(p_cerrada) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cerrada LIKE cgtb00017.cerrada LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00017_cerrada_checkColumnConstraints {<BLOCK Name="fct.cgtb00017_pagada_checkColumnConstraints">} #+ Check constraints on the "cgtb00017.pagada" column #+ #+ @param p_pagada - VARCHAR2(12) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00017_pagada_checkColumnConstraints(p_pagada) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_pagada LIKE cgtb00017.pagada LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00017_pagada_checkColumnConstraints {<BLOCK Name="fct.cgtb00017_rep_entrada_checkColumnConstraints">} #+ Check constraints on the "cgtb00017.rep_entrada" column #+ #+ @param p_rep_entrada - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00017_rep_entrada_checkColumnConstraints(p_rep_entrada) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_rep_entrada LIKE cgtb00017.rep_entrada LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00017_rep_entrada_checkColumnConstraints {<BLOCK Name="fct.cgtb00017_factura_checkColumnConstraints">} #+ Check constraints on the "cgtb00017.factura" column #+ #+ @param p_factura - VARCHAR2(12) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00017_factura_checkColumnConstraints(p_factura) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_factura LIKE cgtb00017.factura LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00017_factura_checkColumnConstraints {<BLOCK Name="fct.cgtb00017_prima_us_checkColumnConstraints">} #+ Check constraints on the "cgtb00017.prima_us" column #+ #+ @param p_prima_us - DECIMAL(8,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00017_prima_us_checkColumnConstraints(p_prima_us) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_prima_us LIKE cgtb00017.prima_us LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00017_prima_us_checkColumnConstraints {<BLOCK Name="fct.cgtb00017_cod_sp_checkColumnConstraints">} #+ Check constraints on the "cgtb00017.cod_sp" column #+ #+ @param p_cod_sp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00017_cod_sp_checkColumnConstraints(p_cod_sp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp LIKE cgtb00017.cod_sp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00017_cod_sp_checkColumnConstraints {<BLOCK Name="fct.cgtb00017_cod_sp_sec_checkColumnConstraints">} #+ Check constraints on the "cgtb00017.cod_sp_sec" column #+ #+ @param p_cod_sp_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00017_cod_sp_sec_checkColumnConstraints(p_cod_sp_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp_sec LIKE cgtb00017.cod_sp_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00017_cod_sp_sec_checkColumnConstraints {<BLOCK Name="fct.cgtb00017_status_t_checkColumnConstraints">} #+ Check constraints on the "cgtb00017.status_t" column #+ #+ @param p_status_t - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00017_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cgtb00017.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00017_status_t_checkColumnConstraints {<BLOCK Name="fct.cgtb00017_us_crea_checkColumnConstraints">} #+ Check constraints on the "cgtb00017.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00017_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cgtb00017.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00017_us_crea_checkColumnConstraints {<BLOCK Name="fct.cgtb00017_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cgtb00017.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00017_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cgtb00017.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00017_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cgtb00017_us_mod_checkColumnConstraints">} #+ Check constraints on the "cgtb00017.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00017_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cgtb00017.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00017_us_mod_checkColumnConstraints {<BLOCK Name="fct.cgtb00017_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cgtb00017.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00017_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cgtb00017.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00017_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cgtb00016_checkTableConstraints">} #+ Check constraints on the "cgtb00016" table #+ #+ @param p_data - a row data LIKE cgtb00016.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00016_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cgtb00016.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cgtb00016_cuenta_no_checkColumnConstraints(p_data.cuenta_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00016_estado_a_checkColumnConstraints(p_data.estado_a) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00016_estado_m_checkColumnConstraints(p_data.estado_m) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00016_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00016_debito_checkColumnConstraints(p_data.debito) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00016_credito_checkColumnConstraints(p_data.credito) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00016_balance_ant_checkColumnConstraints(p_data.balance_ant) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00016_actividad_checkColumnConstraints(p_data.actividad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00016_balance_act_checkColumnConstraints(p_data.balance_act) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00016_primern_checkColumnConstraints(p_data.primern) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00016_checkTableConstraints {<BLOCK Name="fct.cgtb00016_cuenta_no_checkColumnConstraints">} #+ Check constraints on the "cgtb00016.cuenta_no" column #+ #+ @param p_cuenta_no - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00016_cuenta_no_checkColumnConstraints(p_cuenta_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_no LIKE cgtb00016.cuenta_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00016_cuenta_no_checkColumnConstraints {<BLOCK Name="fct.cgtb00016_estado_a_checkColumnConstraints">} #+ Check constraints on the "cgtb00016.estado_a" column #+ #+ @param p_estado_a - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00016_estado_a_checkColumnConstraints(p_estado_a) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_estado_a LIKE cgtb00016.estado_a LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00016_estado_a_checkColumnConstraints {<BLOCK Name="fct.cgtb00016_estado_m_checkColumnConstraints">} #+ Check constraints on the "cgtb00016.estado_m" column #+ #+ @param p_estado_m - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00016_estado_m_checkColumnConstraints(p_estado_m) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_estado_m LIKE cgtb00016.estado_m LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00016_estado_m_checkColumnConstraints {<BLOCK Name="fct.cgtb00016_descripcion_checkColumnConstraints">} #+ Check constraints on the "cgtb00016.descripcion" column #+ #+ @param p_descripcion - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00016_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE cgtb00016.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00016_descripcion_checkColumnConstraints {<BLOCK Name="fct.cgtb00016_debito_checkColumnConstraints">} #+ Check constraints on the "cgtb00016.debito" column #+ #+ @param p_debito - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00016_debito_checkColumnConstraints(p_debito) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_debito LIKE cgtb00016.debito LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00016_debito_checkColumnConstraints {<BLOCK Name="fct.cgtb00016_credito_checkColumnConstraints">} #+ Check constraints on the "cgtb00016.credito" column #+ #+ @param p_credito - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00016_credito_checkColumnConstraints(p_credito) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_credito LIKE cgtb00016.credito LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00016_credito_checkColumnConstraints {<BLOCK Name="fct.cgtb00016_balance_ant_checkColumnConstraints">} #+ Check constraints on the "cgtb00016.balance_ant" column #+ #+ @param p_balance_ant - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00016_balance_ant_checkColumnConstraints(p_balance_ant) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_balance_ant LIKE cgtb00016.balance_ant LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00016_balance_ant_checkColumnConstraints {<BLOCK Name="fct.cgtb00016_actividad_checkColumnConstraints">} #+ Check constraints on the "cgtb00016.actividad" column #+ #+ @param p_actividad - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00016_actividad_checkColumnConstraints(p_actividad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_actividad LIKE cgtb00016.actividad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00016_actividad_checkColumnConstraints {<BLOCK Name="fct.cgtb00016_balance_act_checkColumnConstraints">} #+ Check constraints on the "cgtb00016.balance_act" column #+ #+ @param p_balance_act - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00016_balance_act_checkColumnConstraints(p_balance_act) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_balance_act LIKE cgtb00016.balance_act LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00016_balance_act_checkColumnConstraints {<BLOCK Name="fct.cgtb00016_primern_checkColumnConstraints">} #+ Check constraints on the "cgtb00016.primern" column #+ #+ @param p_primern - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00016_primern_checkColumnConstraints(p_primern) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_primern LIKE cgtb00016.primern LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00016_primern_checkColumnConstraints {<BLOCK Name="fct.cgtb00014_checkTableConstraints">} #+ Check constraints on the "cgtb00014" table #+ #+ @param p_data - a row data LIKE cgtb00014.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00014_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cgtb00014.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cgtb00014_cuenta_no_checkColumnConstraints(p_data.cuenta_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00014_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00014_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00014_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00014_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00014_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00014_checkTableConstraints {<BLOCK Name="fct.cgtb00014_cuenta_no_checkColumnConstraints">} #+ Check constraints on the "cgtb00014.cuenta_no" column #+ #+ @param p_cuenta_no - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00014_cuenta_no_checkColumnConstraints(p_cuenta_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_no LIKE cgtb00014.cuenta_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00014_cuenta_no_checkColumnConstraints {<BLOCK Name="fct.cgtb00014_status_t_checkColumnConstraints">} #+ Check constraints on the "cgtb00014.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00014_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cgtb00014.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00014_status_t_checkColumnConstraints {<BLOCK Name="fct.cgtb00014_us_crea_checkColumnConstraints">} #+ Check constraints on the "cgtb00014.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00014_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cgtb00014.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00014_us_crea_checkColumnConstraints {<BLOCK Name="fct.cgtb00014_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cgtb00014.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00014_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cgtb00014.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00014_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cgtb00014_us_mod_checkColumnConstraints">} #+ Check constraints on the "cgtb00014.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00014_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cgtb00014.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00014_us_mod_checkColumnConstraints {<BLOCK Name="fct.cgtb00014_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cgtb00014.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00014_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cgtb00014.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00014_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cgtb00012_checkTableConstraints">} #+ Check constraints on the "cgtb00012" table #+ #+ @param p_data - a row data LIKE cgtb00012.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00012_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cgtb00012.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cgtb00012_cheque_no_checkColumnConstraints(p_data.cheque_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00012_cuenta_no_checkColumnConstraints(p_data.cuenta_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00012_nombre_bco_checkColumnConstraints(p_data.nombre_bco) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00012_direccion_checkColumnConstraints(p_data.direccion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00012_cuenta_bank_checkColumnConstraints(p_data.cuenta_bank) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00012_codigo_1_checkColumnConstraints(p_data.codigo_1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00012_codigo_2_checkColumnConstraints(p_data.codigo_2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00012_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00012_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00012_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00012_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00012_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00012_checkTableConstraints {<BLOCK Name="fct.cgtb00012_cheque_no_checkColumnConstraints">} #+ Check constraints on the "cgtb00012.cheque_no" column #+ #+ @param p_cheque_no - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00012_cheque_no_checkColumnConstraints(p_cheque_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cheque_no LIKE cgtb00012.cheque_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00012_cheque_no_checkColumnConstraints {<BLOCK Name="fct.cgtb00012_cuenta_no_checkColumnConstraints">} #+ Check constraints on the "cgtb00012.cuenta_no" column #+ #+ @param p_cuenta_no - VARCHAR2(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00012_cuenta_no_checkColumnConstraints(p_cuenta_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_no LIKE cgtb00012.cuenta_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00012_cuenta_no_checkColumnConstraints {<BLOCK Name="fct.cgtb00012_nombre_bco_checkColumnConstraints">} #+ Check constraints on the "cgtb00012.nombre_bco" column #+ #+ @param p_nombre_bco - VARCHAR2(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00012_nombre_bco_checkColumnConstraints(p_nombre_bco) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombre_bco LIKE cgtb00012.nombre_bco LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00012_nombre_bco_checkColumnConstraints {<BLOCK Name="fct.cgtb00012_direccion_checkColumnConstraints">} #+ Check constraints on the "cgtb00012.direccion" column #+ #+ @param p_direccion - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00012_direccion_checkColumnConstraints(p_direccion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_direccion LIKE cgtb00012.direccion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00012_direccion_checkColumnConstraints {<BLOCK Name="fct.cgtb00012_cuenta_bank_checkColumnConstraints">} #+ Check constraints on the "cgtb00012.cuenta_bank" column #+ #+ @param p_cuenta_bank - VARCHAR2(14) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00012_cuenta_bank_checkColumnConstraints(p_cuenta_bank) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_bank LIKE cgtb00012.cuenta_bank LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00012_cuenta_bank_checkColumnConstraints {<BLOCK Name="fct.cgtb00012_codigo_1_checkColumnConstraints">} #+ Check constraints on the "cgtb00012.codigo_1" column #+ #+ @param p_codigo_1 - VARCHAR2(7) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00012_codigo_1_checkColumnConstraints(p_codigo_1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codigo_1 LIKE cgtb00012.codigo_1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00012_codigo_1_checkColumnConstraints {<BLOCK Name="fct.cgtb00012_codigo_2_checkColumnConstraints">} #+ Check constraints on the "cgtb00012.codigo_2" column #+ #+ @param p_codigo_2 - VARCHAR2(7) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00012_codigo_2_checkColumnConstraints(p_codigo_2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codigo_2 LIKE cgtb00012.codigo_2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00012_codigo_2_checkColumnConstraints {<BLOCK Name="fct.cgtb00012_status_t_checkColumnConstraints">} #+ Check constraints on the "cgtb00012.status_t" column #+ #+ @param p_status_t - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00012_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cgtb00012.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00012_status_t_checkColumnConstraints {<BLOCK Name="fct.cgtb00012_us_crea_checkColumnConstraints">} #+ Check constraints on the "cgtb00012.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00012_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cgtb00012.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00012_us_crea_checkColumnConstraints {<BLOCK Name="fct.cgtb00012_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cgtb00012.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00012_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cgtb00012.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00012_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cgtb00012_us_mod_checkColumnConstraints">} #+ Check constraints on the "cgtb00012.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00012_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cgtb00012.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00012_us_mod_checkColumnConstraints {<BLOCK Name="fct.cgtb00012_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cgtb00012.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00012_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cgtb00012.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00012_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cgtb00011_checkTableConstraints">} #+ Check constraints on the "cgtb00011" table #+ #+ @param p_data - a row data LIKE cgtb00011.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00011_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cgtb00011.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cgtb00011_entrada_no_checkColumnConstraints(p_data.entrada_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00011_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00011_prog_4gl_checkColumnConstraints(p_data.prog_4gl) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00011_referencia_checkColumnConstraints(p_data.referencia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00011_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00011_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00011_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00011_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00011_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00011_checkTableConstraints {<BLOCK Name="fct.cgtb00011_entrada_no_checkColumnConstraints">} #+ Check constraints on the "cgtb00011.entrada_no" column #+ #+ @param p_entrada_no - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00011_entrada_no_checkColumnConstraints(p_entrada_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_entrada_no LIKE cgtb00011.entrada_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00011_entrada_no_checkColumnConstraints {<BLOCK Name="fct.cgtb00011_descripcion_checkColumnConstraints">} #+ Check constraints on the "cgtb00011.descripcion" column #+ #+ @param p_descripcion - VARCHAR2(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00011_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE cgtb00011.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00011_descripcion_checkColumnConstraints {<BLOCK Name="fct.cgtb00011_prog_4gl_checkColumnConstraints">} #+ Check constraints on the "cgtb00011.prog_4gl" column #+ #+ @param p_prog_4gl - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00011_prog_4gl_checkColumnConstraints(p_prog_4gl) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_prog_4gl LIKE cgtb00011.prog_4gl LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00011_prog_4gl_checkColumnConstraints {<BLOCK Name="fct.cgtb00011_referencia_checkColumnConstraints">} #+ Check constraints on the "cgtb00011.referencia" column #+ #+ @param p_referencia - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00011_referencia_checkColumnConstraints(p_referencia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_referencia LIKE cgtb00011.referencia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00011_referencia_checkColumnConstraints {<BLOCK Name="fct.cgtb00011_status_t_checkColumnConstraints">} #+ Check constraints on the "cgtb00011.status_t" column #+ #+ @param p_status_t - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00011_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cgtb00011.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00011_status_t_checkColumnConstraints {<BLOCK Name="fct.cgtb00011_us_crea_checkColumnConstraints">} #+ Check constraints on the "cgtb00011.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00011_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cgtb00011.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00011_us_crea_checkColumnConstraints {<BLOCK Name="fct.cgtb00011_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cgtb00011.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00011_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cgtb00011.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00011_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cgtb00011_us_mod_checkColumnConstraints">} #+ Check constraints on the "cgtb00011.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00011_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cgtb00011.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00011_us_mod_checkColumnConstraints {<BLOCK Name="fct.cgtb00011_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cgtb00011.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00011_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cgtb00011.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00011_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cgtb00010_checkTableConstraints">} #+ Check constraints on the "cgtb00010" table #+ #+ @param p_data - a row data LIKE cgtb00010.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00010_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cgtb00010.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cgtb00010_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00010_cuenta_no_checkColumnConstraints(p_data.cuenta_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00010_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00010_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00010_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00010_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00010_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00010_checkTableConstraints {<BLOCK Name="fct.cgtb00010_cod_mov_checkColumnConstraints">} #+ Check constraints on the "cgtb00010.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00010_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE cgtb00010.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00010_cod_mov_checkColumnConstraints {<BLOCK Name="fct.cgtb00010_cuenta_no_checkColumnConstraints">} #+ Check constraints on the "cgtb00010.cuenta_no" column #+ #+ @param p_cuenta_no - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00010_cuenta_no_checkColumnConstraints(p_cuenta_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_no LIKE cgtb00010.cuenta_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00010_cuenta_no_checkColumnConstraints {<BLOCK Name="fct.cgtb00010_status_t_checkColumnConstraints">} #+ Check constraints on the "cgtb00010.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00010_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cgtb00010.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00010_status_t_checkColumnConstraints {<BLOCK Name="fct.cgtb00010_us_crea_checkColumnConstraints">} #+ Check constraints on the "cgtb00010.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00010_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cgtb00010.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00010_us_crea_checkColumnConstraints {<BLOCK Name="fct.cgtb00010_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cgtb00010.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00010_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cgtb00010.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00010_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cgtb00010_us_mod_checkColumnConstraints">} #+ Check constraints on the "cgtb00010.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00010_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cgtb00010.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00010_us_mod_checkColumnConstraints {<BLOCK Name="fct.cgtb00010_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cgtb00010.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00010_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cgtb00010.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00010_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cgtb00009_checkTableConstraints">} #+ Check constraints on the "cgtb00009" table #+ #+ @param p_data - a row data LIKE cgtb00009.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00009_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cgtb00009.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cgtb00009_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00009_cuenta_no_checkColumnConstraints(p_data.cuenta_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00009_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00009_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00009_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00009_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00009_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00009_checkTableConstraints {<BLOCK Name="fct.cgtb00009_cod_mov_checkColumnConstraints">} #+ Check constraints on the "cgtb00009.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00009_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE cgtb00009.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00009_cod_mov_checkColumnConstraints {<BLOCK Name="fct.cgtb00009_cuenta_no_checkColumnConstraints">} #+ Check constraints on the "cgtb00009.cuenta_no" column #+ #+ @param p_cuenta_no - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00009_cuenta_no_checkColumnConstraints(p_cuenta_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_no LIKE cgtb00009.cuenta_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00009_cuenta_no_checkColumnConstraints {<BLOCK Name="fct.cgtb00009_status_t_checkColumnConstraints">} #+ Check constraints on the "cgtb00009.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00009_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cgtb00009.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00009_status_t_checkColumnConstraints {<BLOCK Name="fct.cgtb00009_us_crea_checkColumnConstraints">} #+ Check constraints on the "cgtb00009.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00009_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cgtb00009.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00009_us_crea_checkColumnConstraints {<BLOCK Name="fct.cgtb00009_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cgtb00009.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00009_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cgtb00009.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00009_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cgtb00009_us_mod_checkColumnConstraints">} #+ Check constraints on the "cgtb00009.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00009_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cgtb00009.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00009_us_mod_checkColumnConstraints {<BLOCK Name="fct.cgtb00009_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cgtb00009.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00009_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cgtb00009.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00009_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cgtb00005_checkTableConstraints">} #+ Check constraints on the "cgtb00005" table #+ #+ @param p_data - a row data LIKE cgtb00005.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00005_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cgtb00005.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cgtb00005_cuenta_no_checkColumnConstraints(p_data.cuenta_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00005_cheque_no_checkColumnConstraints(p_data.cheque_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00005_num_emp_checkColumnConstraints(p_data.num_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00005_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00005_portador_checkColumnConstraints(p_data.portador) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00005_tasa_checkColumnConstraints(p_data.tasa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00005_monto_checkColumnConstraints(p_data.monto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00005_status_impresion_checkColumnConstraints(p_data.status_impresion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00005_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00005_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00005_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00005_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00005_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00005_checkTableConstraints {<BLOCK Name="fct.cgtb00005_cuenta_no_checkColumnConstraints">} #+ Check constraints on the "cgtb00005.cuenta_no" column #+ #+ @param p_cuenta_no - VARCHAR2(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00005_cuenta_no_checkColumnConstraints(p_cuenta_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_no LIKE cgtb00005.cuenta_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cuenta_no IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cuenta_no: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00005_cuenta_no_checkColumnConstraints {<BLOCK Name="fct.cgtb00005_cheque_no_checkColumnConstraints">} #+ Check constraints on the "cgtb00005.cheque_no" column #+ #+ @param p_cheque_no - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00005_cheque_no_checkColumnConstraints(p_cheque_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cheque_no LIKE cgtb00005.cheque_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cheque_no IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cheque_no: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00005_cheque_no_checkColumnConstraints {<BLOCK Name="fct.cgtb00005_num_emp_checkColumnConstraints">} #+ Check constraints on the "cgtb00005.num_emp" column #+ #+ @param p_num_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00005_num_emp_checkColumnConstraints(p_num_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_emp LIKE cgtb00005.num_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00005_num_emp_checkColumnConstraints {<BLOCK Name="fct.cgtb00005_fecha_checkColumnConstraints">} #+ Check constraints on the "cgtb00005.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00005_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE cgtb00005.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_fecha IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- fecha: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00005_fecha_checkColumnConstraints {<BLOCK Name="fct.cgtb00005_portador_checkColumnConstraints">} #+ Check constraints on the "cgtb00005.portador" column #+ #+ @param p_portador - VARCHAR2(44) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00005_portador_checkColumnConstraints(p_portador) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_portador LIKE cgtb00005.portador LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_portador IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- portador: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00005_portador_checkColumnConstraints {<BLOCK Name="fct.cgtb00005_tasa_checkColumnConstraints">} #+ Check constraints on the "cgtb00005.tasa" column #+ #+ @param p_tasa - DECIMAL(8,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00005_tasa_checkColumnConstraints(p_tasa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tasa LIKE cgtb00005.tasa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00005_tasa_checkColumnConstraints {<BLOCK Name="fct.cgtb00005_monto_checkColumnConstraints">} #+ Check constraints on the "cgtb00005.monto" column #+ #+ @param p_monto - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00005_monto_checkColumnConstraints(p_monto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_monto LIKE cgtb00005.monto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_monto IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- monto: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00005_monto_checkColumnConstraints {<BLOCK Name="fct.cgtb00005_status_impresion_checkColumnConstraints">} #+ Check constraints on the "cgtb00005.status_impresion" column #+ #+ @param p_status_impresion - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00005_status_impresion_checkColumnConstraints(p_status_impresion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_impresion LIKE cgtb00005.status_impresion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00005_status_impresion_checkColumnConstraints {<BLOCK Name="fct.cgtb00005_status_t_checkColumnConstraints">} #+ Check constraints on the "cgtb00005.status_t" column #+ #+ @param p_status_t - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00005_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cgtb00005.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00005_status_t_checkColumnConstraints {<BLOCK Name="fct.cgtb00005_us_crea_checkColumnConstraints">} #+ Check constraints on the "cgtb00005.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00005_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cgtb00005.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00005_us_crea_checkColumnConstraints {<BLOCK Name="fct.cgtb00005_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cgtb00005.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00005_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cgtb00005.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00005_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cgtb00005_us_mod_checkColumnConstraints">} #+ Check constraints on the "cgtb00005.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00005_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cgtb00005.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00005_us_mod_checkColumnConstraints {<BLOCK Name="fct.cgtb00005_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cgtb00005.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00005_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cgtb00005.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00005_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cgtb00004_checkTableConstraints">} #+ Check constraints on the "cgtb00004" table #+ #+ @param p_data - a row data LIKE cgtb00004.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00004_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cgtb00004.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cgtb00004_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00004_tipo_checkColumnConstraints(p_data.tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00004_ref_checkColumnConstraints(p_data.ref) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00004_cuenta_no_checkColumnConstraints(p_data.cuenta_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00004_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00004_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00004_cod_aux_checkColumnConstraints(p_data.cod_aux) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00004_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00004_detalles_checkColumnConstraints(p_data.detalles) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00004_detalle_1_checkColumnConstraints(p_data.detalle_1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00004_detalle_2_checkColumnConstraints(p_data.detalle_2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00004_debito_checkColumnConstraints(p_data.debito) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00004_credito_checkColumnConstraints(p_data.credito) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00004_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00004_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00004_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00004_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00004_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00004_checkTableConstraints {<BLOCK Name="fct.cgtb00004_fecha_checkColumnConstraints">} #+ Check constraints on the "cgtb00004.fecha" column #+ #+ @param p_fecha - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00004_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE cgtb00004.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00004_fecha_checkColumnConstraints {<BLOCK Name="fct.cgtb00004_tipo_checkColumnConstraints">} #+ Check constraints on the "cgtb00004.tipo" column #+ #+ @param p_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00004_tipo_checkColumnConstraints(p_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo LIKE cgtb00004.tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00004_tipo_checkColumnConstraints {<BLOCK Name="fct.cgtb00004_ref_checkColumnConstraints">} #+ Check constraints on the "cgtb00004.ref" column #+ #+ @param p_ref - VARCHAR2(14) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00004_ref_checkColumnConstraints(p_ref) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ref LIKE cgtb00004.ref LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_ref IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- ref: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00004_ref_checkColumnConstraints {<BLOCK Name="fct.cgtb00004_cuenta_no_checkColumnConstraints">} #+ Check constraints on the "cgtb00004.cuenta_no" column #+ #+ @param p_cuenta_no - VARCHAR2(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00004_cuenta_no_checkColumnConstraints(p_cuenta_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_no LIKE cgtb00004.cuenta_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00004_cuenta_no_checkColumnConstraints {<BLOCK Name="fct.cgtb00004_departamento_checkColumnConstraints">} #+ Check constraints on the "cgtb00004.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00004_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE cgtb00004.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00004_departamento_checkColumnConstraints {<BLOCK Name="fct.cgtb00004_num_doc_checkColumnConstraints">} #+ Check constraints on the "cgtb00004.num_doc" column #+ #+ @param p_num_doc - VARCHAR2(12) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00004_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE cgtb00004.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00004_num_doc_checkColumnConstraints {<BLOCK Name="fct.cgtb00004_cod_aux_checkColumnConstraints">} #+ Check constraints on the "cgtb00004.cod_aux" column #+ #+ @param p_cod_aux - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00004_cod_aux_checkColumnConstraints(p_cod_aux) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_aux LIKE cgtb00004.cod_aux LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00004_cod_aux_checkColumnConstraints {<BLOCK Name="fct.cgtb00004_cod_sec_checkColumnConstraints">} #+ Check constraints on the "cgtb00004.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00004_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE cgtb00004.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00004_cod_sec_checkColumnConstraints {<BLOCK Name="fct.cgtb00004_detalles_checkColumnConstraints">} #+ Check constraints on the "cgtb00004.detalles" column #+ #+ @param p_detalles - VARCHAR2(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00004_detalles_checkColumnConstraints(p_detalles) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_detalles LIKE cgtb00004.detalles LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00004_detalles_checkColumnConstraints {<BLOCK Name="fct.cgtb00004_detalle_1_checkColumnConstraints">} #+ Check constraints on the "cgtb00004.detalle_1" column #+ #+ @param p_detalle_1 - VARCHAR2(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00004_detalle_1_checkColumnConstraints(p_detalle_1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_detalle_1 LIKE cgtb00004.detalle_1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00004_detalle_1_checkColumnConstraints {<BLOCK Name="fct.cgtb00004_detalle_2_checkColumnConstraints">} #+ Check constraints on the "cgtb00004.detalle_2" column #+ #+ @param p_detalle_2 - VARCHAR2(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00004_detalle_2_checkColumnConstraints(p_detalle_2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_detalle_2 LIKE cgtb00004.detalle_2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00004_detalle_2_checkColumnConstraints {<BLOCK Name="fct.cgtb00004_debito_checkColumnConstraints">} #+ Check constraints on the "cgtb00004.debito" column #+ #+ @param p_debito - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00004_debito_checkColumnConstraints(p_debito) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_debito LIKE cgtb00004.debito LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00004_debito_checkColumnConstraints {<BLOCK Name="fct.cgtb00004_credito_checkColumnConstraints">} #+ Check constraints on the "cgtb00004.credito" column #+ #+ @param p_credito - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00004_credito_checkColumnConstraints(p_credito) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_credito LIKE cgtb00004.credito LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00004_credito_checkColumnConstraints {<BLOCK Name="fct.cgtb00004_status_t_checkColumnConstraints">} #+ Check constraints on the "cgtb00004.status_t" column #+ #+ @param p_status_t - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00004_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cgtb00004.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00004_status_t_checkColumnConstraints {<BLOCK Name="fct.cgtb00004_us_crea_checkColumnConstraints">} #+ Check constraints on the "cgtb00004.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00004_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cgtb00004.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00004_us_crea_checkColumnConstraints {<BLOCK Name="fct.cgtb00004_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cgtb00004.fech_crea" column #+ #+ @param p_fech_crea - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00004_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cgtb00004.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00004_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cgtb00004_us_mod_checkColumnConstraints">} #+ Check constraints on the "cgtb00004.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00004_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cgtb00004.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00004_us_mod_checkColumnConstraints {<BLOCK Name="fct.cgtb00004_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cgtb00004.fech_mod" column #+ #+ @param p_fech_mod - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00004_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cgtb00004.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00004_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cgtb00003_checkTableConstraints">} #+ Check constraints on the "cgtb00003" table #+ #+ @param p_data - a row data LIKE cgtb00003.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00003_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cgtb00003.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cgtb00003_tipo_checkColumnConstraints(p_data.tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00003_clave_checkColumnConstraints(p_data.clave) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00003_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00003_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00003_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00003_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00003_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00003_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00003_checkTableConstraints {<BLOCK Name="fct.cgtb00003_tipo_checkColumnConstraints">} #+ Check constraints on the "cgtb00003.tipo" column #+ #+ @param p_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00003_tipo_checkColumnConstraints(p_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo LIKE cgtb00003.tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00003_tipo_checkColumnConstraints {<BLOCK Name="fct.cgtb00003_clave_checkColumnConstraints">} #+ Check constraints on the "cgtb00003.clave" column #+ #+ @param p_clave - CHAR(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00003_clave_checkColumnConstraints(p_clave) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_clave LIKE cgtb00003.clave LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00003_clave_checkColumnConstraints {<BLOCK Name="fct.cgtb00003_descripcion_checkColumnConstraints">} #+ Check constraints on the "cgtb00003.descripcion" column #+ #+ @param p_descripcion - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00003_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE cgtb00003.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00003_descripcion_checkColumnConstraints {<BLOCK Name="fct.cgtb00003_status_t_checkColumnConstraints">} #+ Check constraints on the "cgtb00003.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00003_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cgtb00003.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00003_status_t_checkColumnConstraints {<BLOCK Name="fct.cgtb00003_us_crea_checkColumnConstraints">} #+ Check constraints on the "cgtb00003.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00003_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cgtb00003.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00003_us_crea_checkColumnConstraints {<BLOCK Name="fct.cgtb00003_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cgtb00003.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00003_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cgtb00003.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00003_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cgtb00003_us_mod_checkColumnConstraints">} #+ Check constraints on the "cgtb00003.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00003_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cgtb00003.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00003_us_mod_checkColumnConstraints {<BLOCK Name="fct.cgtb00003_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cgtb00003.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00003_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cgtb00003.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00003_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cgtb00002_checkTableConstraints">} #+ Check constraints on the "cgtb00002" table #+ #+ @param p_data - a row data LIKE cgtb00002.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00002_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cgtb00002.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cgtb00002_cuenta_no_checkColumnConstraints(p_data.cuenta_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00002_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00002_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00002_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00002_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00002_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00002_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00002_checkTableConstraints {<BLOCK Name="fct.cgtb00002_cuenta_no_checkColumnConstraints">} #+ Check constraints on the "cgtb00002.cuenta_no" column #+ #+ @param p_cuenta_no - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00002_cuenta_no_checkColumnConstraints(p_cuenta_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_no LIKE cgtb00002.cuenta_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00002_cuenta_no_checkColumnConstraints {<BLOCK Name="fct.cgtb00002_departamento_checkColumnConstraints">} #+ Check constraints on the "cgtb00002.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00002_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE cgtb00002.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00002_departamento_checkColumnConstraints {<BLOCK Name="fct.cgtb00002_status_t_checkColumnConstraints">} #+ Check constraints on the "cgtb00002.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00002_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cgtb00002.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00002_status_t_checkColumnConstraints {<BLOCK Name="fct.cgtb00002_us_crea_checkColumnConstraints">} #+ Check constraints on the "cgtb00002.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00002_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cgtb00002.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00002_us_crea_checkColumnConstraints {<BLOCK Name="fct.cgtb00002_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cgtb00002.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00002_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cgtb00002.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00002_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cgtb00002_us_mod_checkColumnConstraints">} #+ Check constraints on the "cgtb00002.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00002_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cgtb00002.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00002_us_mod_checkColumnConstraints {<BLOCK Name="fct.cgtb00002_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cgtb00002.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00002_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cgtb00002.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00002_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cgtb00001_checkTableConstraints">} #+ Check constraints on the "cgtb00001" table #+ #+ @param p_data - a row data LIKE cgtb00001.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00001_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cgtb00001.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cgtb00001_cuenta_no_checkColumnConstraints(p_data.cuenta_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00001_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00001_descrip_ing_checkColumnConstraints(p_data.descrip_ing) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00001_analitico_checkColumnConstraints(p_data.analitico) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00001_cata_checkColumnConstraints(p_data.cata) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00001_depto_checkColumnConstraints(p_data.depto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00001_nivel_checkColumnConstraints(p_data.nivel) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00001_ref_checkColumnConstraints(p_data.ref) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00001_origen_checkColumnConstraints(p_data.origen) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00001_estado_a_checkColumnConstraints(p_data.estado_a) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00001_estado_m_checkColumnConstraints(p_data.estado_m) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00001_aplica_a_checkColumnConstraints(p_data.aplica_a) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00001_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00001_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00001_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00001_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00001_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00001_cuenta_resultado_checkColumnConstraints(p_data.cuenta_resultado) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cgtb00001_grupo_checkColumnConstraints(p_data.grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00001_checkTableConstraints {<BLOCK Name="fct.cgtb00001_cuenta_no_checkColumnConstraints">} #+ Check constraints on the "cgtb00001.cuenta_no" column #+ #+ @param p_cuenta_no - VARCHAR2(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00001_cuenta_no_checkColumnConstraints(p_cuenta_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_no LIKE cgtb00001.cuenta_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00001_cuenta_no_checkColumnConstraints {<BLOCK Name="fct.cgtb00001_descripcion_checkColumnConstraints">} #+ Check constraints on the "cgtb00001.descripcion" column #+ #+ @param p_descripcion - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00001_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE cgtb00001.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00001_descripcion_checkColumnConstraints {<BLOCK Name="fct.cgtb00001_descrip_ing_checkColumnConstraints">} #+ Check constraints on the "cgtb00001.descrip_ing" column #+ #+ @param p_descrip_ing - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00001_descrip_ing_checkColumnConstraints(p_descrip_ing) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descrip_ing LIKE cgtb00001.descrip_ing LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00001_descrip_ing_checkColumnConstraints {<BLOCK Name="fct.cgtb00001_analitico_checkColumnConstraints">} #+ Check constraints on the "cgtb00001.analitico" column #+ #+ @param p_analitico - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00001_analitico_checkColumnConstraints(p_analitico) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_analitico LIKE cgtb00001.analitico LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00001_analitico_checkColumnConstraints {<BLOCK Name="fct.cgtb00001_cata_checkColumnConstraints">} #+ Check constraints on the "cgtb00001.cata" column #+ #+ @param p_cata - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00001_cata_checkColumnConstraints(p_cata) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cata LIKE cgtb00001.cata LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00001_cata_checkColumnConstraints {<BLOCK Name="fct.cgtb00001_depto_checkColumnConstraints">} #+ Check constraints on the "cgtb00001.depto" column #+ #+ @param p_depto - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00001_depto_checkColumnConstraints(p_depto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_depto LIKE cgtb00001.depto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00001_depto_checkColumnConstraints {<BLOCK Name="fct.cgtb00001_nivel_checkColumnConstraints">} #+ Check constraints on the "cgtb00001.nivel" column #+ #+ @param p_nivel - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00001_nivel_checkColumnConstraints(p_nivel) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nivel LIKE cgtb00001.nivel LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00001_nivel_checkColumnConstraints {<BLOCK Name="fct.cgtb00001_ref_checkColumnConstraints">} #+ Check constraints on the "cgtb00001.ref" column #+ #+ @param p_ref - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00001_ref_checkColumnConstraints(p_ref) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ref LIKE cgtb00001.ref LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00001_ref_checkColumnConstraints {<BLOCK Name="fct.cgtb00001_origen_checkColumnConstraints">} #+ Check constraints on the "cgtb00001.origen" column #+ #+ @param p_origen - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00001_origen_checkColumnConstraints(p_origen) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_origen LIKE cgtb00001.origen LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00001_origen_checkColumnConstraints {<BLOCK Name="fct.cgtb00001_estado_a_checkColumnConstraints">} #+ Check constraints on the "cgtb00001.estado_a" column #+ #+ @param p_estado_a - VARCHAR2(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00001_estado_a_checkColumnConstraints(p_estado_a) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_estado_a LIKE cgtb00001.estado_a LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00001_estado_a_checkColumnConstraints {<BLOCK Name="fct.cgtb00001_estado_m_checkColumnConstraints">} #+ Check constraints on the "cgtb00001.estado_m" column #+ #+ @param p_estado_m - VARCHAR2(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00001_estado_m_checkColumnConstraints(p_estado_m) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_estado_m LIKE cgtb00001.estado_m LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00001_estado_m_checkColumnConstraints {<BLOCK Name="fct.cgtb00001_aplica_a_checkColumnConstraints">} #+ Check constraints on the "cgtb00001.aplica_a" column #+ #+ @param p_aplica_a - VARCHAR2(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00001_aplica_a_checkColumnConstraints(p_aplica_a) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_aplica_a LIKE cgtb00001.aplica_a LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00001_aplica_a_checkColumnConstraints {<BLOCK Name="fct.cgtb00001_status_t_checkColumnConstraints">} #+ Check constraints on the "cgtb00001.status_t" column #+ #+ @param p_status_t - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00001_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cgtb00001.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00001_status_t_checkColumnConstraints {<BLOCK Name="fct.cgtb00001_us_crea_checkColumnConstraints">} #+ Check constraints on the "cgtb00001.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00001_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cgtb00001.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00001_us_crea_checkColumnConstraints {<BLOCK Name="fct.cgtb00001_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cgtb00001.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00001_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cgtb00001.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00001_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cgtb00001_us_mod_checkColumnConstraints">} #+ Check constraints on the "cgtb00001.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00001_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cgtb00001.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00001_us_mod_checkColumnConstraints {<BLOCK Name="fct.cgtb00001_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cgtb00001.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00001_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cgtb00001.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00001_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cgtb00001_cuenta_resultado_checkColumnConstraints">} #+ Check constraints on the "cgtb00001.cuenta_resultado" column #+ #+ @param p_cuenta_resultado - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00001_cuenta_resultado_checkColumnConstraints(p_cuenta_resultado) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_resultado LIKE cgtb00001.cuenta_resultado LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00001_cuenta_resultado_checkColumnConstraints {<BLOCK Name="fct.cgtb00001_grupo_checkColumnConstraints">} #+ Check constraints on the "cgtb00001.grupo" column #+ #+ @param p_grupo - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cgtb00001_grupo_checkColumnConstraints(p_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_grupo LIKE cgtb00001.grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cgtb00001_grupo_checkColumnConstraints {<BLOCK Name="fct.cctb00040_checkTableConstraints">} #+ Check constraints on the "cctb00040" table #+ #+ @param p_data - a row data LIKE cctb00040.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00040_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cctb00040.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cctb00040_num_req_checkColumnConstraints(p_data.num_req) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00040_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00040_usuario_checkColumnConstraints(p_data.usuario) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00040_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00040_checkTableConstraints {<BLOCK Name="fct.cctb00040_num_req_checkColumnConstraints">} #+ Check constraints on the "cctb00040.num_req" column #+ #+ @param p_num_req - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00040_num_req_checkColumnConstraints(p_num_req) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_req LIKE cctb00040.num_req LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_num_req IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- num_req: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00040_num_req_checkColumnConstraints {<BLOCK Name="fct.cctb00040_fecha_checkColumnConstraints">} #+ Check constraints on the "cctb00040.fecha" column #+ #+ @param p_fecha - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00040_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE cctb00040.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00040_fecha_checkColumnConstraints {<BLOCK Name="fct.cctb00040_usuario_checkColumnConstraints">} #+ Check constraints on the "cctb00040.usuario" column #+ #+ @param p_usuario - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00040_usuario_checkColumnConstraints(p_usuario) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_usuario LIKE cctb00040.usuario LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00040_usuario_checkColumnConstraints {<BLOCK Name="fct.cctb00040_descripcion_checkColumnConstraints">} #+ Check constraints on the "cctb00040.descripcion" column #+ #+ @param p_descripcion - CHAR(220) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00040_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE cctb00040.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00040_descripcion_checkColumnConstraints {<BLOCK Name="fct.cctb00033_checkTableConstraints">} #+ Check constraints on the "cctb00033" table #+ #+ @param p_data - a row data LIKE cctb00033.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00033_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cctb00033.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cctb00033_idnum_checkColumnConstraints(p_data.idnum) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00033_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00033_num_ref_checkColumnConstraints(p_data.num_ref) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00033_aplica_a_checkColumnConstraints(p_data.aplica_a) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00033_pendiente_checkColumnConstraints(p_data.pendiente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00033_descuento_checkColumnConstraints(p_data.descuento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00033_valor_pagado_checkColumnConstraints(p_data.valor_pagado) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00033_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00033_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00033_fecha_crea_checkColumnConstraints(p_data.fecha_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00033_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00033_fecha_mod_checkColumnConstraints(p_data.fecha_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00033_checkTableConstraints {<BLOCK Name="fct.cctb00033_idnum_checkColumnConstraints">} #+ Check constraints on the "cctb00033.idnum" column #+ #+ @param p_idnum - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00033_idnum_checkColumnConstraints(p_idnum) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_idnum LIKE cctb00033.idnum LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00033_idnum_checkColumnConstraints {<BLOCK Name="fct.cctb00033_num_doc_checkColumnConstraints">} #+ Check constraints on the "cctb00033.num_doc" column #+ #+ @param p_num_doc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00033_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE cctb00033.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00033_num_doc_checkColumnConstraints {<BLOCK Name="fct.cctb00033_num_ref_checkColumnConstraints">} #+ Check constraints on the "cctb00033.num_ref" column #+ #+ @param p_num_ref - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00033_num_ref_checkColumnConstraints(p_num_ref) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_ref LIKE cctb00033.num_ref LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00033_num_ref_checkColumnConstraints {<BLOCK Name="fct.cctb00033_aplica_a_checkColumnConstraints">} #+ Check constraints on the "cctb00033.aplica_a" column #+ #+ @param p_aplica_a - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00033_aplica_a_checkColumnConstraints(p_aplica_a) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_aplica_a LIKE cctb00033.aplica_a LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00033_aplica_a_checkColumnConstraints {<BLOCK Name="fct.cctb00033_pendiente_checkColumnConstraints">} #+ Check constraints on the "cctb00033.pendiente" column #+ #+ @param p_pendiente - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00033_pendiente_checkColumnConstraints(p_pendiente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_pendiente LIKE cctb00033.pendiente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00033_pendiente_checkColumnConstraints {<BLOCK Name="fct.cctb00033_descuento_checkColumnConstraints">} #+ Check constraints on the "cctb00033.descuento" column #+ #+ @param p_descuento - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00033_descuento_checkColumnConstraints(p_descuento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descuento LIKE cctb00033.descuento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00033_descuento_checkColumnConstraints {<BLOCK Name="fct.cctb00033_valor_pagado_checkColumnConstraints">} #+ Check constraints on the "cctb00033.valor_pagado" column #+ #+ @param p_valor_pagado - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00033_valor_pagado_checkColumnConstraints(p_valor_pagado) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor_pagado LIKE cctb00033.valor_pagado LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00033_valor_pagado_checkColumnConstraints {<BLOCK Name="fct.cctb00033_status_t_checkColumnConstraints">} #+ Check constraints on the "cctb00033.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00033_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cctb00033.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00033_status_t_checkColumnConstraints {<BLOCK Name="fct.cctb00033_us_crea_checkColumnConstraints">} #+ Check constraints on the "cctb00033.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00033_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cctb00033.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00033_us_crea_checkColumnConstraints {<BLOCK Name="fct.cctb00033_fecha_crea_checkColumnConstraints">} #+ Check constraints on the "cctb00033.fecha_crea" column #+ #+ @param p_fecha_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00033_fecha_crea_checkColumnConstraints(p_fecha_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_crea LIKE cctb00033.fecha_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00033_fecha_crea_checkColumnConstraints {<BLOCK Name="fct.cctb00033_us_mod_checkColumnConstraints">} #+ Check constraints on the "cctb00033.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00033_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cctb00033.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00033_us_mod_checkColumnConstraints {<BLOCK Name="fct.cctb00033_fecha_mod_checkColumnConstraints">} #+ Check constraints on the "cctb00033.fecha_mod" column #+ #+ @param p_fecha_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00033_fecha_mod_checkColumnConstraints(p_fecha_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_mod LIKE cctb00033.fecha_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00033_fecha_mod_checkColumnConstraints {<BLOCK Name="fct.cctb00032_checkTableConstraints">} #+ Check constraints on the "cctb00032" table #+ #+ @param p_data - a row data LIKE cctb00032.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00032_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cctb00032.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cctb00032_idnum_checkColumnConstraints(p_data.idnum) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00032_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00032_tipo_doc_checkColumnConstraints(p_data.tipo_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00032_localidad_checkColumnConstraints(p_data.localidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00032_cuenta_no_checkColumnConstraints(p_data.cuenta_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00032_depsito_checkColumnConstraints(p_data.depsito) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00032_tipo_cliente_checkColumnConstraints(p_data.tipo_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00032_sec_cliente_checkColumnConstraints(p_data.sec_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00032_sec_vend_checkColumnConstraints(p_data.sec_vend) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00032_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00032_comentario_checkColumnConstraints(p_data.comentario) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00032_valor_recibo_checkColumnConstraints(p_data.valor_recibo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00032_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00032_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00032_fecha_crea_checkColumnConstraints(p_data.fecha_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00032_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00032_fecha_mod_checkColumnConstraints(p_data.fecha_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00032_checkTableConstraints {<BLOCK Name="fct.cctb00032_idnum_checkColumnConstraints">} #+ Check constraints on the "cctb00032.idnum" column #+ #+ @param p_idnum - SERIAL - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00032_idnum_checkColumnConstraints(p_idnum) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_idnum LIKE cctb00032.idnum LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_idnum IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- idnum: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00032_idnum_checkColumnConstraints {<BLOCK Name="fct.cctb00032_num_doc_checkColumnConstraints">} #+ Check constraints on the "cctb00032.num_doc" column #+ #+ @param p_num_doc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00032_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE cctb00032.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00032_num_doc_checkColumnConstraints {<BLOCK Name="fct.cctb00032_tipo_doc_checkColumnConstraints">} #+ Check constraints on the "cctb00032.tipo_doc" column #+ #+ @param p_tipo_doc - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00032_tipo_doc_checkColumnConstraints(p_tipo_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_doc LIKE cctb00032.tipo_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00032_tipo_doc_checkColumnConstraints {<BLOCK Name="fct.cctb00032_localidad_checkColumnConstraints">} #+ Check constraints on the "cctb00032.localidad" column #+ #+ @param p_localidad - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00032_localidad_checkColumnConstraints(p_localidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_localidad LIKE cctb00032.localidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00032_localidad_checkColumnConstraints {<BLOCK Name="fct.cctb00032_cuenta_no_checkColumnConstraints">} #+ Check constraints on the "cctb00032.cuenta_no" column #+ #+ @param p_cuenta_no - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00032_cuenta_no_checkColumnConstraints(p_cuenta_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_no LIKE cctb00032.cuenta_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00032_cuenta_no_checkColumnConstraints {<BLOCK Name="fct.cctb00032_depsito_checkColumnConstraints">} #+ Check constraints on the "cctb00032.depsito" column #+ #+ @param p_depsito - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00032_depsito_checkColumnConstraints(p_depsito) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_depsito LIKE cctb00032.depsito LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00032_depsito_checkColumnConstraints {<BLOCK Name="fct.cctb00032_tipo_cliente_checkColumnConstraints">} #+ Check constraints on the "cctb00032.tipo_cliente" column #+ #+ @param p_tipo_cliente - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00032_tipo_cliente_checkColumnConstraints(p_tipo_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_cliente LIKE cctb00032.tipo_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00032_tipo_cliente_checkColumnConstraints {<BLOCK Name="fct.cctb00032_sec_cliente_checkColumnConstraints">} #+ Check constraints on the "cctb00032.sec_cliente" column #+ #+ @param p_sec_cliente - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00032_sec_cliente_checkColumnConstraints(p_sec_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_cliente LIKE cctb00032.sec_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00032_sec_cliente_checkColumnConstraints {<BLOCK Name="fct.cctb00032_sec_vend_checkColumnConstraints">} #+ Check constraints on the "cctb00032.sec_vend" column #+ #+ @param p_sec_vend - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00032_sec_vend_checkColumnConstraints(p_sec_vend) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_vend LIKE cctb00032.sec_vend LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00032_sec_vend_checkColumnConstraints {<BLOCK Name="fct.cctb00032_fecha_checkColumnConstraints">} #+ Check constraints on the "cctb00032.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00032_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE cctb00032.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00032_fecha_checkColumnConstraints {<BLOCK Name="fct.cctb00032_comentario_checkColumnConstraints">} #+ Check constraints on the "cctb00032.comentario" column #+ #+ @param p_comentario - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00032_comentario_checkColumnConstraints(p_comentario) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_comentario LIKE cctb00032.comentario LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00032_comentario_checkColumnConstraints {<BLOCK Name="fct.cctb00032_valor_recibo_checkColumnConstraints">} #+ Check constraints on the "cctb00032.valor_recibo" column #+ #+ @param p_valor_recibo - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00032_valor_recibo_checkColumnConstraints(p_valor_recibo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor_recibo LIKE cctb00032.valor_recibo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00032_valor_recibo_checkColumnConstraints {<BLOCK Name="fct.cctb00032_status_t_checkColumnConstraints">} #+ Check constraints on the "cctb00032.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00032_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cctb00032.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00032_status_t_checkColumnConstraints {<BLOCK Name="fct.cctb00032_us_crea_checkColumnConstraints">} #+ Check constraints on the "cctb00032.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00032_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cctb00032.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00032_us_crea_checkColumnConstraints {<BLOCK Name="fct.cctb00032_fecha_crea_checkColumnConstraints">} #+ Check constraints on the "cctb00032.fecha_crea" column #+ #+ @param p_fecha_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00032_fecha_crea_checkColumnConstraints(p_fecha_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_crea LIKE cctb00032.fecha_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00032_fecha_crea_checkColumnConstraints {<BLOCK Name="fct.cctb00032_us_mod_checkColumnConstraints">} #+ Check constraints on the "cctb00032.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00032_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cctb00032.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00032_us_mod_checkColumnConstraints {<BLOCK Name="fct.cctb00032_fecha_mod_checkColumnConstraints">} #+ Check constraints on the "cctb00032.fecha_mod" column #+ #+ @param p_fecha_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00032_fecha_mod_checkColumnConstraints(p_fecha_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_mod LIKE cctb00032.fecha_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00032_fecha_mod_checkColumnConstraints {<BLOCK Name="fct.cctb00031_checkTableConstraints">} #+ Check constraints on the "cctb00031" table #+ #+ @param p_data - a row data LIKE cctb00031.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00031_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cctb00031.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cctb00031_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00031_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00031_sec_vend_checkColumnConstraints(p_data.sec_vend) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00031_nombrevendedor_checkColumnConstraints(p_data.nombrevendedor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00031_tipo_cliente_checkColumnConstraints(p_data.tipo_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00031_sec_cliente_checkColumnConstraints(p_data.sec_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00031_nombrecliente_checkColumnConstraints(p_data.nombrecliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00031_num_req_checkColumnConstraints(p_data.num_req) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00031_limite_cr_checkColumnConstraints(p_data.limite_cr) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00031_monto_cotizacion_checkColumnConstraints(p_data.monto_cotizacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00031_balance_checkColumnConstraints(p_data.balance) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00031_estado_checkColumnConstraints(p_data.estado) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00031_documento_ref_checkColumnConstraints(p_data.documento_ref) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00031_tipo_doc_ref_checkColumnConstraints(p_data.tipo_doc_ref) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00031_checkTableConstraints {<BLOCK Name="fct.cctb00031_fecha_checkColumnConstraints">} #+ Check constraints on the "cctb00031.fecha" column #+ #+ @param p_fecha - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00031_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE cctb00031.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00031_fecha_checkColumnConstraints {<BLOCK Name="fct.cctb00031_us_crea_checkColumnConstraints">} #+ Check constraints on the "cctb00031.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00031_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cctb00031.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00031_us_crea_checkColumnConstraints {<BLOCK Name="fct.cctb00031_sec_vend_checkColumnConstraints">} #+ Check constraints on the "cctb00031.sec_vend" column #+ #+ @param p_sec_vend - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00031_sec_vend_checkColumnConstraints(p_sec_vend) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_vend LIKE cctb00031.sec_vend LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00031_sec_vend_checkColumnConstraints {<BLOCK Name="fct.cctb00031_nombrevendedor_checkColumnConstraints">} #+ Check constraints on the "cctb00031.nombrevendedor" column #+ #+ @param p_nombrevendedor - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00031_nombrevendedor_checkColumnConstraints(p_nombrevendedor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombrevendedor LIKE cctb00031.nombrevendedor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00031_nombrevendedor_checkColumnConstraints {<BLOCK Name="fct.cctb00031_tipo_cliente_checkColumnConstraints">} #+ Check constraints on the "cctb00031.tipo_cliente" column #+ #+ @param p_tipo_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00031_tipo_cliente_checkColumnConstraints(p_tipo_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_cliente LIKE cctb00031.tipo_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00031_tipo_cliente_checkColumnConstraints {<BLOCK Name="fct.cctb00031_sec_cliente_checkColumnConstraints">} #+ Check constraints on the "cctb00031.sec_cliente" column #+ #+ @param p_sec_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00031_sec_cliente_checkColumnConstraints(p_sec_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_cliente LIKE cctb00031.sec_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00031_sec_cliente_checkColumnConstraints {<BLOCK Name="fct.cctb00031_nombrecliente_checkColumnConstraints">} #+ Check constraints on the "cctb00031.nombrecliente" column #+ #+ @param p_nombrecliente - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00031_nombrecliente_checkColumnConstraints(p_nombrecliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombrecliente LIKE cctb00031.nombrecliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00031_nombrecliente_checkColumnConstraints {<BLOCK Name="fct.cctb00031_num_req_checkColumnConstraints">} #+ Check constraints on the "cctb00031.num_req" column #+ #+ @param p_num_req - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00031_num_req_checkColumnConstraints(p_num_req) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_req LIKE cctb00031.num_req LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00031_num_req_checkColumnConstraints {<BLOCK Name="fct.cctb00031_limite_cr_checkColumnConstraints">} #+ Check constraints on the "cctb00031.limite_cr" column #+ #+ @param p_limite_cr - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00031_limite_cr_checkColumnConstraints(p_limite_cr) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_limite_cr LIKE cctb00031.limite_cr LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00031_limite_cr_checkColumnConstraints {<BLOCK Name="fct.cctb00031_monto_cotizacion_checkColumnConstraints">} #+ Check constraints on the "cctb00031.monto_cotizacion" column #+ #+ @param p_monto_cotizacion - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00031_monto_cotizacion_checkColumnConstraints(p_monto_cotizacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_monto_cotizacion LIKE cctb00031.monto_cotizacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00031_monto_cotizacion_checkColumnConstraints {<BLOCK Name="fct.cctb00031_balance_checkColumnConstraints">} #+ Check constraints on the "cctb00031.balance" column #+ #+ @param p_balance - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00031_balance_checkColumnConstraints(p_balance) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_balance LIKE cctb00031.balance LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00031_balance_checkColumnConstraints {<BLOCK Name="fct.cctb00031_estado_checkColumnConstraints">} #+ Check constraints on the "cctb00031.estado" column #+ #+ @param p_estado - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00031_estado_checkColumnConstraints(p_estado) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_estado LIKE cctb00031.estado LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00031_estado_checkColumnConstraints {<BLOCK Name="fct.cctb00031_documento_ref_checkColumnConstraints">} #+ Check constraints on the "cctb00031.documento_ref" column #+ #+ @param p_documento_ref - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00031_documento_ref_checkColumnConstraints(p_documento_ref) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_documento_ref LIKE cctb00031.documento_ref LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00031_documento_ref_checkColumnConstraints {<BLOCK Name="fct.cctb00031_tipo_doc_ref_checkColumnConstraints">} #+ Check constraints on the "cctb00031.tipo_doc_ref" column #+ #+ @param p_tipo_doc_ref - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00031_tipo_doc_ref_checkColumnConstraints(p_tipo_doc_ref) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_doc_ref LIKE cctb00031.tipo_doc_ref LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00031_tipo_doc_ref_checkColumnConstraints {<BLOCK Name="fct.cctb00030_checkTableConstraints">} #+ Check constraints on the "cctb00030" table #+ #+ @param p_data - a row data LIKE cctb00030.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00030_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cctb00030.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cctb00030_num_req_checkColumnConstraints(p_data.num_req) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00030_etiqueta_checkColumnConstraints(p_data.etiqueta) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00030_num_oc_checkColumnConstraints(p_data.num_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00030_secuencia_checkColumnConstraints(p_data.secuencia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00030_area_checkColumnConstraints(p_data.area) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00030_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00030_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00030_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00030_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00030_lado_1_checkColumnConstraints(p_data.lado_1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00030_lado_2_checkColumnConstraints(p_data.lado_2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00030_lado_3_checkColumnConstraints(p_data.lado_3) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00030_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00030_medida_checkColumnConstraints(p_data.medida) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00030_cantidad_r_checkColumnConstraints(p_data.cantidad_r) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00030_medida_r_checkColumnConstraints(p_data.medida_r) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00030_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00030_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00030_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00030_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00030_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00030_checkTableConstraints {<BLOCK Name="fct.cctb00030_num_req_checkColumnConstraints">} #+ Check constraints on the "cctb00030.num_req" column #+ #+ @param p_num_req - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00030_num_req_checkColumnConstraints(p_num_req) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_req LIKE cctb00030.num_req LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_num_req IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- num_req: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00030_num_req_checkColumnConstraints {<BLOCK Name="fct.cctb00030_etiqueta_checkColumnConstraints">} #+ Check constraints on the "cctb00030.etiqueta" column #+ #+ @param p_etiqueta - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00030_etiqueta_checkColumnConstraints(p_etiqueta) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_etiqueta LIKE cctb00030.etiqueta LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00030_etiqueta_checkColumnConstraints {<BLOCK Name="fct.cctb00030_num_oc_checkColumnConstraints">} #+ Check constraints on the "cctb00030.num_oc" column #+ #+ @param p_num_oc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00030_num_oc_checkColumnConstraints(p_num_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_oc LIKE cctb00030.num_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_num_oc IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- num_oc: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00030_num_oc_checkColumnConstraints {<BLOCK Name="fct.cctb00030_secuencia_checkColumnConstraints">} #+ Check constraints on the "cctb00030.secuencia" column #+ #+ @param p_secuencia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00030_secuencia_checkColumnConstraints(p_secuencia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_secuencia LIKE cctb00030.secuencia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_secuencia IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- secuencia: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00030_secuencia_checkColumnConstraints {<BLOCK Name="fct.cctb00030_area_checkColumnConstraints">} #+ Check constraints on the "cctb00030.area" column #+ #+ @param p_area - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00030_area_checkColumnConstraints(p_area) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_area LIKE cctb00030.area LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00030_area_checkColumnConstraints {<BLOCK Name="fct.cctb00030_cod_n_checkColumnConstraints">} #+ Check constraints on the "cctb00030.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00030_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE cctb00030.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00030_cod_n_checkColumnConstraints {<BLOCK Name="fct.cctb00030_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "cctb00030.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00030_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE cctb00030.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_grupo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_grupo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00030_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.cctb00030_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "cctb00030.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00030_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE cctb00030.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tipo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tipo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00030_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.cctb00030_cod_sec_checkColumnConstraints">} #+ Check constraints on the "cctb00030.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00030_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE cctb00030.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00030_cod_sec_checkColumnConstraints {<BLOCK Name="fct.cctb00030_lado_1_checkColumnConstraints">} #+ Check constraints on the "cctb00030.lado_1" column #+ #+ @param p_lado_1 - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00030_lado_1_checkColumnConstraints(p_lado_1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_lado_1 LIKE cctb00030.lado_1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00030_lado_1_checkColumnConstraints {<BLOCK Name="fct.cctb00030_lado_2_checkColumnConstraints">} #+ Check constraints on the "cctb00030.lado_2" column #+ #+ @param p_lado_2 - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00030_lado_2_checkColumnConstraints(p_lado_2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_lado_2 LIKE cctb00030.lado_2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00030_lado_2_checkColumnConstraints {<BLOCK Name="fct.cctb00030_lado_3_checkColumnConstraints">} #+ Check constraints on the "cctb00030.lado_3" column #+ #+ @param p_lado_3 - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00030_lado_3_checkColumnConstraints(p_lado_3) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_lado_3 LIKE cctb00030.lado_3 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00030_lado_3_checkColumnConstraints {<BLOCK Name="fct.cctb00030_cantidad_checkColumnConstraints">} #+ Check constraints on the "cctb00030.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00030_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE cctb00030.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cantidad IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cantidad: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00030_cantidad_checkColumnConstraints {<BLOCK Name="fct.cctb00030_medida_checkColumnConstraints">} #+ Check constraints on the "cctb00030.medida" column #+ #+ @param p_medida - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00030_medida_checkColumnConstraints(p_medida) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_medida LIKE cctb00030.medida LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_medida IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- medida: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00030_medida_checkColumnConstraints {<BLOCK Name="fct.cctb00030_cantidad_r_checkColumnConstraints">} #+ Check constraints on the "cctb00030.cantidad_r" column #+ #+ @param p_cantidad_r - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00030_cantidad_r_checkColumnConstraints(p_cantidad_r) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad_r LIKE cctb00030.cantidad_r LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cantidad_r IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cantidad_r: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00030_cantidad_r_checkColumnConstraints {<BLOCK Name="fct.cctb00030_medida_r_checkColumnConstraints">} #+ Check constraints on the "cctb00030.medida_r" column #+ #+ @param p_medida_r - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00030_medida_r_checkColumnConstraints(p_medida_r) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_medida_r LIKE cctb00030.medida_r LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_medida_r IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- medida_r: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00030_medida_r_checkColumnConstraints {<BLOCK Name="fct.cctb00030_status_t_checkColumnConstraints">} #+ Check constraints on the "cctb00030.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00030_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cctb00030.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00030_status_t_checkColumnConstraints {<BLOCK Name="fct.cctb00030_us_crea_checkColumnConstraints">} #+ Check constraints on the "cctb00030.us_crea" column #+ #+ @param p_us_crea - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00030_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cctb00030.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00030_us_crea_checkColumnConstraints {<BLOCK Name="fct.cctb00030_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cctb00030.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00030_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cctb00030.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00030_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cctb00030_us_mod_checkColumnConstraints">} #+ Check constraints on the "cctb00030.us_mod" column #+ #+ @param p_us_mod - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00030_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cctb00030.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00030_us_mod_checkColumnConstraints {<BLOCK Name="fct.cctb00030_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cctb00030.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00030_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cctb00030.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00030_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cctb00029_checkTableConstraints">} #+ Check constraints on the "cctb00029" table #+ #+ @param p_data - a row data LIKE cctb00029.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00029_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cctb00029.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cctb00029_num_req_checkColumnConstraints(p_data.num_req) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00029_mensaje_checkColumnConstraints(p_data.mensaje) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00029_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00029_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00029_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00029_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00029_checkTableConstraints {<BLOCK Name="fct.cctb00029_num_req_checkColumnConstraints">} #+ Check constraints on the "cctb00029.num_req" column #+ #+ @param p_num_req - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00029_num_req_checkColumnConstraints(p_num_req) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_req LIKE cctb00029.num_req LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_num_req IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- num_req: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00029_num_req_checkColumnConstraints {<BLOCK Name="fct.cctb00029_mensaje_checkColumnConstraints">} #+ Check constraints on the "cctb00029.mensaje" column #+ #+ @param p_mensaje - VARCHAR2(200) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00029_mensaje_checkColumnConstraints(p_mensaje) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mensaje LIKE cctb00029.mensaje LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00029_mensaje_checkColumnConstraints {<BLOCK Name="fct.cctb00029_us_crea_checkColumnConstraints">} #+ Check constraints on the "cctb00029.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00029_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cctb00029.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00029_us_crea_checkColumnConstraints {<BLOCK Name="fct.cctb00029_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cctb00029.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00029_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cctb00029.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00029_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cctb00029_us_mod_checkColumnConstraints">} #+ Check constraints on the "cctb00029.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00029_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cctb00029.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00029_us_mod_checkColumnConstraints {<BLOCK Name="fct.cctb00029_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cctb00029.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00029_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cctb00029.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00029_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cctb00028_checkTableConstraints">} #+ Check constraints on the "cctb00028" table #+ #+ @param p_data - a row data LIKE cctb00028.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00028_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cctb00028.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cctb00028_num_temp_req_checkColumnConstraints(p_data.num_temp_req) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00028_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00028_checkTableConstraints {<BLOCK Name="fct.cctb00028_num_temp_req_checkColumnConstraints">} #+ Check constraints on the "cctb00028.num_temp_req" column #+ #+ @param p_num_temp_req - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00028_num_temp_req_checkColumnConstraints(p_num_temp_req) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_temp_req LIKE cctb00028.num_temp_req LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00028_num_temp_req_checkColumnConstraints {<BLOCK Name="fct.cctb00028_us_crea_checkColumnConstraints">} #+ Check constraints on the "cctb00028.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00028_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cctb00028.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00028_us_crea_checkColumnConstraints {<BLOCK Name="fct.cctb00027_checkTableConstraints">} #+ Check constraints on the "cctb00027" table #+ #+ @param p_data - a row data LIKE cctb00027.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00027_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cctb00027.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cctb00027_num_req_checkColumnConstraints(p_data.num_req) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00027_etiqueta_checkColumnConstraints(p_data.etiqueta) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00027_num_oc_checkColumnConstraints(p_data.num_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00027_secuencia_checkColumnConstraints(p_data.secuencia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00027_area_checkColumnConstraints(p_data.area) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00027_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00027_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00027_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00027_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00027_lado_1_checkColumnConstraints(p_data.lado_1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00027_lado_2_checkColumnConstraints(p_data.lado_2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00027_lado_3_checkColumnConstraints(p_data.lado_3) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00027_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00027_medida_checkColumnConstraints(p_data.medida) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00027_cantidad_r_checkColumnConstraints(p_data.cantidad_r) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00027_medida_r_checkColumnConstraints(p_data.medida_r) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00027_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00027_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00027_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00027_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00027_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00027_checkTableConstraints {<BLOCK Name="fct.cctb00027_num_req_checkColumnConstraints">} #+ Check constraints on the "cctb00027.num_req" column #+ #+ @param p_num_req - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00027_num_req_checkColumnConstraints(p_num_req) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_req LIKE cctb00027.num_req LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_num_req IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- num_req: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00027_num_req_checkColumnConstraints {<BLOCK Name="fct.cctb00027_etiqueta_checkColumnConstraints">} #+ Check constraints on the "cctb00027.etiqueta" column #+ #+ @param p_etiqueta - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00027_etiqueta_checkColumnConstraints(p_etiqueta) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_etiqueta LIKE cctb00027.etiqueta LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00027_etiqueta_checkColumnConstraints {<BLOCK Name="fct.cctb00027_num_oc_checkColumnConstraints">} #+ Check constraints on the "cctb00027.num_oc" column #+ #+ @param p_num_oc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00027_num_oc_checkColumnConstraints(p_num_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_oc LIKE cctb00027.num_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_num_oc IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- num_oc: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00027_num_oc_checkColumnConstraints {<BLOCK Name="fct.cctb00027_secuencia_checkColumnConstraints">} #+ Check constraints on the "cctb00027.secuencia" column #+ #+ @param p_secuencia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00027_secuencia_checkColumnConstraints(p_secuencia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_secuencia LIKE cctb00027.secuencia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_secuencia IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- secuencia: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00027_secuencia_checkColumnConstraints {<BLOCK Name="fct.cctb00027_area_checkColumnConstraints">} #+ Check constraints on the "cctb00027.area" column #+ #+ @param p_area - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00027_area_checkColumnConstraints(p_area) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_area LIKE cctb00027.area LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00027_area_checkColumnConstraints {<BLOCK Name="fct.cctb00027_cod_n_checkColumnConstraints">} #+ Check constraints on the "cctb00027.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00027_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE cctb00027.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00027_cod_n_checkColumnConstraints {<BLOCK Name="fct.cctb00027_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "cctb00027.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00027_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE cctb00027.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_grupo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_grupo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00027_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.cctb00027_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "cctb00027.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00027_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE cctb00027.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tipo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tipo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00027_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.cctb00027_cod_sec_checkColumnConstraints">} #+ Check constraints on the "cctb00027.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00027_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE cctb00027.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00027_cod_sec_checkColumnConstraints {<BLOCK Name="fct.cctb00027_lado_1_checkColumnConstraints">} #+ Check constraints on the "cctb00027.lado_1" column #+ #+ @param p_lado_1 - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00027_lado_1_checkColumnConstraints(p_lado_1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_lado_1 LIKE cctb00027.lado_1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00027_lado_1_checkColumnConstraints {<BLOCK Name="fct.cctb00027_lado_2_checkColumnConstraints">} #+ Check constraints on the "cctb00027.lado_2" column #+ #+ @param p_lado_2 - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00027_lado_2_checkColumnConstraints(p_lado_2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_lado_2 LIKE cctb00027.lado_2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00027_lado_2_checkColumnConstraints {<BLOCK Name="fct.cctb00027_lado_3_checkColumnConstraints">} #+ Check constraints on the "cctb00027.lado_3" column #+ #+ @param p_lado_3 - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00027_lado_3_checkColumnConstraints(p_lado_3) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_lado_3 LIKE cctb00027.lado_3 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00027_lado_3_checkColumnConstraints {<BLOCK Name="fct.cctb00027_cantidad_checkColumnConstraints">} #+ Check constraints on the "cctb00027.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00027_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE cctb00027.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cantidad IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cantidad: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00027_cantidad_checkColumnConstraints {<BLOCK Name="fct.cctb00027_medida_checkColumnConstraints">} #+ Check constraints on the "cctb00027.medida" column #+ #+ @param p_medida - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00027_medida_checkColumnConstraints(p_medida) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_medida LIKE cctb00027.medida LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_medida IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- medida: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00027_medida_checkColumnConstraints {<BLOCK Name="fct.cctb00027_cantidad_r_checkColumnConstraints">} #+ Check constraints on the "cctb00027.cantidad_r" column #+ #+ @param p_cantidad_r - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00027_cantidad_r_checkColumnConstraints(p_cantidad_r) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad_r LIKE cctb00027.cantidad_r LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cantidad_r IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cantidad_r: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00027_cantidad_r_checkColumnConstraints {<BLOCK Name="fct.cctb00027_medida_r_checkColumnConstraints">} #+ Check constraints on the "cctb00027.medida_r" column #+ #+ @param p_medida_r - DECIMAL(12,5) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00027_medida_r_checkColumnConstraints(p_medida_r) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_medida_r LIKE cctb00027.medida_r LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_medida_r IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- medida_r: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00027_medida_r_checkColumnConstraints {<BLOCK Name="fct.cctb00027_status_t_checkColumnConstraints">} #+ Check constraints on the "cctb00027.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00027_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cctb00027.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00027_status_t_checkColumnConstraints {<BLOCK Name="fct.cctb00027_us_crea_checkColumnConstraints">} #+ Check constraints on the "cctb00027.us_crea" column #+ #+ @param p_us_crea - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00027_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cctb00027.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00027_us_crea_checkColumnConstraints {<BLOCK Name="fct.cctb00027_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cctb00027.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00027_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cctb00027.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00027_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cctb00027_us_mod_checkColumnConstraints">} #+ Check constraints on the "cctb00027.us_mod" column #+ #+ @param p_us_mod - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00027_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cctb00027.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00027_us_mod_checkColumnConstraints {<BLOCK Name="fct.cctb00027_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cctb00027.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00027_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cctb00027.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00027_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cctb00026_checkTableConstraints">} #+ Check constraints on the "cctb00026" table #+ #+ @param p_data - a row data LIKE cctb00026.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00026_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cctb00026.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cctb00026_num_req_checkColumnConstraints(p_data.num_req) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00026_num_oc_checkColumnConstraints(p_data.num_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00026_cotizacion_no_checkColumnConstraints(p_data.cotizacion_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00026_id_checkColumnConstraints(p_data.id) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00026_area_checkColumnConstraints(p_data.area) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00026_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00026_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00026_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00026_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00026_cantidad_ord1_checkColumnConstraints(p_data.cantidad_ord1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00026_cantidad_ord_checkColumnConstraints(p_data.cantidad_ord) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00026_cantidad_1_checkColumnConstraints(p_data.cantidad_1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00026_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00026_precio_checkColumnConstraints(p_data.precio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00026_descuento_checkColumnConstraints(p_data.descuento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00026_descvalor_checkColumnConstraints(p_data.descvalor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00026_valor_checkColumnConstraints(p_data.valor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00026_estado_checkColumnConstraints(p_data.estado) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00026_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00026_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00026_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00026_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00026_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00026_fecha_transporte_checkColumnConstraints(p_data.fecha_transporte) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00026_fecha_llegada_checkColumnConstraints(p_data.fecha_llegada) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00026_pk_cctb00026_1_checkUniqueConstraint(p_forUpdate, p_data.num_req, p_data.num_oc, p_data.cotizacion_no, p_data.area, p_data.cod_n, p_data.cod_grupo, p_data.cod_tipo, p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00026_checkTableConstraints {<BLOCK Name="fct.cctb00026_pk_cctb00026_1_checkUniqueConstraint">} #+ Check the primary key uniqueness constraint on the "cctb00026" #+ #+ @param p_key - Primary Key #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00026_pk_cctb00026_1_checkUniqueConstraint(p_forUpdate, p_key) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_forUpdate BOOLEAN DEFINE p_key RECORD cctb00026_num_req LIKE cctb00026.num_req, cctb00026_num_oc LIKE cctb00026.num_oc, cctb00026_cotizacion_no LIKE cctb00026.cotizacion_no, cctb00026_area LIKE cctb00026.area, cctb00026_cod_n LIKE cctb00026.cod_n, cctb00026_cod_grupo LIKE cctb00026.cod_grupo, cctb00026_cod_tipo LIKE cctb00026.cod_tipo, cctb00026_cod_sec LIKE cctb00026.cod_sec END RECORD DEFINE l_key RECORD cctb00026_num_req LIKE cctb00026.num_req, cctb00026_num_oc LIKE cctb00026.num_oc, cctb00026_cotizacion_no LIKE cctb00026.cotizacion_no, cctb00026_area LIKE cctb00026.area, cctb00026_cod_n LIKE cctb00026.cod_n, cctb00026_cod_grupo LIKE cctb00026.cod_grupo, cctb00026_cod_tipo LIKE cctb00026.cod_tipo, cctb00026_cod_sec LIKE cctb00026.cod_sec 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 cctb00026.num_req = ? AND cctb00026.num_oc = ? AND cctb00026.cotizacion_no = ? AND cctb00026.area = ? AND cctb00026.cod_n = ? AND cctb00026.cod_grupo = ? AND cctb00026.cod_tipo = ? AND cctb00026.cod_sec = ? " let l_sqlQuery = "SELECT COUNT(*), num_req, num_oc, cotizacion_no, area, cod_n, cod_grupo, cod_tipo, cod_sec FROM cctb00026 ", l_where, " GROUP BY num_req, num_oc, cotizacion_no, area, cod_n, cod_grupo, cod_tipo, cod_sec" PREPARE cur_cctb00026_pk_cctb00026_1_checkUniqueConstraint FROM l_sqlQuery EXECUTE cur_cctb00026_pk_cctb00026_1_checkUniqueConstraint INTO l_count, l_key.* USING p_key.* FREE cur_cctb00026_pk_cctb00026_1_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- num_req + num_oc + cotizacion_no + area + cod_n + cod_grupo + cod_tipo + cod_sec: " || ERROR_BAM_00002) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00026_pk_cctb00026_1_checkUniqueConstraint {<BLOCK Name="fct.cctb00026_num_req_checkColumnConstraints">} #+ Check constraints on the "cctb00026.num_req" column #+ #+ @param p_num_req - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00026_num_req_checkColumnConstraints(p_num_req) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_req LIKE cctb00026.num_req LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_num_req IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- num_req: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00026_num_req_checkColumnConstraints {<BLOCK Name="fct.cctb00026_num_oc_checkColumnConstraints">} #+ Check constraints on the "cctb00026.num_oc" column #+ #+ @param p_num_oc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00026_num_oc_checkColumnConstraints(p_num_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_oc LIKE cctb00026.num_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_num_oc IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- num_oc: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00026_num_oc_checkColumnConstraints {<BLOCK Name="fct.cctb00026_cotizacion_no_checkColumnConstraints">} #+ Check constraints on the "cctb00026.cotizacion_no" column #+ #+ @param p_cotizacion_no - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00026_cotizacion_no_checkColumnConstraints(p_cotizacion_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cotizacion_no LIKE cctb00026.cotizacion_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cotizacion_no IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cotizacion_no: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00026_cotizacion_no_checkColumnConstraints {<BLOCK Name="fct.cctb00026_id_checkColumnConstraints">} #+ Check constraints on the "cctb00026.id" column #+ #+ @param p_id - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00026_id_checkColumnConstraints(p_id) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_id LIKE cctb00026.id LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_id IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- id: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00026_id_checkColumnConstraints {<BLOCK Name="fct.cctb00026_area_checkColumnConstraints">} #+ Check constraints on the "cctb00026.area" column #+ #+ @param p_area - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00026_area_checkColumnConstraints(p_area) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_area LIKE cctb00026.area LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_area IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- area: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00026_area_checkColumnConstraints {<BLOCK Name="fct.cctb00026_cod_n_checkColumnConstraints">} #+ Check constraints on the "cctb00026.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00026_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE cctb00026.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00026_cod_n_checkColumnConstraints {<BLOCK Name="fct.cctb00026_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "cctb00026.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00026_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE cctb00026.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_grupo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_grupo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00026_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.cctb00026_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "cctb00026.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00026_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE cctb00026.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tipo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tipo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00026_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.cctb00026_cod_sec_checkColumnConstraints">} #+ Check constraints on the "cctb00026.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00026_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE cctb00026.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00026_cod_sec_checkColumnConstraints {<BLOCK Name="fct.cctb00026_cantidad_ord1_checkColumnConstraints">} #+ Check constraints on the "cctb00026.cantidad_ord1" column #+ #+ @param p_cantidad_ord1 - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00026_cantidad_ord1_checkColumnConstraints(p_cantidad_ord1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad_ord1 LIKE cctb00026.cantidad_ord1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00026_cantidad_ord1_checkColumnConstraints {<BLOCK Name="fct.cctb00026_cantidad_ord_checkColumnConstraints">} #+ Check constraints on the "cctb00026.cantidad_ord" column #+ #+ @param p_cantidad_ord - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00026_cantidad_ord_checkColumnConstraints(p_cantidad_ord) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad_ord LIKE cctb00026.cantidad_ord LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cantidad_ord IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cantidad_ord: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00026_cantidad_ord_checkColumnConstraints {<BLOCK Name="fct.cctb00026_cantidad_1_checkColumnConstraints">} #+ Check constraints on the "cctb00026.cantidad_1" column #+ #+ @param p_cantidad_1 - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00026_cantidad_1_checkColumnConstraints(p_cantidad_1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad_1 LIKE cctb00026.cantidad_1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00026_cantidad_1_checkColumnConstraints {<BLOCK Name="fct.cctb00026_cantidad_checkColumnConstraints">} #+ Check constraints on the "cctb00026.cantidad" column #+ #+ @param p_cantidad - DECIMAL(12,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00026_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE cctb00026.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cantidad IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cantidad: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00026_cantidad_checkColumnConstraints {<BLOCK Name="fct.cctb00026_precio_checkColumnConstraints">} #+ Check constraints on the "cctb00026.precio" column #+ #+ @param p_precio - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00026_precio_checkColumnConstraints(p_precio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_precio LIKE cctb00026.precio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_precio IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- precio: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00026_precio_checkColumnConstraints {<BLOCK Name="fct.cctb00026_descuento_checkColumnConstraints">} #+ Check constraints on the "cctb00026.descuento" column #+ #+ @param p_descuento - DECIMAL(8,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00026_descuento_checkColumnConstraints(p_descuento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descuento LIKE cctb00026.descuento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_descuento IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- descuento: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00026_descuento_checkColumnConstraints {<BLOCK Name="fct.cctb00026_descvalor_checkColumnConstraints">} #+ Check constraints on the "cctb00026.descvalor" column #+ #+ @param p_descvalor - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00026_descvalor_checkColumnConstraints(p_descvalor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descvalor LIKE cctb00026.descvalor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_descvalor IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- descvalor: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00026_descvalor_checkColumnConstraints {<BLOCK Name="fct.cctb00026_valor_checkColumnConstraints">} #+ Check constraints on the "cctb00026.valor" column #+ #+ @param p_valor - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00026_valor_checkColumnConstraints(p_valor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor LIKE cctb00026.valor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_valor IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- valor: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00026_valor_checkColumnConstraints {<BLOCK Name="fct.cctb00026_estado_checkColumnConstraints">} #+ Check constraints on the "cctb00026.estado" column #+ #+ @param p_estado - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00026_estado_checkColumnConstraints(p_estado) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_estado LIKE cctb00026.estado LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00026_estado_checkColumnConstraints {<BLOCK Name="fct.cctb00026_status_t_checkColumnConstraints">} #+ Check constraints on the "cctb00026.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00026_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cctb00026.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00026_status_t_checkColumnConstraints {<BLOCK Name="fct.cctb00026_us_crea_checkColumnConstraints">} #+ Check constraints on the "cctb00026.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00026_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cctb00026.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_us_crea IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- us_crea: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00026_us_crea_checkColumnConstraints {<BLOCK Name="fct.cctb00026_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cctb00026.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00026_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cctb00026.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_fech_crea IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- fech_crea: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00026_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cctb00026_us_mod_checkColumnConstraints">} #+ Check constraints on the "cctb00026.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00026_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cctb00026.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00026_us_mod_checkColumnConstraints {<BLOCK Name="fct.cctb00026_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cctb00026.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00026_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cctb00026.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00026_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cctb00026_fecha_transporte_checkColumnConstraints">} #+ Check constraints on the "cctb00026.fecha_transporte" column #+ #+ @param p_fecha_transporte - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00026_fecha_transporte_checkColumnConstraints(p_fecha_transporte) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_transporte LIKE cctb00026.fecha_transporte LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00026_fecha_transporte_checkColumnConstraints {<BLOCK Name="fct.cctb00026_fecha_llegada_checkColumnConstraints">} #+ Check constraints on the "cctb00026.fecha_llegada" column #+ #+ @param p_fecha_llegada - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00026_fecha_llegada_checkColumnConstraints(p_fecha_llegada) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_llegada LIKE cctb00026.fecha_llegada LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00026_fecha_llegada_checkColumnConstraints {<BLOCK Name="fct.cctb00025_checkTableConstraints">} #+ Check constraints on the "cctb00025" table #+ #+ @param p_data - a row data LIKE cctb00025.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00025_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cctb00025.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cctb00025_num_req_checkColumnConstraints(p_data.num_req) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00025_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00025_sec_vend_checkColumnConstraints(p_data.sec_vend) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00025_sec_vend_aprobado_checkColumnConstraints(p_data.sec_vend_aprobado) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00025_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00025_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00025_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00025_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00025_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00025_estado_checkColumnConstraints(p_data.estado) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00025_fecha_transporte_checkColumnConstraints(p_data.fecha_transporte) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00025_estado_despacho_checkColumnConstraints(p_data.estado_despacho) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00025_fecha_autorizacion_checkColumnConstraints(p_data.fecha_autorizacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00025_pk_cctb00025_checkUniqueConstraint(p_forUpdate, p_data.num_req) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00025_checkTableConstraints {<BLOCK Name="fct.cctb00025_pk_cctb00025_checkUniqueConstraint">} #+ Check the primary key uniqueness constraint on the "cctb00025" #+ #+ @param p_key - Primary Key #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00025_pk_cctb00025_checkUniqueConstraint(p_forUpdate, p_key) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_forUpdate BOOLEAN DEFINE p_key RECORD cctb00025_num_req LIKE cctb00025.num_req END RECORD DEFINE l_key RECORD cctb00025_num_req LIKE cctb00025.num_req 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 cctb00025.num_req = ? " let l_sqlQuery = "SELECT COUNT(*), num_req FROM cctb00025 ", l_where, " GROUP BY num_req" PREPARE cur_cctb00025_pk_cctb00025_checkUniqueConstraint FROM l_sqlQuery EXECUTE cur_cctb00025_pk_cctb00025_checkUniqueConstraint INTO l_count, l_key.* USING p_key.* FREE cur_cctb00025_pk_cctb00025_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- num_req: " || ERROR_BAM_00002) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00025_pk_cctb00025_checkUniqueConstraint {<BLOCK Name="fct.cctb00025_num_req_checkColumnConstraints">} #+ Check constraints on the "cctb00025.num_req" column #+ #+ @param p_num_req - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00025_num_req_checkColumnConstraints(p_num_req) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_req LIKE cctb00025.num_req LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_num_req IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- num_req: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00025_num_req_checkColumnConstraints {<BLOCK Name="fct.cctb00025_fecha_checkColumnConstraints">} #+ Check constraints on the "cctb00025.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00025_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE cctb00025.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_fecha IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- fecha: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00025_fecha_checkColumnConstraints {<BLOCK Name="fct.cctb00025_sec_vend_checkColumnConstraints">} #+ Check constraints on the "cctb00025.sec_vend" column #+ #+ @param p_sec_vend - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00025_sec_vend_checkColumnConstraints(p_sec_vend) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_vend LIKE cctb00025.sec_vend LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_sec_vend IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- sec_vend: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00025_sec_vend_checkColumnConstraints {<BLOCK Name="fct.cctb00025_sec_vend_aprobado_checkColumnConstraints">} #+ Check constraints on the "cctb00025.sec_vend_aprobado" column #+ #+ @param p_sec_vend_aprobado - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00025_sec_vend_aprobado_checkColumnConstraints(p_sec_vend_aprobado) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_vend_aprobado LIKE cctb00025.sec_vend_aprobado LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00025_sec_vend_aprobado_checkColumnConstraints {<BLOCK Name="fct.cctb00025_status_t_checkColumnConstraints">} #+ Check constraints on the "cctb00025.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00025_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cctb00025.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00025_status_t_checkColumnConstraints {<BLOCK Name="fct.cctb00025_us_crea_checkColumnConstraints">} #+ Check constraints on the "cctb00025.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00025_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cctb00025.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_us_crea IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- us_crea: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00025_us_crea_checkColumnConstraints {<BLOCK Name="fct.cctb00025_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cctb00025.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00025_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cctb00025.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_fech_crea IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- fech_crea: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00025_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cctb00025_us_mod_checkColumnConstraints">} #+ Check constraints on the "cctb00025.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00025_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cctb00025.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00025_us_mod_checkColumnConstraints {<BLOCK Name="fct.cctb00025_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cctb00025.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00025_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cctb00025.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00025_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cctb00025_estado_checkColumnConstraints">} #+ Check constraints on the "cctb00025.estado" column #+ #+ @param p_estado - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00025_estado_checkColumnConstraints(p_estado) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_estado LIKE cctb00025.estado LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00025_estado_checkColumnConstraints {<BLOCK Name="fct.cctb00025_fecha_transporte_checkColumnConstraints">} #+ Check constraints on the "cctb00025.fecha_transporte" column #+ #+ @param p_fecha_transporte - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00025_fecha_transporte_checkColumnConstraints(p_fecha_transporte) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_transporte LIKE cctb00025.fecha_transporte LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00025_fecha_transporte_checkColumnConstraints {<BLOCK Name="fct.cctb00025_estado_despacho_checkColumnConstraints">} #+ Check constraints on the "cctb00025.estado_despacho" column #+ #+ @param p_estado_despacho - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00025_estado_despacho_checkColumnConstraints(p_estado_despacho) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_estado_despacho LIKE cctb00025.estado_despacho LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00025_estado_despacho_checkColumnConstraints {<BLOCK Name="fct.cctb00025_fecha_autorizacion_checkColumnConstraints">} #+ Check constraints on the "cctb00025.fecha_autorizacion" column #+ #+ @param p_fecha_autorizacion - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00025_fecha_autorizacion_checkColumnConstraints(p_fecha_autorizacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_autorizacion LIKE cctb00025.fecha_autorizacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00025_fecha_autorizacion_checkColumnConstraints {<BLOCK Name="fct.cctb00024_checkTableConstraints">} #+ Check constraints on the "cctb00024" table #+ #+ @param p_data - a row data LIKE cctb00024.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00024_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cctb00024.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cctb00024_status_mov_checkColumnConstraints(p_data.status_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00024_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00024_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00024_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00024_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00024_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00024_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00024_checkTableConstraints {<BLOCK Name="fct.cctb00024_status_mov_checkColumnConstraints">} #+ Check constraints on the "cctb00024.status_mov" column #+ #+ @param p_status_mov - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00024_status_mov_checkColumnConstraints(p_status_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_mov LIKE cctb00024.status_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00024_status_mov_checkColumnConstraints {<BLOCK Name="fct.cctb00024_descripcion_checkColumnConstraints">} #+ Check constraints on the "cctb00024.descripcion" column #+ #+ @param p_descripcion - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00024_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE cctb00024.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00024_descripcion_checkColumnConstraints {<BLOCK Name="fct.cctb00024_status_t_checkColumnConstraints">} #+ Check constraints on the "cctb00024.status_t" column #+ #+ @param p_status_t - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00024_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cctb00024.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00024_status_t_checkColumnConstraints {<BLOCK Name="fct.cctb00024_us_crea_checkColumnConstraints">} #+ Check constraints on the "cctb00024.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00024_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cctb00024.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00024_us_crea_checkColumnConstraints {<BLOCK Name="fct.cctb00024_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cctb00024.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00024_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cctb00024.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00024_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cctb00024_us_mod_checkColumnConstraints">} #+ Check constraints on the "cctb00024.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00024_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cctb00024.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00024_us_mod_checkColumnConstraints {<BLOCK Name="fct.cctb00024_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cctb00024.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00024_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cctb00024.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00024_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cctb00023_checkTableConstraints">} #+ Check constraints on the "cctb00023" table #+ #+ @param p_data - a row data LIKE cctb00023.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00023_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cctb00023.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cctb00023_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00023_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00023_cod_moneda_checkColumnConstraints(p_data.cod_moneda) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00023_cantidad_checkColumnConstraints(p_data.cantidad) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00023_valor_checkColumnConstraints(p_data.valor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00023_tipo_doc_checkColumnConstraints(p_data.tipo_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00023_tasa_checkColumnConstraints(p_data.tasa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00023_cod_cia_checkColumnConstraints(p_data.cod_cia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00023_num_trans_checkColumnConstraints(p_data.num_trans) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00023_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00023_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00023_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00023_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00023_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00023_checkTableConstraints {<BLOCK Name="fct.cctb00023_num_doc_checkColumnConstraints">} #+ Check constraints on the "cctb00023.num_doc" column #+ #+ @param p_num_doc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00023_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE cctb00023.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00023_num_doc_checkColumnConstraints {<BLOCK Name="fct.cctb00023_fecha_checkColumnConstraints">} #+ Check constraints on the "cctb00023.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00023_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE cctb00023.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00023_fecha_checkColumnConstraints {<BLOCK Name="fct.cctb00023_cod_moneda_checkColumnConstraints">} #+ Check constraints on the "cctb00023.cod_moneda" column #+ #+ @param p_cod_moneda - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00023_cod_moneda_checkColumnConstraints(p_cod_moneda) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_moneda LIKE cctb00023.cod_moneda LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00023_cod_moneda_checkColumnConstraints {<BLOCK Name="fct.cctb00023_cantidad_checkColumnConstraints">} #+ Check constraints on the "cctb00023.cantidad" column #+ #+ @param p_cantidad - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00023_cantidad_checkColumnConstraints(p_cantidad) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad LIKE cctb00023.cantidad LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00023_cantidad_checkColumnConstraints {<BLOCK Name="fct.cctb00023_valor_checkColumnConstraints">} #+ Check constraints on the "cctb00023.valor" column #+ #+ @param p_valor - DECIMAL(18,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00023_valor_checkColumnConstraints(p_valor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor LIKE cctb00023.valor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00023_valor_checkColumnConstraints {<BLOCK Name="fct.cctb00023_tipo_doc_checkColumnConstraints">} #+ Check constraints on the "cctb00023.tipo_doc" column #+ #+ @param p_tipo_doc - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00023_tipo_doc_checkColumnConstraints(p_tipo_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_doc LIKE cctb00023.tipo_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00023_tipo_doc_checkColumnConstraints {<BLOCK Name="fct.cctb00023_tasa_checkColumnConstraints">} #+ Check constraints on the "cctb00023.tasa" column #+ #+ @param p_tasa - DECIMAL(18,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00023_tasa_checkColumnConstraints(p_tasa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tasa LIKE cctb00023.tasa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00023_tasa_checkColumnConstraints {<BLOCK Name="fct.cctb00023_cod_cia_checkColumnConstraints">} #+ Check constraints on the "cctb00023.cod_cia" column #+ #+ @param p_cod_cia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00023_cod_cia_checkColumnConstraints(p_cod_cia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_cia LIKE cctb00023.cod_cia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00023_cod_cia_checkColumnConstraints {<BLOCK Name="fct.cctb00023_num_trans_checkColumnConstraints">} #+ Check constraints on the "cctb00023.num_trans" column #+ #+ @param p_num_trans - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00023_num_trans_checkColumnConstraints(p_num_trans) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_trans LIKE cctb00023.num_trans LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00023_num_trans_checkColumnConstraints {<BLOCK Name="fct.cctb00023_status_t_checkColumnConstraints">} #+ Check constraints on the "cctb00023.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00023_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cctb00023.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00023_status_t_checkColumnConstraints {<BLOCK Name="fct.cctb00023_us_crea_checkColumnConstraints">} #+ Check constraints on the "cctb00023.us_crea" column #+ #+ @param p_us_crea - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00023_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cctb00023.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00023_us_crea_checkColumnConstraints {<BLOCK Name="fct.cctb00023_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cctb00023.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00023_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cctb00023.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00023_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cctb00023_us_mod_checkColumnConstraints">} #+ Check constraints on the "cctb00023.us_mod" column #+ #+ @param p_us_mod - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00023_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cctb00023.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00023_us_mod_checkColumnConstraints {<BLOCK Name="fct.cctb00023_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cctb00023.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00023_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cctb00023.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00023_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cctb00022_checkTableConstraints">} #+ Check constraints on the "cctb00022" table #+ #+ @param p_data - a row data LIKE cctb00022.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00022_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cctb00022.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cctb00022_cod_moneda_checkColumnConstraints(p_data.cod_moneda) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00022_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00022_valor_checkColumnConstraints(p_data.valor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00022_tipo_moneda_checkColumnConstraints(p_data.tipo_moneda) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00022_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00022_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00022_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00022_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00022_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00022_checkTableConstraints {<BLOCK Name="fct.cctb00022_cod_moneda_checkColumnConstraints">} #+ Check constraints on the "cctb00022.cod_moneda" column #+ #+ @param p_cod_moneda - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00022_cod_moneda_checkColumnConstraints(p_cod_moneda) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_moneda LIKE cctb00022.cod_moneda LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00022_cod_moneda_checkColumnConstraints {<BLOCK Name="fct.cctb00022_descripcion_checkColumnConstraints">} #+ Check constraints on the "cctb00022.descripcion" column #+ #+ @param p_descripcion - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00022_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE cctb00022.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00022_descripcion_checkColumnConstraints {<BLOCK Name="fct.cctb00022_valor_checkColumnConstraints">} #+ Check constraints on the "cctb00022.valor" column #+ #+ @param p_valor - DECIMAL(18,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00022_valor_checkColumnConstraints(p_valor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor LIKE cctb00022.valor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00022_valor_checkColumnConstraints {<BLOCK Name="fct.cctb00022_tipo_moneda_checkColumnConstraints">} #+ Check constraints on the "cctb00022.tipo_moneda" column #+ #+ @param p_tipo_moneda - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00022_tipo_moneda_checkColumnConstraints(p_tipo_moneda) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_moneda LIKE cctb00022.tipo_moneda LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00022_tipo_moneda_checkColumnConstraints {<BLOCK Name="fct.cctb00022_status_t_checkColumnConstraints">} #+ Check constraints on the "cctb00022.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00022_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cctb00022.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00022_status_t_checkColumnConstraints {<BLOCK Name="fct.cctb00022_us_crea_checkColumnConstraints">} #+ Check constraints on the "cctb00022.us_crea" column #+ #+ @param p_us_crea - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00022_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cctb00022.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00022_us_crea_checkColumnConstraints {<BLOCK Name="fct.cctb00022_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cctb00022.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00022_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cctb00022.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00022_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cctb00022_us_mod_checkColumnConstraints">} #+ Check constraints on the "cctb00022.us_mod" column #+ #+ @param p_us_mod - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00022_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cctb00022.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00022_us_mod_checkColumnConstraints {<BLOCK Name="fct.cctb00022_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cctb00022.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00022_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cctb00022.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00022_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cctb00021_checkTableConstraints">} #+ Check constraints on the "cctb00021" table #+ #+ @param p_data - a row data LIKE cctb00021.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00021_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cctb00021.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cctb00021_cod_cia_checkColumnConstraints(p_data.cod_cia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00021_tipo_doc_checkColumnConstraints(p_data.tipo_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00021_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00021_debito_checkColumnConstraints(p_data.debito) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00021_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00021_status_mov_checkColumnConstraints(p_data.status_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00021_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00021_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00021_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00021_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00021_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00021_secuencia_checkColumnConstraints(p_data.secuencia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00021_cxc_checkColumnConstraints(p_data.cxc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00021_credito_checkColumnConstraints(p_data.credito) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00021_checkTableConstraints {<BLOCK Name="fct.cctb00021_cod_cia_checkColumnConstraints">} #+ Check constraints on the "cctb00021.cod_cia" column #+ #+ @param p_cod_cia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00021_cod_cia_checkColumnConstraints(p_cod_cia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_cia LIKE cctb00021.cod_cia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_cia IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_cia: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00021_cod_cia_checkColumnConstraints {<BLOCK Name="fct.cctb00021_tipo_doc_checkColumnConstraints">} #+ Check constraints on the "cctb00021.tipo_doc" column #+ #+ @param p_tipo_doc - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00021_tipo_doc_checkColumnConstraints(p_tipo_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_doc LIKE cctb00021.tipo_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_tipo_doc IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- tipo_doc: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00021_tipo_doc_checkColumnConstraints {<BLOCK Name="fct.cctb00021_descripcion_checkColumnConstraints">} #+ Check constraints on the "cctb00021.descripcion" column #+ #+ @param p_descripcion - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00021_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE cctb00021.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00021_descripcion_checkColumnConstraints {<BLOCK Name="fct.cctb00021_debito_checkColumnConstraints">} #+ Check constraints on the "cctb00021.debito" column #+ #+ @param p_debito - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00021_debito_checkColumnConstraints(p_debito) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_debito LIKE cctb00021.debito LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00021_debito_checkColumnConstraints {<BLOCK Name="fct.cctb00021_departamento_checkColumnConstraints">} #+ Check constraints on the "cctb00021.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00021_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE cctb00021.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00021_departamento_checkColumnConstraints {<BLOCK Name="fct.cctb00021_status_mov_checkColumnConstraints">} #+ Check constraints on the "cctb00021.status_mov" column #+ #+ @param p_status_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00021_status_mov_checkColumnConstraints(p_status_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_mov LIKE cctb00021.status_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00021_status_mov_checkColumnConstraints {<BLOCK Name="fct.cctb00021_status_t_checkColumnConstraints">} #+ Check constraints on the "cctb00021.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00021_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cctb00021.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00021_status_t_checkColumnConstraints {<BLOCK Name="fct.cctb00021_us_crea_checkColumnConstraints">} #+ Check constraints on the "cctb00021.us_crea" column #+ #+ @param p_us_crea - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00021_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cctb00021.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00021_us_crea_checkColumnConstraints {<BLOCK Name="fct.cctb00021_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cctb00021.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00021_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cctb00021.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00021_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cctb00021_us_mod_checkColumnConstraints">} #+ Check constraints on the "cctb00021.us_mod" column #+ #+ @param p_us_mod - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00021_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cctb00021.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00021_us_mod_checkColumnConstraints {<BLOCK Name="fct.cctb00021_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cctb00021.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00021_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cctb00021.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00021_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cctb00021_secuencia_checkColumnConstraints">} #+ Check constraints on the "cctb00021.secuencia" column #+ #+ @param p_secuencia - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00021_secuencia_checkColumnConstraints(p_secuencia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_secuencia LIKE cctb00021.secuencia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00021_secuencia_checkColumnConstraints {<BLOCK Name="fct.cctb00021_cxc_checkColumnConstraints">} #+ Check constraints on the "cctb00021.cxc" column #+ #+ @param p_cxc - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00021_cxc_checkColumnConstraints(p_cxc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cxc LIKE cctb00021.cxc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00021_cxc_checkColumnConstraints {<BLOCK Name="fct.cctb00021_credito_checkColumnConstraints">} #+ Check constraints on the "cctb00021.credito" column #+ #+ @param p_credito - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00021_credito_checkColumnConstraints(p_credito) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_credito LIKE cctb00021.credito LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00021_credito_checkColumnConstraints {<BLOCK Name="fct.cctb00020_checkTableConstraints">} #+ Check constraints on the "cctb00020" table #+ #+ @param p_data - a row data LIKE cctb00020.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00020_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cctb00020.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cctb00020_cod_cia_checkColumnConstraints(p_data.cod_cia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00020_tipo_doc_checkColumnConstraints(p_data.tipo_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00020_num_oc_checkColumnConstraints(p_data.num_oc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00020_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00020_tipo_cliente_checkColumnConstraints(p_data.tipo_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00020_sec_cliente_checkColumnConstraints(p_data.sec_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00020_factura_checkColumnConstraints(p_data.factura) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00020_tipo_tarjeta_checkColumnConstraints(p_data.tipo_tarjeta) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00020_banco_checkColumnConstraints(p_data.banco) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00020_referencia_checkColumnConstraints(p_data.referencia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00020_porc_desc_checkColumnConstraints(p_data.porc_desc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00020_valor_efectivo_checkColumnConstraints(p_data.valor_efectivo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00020_otro_valor_checkColumnConstraints(p_data.otro_valor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00020_observacion_checkColumnConstraints(p_data.observacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00020_devuelta_checkColumnConstraints(p_data.devuelta) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00020_num_trans_checkColumnConstraints(p_data.num_trans) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00020_tipo_aplica_checkColumnConstraints(p_data.tipo_aplica) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00020_cajera_checkColumnConstraints(p_data.cajera) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00020_cobrador_checkColumnConstraints(p_data.cobrador) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00020_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00020_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00020_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00020_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00020_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00020_checkTableConstraints {<BLOCK Name="fct.cctb00020_cod_cia_checkColumnConstraints">} #+ Check constraints on the "cctb00020.cod_cia" column #+ #+ @param p_cod_cia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00020_cod_cia_checkColumnConstraints(p_cod_cia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_cia LIKE cctb00020.cod_cia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00020_cod_cia_checkColumnConstraints {<BLOCK Name="fct.cctb00020_tipo_doc_checkColumnConstraints">} #+ Check constraints on the "cctb00020.tipo_doc" column #+ #+ @param p_tipo_doc - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00020_tipo_doc_checkColumnConstraints(p_tipo_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_doc LIKE cctb00020.tipo_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00020_tipo_doc_checkColumnConstraints {<BLOCK Name="fct.cctb00020_num_oc_checkColumnConstraints">} #+ Check constraints on the "cctb00020.num_oc" column #+ #+ @param p_num_oc - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00020_num_oc_checkColumnConstraints(p_num_oc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_oc LIKE cctb00020.num_oc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00020_num_oc_checkColumnConstraints {<BLOCK Name="fct.cctb00020_fecha_checkColumnConstraints">} #+ Check constraints on the "cctb00020.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00020_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE cctb00020.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00020_fecha_checkColumnConstraints {<BLOCK Name="fct.cctb00020_tipo_cliente_checkColumnConstraints">} #+ Check constraints on the "cctb00020.tipo_cliente" column #+ #+ @param p_tipo_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00020_tipo_cliente_checkColumnConstraints(p_tipo_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_cliente LIKE cctb00020.tipo_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00020_tipo_cliente_checkColumnConstraints {<BLOCK Name="fct.cctb00020_sec_cliente_checkColumnConstraints">} #+ Check constraints on the "cctb00020.sec_cliente" column #+ #+ @param p_sec_cliente - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00020_sec_cliente_checkColumnConstraints(p_sec_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_cliente LIKE cctb00020.sec_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00020_sec_cliente_checkColumnConstraints {<BLOCK Name="fct.cctb00020_factura_checkColumnConstraints">} #+ Check constraints on the "cctb00020.factura" column #+ #+ @param p_factura - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00020_factura_checkColumnConstraints(p_factura) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_factura LIKE cctb00020.factura LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00020_factura_checkColumnConstraints {<BLOCK Name="fct.cctb00020_tipo_tarjeta_checkColumnConstraints">} #+ Check constraints on the "cctb00020.tipo_tarjeta" column #+ #+ @param p_tipo_tarjeta - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00020_tipo_tarjeta_checkColumnConstraints(p_tipo_tarjeta) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_tarjeta LIKE cctb00020.tipo_tarjeta LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00020_tipo_tarjeta_checkColumnConstraints {<BLOCK Name="fct.cctb00020_banco_checkColumnConstraints">} #+ Check constraints on the "cctb00020.banco" column #+ #+ @param p_banco - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00020_banco_checkColumnConstraints(p_banco) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_banco LIKE cctb00020.banco LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00020_banco_checkColumnConstraints {<BLOCK Name="fct.cctb00020_referencia_checkColumnConstraints">} #+ Check constraints on the "cctb00020.referencia" column #+ #+ @param p_referencia - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00020_referencia_checkColumnConstraints(p_referencia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_referencia LIKE cctb00020.referencia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00020_referencia_checkColumnConstraints {<BLOCK Name="fct.cctb00020_porc_desc_checkColumnConstraints">} #+ Check constraints on the "cctb00020.porc_desc" column #+ #+ @param p_porc_desc - DECIMAL(18,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00020_porc_desc_checkColumnConstraints(p_porc_desc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_porc_desc LIKE cctb00020.porc_desc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00020_porc_desc_checkColumnConstraints {<BLOCK Name="fct.cctb00020_valor_efectivo_checkColumnConstraints">} #+ Check constraints on the "cctb00020.valor_efectivo" column #+ #+ @param p_valor_efectivo - DECIMAL(18,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00020_valor_efectivo_checkColumnConstraints(p_valor_efectivo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor_efectivo LIKE cctb00020.valor_efectivo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00020_valor_efectivo_checkColumnConstraints {<BLOCK Name="fct.cctb00020_otro_valor_checkColumnConstraints">} #+ Check constraints on the "cctb00020.otro_valor" column #+ #+ @param p_otro_valor - DECIMAL(18,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00020_otro_valor_checkColumnConstraints(p_otro_valor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_otro_valor LIKE cctb00020.otro_valor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00020_otro_valor_checkColumnConstraints {<BLOCK Name="fct.cctb00020_observacion_checkColumnConstraints">} #+ Check constraints on the "cctb00020.observacion" column #+ #+ @param p_observacion - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00020_observacion_checkColumnConstraints(p_observacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_observacion LIKE cctb00020.observacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00020_observacion_checkColumnConstraints {<BLOCK Name="fct.cctb00020_devuelta_checkColumnConstraints">} #+ Check constraints on the "cctb00020.devuelta" column #+ #+ @param p_devuelta - DECIMAL(18,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00020_devuelta_checkColumnConstraints(p_devuelta) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_devuelta LIKE cctb00020.devuelta LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00020_devuelta_checkColumnConstraints {<BLOCK Name="fct.cctb00020_num_trans_checkColumnConstraints">} #+ Check constraints on the "cctb00020.num_trans" column #+ #+ @param p_num_trans - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00020_num_trans_checkColumnConstraints(p_num_trans) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_trans LIKE cctb00020.num_trans LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00020_num_trans_checkColumnConstraints {<BLOCK Name="fct.cctb00020_tipo_aplica_checkColumnConstraints">} #+ Check constraints on the "cctb00020.tipo_aplica" column #+ #+ @param p_tipo_aplica - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00020_tipo_aplica_checkColumnConstraints(p_tipo_aplica) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_aplica LIKE cctb00020.tipo_aplica LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00020_tipo_aplica_checkColumnConstraints {<BLOCK Name="fct.cctb00020_cajera_checkColumnConstraints">} #+ Check constraints on the "cctb00020.cajera" column #+ #+ @param p_cajera - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00020_cajera_checkColumnConstraints(p_cajera) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cajera LIKE cctb00020.cajera LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00020_cajera_checkColumnConstraints {<BLOCK Name="fct.cctb00020_cobrador_checkColumnConstraints">} #+ Check constraints on the "cctb00020.cobrador" column #+ #+ @param p_cobrador - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00020_cobrador_checkColumnConstraints(p_cobrador) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cobrador LIKE cctb00020.cobrador LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00020_cobrador_checkColumnConstraints {<BLOCK Name="fct.cctb00020_status_t_checkColumnConstraints">} #+ Check constraints on the "cctb00020.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00020_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cctb00020.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00020_status_t_checkColumnConstraints {<BLOCK Name="fct.cctb00020_us_crea_checkColumnConstraints">} #+ Check constraints on the "cctb00020.us_crea" column #+ #+ @param p_us_crea - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00020_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cctb00020.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00020_us_crea_checkColumnConstraints {<BLOCK Name="fct.cctb00020_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cctb00020.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00020_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cctb00020.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00020_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cctb00020_us_mod_checkColumnConstraints">} #+ Check constraints on the "cctb00020.us_mod" column #+ #+ @param p_us_mod - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00020_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cctb00020.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00020_us_mod_checkColumnConstraints {<BLOCK Name="fct.cctb00020_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cctb00020.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00020_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cctb00020.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00020_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cctb00013_checkTableConstraints">} #+ Check constraints on the "cctb00013" table #+ #+ @param p_data - a row data LIKE cctb00013.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00013_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cctb00013.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cctb00013_tipo_negocio_checkColumnConstraints(p_data.tipo_negocio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00013_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00013_cond_pago_checkColumnConstraints(p_data.cond_pago) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00013_porc_desc_checkColumnConstraints(p_data.porc_desc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00013_codigo_eis_checkColumnConstraints(p_data.codigo_eis) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00013_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00013_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00013_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00013_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00013_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00013_checkTableConstraints {<BLOCK Name="fct.cctb00013_tipo_negocio_checkColumnConstraints">} #+ Check constraints on the "cctb00013.tipo_negocio" column #+ #+ @param p_tipo_negocio - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00013_tipo_negocio_checkColumnConstraints(p_tipo_negocio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_negocio LIKE cctb00013.tipo_negocio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00013_tipo_negocio_checkColumnConstraints {<BLOCK Name="fct.cctb00013_descripcion_checkColumnConstraints">} #+ Check constraints on the "cctb00013.descripcion" column #+ #+ @param p_descripcion - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00013_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE cctb00013.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00013_descripcion_checkColumnConstraints {<BLOCK Name="fct.cctb00013_cond_pago_checkColumnConstraints">} #+ Check constraints on the "cctb00013.cond_pago" column #+ #+ @param p_cond_pago - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00013_cond_pago_checkColumnConstraints(p_cond_pago) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cond_pago LIKE cctb00013.cond_pago LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00013_cond_pago_checkColumnConstraints {<BLOCK Name="fct.cctb00013_porc_desc_checkColumnConstraints">} #+ Check constraints on the "cctb00013.porc_desc" column #+ #+ @param p_porc_desc - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00013_porc_desc_checkColumnConstraints(p_porc_desc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_porc_desc LIKE cctb00013.porc_desc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00013_porc_desc_checkColumnConstraints {<BLOCK Name="fct.cctb00013_codigo_eis_checkColumnConstraints">} #+ Check constraints on the "cctb00013.codigo_eis" column #+ #+ @param p_codigo_eis - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00013_codigo_eis_checkColumnConstraints(p_codigo_eis) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codigo_eis LIKE cctb00013.codigo_eis LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00013_codigo_eis_checkColumnConstraints {<BLOCK Name="fct.cctb00013_status_t_checkColumnConstraints">} #+ Check constraints on the "cctb00013.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00013_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cctb00013.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00013_status_t_checkColumnConstraints {<BLOCK Name="fct.cctb00013_us_crea_checkColumnConstraints">} #+ Check constraints on the "cctb00013.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00013_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cctb00013.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00013_us_crea_checkColumnConstraints {<BLOCK Name="fct.cctb00013_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cctb00013.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00013_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cctb00013.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00013_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cctb00013_us_mod_checkColumnConstraints">} #+ Check constraints on the "cctb00013.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00013_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cctb00013.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00013_us_mod_checkColumnConstraints {<BLOCK Name="fct.cctb00013_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cctb00013.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00013_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cctb00013.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00013_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cctb00011_checkTableConstraints">} #+ Check constraints on the "cctb00011" table #+ #+ @param p_data - a row data LIKE cctb00011.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00011_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cctb00011.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cctb00011_cod_cia_checkColumnConstraints(p_data.cod_cia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00011_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00011_tipo_doc_checkColumnConstraints(p_data.tipo_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00011_tipo_cliente_checkColumnConstraints(p_data.tipo_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00011_sec_cliente_checkColumnConstraints(p_data.sec_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00011_comentario_checkColumnConstraints(p_data.comentario) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00011_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00011_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00011_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00011_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00011_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00011_sucid_checkColumnConstraints(p_data.sucid) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00011_chitbis_checkColumnConstraints(p_data.chitbis) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00011_checkTableConstraints {<BLOCK Name="fct.cctb00011_cod_cia_checkColumnConstraints">} #+ Check constraints on the "cctb00011.cod_cia" column #+ #+ @param p_cod_cia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00011_cod_cia_checkColumnConstraints(p_cod_cia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_cia LIKE cctb00011.cod_cia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00011_cod_cia_checkColumnConstraints {<BLOCK Name="fct.cctb00011_num_doc_checkColumnConstraints">} #+ Check constraints on the "cctb00011.num_doc" column #+ #+ @param p_num_doc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00011_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE cctb00011.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_num_doc IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- num_doc: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00011_num_doc_checkColumnConstraints {<BLOCK Name="fct.cctb00011_tipo_doc_checkColumnConstraints">} #+ Check constraints on the "cctb00011.tipo_doc" column #+ #+ @param p_tipo_doc - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00011_tipo_doc_checkColumnConstraints(p_tipo_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_doc LIKE cctb00011.tipo_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00011_tipo_doc_checkColumnConstraints {<BLOCK Name="fct.cctb00011_tipo_cliente_checkColumnConstraints">} #+ Check constraints on the "cctb00011.tipo_cliente" column #+ #+ @param p_tipo_cliente - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00011_tipo_cliente_checkColumnConstraints(p_tipo_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_cliente LIKE cctb00011.tipo_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00011_tipo_cliente_checkColumnConstraints {<BLOCK Name="fct.cctb00011_sec_cliente_checkColumnConstraints">} #+ Check constraints on the "cctb00011.sec_cliente" column #+ #+ @param p_sec_cliente - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00011_sec_cliente_checkColumnConstraints(p_sec_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_cliente LIKE cctb00011.sec_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00011_sec_cliente_checkColumnConstraints {<BLOCK Name="fct.cctb00011_comentario_checkColumnConstraints">} #+ Check constraints on the "cctb00011.comentario" column #+ #+ @param p_comentario - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00011_comentario_checkColumnConstraints(p_comentario) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_comentario LIKE cctb00011.comentario LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00011_comentario_checkColumnConstraints {<BLOCK Name="fct.cctb00011_status_t_checkColumnConstraints">} #+ Check constraints on the "cctb00011.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00011_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cctb00011.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00011_status_t_checkColumnConstraints {<BLOCK Name="fct.cctb00011_us_crea_checkColumnConstraints">} #+ Check constraints on the "cctb00011.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00011_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cctb00011.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00011_us_crea_checkColumnConstraints {<BLOCK Name="fct.cctb00011_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cctb00011.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00011_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cctb00011.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00011_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cctb00011_us_mod_checkColumnConstraints">} #+ Check constraints on the "cctb00011.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00011_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cctb00011.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00011_us_mod_checkColumnConstraints {<BLOCK Name="fct.cctb00011_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cctb00011.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00011_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cctb00011.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00011_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cctb00011_sucid_checkColumnConstraints">} #+ Check constraints on the "cctb00011.sucid" column #+ #+ @param p_sucid - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00011_sucid_checkColumnConstraints(p_sucid) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sucid LIKE cctb00011.sucid LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00011_sucid_checkColumnConstraints {<BLOCK Name="fct.cctb00011_chitbis_checkColumnConstraints">} #+ Check constraints on the "cctb00011.chitbis" column #+ #+ @param p_chitbis - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00011_chitbis_checkColumnConstraints(p_chitbis) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_chitbis LIKE cctb00011.chitbis LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00011_chitbis_checkColumnConstraints {<BLOCK Name="fct.cctb00008_checkTableConstraints">} #+ Check constraints on the "cctb00008" table #+ #+ @param p_data - a row data LIKE cctb00008.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00008_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cctb00008.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cctb00008_sec_vend_checkColumnConstraints(p_data.sec_vend) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00008_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00008_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00008_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00008_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00008_porc_ventas_checkColumnConstraints(p_data.porc_ventas) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00008_porc_cobros_checkColumnConstraints(p_data.porc_cobros) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00008_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00008_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00008_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00008_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00008_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00008_checkTableConstraints {<BLOCK Name="fct.cctb00008_sec_vend_checkColumnConstraints">} #+ Check constraints on the "cctb00008.sec_vend" column #+ #+ @param p_sec_vend - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00008_sec_vend_checkColumnConstraints(p_sec_vend) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_vend LIKE cctb00008.sec_vend LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_sec_vend IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- sec_vend: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00008_sec_vend_checkColumnConstraints {<BLOCK Name="fct.cctb00008_cod_n_checkColumnConstraints">} #+ Check constraints on the "cctb00008.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00008_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE cctb00008.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00008_cod_n_checkColumnConstraints {<BLOCK Name="fct.cctb00008_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "cctb00008.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00008_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE cctb00008.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_grupo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_grupo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00008_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.cctb00008_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "cctb00008.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00008_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE cctb00008.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tipo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tipo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00008_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.cctb00008_cod_sec_checkColumnConstraints">} #+ Check constraints on the "cctb00008.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00008_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE cctb00008.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00008_cod_sec_checkColumnConstraints {<BLOCK Name="fct.cctb00008_porc_ventas_checkColumnConstraints">} #+ Check constraints on the "cctb00008.porc_ventas" column #+ #+ @param p_porc_ventas - DECIMAL(8,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00008_porc_ventas_checkColumnConstraints(p_porc_ventas) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_porc_ventas LIKE cctb00008.porc_ventas LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_porc_ventas IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- porc_ventas: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00008_porc_ventas_checkColumnConstraints {<BLOCK Name="fct.cctb00008_porc_cobros_checkColumnConstraints">} #+ Check constraints on the "cctb00008.porc_cobros" column #+ #+ @param p_porc_cobros - DECIMAL(8,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00008_porc_cobros_checkColumnConstraints(p_porc_cobros) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_porc_cobros LIKE cctb00008.porc_cobros LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00008_porc_cobros_checkColumnConstraints {<BLOCK Name="fct.cctb00008_status_t_checkColumnConstraints">} #+ Check constraints on the "cctb00008.status_t" column #+ #+ @param p_status_t - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00008_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cctb00008.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00008_status_t_checkColumnConstraints {<BLOCK Name="fct.cctb00008_us_crea_checkColumnConstraints">} #+ Check constraints on the "cctb00008.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00008_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cctb00008.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00008_us_crea_checkColumnConstraints {<BLOCK Name="fct.cctb00008_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cctb00008.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00008_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cctb00008.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00008_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cctb00008_us_mod_checkColumnConstraints">} #+ Check constraints on the "cctb00008.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00008_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cctb00008.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00008_us_mod_checkColumnConstraints {<BLOCK Name="fct.cctb00008_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cctb00008.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00008_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cctb00008.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00008_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cctb00003_checkTableConstraints">} #+ Check constraints on the "cctb00003" table #+ #+ @param p_data - a row data LIKE cctb00003.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00003_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cctb00003.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cctb00003_cod_vend_checkColumnConstraints(p_data.cod_vend) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00003_sec_vend_checkColumnConstraints(p_data.sec_vend) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00003_ult_recibo_checkColumnConstraints(p_data.ult_recibo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00003_tipo_doc_checkColumnConstraints(p_data.tipo_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00003_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00003_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00003_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00003_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00003_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00003_checkTableConstraints {<BLOCK Name="fct.cctb00003_cod_vend_checkColumnConstraints">} #+ Check constraints on the "cctb00003.cod_vend" column #+ #+ @param p_cod_vend - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00003_cod_vend_checkColumnConstraints(p_cod_vend) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_vend LIKE cctb00003.cod_vend LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00003_cod_vend_checkColumnConstraints {<BLOCK Name="fct.cctb00003_sec_vend_checkColumnConstraints">} #+ Check constraints on the "cctb00003.sec_vend" column #+ #+ @param p_sec_vend - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00003_sec_vend_checkColumnConstraints(p_sec_vend) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_vend LIKE cctb00003.sec_vend LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00003_sec_vend_checkColumnConstraints {<BLOCK Name="fct.cctb00003_ult_recibo_checkColumnConstraints">} #+ Check constraints on the "cctb00003.ult_recibo" column #+ #+ @param p_ult_recibo - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00003_ult_recibo_checkColumnConstraints(p_ult_recibo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ult_recibo LIKE cctb00003.ult_recibo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00003_ult_recibo_checkColumnConstraints {<BLOCK Name="fct.cctb00003_tipo_doc_checkColumnConstraints">} #+ Check constraints on the "cctb00003.tipo_doc" column #+ #+ @param p_tipo_doc - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00003_tipo_doc_checkColumnConstraints(p_tipo_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_doc LIKE cctb00003.tipo_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00003_tipo_doc_checkColumnConstraints {<BLOCK Name="fct.cctb00003_status_t_checkColumnConstraints">} #+ Check constraints on the "cctb00003.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00003_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cctb00003.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00003_status_t_checkColumnConstraints {<BLOCK Name="fct.cctb00003_us_crea_checkColumnConstraints">} #+ Check constraints on the "cctb00003.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00003_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cctb00003.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00003_us_crea_checkColumnConstraints {<BLOCK Name="fct.cctb00003_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cctb00003.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00003_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cctb00003.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00003_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cctb00003_us_mod_checkColumnConstraints">} #+ Check constraints on the "cctb00003.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00003_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cctb00003.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00003_us_mod_checkColumnConstraints {<BLOCK Name="fct.cctb00003_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cctb00003.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00003_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cctb00003.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00003_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cctb00002_checkTableConstraints">} #+ Check constraints on the "cctb00002" table #+ #+ @param p_data - a row data LIKE cctb00002.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00002_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cctb00002.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cctb00002_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00002_cod_vend_checkColumnConstraints(p_data.cod_vend) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00002_sec_vend_checkColumnConstraints(p_data.sec_vend) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00002_sec_de_checkColumnConstraints(p_data.sec_de) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00002_sec_a_checkColumnConstraints(p_data.sec_a) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00002_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00002_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00002_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00002_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00002_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00002_checkTableConstraints {<BLOCK Name="fct.cctb00002_fecha_checkColumnConstraints">} #+ Check constraints on the "cctb00002.fecha" column #+ #+ @param p_fecha - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00002_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE cctb00002.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00002_fecha_checkColumnConstraints {<BLOCK Name="fct.cctb00002_cod_vend_checkColumnConstraints">} #+ Check constraints on the "cctb00002.cod_vend" column #+ #+ @param p_cod_vend - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00002_cod_vend_checkColumnConstraints(p_cod_vend) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_vend LIKE cctb00002.cod_vend LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00002_cod_vend_checkColumnConstraints {<BLOCK Name="fct.cctb00002_sec_vend_checkColumnConstraints">} #+ Check constraints on the "cctb00002.sec_vend" column #+ #+ @param p_sec_vend - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00002_sec_vend_checkColumnConstraints(p_sec_vend) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_vend LIKE cctb00002.sec_vend LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00002_sec_vend_checkColumnConstraints {<BLOCK Name="fct.cctb00002_sec_de_checkColumnConstraints">} #+ Check constraints on the "cctb00002.sec_de" column #+ #+ @param p_sec_de - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00002_sec_de_checkColumnConstraints(p_sec_de) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_de LIKE cctb00002.sec_de LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00002_sec_de_checkColumnConstraints {<BLOCK Name="fct.cctb00002_sec_a_checkColumnConstraints">} #+ Check constraints on the "cctb00002.sec_a" column #+ #+ @param p_sec_a - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00002_sec_a_checkColumnConstraints(p_sec_a) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_a LIKE cctb00002.sec_a LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00002_sec_a_checkColumnConstraints {<BLOCK Name="fct.cctb00002_status_t_checkColumnConstraints">} #+ Check constraints on the "cctb00002.status_t" column #+ #+ @param p_status_t - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00002_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cctb00002.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00002_status_t_checkColumnConstraints {<BLOCK Name="fct.cctb00002_us_crea_checkColumnConstraints">} #+ Check constraints on the "cctb00002.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00002_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cctb00002.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00002_us_crea_checkColumnConstraints {<BLOCK Name="fct.cctb00002_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cctb00002.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00002_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cctb00002.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00002_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cctb00002_us_mod_checkColumnConstraints">} #+ Check constraints on the "cctb00002.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00002_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cctb00002.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00002_us_mod_checkColumnConstraints {<BLOCK Name="fct.cctb00002_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cctb00002.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00002_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cctb00002.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00002_fech_mod_checkColumnConstraints {<BLOCK Name="fct.cctb00001_checkTableConstraints">} #+ Check constraints on the "cctb00001" table #+ #+ @param p_data - a row data LIKE cctb00001.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00001_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE cctb00001.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_cctb00001_cuenta_no_checkColumnConstraints(p_data.cuenta_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00001_cod_cia_checkColumnConstraints(p_data.cod_cia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00001_tipo_doc_checkColumnConstraints(p_data.tipo_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00001_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00001_tipo_cliente_checkColumnConstraints(p_data.tipo_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00001_sec_cliente_checkColumnConstraints(p_data.sec_cliente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00001_cod_emp_checkColumnConstraints(p_data.cod_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00001_cod_emp_sec_checkColumnConstraints(p_data.cod_emp_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00001_fecha_orig_checkColumnConstraints(p_data.fecha_orig) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00001_fecha_ven_checkColumnConstraints(p_data.fecha_ven) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00001_aplica_a_checkColumnConstraints(p_data.aplica_a) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00001_banco_checkColumnConstraints(p_data.banco) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00001_num_cheque_checkColumnConstraints(p_data.num_cheque) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00001_valor_checkColumnConstraints(p_data.valor) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00001_valor_efectivo_checkColumnConstraints(p_data.valor_efectivo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00001_valor_cheque_checkColumnConstraints(p_data.valor_cheque) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00001_costo_checkColumnConstraints(p_data.costo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00001_monto_desc_checkColumnConstraints(p_data.monto_desc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00001_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00001_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00001_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00001_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_cctb00001_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00001_checkTableConstraints {<BLOCK Name="fct.cctb00001_cuenta_no_checkColumnConstraints">} #+ Check constraints on the "cctb00001.cuenta_no" column #+ #+ @param p_cuenta_no - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00001_cuenta_no_checkColumnConstraints(p_cuenta_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_no LIKE cctb00001.cuenta_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00001_cuenta_no_checkColumnConstraints {<BLOCK Name="fct.cctb00001_cod_cia_checkColumnConstraints">} #+ Check constraints on the "cctb00001.cod_cia" column #+ #+ @param p_cod_cia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00001_cod_cia_checkColumnConstraints(p_cod_cia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_cia LIKE cctb00001.cod_cia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00001_cod_cia_checkColumnConstraints {<BLOCK Name="fct.cctb00001_tipo_doc_checkColumnConstraints">} #+ Check constraints on the "cctb00001.tipo_doc" column #+ #+ @param p_tipo_doc - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00001_tipo_doc_checkColumnConstraints(p_tipo_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_doc LIKE cctb00001.tipo_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00001_tipo_doc_checkColumnConstraints {<BLOCK Name="fct.cctb00001_num_doc_checkColumnConstraints">} #+ Check constraints on the "cctb00001.num_doc" column #+ #+ @param p_num_doc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00001_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE cctb00001.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_num_doc IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- num_doc: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00001_num_doc_checkColumnConstraints {<BLOCK Name="fct.cctb00001_tipo_cliente_checkColumnConstraints">} #+ Check constraints on the "cctb00001.tipo_cliente" column #+ #+ @param p_tipo_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00001_tipo_cliente_checkColumnConstraints(p_tipo_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_cliente LIKE cctb00001.tipo_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00001_tipo_cliente_checkColumnConstraints {<BLOCK Name="fct.cctb00001_sec_cliente_checkColumnConstraints">} #+ Check constraints on the "cctb00001.sec_cliente" column #+ #+ @param p_sec_cliente - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00001_sec_cliente_checkColumnConstraints(p_sec_cliente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_cliente LIKE cctb00001.sec_cliente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00001_sec_cliente_checkColumnConstraints {<BLOCK Name="fct.cctb00001_cod_emp_checkColumnConstraints">} #+ Check constraints on the "cctb00001.cod_emp" column #+ #+ @param p_cod_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00001_cod_emp_checkColumnConstraints(p_cod_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_emp LIKE cctb00001.cod_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00001_cod_emp_checkColumnConstraints {<BLOCK Name="fct.cctb00001_cod_emp_sec_checkColumnConstraints">} #+ Check constraints on the "cctb00001.cod_emp_sec" column #+ #+ @param p_cod_emp_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00001_cod_emp_sec_checkColumnConstraints(p_cod_emp_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_emp_sec LIKE cctb00001.cod_emp_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00001_cod_emp_sec_checkColumnConstraints {<BLOCK Name="fct.cctb00001_fecha_orig_checkColumnConstraints">} #+ Check constraints on the "cctb00001.fecha_orig" column #+ #+ @param p_fecha_orig - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00001_fecha_orig_checkColumnConstraints(p_fecha_orig) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_orig LIKE cctb00001.fecha_orig LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00001_fecha_orig_checkColumnConstraints {<BLOCK Name="fct.cctb00001_fecha_ven_checkColumnConstraints">} #+ Check constraints on the "cctb00001.fecha_ven" column #+ #+ @param p_fecha_ven - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00001_fecha_ven_checkColumnConstraints(p_fecha_ven) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_ven LIKE cctb00001.fecha_ven LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00001_fecha_ven_checkColumnConstraints {<BLOCK Name="fct.cctb00001_aplica_a_checkColumnConstraints">} #+ Check constraints on the "cctb00001.aplica_a" column #+ #+ @param p_aplica_a - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00001_aplica_a_checkColumnConstraints(p_aplica_a) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_aplica_a LIKE cctb00001.aplica_a LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00001_aplica_a_checkColumnConstraints {<BLOCK Name="fct.cctb00001_banco_checkColumnConstraints">} #+ Check constraints on the "cctb00001.banco" column #+ #+ @param p_banco - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00001_banco_checkColumnConstraints(p_banco) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_banco LIKE cctb00001.banco LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00001_banco_checkColumnConstraints {<BLOCK Name="fct.cctb00001_num_cheque_checkColumnConstraints">} #+ Check constraints on the "cctb00001.num_cheque" column #+ #+ @param p_num_cheque - CHAR(12) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00001_num_cheque_checkColumnConstraints(p_num_cheque) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_cheque LIKE cctb00001.num_cheque LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00001_num_cheque_checkColumnConstraints {<BLOCK Name="fct.cctb00001_valor_checkColumnConstraints">} #+ Check constraints on the "cctb00001.valor" column #+ #+ @param p_valor - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00001_valor_checkColumnConstraints(p_valor) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor LIKE cctb00001.valor LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_valor IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- valor: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00001_valor_checkColumnConstraints {<BLOCK Name="fct.cctb00001_valor_efectivo_checkColumnConstraints">} #+ Check constraints on the "cctb00001.valor_efectivo" column #+ #+ @param p_valor_efectivo - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00001_valor_efectivo_checkColumnConstraints(p_valor_efectivo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor_efectivo LIKE cctb00001.valor_efectivo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00001_valor_efectivo_checkColumnConstraints {<BLOCK Name="fct.cctb00001_valor_cheque_checkColumnConstraints">} #+ Check constraints on the "cctb00001.valor_cheque" column #+ #+ @param p_valor_cheque - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00001_valor_cheque_checkColumnConstraints(p_valor_cheque) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_valor_cheque LIKE cctb00001.valor_cheque LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00001_valor_cheque_checkColumnConstraints {<BLOCK Name="fct.cctb00001_costo_checkColumnConstraints">} #+ Check constraints on the "cctb00001.costo" column #+ #+ @param p_costo - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00001_costo_checkColumnConstraints(p_costo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_costo LIKE cctb00001.costo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00001_costo_checkColumnConstraints {<BLOCK Name="fct.cctb00001_monto_desc_checkColumnConstraints">} #+ Check constraints on the "cctb00001.monto_desc" column #+ #+ @param p_monto_desc - DECIMAL(12,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00001_monto_desc_checkColumnConstraints(p_monto_desc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_monto_desc LIKE cctb00001.monto_desc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00001_monto_desc_checkColumnConstraints {<BLOCK Name="fct.cctb00001_status_t_checkColumnConstraints">} #+ Check constraints on the "cctb00001.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00001_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE cctb00001.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00001_status_t_checkColumnConstraints {<BLOCK Name="fct.cctb00001_us_crea_checkColumnConstraints">} #+ Check constraints on the "cctb00001.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00001_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE cctb00001.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00001_us_crea_checkColumnConstraints {<BLOCK Name="fct.cctb00001_fech_crea_checkColumnConstraints">} #+ Check constraints on the "cctb00001.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00001_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE cctb00001.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00001_fech_crea_checkColumnConstraints {<BLOCK Name="fct.cctb00001_us_mod_checkColumnConstraints">} #+ Check constraints on the "cctb00001.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00001_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE cctb00001.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00001_us_mod_checkColumnConstraints {<BLOCK Name="fct.cctb00001_fech_mod_checkColumnConstraints">} #+ Check constraints on the "cctb00001.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_cctb00001_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE cctb00001.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.cctb00001_fech_mod_checkColumnConstraints {<BLOCK Name="fct.category_checkTableConstraints">} #+ Check constraints on the "category" table #+ #+ @param p_data - a row data LIKE category.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_category_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE category.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_category_catid_checkColumnConstraints(p_data.catid) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_category_catorder_checkColumnConstraints(p_data.catorder) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_category_catname_checkColumnConstraints(p_data.catname) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_category_catdesc_checkColumnConstraints(p_data.catdesc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_category_catpic_checkColumnConstraints(p_data.catpic) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.category_checkTableConstraints {<BLOCK Name="fct.category_catid_checkColumnConstraints">} #+ Check constraints on the "category.catid" column #+ #+ @param p_catid - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_category_catid_checkColumnConstraints(p_catid) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_catid LIKE category.catid LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_catid IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- catid: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.category_catid_checkColumnConstraints {<BLOCK Name="fct.category_catorder_checkColumnConstraints">} #+ Check constraints on the "category.catorder" column #+ #+ @param p_catorder - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_category_catorder_checkColumnConstraints(p_catorder) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_catorder LIKE category.catorder LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.category_catorder_checkColumnConstraints {<BLOCK Name="fct.category_catname_checkColumnConstraints">} #+ Check constraints on the "category.catname" column #+ #+ @param p_catname - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_category_catname_checkColumnConstraints(p_catname) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_catname LIKE category.catname LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.category_catname_checkColumnConstraints {<BLOCK Name="fct.category_catdesc_checkColumnConstraints">} #+ Check constraints on the "category.catdesc" column #+ #+ @param p_catdesc - CHAR(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_category_catdesc_checkColumnConstraints(p_catdesc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_catdesc LIKE category.catdesc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.category_catdesc_checkColumnConstraints {<BLOCK Name="fct.category_catpic_checkColumnConstraints">} #+ Check constraints on the "category.catpic" column #+ #+ @param p_catpic - CHAR(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_category_catpic_checkColumnConstraints(p_catpic) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_catpic LIKE category.catpic LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.category_catpic_checkColumnConstraints {<BLOCK Name="fct.bono2011d_checkTableConstraints">} #+ Check constraints on the "bono2011d" table #+ #+ @param p_data - a row data LIKE bono2011d.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_bono2011d_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE bono2011d.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_bono2011d_f1_checkColumnConstraints(p_data.f1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_bono2011d_f2_checkColumnConstraints(p_data.f2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_bono2011d_f3_checkColumnConstraints(p_data.f3) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_bono2011d_f4_checkColumnConstraints(p_data.f4) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_bono2011d_f5_checkColumnConstraints(p_data.f5) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_bono2011d_f6_checkColumnConstraints(p_data.f6) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_bono2011d_f7_checkColumnConstraints(p_data.f7) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_bono2011d_f8_checkColumnConstraints(p_data.f8) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_bono2011d_dias_checkColumnConstraints(p_data.dias) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_bono2011d_f10_checkColumnConstraints(p_data.f10) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_bono2011d_bonificacion_checkColumnConstraints(p_data.bonificacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.bono2011d_checkTableConstraints {<BLOCK Name="fct.bono2011d_f1_checkColumnConstraints">} #+ Check constraints on the "bono2011d.f1" column #+ #+ @param p_f1 - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_bono2011d_f1_checkColumnConstraints(p_f1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f1 LIKE bono2011d.f1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.bono2011d_f1_checkColumnConstraints {<BLOCK Name="fct.bono2011d_f2_checkColumnConstraints">} #+ Check constraints on the "bono2011d.f2" column #+ #+ @param p_f2 - VARCHAR2(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_bono2011d_f2_checkColumnConstraints(p_f2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f2 LIKE bono2011d.f2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.bono2011d_f2_checkColumnConstraints {<BLOCK Name="fct.bono2011d_f3_checkColumnConstraints">} #+ Check constraints on the "bono2011d.f3" column #+ #+ @param p_f3 - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_bono2011d_f3_checkColumnConstraints(p_f3) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f3 LIKE bono2011d.f3 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.bono2011d_f3_checkColumnConstraints {<BLOCK Name="fct.bono2011d_f4_checkColumnConstraints">} #+ Check constraints on the "bono2011d.f4" column #+ #+ @param p_f4 - VARCHAR2(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_bono2011d_f4_checkColumnConstraints(p_f4) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f4 LIKE bono2011d.f4 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.bono2011d_f4_checkColumnConstraints {<BLOCK Name="fct.bono2011d_f5_checkColumnConstraints">} #+ Check constraints on the "bono2011d.f5" column #+ #+ @param p_f5 - VARCHAR2(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_bono2011d_f5_checkColumnConstraints(p_f5) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f5 LIKE bono2011d.f5 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.bono2011d_f5_checkColumnConstraints {<BLOCK Name="fct.bono2011d_f6_checkColumnConstraints">} #+ Check constraints on the "bono2011d.f6" column #+ #+ @param p_f6 - VARCHAR2(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_bono2011d_f6_checkColumnConstraints(p_f6) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f6 LIKE bono2011d.f6 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.bono2011d_f6_checkColumnConstraints {<BLOCK Name="fct.bono2011d_f7_checkColumnConstraints">} #+ Check constraints on the "bono2011d.f7" column #+ #+ @param p_f7 - VARCHAR2(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_bono2011d_f7_checkColumnConstraints(p_f7) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f7 LIKE bono2011d.f7 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.bono2011d_f7_checkColumnConstraints {<BLOCK Name="fct.bono2011d_f8_checkColumnConstraints">} #+ Check constraints on the "bono2011d.f8" column #+ #+ @param p_f8 - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_bono2011d_f8_checkColumnConstraints(p_f8) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f8 LIKE bono2011d.f8 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.bono2011d_f8_checkColumnConstraints {<BLOCK Name="fct.bono2011d_dias_checkColumnConstraints">} #+ Check constraints on the "bono2011d.dias" column #+ #+ @param p_dias - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_bono2011d_dias_checkColumnConstraints(p_dias) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_dias LIKE bono2011d.dias LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.bono2011d_dias_checkColumnConstraints {<BLOCK Name="fct.bono2011d_f10_checkColumnConstraints">} #+ Check constraints on the "bono2011d.f10" column #+ #+ @param p_f10 - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_bono2011d_f10_checkColumnConstraints(p_f10) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f10 LIKE bono2011d.f10 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.bono2011d_f10_checkColumnConstraints {<BLOCK Name="fct.bono2011d_bonificacion_checkColumnConstraints">} #+ Check constraints on the "bono2011d.bonificacion" column #+ #+ @param p_bonificacion - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_bono2011d_bonificacion_checkColumnConstraints(p_bonificacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_bonificacion LIKE bono2011d.bonificacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.bono2011d_bonificacion_checkColumnConstraints {<BLOCK Name="fct.bono2011_checkTableConstraints">} #+ Check constraints on the "bono2011" table #+ #+ @param p_data - a row data LIKE bono2011.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_bono2011_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE bono2011.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_bono2011_f1_checkColumnConstraints(p_data.f1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_bono2011_f2_checkColumnConstraints(p_data.f2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_bono2011_f3_checkColumnConstraints(p_data.f3) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_bono2011_f4_checkColumnConstraints(p_data.f4) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_bono2011_f5_checkColumnConstraints(p_data.f5) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_bono2011_f6_checkColumnConstraints(p_data.f6) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_bono2011_f7_checkColumnConstraints(p_data.f7) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_bono2011_f8_checkColumnConstraints(p_data.f8) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_bono2011_dias_checkColumnConstraints(p_data.dias) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_bono2011_f10_checkColumnConstraints(p_data.f10) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_bono2011_sueldo1_checkColumnConstraints(p_data.sueldo1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_bono2011_sueldo_checkColumnConstraints(p_data.sueldo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_bono2011_bonificacion1_checkColumnConstraints(p_data.bonificacion1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_bono2011_bonificacion_checkColumnConstraints(p_data.bonificacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_bono2011_infotep_checkColumnConstraints(p_data.infotep) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_bono2011_bonificacion2_checkColumnConstraints(p_data.bonificacion2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_bono2011_f17_checkColumnConstraints(p_data.f17) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_bono2011_f18_checkColumnConstraints(p_data.f18) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_bono2011_f19_checkColumnConstraints(p_data.f19) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_bono2011_f20_checkColumnConstraints(p_data.f20) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.bono2011_checkTableConstraints {<BLOCK Name="fct.bono2011_f1_checkColumnConstraints">} #+ Check constraints on the "bono2011.f1" column #+ #+ @param p_f1 - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_bono2011_f1_checkColumnConstraints(p_f1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f1 LIKE bono2011.f1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.bono2011_f1_checkColumnConstraints {<BLOCK Name="fct.bono2011_f2_checkColumnConstraints">} #+ Check constraints on the "bono2011.f2" column #+ #+ @param p_f2 - VARCHAR2(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_bono2011_f2_checkColumnConstraints(p_f2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f2 LIKE bono2011.f2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.bono2011_f2_checkColumnConstraints {<BLOCK Name="fct.bono2011_f3_checkColumnConstraints">} #+ Check constraints on the "bono2011.f3" column #+ #+ @param p_f3 - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_bono2011_f3_checkColumnConstraints(p_f3) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f3 LIKE bono2011.f3 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.bono2011_f3_checkColumnConstraints {<BLOCK Name="fct.bono2011_f4_checkColumnConstraints">} #+ Check constraints on the "bono2011.f4" column #+ #+ @param p_f4 - VARCHAR2(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_bono2011_f4_checkColumnConstraints(p_f4) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f4 LIKE bono2011.f4 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.bono2011_f4_checkColumnConstraints {<BLOCK Name="fct.bono2011_f5_checkColumnConstraints">} #+ Check constraints on the "bono2011.f5" column #+ #+ @param p_f5 - VARCHAR2(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_bono2011_f5_checkColumnConstraints(p_f5) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f5 LIKE bono2011.f5 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.bono2011_f5_checkColumnConstraints {<BLOCK Name="fct.bono2011_f6_checkColumnConstraints">} #+ Check constraints on the "bono2011.f6" column #+ #+ @param p_f6 - VARCHAR2(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_bono2011_f6_checkColumnConstraints(p_f6) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f6 LIKE bono2011.f6 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.bono2011_f6_checkColumnConstraints {<BLOCK Name="fct.bono2011_f7_checkColumnConstraints">} #+ Check constraints on the "bono2011.f7" column #+ #+ @param p_f7 - VARCHAR2(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_bono2011_f7_checkColumnConstraints(p_f7) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f7 LIKE bono2011.f7 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.bono2011_f7_checkColumnConstraints {<BLOCK Name="fct.bono2011_f8_checkColumnConstraints">} #+ Check constraints on the "bono2011.f8" column #+ #+ @param p_f8 - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_bono2011_f8_checkColumnConstraints(p_f8) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f8 LIKE bono2011.f8 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.bono2011_f8_checkColumnConstraints {<BLOCK Name="fct.bono2011_dias_checkColumnConstraints">} #+ Check constraints on the "bono2011.dias" column #+ #+ @param p_dias - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_bono2011_dias_checkColumnConstraints(p_dias) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_dias LIKE bono2011.dias LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.bono2011_dias_checkColumnConstraints {<BLOCK Name="fct.bono2011_f10_checkColumnConstraints">} #+ Check constraints on the "bono2011.f10" column #+ #+ @param p_f10 - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_bono2011_f10_checkColumnConstraints(p_f10) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f10 LIKE bono2011.f10 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.bono2011_f10_checkColumnConstraints {<BLOCK Name="fct.bono2011_sueldo1_checkColumnConstraints">} #+ Check constraints on the "bono2011.sueldo1" column #+ #+ @param p_sueldo1 - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_bono2011_sueldo1_checkColumnConstraints(p_sueldo1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sueldo1 LIKE bono2011.sueldo1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.bono2011_sueldo1_checkColumnConstraints {<BLOCK Name="fct.bono2011_sueldo_checkColumnConstraints">} #+ Check constraints on the "bono2011.sueldo" column #+ #+ @param p_sueldo - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_bono2011_sueldo_checkColumnConstraints(p_sueldo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sueldo LIKE bono2011.sueldo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.bono2011_sueldo_checkColumnConstraints {<BLOCK Name="fct.bono2011_bonificacion1_checkColumnConstraints">} #+ Check constraints on the "bono2011.bonificacion1" column #+ #+ @param p_bonificacion1 - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_bono2011_bonificacion1_checkColumnConstraints(p_bonificacion1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_bonificacion1 LIKE bono2011.bonificacion1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.bono2011_bonificacion1_checkColumnConstraints {<BLOCK Name="fct.bono2011_bonificacion_checkColumnConstraints">} #+ Check constraints on the "bono2011.bonificacion" column #+ #+ @param p_bonificacion - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_bono2011_bonificacion_checkColumnConstraints(p_bonificacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_bonificacion LIKE bono2011.bonificacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.bono2011_bonificacion_checkColumnConstraints {<BLOCK Name="fct.bono2011_infotep_checkColumnConstraints">} #+ Check constraints on the "bono2011.infotep" column #+ #+ @param p_infotep - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_bono2011_infotep_checkColumnConstraints(p_infotep) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_infotep LIKE bono2011.infotep LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.bono2011_infotep_checkColumnConstraints {<BLOCK Name="fct.bono2011_bonificacion2_checkColumnConstraints">} #+ Check constraints on the "bono2011.bonificacion2" column #+ #+ @param p_bonificacion2 - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_bono2011_bonificacion2_checkColumnConstraints(p_bonificacion2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_bonificacion2 LIKE bono2011.bonificacion2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.bono2011_bonificacion2_checkColumnConstraints {<BLOCK Name="fct.bono2011_f17_checkColumnConstraints">} #+ Check constraints on the "bono2011.f17" column #+ #+ @param p_f17 - VARCHAR2(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_bono2011_f17_checkColumnConstraints(p_f17) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f17 LIKE bono2011.f17 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.bono2011_f17_checkColumnConstraints {<BLOCK Name="fct.bono2011_f18_checkColumnConstraints">} #+ Check constraints on the "bono2011.f18" column #+ #+ @param p_f18 - VARCHAR2(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_bono2011_f18_checkColumnConstraints(p_f18) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f18 LIKE bono2011.f18 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.bono2011_f18_checkColumnConstraints {<BLOCK Name="fct.bono2011_f19_checkColumnConstraints">} #+ Check constraints on the "bono2011.f19" column #+ #+ @param p_f19 - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_bono2011_f19_checkColumnConstraints(p_f19) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f19 LIKE bono2011.f19 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.bono2011_f19_checkColumnConstraints {<BLOCK Name="fct.bono2011_f20_checkColumnConstraints">} #+ Check constraints on the "bono2011.f20" column #+ #+ @param p_f20 - FLOAT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_bono2011_f20_checkColumnConstraints(p_f20) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_f20 LIKE bono2011.f20 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.bono2011_f20_checkColumnConstraints {<BLOCK Name="fct.bloques_checkTableConstraints">} #+ Check constraints on the "bloques" table #+ #+ @param p_data - a row data LIKE bloques.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_bloques_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE bloques.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_bloques_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_bloques_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_bloques_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_bloques_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.bloques_checkTableConstraints {<BLOCK Name="fct.bloques_cod_n_checkColumnConstraints">} #+ Check constraints on the "bloques.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_bloques_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE bloques.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.bloques_cod_n_checkColumnConstraints {<BLOCK Name="fct.bloques_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "bloques.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_bloques_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE bloques.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.bloques_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.bloques_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "bloques.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_bloques_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE bloques.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.bloques_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.bloques_cod_sec_checkColumnConstraints">} #+ Check constraints on the "bloques.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_bloques_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE bloques.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.bloques_cod_sec_checkColumnConstraints {<BLOCK Name="fct.altbm00001_checkTableConstraints">} #+ Check constraints on the "altbm00001" table #+ #+ @param p_data - a row data LIKE altbm00001.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_altbm00001_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE altbm00001.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_altbm00001_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_altbm00001_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_altbm00001_tipo_checkColumnConstraints(p_data.tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_altbm00001_orden_compra_checkColumnConstraints(p_data.orden_compra) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_altbm00001_cod_sp_checkColumnConstraints(p_data.cod_sp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_altbm00001_cod_sp_sec_checkColumnConstraints(p_data.cod_sp_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_altbm00001_conduce_no_checkColumnConstraints(p_data.conduce_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_altbm00001_fact_no_checkColumnConstraints(p_data.fact_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_altbm00001_bodega_checkColumnConstraints(p_data.bodega) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_altbm00001_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_altbm00001_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_altbm00001_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_altbm00001_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_altbm00001_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.altbm00001_checkTableConstraints {<BLOCK Name="fct.altbm00001_num_doc_checkColumnConstraints">} #+ Check constraints on the "altbm00001.num_doc" column #+ #+ @param p_num_doc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_altbm00001_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE altbm00001.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_num_doc IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- num_doc: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.altbm00001_num_doc_checkColumnConstraints {<BLOCK Name="fct.altbm00001_fecha_checkColumnConstraints">} #+ Check constraints on the "altbm00001.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_altbm00001_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE altbm00001.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_fecha IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- fecha: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.altbm00001_fecha_checkColumnConstraints {<BLOCK Name="fct.altbm00001_tipo_checkColumnConstraints">} #+ Check constraints on the "altbm00001.tipo" column #+ #+ @param p_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_altbm00001_tipo_checkColumnConstraints(p_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo LIKE altbm00001.tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_tipo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- tipo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.altbm00001_tipo_checkColumnConstraints {<BLOCK Name="fct.altbm00001_orden_compra_checkColumnConstraints">} #+ Check constraints on the "altbm00001.orden_compra" column #+ #+ @param p_orden_compra - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_altbm00001_orden_compra_checkColumnConstraints(p_orden_compra) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_orden_compra LIKE altbm00001.orden_compra LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_orden_compra IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- orden_compra: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.altbm00001_orden_compra_checkColumnConstraints {<BLOCK Name="fct.altbm00001_cod_sp_checkColumnConstraints">} #+ Check constraints on the "altbm00001.cod_sp" column #+ #+ @param p_cod_sp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_altbm00001_cod_sp_checkColumnConstraints(p_cod_sp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp LIKE altbm00001.cod_sp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sp IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sp: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.altbm00001_cod_sp_checkColumnConstraints {<BLOCK Name="fct.altbm00001_cod_sp_sec_checkColumnConstraints">} #+ Check constraints on the "altbm00001.cod_sp_sec" column #+ #+ @param p_cod_sp_sec - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_altbm00001_cod_sp_sec_checkColumnConstraints(p_cod_sp_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sp_sec LIKE altbm00001.cod_sp_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sp_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sp_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.altbm00001_cod_sp_sec_checkColumnConstraints {<BLOCK Name="fct.altbm00001_conduce_no_checkColumnConstraints">} #+ Check constraints on the "altbm00001.conduce_no" column #+ #+ @param p_conduce_no - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_altbm00001_conduce_no_checkColumnConstraints(p_conduce_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_conduce_no LIKE altbm00001.conduce_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.altbm00001_conduce_no_checkColumnConstraints {<BLOCK Name="fct.altbm00001_fact_no_checkColumnConstraints">} #+ Check constraints on the "altbm00001.fact_no" column #+ #+ @param p_fact_no - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_altbm00001_fact_no_checkColumnConstraints(p_fact_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fact_no LIKE altbm00001.fact_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.altbm00001_fact_no_checkColumnConstraints {<BLOCK Name="fct.altbm00001_bodega_checkColumnConstraints">} #+ Check constraints on the "altbm00001.bodega" column #+ #+ @param p_bodega - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_altbm00001_bodega_checkColumnConstraints(p_bodega) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_bodega LIKE altbm00001.bodega LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_bodega IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- bodega: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.altbm00001_bodega_checkColumnConstraints {<BLOCK Name="fct.altbm00001_status_t_checkColumnConstraints">} #+ Check constraints on the "altbm00001.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_altbm00001_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE altbm00001.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.altbm00001_status_t_checkColumnConstraints {<BLOCK Name="fct.altbm00001_us_crea_checkColumnConstraints">} #+ Check constraints on the "altbm00001.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_altbm00001_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE altbm00001.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.altbm00001_us_crea_checkColumnConstraints {<BLOCK Name="fct.altbm00001_fech_crea_checkColumnConstraints">} #+ Check constraints on the "altbm00001.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_altbm00001_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE altbm00001.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.altbm00001_fech_crea_checkColumnConstraints {<BLOCK Name="fct.altbm00001_us_mod_checkColumnConstraints">} #+ Check constraints on the "altbm00001.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_altbm00001_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE altbm00001.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.altbm00001_us_mod_checkColumnConstraints {<BLOCK Name="fct.altbm00001_fech_mod_checkColumnConstraints">} #+ Check constraints on the "altbm00001.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_altbm00001_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE altbm00001.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.altbm00001_fech_mod_checkColumnConstraints {<BLOCK Name="fct.altbd00001_checkTableConstraints">} #+ Check constraints on the "altbd00001" table #+ #+ @param p_data - a row data LIKE altbd00001.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_altbd00001_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE altbd00001.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_altbd00001_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_altbd00001_cod_n_checkColumnConstraints(p_data.cod_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_altbd00001_cod_grupo_checkColumnConstraints(p_data.cod_grupo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_altbd00001_cod_tipo_checkColumnConstraints(p_data.cod_tipo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_altbd00001_cod_sec_checkColumnConstraints(p_data.cod_sec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_altbd00001_cantidad_1_checkColumnConstraints(p_data.cantidad_1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_altbd00001_cantdiad_2_checkColumnConstraints(p_data.cantdiad_2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_altbd00001_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.altbd00001_checkTableConstraints {<BLOCK Name="fct.altbd00001_num_doc_checkColumnConstraints">} #+ Check constraints on the "altbd00001.num_doc" column #+ #+ @param p_num_doc - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_altbd00001_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE altbd00001.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_num_doc IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- num_doc: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.altbd00001_num_doc_checkColumnConstraints {<BLOCK Name="fct.altbd00001_cod_n_checkColumnConstraints">} #+ Check constraints on the "altbd00001.cod_n" column #+ #+ @param p_cod_n - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_altbd00001_cod_n_checkColumnConstraints(p_cod_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_n LIKE altbd00001.cod_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_n IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_n: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.altbd00001_cod_n_checkColumnConstraints {<BLOCK Name="fct.altbd00001_cod_grupo_checkColumnConstraints">} #+ Check constraints on the "altbd00001.cod_grupo" column #+ #+ @param p_cod_grupo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_altbd00001_cod_grupo_checkColumnConstraints(p_cod_grupo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_grupo LIKE altbd00001.cod_grupo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_grupo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_grupo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.altbd00001_cod_grupo_checkColumnConstraints {<BLOCK Name="fct.altbd00001_cod_tipo_checkColumnConstraints">} #+ Check constraints on the "altbd00001.cod_tipo" column #+ #+ @param p_cod_tipo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_altbd00001_cod_tipo_checkColumnConstraints(p_cod_tipo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_tipo LIKE altbd00001.cod_tipo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_tipo IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_tipo: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.altbd00001_cod_tipo_checkColumnConstraints {<BLOCK Name="fct.altbd00001_cod_sec_checkColumnConstraints">} #+ Check constraints on the "altbd00001.cod_sec" column #+ #+ @param p_cod_sec - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_altbd00001_cod_sec_checkColumnConstraints(p_cod_sec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sec LIKE altbd00001.cod_sec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_sec IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_sec: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.altbd00001_cod_sec_checkColumnConstraints {<BLOCK Name="fct.altbd00001_cantidad_1_checkColumnConstraints">} #+ Check constraints on the "altbd00001.cantidad_1" column #+ #+ @param p_cantidad_1 - DECIMAL(18,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_altbd00001_cantidad_1_checkColumnConstraints(p_cantidad_1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantidad_1 LIKE altbd00001.cantidad_1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cantidad_1 IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cantidad_1: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.altbd00001_cantidad_1_checkColumnConstraints {<BLOCK Name="fct.altbd00001_cantdiad_2_checkColumnConstraints">} #+ Check constraints on the "altbd00001.cantdiad_2" column #+ #+ @param p_cantdiad_2 - DECIMAL(18,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_altbd00001_cantdiad_2_checkColumnConstraints(p_cantdiad_2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cantdiad_2 LIKE altbd00001.cantdiad_2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cantdiad_2 IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cantdiad_2: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.altbd00001_cantdiad_2_checkColumnConstraints {<BLOCK Name="fct.altbd00001_cod_mov_checkColumnConstraints">} #+ Check constraints on the "altbd00001.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_altbd00001_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE altbd00001.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cod_mov IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cod_mov: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.altbd00001_cod_mov_checkColumnConstraints {<BLOCK Name="fct.adtb00045_checkTableConstraints">} #+ Check constraints on the "adtb00045" table #+ #+ @param p_data - a row data LIKE adtb00045.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00045_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE adtb00045.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_adtb00045_cod_idioma_checkColumnConstraints(p_data.cod_idioma) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00045_idioma_checkColumnConstraints(p_data.idioma) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00045_pais_checkColumnConstraints(p_data.pais) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00045_region_checkColumnConstraints(p_data.region) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00045_continente_checkColumnConstraints(p_data.continente) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00045_checkTableConstraints {<BLOCK Name="fct.adtb00045_cod_idioma_checkColumnConstraints">} #+ Check constraints on the "adtb00045.cod_idioma" column #+ #+ @param p_cod_idioma - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00045_cod_idioma_checkColumnConstraints(p_cod_idioma) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_idioma LIKE adtb00045.cod_idioma LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00045_cod_idioma_checkColumnConstraints {<BLOCK Name="fct.adtb00045_idioma_checkColumnConstraints">} #+ Check constraints on the "adtb00045.idioma" column #+ #+ @param p_idioma - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00045_idioma_checkColumnConstraints(p_idioma) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_idioma LIKE adtb00045.idioma LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00045_idioma_checkColumnConstraints {<BLOCK Name="fct.adtb00045_pais_checkColumnConstraints">} #+ Check constraints on the "adtb00045.pais" column #+ #+ @param p_pais - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00045_pais_checkColumnConstraints(p_pais) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_pais LIKE adtb00045.pais LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00045_pais_checkColumnConstraints {<BLOCK Name="fct.adtb00045_region_checkColumnConstraints">} #+ Check constraints on the "adtb00045.region" column #+ #+ @param p_region - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00045_region_checkColumnConstraints(p_region) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_region LIKE adtb00045.region LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00045_region_checkColumnConstraints {<BLOCK Name="fct.adtb00045_continente_checkColumnConstraints">} #+ Check constraints on the "adtb00045.continente" column #+ #+ @param p_continente - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00045_continente_checkColumnConstraints(p_continente) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_continente LIKE adtb00045.continente LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00045_continente_checkColumnConstraints {<BLOCK Name="fct.adtb00043_checkTableConstraints">} #+ Check constraints on the "adtb00043" table #+ #+ @param p_data - a row data LIKE adtb00043.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00043_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE adtb00043.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_adtb00043_cod_sol_checkColumnConstraints(p_data.cod_sol) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00043_idioma_checkColumnConstraints(p_data.idioma) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00043_habla_checkColumnConstraints(p_data.habla) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00043_lee_checkColumnConstraints(p_data.lee) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00043_escribe_checkColumnConstraints(p_data.escribe) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00043_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00043_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00043_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00043_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00043_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00043_checkTableConstraints {<BLOCK Name="fct.adtb00043_cod_sol_checkColumnConstraints">} #+ Check constraints on the "adtb00043.cod_sol" column #+ #+ @param p_cod_sol - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00043_cod_sol_checkColumnConstraints(p_cod_sol) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sol LIKE adtb00043.cod_sol LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00043_cod_sol_checkColumnConstraints {<BLOCK Name="fct.adtb00043_idioma_checkColumnConstraints">} #+ Check constraints on the "adtb00043.idioma" column #+ #+ @param p_idioma - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00043_idioma_checkColumnConstraints(p_idioma) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_idioma LIKE adtb00043.idioma LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00043_idioma_checkColumnConstraints {<BLOCK Name="fct.adtb00043_habla_checkColumnConstraints">} #+ Check constraints on the "adtb00043.habla" column #+ #+ @param p_habla - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00043_habla_checkColumnConstraints(p_habla) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_habla LIKE adtb00043.habla LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00043_habla_checkColumnConstraints {<BLOCK Name="fct.adtb00043_lee_checkColumnConstraints">} #+ Check constraints on the "adtb00043.lee" column #+ #+ @param p_lee - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00043_lee_checkColumnConstraints(p_lee) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_lee LIKE adtb00043.lee LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00043_lee_checkColumnConstraints {<BLOCK Name="fct.adtb00043_escribe_checkColumnConstraints">} #+ Check constraints on the "adtb00043.escribe" column #+ #+ @param p_escribe - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00043_escribe_checkColumnConstraints(p_escribe) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_escribe LIKE adtb00043.escribe LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00043_escribe_checkColumnConstraints {<BLOCK Name="fct.adtb00043_status_t_checkColumnConstraints">} #+ Check constraints on the "adtb00043.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00043_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE adtb00043.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00043_status_t_checkColumnConstraints {<BLOCK Name="fct.adtb00043_us_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00043.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00043_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE adtb00043.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00043_us_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00043_fech_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00043.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00043_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE adtb00043.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00043_fech_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00043_us_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00043.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00043_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE adtb00043.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00043_us_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00043_fech_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00043.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00043_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE adtb00043.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00043_fech_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00042_checkTableConstraints">} #+ Check constraints on the "adtb00042" table #+ #+ @param p_data - a row data LIKE adtb00042.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00042_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE adtb00042.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_adtb00042_dep_corp_checkColumnConstraints(p_data.dep_corp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00042_nombre_depto_checkColumnConstraints(p_data.nombre_depto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00042_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00042_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00042_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00042_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00042_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00042_checkTableConstraints {<BLOCK Name="fct.adtb00042_dep_corp_checkColumnConstraints">} #+ Check constraints on the "adtb00042.dep_corp" column #+ #+ @param p_dep_corp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00042_dep_corp_checkColumnConstraints(p_dep_corp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_dep_corp LIKE adtb00042.dep_corp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00042_dep_corp_checkColumnConstraints {<BLOCK Name="fct.adtb00042_nombre_depto_checkColumnConstraints">} #+ Check constraints on the "adtb00042.nombre_depto" column #+ #+ @param p_nombre_depto - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00042_nombre_depto_checkColumnConstraints(p_nombre_depto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombre_depto LIKE adtb00042.nombre_depto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00042_nombre_depto_checkColumnConstraints {<BLOCK Name="fct.adtb00042_status_t_checkColumnConstraints">} #+ Check constraints on the "adtb00042.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00042_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE adtb00042.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00042_status_t_checkColumnConstraints {<BLOCK Name="fct.adtb00042_us_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00042.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00042_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE adtb00042.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00042_us_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00042_fech_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00042.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00042_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE adtb00042.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00042_fech_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00042_us_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00042.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00042_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE adtb00042.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00042_us_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00042_fech_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00042.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00042_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE adtb00042.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00042_fech_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00041_checkTableConstraints">} #+ Check constraints on the "adtb00041" table #+ #+ @param p_data - a row data LIKE adtb00041.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00041_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE adtb00041.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_adtb00041_mes_checkColumnConstraints(p_data.mes) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00041_ano_checkColumnConstraints(p_data.ano) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00041_num_sem_checkColumnConstraints(p_data.num_sem) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00041_fecha_del_checkColumnConstraints(p_data.fecha_del) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00041_fecha_al_checkColumnConstraints(p_data.fecha_al) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00041_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00041_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00041_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00041_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00041_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00041_checkTableConstraints {<BLOCK Name="fct.adtb00041_mes_checkColumnConstraints">} #+ Check constraints on the "adtb00041.mes" column #+ #+ @param p_mes - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00041_mes_checkColumnConstraints(p_mes) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mes LIKE adtb00041.mes LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00041_mes_checkColumnConstraints {<BLOCK Name="fct.adtb00041_ano_checkColumnConstraints">} #+ Check constraints on the "adtb00041.ano" column #+ #+ @param p_ano - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00041_ano_checkColumnConstraints(p_ano) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano LIKE adtb00041.ano LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00041_ano_checkColumnConstraints {<BLOCK Name="fct.adtb00041_num_sem_checkColumnConstraints">} #+ Check constraints on the "adtb00041.num_sem" column #+ #+ @param p_num_sem - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00041_num_sem_checkColumnConstraints(p_num_sem) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_sem LIKE adtb00041.num_sem LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00041_num_sem_checkColumnConstraints {<BLOCK Name="fct.adtb00041_fecha_del_checkColumnConstraints">} #+ Check constraints on the "adtb00041.fecha_del" column #+ #+ @param p_fecha_del - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00041_fecha_del_checkColumnConstraints(p_fecha_del) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_del LIKE adtb00041.fecha_del LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00041_fecha_del_checkColumnConstraints {<BLOCK Name="fct.adtb00041_fecha_al_checkColumnConstraints">} #+ Check constraints on the "adtb00041.fecha_al" column #+ #+ @param p_fecha_al - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00041_fecha_al_checkColumnConstraints(p_fecha_al) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_al LIKE adtb00041.fecha_al LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00041_fecha_al_checkColumnConstraints {<BLOCK Name="fct.adtb00041_status_t_checkColumnConstraints">} #+ Check constraints on the "adtb00041.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00041_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE adtb00041.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00041_status_t_checkColumnConstraints {<BLOCK Name="fct.adtb00041_us_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00041.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00041_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE adtb00041.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00041_us_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00041_fech_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00041.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00041_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE adtb00041.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00041_fech_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00041_us_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00041.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00041_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE adtb00041.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00041_us_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00041_fech_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00041.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00041_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE adtb00041.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00041_fech_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00040_checkTableConstraints">} #+ Check constraints on the "adtb00040" table #+ #+ @param p_data - a row data LIKE adtb00040.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00040_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE adtb00040.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_adtb00040_cod_plan_checkColumnConstraints(p_data.cod_plan) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00040_plan_descrip_checkColumnConstraints(p_data.plan_descrip) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00040_porc_vida_checkColumnConstraints(p_data.porc_vida) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00040_porc_mid_checkColumnConstraints(p_data.porc_mid) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00040_porc_comision_checkColumnConstraints(p_data.porc_comision) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00040_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00040_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00040_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00040_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00040_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00040_checkTableConstraints {<BLOCK Name="fct.adtb00040_cod_plan_checkColumnConstraints">} #+ Check constraints on the "adtb00040.cod_plan" column #+ #+ @param p_cod_plan - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00040_cod_plan_checkColumnConstraints(p_cod_plan) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_plan LIKE adtb00040.cod_plan LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00040_cod_plan_checkColumnConstraints {<BLOCK Name="fct.adtb00040_plan_descrip_checkColumnConstraints">} #+ Check constraints on the "adtb00040.plan_descrip" column #+ #+ @param p_plan_descrip - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00040_plan_descrip_checkColumnConstraints(p_plan_descrip) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_plan_descrip LIKE adtb00040.plan_descrip LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00040_plan_descrip_checkColumnConstraints {<BLOCK Name="fct.adtb00040_porc_vida_checkColumnConstraints">} #+ Check constraints on the "adtb00040.porc_vida" column #+ #+ @param p_porc_vida - DECIMAL(8,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00040_porc_vida_checkColumnConstraints(p_porc_vida) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_porc_vida LIKE adtb00040.porc_vida LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00040_porc_vida_checkColumnConstraints {<BLOCK Name="fct.adtb00040_porc_mid_checkColumnConstraints">} #+ Check constraints on the "adtb00040.porc_mid" column #+ #+ @param p_porc_mid - DECIMAL(8,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00040_porc_mid_checkColumnConstraints(p_porc_mid) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_porc_mid LIKE adtb00040.porc_mid LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00040_porc_mid_checkColumnConstraints {<BLOCK Name="fct.adtb00040_porc_comision_checkColumnConstraints">} #+ Check constraints on the "adtb00040.porc_comision" column #+ #+ @param p_porc_comision - DECIMAL(8,4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00040_porc_comision_checkColumnConstraints(p_porc_comision) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_porc_comision LIKE adtb00040.porc_comision LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00040_porc_comision_checkColumnConstraints {<BLOCK Name="fct.adtb00040_status_t_checkColumnConstraints">} #+ Check constraints on the "adtb00040.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00040_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE adtb00040.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00040_status_t_checkColumnConstraints {<BLOCK Name="fct.adtb00040_us_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00040.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00040_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE adtb00040.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00040_us_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00040_fech_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00040.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00040_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE adtb00040.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00040_fech_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00040_us_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00040.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00040_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE adtb00040.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00040_us_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00040_fech_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00040.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00040_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE adtb00040.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00040_fech_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00038_checkTableConstraints">} #+ Check constraints on the "adtb00038" table #+ #+ @param p_data - a row data LIKE adtb00038.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00038_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE adtb00038.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_adtb00038_num_emp_checkColumnConstraints(p_data.num_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00038_cedula_n_checkColumnConstraints(p_data.cedula_n) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00038_checkTableConstraints {<BLOCK Name="fct.adtb00038_num_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00038.num_emp" column #+ #+ @param p_num_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00038_num_emp_checkColumnConstraints(p_num_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_emp LIKE adtb00038.num_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00038_num_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00038_cedula_n_checkColumnConstraints">} #+ Check constraints on the "adtb00038.cedula_n" column #+ #+ @param p_cedula_n - CHAR(13) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00038_cedula_n_checkColumnConstraints(p_cedula_n) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cedula_n LIKE adtb00038.cedula_n LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00038_cedula_n_checkColumnConstraints {<BLOCK Name="fct.adtb00036_checkTableConstraints">} #+ Check constraints on the "adtb00036" table #+ #+ @param p_data - a row data LIKE adtb00036.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00036_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE adtb00036.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_adtb00036_num_emp_checkColumnConstraints(p_data.num_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00036_nom1_emp_checkColumnConstraints(p_data.nom1_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00036_nom2_emp_checkColumnConstraints(p_data.nom2_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00036_apell1_emp_checkColumnConstraints(p_data.apell1_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00036_apell2_emp_checkColumnConstraints(p_data.apell2_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00036_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00036_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00036_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00036_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00036_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00036_checkTableConstraints {<BLOCK Name="fct.adtb00036_num_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00036.num_emp" column #+ #+ @param p_num_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00036_num_emp_checkColumnConstraints(p_num_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_emp LIKE adtb00036.num_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00036_num_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00036_nom1_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00036.nom1_emp" column #+ #+ @param p_nom1_emp - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00036_nom1_emp_checkColumnConstraints(p_nom1_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nom1_emp LIKE adtb00036.nom1_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00036_nom1_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00036_nom2_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00036.nom2_emp" column #+ #+ @param p_nom2_emp - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00036_nom2_emp_checkColumnConstraints(p_nom2_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nom2_emp LIKE adtb00036.nom2_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00036_nom2_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00036_apell1_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00036.apell1_emp" column #+ #+ @param p_apell1_emp - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00036_apell1_emp_checkColumnConstraints(p_apell1_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_apell1_emp LIKE adtb00036.apell1_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00036_apell1_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00036_apell2_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00036.apell2_emp" column #+ #+ @param p_apell2_emp - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00036_apell2_emp_checkColumnConstraints(p_apell2_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_apell2_emp LIKE adtb00036.apell2_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00036_apell2_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00036_status_t_checkColumnConstraints">} #+ Check constraints on the "adtb00036.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00036_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE adtb00036.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00036_status_t_checkColumnConstraints {<BLOCK Name="fct.adtb00036_us_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00036.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00036_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE adtb00036.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00036_us_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00036_fech_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00036.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00036_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE adtb00036.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00036_fech_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00036_us_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00036.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00036_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE adtb00036.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00036_us_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00036_fech_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00036.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00036_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE adtb00036.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00036_fech_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00033_checkTableConstraints">} #+ Check constraints on the "adtb00033" table #+ #+ @param p_data - a row data LIKE adtb00033.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00033_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE adtb00033.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_adtb00033_dpto_checkColumnConstraints(p_data.dpto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00033_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00033_nom_dpto_checkColumnConstraints(p_data.nom_dpto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00033_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00033_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00033_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00033_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00033_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00033_checkTableConstraints {<BLOCK Name="fct.adtb00033_dpto_checkColumnConstraints">} #+ Check constraints on the "adtb00033.dpto" column #+ #+ @param p_dpto - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00033_dpto_checkColumnConstraints(p_dpto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_dpto LIKE adtb00033.dpto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00033_dpto_checkColumnConstraints {<BLOCK Name="fct.adtb00033_departamento_checkColumnConstraints">} #+ Check constraints on the "adtb00033.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00033_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE adtb00033.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00033_departamento_checkColumnConstraints {<BLOCK Name="fct.adtb00033_nom_dpto_checkColumnConstraints">} #+ Check constraints on the "adtb00033.nom_dpto" column #+ #+ @param p_nom_dpto - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00033_nom_dpto_checkColumnConstraints(p_nom_dpto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nom_dpto LIKE adtb00033.nom_dpto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00033_nom_dpto_checkColumnConstraints {<BLOCK Name="fct.adtb00033_status_t_checkColumnConstraints">} #+ Check constraints on the "adtb00033.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00033_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE adtb00033.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00033_status_t_checkColumnConstraints {<BLOCK Name="fct.adtb00033_us_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00033.us_crea" column #+ #+ @param p_us_crea - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00033_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE adtb00033.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00033_us_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00033_fech_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00033.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00033_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE adtb00033.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00033_fech_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00033_us_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00033.us_mod" column #+ #+ @param p_us_mod - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00033_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE adtb00033.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00033_us_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00033_fech_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00033.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00033_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE adtb00033.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00033_fech_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00032_checkTableConstraints">} #+ Check constraints on the "adtb00032" table #+ #+ @param p_data - a row data LIKE adtb00032.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00032_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE adtb00032.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_adtb00032_num_trx_checkColumnConstraints(p_data.num_trx) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00032_num_emp_checkColumnConstraints(p_data.num_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00032_cod_mov_checkColumnConstraints(p_data.cod_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00032_sec_mov_checkColumnConstraints(p_data.sec_mov) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00032_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00032_num_dia_checkColumnConstraints(p_data.num_dia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00032_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00032_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00032_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00032_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00032_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00032_checkTableConstraints {<BLOCK Name="fct.adtb00032_num_trx_checkColumnConstraints">} #+ Check constraints on the "adtb00032.num_trx" column #+ #+ @param p_num_trx - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00032_num_trx_checkColumnConstraints(p_num_trx) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_trx LIKE adtb00032.num_trx LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00032_num_trx_checkColumnConstraints {<BLOCK Name="fct.adtb00032_num_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00032.num_emp" column #+ #+ @param p_num_emp - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00032_num_emp_checkColumnConstraints(p_num_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_emp LIKE adtb00032.num_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00032_num_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00032_cod_mov_checkColumnConstraints">} #+ Check constraints on the "adtb00032.cod_mov" column #+ #+ @param p_cod_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00032_cod_mov_checkColumnConstraints(p_cod_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mov LIKE adtb00032.cod_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00032_cod_mov_checkColumnConstraints {<BLOCK Name="fct.adtb00032_sec_mov_checkColumnConstraints">} #+ Check constraints on the "adtb00032.sec_mov" column #+ #+ @param p_sec_mov - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00032_sec_mov_checkColumnConstraints(p_sec_mov) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_mov LIKE adtb00032.sec_mov LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00032_sec_mov_checkColumnConstraints {<BLOCK Name="fct.adtb00032_fecha_checkColumnConstraints">} #+ Check constraints on the "adtb00032.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00032_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE adtb00032.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00032_fecha_checkColumnConstraints {<BLOCK Name="fct.adtb00032_num_dia_checkColumnConstraints">} #+ Check constraints on the "adtb00032.num_dia" column #+ #+ @param p_num_dia - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00032_num_dia_checkColumnConstraints(p_num_dia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_dia LIKE adtb00032.num_dia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00032_num_dia_checkColumnConstraints {<BLOCK Name="fct.adtb00032_status_t_checkColumnConstraints">} #+ Check constraints on the "adtb00032.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00032_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE adtb00032.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00032_status_t_checkColumnConstraints {<BLOCK Name="fct.adtb00032_us_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00032.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00032_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE adtb00032.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00032_us_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00032_fech_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00032.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00032_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE adtb00032.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00032_fech_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00032_us_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00032.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00032_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE adtb00032.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00032_us_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00032_fech_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00032.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00032_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE adtb00032.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00032_fech_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00030_checkTableConstraints">} #+ Check constraints on the "adtb00030" table #+ #+ @param p_data - a row data LIKE adtb00030.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00030_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE adtb00030.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_adtb00030_num_emp_checkColumnConstraints(p_data.num_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00030_sexo_checkColumnConstraints(p_data.sexo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00030_nis_checkColumnConstraints(p_data.nis) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00030_checkTableConstraints {<BLOCK Name="fct.adtb00030_num_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00030.num_emp" column #+ #+ @param p_num_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00030_num_emp_checkColumnConstraints(p_num_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_emp LIKE adtb00030.num_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00030_num_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00030_sexo_checkColumnConstraints">} #+ Check constraints on the "adtb00030.sexo" column #+ #+ @param p_sexo - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00030_sexo_checkColumnConstraints(p_sexo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sexo LIKE adtb00030.sexo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00030_sexo_checkColumnConstraints {<BLOCK Name="fct.adtb00030_nis_checkColumnConstraints">} #+ Check constraints on the "adtb00030.nis" column #+ #+ @param p_nis - CHAR(25) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00030_nis_checkColumnConstraints(p_nis) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nis LIKE adtb00030.nis LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00030_nis_checkColumnConstraints {<BLOCK Name="fct.adtb00029_checkTableConstraints">} #+ Check constraints on the "adtb00029" table #+ #+ @param p_data - a row data LIKE adtb00029.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00029_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE adtb00029.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_adtb00029_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00029_estado_a_checkColumnConstraints(p_data.estado_a) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00029_estado_m_checkColumnConstraints(p_data.estado_m) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00029_depto_ant_checkColumnConstraints(p_data.depto_ant) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00029_estatus_t_checkColumnConstraints(p_data.estatus_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00029_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00029_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00029_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00029_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00029_checkTableConstraints {<BLOCK Name="fct.adtb00029_departamento_checkColumnConstraints">} #+ Check constraints on the "adtb00029.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00029_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE adtb00029.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00029_departamento_checkColumnConstraints {<BLOCK Name="fct.adtb00029_estado_a_checkColumnConstraints">} #+ Check constraints on the "adtb00029.estado_a" column #+ #+ @param p_estado_a - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00029_estado_a_checkColumnConstraints(p_estado_a) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_estado_a LIKE adtb00029.estado_a LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00029_estado_a_checkColumnConstraints {<BLOCK Name="fct.adtb00029_estado_m_checkColumnConstraints">} #+ Check constraints on the "adtb00029.estado_m" column #+ #+ @param p_estado_m - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00029_estado_m_checkColumnConstraints(p_estado_m) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_estado_m LIKE adtb00029.estado_m LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00029_estado_m_checkColumnConstraints {<BLOCK Name="fct.adtb00029_depto_ant_checkColumnConstraints">} #+ Check constraints on the "adtb00029.depto_ant" column #+ #+ @param p_depto_ant - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00029_depto_ant_checkColumnConstraints(p_depto_ant) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_depto_ant LIKE adtb00029.depto_ant LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00029_depto_ant_checkColumnConstraints {<BLOCK Name="fct.adtb00029_estatus_t_checkColumnConstraints">} #+ Check constraints on the "adtb00029.estatus_t" column #+ #+ @param p_estatus_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00029_estatus_t_checkColumnConstraints(p_estatus_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_estatus_t LIKE adtb00029.estatus_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00029_estatus_t_checkColumnConstraints {<BLOCK Name="fct.adtb00029_us_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00029.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00029_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE adtb00029.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00029_us_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00029_fech_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00029.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00029_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE adtb00029.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00029_fech_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00029_us_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00029.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00029_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE adtb00029.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00029_us_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00029_fech_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00029.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00029_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE adtb00029.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00029_fech_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00028_checkTableConstraints">} #+ Check constraints on the "adtb00028" table #+ #+ @param p_data - a row data LIKE adtb00028.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00028_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE adtb00028.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_adtb00028_num_trx_checkColumnConstraints(p_data.num_trx) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00028_clave_checkColumnConstraints(p_data.clave) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00028_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00028_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00028_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00028_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00028_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00028_checkTableConstraints {<BLOCK Name="fct.adtb00028_num_trx_checkColumnConstraints">} #+ Check constraints on the "adtb00028.num_trx" column #+ #+ @param p_num_trx - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00028_num_trx_checkColumnConstraints(p_num_trx) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_trx LIKE adtb00028.num_trx LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00028_num_trx_checkColumnConstraints {<BLOCK Name="fct.adtb00028_clave_checkColumnConstraints">} #+ Check constraints on the "adtb00028.clave" column #+ #+ @param p_clave - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00028_clave_checkColumnConstraints(p_clave) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_clave LIKE adtb00028.clave LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00028_clave_checkColumnConstraints {<BLOCK Name="fct.adtb00028_status_t_checkColumnConstraints">} #+ Check constraints on the "adtb00028.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00028_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE adtb00028.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00028_status_t_checkColumnConstraints {<BLOCK Name="fct.adtb00028_us_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00028.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00028_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE adtb00028.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00028_us_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00028_fech_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00028.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00028_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE adtb00028.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00028_fech_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00028_us_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00028.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00028_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE adtb00028.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00028_us_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00028_fech_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00028.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00028_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE adtb00028.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00028_fech_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00027_checkTableConstraints">} #+ Check constraints on the "adtb00027" table #+ #+ @param p_data - a row data LIKE adtb00027.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00027_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE adtb00027.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_adtb00027_num_emp_checkColumnConstraints(p_data.num_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00027_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00027_nivel_emp_checkColumnConstraints(p_data.nivel_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00027_cod_puesto_checkColumnConstraints(p_data.cod_puesto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00027_fecha_sal_checkColumnConstraints(p_data.fecha_sal) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00027_fecha_ent_checkColumnConstraints(p_data.fecha_ent) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00027_dias_tomados_checkColumnConstraints(p_data.dias_tomados) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00027_dias_vac_checkColumnConstraints(p_data.dias_vac) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00027_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00027_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00027_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00027_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00027_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00027_checkTableConstraints {<BLOCK Name="fct.adtb00027_num_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00027.num_emp" column #+ #+ @param p_num_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00027_num_emp_checkColumnConstraints(p_num_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_emp LIKE adtb00027.num_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00027_num_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00027_departamento_checkColumnConstraints">} #+ Check constraints on the "adtb00027.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00027_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE adtb00027.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00027_departamento_checkColumnConstraints {<BLOCK Name="fct.adtb00027_nivel_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00027.nivel_emp" column #+ #+ @param p_nivel_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00027_nivel_emp_checkColumnConstraints(p_nivel_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nivel_emp LIKE adtb00027.nivel_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00027_nivel_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00027_cod_puesto_checkColumnConstraints">} #+ Check constraints on the "adtb00027.cod_puesto" column #+ #+ @param p_cod_puesto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00027_cod_puesto_checkColumnConstraints(p_cod_puesto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_puesto LIKE adtb00027.cod_puesto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00027_cod_puesto_checkColumnConstraints {<BLOCK Name="fct.adtb00027_fecha_sal_checkColumnConstraints">} #+ Check constraints on the "adtb00027.fecha_sal" column #+ #+ @param p_fecha_sal - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00027_fecha_sal_checkColumnConstraints(p_fecha_sal) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_sal LIKE adtb00027.fecha_sal LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00027_fecha_sal_checkColumnConstraints {<BLOCK Name="fct.adtb00027_fecha_ent_checkColumnConstraints">} #+ Check constraints on the "adtb00027.fecha_ent" column #+ #+ @param p_fecha_ent - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00027_fecha_ent_checkColumnConstraints(p_fecha_ent) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_ent LIKE adtb00027.fecha_ent LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00027_fecha_ent_checkColumnConstraints {<BLOCK Name="fct.adtb00027_dias_tomados_checkColumnConstraints">} #+ Check constraints on the "adtb00027.dias_tomados" column #+ #+ @param p_dias_tomados - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00027_dias_tomados_checkColumnConstraints(p_dias_tomados) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_dias_tomados LIKE adtb00027.dias_tomados LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00027_dias_tomados_checkColumnConstraints {<BLOCK Name="fct.adtb00027_dias_vac_checkColumnConstraints">} #+ Check constraints on the "adtb00027.dias_vac" column #+ #+ @param p_dias_vac - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00027_dias_vac_checkColumnConstraints(p_dias_vac) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_dias_vac LIKE adtb00027.dias_vac LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00027_dias_vac_checkColumnConstraints {<BLOCK Name="fct.adtb00027_status_t_checkColumnConstraints">} #+ Check constraints on the "adtb00027.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00027_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE adtb00027.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00027_status_t_checkColumnConstraints {<BLOCK Name="fct.adtb00027_us_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00027.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00027_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE adtb00027.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00027_us_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00027_fech_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00027.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00027_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE adtb00027.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00027_fech_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00027_us_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00027.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00027_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE adtb00027.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00027_us_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00027_fech_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00027.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00027_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE adtb00027.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00027_fech_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00026_checkTableConstraints">} #+ Check constraints on the "adtb00026" table #+ #+ @param p_data - a row data LIKE adtb00026.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00026_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE adtb00026.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_adtb00026_amon_num_checkColumnConstraints(p_data.amon_num) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00026_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00026_num_emp_checkColumnConstraints(p_data.num_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00026_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00026_nivel_emp_checkColumnConstraints(p_data.nivel_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00026_cod_puesto_checkColumnConstraints(p_data.cod_puesto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00026_violacion_checkColumnConstraints(p_data.violacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00026_violacion1_checkColumnConstraints(p_data.violacion1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00026_num1_emp_checkColumnConstraints(p_data.num1_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00026_departamento1_checkColumnConstraints(p_data.departamento1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00026_nivel1_emp_checkColumnConstraints(p_data.nivel1_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00026_cod1_puesto_checkColumnConstraints(p_data.cod1_puesto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00026_num2_emp_checkColumnConstraints(p_data.num2_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00026_departamento2_checkColumnConstraints(p_data.departamento2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00026_nivel2_emp_checkColumnConstraints(p_data.nivel2_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00026_cod2_puesto_checkColumnConstraints(p_data.cod2_puesto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00026_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00026_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00026_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00026_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00026_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00026_checkTableConstraints {<BLOCK Name="fct.adtb00026_amon_num_checkColumnConstraints">} #+ Check constraints on the "adtb00026.amon_num" column #+ #+ @param p_amon_num - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00026_amon_num_checkColumnConstraints(p_amon_num) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_amon_num LIKE adtb00026.amon_num LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00026_amon_num_checkColumnConstraints {<BLOCK Name="fct.adtb00026_fecha_checkColumnConstraints">} #+ Check constraints on the "adtb00026.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00026_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE adtb00026.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00026_fecha_checkColumnConstraints {<BLOCK Name="fct.adtb00026_num_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00026.num_emp" column #+ #+ @param p_num_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00026_num_emp_checkColumnConstraints(p_num_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_emp LIKE adtb00026.num_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00026_num_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00026_departamento_checkColumnConstraints">} #+ Check constraints on the "adtb00026.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00026_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE adtb00026.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00026_departamento_checkColumnConstraints {<BLOCK Name="fct.adtb00026_nivel_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00026.nivel_emp" column #+ #+ @param p_nivel_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00026_nivel_emp_checkColumnConstraints(p_nivel_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nivel_emp LIKE adtb00026.nivel_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00026_nivel_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00026_cod_puesto_checkColumnConstraints">} #+ Check constraints on the "adtb00026.cod_puesto" column #+ #+ @param p_cod_puesto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00026_cod_puesto_checkColumnConstraints(p_cod_puesto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_puesto LIKE adtb00026.cod_puesto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00026_cod_puesto_checkColumnConstraints {<BLOCK Name="fct.adtb00026_violacion_checkColumnConstraints">} #+ Check constraints on the "adtb00026.violacion" column #+ #+ @param p_violacion - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00026_violacion_checkColumnConstraints(p_violacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_violacion LIKE adtb00026.violacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00026_violacion_checkColumnConstraints {<BLOCK Name="fct.adtb00026_violacion1_checkColumnConstraints">} #+ Check constraints on the "adtb00026.violacion1" column #+ #+ @param p_violacion1 - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00026_violacion1_checkColumnConstraints(p_violacion1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_violacion1 LIKE adtb00026.violacion1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00026_violacion1_checkColumnConstraints {<BLOCK Name="fct.adtb00026_num1_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00026.num1_emp" column #+ #+ @param p_num1_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00026_num1_emp_checkColumnConstraints(p_num1_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num1_emp LIKE adtb00026.num1_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00026_num1_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00026_departamento1_checkColumnConstraints">} #+ Check constraints on the "adtb00026.departamento1" column #+ #+ @param p_departamento1 - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00026_departamento1_checkColumnConstraints(p_departamento1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento1 LIKE adtb00026.departamento1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00026_departamento1_checkColumnConstraints {<BLOCK Name="fct.adtb00026_nivel1_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00026.nivel1_emp" column #+ #+ @param p_nivel1_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00026_nivel1_emp_checkColumnConstraints(p_nivel1_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nivel1_emp LIKE adtb00026.nivel1_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00026_nivel1_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00026_cod1_puesto_checkColumnConstraints">} #+ Check constraints on the "adtb00026.cod1_puesto" column #+ #+ @param p_cod1_puesto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00026_cod1_puesto_checkColumnConstraints(p_cod1_puesto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod1_puesto LIKE adtb00026.cod1_puesto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00026_cod1_puesto_checkColumnConstraints {<BLOCK Name="fct.adtb00026_num2_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00026.num2_emp" column #+ #+ @param p_num2_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00026_num2_emp_checkColumnConstraints(p_num2_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num2_emp LIKE adtb00026.num2_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00026_num2_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00026_departamento2_checkColumnConstraints">} #+ Check constraints on the "adtb00026.departamento2" column #+ #+ @param p_departamento2 - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00026_departamento2_checkColumnConstraints(p_departamento2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento2 LIKE adtb00026.departamento2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00026_departamento2_checkColumnConstraints {<BLOCK Name="fct.adtb00026_nivel2_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00026.nivel2_emp" column #+ #+ @param p_nivel2_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00026_nivel2_emp_checkColumnConstraints(p_nivel2_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nivel2_emp LIKE adtb00026.nivel2_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00026_nivel2_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00026_cod2_puesto_checkColumnConstraints">} #+ Check constraints on the "adtb00026.cod2_puesto" column #+ #+ @param p_cod2_puesto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00026_cod2_puesto_checkColumnConstraints(p_cod2_puesto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod2_puesto LIKE adtb00026.cod2_puesto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00026_cod2_puesto_checkColumnConstraints {<BLOCK Name="fct.adtb00026_status_t_checkColumnConstraints">} #+ Check constraints on the "adtb00026.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00026_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE adtb00026.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00026_status_t_checkColumnConstraints {<BLOCK Name="fct.adtb00026_us_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00026.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00026_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE adtb00026.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00026_us_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00026_fech_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00026.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00026_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE adtb00026.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00026_fech_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00026_us_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00026.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00026_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE adtb00026.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00026_us_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00026_fech_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00026.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00026_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE adtb00026.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00026_fech_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00025_checkTableConstraints">} #+ Check constraints on the "adtb00025" table #+ #+ @param p_data - a row data LIKE adtb00025.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00025_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE adtb00025.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_adtb00025_cod_par_checkColumnConstraints(p_data.cod_par) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00025_desc_par_checkColumnConstraints(p_data.desc_par) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00025_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00025_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00025_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00025_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00025_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00025_checkTableConstraints {<BLOCK Name="fct.adtb00025_cod_par_checkColumnConstraints">} #+ Check constraints on the "adtb00025.cod_par" column #+ #+ @param p_cod_par - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00025_cod_par_checkColumnConstraints(p_cod_par) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_par LIKE adtb00025.cod_par LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00025_cod_par_checkColumnConstraints {<BLOCK Name="fct.adtb00025_desc_par_checkColumnConstraints">} #+ Check constraints on the "adtb00025.desc_par" column #+ #+ @param p_desc_par - CHAR(11) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00025_desc_par_checkColumnConstraints(p_desc_par) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_desc_par LIKE adtb00025.desc_par LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00025_desc_par_checkColumnConstraints {<BLOCK Name="fct.adtb00025_status_t_checkColumnConstraints">} #+ Check constraints on the "adtb00025.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00025_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE adtb00025.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00025_status_t_checkColumnConstraints {<BLOCK Name="fct.adtb00025_us_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00025.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00025_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE adtb00025.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00025_us_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00025_fech_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00025.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00025_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE adtb00025.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00025_fech_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00025_us_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00025.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00025_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE adtb00025.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00025_us_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00025_fech_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00025.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00025_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE adtb00025.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00025_fech_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00024_checkTableConstraints">} #+ Check constraints on the "adtb00024" table #+ #+ @param p_data - a row data LIKE adtb00024.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00024_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE adtb00024.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_adtb00024_nivel_emp_checkColumnConstraints(p_data.nivel_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00024_desc_nivel_checkColumnConstraints(p_data.desc_nivel) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00024_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00024_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00024_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00024_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00024_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00024_checkTableConstraints {<BLOCK Name="fct.adtb00024_nivel_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00024.nivel_emp" column #+ #+ @param p_nivel_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00024_nivel_emp_checkColumnConstraints(p_nivel_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nivel_emp LIKE adtb00024.nivel_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00024_nivel_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00024_desc_nivel_checkColumnConstraints">} #+ Check constraints on the "adtb00024.desc_nivel" column #+ #+ @param p_desc_nivel - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00024_desc_nivel_checkColumnConstraints(p_desc_nivel) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_desc_nivel LIKE adtb00024.desc_nivel LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00024_desc_nivel_checkColumnConstraints {<BLOCK Name="fct.adtb00024_status_t_checkColumnConstraints">} #+ Check constraints on the "adtb00024.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00024_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE adtb00024.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00024_status_t_checkColumnConstraints {<BLOCK Name="fct.adtb00024_us_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00024.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00024_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE adtb00024.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00024_us_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00024_fech_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00024.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00024_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE adtb00024.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00024_fech_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00024_us_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00024.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00024_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE adtb00024.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00024_us_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00024_fech_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00024.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00024_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE adtb00024.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00024_fech_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00023_checkTableConstraints">} #+ Check constraints on the "adtb00023" table #+ #+ @param p_data - a row data LIKE adtb00023.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00023_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE adtb00023.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_adtb00023_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00023_num_emp_checkColumnConstraints(p_data.num_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00023_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00023_nivel_emp_checkColumnConstraints(p_data.nivel_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00023_cod_puesto_checkColumnConstraints(p_data.cod_puesto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00023_hora_ent_checkColumnConstraints(p_data.hora_ent) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00023_hora_sal_checkColumnConstraints(p_data.hora_sal) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00023_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00023_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00023_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00023_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00023_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00023_checkTableConstraints {<BLOCK Name="fct.adtb00023_fecha_checkColumnConstraints">} #+ Check constraints on the "adtb00023.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00023_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE adtb00023.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00023_fecha_checkColumnConstraints {<BLOCK Name="fct.adtb00023_num_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00023.num_emp" column #+ #+ @param p_num_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00023_num_emp_checkColumnConstraints(p_num_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_emp LIKE adtb00023.num_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00023_num_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00023_departamento_checkColumnConstraints">} #+ Check constraints on the "adtb00023.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00023_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE adtb00023.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00023_departamento_checkColumnConstraints {<BLOCK Name="fct.adtb00023_nivel_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00023.nivel_emp" column #+ #+ @param p_nivel_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00023_nivel_emp_checkColumnConstraints(p_nivel_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nivel_emp LIKE adtb00023.nivel_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00023_nivel_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00023_cod_puesto_checkColumnConstraints">} #+ Check constraints on the "adtb00023.cod_puesto" column #+ #+ @param p_cod_puesto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00023_cod_puesto_checkColumnConstraints(p_cod_puesto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_puesto LIKE adtb00023.cod_puesto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00023_cod_puesto_checkColumnConstraints {<BLOCK Name="fct.adtb00023_hora_ent_checkColumnConstraints">} #+ Check constraints on the "adtb00023.hora_ent" column #+ #+ @param p_hora_ent - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00023_hora_ent_checkColumnConstraints(p_hora_ent) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_hora_ent LIKE adtb00023.hora_ent LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00023_hora_ent_checkColumnConstraints {<BLOCK Name="fct.adtb00023_hora_sal_checkColumnConstraints">} #+ Check constraints on the "adtb00023.hora_sal" column #+ #+ @param p_hora_sal - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00023_hora_sal_checkColumnConstraints(p_hora_sal) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_hora_sal LIKE adtb00023.hora_sal LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00023_hora_sal_checkColumnConstraints {<BLOCK Name="fct.adtb00023_status_t_checkColumnConstraints">} #+ Check constraints on the "adtb00023.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00023_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE adtb00023.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00023_status_t_checkColumnConstraints {<BLOCK Name="fct.adtb00023_us_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00023.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00023_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE adtb00023.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00023_us_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00023_fech_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00023.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00023_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE adtb00023.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00023_fech_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00023_us_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00023.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00023_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE adtb00023.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00023_us_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00023_fech_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00023.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00023_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE adtb00023.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00023_fech_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00022_checkTableConstraints">} #+ Check constraints on the "adtb00022" table #+ #+ @param p_data - a row data LIKE adtb00022.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00022_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE adtb00022.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_adtb00022_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00022_num_emp_checkColumnConstraints(p_data.num_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00022_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00022_nivel_emp_checkColumnConstraints(p_data.nivel_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00022_cod_puesto_checkColumnConstraints(p_data.cod_puesto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00022_cod_prof_checkColumnConstraints(p_data.cod_prof) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00022_evento_checkColumnConstraints(p_data.evento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00022_nom_evento_checkColumnConstraints(p_data.nom_evento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00022_fech_evento_checkColumnConstraints(p_data.fech_evento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00022_costo_evento_checkColumnConstraints(p_data.costo_evento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00022_num1_emp_checkColumnConstraints(p_data.num1_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00022_departamento1_checkColumnConstraints(p_data.departamento1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00022_nivel1_emp_checkColumnConstraints(p_data.nivel1_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00022_cod1_puesto_checkColumnConstraints(p_data.cod1_puesto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00022_num2_emp_checkColumnConstraints(p_data.num2_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00022_departamento2_checkColumnConstraints(p_data.departamento2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00022_nivel2_emp_checkColumnConstraints(p_data.nivel2_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00022_cod2_puesto_checkColumnConstraints(p_data.cod2_puesto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00022_num3_emp_checkColumnConstraints(p_data.num3_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00022_departamento3_checkColumnConstraints(p_data.departamento3) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00022_nivel3_emp_checkColumnConstraints(p_data.nivel3_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00022_cod3_puesto_checkColumnConstraints(p_data.cod3_puesto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00022_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00022_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00022_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00022_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00022_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00022_checkTableConstraints {<BLOCK Name="fct.adtb00022_fecha_checkColumnConstraints">} #+ Check constraints on the "adtb00022.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00022_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE adtb00022.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00022_fecha_checkColumnConstraints {<BLOCK Name="fct.adtb00022_num_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00022.num_emp" column #+ #+ @param p_num_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00022_num_emp_checkColumnConstraints(p_num_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_emp LIKE adtb00022.num_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00022_num_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00022_departamento_checkColumnConstraints">} #+ Check constraints on the "adtb00022.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00022_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE adtb00022.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00022_departamento_checkColumnConstraints {<BLOCK Name="fct.adtb00022_nivel_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00022.nivel_emp" column #+ #+ @param p_nivel_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00022_nivel_emp_checkColumnConstraints(p_nivel_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nivel_emp LIKE adtb00022.nivel_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00022_nivel_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00022_cod_puesto_checkColumnConstraints">} #+ Check constraints on the "adtb00022.cod_puesto" column #+ #+ @param p_cod_puesto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00022_cod_puesto_checkColumnConstraints(p_cod_puesto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_puesto LIKE adtb00022.cod_puesto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00022_cod_puesto_checkColumnConstraints {<BLOCK Name="fct.adtb00022_cod_prof_checkColumnConstraints">} #+ Check constraints on the "adtb00022.cod_prof" column #+ #+ @param p_cod_prof - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00022_cod_prof_checkColumnConstraints(p_cod_prof) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_prof LIKE adtb00022.cod_prof LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00022_cod_prof_checkColumnConstraints {<BLOCK Name="fct.adtb00022_evento_checkColumnConstraints">} #+ Check constraints on the "adtb00022.evento" column #+ #+ @param p_evento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00022_evento_checkColumnConstraints(p_evento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_evento LIKE adtb00022.evento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00022_evento_checkColumnConstraints {<BLOCK Name="fct.adtb00022_nom_evento_checkColumnConstraints">} #+ Check constraints on the "adtb00022.nom_evento" column #+ #+ @param p_nom_evento - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00022_nom_evento_checkColumnConstraints(p_nom_evento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nom_evento LIKE adtb00022.nom_evento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00022_nom_evento_checkColumnConstraints {<BLOCK Name="fct.adtb00022_fech_evento_checkColumnConstraints">} #+ Check constraints on the "adtb00022.fech_evento" column #+ #+ @param p_fech_evento - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00022_fech_evento_checkColumnConstraints(p_fech_evento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_evento LIKE adtb00022.fech_evento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00022_fech_evento_checkColumnConstraints {<BLOCK Name="fct.adtb00022_costo_evento_checkColumnConstraints">} #+ Check constraints on the "adtb00022.costo_evento" column #+ #+ @param p_costo_evento - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00022_costo_evento_checkColumnConstraints(p_costo_evento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_costo_evento LIKE adtb00022.costo_evento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00022_costo_evento_checkColumnConstraints {<BLOCK Name="fct.adtb00022_num1_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00022.num1_emp" column #+ #+ @param p_num1_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00022_num1_emp_checkColumnConstraints(p_num1_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num1_emp LIKE adtb00022.num1_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00022_num1_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00022_departamento1_checkColumnConstraints">} #+ Check constraints on the "adtb00022.departamento1" column #+ #+ @param p_departamento1 - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00022_departamento1_checkColumnConstraints(p_departamento1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento1 LIKE adtb00022.departamento1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00022_departamento1_checkColumnConstraints {<BLOCK Name="fct.adtb00022_nivel1_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00022.nivel1_emp" column #+ #+ @param p_nivel1_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00022_nivel1_emp_checkColumnConstraints(p_nivel1_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nivel1_emp LIKE adtb00022.nivel1_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00022_nivel1_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00022_cod1_puesto_checkColumnConstraints">} #+ Check constraints on the "adtb00022.cod1_puesto" column #+ #+ @param p_cod1_puesto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00022_cod1_puesto_checkColumnConstraints(p_cod1_puesto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod1_puesto LIKE adtb00022.cod1_puesto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00022_cod1_puesto_checkColumnConstraints {<BLOCK Name="fct.adtb00022_num2_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00022.num2_emp" column #+ #+ @param p_num2_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00022_num2_emp_checkColumnConstraints(p_num2_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num2_emp LIKE adtb00022.num2_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00022_num2_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00022_departamento2_checkColumnConstraints">} #+ Check constraints on the "adtb00022.departamento2" column #+ #+ @param p_departamento2 - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00022_departamento2_checkColumnConstraints(p_departamento2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento2 LIKE adtb00022.departamento2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00022_departamento2_checkColumnConstraints {<BLOCK Name="fct.adtb00022_nivel2_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00022.nivel2_emp" column #+ #+ @param p_nivel2_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00022_nivel2_emp_checkColumnConstraints(p_nivel2_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nivel2_emp LIKE adtb00022.nivel2_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00022_nivel2_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00022_cod2_puesto_checkColumnConstraints">} #+ Check constraints on the "adtb00022.cod2_puesto" column #+ #+ @param p_cod2_puesto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00022_cod2_puesto_checkColumnConstraints(p_cod2_puesto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod2_puesto LIKE adtb00022.cod2_puesto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00022_cod2_puesto_checkColumnConstraints {<BLOCK Name="fct.adtb00022_num3_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00022.num3_emp" column #+ #+ @param p_num3_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00022_num3_emp_checkColumnConstraints(p_num3_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num3_emp LIKE adtb00022.num3_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00022_num3_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00022_departamento3_checkColumnConstraints">} #+ Check constraints on the "adtb00022.departamento3" column #+ #+ @param p_departamento3 - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00022_departamento3_checkColumnConstraints(p_departamento3) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento3 LIKE adtb00022.departamento3 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00022_departamento3_checkColumnConstraints {<BLOCK Name="fct.adtb00022_nivel3_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00022.nivel3_emp" column #+ #+ @param p_nivel3_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00022_nivel3_emp_checkColumnConstraints(p_nivel3_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nivel3_emp LIKE adtb00022.nivel3_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00022_nivel3_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00022_cod3_puesto_checkColumnConstraints">} #+ Check constraints on the "adtb00022.cod3_puesto" column #+ #+ @param p_cod3_puesto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00022_cod3_puesto_checkColumnConstraints(p_cod3_puesto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod3_puesto LIKE adtb00022.cod3_puesto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00022_cod3_puesto_checkColumnConstraints {<BLOCK Name="fct.adtb00022_status_t_checkColumnConstraints">} #+ Check constraints on the "adtb00022.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00022_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE adtb00022.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00022_status_t_checkColumnConstraints {<BLOCK Name="fct.adtb00022_us_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00022.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00022_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE adtb00022.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00022_us_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00022_fech_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00022.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00022_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE adtb00022.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00022_fech_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00022_us_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00022.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00022_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE adtb00022.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00022_us_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00022_fech_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00022.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00022_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE adtb00022.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00022_fech_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00021_checkTableConstraints">} #+ Check constraints on the "adtb00021" table #+ #+ @param p_data - a row data LIKE adtb00021.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00021_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE adtb00021.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_adtb00021_num_emp_checkColumnConstraints(p_data.num_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00021_cod_par_checkColumnConstraints(p_data.cod_par) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00021_sec_par_checkColumnConstraints(p_data.sec_par) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00021_nombre_checkColumnConstraints(p_data.nombre) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00021_cedula_checkColumnConstraints(p_data.cedula) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00021_sexo_checkColumnConstraints(p_data.sexo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00021_fecha_nac_checkColumnConstraints(p_data.fecha_nac) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00021_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00021_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00021_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00021_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00021_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00021_checkTableConstraints {<BLOCK Name="fct.adtb00021_num_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00021.num_emp" column #+ #+ @param p_num_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00021_num_emp_checkColumnConstraints(p_num_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_emp LIKE adtb00021.num_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00021_num_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00021_cod_par_checkColumnConstraints">} #+ Check constraints on the "adtb00021.cod_par" column #+ #+ @param p_cod_par - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00021_cod_par_checkColumnConstraints(p_cod_par) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_par LIKE adtb00021.cod_par LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00021_cod_par_checkColumnConstraints {<BLOCK Name="fct.adtb00021_sec_par_checkColumnConstraints">} #+ Check constraints on the "adtb00021.sec_par" column #+ #+ @param p_sec_par - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00021_sec_par_checkColumnConstraints(p_sec_par) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_par LIKE adtb00021.sec_par LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00021_sec_par_checkColumnConstraints {<BLOCK Name="fct.adtb00021_nombre_checkColumnConstraints">} #+ Check constraints on the "adtb00021.nombre" column #+ #+ @param p_nombre - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00021_nombre_checkColumnConstraints(p_nombre) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombre LIKE adtb00021.nombre LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00021_nombre_checkColumnConstraints {<BLOCK Name="fct.adtb00021_cedula_checkColumnConstraints">} #+ Check constraints on the "adtb00021.cedula" column #+ #+ @param p_cedula - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00021_cedula_checkColumnConstraints(p_cedula) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cedula LIKE adtb00021.cedula LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00021_cedula_checkColumnConstraints {<BLOCK Name="fct.adtb00021_sexo_checkColumnConstraints">} #+ Check constraints on the "adtb00021.sexo" column #+ #+ @param p_sexo - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00021_sexo_checkColumnConstraints(p_sexo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sexo LIKE adtb00021.sexo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00021_sexo_checkColumnConstraints {<BLOCK Name="fct.adtb00021_fecha_nac_checkColumnConstraints">} #+ Check constraints on the "adtb00021.fecha_nac" column #+ #+ @param p_fecha_nac - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00021_fecha_nac_checkColumnConstraints(p_fecha_nac) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_nac LIKE adtb00021.fecha_nac LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00021_fecha_nac_checkColumnConstraints {<BLOCK Name="fct.adtb00021_status_t_checkColumnConstraints">} #+ Check constraints on the "adtb00021.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00021_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE adtb00021.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00021_status_t_checkColumnConstraints {<BLOCK Name="fct.adtb00021_us_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00021.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00021_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE adtb00021.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00021_us_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00021_fech_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00021.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00021_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE adtb00021.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00021_fech_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00021_us_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00021.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00021_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE adtb00021.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00021_us_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00021_fech_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00021.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00021_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE adtb00021.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00021_fech_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00020_checkTableConstraints">} #+ Check constraints on the "adtb00020" table #+ #+ @param p_data - a row data LIKE adtb00020.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00020_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE adtb00020.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_adtb00020_num_trx_checkColumnConstraints(p_data.num_trx) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00020_cod_sol_checkColumnConstraints(p_data.cod_sol) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00020_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00020_fech_efec_checkColumnConstraints(p_data.fech_efec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00020_num_emp_checkColumnConstraints(p_data.num_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00020_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00020_nivel_emp_checkColumnConstraints(p_data.nivel_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00020_cod_puesto_checkColumnConstraints(p_data.cod_puesto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00020_sueldo_ac_checkColumnConstraints(p_data.sueldo_ac) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00020_nomina_checkColumnConstraints(p_data.nomina) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00020_estado_civil_checkColumnConstraints(p_data.estado_civil) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00020_tipo_sangre_checkColumnConstraints(p_data.tipo_sangre) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00020_cod_mto_checkColumnConstraints(p_data.cod_mto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00020_sec_mto_checkColumnConstraints(p_data.sec_mto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00020_observacion_checkColumnConstraints(p_data.observacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00020_num1_emp_checkColumnConstraints(p_data.num1_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00020_departamento1_checkColumnConstraints(p_data.departamento1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00020_nivel1_emp_checkColumnConstraints(p_data.nivel1_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00020_cod1_puesto_checkColumnConstraints(p_data.cod1_puesto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00020_num2_emp_checkColumnConstraints(p_data.num2_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00020_departamento2_checkColumnConstraints(p_data.departamento2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00020_nivel2_emp_checkColumnConstraints(p_data.nivel2_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00020_cod2_puesto_checkColumnConstraints(p_data.cod2_puesto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00020_num3_emp_checkColumnConstraints(p_data.num3_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00020_departamento3_checkColumnConstraints(p_data.departamento3) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00020_nivel3_emp_checkColumnConstraints(p_data.nivel3_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00020_cod3_puesto_checkColumnConstraints(p_data.cod3_puesto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00020_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00020_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00020_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00020_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00020_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00020_checkTableConstraints {<BLOCK Name="fct.adtb00020_num_trx_checkColumnConstraints">} #+ Check constraints on the "adtb00020.num_trx" column #+ #+ @param p_num_trx - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00020_num_trx_checkColumnConstraints(p_num_trx) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_trx LIKE adtb00020.num_trx LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00020_num_trx_checkColumnConstraints {<BLOCK Name="fct.adtb00020_cod_sol_checkColumnConstraints">} #+ Check constraints on the "adtb00020.cod_sol" column #+ #+ @param p_cod_sol - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00020_cod_sol_checkColumnConstraints(p_cod_sol) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sol LIKE adtb00020.cod_sol LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00020_cod_sol_checkColumnConstraints {<BLOCK Name="fct.adtb00020_fecha_checkColumnConstraints">} #+ Check constraints on the "adtb00020.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00020_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE adtb00020.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00020_fecha_checkColumnConstraints {<BLOCK Name="fct.adtb00020_fech_efec_checkColumnConstraints">} #+ Check constraints on the "adtb00020.fech_efec" column #+ #+ @param p_fech_efec - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00020_fech_efec_checkColumnConstraints(p_fech_efec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_efec LIKE adtb00020.fech_efec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00020_fech_efec_checkColumnConstraints {<BLOCK Name="fct.adtb00020_num_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00020.num_emp" column #+ #+ @param p_num_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00020_num_emp_checkColumnConstraints(p_num_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_emp LIKE adtb00020.num_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00020_num_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00020_departamento_checkColumnConstraints">} #+ Check constraints on the "adtb00020.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00020_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE adtb00020.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00020_departamento_checkColumnConstraints {<BLOCK Name="fct.adtb00020_nivel_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00020.nivel_emp" column #+ #+ @param p_nivel_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00020_nivel_emp_checkColumnConstraints(p_nivel_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nivel_emp LIKE adtb00020.nivel_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00020_nivel_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00020_cod_puesto_checkColumnConstraints">} #+ Check constraints on the "adtb00020.cod_puesto" column #+ #+ @param p_cod_puesto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00020_cod_puesto_checkColumnConstraints(p_cod_puesto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_puesto LIKE adtb00020.cod_puesto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00020_cod_puesto_checkColumnConstraints {<BLOCK Name="fct.adtb00020_sueldo_ac_checkColumnConstraints">} #+ Check constraints on the "adtb00020.sueldo_ac" column #+ #+ @param p_sueldo_ac - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00020_sueldo_ac_checkColumnConstraints(p_sueldo_ac) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sueldo_ac LIKE adtb00020.sueldo_ac LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00020_sueldo_ac_checkColumnConstraints {<BLOCK Name="fct.adtb00020_nomina_checkColumnConstraints">} #+ Check constraints on the "adtb00020.nomina" column #+ #+ @param p_nomina - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00020_nomina_checkColumnConstraints(p_nomina) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nomina LIKE adtb00020.nomina LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00020_nomina_checkColumnConstraints {<BLOCK Name="fct.adtb00020_estado_civil_checkColumnConstraints">} #+ Check constraints on the "adtb00020.estado_civil" column #+ #+ @param p_estado_civil - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00020_estado_civil_checkColumnConstraints(p_estado_civil) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_estado_civil LIKE adtb00020.estado_civil LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00020_estado_civil_checkColumnConstraints {<BLOCK Name="fct.adtb00020_tipo_sangre_checkColumnConstraints">} #+ Check constraints on the "adtb00020.tipo_sangre" column #+ #+ @param p_tipo_sangre - CHAR(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00020_tipo_sangre_checkColumnConstraints(p_tipo_sangre) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_sangre LIKE adtb00020.tipo_sangre LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00020_tipo_sangre_checkColumnConstraints {<BLOCK Name="fct.adtb00020_cod_mto_checkColumnConstraints">} #+ Check constraints on the "adtb00020.cod_mto" column #+ #+ @param p_cod_mto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00020_cod_mto_checkColumnConstraints(p_cod_mto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mto LIKE adtb00020.cod_mto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00020_cod_mto_checkColumnConstraints {<BLOCK Name="fct.adtb00020_sec_mto_checkColumnConstraints">} #+ Check constraints on the "adtb00020.sec_mto" column #+ #+ @param p_sec_mto - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00020_sec_mto_checkColumnConstraints(p_sec_mto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_mto LIKE adtb00020.sec_mto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00020_sec_mto_checkColumnConstraints {<BLOCK Name="fct.adtb00020_observacion_checkColumnConstraints">} #+ Check constraints on the "adtb00020.observacion" column #+ #+ @param p_observacion - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00020_observacion_checkColumnConstraints(p_observacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_observacion LIKE adtb00020.observacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00020_observacion_checkColumnConstraints {<BLOCK Name="fct.adtb00020_num1_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00020.num1_emp" column #+ #+ @param p_num1_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00020_num1_emp_checkColumnConstraints(p_num1_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num1_emp LIKE adtb00020.num1_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00020_num1_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00020_departamento1_checkColumnConstraints">} #+ Check constraints on the "adtb00020.departamento1" column #+ #+ @param p_departamento1 - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00020_departamento1_checkColumnConstraints(p_departamento1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento1 LIKE adtb00020.departamento1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00020_departamento1_checkColumnConstraints {<BLOCK Name="fct.adtb00020_nivel1_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00020.nivel1_emp" column #+ #+ @param p_nivel1_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00020_nivel1_emp_checkColumnConstraints(p_nivel1_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nivel1_emp LIKE adtb00020.nivel1_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00020_nivel1_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00020_cod1_puesto_checkColumnConstraints">} #+ Check constraints on the "adtb00020.cod1_puesto" column #+ #+ @param p_cod1_puesto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00020_cod1_puesto_checkColumnConstraints(p_cod1_puesto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod1_puesto LIKE adtb00020.cod1_puesto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00020_cod1_puesto_checkColumnConstraints {<BLOCK Name="fct.adtb00020_num2_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00020.num2_emp" column #+ #+ @param p_num2_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00020_num2_emp_checkColumnConstraints(p_num2_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num2_emp LIKE adtb00020.num2_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00020_num2_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00020_departamento2_checkColumnConstraints">} #+ Check constraints on the "adtb00020.departamento2" column #+ #+ @param p_departamento2 - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00020_departamento2_checkColumnConstraints(p_departamento2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento2 LIKE adtb00020.departamento2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00020_departamento2_checkColumnConstraints {<BLOCK Name="fct.adtb00020_nivel2_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00020.nivel2_emp" column #+ #+ @param p_nivel2_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00020_nivel2_emp_checkColumnConstraints(p_nivel2_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nivel2_emp LIKE adtb00020.nivel2_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00020_nivel2_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00020_cod2_puesto_checkColumnConstraints">} #+ Check constraints on the "adtb00020.cod2_puesto" column #+ #+ @param p_cod2_puesto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00020_cod2_puesto_checkColumnConstraints(p_cod2_puesto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod2_puesto LIKE adtb00020.cod2_puesto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00020_cod2_puesto_checkColumnConstraints {<BLOCK Name="fct.adtb00020_num3_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00020.num3_emp" column #+ #+ @param p_num3_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00020_num3_emp_checkColumnConstraints(p_num3_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num3_emp LIKE adtb00020.num3_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00020_num3_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00020_departamento3_checkColumnConstraints">} #+ Check constraints on the "adtb00020.departamento3" column #+ #+ @param p_departamento3 - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00020_departamento3_checkColumnConstraints(p_departamento3) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento3 LIKE adtb00020.departamento3 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00020_departamento3_checkColumnConstraints {<BLOCK Name="fct.adtb00020_nivel3_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00020.nivel3_emp" column #+ #+ @param p_nivel3_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00020_nivel3_emp_checkColumnConstraints(p_nivel3_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nivel3_emp LIKE adtb00020.nivel3_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00020_nivel3_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00020_cod3_puesto_checkColumnConstraints">} #+ Check constraints on the "adtb00020.cod3_puesto" column #+ #+ @param p_cod3_puesto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00020_cod3_puesto_checkColumnConstraints(p_cod3_puesto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod3_puesto LIKE adtb00020.cod3_puesto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00020_cod3_puesto_checkColumnConstraints {<BLOCK Name="fct.adtb00020_status_t_checkColumnConstraints">} #+ Check constraints on the "adtb00020.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00020_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE adtb00020.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00020_status_t_checkColumnConstraints {<BLOCK Name="fct.adtb00020_us_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00020.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00020_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE adtb00020.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00020_us_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00020_fech_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00020.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00020_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE adtb00020.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00020_fech_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00020_us_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00020.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00020_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE adtb00020.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00020_us_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00020_fech_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00020.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00020_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE adtb00020.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00020_fech_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00019_checkTableConstraints">} #+ Check constraints on the "adtb00019" table #+ #+ @param p_data - a row data LIKE adtb00019.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00019_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE adtb00019.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_adtb00019_cod_sol_checkColumnConstraints(p_data.cod_sol) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00019_fech_efec_checkColumnConstraints(p_data.fech_efec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00019_sueldo_checkColumnConstraints(p_data.sueldo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00019_cod_mto_checkColumnConstraints(p_data.cod_mto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00019_sec_mto_checkColumnConstraints(p_data.sec_mto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00019_periodo_checkColumnConstraints(p_data.periodo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00019_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00019_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00019_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00019_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00019_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00019_checkTableConstraints {<BLOCK Name="fct.adtb00019_cod_sol_checkColumnConstraints">} #+ Check constraints on the "adtb00019.cod_sol" column #+ #+ @param p_cod_sol - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00019_cod_sol_checkColumnConstraints(p_cod_sol) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sol LIKE adtb00019.cod_sol LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00019_cod_sol_checkColumnConstraints {<BLOCK Name="fct.adtb00019_fech_efec_checkColumnConstraints">} #+ Check constraints on the "adtb00019.fech_efec" column #+ #+ @param p_fech_efec - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00019_fech_efec_checkColumnConstraints(p_fech_efec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_efec LIKE adtb00019.fech_efec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00019_fech_efec_checkColumnConstraints {<BLOCK Name="fct.adtb00019_sueldo_checkColumnConstraints">} #+ Check constraints on the "adtb00019.sueldo" column #+ #+ @param p_sueldo - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00019_sueldo_checkColumnConstraints(p_sueldo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sueldo LIKE adtb00019.sueldo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00019_sueldo_checkColumnConstraints {<BLOCK Name="fct.adtb00019_cod_mto_checkColumnConstraints">} #+ Check constraints on the "adtb00019.cod_mto" column #+ #+ @param p_cod_mto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00019_cod_mto_checkColumnConstraints(p_cod_mto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mto LIKE adtb00019.cod_mto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00019_cod_mto_checkColumnConstraints {<BLOCK Name="fct.adtb00019_sec_mto_checkColumnConstraints">} #+ Check constraints on the "adtb00019.sec_mto" column #+ #+ @param p_sec_mto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00019_sec_mto_checkColumnConstraints(p_sec_mto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_mto LIKE adtb00019.sec_mto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00019_sec_mto_checkColumnConstraints {<BLOCK Name="fct.adtb00019_periodo_checkColumnConstraints">} #+ Check constraints on the "adtb00019.periodo" column #+ #+ @param p_periodo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00019_periodo_checkColumnConstraints(p_periodo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_periodo LIKE adtb00019.periodo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00019_periodo_checkColumnConstraints {<BLOCK Name="fct.adtb00019_status_t_checkColumnConstraints">} #+ Check constraints on the "adtb00019.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00019_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE adtb00019.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00019_status_t_checkColumnConstraints {<BLOCK Name="fct.adtb00019_us_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00019.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00019_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE adtb00019.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00019_us_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00019_fech_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00019.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00019_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE adtb00019.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00019_fech_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00019_us_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00019.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00019_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE adtb00019.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00019_us_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00019_fech_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00019.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00019_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE adtb00019.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00019_fech_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00018_checkTableConstraints">} #+ Check constraints on the "adtb00018" table #+ #+ @param p_data - a row data LIKE adtb00018.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00018_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE adtb00018.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_adtb00018_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00018_cod_sol_checkColumnConstraints(p_data.cod_sol) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00018_num_emp_checkColumnConstraints(p_data.num_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00018_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00018_nivel_emp_checkColumnConstraints(p_data.nivel_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00018_cod_puesto_checkColumnConstraints(p_data.cod_puesto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00018_num3_emp_checkColumnConstraints(p_data.num3_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00018_departamento3_checkColumnConstraints(p_data.departamento3) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00018_nivel3_emp_checkColumnConstraints(p_data.nivel3_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00018_cod3_puesto_checkColumnConstraints(p_data.cod3_puesto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00018_recomendacion_checkColumnConstraints(p_data.recomendacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00018_otros_com_checkColumnConstraints(p_data.otros_com) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00018_num1_emp_checkColumnConstraints(p_data.num1_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00018_departamento1_checkColumnConstraints(p_data.departamento1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00018_nivel1_emp_checkColumnConstraints(p_data.nivel1_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00018_cod1_puesto_checkColumnConstraints(p_data.cod1_puesto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00018_num2_emp_checkColumnConstraints(p_data.num2_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00018_departamento2_checkColumnConstraints(p_data.departamento2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00018_nivel2_emp_checkColumnConstraints(p_data.nivel2_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00018_cod2_puesto_checkColumnConstraints(p_data.cod2_puesto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00018_cod_requi_checkColumnConstraints(p_data.cod_requi) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00018_ind_requi_checkColumnConstraints(p_data.ind_requi) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00018_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00018_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00018_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00018_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00018_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00018_checkTableConstraints {<BLOCK Name="fct.adtb00018_fecha_checkColumnConstraints">} #+ Check constraints on the "adtb00018.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00018_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE adtb00018.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00018_fecha_checkColumnConstraints {<BLOCK Name="fct.adtb00018_cod_sol_checkColumnConstraints">} #+ Check constraints on the "adtb00018.cod_sol" column #+ #+ @param p_cod_sol - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00018_cod_sol_checkColumnConstraints(p_cod_sol) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sol LIKE adtb00018.cod_sol LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00018_cod_sol_checkColumnConstraints {<BLOCK Name="fct.adtb00018_num_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00018.num_emp" column #+ #+ @param p_num_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00018_num_emp_checkColumnConstraints(p_num_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_emp LIKE adtb00018.num_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00018_num_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00018_departamento_checkColumnConstraints">} #+ Check constraints on the "adtb00018.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00018_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE adtb00018.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00018_departamento_checkColumnConstraints {<BLOCK Name="fct.adtb00018_nivel_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00018.nivel_emp" column #+ #+ @param p_nivel_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00018_nivel_emp_checkColumnConstraints(p_nivel_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nivel_emp LIKE adtb00018.nivel_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00018_nivel_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00018_cod_puesto_checkColumnConstraints">} #+ Check constraints on the "adtb00018.cod_puesto" column #+ #+ @param p_cod_puesto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00018_cod_puesto_checkColumnConstraints(p_cod_puesto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_puesto LIKE adtb00018.cod_puesto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00018_cod_puesto_checkColumnConstraints {<BLOCK Name="fct.adtb00018_num3_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00018.num3_emp" column #+ #+ @param p_num3_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00018_num3_emp_checkColumnConstraints(p_num3_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num3_emp LIKE adtb00018.num3_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00018_num3_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00018_departamento3_checkColumnConstraints">} #+ Check constraints on the "adtb00018.departamento3" column #+ #+ @param p_departamento3 - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00018_departamento3_checkColumnConstraints(p_departamento3) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento3 LIKE adtb00018.departamento3 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00018_departamento3_checkColumnConstraints {<BLOCK Name="fct.adtb00018_nivel3_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00018.nivel3_emp" column #+ #+ @param p_nivel3_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00018_nivel3_emp_checkColumnConstraints(p_nivel3_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nivel3_emp LIKE adtb00018.nivel3_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00018_nivel3_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00018_cod3_puesto_checkColumnConstraints">} #+ Check constraints on the "adtb00018.cod3_puesto" column #+ #+ @param p_cod3_puesto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00018_cod3_puesto_checkColumnConstraints(p_cod3_puesto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod3_puesto LIKE adtb00018.cod3_puesto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00018_cod3_puesto_checkColumnConstraints {<BLOCK Name="fct.adtb00018_recomendacion_checkColumnConstraints">} #+ Check constraints on the "adtb00018.recomendacion" column #+ #+ @param p_recomendacion - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00018_recomendacion_checkColumnConstraints(p_recomendacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_recomendacion LIKE adtb00018.recomendacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00018_recomendacion_checkColumnConstraints {<BLOCK Name="fct.adtb00018_otros_com_checkColumnConstraints">} #+ Check constraints on the "adtb00018.otros_com" column #+ #+ @param p_otros_com - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00018_otros_com_checkColumnConstraints(p_otros_com) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_otros_com LIKE adtb00018.otros_com LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00018_otros_com_checkColumnConstraints {<BLOCK Name="fct.adtb00018_num1_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00018.num1_emp" column #+ #+ @param p_num1_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00018_num1_emp_checkColumnConstraints(p_num1_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num1_emp LIKE adtb00018.num1_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00018_num1_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00018_departamento1_checkColumnConstraints">} #+ Check constraints on the "adtb00018.departamento1" column #+ #+ @param p_departamento1 - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00018_departamento1_checkColumnConstraints(p_departamento1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento1 LIKE adtb00018.departamento1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00018_departamento1_checkColumnConstraints {<BLOCK Name="fct.adtb00018_nivel1_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00018.nivel1_emp" column #+ #+ @param p_nivel1_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00018_nivel1_emp_checkColumnConstraints(p_nivel1_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nivel1_emp LIKE adtb00018.nivel1_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00018_nivel1_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00018_cod1_puesto_checkColumnConstraints">} #+ Check constraints on the "adtb00018.cod1_puesto" column #+ #+ @param p_cod1_puesto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00018_cod1_puesto_checkColumnConstraints(p_cod1_puesto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod1_puesto LIKE adtb00018.cod1_puesto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00018_cod1_puesto_checkColumnConstraints {<BLOCK Name="fct.adtb00018_num2_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00018.num2_emp" column #+ #+ @param p_num2_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00018_num2_emp_checkColumnConstraints(p_num2_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num2_emp LIKE adtb00018.num2_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00018_num2_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00018_departamento2_checkColumnConstraints">} #+ Check constraints on the "adtb00018.departamento2" column #+ #+ @param p_departamento2 - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00018_departamento2_checkColumnConstraints(p_departamento2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento2 LIKE adtb00018.departamento2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00018_departamento2_checkColumnConstraints {<BLOCK Name="fct.adtb00018_nivel2_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00018.nivel2_emp" column #+ #+ @param p_nivel2_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00018_nivel2_emp_checkColumnConstraints(p_nivel2_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nivel2_emp LIKE adtb00018.nivel2_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00018_nivel2_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00018_cod2_puesto_checkColumnConstraints">} #+ Check constraints on the "adtb00018.cod2_puesto" column #+ #+ @param p_cod2_puesto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00018_cod2_puesto_checkColumnConstraints(p_cod2_puesto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod2_puesto LIKE adtb00018.cod2_puesto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00018_cod2_puesto_checkColumnConstraints {<BLOCK Name="fct.adtb00018_cod_requi_checkColumnConstraints">} #+ Check constraints on the "adtb00018.cod_requi" column #+ #+ @param p_cod_requi - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00018_cod_requi_checkColumnConstraints(p_cod_requi) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_requi LIKE adtb00018.cod_requi LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00018_cod_requi_checkColumnConstraints {<BLOCK Name="fct.adtb00018_ind_requi_checkColumnConstraints">} #+ Check constraints on the "adtb00018.ind_requi" column #+ #+ @param p_ind_requi - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00018_ind_requi_checkColumnConstraints(p_ind_requi) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ind_requi LIKE adtb00018.ind_requi LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00018_ind_requi_checkColumnConstraints {<BLOCK Name="fct.adtb00018_status_t_checkColumnConstraints">} #+ Check constraints on the "adtb00018.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00018_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE adtb00018.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00018_status_t_checkColumnConstraints {<BLOCK Name="fct.adtb00018_us_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00018.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00018_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE adtb00018.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00018_us_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00018_fech_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00018.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00018_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE adtb00018.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00018_fech_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00018_us_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00018.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00018_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE adtb00018.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00018_us_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00018_fech_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00018.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00018_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE adtb00018.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00018_fech_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00017_checkTableConstraints">} #+ Check constraints on the "adtb00017" table #+ #+ @param p_data - a row data LIKE adtb00017.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00017_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE adtb00017.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_adtb00017_num_trx_checkColumnConstraints(p_data.num_trx) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00017_cod_sol_checkColumnConstraints(p_data.cod_sol) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00017_num_emp_checkColumnConstraints(p_data.num_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00017_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00017_nivel_emp_checkColumnConstraints(p_data.nivel_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00017_cod_puesto_checkColumnConstraints(p_data.cod_puesto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00017_fech_efec_checkColumnConstraints(p_data.fech_efec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00017_salario_checkColumnConstraints(p_data.salario) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00017_cod_mto_checkColumnConstraints(p_data.cod_mto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00017_sec_mto_checkColumnConstraints(p_data.sec_mto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00017_nivel_sal_checkColumnConstraints(p_data.nivel_sal) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00017_liquidacion_checkColumnConstraints(p_data.liquidacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00017_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00017_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00017_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00017_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00017_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00017_checkTableConstraints {<BLOCK Name="fct.adtb00017_num_trx_checkColumnConstraints">} #+ Check constraints on the "adtb00017.num_trx" column #+ #+ @param p_num_trx - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00017_num_trx_checkColumnConstraints(p_num_trx) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_trx LIKE adtb00017.num_trx LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00017_num_trx_checkColumnConstraints {<BLOCK Name="fct.adtb00017_cod_sol_checkColumnConstraints">} #+ Check constraints on the "adtb00017.cod_sol" column #+ #+ @param p_cod_sol - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00017_cod_sol_checkColumnConstraints(p_cod_sol) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sol LIKE adtb00017.cod_sol LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00017_cod_sol_checkColumnConstraints {<BLOCK Name="fct.adtb00017_num_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00017.num_emp" column #+ #+ @param p_num_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00017_num_emp_checkColumnConstraints(p_num_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_emp LIKE adtb00017.num_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00017_num_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00017_departamento_checkColumnConstraints">} #+ Check constraints on the "adtb00017.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00017_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE adtb00017.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00017_departamento_checkColumnConstraints {<BLOCK Name="fct.adtb00017_nivel_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00017.nivel_emp" column #+ #+ @param p_nivel_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00017_nivel_emp_checkColumnConstraints(p_nivel_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nivel_emp LIKE adtb00017.nivel_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00017_nivel_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00017_cod_puesto_checkColumnConstraints">} #+ Check constraints on the "adtb00017.cod_puesto" column #+ #+ @param p_cod_puesto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00017_cod_puesto_checkColumnConstraints(p_cod_puesto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_puesto LIKE adtb00017.cod_puesto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00017_cod_puesto_checkColumnConstraints {<BLOCK Name="fct.adtb00017_fech_efec_checkColumnConstraints">} #+ Check constraints on the "adtb00017.fech_efec" column #+ #+ @param p_fech_efec - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00017_fech_efec_checkColumnConstraints(p_fech_efec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_efec LIKE adtb00017.fech_efec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00017_fech_efec_checkColumnConstraints {<BLOCK Name="fct.adtb00017_salario_checkColumnConstraints">} #+ Check constraints on the "adtb00017.salario" column #+ #+ @param p_salario - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00017_salario_checkColumnConstraints(p_salario) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_salario LIKE adtb00017.salario LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00017_salario_checkColumnConstraints {<BLOCK Name="fct.adtb00017_cod_mto_checkColumnConstraints">} #+ Check constraints on the "adtb00017.cod_mto" column #+ #+ @param p_cod_mto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00017_cod_mto_checkColumnConstraints(p_cod_mto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mto LIKE adtb00017.cod_mto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00017_cod_mto_checkColumnConstraints {<BLOCK Name="fct.adtb00017_sec_mto_checkColumnConstraints">} #+ Check constraints on the "adtb00017.sec_mto" column #+ #+ @param p_sec_mto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00017_sec_mto_checkColumnConstraints(p_sec_mto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_mto LIKE adtb00017.sec_mto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00017_sec_mto_checkColumnConstraints {<BLOCK Name="fct.adtb00017_nivel_sal_checkColumnConstraints">} #+ Check constraints on the "adtb00017.nivel_sal" column #+ #+ @param p_nivel_sal - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00017_nivel_sal_checkColumnConstraints(p_nivel_sal) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nivel_sal LIKE adtb00017.nivel_sal LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00017_nivel_sal_checkColumnConstraints {<BLOCK Name="fct.adtb00017_liquidacion_checkColumnConstraints">} #+ Check constraints on the "adtb00017.liquidacion" column #+ #+ @param p_liquidacion - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00017_liquidacion_checkColumnConstraints(p_liquidacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_liquidacion LIKE adtb00017.liquidacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00017_liquidacion_checkColumnConstraints {<BLOCK Name="fct.adtb00017_status_t_checkColumnConstraints">} #+ Check constraints on the "adtb00017.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00017_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE adtb00017.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00017_status_t_checkColumnConstraints {<BLOCK Name="fct.adtb00017_us_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00017.us_crea" column #+ #+ @param p_us_crea - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00017_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE adtb00017.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00017_us_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00017_fech_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00017.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00017_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE adtb00017.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00017_fech_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00017_us_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00017.us_mod" column #+ #+ @param p_us_mod - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00017_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE adtb00017.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00017_us_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00017_fech_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00017.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00017_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE adtb00017.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00017_fech_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00016_checkTableConstraints">} #+ Check constraints on the "adtb00016" table #+ #+ @param p_data - a row data LIKE adtb00016.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00016_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE adtb00016.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_adtb00016_cod_sol_checkColumnConstraints(p_data.cod_sol) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00016_nom_empr_checkColumnConstraints(p_data.nom_empr) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00016_calle_checkColumnConstraints(p_data.calle) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00016_casa_num_checkColumnConstraints(p_data.casa_num) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00016_barrio_checkColumnConstraints(p_data.barrio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00016_urbanizacion_checkColumnConstraints(p_data.urbanizacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00016_cod_puesto_checkColumnConstraints(p_data.cod_puesto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00016_sueldo_checkColumnConstraints(p_data.sueldo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00016_ano_ini_checkColumnConstraints(p_data.ano_ini) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00016_ano_fin_checkColumnConstraints(p_data.ano_fin) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00016_desc_retiro_checkColumnConstraints(p_data.desc_retiro) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00016_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00016_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00016_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00016_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00016_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00016_checkTableConstraints {<BLOCK Name="fct.adtb00016_cod_sol_checkColumnConstraints">} #+ Check constraints on the "adtb00016.cod_sol" column #+ #+ @param p_cod_sol - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00016_cod_sol_checkColumnConstraints(p_cod_sol) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sol LIKE adtb00016.cod_sol LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00016_cod_sol_checkColumnConstraints {<BLOCK Name="fct.adtb00016_nom_empr_checkColumnConstraints">} #+ Check constraints on the "adtb00016.nom_empr" column #+ #+ @param p_nom_empr - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00016_nom_empr_checkColumnConstraints(p_nom_empr) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nom_empr LIKE adtb00016.nom_empr LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00016_nom_empr_checkColumnConstraints {<BLOCK Name="fct.adtb00016_calle_checkColumnConstraints">} #+ Check constraints on the "adtb00016.calle" column #+ #+ @param p_calle - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00016_calle_checkColumnConstraints(p_calle) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_calle LIKE adtb00016.calle LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00016_calle_checkColumnConstraints {<BLOCK Name="fct.adtb00016_casa_num_checkColumnConstraints">} #+ Check constraints on the "adtb00016.casa_num" column #+ #+ @param p_casa_num - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00016_casa_num_checkColumnConstraints(p_casa_num) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_casa_num LIKE adtb00016.casa_num LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00016_casa_num_checkColumnConstraints {<BLOCK Name="fct.adtb00016_barrio_checkColumnConstraints">} #+ Check constraints on the "adtb00016.barrio" column #+ #+ @param p_barrio - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00016_barrio_checkColumnConstraints(p_barrio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_barrio LIKE adtb00016.barrio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00016_barrio_checkColumnConstraints {<BLOCK Name="fct.adtb00016_urbanizacion_checkColumnConstraints">} #+ Check constraints on the "adtb00016.urbanizacion" column #+ #+ @param p_urbanizacion - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00016_urbanizacion_checkColumnConstraints(p_urbanizacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_urbanizacion LIKE adtb00016.urbanizacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00016_urbanizacion_checkColumnConstraints {<BLOCK Name="fct.adtb00016_cod_puesto_checkColumnConstraints">} #+ Check constraints on the "adtb00016.cod_puesto" column #+ #+ @param p_cod_puesto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00016_cod_puesto_checkColumnConstraints(p_cod_puesto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_puesto LIKE adtb00016.cod_puesto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00016_cod_puesto_checkColumnConstraints {<BLOCK Name="fct.adtb00016_sueldo_checkColumnConstraints">} #+ Check constraints on the "adtb00016.sueldo" column #+ #+ @param p_sueldo - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00016_sueldo_checkColumnConstraints(p_sueldo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sueldo LIKE adtb00016.sueldo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00016_sueldo_checkColumnConstraints {<BLOCK Name="fct.adtb00016_ano_ini_checkColumnConstraints">} #+ Check constraints on the "adtb00016.ano_ini" column #+ #+ @param p_ano_ini - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00016_ano_ini_checkColumnConstraints(p_ano_ini) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano_ini LIKE adtb00016.ano_ini LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00016_ano_ini_checkColumnConstraints {<BLOCK Name="fct.adtb00016_ano_fin_checkColumnConstraints">} #+ Check constraints on the "adtb00016.ano_fin" column #+ #+ @param p_ano_fin - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00016_ano_fin_checkColumnConstraints(p_ano_fin) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano_fin LIKE adtb00016.ano_fin LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00016_ano_fin_checkColumnConstraints {<BLOCK Name="fct.adtb00016_desc_retiro_checkColumnConstraints">} #+ Check constraints on the "adtb00016.desc_retiro" column #+ #+ @param p_desc_retiro - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00016_desc_retiro_checkColumnConstraints(p_desc_retiro) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_desc_retiro LIKE adtb00016.desc_retiro LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00016_desc_retiro_checkColumnConstraints {<BLOCK Name="fct.adtb00016_status_t_checkColumnConstraints">} #+ Check constraints on the "adtb00016.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00016_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE adtb00016.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00016_status_t_checkColumnConstraints {<BLOCK Name="fct.adtb00016_us_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00016.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00016_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE adtb00016.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00016_us_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00016_fech_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00016.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00016_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE adtb00016.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00016_fech_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00016_us_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00016.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00016_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE adtb00016.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00016_us_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00016_fech_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00016.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00016_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE adtb00016.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00016_fech_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00015_checkTableConstraints">} #+ Check constraints on the "adtb00015" table #+ #+ @param p_data - a row data LIKE adtb00015.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00015_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE adtb00015.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_adtb00015_cod_sol_checkColumnConstraints(p_data.cod_sol) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00015_nom_inst_checkColumnConstraints(p_data.nom_inst) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00015_calle_checkColumnConstraints(p_data.calle) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00015_casa_num_checkColumnConstraints(p_data.casa_num) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00015_barrio_checkColumnConstraints(p_data.barrio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00015_urbanizacion_checkColumnConstraints(p_data.urbanizacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00015_cod_educa_checkColumnConstraints(p_data.cod_educa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00015_anos_checkColumnConstraints(p_data.anos) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00015_ano_term_checkColumnConstraints(p_data.ano_term) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00015_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00015_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00015_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00015_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00015_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00015_checkTableConstraints {<BLOCK Name="fct.adtb00015_cod_sol_checkColumnConstraints">} #+ Check constraints on the "adtb00015.cod_sol" column #+ #+ @param p_cod_sol - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00015_cod_sol_checkColumnConstraints(p_cod_sol) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sol LIKE adtb00015.cod_sol LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00015_cod_sol_checkColumnConstraints {<BLOCK Name="fct.adtb00015_nom_inst_checkColumnConstraints">} #+ Check constraints on the "adtb00015.nom_inst" column #+ #+ @param p_nom_inst - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00015_nom_inst_checkColumnConstraints(p_nom_inst) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nom_inst LIKE adtb00015.nom_inst LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00015_nom_inst_checkColumnConstraints {<BLOCK Name="fct.adtb00015_calle_checkColumnConstraints">} #+ Check constraints on the "adtb00015.calle" column #+ #+ @param p_calle - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00015_calle_checkColumnConstraints(p_calle) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_calle LIKE adtb00015.calle LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00015_calle_checkColumnConstraints {<BLOCK Name="fct.adtb00015_casa_num_checkColumnConstraints">} #+ Check constraints on the "adtb00015.casa_num" column #+ #+ @param p_casa_num - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00015_casa_num_checkColumnConstraints(p_casa_num) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_casa_num LIKE adtb00015.casa_num LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00015_casa_num_checkColumnConstraints {<BLOCK Name="fct.adtb00015_barrio_checkColumnConstraints">} #+ Check constraints on the "adtb00015.barrio" column #+ #+ @param p_barrio - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00015_barrio_checkColumnConstraints(p_barrio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_barrio LIKE adtb00015.barrio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00015_barrio_checkColumnConstraints {<BLOCK Name="fct.adtb00015_urbanizacion_checkColumnConstraints">} #+ Check constraints on the "adtb00015.urbanizacion" column #+ #+ @param p_urbanizacion - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00015_urbanizacion_checkColumnConstraints(p_urbanizacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_urbanizacion LIKE adtb00015.urbanizacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00015_urbanizacion_checkColumnConstraints {<BLOCK Name="fct.adtb00015_cod_educa_checkColumnConstraints">} #+ Check constraints on the "adtb00015.cod_educa" column #+ #+ @param p_cod_educa - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00015_cod_educa_checkColumnConstraints(p_cod_educa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_educa LIKE adtb00015.cod_educa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00015_cod_educa_checkColumnConstraints {<BLOCK Name="fct.adtb00015_anos_checkColumnConstraints">} #+ Check constraints on the "adtb00015.anos" column #+ #+ @param p_anos - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00015_anos_checkColumnConstraints(p_anos) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_anos LIKE adtb00015.anos LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00015_anos_checkColumnConstraints {<BLOCK Name="fct.adtb00015_ano_term_checkColumnConstraints">} #+ Check constraints on the "adtb00015.ano_term" column #+ #+ @param p_ano_term - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00015_ano_term_checkColumnConstraints(p_ano_term) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_ano_term LIKE adtb00015.ano_term LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00015_ano_term_checkColumnConstraints {<BLOCK Name="fct.adtb00015_status_t_checkColumnConstraints">} #+ Check constraints on the "adtb00015.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00015_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE adtb00015.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00015_status_t_checkColumnConstraints {<BLOCK Name="fct.adtb00015_us_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00015.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00015_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE adtb00015.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00015_us_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00015_fech_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00015.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00015_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE adtb00015.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00015_fech_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00015_us_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00015.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00015_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE adtb00015.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00015_us_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00015_fech_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00015.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00015_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE adtb00015.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00015_fech_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00014_checkTableConstraints">} #+ Check constraints on the "adtb00014" table #+ #+ @param p_data - a row data LIKE adtb00014.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00014_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE adtb00014.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_adtb00014_cod_sol_checkColumnConstraints(p_data.cod_sol) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00014_nom_ref_checkColumnConstraints(p_data.nom_ref) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00014_anos_rel_checkColumnConstraints(p_data.anos_rel) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00014_telefono_checkColumnConstraints(p_data.telefono) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00014_calle_checkColumnConstraints(p_data.calle) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00014_casa_num_checkColumnConstraints(p_data.casa_num) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00014_barrio_checkColumnConstraints(p_data.barrio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00014_urbanizacion_checkColumnConstraints(p_data.urbanizacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00014_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00014_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00014_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00014_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00014_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00014_checkTableConstraints {<BLOCK Name="fct.adtb00014_cod_sol_checkColumnConstraints">} #+ Check constraints on the "adtb00014.cod_sol" column #+ #+ @param p_cod_sol - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00014_cod_sol_checkColumnConstraints(p_cod_sol) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sol LIKE adtb00014.cod_sol LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00014_cod_sol_checkColumnConstraints {<BLOCK Name="fct.adtb00014_nom_ref_checkColumnConstraints">} #+ Check constraints on the "adtb00014.nom_ref" column #+ #+ @param p_nom_ref - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00014_nom_ref_checkColumnConstraints(p_nom_ref) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nom_ref LIKE adtb00014.nom_ref LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00014_nom_ref_checkColumnConstraints {<BLOCK Name="fct.adtb00014_anos_rel_checkColumnConstraints">} #+ Check constraints on the "adtb00014.anos_rel" column #+ #+ @param p_anos_rel - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00014_anos_rel_checkColumnConstraints(p_anos_rel) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_anos_rel LIKE adtb00014.anos_rel LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00014_anos_rel_checkColumnConstraints {<BLOCK Name="fct.adtb00014_telefono_checkColumnConstraints">} #+ Check constraints on the "adtb00014.telefono" column #+ #+ @param p_telefono - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00014_telefono_checkColumnConstraints(p_telefono) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_telefono LIKE adtb00014.telefono LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00014_telefono_checkColumnConstraints {<BLOCK Name="fct.adtb00014_calle_checkColumnConstraints">} #+ Check constraints on the "adtb00014.calle" column #+ #+ @param p_calle - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00014_calle_checkColumnConstraints(p_calle) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_calle LIKE adtb00014.calle LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00014_calle_checkColumnConstraints {<BLOCK Name="fct.adtb00014_casa_num_checkColumnConstraints">} #+ Check constraints on the "adtb00014.casa_num" column #+ #+ @param p_casa_num - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00014_casa_num_checkColumnConstraints(p_casa_num) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_casa_num LIKE adtb00014.casa_num LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00014_casa_num_checkColumnConstraints {<BLOCK Name="fct.adtb00014_barrio_checkColumnConstraints">} #+ Check constraints on the "adtb00014.barrio" column #+ #+ @param p_barrio - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00014_barrio_checkColumnConstraints(p_barrio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_barrio LIKE adtb00014.barrio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00014_barrio_checkColumnConstraints {<BLOCK Name="fct.adtb00014_urbanizacion_checkColumnConstraints">} #+ Check constraints on the "adtb00014.urbanizacion" column #+ #+ @param p_urbanizacion - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00014_urbanizacion_checkColumnConstraints(p_urbanizacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_urbanizacion LIKE adtb00014.urbanizacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00014_urbanizacion_checkColumnConstraints {<BLOCK Name="fct.adtb00014_status_t_checkColumnConstraints">} #+ Check constraints on the "adtb00014.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00014_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE adtb00014.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00014_status_t_checkColumnConstraints {<BLOCK Name="fct.adtb00014_us_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00014.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00014_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE adtb00014.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00014_us_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00014_fech_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00014.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00014_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE adtb00014.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00014_fech_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00014_us_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00014.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00014_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE adtb00014.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00014_us_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00014_fech_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00014.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00014_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE adtb00014.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00014_fech_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00013_checkTableConstraints">} #+ Check constraints on the "adtb00013" table #+ #+ @param p_data - a row data LIKE adtb00013.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00013_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE adtb00013.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_adtb00013_cod_sol_checkColumnConstraints(p_data.cod_sol) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00013_cod_par_checkColumnConstraints(p_data.cod_par) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00013_sec_par_checkColumnConstraints(p_data.sec_par) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00013_nombre_checkColumnConstraints(p_data.nombre) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00013_cedula_checkColumnConstraints(p_data.cedula) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00013_sexo_checkColumnConstraints(p_data.sexo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00013_fecha_nac_checkColumnConstraints(p_data.fecha_nac) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00013_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00013_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00013_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00013_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00013_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00013_checkTableConstraints {<BLOCK Name="fct.adtb00013_cod_sol_checkColumnConstraints">} #+ Check constraints on the "adtb00013.cod_sol" column #+ #+ @param p_cod_sol - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00013_cod_sol_checkColumnConstraints(p_cod_sol) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sol LIKE adtb00013.cod_sol LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00013_cod_sol_checkColumnConstraints {<BLOCK Name="fct.adtb00013_cod_par_checkColumnConstraints">} #+ Check constraints on the "adtb00013.cod_par" column #+ #+ @param p_cod_par - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00013_cod_par_checkColumnConstraints(p_cod_par) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_par LIKE adtb00013.cod_par LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00013_cod_par_checkColumnConstraints {<BLOCK Name="fct.adtb00013_sec_par_checkColumnConstraints">} #+ Check constraints on the "adtb00013.sec_par" column #+ #+ @param p_sec_par - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00013_sec_par_checkColumnConstraints(p_sec_par) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_par LIKE adtb00013.sec_par LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00013_sec_par_checkColumnConstraints {<BLOCK Name="fct.adtb00013_nombre_checkColumnConstraints">} #+ Check constraints on the "adtb00013.nombre" column #+ #+ @param p_nombre - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00013_nombre_checkColumnConstraints(p_nombre) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nombre LIKE adtb00013.nombre LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00013_nombre_checkColumnConstraints {<BLOCK Name="fct.adtb00013_cedula_checkColumnConstraints">} #+ Check constraints on the "adtb00013.cedula" column #+ #+ @param p_cedula - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00013_cedula_checkColumnConstraints(p_cedula) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cedula LIKE adtb00013.cedula LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00013_cedula_checkColumnConstraints {<BLOCK Name="fct.adtb00013_sexo_checkColumnConstraints">} #+ Check constraints on the "adtb00013.sexo" column #+ #+ @param p_sexo - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00013_sexo_checkColumnConstraints(p_sexo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sexo LIKE adtb00013.sexo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00013_sexo_checkColumnConstraints {<BLOCK Name="fct.adtb00013_fecha_nac_checkColumnConstraints">} #+ Check constraints on the "adtb00013.fecha_nac" column #+ #+ @param p_fecha_nac - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00013_fecha_nac_checkColumnConstraints(p_fecha_nac) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_nac LIKE adtb00013.fecha_nac LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00013_fecha_nac_checkColumnConstraints {<BLOCK Name="fct.adtb00013_status_t_checkColumnConstraints">} #+ Check constraints on the "adtb00013.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00013_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE adtb00013.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00013_status_t_checkColumnConstraints {<BLOCK Name="fct.adtb00013_us_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00013.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00013_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE adtb00013.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00013_us_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00013_fech_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00013.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00013_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE adtb00013.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00013_fech_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00013_us_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00013.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00013_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE adtb00013.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00013_us_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00013_fech_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00013.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00013_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE adtb00013.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00013_fech_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00012_checkTableConstraints">} #+ Check constraints on the "adtb00012" table #+ #+ @param p_data - a row data LIKE adtb00012.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00012_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE adtb00012.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_adtb00012_cod_sol_checkColumnConstraints(p_data.cod_sol) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00012_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00012_nom1_sol_checkColumnConstraints(p_data.nom1_sol) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00012_nom2_sol_checkColumnConstraints(p_data.nom2_sol) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00012_apell1_sol_checkColumnConstraints(p_data.apell1_sol) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00012_apell2_sol_checkColumnConstraints(p_data.apell2_sol) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00012_calle_checkColumnConstraints(p_data.calle) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00012_casa_num_checkColumnConstraints(p_data.casa_num) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00012_barrio_checkColumnConstraints(p_data.barrio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00012_urbanizacion_checkColumnConstraints(p_data.urbanizacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00012_telefono_checkColumnConstraints(p_data.telefono) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00012_cod_provincia_checkColumnConstraints(p_data.cod_provincia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00012_fech_nac_checkColumnConstraints(p_data.fech_nac) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00012_cod_nac_checkColumnConstraints(p_data.cod_nac) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00012_estado_civil_checkColumnConstraints(p_data.estado_civil) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00012_estatura_checkColumnConstraints(p_data.estatura) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00012_peso_checkColumnConstraints(p_data.peso) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00012_cedula_checkColumnConstraints(p_data.cedula) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00012_serie_checkColumnConstraints(p_data.serie) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00012_licencia_checkColumnConstraints(p_data.licencia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00012_tipo_sangre_checkColumnConstraints(p_data.tipo_sangre) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00012_idioma_checkColumnConstraints(p_data.idioma) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00012_h_idioma_checkColumnConstraints(p_data.h_idioma) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00012_l_idioma_checkColumnConstraints(p_data.l_idioma) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00012_e_idioma_checkColumnConstraints(p_data.e_idioma) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00012_otros_idioma_checkColumnConstraints(p_data.otros_idioma) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00012_cod_puesto_checkColumnConstraints(p_data.cod_puesto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00012_cod_prof_checkColumnConstraints(p_data.cod_prof) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00012_sexo_checkColumnConstraints(p_data.sexo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00012_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00012_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00012_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00012_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00012_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00012_pk_adtb00012_checkUniqueConstraint(p_forUpdate, p_data.cedula) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00012_checkTableConstraints {<BLOCK Name="fct.adtb00012_pk_adtb00012_checkUniqueConstraint">} #+ Check the primary key uniqueness constraint on the "adtb00012" #+ #+ @param p_key - Primary Key #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00012_pk_adtb00012_checkUniqueConstraint(p_forUpdate, p_key) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_forUpdate BOOLEAN DEFINE p_key RECORD adtb00012_cedula LIKE adtb00012.cedula END RECORD DEFINE l_key RECORD adtb00012_cedula LIKE adtb00012.cedula 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 adtb00012.cedula = ? " let l_sqlQuery = "SELECT COUNT(*), cedula FROM adtb00012 ", l_where, " GROUP BY cedula" PREPARE cur_adtb00012_pk_adtb00012_checkUniqueConstraint FROM l_sqlQuery EXECUTE cur_adtb00012_pk_adtb00012_checkUniqueConstraint INTO l_count, l_key.* USING p_key.* FREE cur_adtb00012_pk_adtb00012_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- cedula: " || ERROR_BAM_00002) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00012_pk_adtb00012_checkUniqueConstraint {<BLOCK Name="fct.adtb00012_cod_sol_checkColumnConstraints">} #+ Check constraints on the "adtb00012.cod_sol" column #+ #+ @param p_cod_sol - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00012_cod_sol_checkColumnConstraints(p_cod_sol) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_sol LIKE adtb00012.cod_sol LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00012_cod_sol_checkColumnConstraints {<BLOCK Name="fct.adtb00012_fecha_checkColumnConstraints">} #+ Check constraints on the "adtb00012.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00012_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE adtb00012.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00012_fecha_checkColumnConstraints {<BLOCK Name="fct.adtb00012_nom1_sol_checkColumnConstraints">} #+ Check constraints on the "adtb00012.nom1_sol" column #+ #+ @param p_nom1_sol - CHAR(15) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00012_nom1_sol_checkColumnConstraints(p_nom1_sol) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nom1_sol LIKE adtb00012.nom1_sol LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00012_nom1_sol_checkColumnConstraints {<BLOCK Name="fct.adtb00012_nom2_sol_checkColumnConstraints">} #+ Check constraints on the "adtb00012.nom2_sol" column #+ #+ @param p_nom2_sol - CHAR(15) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00012_nom2_sol_checkColumnConstraints(p_nom2_sol) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nom2_sol LIKE adtb00012.nom2_sol LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00012_nom2_sol_checkColumnConstraints {<BLOCK Name="fct.adtb00012_apell1_sol_checkColumnConstraints">} #+ Check constraints on the "adtb00012.apell1_sol" column #+ #+ @param p_apell1_sol - CHAR(15) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00012_apell1_sol_checkColumnConstraints(p_apell1_sol) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_apell1_sol LIKE adtb00012.apell1_sol LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00012_apell1_sol_checkColumnConstraints {<BLOCK Name="fct.adtb00012_apell2_sol_checkColumnConstraints">} #+ Check constraints on the "adtb00012.apell2_sol" column #+ #+ @param p_apell2_sol - CHAR(15) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00012_apell2_sol_checkColumnConstraints(p_apell2_sol) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_apell2_sol LIKE adtb00012.apell2_sol LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00012_apell2_sol_checkColumnConstraints {<BLOCK Name="fct.adtb00012_calle_checkColumnConstraints">} #+ Check constraints on the "adtb00012.calle" column #+ #+ @param p_calle - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00012_calle_checkColumnConstraints(p_calle) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_calle LIKE adtb00012.calle LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00012_calle_checkColumnConstraints {<BLOCK Name="fct.adtb00012_casa_num_checkColumnConstraints">} #+ Check constraints on the "adtb00012.casa_num" column #+ #+ @param p_casa_num - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00012_casa_num_checkColumnConstraints(p_casa_num) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_casa_num LIKE adtb00012.casa_num LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00012_casa_num_checkColumnConstraints {<BLOCK Name="fct.adtb00012_barrio_checkColumnConstraints">} #+ Check constraints on the "adtb00012.barrio" column #+ #+ @param p_barrio - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00012_barrio_checkColumnConstraints(p_barrio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_barrio LIKE adtb00012.barrio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00012_barrio_checkColumnConstraints {<BLOCK Name="fct.adtb00012_urbanizacion_checkColumnConstraints">} #+ Check constraints on the "adtb00012.urbanizacion" column #+ #+ @param p_urbanizacion - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00012_urbanizacion_checkColumnConstraints(p_urbanizacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_urbanizacion LIKE adtb00012.urbanizacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00012_urbanizacion_checkColumnConstraints {<BLOCK Name="fct.adtb00012_telefono_checkColumnConstraints">} #+ Check constraints on the "adtb00012.telefono" column #+ #+ @param p_telefono - CHAR(15) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00012_telefono_checkColumnConstraints(p_telefono) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_telefono LIKE adtb00012.telefono LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00012_telefono_checkColumnConstraints {<BLOCK Name="fct.adtb00012_cod_provincia_checkColumnConstraints">} #+ Check constraints on the "adtb00012.cod_provincia" column #+ #+ @param p_cod_provincia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00012_cod_provincia_checkColumnConstraints(p_cod_provincia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_provincia LIKE adtb00012.cod_provincia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00012_cod_provincia_checkColumnConstraints {<BLOCK Name="fct.adtb00012_fech_nac_checkColumnConstraints">} #+ Check constraints on the "adtb00012.fech_nac" column #+ #+ @param p_fech_nac - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00012_fech_nac_checkColumnConstraints(p_fech_nac) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_nac LIKE adtb00012.fech_nac LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00012_fech_nac_checkColumnConstraints {<BLOCK Name="fct.adtb00012_cod_nac_checkColumnConstraints">} #+ Check constraints on the "adtb00012.cod_nac" column #+ #+ @param p_cod_nac - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00012_cod_nac_checkColumnConstraints(p_cod_nac) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_nac LIKE adtb00012.cod_nac LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00012_cod_nac_checkColumnConstraints {<BLOCK Name="fct.adtb00012_estado_civil_checkColumnConstraints">} #+ Check constraints on the "adtb00012.estado_civil" column #+ #+ @param p_estado_civil - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00012_estado_civil_checkColumnConstraints(p_estado_civil) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_estado_civil LIKE adtb00012.estado_civil LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00012_estado_civil_checkColumnConstraints {<BLOCK Name="fct.adtb00012_estatura_checkColumnConstraints">} #+ Check constraints on the "adtb00012.estatura" column #+ #+ @param p_estatura - CHAR(4) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00012_estatura_checkColumnConstraints(p_estatura) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_estatura LIKE adtb00012.estatura LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00012_estatura_checkColumnConstraints {<BLOCK Name="fct.adtb00012_peso_checkColumnConstraints">} #+ Check constraints on the "adtb00012.peso" column #+ #+ @param p_peso - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00012_peso_checkColumnConstraints(p_peso) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_peso LIKE adtb00012.peso LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00012_peso_checkColumnConstraints {<BLOCK Name="fct.adtb00012_cedula_checkColumnConstraints">} #+ Check constraints on the "adtb00012.cedula" column #+ #+ @param p_cedula - CHAR(11) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00012_cedula_checkColumnConstraints(p_cedula) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cedula LIKE adtb00012.cedula LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_cedula IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- cedula: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00012_cedula_checkColumnConstraints {<BLOCK Name="fct.adtb00012_serie_checkColumnConstraints">} #+ Check constraints on the "adtb00012.serie" column #+ #+ @param p_serie - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00012_serie_checkColumnConstraints(p_serie) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_serie LIKE adtb00012.serie LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00012_serie_checkColumnConstraints {<BLOCK Name="fct.adtb00012_licencia_checkColumnConstraints">} #+ Check constraints on the "adtb00012.licencia" column #+ #+ @param p_licencia - CHAR(11) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00012_licencia_checkColumnConstraints(p_licencia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_licencia LIKE adtb00012.licencia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00012_licencia_checkColumnConstraints {<BLOCK Name="fct.adtb00012_tipo_sangre_checkColumnConstraints">} #+ Check constraints on the "adtb00012.tipo_sangre" column #+ #+ @param p_tipo_sangre - CHAR(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00012_tipo_sangre_checkColumnConstraints(p_tipo_sangre) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_sangre LIKE adtb00012.tipo_sangre LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00012_tipo_sangre_checkColumnConstraints {<BLOCK Name="fct.adtb00012_idioma_checkColumnConstraints">} #+ Check constraints on the "adtb00012.idioma" column #+ #+ @param p_idioma - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00012_idioma_checkColumnConstraints(p_idioma) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_idioma LIKE adtb00012.idioma LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00012_idioma_checkColumnConstraints {<BLOCK Name="fct.adtb00012_h_idioma_checkColumnConstraints">} #+ Check constraints on the "adtb00012.h_idioma" column #+ #+ @param p_h_idioma - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00012_h_idioma_checkColumnConstraints(p_h_idioma) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_h_idioma LIKE adtb00012.h_idioma LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00012_h_idioma_checkColumnConstraints {<BLOCK Name="fct.adtb00012_l_idioma_checkColumnConstraints">} #+ Check constraints on the "adtb00012.l_idioma" column #+ #+ @param p_l_idioma - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00012_l_idioma_checkColumnConstraints(p_l_idioma) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_l_idioma LIKE adtb00012.l_idioma LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00012_l_idioma_checkColumnConstraints {<BLOCK Name="fct.adtb00012_e_idioma_checkColumnConstraints">} #+ Check constraints on the "adtb00012.e_idioma" column #+ #+ @param p_e_idioma - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00012_e_idioma_checkColumnConstraints(p_e_idioma) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_e_idioma LIKE adtb00012.e_idioma LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00012_e_idioma_checkColumnConstraints {<BLOCK Name="fct.adtb00012_otros_idioma_checkColumnConstraints">} #+ Check constraints on the "adtb00012.otros_idioma" column #+ #+ @param p_otros_idioma - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00012_otros_idioma_checkColumnConstraints(p_otros_idioma) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_otros_idioma LIKE adtb00012.otros_idioma LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00012_otros_idioma_checkColumnConstraints {<BLOCK Name="fct.adtb00012_cod_puesto_checkColumnConstraints">} #+ Check constraints on the "adtb00012.cod_puesto" column #+ #+ @param p_cod_puesto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00012_cod_puesto_checkColumnConstraints(p_cod_puesto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_puesto LIKE adtb00012.cod_puesto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00012_cod_puesto_checkColumnConstraints {<BLOCK Name="fct.adtb00012_cod_prof_checkColumnConstraints">} #+ Check constraints on the "adtb00012.cod_prof" column #+ #+ @param p_cod_prof - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00012_cod_prof_checkColumnConstraints(p_cod_prof) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_prof LIKE adtb00012.cod_prof LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00012_cod_prof_checkColumnConstraints {<BLOCK Name="fct.adtb00012_sexo_checkColumnConstraints">} #+ Check constraints on the "adtb00012.sexo" column #+ #+ @param p_sexo - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00012_sexo_checkColumnConstraints(p_sexo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sexo LIKE adtb00012.sexo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00012_sexo_checkColumnConstraints {<BLOCK Name="fct.adtb00012_status_t_checkColumnConstraints">} #+ Check constraints on the "adtb00012.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00012_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE adtb00012.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00012_status_t_checkColumnConstraints {<BLOCK Name="fct.adtb00012_us_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00012.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00012_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE adtb00012.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00012_us_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00012_fech_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00012.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00012_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE adtb00012.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00012_fech_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00012_us_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00012.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00012_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE adtb00012.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00012_us_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00012_fech_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00012.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00012_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE adtb00012.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00012_fech_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00011_checkTableConstraints">} #+ Check constraints on the "adtb00011" table #+ #+ @param p_data - a row data LIKE adtb00011.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00011_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE adtb00011.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_adtb00011_num_doc_checkColumnConstraints(p_data.num_doc) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00011_fecha_checkColumnConstraints(p_data.fecha) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00011_fech_req_checkColumnConstraints(p_data.fech_req) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00011_depart_checkColumnConstraints(p_data.depart) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00011_tipo_req_checkColumnConstraints(p_data.tipo_req) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00011_razon_vac_checkColumnConstraints(p_data.razon_vac) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00011_cod_puesto_r_checkColumnConstraints(p_data.cod_puesto_r) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00011_edad_min_checkColumnConstraints(p_data.edad_min) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00011_salario_sem_checkColumnConstraints(p_data.salario_sem) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00011_salario_men_checkColumnConstraints(p_data.salario_men) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00011_experiencia_checkColumnConstraints(p_data.experiencia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00011_cod_educa_checkColumnConstraints(p_data.cod_educa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00011_cod_pericia_checkColumnConstraints(p_data.cod_pericia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00011_status_per_checkColumnConstraints(p_data.status_per) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00011_num_emp_checkColumnConstraints(p_data.num_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00011_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00011_nivel_emp_checkColumnConstraints(p_data.nivel_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00011_cod_puesto_checkColumnConstraints(p_data.cod_puesto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00011_num1_emp_checkColumnConstraints(p_data.num1_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00011_departamento1_checkColumnConstraints(p_data.departamento1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00011_nivel1_emp_checkColumnConstraints(p_data.nivel1_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00011_cod1_puesto_checkColumnConstraints(p_data.cod1_puesto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00011_num2_emp_checkColumnConstraints(p_data.num2_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00011_departamento2_checkColumnConstraints(p_data.departamento2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00011_nivel2_emp_checkColumnConstraints(p_data.nivel2_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00011_cod2_puesto_checkColumnConstraints(p_data.cod2_puesto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00011_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00011_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00011_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00011_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00011_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00011_checkTableConstraints {<BLOCK Name="fct.adtb00011_num_doc_checkColumnConstraints">} #+ Check constraints on the "adtb00011.num_doc" column #+ #+ @param p_num_doc - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00011_num_doc_checkColumnConstraints(p_num_doc) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_doc LIKE adtb00011.num_doc LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00011_num_doc_checkColumnConstraints {<BLOCK Name="fct.adtb00011_fecha_checkColumnConstraints">} #+ Check constraints on the "adtb00011.fecha" column #+ #+ @param p_fecha - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00011_fecha_checkColumnConstraints(p_fecha) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha LIKE adtb00011.fecha LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00011_fecha_checkColumnConstraints {<BLOCK Name="fct.adtb00011_fech_req_checkColumnConstraints">} #+ Check constraints on the "adtb00011.fech_req" column #+ #+ @param p_fech_req - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00011_fech_req_checkColumnConstraints(p_fech_req) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_req LIKE adtb00011.fech_req LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00011_fech_req_checkColumnConstraints {<BLOCK Name="fct.adtb00011_depart_checkColumnConstraints">} #+ Check constraints on the "adtb00011.depart" column #+ #+ @param p_depart - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00011_depart_checkColumnConstraints(p_depart) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_depart LIKE adtb00011.depart LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00011_depart_checkColumnConstraints {<BLOCK Name="fct.adtb00011_tipo_req_checkColumnConstraints">} #+ Check constraints on the "adtb00011.tipo_req" column #+ #+ @param p_tipo_req - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00011_tipo_req_checkColumnConstraints(p_tipo_req) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_req LIKE adtb00011.tipo_req LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00011_tipo_req_checkColumnConstraints {<BLOCK Name="fct.adtb00011_razon_vac_checkColumnConstraints">} #+ Check constraints on the "adtb00011.razon_vac" column #+ #+ @param p_razon_vac - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00011_razon_vac_checkColumnConstraints(p_razon_vac) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_razon_vac LIKE adtb00011.razon_vac LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00011_razon_vac_checkColumnConstraints {<BLOCK Name="fct.adtb00011_cod_puesto_r_checkColumnConstraints">} #+ Check constraints on the "adtb00011.cod_puesto_r" column #+ #+ @param p_cod_puesto_r - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00011_cod_puesto_r_checkColumnConstraints(p_cod_puesto_r) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_puesto_r LIKE adtb00011.cod_puesto_r LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00011_cod_puesto_r_checkColumnConstraints {<BLOCK Name="fct.adtb00011_edad_min_checkColumnConstraints">} #+ Check constraints on the "adtb00011.edad_min" column #+ #+ @param p_edad_min - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00011_edad_min_checkColumnConstraints(p_edad_min) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_edad_min LIKE adtb00011.edad_min LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00011_edad_min_checkColumnConstraints {<BLOCK Name="fct.adtb00011_salario_sem_checkColumnConstraints">} #+ Check constraints on the "adtb00011.salario_sem" column #+ #+ @param p_salario_sem - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00011_salario_sem_checkColumnConstraints(p_salario_sem) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_salario_sem LIKE adtb00011.salario_sem LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00011_salario_sem_checkColumnConstraints {<BLOCK Name="fct.adtb00011_salario_men_checkColumnConstraints">} #+ Check constraints on the "adtb00011.salario_men" column #+ #+ @param p_salario_men - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00011_salario_men_checkColumnConstraints(p_salario_men) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_salario_men LIKE adtb00011.salario_men LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00011_salario_men_checkColumnConstraints {<BLOCK Name="fct.adtb00011_experiencia_checkColumnConstraints">} #+ Check constraints on the "adtb00011.experiencia" column #+ #+ @param p_experiencia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00011_experiencia_checkColumnConstraints(p_experiencia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_experiencia LIKE adtb00011.experiencia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00011_experiencia_checkColumnConstraints {<BLOCK Name="fct.adtb00011_cod_educa_checkColumnConstraints">} #+ Check constraints on the "adtb00011.cod_educa" column #+ #+ @param p_cod_educa - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00011_cod_educa_checkColumnConstraints(p_cod_educa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_educa LIKE adtb00011.cod_educa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00011_cod_educa_checkColumnConstraints {<BLOCK Name="fct.adtb00011_cod_pericia_checkColumnConstraints">} #+ Check constraints on the "adtb00011.cod_pericia" column #+ #+ @param p_cod_pericia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00011_cod_pericia_checkColumnConstraints(p_cod_pericia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_pericia LIKE adtb00011.cod_pericia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00011_cod_pericia_checkColumnConstraints {<BLOCK Name="fct.adtb00011_status_per_checkColumnConstraints">} #+ Check constraints on the "adtb00011.status_per" column #+ #+ @param p_status_per - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00011_status_per_checkColumnConstraints(p_status_per) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_per LIKE adtb00011.status_per LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00011_status_per_checkColumnConstraints {<BLOCK Name="fct.adtb00011_num_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00011.num_emp" column #+ #+ @param p_num_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00011_num_emp_checkColumnConstraints(p_num_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_emp LIKE adtb00011.num_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00011_num_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00011_departamento_checkColumnConstraints">} #+ Check constraints on the "adtb00011.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00011_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE adtb00011.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00011_departamento_checkColumnConstraints {<BLOCK Name="fct.adtb00011_nivel_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00011.nivel_emp" column #+ #+ @param p_nivel_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00011_nivel_emp_checkColumnConstraints(p_nivel_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nivel_emp LIKE adtb00011.nivel_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00011_nivel_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00011_cod_puesto_checkColumnConstraints">} #+ Check constraints on the "adtb00011.cod_puesto" column #+ #+ @param p_cod_puesto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00011_cod_puesto_checkColumnConstraints(p_cod_puesto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_puesto LIKE adtb00011.cod_puesto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00011_cod_puesto_checkColumnConstraints {<BLOCK Name="fct.adtb00011_num1_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00011.num1_emp" column #+ #+ @param p_num1_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00011_num1_emp_checkColumnConstraints(p_num1_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num1_emp LIKE adtb00011.num1_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00011_num1_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00011_departamento1_checkColumnConstraints">} #+ Check constraints on the "adtb00011.departamento1" column #+ #+ @param p_departamento1 - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00011_departamento1_checkColumnConstraints(p_departamento1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento1 LIKE adtb00011.departamento1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00011_departamento1_checkColumnConstraints {<BLOCK Name="fct.adtb00011_nivel1_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00011.nivel1_emp" column #+ #+ @param p_nivel1_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00011_nivel1_emp_checkColumnConstraints(p_nivel1_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nivel1_emp LIKE adtb00011.nivel1_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00011_nivel1_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00011_cod1_puesto_checkColumnConstraints">} #+ Check constraints on the "adtb00011.cod1_puesto" column #+ #+ @param p_cod1_puesto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00011_cod1_puesto_checkColumnConstraints(p_cod1_puesto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod1_puesto LIKE adtb00011.cod1_puesto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00011_cod1_puesto_checkColumnConstraints {<BLOCK Name="fct.adtb00011_num2_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00011.num2_emp" column #+ #+ @param p_num2_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00011_num2_emp_checkColumnConstraints(p_num2_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num2_emp LIKE adtb00011.num2_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00011_num2_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00011_departamento2_checkColumnConstraints">} #+ Check constraints on the "adtb00011.departamento2" column #+ #+ @param p_departamento2 - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00011_departamento2_checkColumnConstraints(p_departamento2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento2 LIKE adtb00011.departamento2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00011_departamento2_checkColumnConstraints {<BLOCK Name="fct.adtb00011_nivel2_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00011.nivel2_emp" column #+ #+ @param p_nivel2_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00011_nivel2_emp_checkColumnConstraints(p_nivel2_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nivel2_emp LIKE adtb00011.nivel2_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00011_nivel2_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00011_cod2_puesto_checkColumnConstraints">} #+ Check constraints on the "adtb00011.cod2_puesto" column #+ #+ @param p_cod2_puesto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00011_cod2_puesto_checkColumnConstraints(p_cod2_puesto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod2_puesto LIKE adtb00011.cod2_puesto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00011_cod2_puesto_checkColumnConstraints {<BLOCK Name="fct.adtb00011_status_t_checkColumnConstraints">} #+ Check constraints on the "adtb00011.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00011_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE adtb00011.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00011_status_t_checkColumnConstraints {<BLOCK Name="fct.adtb00011_us_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00011.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00011_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE adtb00011.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00011_us_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00011_fech_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00011.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00011_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE adtb00011.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00011_fech_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00011_us_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00011.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00011_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE adtb00011.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00011_us_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00011_fech_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00011.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00011_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE adtb00011.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00011_fech_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00010_checkTableConstraints">} #+ Check constraints on the "adtb00010" table #+ #+ @param p_data - a row data LIKE adtb00010.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00010_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE adtb00010.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_adtb00010_cod_prof_checkColumnConstraints(p_data.cod_prof) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00010_nom_prof_checkColumnConstraints(p_data.nom_prof) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00010_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00010_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00010_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00010_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00010_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00010_checkTableConstraints {<BLOCK Name="fct.adtb00010_cod_prof_checkColumnConstraints">} #+ Check constraints on the "adtb00010.cod_prof" column #+ #+ @param p_cod_prof - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00010_cod_prof_checkColumnConstraints(p_cod_prof) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_prof LIKE adtb00010.cod_prof LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00010_cod_prof_checkColumnConstraints {<BLOCK Name="fct.adtb00010_nom_prof_checkColumnConstraints">} #+ Check constraints on the "adtb00010.nom_prof" column #+ #+ @param p_nom_prof - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00010_nom_prof_checkColumnConstraints(p_nom_prof) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nom_prof LIKE adtb00010.nom_prof LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00010_nom_prof_checkColumnConstraints {<BLOCK Name="fct.adtb00010_status_t_checkColumnConstraints">} #+ Check constraints on the "adtb00010.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00010_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE adtb00010.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00010_status_t_checkColumnConstraints {<BLOCK Name="fct.adtb00010_us_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00010.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00010_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE adtb00010.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00010_us_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00010_fech_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00010.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00010_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE adtb00010.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00010_fech_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00010_us_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00010.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00010_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE adtb00010.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00010_us_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00010_fech_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00010.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00010_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE adtb00010.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00010_fech_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00009_checkTableConstraints">} #+ Check constraints on the "adtb00009" table #+ #+ @param p_data - a row data LIKE adtb00009.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00009_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE adtb00009.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_adtb00009_cod_mto_checkColumnConstraints(p_data.cod_mto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00009_sec_mto_checkColumnConstraints(p_data.sec_mto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00009_desc_mto_checkColumnConstraints(p_data.desc_mto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00009_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00009_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00009_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00009_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00009_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00009_checkTableConstraints {<BLOCK Name="fct.adtb00009_cod_mto_checkColumnConstraints">} #+ Check constraints on the "adtb00009.cod_mto" column #+ #+ @param p_cod_mto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00009_cod_mto_checkColumnConstraints(p_cod_mto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_mto LIKE adtb00009.cod_mto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00009_cod_mto_checkColumnConstraints {<BLOCK Name="fct.adtb00009_sec_mto_checkColumnConstraints">} #+ Check constraints on the "adtb00009.sec_mto" column #+ #+ @param p_sec_mto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00009_sec_mto_checkColumnConstraints(p_sec_mto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sec_mto LIKE adtb00009.sec_mto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00009_sec_mto_checkColumnConstraints {<BLOCK Name="fct.adtb00009_desc_mto_checkColumnConstraints">} #+ Check constraints on the "adtb00009.desc_mto" column #+ #+ @param p_desc_mto - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00009_desc_mto_checkColumnConstraints(p_desc_mto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_desc_mto LIKE adtb00009.desc_mto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00009_desc_mto_checkColumnConstraints {<BLOCK Name="fct.adtb00009_status_t_checkColumnConstraints">} #+ Check constraints on the "adtb00009.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00009_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE adtb00009.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00009_status_t_checkColumnConstraints {<BLOCK Name="fct.adtb00009_us_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00009.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00009_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE adtb00009.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00009_us_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00009_fech_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00009.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00009_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE adtb00009.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00009_fech_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00009_us_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00009.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00009_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE adtb00009.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00009_us_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00009_fech_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00009.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00009_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE adtb00009.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00009_fech_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00008_checkTableConstraints">} #+ Check constraints on the "adtb00008" table #+ #+ @param p_data - a row data LIKE adtb00008.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00008_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE adtb00008.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_adtb00008_cod_requi_checkColumnConstraints(p_data.cod_requi) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00008_requisito_checkColumnConstraints(p_data.requisito) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00008_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00008_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00008_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00008_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00008_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00008_checkTableConstraints {<BLOCK Name="fct.adtb00008_cod_requi_checkColumnConstraints">} #+ Check constraints on the "adtb00008.cod_requi" column #+ #+ @param p_cod_requi - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00008_cod_requi_checkColumnConstraints(p_cod_requi) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_requi LIKE adtb00008.cod_requi LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00008_cod_requi_checkColumnConstraints {<BLOCK Name="fct.adtb00008_requisito_checkColumnConstraints">} #+ Check constraints on the "adtb00008.requisito" column #+ #+ @param p_requisito - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00008_requisito_checkColumnConstraints(p_requisito) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_requisito LIKE adtb00008.requisito LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00008_requisito_checkColumnConstraints {<BLOCK Name="fct.adtb00008_status_t_checkColumnConstraints">} #+ Check constraints on the "adtb00008.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00008_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE adtb00008.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00008_status_t_checkColumnConstraints {<BLOCK Name="fct.adtb00008_us_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00008.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00008_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE adtb00008.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00008_us_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00008_fech_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00008.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00008_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE adtb00008.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00008_fech_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00008_us_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00008.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00008_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE adtb00008.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00008_us_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00008_fech_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00008.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00008_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE adtb00008.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00008_fech_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00007_checkTableConstraints">} #+ Check constraints on the "adtb00007" table #+ #+ @param p_data - a row data LIKE adtb00007.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00007_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE adtb00007.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_adtb00007_cod_nac_checkColumnConstraints(p_data.cod_nac) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00007_nom_nac_checkColumnConstraints(p_data.nom_nac) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00007_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00007_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00007_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00007_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00007_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00007_checkTableConstraints {<BLOCK Name="fct.adtb00007_cod_nac_checkColumnConstraints">} #+ Check constraints on the "adtb00007.cod_nac" column #+ #+ @param p_cod_nac - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00007_cod_nac_checkColumnConstraints(p_cod_nac) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_nac LIKE adtb00007.cod_nac LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00007_cod_nac_checkColumnConstraints {<BLOCK Name="fct.adtb00007_nom_nac_checkColumnConstraints">} #+ Check constraints on the "adtb00007.nom_nac" column #+ #+ @param p_nom_nac - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00007_nom_nac_checkColumnConstraints(p_nom_nac) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nom_nac LIKE adtb00007.nom_nac LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00007_nom_nac_checkColumnConstraints {<BLOCK Name="fct.adtb00007_status_t_checkColumnConstraints">} #+ Check constraints on the "adtb00007.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00007_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE adtb00007.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00007_status_t_checkColumnConstraints {<BLOCK Name="fct.adtb00007_us_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00007.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00007_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE adtb00007.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00007_us_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00007_fech_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00007.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00007_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE adtb00007.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00007_fech_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00007_us_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00007.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00007_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE adtb00007.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00007_us_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00007_fech_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00007.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00007_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE adtb00007.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00007_fech_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00006_checkTableConstraints">} #+ Check constraints on the "adtb00006" table #+ #+ @param p_data - a row data LIKE adtb00006.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00006_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE adtb00006.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_adtb00006_cod_pericia_checkColumnConstraints(p_data.cod_pericia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00006_nom_pericia_checkColumnConstraints(p_data.nom_pericia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00006_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00006_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00006_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00006_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00006_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00006_checkTableConstraints {<BLOCK Name="fct.adtb00006_cod_pericia_checkColumnConstraints">} #+ Check constraints on the "adtb00006.cod_pericia" column #+ #+ @param p_cod_pericia - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00006_cod_pericia_checkColumnConstraints(p_cod_pericia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_pericia LIKE adtb00006.cod_pericia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00006_cod_pericia_checkColumnConstraints {<BLOCK Name="fct.adtb00006_nom_pericia_checkColumnConstraints">} #+ Check constraints on the "adtb00006.nom_pericia" column #+ #+ @param p_nom_pericia - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00006_nom_pericia_checkColumnConstraints(p_nom_pericia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nom_pericia LIKE adtb00006.nom_pericia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00006_nom_pericia_checkColumnConstraints {<BLOCK Name="fct.adtb00006_status_t_checkColumnConstraints">} #+ Check constraints on the "adtb00006.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00006_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE adtb00006.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00006_status_t_checkColumnConstraints {<BLOCK Name="fct.adtb00006_us_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00006.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00006_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE adtb00006.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00006_us_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00006_fech_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00006.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00006_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE adtb00006.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00006_fech_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00006_us_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00006.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00006_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE adtb00006.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00006_us_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00006_fech_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00006.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00006_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE adtb00006.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00006_fech_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00005_checkTableConstraints">} #+ Check constraints on the "adtb00005" table #+ #+ @param p_data - a row data LIKE adtb00005.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00005_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE adtb00005.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_adtb00005_cod_educa_checkColumnConstraints(p_data.cod_educa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00005_nom_educa_checkColumnConstraints(p_data.nom_educa) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00005_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00005_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00005_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00005_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00005_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00005_checkTableConstraints {<BLOCK Name="fct.adtb00005_cod_educa_checkColumnConstraints">} #+ Check constraints on the "adtb00005.cod_educa" column #+ #+ @param p_cod_educa - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00005_cod_educa_checkColumnConstraints(p_cod_educa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_educa LIKE adtb00005.cod_educa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00005_cod_educa_checkColumnConstraints {<BLOCK Name="fct.adtb00005_nom_educa_checkColumnConstraints">} #+ Check constraints on the "adtb00005.nom_educa" column #+ #+ @param p_nom_educa - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00005_nom_educa_checkColumnConstraints(p_nom_educa) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nom_educa LIKE adtb00005.nom_educa LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00005_nom_educa_checkColumnConstraints {<BLOCK Name="fct.adtb00005_status_t_checkColumnConstraints">} #+ Check constraints on the "adtb00005.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00005_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE adtb00005.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00005_status_t_checkColumnConstraints {<BLOCK Name="fct.adtb00005_us_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00005.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00005_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE adtb00005.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00005_us_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00005_fech_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00005.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00005_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE adtb00005.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00005_fech_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00005_us_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00005.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00005_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE adtb00005.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00005_us_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00005_fech_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00005.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00005_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE adtb00005.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00005_fech_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00004_checkTableConstraints">} #+ Check constraints on the "adtb00004" table #+ #+ @param p_data - a row data LIKE adtb00004.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00004_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE adtb00004.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_adtb00004_cod_puesto_checkColumnConstraints(p_data.cod_puesto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00004_nom_puesto_checkColumnConstraints(p_data.nom_puesto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00004_otra_descripcion_checkColumnConstraints(p_data.otra_descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00004_funciones_checkColumnConstraints(p_data.funciones) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00004_funcion1_checkColumnConstraints(p_data.funcion1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00004_nivel_sal_checkColumnConstraints(p_data.nivel_sal) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00004_salario_min_checkColumnConstraints(p_data.salario_min) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00004_salario_max_checkColumnConstraints(p_data.salario_max) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00004_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00004_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00004_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00004_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00004_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00004_checkTableConstraints {<BLOCK Name="fct.adtb00004_cod_puesto_checkColumnConstraints">} #+ Check constraints on the "adtb00004.cod_puesto" column #+ #+ @param p_cod_puesto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00004_cod_puesto_checkColumnConstraints(p_cod_puesto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_puesto LIKE adtb00004.cod_puesto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00004_cod_puesto_checkColumnConstraints {<BLOCK Name="fct.adtb00004_nom_puesto_checkColumnConstraints">} #+ Check constraints on the "adtb00004.nom_puesto" column #+ #+ @param p_nom_puesto - CHAR(180) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00004_nom_puesto_checkColumnConstraints(p_nom_puesto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nom_puesto LIKE adtb00004.nom_puesto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00004_nom_puesto_checkColumnConstraints {<BLOCK Name="fct.adtb00004_otra_descripcion_checkColumnConstraints">} #+ Check constraints on the "adtb00004.otra_descripcion" column #+ #+ @param p_otra_descripcion - CHAR(180) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00004_otra_descripcion_checkColumnConstraints(p_otra_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_otra_descripcion LIKE adtb00004.otra_descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00004_otra_descripcion_checkColumnConstraints {<BLOCK Name="fct.adtb00004_funciones_checkColumnConstraints">} #+ Check constraints on the "adtb00004.funciones" column #+ #+ @param p_funciones - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00004_funciones_checkColumnConstraints(p_funciones) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_funciones LIKE adtb00004.funciones LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00004_funciones_checkColumnConstraints {<BLOCK Name="fct.adtb00004_funcion1_checkColumnConstraints">} #+ Check constraints on the "adtb00004.funcion1" column #+ #+ @param p_funcion1 - CHAR(60) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00004_funcion1_checkColumnConstraints(p_funcion1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_funcion1 LIKE adtb00004.funcion1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00004_funcion1_checkColumnConstraints {<BLOCK Name="fct.adtb00004_nivel_sal_checkColumnConstraints">} #+ Check constraints on the "adtb00004.nivel_sal" column #+ #+ @param p_nivel_sal - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00004_nivel_sal_checkColumnConstraints(p_nivel_sal) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nivel_sal LIKE adtb00004.nivel_sal LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00004_nivel_sal_checkColumnConstraints {<BLOCK Name="fct.adtb00004_salario_min_checkColumnConstraints">} #+ Check constraints on the "adtb00004.salario_min" column #+ #+ @param p_salario_min - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00004_salario_min_checkColumnConstraints(p_salario_min) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_salario_min LIKE adtb00004.salario_min LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00004_salario_min_checkColumnConstraints {<BLOCK Name="fct.adtb00004_salario_max_checkColumnConstraints">} #+ Check constraints on the "adtb00004.salario_max" column #+ #+ @param p_salario_max - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00004_salario_max_checkColumnConstraints(p_salario_max) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_salario_max LIKE adtb00004.salario_max LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00004_salario_max_checkColumnConstraints {<BLOCK Name="fct.adtb00004_status_t_checkColumnConstraints">} #+ Check constraints on the "adtb00004.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00004_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE adtb00004.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00004_status_t_checkColumnConstraints {<BLOCK Name="fct.adtb00004_us_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00004.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00004_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE adtb00004.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00004_us_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00004_fech_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00004.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00004_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE adtb00004.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00004_fech_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00004_us_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00004.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00004_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE adtb00004.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00004_us_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00004_fech_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00004.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00004_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE adtb00004.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00004_fech_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00003_checkTableConstraints">} #+ Check constraints on the "adtb00003" table #+ #+ @param p_data - a row data LIKE adtb00003.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00003_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE adtb00003.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_adtb00003_num_emp_checkColumnConstraints(p_data.num_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00003_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00003_nivel_emp_checkColumnConstraints(p_data.nivel_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00003_cod_puesto_checkColumnConstraints(p_data.cod_puesto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00003_nom1_emp_checkColumnConstraints(p_data.nom1_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00003_nom2_emp_checkColumnConstraints(p_data.nom2_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00003_apell1_emp_checkColumnConstraints(p_data.apell1_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00003_apell2_emp_checkColumnConstraints(p_data.apell2_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00003_tipo_empleado_checkColumnConstraints(p_data.tipo_empleado) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00003_fecha_termino_c_checkColumnConstraints(p_data.fecha_termino_c) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00003_calle_checkColumnConstraints(p_data.calle) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00003_casa_num_checkColumnConstraints(p_data.casa_num) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00003_barrio_checkColumnConstraints(p_data.barrio) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00003_urbanizacion_checkColumnConstraints(p_data.urbanizacion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00003_telefono_checkColumnConstraints(p_data.telefono) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00003_fech_nac_checkColumnConstraints(p_data.fech_nac) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00003_cod_nac_checkColumnConstraints(p_data.cod_nac) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00003_estado_civil_checkColumnConstraints(p_data.estado_civil) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00003_tipo_sangre_checkColumnConstraints(p_data.tipo_sangre) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00003_cedula_checkColumnConstraints(p_data.cedula) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00003_serie_checkColumnConstraints(p_data.serie) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00003_licencia_checkColumnConstraints(p_data.licencia) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00003_sueldo_ac_checkColumnConstraints(p_data.sueldo_ac) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00003_nomina_checkColumnConstraints(p_data.nomina) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00003_fech_efec_checkColumnConstraints(p_data.fech_efec) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00003_fecha_salida_checkColumnConstraints(p_data.fecha_salida) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00003_paga_seg_checkColumnConstraints(p_data.paga_seg) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00003_cod_seg1_checkColumnConstraints(p_data.cod_seg1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00003_cod_seg2_checkColumnConstraints(p_data.cod_seg2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00003_cod_seg3_checkColumnConstraints(p_data.cod_seg3) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00003_cuenta_no_checkColumnConstraints(p_data.cuenta_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00003_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00003_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00003_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00003_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00003_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00003_foto_empleado_checkColumnConstraints(p_data.foto_empleado) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00003_sucid_checkColumnConstraints(p_data.sucid) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00003_monto_seg_med_checkColumnConstraints(p_data.monto_seg_med) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00003_monto_seg_int_checkColumnConstraints(p_data.monto_seg_int) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00003_monto_care_checkColumnConstraints(p_data.monto_care) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00003_pk_adtb00003_checkUniqueConstraint(p_forUpdate, p_data.num_emp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00003_checkTableConstraints {<BLOCK Name="fct.adtb00003_pk_adtb00003_checkUniqueConstraint">} #+ Check the primary key uniqueness constraint on the "adtb00003" #+ #+ @param p_key - Primary Key #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00003_pk_adtb00003_checkUniqueConstraint(p_forUpdate, p_key) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_forUpdate BOOLEAN DEFINE p_key RECORD adtb00003_num_emp LIKE adtb00003.num_emp END RECORD DEFINE l_key RECORD adtb00003_num_emp LIKE adtb00003.num_emp 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 adtb00003.num_emp = ? " let l_sqlQuery = "SELECT COUNT(*), num_emp FROM adtb00003 ", l_where, " GROUP BY num_emp" PREPARE cur_adtb00003_pk_adtb00003_checkUniqueConstraint FROM l_sqlQuery EXECUTE cur_adtb00003_pk_adtb00003_checkUniqueConstraint INTO l_count, l_key.* USING p_key.* FREE cur_adtb00003_pk_adtb00003_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- num_emp: " || ERROR_BAM_00002) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00003_pk_adtb00003_checkUniqueConstraint {<BLOCK Name="fct.adtb00003_num_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00003.num_emp" column #+ #+ @param p_num_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00003_num_emp_checkColumnConstraints(p_num_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_num_emp LIKE adtb00003.num_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_num_emp IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- num_emp: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00003_num_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00003_departamento_checkColumnConstraints">} #+ Check constraints on the "adtb00003.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00003_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE adtb00003.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00003_departamento_checkColumnConstraints {<BLOCK Name="fct.adtb00003_nivel_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00003.nivel_emp" column #+ #+ @param p_nivel_emp - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00003_nivel_emp_checkColumnConstraints(p_nivel_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nivel_emp LIKE adtb00003.nivel_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00003_nivel_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00003_cod_puesto_checkColumnConstraints">} #+ Check constraints on the "adtb00003.cod_puesto" column #+ #+ @param p_cod_puesto - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00003_cod_puesto_checkColumnConstraints(p_cod_puesto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_puesto LIKE adtb00003.cod_puesto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00003_cod_puesto_checkColumnConstraints {<BLOCK Name="fct.adtb00003_nom1_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00003.nom1_emp" column #+ #+ @param p_nom1_emp - CHAR(15) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00003_nom1_emp_checkColumnConstraints(p_nom1_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nom1_emp LIKE adtb00003.nom1_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00003_nom1_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00003_nom2_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00003.nom2_emp" column #+ #+ @param p_nom2_emp - CHAR(15) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00003_nom2_emp_checkColumnConstraints(p_nom2_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nom2_emp LIKE adtb00003.nom2_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00003_nom2_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00003_apell1_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00003.apell1_emp" column #+ #+ @param p_apell1_emp - CHAR(15) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00003_apell1_emp_checkColumnConstraints(p_apell1_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_apell1_emp LIKE adtb00003.apell1_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00003_apell1_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00003_apell2_emp_checkColumnConstraints">} #+ Check constraints on the "adtb00003.apell2_emp" column #+ #+ @param p_apell2_emp - CHAR(15) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00003_apell2_emp_checkColumnConstraints(p_apell2_emp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_apell2_emp LIKE adtb00003.apell2_emp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00003_apell2_emp_checkColumnConstraints {<BLOCK Name="fct.adtb00003_tipo_empleado_checkColumnConstraints">} #+ Check constraints on the "adtb00003.tipo_empleado" column #+ #+ @param p_tipo_empleado - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00003_tipo_empleado_checkColumnConstraints(p_tipo_empleado) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_empleado LIKE adtb00003.tipo_empleado LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00003_tipo_empleado_checkColumnConstraints {<BLOCK Name="fct.adtb00003_fecha_termino_c_checkColumnConstraints">} #+ Check constraints on the "adtb00003.fecha_termino_c" column #+ #+ @param p_fecha_termino_c - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00003_fecha_termino_c_checkColumnConstraints(p_fecha_termino_c) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_termino_c LIKE adtb00003.fecha_termino_c LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00003_fecha_termino_c_checkColumnConstraints {<BLOCK Name="fct.adtb00003_calle_checkColumnConstraints">} #+ Check constraints on the "adtb00003.calle" column #+ #+ @param p_calle - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00003_calle_checkColumnConstraints(p_calle) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_calle LIKE adtb00003.calle LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00003_calle_checkColumnConstraints {<BLOCK Name="fct.adtb00003_casa_num_checkColumnConstraints">} #+ Check constraints on the "adtb00003.casa_num" column #+ #+ @param p_casa_num - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00003_casa_num_checkColumnConstraints(p_casa_num) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_casa_num LIKE adtb00003.casa_num LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00003_casa_num_checkColumnConstraints {<BLOCK Name="fct.adtb00003_barrio_checkColumnConstraints">} #+ Check constraints on the "adtb00003.barrio" column #+ #+ @param p_barrio - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00003_barrio_checkColumnConstraints(p_barrio) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_barrio LIKE adtb00003.barrio LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00003_barrio_checkColumnConstraints {<BLOCK Name="fct.adtb00003_urbanizacion_checkColumnConstraints">} #+ Check constraints on the "adtb00003.urbanizacion" column #+ #+ @param p_urbanizacion - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00003_urbanizacion_checkColumnConstraints(p_urbanizacion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_urbanizacion LIKE adtb00003.urbanizacion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00003_urbanizacion_checkColumnConstraints {<BLOCK Name="fct.adtb00003_telefono_checkColumnConstraints">} #+ Check constraints on the "adtb00003.telefono" column #+ #+ @param p_telefono - CHAR(15) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00003_telefono_checkColumnConstraints(p_telefono) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_telefono LIKE adtb00003.telefono LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00003_telefono_checkColumnConstraints {<BLOCK Name="fct.adtb00003_fech_nac_checkColumnConstraints">} #+ Check constraints on the "adtb00003.fech_nac" column #+ #+ @param p_fech_nac - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00003_fech_nac_checkColumnConstraints(p_fech_nac) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_nac LIKE adtb00003.fech_nac LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00003_fech_nac_checkColumnConstraints {<BLOCK Name="fct.adtb00003_cod_nac_checkColumnConstraints">} #+ Check constraints on the "adtb00003.cod_nac" column #+ #+ @param p_cod_nac - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00003_cod_nac_checkColumnConstraints(p_cod_nac) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_nac LIKE adtb00003.cod_nac LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00003_cod_nac_checkColumnConstraints {<BLOCK Name="fct.adtb00003_estado_civil_checkColumnConstraints">} #+ Check constraints on the "adtb00003.estado_civil" column #+ #+ @param p_estado_civil - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00003_estado_civil_checkColumnConstraints(p_estado_civil) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_estado_civil LIKE adtb00003.estado_civil LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00003_estado_civil_checkColumnConstraints {<BLOCK Name="fct.adtb00003_tipo_sangre_checkColumnConstraints">} #+ Check constraints on the "adtb00003.tipo_sangre" column #+ #+ @param p_tipo_sangre - CHAR(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00003_tipo_sangre_checkColumnConstraints(p_tipo_sangre) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_tipo_sangre LIKE adtb00003.tipo_sangre LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00003_tipo_sangre_checkColumnConstraints {<BLOCK Name="fct.adtb00003_cedula_checkColumnConstraints">} #+ Check constraints on the "adtb00003.cedula" column #+ #+ @param p_cedula - CHAR(11) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00003_cedula_checkColumnConstraints(p_cedula) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cedula LIKE adtb00003.cedula LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00003_cedula_checkColumnConstraints {<BLOCK Name="fct.adtb00003_serie_checkColumnConstraints">} #+ Check constraints on the "adtb00003.serie" column #+ #+ @param p_serie - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00003_serie_checkColumnConstraints(p_serie) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_serie LIKE adtb00003.serie LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00003_serie_checkColumnConstraints {<BLOCK Name="fct.adtb00003_licencia_checkColumnConstraints">} #+ Check constraints on the "adtb00003.licencia" column #+ #+ @param p_licencia - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00003_licencia_checkColumnConstraints(p_licencia) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_licencia LIKE adtb00003.licencia LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00003_licencia_checkColumnConstraints {<BLOCK Name="fct.adtb00003_sueldo_ac_checkColumnConstraints">} #+ Check constraints on the "adtb00003.sueldo_ac" column #+ #+ @param p_sueldo_ac - DECIMAL(10,2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00003_sueldo_ac_checkColumnConstraints(p_sueldo_ac) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sueldo_ac LIKE adtb00003.sueldo_ac LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00003_sueldo_ac_checkColumnConstraints {<BLOCK Name="fct.adtb00003_nomina_checkColumnConstraints">} #+ Check constraints on the "adtb00003.nomina" column #+ #+ @param p_nomina - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00003_nomina_checkColumnConstraints(p_nomina) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nomina LIKE adtb00003.nomina LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00003_nomina_checkColumnConstraints {<BLOCK Name="fct.adtb00003_fech_efec_checkColumnConstraints">} #+ Check constraints on the "adtb00003.fech_efec" column #+ #+ @param p_fech_efec - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00003_fech_efec_checkColumnConstraints(p_fech_efec) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_efec LIKE adtb00003.fech_efec LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00003_fech_efec_checkColumnConstraints {<BLOCK Name="fct.adtb00003_fecha_salida_checkColumnConstraints">} #+ Check constraints on the "adtb00003.fecha_salida" column #+ #+ @param p_fecha_salida - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00003_fecha_salida_checkColumnConstraints(p_fecha_salida) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fecha_salida LIKE adtb00003.fecha_salida LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00003_fecha_salida_checkColumnConstraints {<BLOCK Name="fct.adtb00003_paga_seg_checkColumnConstraints">} #+ Check constraints on the "adtb00003.paga_seg" column #+ #+ @param p_paga_seg - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00003_paga_seg_checkColumnConstraints(p_paga_seg) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_paga_seg LIKE adtb00003.paga_seg LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00003_paga_seg_checkColumnConstraints {<BLOCK Name="fct.adtb00003_cod_seg1_checkColumnConstraints">} #+ Check constraints on the "adtb00003.cod_seg1" column #+ #+ @param p_cod_seg1 - CHAR(11) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00003_cod_seg1_checkColumnConstraints(p_cod_seg1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_seg1 LIKE adtb00003.cod_seg1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00003_cod_seg1_checkColumnConstraints {<BLOCK Name="fct.adtb00003_cod_seg2_checkColumnConstraints">} #+ Check constraints on the "adtb00003.cod_seg2" column #+ #+ @param p_cod_seg2 - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00003_cod_seg2_checkColumnConstraints(p_cod_seg2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_seg2 LIKE adtb00003.cod_seg2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00003_cod_seg2_checkColumnConstraints {<BLOCK Name="fct.adtb00003_cod_seg3_checkColumnConstraints">} #+ Check constraints on the "adtb00003.cod_seg3" column #+ #+ @param p_cod_seg3 - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00003_cod_seg3_checkColumnConstraints(p_cod_seg3) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_seg3 LIKE adtb00003.cod_seg3 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00003_cod_seg3_checkColumnConstraints {<BLOCK Name="fct.adtb00003_cuenta_no_checkColumnConstraints">} #+ Check constraints on the "adtb00003.cuenta_no" column #+ #+ @param p_cuenta_no - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00003_cuenta_no_checkColumnConstraints(p_cuenta_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_no LIKE adtb00003.cuenta_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00003_cuenta_no_checkColumnConstraints {<BLOCK Name="fct.adtb00003_status_t_checkColumnConstraints">} #+ Check constraints on the "adtb00003.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00003_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE adtb00003.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00003_status_t_checkColumnConstraints {<BLOCK Name="fct.adtb00003_us_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00003.us_crea" column #+ #+ @param p_us_crea - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00003_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE adtb00003.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00003_us_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00003_fech_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00003.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00003_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE adtb00003.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00003_fech_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00003_us_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00003.us_mod" column #+ #+ @param p_us_mod - CHAR(50) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00003_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE adtb00003.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00003_us_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00003_fech_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00003.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00003_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE adtb00003.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00003_fech_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00003_foto_empleado_checkColumnConstraints">} #+ Check constraints on the "adtb00003.foto_empleado" column #+ #+ @param p_foto_empleado - CHAR(255) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00003_foto_empleado_checkColumnConstraints(p_foto_empleado) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_foto_empleado LIKE adtb00003.foto_empleado LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00003_foto_empleado_checkColumnConstraints {<BLOCK Name="fct.adtb00003_sucid_checkColumnConstraints">} #+ Check constraints on the "adtb00003.sucid" column #+ #+ @param p_sucid - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00003_sucid_checkColumnConstraints(p_sucid) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sucid LIKE adtb00003.sucid LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00003_sucid_checkColumnConstraints {<BLOCK Name="fct.adtb00003_monto_seg_med_checkColumnConstraints">} #+ Check constraints on the "adtb00003.monto_seg_med" column #+ #+ @param p_monto_seg_med - DECIMAL(18,0) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00003_monto_seg_med_checkColumnConstraints(p_monto_seg_med) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_monto_seg_med LIKE adtb00003.monto_seg_med LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00003_monto_seg_med_checkColumnConstraints {<BLOCK Name="fct.adtb00003_monto_seg_int_checkColumnConstraints">} #+ Check constraints on the "adtb00003.monto_seg_int" column #+ #+ @param p_monto_seg_int - DECIMAL(18,0) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00003_monto_seg_int_checkColumnConstraints(p_monto_seg_int) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_monto_seg_int LIKE adtb00003.monto_seg_int LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00003_monto_seg_int_checkColumnConstraints {<BLOCK Name="fct.adtb00003_monto_care_checkColumnConstraints">} #+ Check constraints on the "adtb00003.monto_care" column #+ #+ @param p_monto_care - DECIMAL(18,0) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00003_monto_care_checkColumnConstraints(p_monto_care) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_monto_care LIKE adtb00003.monto_care LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00003_monto_care_checkColumnConstraints {<BLOCK Name="fct.adtb00002_checkTableConstraints">} #+ Check constraints on the "adtb00002" table #+ #+ @param p_data - a row data LIKE adtb00002.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00002_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE adtb00002.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_adtb00002_cod_seccion_checkColumnConstraints(p_data.cod_seccion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00002_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00002_nom_seccion_checkColumnConstraints(p_data.nom_seccion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00002_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00002_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00002_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00002_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00002_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00002_checkTableConstraints {<BLOCK Name="fct.adtb00002_cod_seccion_checkColumnConstraints">} #+ Check constraints on the "adtb00002.cod_seccion" column #+ #+ @param p_cod_seccion - VARCHAR2(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00002_cod_seccion_checkColumnConstraints(p_cod_seccion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cod_seccion LIKE adtb00002.cod_seccion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00002_cod_seccion_checkColumnConstraints {<BLOCK Name="fct.adtb00002_departamento_checkColumnConstraints">} #+ Check constraints on the "adtb00002.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00002_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE adtb00002.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00002_departamento_checkColumnConstraints {<BLOCK Name="fct.adtb00002_nom_seccion_checkColumnConstraints">} #+ Check constraints on the "adtb00002.nom_seccion" column #+ #+ @param p_nom_seccion - VARCHAR2(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00002_nom_seccion_checkColumnConstraints(p_nom_seccion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nom_seccion LIKE adtb00002.nom_seccion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00002_nom_seccion_checkColumnConstraints {<BLOCK Name="fct.adtb00002_status_t_checkColumnConstraints">} #+ Check constraints on the "adtb00002.status_t" column #+ #+ @param p_status_t - VARCHAR2(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00002_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE adtb00002.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00002_status_t_checkColumnConstraints {<BLOCK Name="fct.adtb00002_us_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00002.us_crea" column #+ #+ @param p_us_crea - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00002_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE adtb00002.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00002_us_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00002_fech_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00002.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00002_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE adtb00002.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00002_fech_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00002_us_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00002.us_mod" column #+ #+ @param p_us_mod - VARCHAR2(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00002_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE adtb00002.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00002_us_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00002_fech_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00002.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00002_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE adtb00002.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00002_fech_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00001_checkTableConstraints">} #+ Check constraints on the "adtb00001" table #+ #+ @param p_data - a row data LIKE adtb00001.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00001_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE adtb00001.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_adtb00001_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00001_nom_dpto_checkColumnConstraints(p_data.nom_dpto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00001_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00001_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00001_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00001_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_adtb00001_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00001_checkTableConstraints {<BLOCK Name="fct.adtb00001_departamento_checkColumnConstraints">} #+ Check constraints on the "adtb00001.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00001_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE adtb00001.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00001_departamento_checkColumnConstraints {<BLOCK Name="fct.adtb00001_nom_dpto_checkColumnConstraints">} #+ Check constraints on the "adtb00001.nom_dpto" column #+ #+ @param p_nom_dpto - CHAR(30) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00001_nom_dpto_checkColumnConstraints(p_nom_dpto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_nom_dpto LIKE adtb00001.nom_dpto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00001_nom_dpto_checkColumnConstraints {<BLOCK Name="fct.adtb00001_status_t_checkColumnConstraints">} #+ Check constraints on the "adtb00001.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00001_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE adtb00001.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00001_status_t_checkColumnConstraints {<BLOCK Name="fct.adtb00001_us_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00001.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00001_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE adtb00001.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00001_us_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00001_fech_crea_checkColumnConstraints">} #+ Check constraints on the "adtb00001.fech_crea" column #+ #+ @param p_fech_crea - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00001_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE adtb00001.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00001_fech_crea_checkColumnConstraints {<BLOCK Name="fct.adtb00001_us_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00001.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00001_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE adtb00001.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00001_us_mod_checkColumnConstraints {<BLOCK Name="fct.adtb00001_fech_mod_checkColumnConstraints">} #+ Check constraints on the "adtb00001.fech_mod" column #+ #+ @param p_fech_mod - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_adtb00001_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE adtb00001.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.adtb00001_fech_mod_checkColumnConstraints {<BLOCK Name="fct.actb00001_checkTableConstraints">} #+ Check constraints on the "actb00001" table #+ #+ @param p_data - a row data LIKE actb00001.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_actb00001_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE actb00001.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_actb00001_codigo_checkColumnConstraints(p_data.codigo) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_actb00001_descripcion_checkColumnConstraints(p_data.descripcion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_actb00001_cuenta_no_checkColumnConstraints(p_data.cuenta_no) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_actb00001_cta_depr_checkColumnConstraints(p_data.cta_depr) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_actb00001_cta_gasto_checkColumnConstraints(p_data.cta_gasto) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_actb00001_departamento_checkColumnConstraints(p_data.departamento) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_actb00001_fech_compra_checkColumnConstraints(p_data.fech_compra) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_actb00001_duracion_checkColumnConstraints(p_data.duracion) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_actb00001_fech_elim_checkColumnConstraints(p_data.fech_elim) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_actb00001_status_t_checkColumnConstraints(p_data.status_t) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_actb00001_us_crea_checkColumnConstraints(p_data.us_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_actb00001_fech_crea_checkColumnConstraints(p_data.fech_crea) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_actb00001_us_mod_checkColumnConstraints(p_data.us_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_actb00001_fech_mod_checkColumnConstraints(p_data.fech_mod) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.actb00001_checkTableConstraints {<BLOCK Name="fct.actb00001_codigo_checkColumnConstraints">} #+ Check constraints on the "actb00001.codigo" column #+ #+ @param p_codigo - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_actb00001_codigo_checkColumnConstraints(p_codigo) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_codigo LIKE actb00001.codigo LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.actb00001_codigo_checkColumnConstraints {<BLOCK Name="fct.actb00001_descripcion_checkColumnConstraints">} #+ Check constraints on the "actb00001.descripcion" column #+ #+ @param p_descripcion - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_actb00001_descripcion_checkColumnConstraints(p_descripcion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_descripcion LIKE actb00001.descripcion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.actb00001_descripcion_checkColumnConstraints {<BLOCK Name="fct.actb00001_cuenta_no_checkColumnConstraints">} #+ Check constraints on the "actb00001.cuenta_no" column #+ #+ @param p_cuenta_no - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_actb00001_cuenta_no_checkColumnConstraints(p_cuenta_no) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cuenta_no LIKE actb00001.cuenta_no LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.actb00001_cuenta_no_checkColumnConstraints {<BLOCK Name="fct.actb00001_cta_depr_checkColumnConstraints">} #+ Check constraints on the "actb00001.cta_depr" column #+ #+ @param p_cta_depr - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_actb00001_cta_depr_checkColumnConstraints(p_cta_depr) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cta_depr LIKE actb00001.cta_depr LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.actb00001_cta_depr_checkColumnConstraints {<BLOCK Name="fct.actb00001_cta_gasto_checkColumnConstraints">} #+ Check constraints on the "actb00001.cta_gasto" column #+ #+ @param p_cta_gasto - CHAR(8) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_actb00001_cta_gasto_checkColumnConstraints(p_cta_gasto) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_cta_gasto LIKE actb00001.cta_gasto LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.actb00001_cta_gasto_checkColumnConstraints {<BLOCK Name="fct.actb00001_departamento_checkColumnConstraints">} #+ Check constraints on the "actb00001.departamento" column #+ #+ @param p_departamento - SMALLINT - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_actb00001_departamento_checkColumnConstraints(p_departamento) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_departamento LIKE actb00001.departamento LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.actb00001_departamento_checkColumnConstraints {<BLOCK Name="fct.actb00001_fech_compra_checkColumnConstraints">} #+ Check constraints on the "actb00001.fech_compra" column #+ #+ @param p_fech_compra - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_actb00001_fech_compra_checkColumnConstraints(p_fech_compra) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_compra LIKE actb00001.fech_compra LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.actb00001_fech_compra_checkColumnConstraints {<BLOCK Name="fct.actb00001_duracion_checkColumnConstraints">} #+ Check constraints on the "actb00001.duracion" column #+ #+ @param p_duracion - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_actb00001_duracion_checkColumnConstraints(p_duracion) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_duracion LIKE actb00001.duracion LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.actb00001_duracion_checkColumnConstraints {<BLOCK Name="fct.actb00001_fech_elim_checkColumnConstraints">} #+ Check constraints on the "actb00001.fech_elim" column #+ #+ @param p_fech_elim - DATE - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_actb00001_fech_elim_checkColumnConstraints(p_fech_elim) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_elim LIKE actb00001.fech_elim LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.actb00001_fech_elim_checkColumnConstraints {<BLOCK Name="fct.actb00001_status_t_checkColumnConstraints">} #+ Check constraints on the "actb00001.status_t" column #+ #+ @param p_status_t - CHAR(1) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_actb00001_status_t_checkColumnConstraints(p_status_t) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status_t LIKE actb00001.status_t LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.actb00001_status_t_checkColumnConstraints {<BLOCK Name="fct.actb00001_us_crea_checkColumnConstraints">} #+ Check constraints on the "actb00001.us_crea" column #+ #+ @param p_us_crea - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_actb00001_us_crea_checkColumnConstraints(p_us_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_crea LIKE actb00001.us_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.actb00001_us_crea_checkColumnConstraints {<BLOCK Name="fct.actb00001_fech_crea_checkColumnConstraints">} #+ Check constraints on the "actb00001.fech_crea" column #+ #+ @param p_fech_crea - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_actb00001_fech_crea_checkColumnConstraints(p_fech_crea) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_crea LIKE actb00001.fech_crea LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.actb00001_fech_crea_checkColumnConstraints {<BLOCK Name="fct.actb00001_us_mod_checkColumnConstraints">} #+ Check constraints on the "actb00001.us_mod" column #+ #+ @param p_us_mod - CHAR(9) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_actb00001_us_mod_checkColumnConstraints(p_us_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_us_mod LIKE actb00001.us_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.actb00001_us_mod_checkColumnConstraints {<BLOCK Name="fct.actb00001_fech_mod_checkColumnConstraints">} #+ Check constraints on the "actb00001.fech_mod" column #+ #+ @param p_fech_mod - DATETIME YEAR TO FRACTION(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_actb00001_fech_mod_checkColumnConstraints(p_fech_mod) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_fech_mod LIKE actb00001.fech_mod LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.actb00001_fech_mod_checkColumnConstraints {<BLOCK Name="fct.account_checkTableConstraints">} #+ Check constraints on the "account" table #+ #+ @param p_data - a row data LIKE account.* #+ #+ @returnType - INTEGER, STRING #+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error PUBLIC FUNCTION smarmotech_dbxconstraints_account_checkTableConstraints(p_forUpdate, p_data) DEFINE p_forUpdate BOOLEAN DEFINE p_data RECORD LIKE account.* DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE l_errNo INTEGER DEFINE l_errMsg STRING LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL CALL smarmotech_dbxconstraints_account_userid_checkColumnConstraints(p_data.userid) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_account_email_checkColumnConstraints(p_data.email) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_account_firstname_checkColumnConstraints(p_data.firstname) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_account_lastname_checkColumnConstraints(p_data.lastname) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_account_status_checkColumnConstraints(p_data.status) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_account_addr1_checkColumnConstraints(p_data.addr1) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_account_addr2_checkColumnConstraints(p_data.addr2) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_account_city_checkColumnConstraints(p_data.city) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_account_state_checkColumnConstraints(p_data.state) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_account_zip_checkColumnConstraints(p_data.zip) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_account_country_checkColumnConstraints(p_data.country) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_account_phone_checkColumnConstraints(p_data.phone) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_account_langpref_checkColumnConstraints(p_data.langpref) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_account_favcategory_checkColumnConstraints(p_data.favcategory) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_account_mylistopt_checkColumnConstraints(p_data.mylistopt) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_account_banneropt_checkColumnConstraints(p_data.banneropt) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg CALL smarmotech_dbxconstraints_account_sourceapp_checkColumnConstraints(p_data.sourceapp) RETURNING l_errNo, l_errMsg CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.account_checkTableConstraints {<BLOCK Name="fct.account_userid_checkColumnConstraints">} #+ Check constraints on the "account.userid" column #+ #+ @param p_userid - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_account_userid_checkColumnConstraints(p_userid) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_userid LIKE account.userid LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_userid IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- userid: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.account_userid_checkColumnConstraints {<BLOCK Name="fct.account_email_checkColumnConstraints">} #+ Check constraints on the "account.email" column #+ #+ @param p_email - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_account_email_checkColumnConstraints(p_email) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_email LIKE account.email LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_email IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- email: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.account_email_checkColumnConstraints {<BLOCK Name="fct.account_firstname_checkColumnConstraints">} #+ Check constraints on the "account.firstname" column #+ #+ @param p_firstname - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_account_firstname_checkColumnConstraints(p_firstname) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_firstname LIKE account.firstname LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_firstname IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- firstname: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.account_firstname_checkColumnConstraints {<BLOCK Name="fct.account_lastname_checkColumnConstraints">} #+ Check constraints on the "account.lastname" column #+ #+ @param p_lastname - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_account_lastname_checkColumnConstraints(p_lastname) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_lastname LIKE account.lastname LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_lastname IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- lastname: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.account_lastname_checkColumnConstraints {<BLOCK Name="fct.account_status_checkColumnConstraints">} #+ Check constraints on the "account.status" column #+ #+ @param p_status - CHAR(2) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_account_status_checkColumnConstraints(p_status) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_status LIKE account.status LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.account_status_checkColumnConstraints {<BLOCK Name="fct.account_addr1_checkColumnConstraints">} #+ Check constraints on the "account.addr1" column #+ #+ @param p_addr1 - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_account_addr1_checkColumnConstraints(p_addr1) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_addr1 LIKE account.addr1 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_addr1 IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- addr1: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.account_addr1_checkColumnConstraints {<BLOCK Name="fct.account_addr2_checkColumnConstraints">} #+ Check constraints on the "account.addr2" column #+ #+ @param p_addr2 - CHAR(40) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_account_addr2_checkColumnConstraints(p_addr2) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_addr2 LIKE account.addr2 LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.account_addr2_checkColumnConstraints {<BLOCK Name="fct.account_city_checkColumnConstraints">} #+ Check constraints on the "account.city" column #+ #+ @param p_city - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_account_city_checkColumnConstraints(p_city) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_city LIKE account.city LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_city IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- city: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.account_city_checkColumnConstraints {<BLOCK Name="fct.account_state_checkColumnConstraints">} #+ Check constraints on the "account.state" column #+ #+ @param p_state - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_account_state_checkColumnConstraints(p_state) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_state LIKE account.state LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.account_state_checkColumnConstraints {<BLOCK Name="fct.account_zip_checkColumnConstraints">} #+ Check constraints on the "account.zip" column #+ #+ @param p_zip - CHAR(20) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_account_zip_checkColumnConstraints(p_zip) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_zip LIKE account.zip LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_zip IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- zip: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.account_zip_checkColumnConstraints {<BLOCK Name="fct.account_country_checkColumnConstraints">} #+ Check constraints on the "account.country" column #+ #+ @param p_country - CHAR(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_account_country_checkColumnConstraints(p_country) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_country LIKE account.country LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_country IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- country: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.account_country_checkColumnConstraints {<BLOCK Name="fct.account_phone_checkColumnConstraints">} #+ Check constraints on the "account.phone" column #+ #+ @param p_phone - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_account_phone_checkColumnConstraints(p_phone) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_phone LIKE account.phone LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_phone IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- phone: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.account_phone_checkColumnConstraints {<BLOCK Name="fct.account_langpref_checkColumnConstraints">} #+ Check constraints on the "account.langpref" column #+ #+ @param p_langpref - CHAR(80) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_account_langpref_checkColumnConstraints(p_langpref) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_langpref LIKE account.langpref LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_langpref IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- langpref: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.account_langpref_checkColumnConstraints {<BLOCK Name="fct.account_favcategory_checkColumnConstraints">} #+ Check constraints on the "account.favcategory" column #+ #+ @param p_favcategory - CHAR(10) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_account_favcategory_checkColumnConstraints(p_favcategory) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_favcategory LIKE account.favcategory LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.account_favcategory_checkColumnConstraints {<BLOCK Name="fct.account_mylistopt_checkColumnConstraints">} #+ Check constraints on the "account.mylistopt" column #+ #+ @param p_mylistopt - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_account_mylistopt_checkColumnConstraints(p_mylistopt) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_mylistopt LIKE account.mylistopt LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.account_mylistopt_checkColumnConstraints {<BLOCK Name="fct.account_banneropt_checkColumnConstraints">} #+ Check constraints on the "account.banneropt" column #+ #+ @param p_banneropt - INTEGER - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_account_banneropt_checkColumnConstraints(p_banneropt) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_banneropt LIKE account.banneropt LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.account_banneropt_checkColumnConstraints {<BLOCK Name="fct.account_sourceapp_checkColumnConstraints">} #+ Check constraints on the "account.sourceapp" column #+ #+ @param p_sourceapp - CHAR(3) - #+ #+ @returnType - INTEGER #+ @return - ERROR_SUCCESS|ERROR_FAILURE PUBLIC FUNCTION smarmotech_dbxconstraints_account_sourceapp_checkColumnConstraints(p_sourceapp) DEFINE errNo INTEGER DEFINE errMsg STRING DEFINE p_sourceapp LIKE account.sourceapp LET errNo = ERROR_SUCCESS INITIALIZE errMsg TO NULL IF p_sourceapp IS NULL THEN CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- sourceapp: " || ERROR_BAM_00001) RETURNING errNo, errMsg END IF RETURN errNo, errMsg END FUNCTION {</BLOCK>} --fct.account_sourceapp_checkColumnConstraints -------------------------------------------------------------------------------- --Add user functions {<POINT Name="user.functions">} {</POINT>}