Commit inicial: fuentes MBS ERP (Genero 6) + .gitignore + docs/SETUP_PC_MBS.md

.gitignore

@@ -0,0 +1,46 @@
+# ============================================================
+#  MBS ERP - .gitignore (Genero 6 / Genero Studio)
+#  El repo lleva SOLO fuentes. Lo compilado se regenera.
+# ============================================================
+
+# ── Compilados Genero (se regeneran al compilar) ──
+*.42?
+*.42m
+*.42r
+*.42f
+*.42x
+*.42s
+*.4ec
+*.4pdb
+*.rdd
+
+# ── Cachés / estado local de Genero Studio (por PC/usuario) ──
+*.4pwcfg
+*.4pwvs
+*.4pwdb
+
+# ── Base SQLite de plantilla / temporales de BD ──
+mydatabase.db
+*.4dbx
+
+# ── Respaldos y temporales ──
+*.orig
+*.orig-*
+*.bak
+*.old
+*.tmp
+*~
+
+# ── Logs de ejecución ──
+*.log
+
+# ── Documentos (no son fuente; uno tiene caracter ilegal que rompe el clone) ──
+*.pdf
+
+# ── Sistema operativo ──
+Thumbs.db
+desktop.ini
+.DS_Store
+
+# NOTA: se CONSERVAN en el repo -> *.4gl *.per *.4fd *.4pw *.4st *.4ad
+#       *.sch *.4db (esquema), imagenes (*.png *.jpg), README, docs.

DATABASE/buzon.4db

@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8" ?>
+<Schema gstVersion="3140a" id="{673d64c9-54a0-4b91-a455-1bca8ef97c97}" version="4.0">
+  <AGSettings version="1.1">
+    <DynamicProperties version="2">
+      <DynamicProperty description="Associated label when generating form" initialValue="" isDefaultInherited="false" isHidden="false" label="Label" name="label" readOnly="false" type="TEXT"/>
+      <DynamicProperty description="Associated widget" editorInfo="contains:ButtonEdit|CheckBox|ComboBox|DateEdit|DateTimeEdit|Edit|FFImage|FFLabel|Field|Phantom|ProgressBar|RadioGroup|Slider|SpinEdit|TextEdit|TimeEdit" initialValue="Edit" isDefaultInherited="false" isHidden="false" label="Widget" name="widget" readOnly="false" type="ENUM"/>
+      <DynamicPropertyGroup collapsed="false" description="Formfied properties" label="Formfield" name="formfieldGroup" properties="label;widget"/>
+    </DynamicProperties>
+    <NodeInfos version="1">
+      <NodeInfo mimeType="db/column" properties="widget;label"/>
+    </NodeInfos>
+  </AGSettings>
+  <ExtractionSettings last="Microsoft SQL Server">
+    <ExtractionOptions casens="LowerCase" cvmeth="AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" ignerr="true" systab="false" type="Microsoft SQL Server"/>
+  </ExtractionSettings>
+</Schema>

DATABASE/dbdgii.4gl

@@ -0,0 +1,11 @@
+IMPORT FGL libdbappCore
+
+IMPORT FGL libdbappEvents
+IMPORT FGL dbdgii_common
+
+--------------------------------------------------------------------------------
+--Database schema
+SCHEMA dbdgii
+
+-- Declare your PUBLIC module variables here.
+PUBLIC DEFINE dlgCtrlInstruction libdbappEvents.DlgCtrlInstruction_Type

DATABASE/dbdgii.code

@@ -0,0 +1,732 @@
+{<CODEFILE version="1.0" encoding="CP1252">}
+{<SOURCEFILE name="dbdgii_dbxconstraints.4gl" hash="5jaoc9lxdEF8t+d1/ak0sQ==">}
+{<USERCODE>}
+{<POINT Name="user.comments" Status="MODIFIED">}
+{</POINT>}
+{<POINT Name="import" Status="MODIFIED">}
+{</POINT>}
+{<BLOCK Name="fct.empresastmp_checkTableConstraints" Status="MODIFIED">}
+#+ Check constraints on the "empresastmp" table
+#+
+#+ @param p_data - a row data LIKE empresastmp.*
+#+
+#+ @returnType - INTEGER, STRING
+#+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error
+PUBLIC FUNCTION dbdgii_dbxconstraints_empresastmp_checkTableConstraints(p_forUpdate, p_data)
+  DEFINE p_forUpdate BOOLEAN
+  DEFINE p_data RECORD LIKE empresastmp.*
+  DEFINE errNo INTEGER
+  DEFINE errMsg STRING
+  DEFINE l_errNo INTEGER
+  DEFINE l_errMsg STRING
+
+  LET errNo = ERROR_SUCCESS
+  INITIALIZE errMsg TO NULL
+
+  CALL dbdgii_dbxconstraints_empresastmp_rnc_checkColumnConstraints(p_data.rnc) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+  CALL dbdgii_dbxconstraints_empresastmp_razon_social_checkColumnConstraints(p_data.razon_social) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+  CALL dbdgii_dbxconstraints_empresastmp_nombre_empresa_checkColumnConstraints(p_data.nombre_empresa) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+  CALL dbdgii_dbxconstraints_empresastmp_actividad_checkColumnConstraints(p_data.actividad) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+  CALL dbdgii_dbxconstraints_empresastmp_calle_checkColumnConstraints(p_data.calle) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+  CALL dbdgii_dbxconstraints_empresastmp_no_local_checkColumnConstraints(p_data.no_local) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+  CALL dbdgii_dbxconstraints_empresastmp_sector_checkColumnConstraints(p_data.sector) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+  CALL dbdgii_dbxconstraints_empresastmp_telefono_checkColumnConstraints(p_data.telefono) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+  CALL dbdgii_dbxconstraints_empresastmp_fecha_inicio_checkColumnConstraints(p_data.fecha_inicio) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+  CALL dbdgii_dbxconstraints_empresastmp_estado1_checkColumnConstraints(p_data.estado1) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+  CALL dbdgii_dbxconstraints_empresastmp_estado2_checkColumnConstraints(p_data.estado2) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+
+  CALL dbdgii_dbxconstraints_empresastmp_pk_empresastmp_checkUniqueConstraint(p_forUpdate, p_data.rnc) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+
+  RETURN errNo, errMsg
+END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresastmp_pk_empresastmp_checkUniqueConstraint" Status="MODIFIED">}
+#+ Check the primary key uniqueness constraint on the "empresastmp"
+#+
+#+ @param p_key - Primary Key
+#+
+#+ @returnType - INTEGER
+#+ @return - ERROR_SUCCESS|ERROR_FAILURE
+PUBLIC FUNCTION dbdgii_dbxconstraints_empresastmp_pk_empresastmp_checkUniqueConstraint(p_forUpdate, p_key)
+  DEFINE errNo INTEGER
+  DEFINE errMsg STRING
+  DEFINE p_forUpdate BOOLEAN
+  DEFINE p_key
+    RECORD
+      empresastmp_rnc LIKE empresastmp.rnc
+    END RECORD
+  DEFINE l_key
+    RECORD
+      empresastmp_rnc LIKE empresastmp.rnc
+    END RECORD
+  DEFINE l_where STRING
+  DEFINE l_sqlQuery STRING
+  DEFINE l_count INTEGER
+
+  LET errNo = ERROR_SUCCESS
+  INITIALIZE errMsg TO NULL
+
+  LET l_where = "WHERE empresastmp.rnc = ? "
+
+  let l_sqlQuery = "SELECT COUNT(*), rnc FROM empresastmp ", l_where, " GROUP BY rnc"
+
+  PREPARE cur_empresastmp_pk_empresastmp_checkUniqueConstraint FROM l_sqlQuery
+  EXECUTE cur_empresastmp_pk_empresastmp_checkUniqueConstraint INTO l_count, l_key.* USING p_key.*
+  FREE cur_empresastmp_pk_empresastmp_checkUniqueConstraint
+  IF (NOT p_forUpdate AND l_count > 0) OR (p_forUpdate AND l_count > 0 AND p_key.* != l_key.*) THEN
+    CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- rnc: " || ERROR_BAM_00002) RETURNING errNo, errMsg
+  END IF
+
+  RETURN errNo, errMsg
+END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresastmp_rnc_checkColumnConstraints" Status="MODIFIED">}
+#+ Check constraints on the "empresastmp.rnc" column
+#+
+#+ @param p_rnc - CHAR(11) -
+#+
+#+ @returnType - INTEGER
+#+ @return - ERROR_SUCCESS|ERROR_FAILURE
+PUBLIC FUNCTION dbdgii_dbxconstraints_empresastmp_rnc_checkColumnConstraints(p_rnc)
+  DEFINE errNo INTEGER
+  DEFINE errMsg STRING
+  DEFINE p_rnc LIKE empresastmp.rnc
+
+  LET errNo = ERROR_SUCCESS
+  INITIALIZE errMsg TO NULL
+
+  IF p_rnc IS NULL THEN
+    CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- rnc: " || ERROR_BAM_00001) RETURNING errNo, errMsg
+  END IF
+
+  RETURN errNo, errMsg
+END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresas_checkTableConstraints" Status="MODIFIED">}
+#+ Check constraints on the "empresas" table
+#+
+#+ @param p_data - a row data LIKE empresas.*
+#+
+#+ @returnType - INTEGER, STRING
+#+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error
+PUBLIC FUNCTION dbdgii_dbxconstraints_empresas_checkTableConstraints(p_forUpdate, p_data)
+  DEFINE p_forUpdate BOOLEAN
+  DEFINE p_data RECORD LIKE empresas.*
+  DEFINE errNo INTEGER
+  DEFINE errMsg STRING
+  DEFINE l_errNo INTEGER
+  DEFINE l_errMsg STRING
+
+  LET errNo = ERROR_SUCCESS
+  INITIALIZE errMsg TO NULL
+
+  CALL dbdgii_dbxconstraints_empresas_rnc_checkColumnConstraints(p_data.rnc) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+  CALL dbdgii_dbxconstraints_empresas_razon_social_checkColumnConstraints(p_data.razon_social) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+  CALL dbdgii_dbxconstraints_empresas_nombre_empresa_checkColumnConstraints(p_data.nombre_empresa) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+  CALL dbdgii_dbxconstraints_empresas_actividad_checkColumnConstraints(p_data.actividad) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+  CALL dbdgii_dbxconstraints_empresas_calle_checkColumnConstraints(p_data.calle) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+  CALL dbdgii_dbxconstraints_empresas_no_local_checkColumnConstraints(p_data.no_local) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+  CALL dbdgii_dbxconstraints_empresas_sector_checkColumnConstraints(p_data.sector) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+  CALL dbdgii_dbxconstraints_empresas_telefono_checkColumnConstraints(p_data.telefono) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+  CALL dbdgii_dbxconstraints_empresas_fecha_inicio_checkColumnConstraints(p_data.fecha_inicio) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+  CALL dbdgii_dbxconstraints_empresas_estado1_checkColumnConstraints(p_data.estado1) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+  CALL dbdgii_dbxconstraints_empresas_estado2_checkColumnConstraints(p_data.estado2) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+
+  RETURN errNo, errMsg
+END FUNCTION
+{</BLOCK>}
+{<POINT Name="user.functions" Status="MODIFIED">}
+{</POINT>}
+
+{</USERCODE>}
+{<LOSTCODE>}
+{<BLOCK Name="fct.empresas_actividad_checkColumnConstraints" Status="LOST">}
+-- #+ Check constraints on the "empresas.actividad" column
+-- #+
+-- #+ @param p_actividad - CHAR(100) -
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxconstraints_empresas_actividad_checkColumnConstraints(p_actividad)
+--   DEFINE errNo INTEGER
+--   DEFINE errMsg STRING
+--   DEFINE p_actividad LIKE empresas.actividad
+-- 
+--   LET errNo = ERROR_SUCCESS
+--   INITIALIZE errMsg TO NULL
+-- 
+--   RETURN errNo, errMsg
+-- END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresas_calle_checkColumnConstraints" Status="LOST">}
+-- #+ Check constraints on the "empresas.calle" column
+-- #+
+-- #+ @param p_calle - CHAR(100) -
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxconstraints_empresas_calle_checkColumnConstraints(p_calle)
+--   DEFINE errNo INTEGER
+--   DEFINE errMsg STRING
+--   DEFINE p_calle LIKE empresas.calle
+-- 
+--   LET errNo = ERROR_SUCCESS
+--   INITIALIZE errMsg TO NULL
+-- 
+--   RETURN errNo, errMsg
+-- END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresas_estado1_checkColumnConstraints" Status="LOST">}
+-- #+ Check constraints on the "empresas.estado1" column
+-- #+
+-- #+ @param p_estado1 - CHAR(15) -
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxconstraints_empresas_estado1_checkColumnConstraints(p_estado1)
+--   DEFINE errNo INTEGER
+--   DEFINE errMsg STRING
+--   DEFINE p_estado1 LIKE empresas.estado1
+-- 
+--   LET errNo = ERROR_SUCCESS
+--   INITIALIZE errMsg TO NULL
+-- 
+--   RETURN errNo, errMsg
+-- END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresas_estado2_checkColumnConstraints" Status="LOST">}
+-- #+ Check constraints on the "empresas.estado2" column
+-- #+
+-- #+ @param p_estado2 - CHAR(15) -
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxconstraints_empresas_estado2_checkColumnConstraints(p_estado2)
+--   DEFINE errNo INTEGER
+--   DEFINE errMsg STRING
+--   DEFINE p_estado2 LIKE empresas.estado2
+-- 
+--   LET errNo = ERROR_SUCCESS
+--   INITIALIZE errMsg TO NULL
+-- 
+--   RETURN errNo, errMsg
+-- END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresas_fecha_inicio_checkColumnConstraints" Status="LOST">}
+-- #+ Check constraints on the "empresas.fecha_inicio" column
+-- #+
+-- #+ @param p_fecha_inicio - CHAR(10) -
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxconstraints_empresas_fecha_inicio_checkColumnConstraints(p_fecha_inicio)
+--   DEFINE errNo INTEGER
+--   DEFINE errMsg STRING
+--   DEFINE p_fecha_inicio LIKE empresas.fecha_inicio
+-- 
+--   LET errNo = ERROR_SUCCESS
+--   INITIALIZE errMsg TO NULL
+-- 
+--   RETURN errNo, errMsg
+-- END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresas_no_local_checkColumnConstraints" Status="LOST">}
+-- #+ Check constraints on the "empresas.no_local" column
+-- #+
+-- #+ @param p_no_local - CHAR(10) -
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxconstraints_empresas_no_local_checkColumnConstraints(p_no_local)
+--   DEFINE errNo INTEGER
+--   DEFINE errMsg STRING
+--   DEFINE p_no_local LIKE empresas.no_local
+-- 
+--   LET errNo = ERROR_SUCCESS
+--   INITIALIZE errMsg TO NULL
+-- 
+--   RETURN errNo, errMsg
+-- END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresas_nombre_empresa_checkColumnConstraints" Status="LOST">}
+-- #+ Check constraints on the "empresas.nombre_empresa" column
+-- #+
+-- #+ @param p_nombre_empresa - CHAR(100) -
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxconstraints_empresas_nombre_empresa_checkColumnConstraints(p_nombre_empresa)
+--   DEFINE errNo INTEGER
+--   DEFINE errMsg STRING
+--   DEFINE p_nombre_empresa LIKE empresas.nombre_empresa
+-- 
+--   LET errNo = ERROR_SUCCESS
+--   INITIALIZE errMsg TO NULL
+-- 
+--   RETURN errNo, errMsg
+-- END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresas_razon_social_checkColumnConstraints" Status="LOST">}
+-- #+ Check constraints on the "empresas.razon_social" column
+-- #+
+-- #+ @param p_razon_social - CHAR(100) -
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxconstraints_empresas_razon_social_checkColumnConstraints(p_razon_social)
+--   DEFINE errNo INTEGER
+--   DEFINE errMsg STRING
+--   DEFINE p_razon_social LIKE empresas.razon_social
+-- 
+--   LET errNo = ERROR_SUCCESS
+--   INITIALIZE errMsg TO NULL
+-- 
+--   RETURN errNo, errMsg
+-- END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresas_rnc_checkColumnConstraints" Status="LOST">}
+-- #+ Check constraints on the "empresas.rnc" column
+-- #+
+-- #+ @param p_rnc - CHAR(11) -
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxconstraints_empresas_rnc_checkColumnConstraints(p_rnc)
+--   DEFINE errNo INTEGER
+--   DEFINE errMsg STRING
+--   DEFINE p_rnc LIKE empresas.rnc
+-- 
+--   LET errNo = ERROR_SUCCESS
+--   INITIALIZE errMsg TO NULL
+-- 
+--   RETURN errNo, errMsg
+-- END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresas_sector_checkColumnConstraints" Status="LOST">}
+-- #+ Check constraints on the "empresas.sector" column
+-- #+
+-- #+ @param p_sector - CHAR(100) -
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxconstraints_empresas_sector_checkColumnConstraints(p_sector)
+--   DEFINE errNo INTEGER
+--   DEFINE errMsg STRING
+--   DEFINE p_sector LIKE empresas.sector
+-- 
+--   LET errNo = ERROR_SUCCESS
+--   INITIALIZE errMsg TO NULL
+-- 
+--   RETURN errNo, errMsg
+-- END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresas_telefono_checkColumnConstraints" Status="LOST">}
+-- #+ Check constraints on the "empresas.telefono" column
+-- #+
+-- #+ @param p_telefono - CHAR(15) -
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxconstraints_empresas_telefono_checkColumnConstraints(p_telefono)
+--   DEFINE errNo INTEGER
+--   DEFINE errMsg STRING
+--   DEFINE p_telefono LIKE empresas.telefono
+-- 
+--   LET errNo = ERROR_SUCCESS
+--   INITIALIZE errMsg TO NULL
+-- 
+--   RETURN errNo, errMsg
+-- END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresastmp_actividad_checkColumnConstraints" Status="LOST">}
+-- #+ Check constraints on the "empresastmp.actividad" column
+-- #+
+-- #+ @param p_actividad - CHAR(100) -
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxconstraints_empresastmp_actividad_checkColumnConstraints(p_actividad)
+--   DEFINE errNo INTEGER
+--   DEFINE errMsg STRING
+--   DEFINE p_actividad LIKE empresastmp.actividad
+-- 
+--   LET errNo = ERROR_SUCCESS
+--   INITIALIZE errMsg TO NULL
+-- 
+--   RETURN errNo, errMsg
+-- END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresastmp_calle_checkColumnConstraints" Status="LOST">}
+-- #+ Check constraints on the "empresastmp.calle" column
+-- #+
+-- #+ @param p_calle - CHAR(100) -
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxconstraints_empresastmp_calle_checkColumnConstraints(p_calle)
+--   DEFINE errNo INTEGER
+--   DEFINE errMsg STRING
+--   DEFINE p_calle LIKE empresastmp.calle
+-- 
+--   LET errNo = ERROR_SUCCESS
+--   INITIALIZE errMsg TO NULL
+-- 
+--   RETURN errNo, errMsg
+-- END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresastmp_estado1_checkColumnConstraints" Status="LOST">}
+-- #+ Check constraints on the "empresastmp.estado1" column
+-- #+
+-- #+ @param p_estado1 - CHAR(15) -
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxconstraints_empresastmp_estado1_checkColumnConstraints(p_estado1)
+--   DEFINE errNo INTEGER
+--   DEFINE errMsg STRING
+--   DEFINE p_estado1 LIKE empresastmp.estado1
+-- 
+--   LET errNo = ERROR_SUCCESS
+--   INITIALIZE errMsg TO NULL
+-- 
+--   RETURN errNo, errMsg
+-- END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresastmp_estado2_checkColumnConstraints" Status="LOST">}
+-- #+ Check constraints on the "empresastmp.estado2" column
+-- #+
+-- #+ @param p_estado2 - CHAR(15) -
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxconstraints_empresastmp_estado2_checkColumnConstraints(p_estado2)
+--   DEFINE errNo INTEGER
+--   DEFINE errMsg STRING
+--   DEFINE p_estado2 LIKE empresastmp.estado2
+-- 
+--   LET errNo = ERROR_SUCCESS
+--   INITIALIZE errMsg TO NULL
+-- 
+--   RETURN errNo, errMsg
+-- END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresastmp_fecha_inicio_checkColumnConstraints" Status="LOST">}
+-- #+ Check constraints on the "empresastmp.fecha_inicio" column
+-- #+
+-- #+ @param p_fecha_inicio - CHAR(10) -
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxconstraints_empresastmp_fecha_inicio_checkColumnConstraints(p_fecha_inicio)
+--   DEFINE errNo INTEGER
+--   DEFINE errMsg STRING
+--   DEFINE p_fecha_inicio LIKE empresastmp.fecha_inicio
+-- 
+--   LET errNo = ERROR_SUCCESS
+--   INITIALIZE errMsg TO NULL
+-- 
+--   RETURN errNo, errMsg
+-- END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresastmp_no_local_checkColumnConstraints" Status="LOST">}
+-- #+ Check constraints on the "empresastmp.no_local" column
+-- #+
+-- #+ @param p_no_local - CHAR(10) -
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxconstraints_empresastmp_no_local_checkColumnConstraints(p_no_local)
+--   DEFINE errNo INTEGER
+--   DEFINE errMsg STRING
+--   DEFINE p_no_local LIKE empresastmp.no_local
+-- 
+--   LET errNo = ERROR_SUCCESS
+--   INITIALIZE errMsg TO NULL
+-- 
+--   RETURN errNo, errMsg
+-- END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresastmp_nombre_empresa_checkColumnConstraints" Status="LOST">}
+-- #+ Check constraints on the "empresastmp.nombre_empresa" column
+-- #+
+-- #+ @param p_nombre_empresa - CHAR(100) -
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxconstraints_empresastmp_nombre_empresa_checkColumnConstraints(p_nombre_empresa)
+--   DEFINE errNo INTEGER
+--   DEFINE errMsg STRING
+--   DEFINE p_nombre_empresa LIKE empresastmp.nombre_empresa
+-- 
+--   LET errNo = ERROR_SUCCESS
+--   INITIALIZE errMsg TO NULL
+-- 
+--   RETURN errNo, errMsg
+-- END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresastmp_razon_social_checkColumnConstraints" Status="LOST">}
+-- #+ Check constraints on the "empresastmp.razon_social" column
+-- #+
+-- #+ @param p_razon_social - CHAR(100) -
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxconstraints_empresastmp_razon_social_checkColumnConstraints(p_razon_social)
+--   DEFINE errNo INTEGER
+--   DEFINE errMsg STRING
+--   DEFINE p_razon_social LIKE empresastmp.razon_social
+-- 
+--   LET errNo = ERROR_SUCCESS
+--   INITIALIZE errMsg TO NULL
+-- 
+--   RETURN errNo, errMsg
+-- END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresastmp_sector_checkColumnConstraints" Status="LOST">}
+-- #+ Check constraints on the "empresastmp.sector" column
+-- #+
+-- #+ @param p_sector - CHAR(100) -
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxconstraints_empresastmp_sector_checkColumnConstraints(p_sector)
+--   DEFINE errNo INTEGER
+--   DEFINE errMsg STRING
+--   DEFINE p_sector LIKE empresastmp.sector
+-- 
+--   LET errNo = ERROR_SUCCESS
+--   INITIALIZE errMsg TO NULL
+-- 
+--   RETURN errNo, errMsg
+-- END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresastmp_telefono_checkColumnConstraints" Status="LOST">}
+-- #+ Check constraints on the "empresastmp.telefono" column
+-- #+
+-- #+ @param p_telefono - CHAR(15) -
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxconstraints_empresastmp_telefono_checkColumnConstraints(p_telefono)
+--   DEFINE errNo INTEGER
+--   DEFINE errMsg STRING
+--   DEFINE p_telefono LIKE empresastmp.telefono
+-- 
+--   LET errNo = ERROR_SUCCESS
+--   INITIALIZE errMsg TO NULL
+-- 
+--   RETURN errNo, errMsg
+-- END FUNCTION
+{</BLOCK>}
+
+{</LOSTCODE>}
+{</SOURCEFILE>}
+{<SOURCEFILE name="dbdgii_dbxdata.4gl" hash="javWTIEHtIq+N8lJFwImXA==">}
+{<USERCODE>}
+{<POINT Name="user.comments" Status="MODIFIED">}
+{</POINT>}
+{<POINT Name="import" Status="MODIFIED">}
+{</POINT>}
+{<BLOCK Name="fct.empresastmp_insertRowByKey" Status="MODIFIED">}
+#+ Insert a row in the "empresastmp" table and return the primary key created
+#+
+#+ @param p_data - a row data LIKE empresastmp.*
+#+
+#+ @returnType - INTEGER, CHAR(11)
+#+ @return - ERROR_SUCCESS|ERROR_FAILURE, empresastmp.rnc
+PUBLIC FUNCTION dbdgii_dbxdata_empresastmp_insertRowByKey(p_data)
+  DEFINE p_data RECORD LIKE empresastmp.*
+  DEFINE errNo INTEGER
+  DEFINE errMsg STRING
+
+  LET errNo = libdbapp_begin_work()
+  IF errNo == ERROR_SUCCESS THEN
+    CALL dbdgii_dbxconstraints.dbdgii_dbxconstraints_empresastmp_checkTableConstraints(FALSE, p_data.*) RETURNING errNo, errMsg
+    IF errNo == ERROR_SUCCESS THEN
+      TRY
+        INSERT INTO empresastmp VALUES (p_data.*)
+      CATCH
+        LET errNo = ERROR_FAILURE
+      END TRY
+    END IF
+    IF errNo == ERROR_SUCCESS THEN
+      LET errNo = libdbapp_commit_work()
+    ELSE
+      CALL libdbapp_rollback_work()
+    END IF
+  END IF
+  RETURN errNo, errMsg, p_data.rnc
+END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresastmp_setDefaultValuesFromDBSchema" Status="MODIFIED">}
+#+ Set data with the default values coming from the DB schema
+#+
+PUBLIC FUNCTION dbdgii_dbxdata_empresastmp_setDefaultValuesFromDBSchema()
+  DEFINE l_data RECORD LIKE empresastmp.*
+
+  INITIALIZE l_data.* TO NULL
+  LET l_data.rnc = ""
+  LET l_data.razon_social = ""
+  LET l_data.nombre_empresa = ""
+  LET l_data.actividad = ""
+  LET l_data.calle = ""
+  LET l_data.no_local = ""
+  LET l_data.sector = ""
+  LET l_data.telefono = ""
+  LET l_data.fecha_inicio = ""
+  LET l_data.estado1 = ""
+  LET l_data.estado2 = ""
+
+  RETURN l_data.*
+END FUNCTION
+{</BLOCK>}
+{<POINT Name="user.functions" Status="MODIFIED">}
+{</POINT>}
+
+{</USERCODE>}
+{<LOSTCODE>}
+{<BLOCK Name="fct.empresastmp_deleteRowByKey" Status="LOST">}
+-- #+ Delete a row identified by the primary key in the "empresastmp" table
+-- #+
+-- #+ @param p_key - Primary Key
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxdata_empresastmp_deleteRowByKey(p_key)
+--   DEFINE p_key
+--     RECORD
+--       empresastmp_rnc LIKE empresastmp.rnc
+--     END RECORD
+--   DEFINE errNo INTEGER
+-- 
+--   LET errNo = libdbapp_begin_work()
+--   IF errNo == ERROR_SUCCESS THEN
+--     TRY
+--       DELETE FROM empresastmp
+--         WHERE empresastmp.rnc = p_key.empresastmp_rnc
+--     CATCH
+--       LET errNo = ERROR_FAILURE
+--     END TRY
+--   END IF
+--   IF errNo == ERROR_SUCCESS THEN
+--     LET errNo = libdbapp_commit_work()
+--   ELSE
+--     CALL libdbapp_rollback_work()
+--   END IF
+-- 
+--   RETURN errNo
+-- END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresastmp_selectRowByKey" Status="LOST">}
+-- #+ Select a row identified by the primary key in the "empresastmp" table
+-- #+
+-- #+ @param p_key - Primary Key
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE, l_data
+-- PUBLIC FUNCTION dbdgii_dbxdata_empresastmp_selectRowByKey(p_key)
+--   DEFINE p_key
+--     RECORD
+--       empresastmp_rnc LIKE empresastmp.rnc
+--     END RECORD
+--   DEFINE l_data RECORD LIKE empresastmp.*
+--   DEFINE errNo INTEGER
+-- 
+--   INITIALIZE l_data.* TO NULL
+--   LET errNo = ERROR_SUCCESS
+--   TRY
+--     SELECT * INTO l_data.* FROM empresastmp
+--     WHERE empresastmp.rnc = p_key.empresastmp_rnc
+--   CATCH
+--     INITIALIZE l_data.* TO NULL
+--     LET errNo = ERROR_FAILURE
+--   END TRY
+-- 
+--   RETURN errNo, l_data.*
+-- END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresastmp_updateRowByKey" Status="LOST">}
+-- #+ Update a row identified by the primary key in the "empresastmp" table
+-- #+
+-- #+ @param p_key - Primary Key
+-- #+ @param p_dataT0 - a row data LIKE empresastmp.*
+-- #+ @param p_dataT1 - a row data LIKE empresastmp.*
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxdata_empresastmp_updateRowByKey(p_key, p_dataT0, p_dataT1)
+--   DEFINE p_key
+--     RECORD
+--       empresastmp_rnc LIKE empresastmp.rnc
+--     END RECORD
+--   DEFINE p_dataT0 RECORD LIKE empresastmp.*
+--   DEFINE p_dataT1 RECORD LIKE empresastmp.*
+--   DEFINE l_dataT2 RECORD LIKE empresastmp.*
+--   DEFINE errNo INTEGER
+--   DEFINE errMsg STRING
+--   DEFINE errDiff INTEGER
+-- 
+--   INITIALIZE l_dataT2.* TO NULL
+--   INITIALIZE errMsg TO NULL
+--   LET errDiff = FALSE
+--   LET errNo = libdbapp_begin_work()
+--   IF errNo == ERROR_SUCCESS THEN
+--     TRY
+--       -- Concurrent Access done with the FOR UPDATE (not supported by SQLite)
+--       IF (UPSHIFT(fgl_db_driver_type()) != "SQT") THEN
+--         SELECT * INTO l_dataT2.* FROM empresastmp
+--           WHERE empresastmp.rnc = p_key.empresastmp_rnc
+--         FOR UPDATE
+--         LET errDiff = (p_dataT0.* != l_dataT2.*)
+--       END IF
+-- 
+--       IF NOT errDiff THEN
+--         CALL dbdgii_dbxconstraints.dbdgii_dbxconstraints_empresastmp_checkTableConstraints(TRUE, p_dataT1.*) RETURNING errNo, errMsg
+--         IF errNo == ERROR_SUCCESS THEN
+--           UPDATE empresastmp
+--             SET empresastmp.* = p_dataT1.*
+--             WHERE empresastmp.rnc = p_key.empresastmp_rnc
+--         END IF
+--       ELSE
+--         LET errNo = ERROR_CONCURRENT_ACCESS_FAILURE
+--       END IF
+--     CATCH
+--       LET errNo = ERROR_FAILURE
+--     END TRY
+--     IF errNo == ERROR_SUCCESS THEN
+--       LET errNo = libdbapp_commit_work()
+--     ELSE
+--       CALL libdbapp_rollback_work()
+--     END IF
+--   END IF
+-- 
+--   RETURN errNo, errMsg
+-- END FUNCTION
+{</BLOCK>}
+
+{</LOSTCODE>}
+{</SOURCEFILE>}
+{</CODEFILE>}

DATABASE/dbdgii.xml

@@ -0,0 +1,147 @@
+<?xml version="1.0" encoding="UTF-8" ?>
+<AG version="8" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="http://www.4js.com/ns/gst/3.20/agmodel.xsd">
+  <Database name="dbdgii" schemaFile="C:\Users\egarcia\OneDrive - MARMOTECH, S. A\Equipo Tecnologia\Fuentes\MARMOTECH\DATABASE\dbdgii.4dbx">
+    <Table name="empresastmp">
+      <DBColumn datatype="CHAR(11)" defaultValue="" fglDatatype="CHAR(11)" fglLength="11" length="11" name="rnc" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="rnc"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(100)" defaultValue="" fglDatatype="CHAR(100)" fglLength="100" length="100" name="razon_social" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="razon_social"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(100)" defaultValue="" fglDatatype="CHAR(100)" fglLength="100" length="100" name="nombre_empresa" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="nombre_empresa"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(100)" defaultValue="" fglDatatype="CHAR(100)" fglLength="100" length="100" name="actividad" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="actividad"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(100)" defaultValue="" fglDatatype="CHAR(100)" fglLength="100" length="100" name="calle" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="calle"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(10)" defaultValue="" fglDatatype="CHAR(10)" fglLength="10" length="10" name="no_local" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="no_local"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(100)" defaultValue="" fglDatatype="CHAR(100)" fglLength="100" length="100" name="sector" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="sector"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(15)" defaultValue="" fglDatatype="CHAR(15)" fglLength="15" length="15" name="telefono" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="telefono"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(10)" defaultValue="" fglDatatype="CHAR(10)" fglLength="10" length="10" name="fecha_inicio" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="fecha_inicio"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(15)" defaultValue="" fglDatatype="CHAR(15)" fglLength="15" length="15" name="estado1" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="estado1"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(15)" defaultValue="" fglDatatype="CHAR(15)" fglLength="15" length="15" name="estado2" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="estado2"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBConstraint constraint="primaryKey" name="pk_empresastmp">
+        <Column name="rnc"/>
+      </DBConstraint>
+      <DBIndex name="pk_empresastmp" primary="1" unique="0">
+        <Column name="rnc"/>
+      </DBIndex>
+    </Table>
+    <Table name="empresas">
+      <DBColumn datatype="CHAR(11)" defaultValue="" fglDatatype="CHAR(11)" fglLength="11" length="11" name="rnc" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="rnc"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(100)" defaultValue="" fglDatatype="CHAR(100)" fglLength="100" length="100" name="razon_social" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="razon_social"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(100)" defaultValue="" fglDatatype="CHAR(100)" fglLength="100" length="100" name="nombre_empresa" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="nombre_empresa"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(100)" defaultValue="" fglDatatype="CHAR(100)" fglLength="100" length="100" name="actividad" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="actividad"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(100)" defaultValue="" fglDatatype="CHAR(100)" fglLength="100" length="100" name="calle" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="calle"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(10)" defaultValue="" fglDatatype="CHAR(10)" fglLength="10" length="10" name="no_local" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="no_local"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(100)" defaultValue="" fglDatatype="CHAR(100)" fglLength="100" length="100" name="sector" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="sector"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(15)" defaultValue="" fglDatatype="CHAR(15)" fglLength="15" length="15" name="telefono" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="telefono"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(10)" defaultValue="" fglDatatype="CHAR(10)" fglLength="10" length="10" name="fecha_inicio" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="fecha_inicio"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(15)" defaultValue="" fglDatatype="CHAR(15)" fglLength="15" length="15" name="estado1" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="estado1"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(15)" defaultValue="" fglDatatype="CHAR(15)" fglLength="15" length="15" name="estado2" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="estado2"/>
+        </DynamicProperties>
+      </DBColumn>
+    </Table>
+  </Database>
+</AG>

DATABASE/dbdgii_common.4gl

@@ -0,0 +1,15 @@
+#+ DB schema - Common (dbdgii)
+
+--------------------------------------------------------------------------------
+--This code is generated with the template dbapp5.0
+
+--------------------------------------------------------------------------------
+--Database schema
+SCHEMA dbdgii
+
+-- PRIMARY KEY TYPES - TABLE LEVEL
+
+PUBLIC TYPE empresastmp_pk
+    RECORD
+        empresastmp_rnc LIKE empresastmp.rnc
+    END RECORD

DATABASE/dbdgii_dbxconstraints.4gl

@@ -0,0 +1,605 @@
+{<CODEFILE Path="dbdgii.code" Hash="5jaoc9lxdEF8t+d1/ak0sQ==" />}
+#+ DB schema - Constraints Management (dbdgii)
+
+--------------------------------------------------------------------------------
+--This code is generated with the template dbapp5.0
+--Warning: Enter your changes within a <BLOCK> or <POINT> section, otherwise they will be lost.
+{<POINT Name="user.comments" Status="MODIFIED">}
+{</POINT>}
+
+--------------------------------------------------------------------------------
+--Importing modules
+IMPORT FGL libdbappCore
+
+IMPORT FGL dbdgii
+IMPORT FGL dbdgii_events
+{<POINT Name="import" Status="MODIFIED">}
+{</POINT>}
+
+--------------------------------------------------------------------------------
+--Database schema
+SCHEMA dbdgii
+
+--------------------------------------------------------------------------------
+--Functions
+
+{<BLOCK Name="fct.empresastmp_checkTableConstraints" Status="MODIFIED">}
+#+ Check constraints on the "empresastmp" table
+#+
+#+ @param p_data - a row data LIKE empresastmp.*
+#+
+#+ @returnType - INTEGER, STRING
+#+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error
+PUBLIC FUNCTION dbdgii_dbxconstraints_empresastmp_checkTableConstraints(p_forUpdate, p_data)
+  DEFINE p_forUpdate BOOLEAN
+  DEFINE p_data RECORD LIKE empresastmp.*
+  DEFINE errNo INTEGER
+  DEFINE errMsg STRING
+  DEFINE l_errNo INTEGER
+  DEFINE l_errMsg STRING
+
+  LET errNo = ERROR_SUCCESS
+  INITIALIZE errMsg TO NULL
+
+  CALL dbdgii_dbxconstraints_empresastmp_rnc_checkColumnConstraints(p_data.rnc) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+  CALL dbdgii_dbxconstraints_empresastmp_razon_social_checkColumnConstraints(p_data.razon_social) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+  CALL dbdgii_dbxconstraints_empresastmp_nombre_empresa_checkColumnConstraints(p_data.nombre_empresa) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+  CALL dbdgii_dbxconstraints_empresastmp_actividad_checkColumnConstraints(p_data.actividad) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+  CALL dbdgii_dbxconstraints_empresastmp_calle_checkColumnConstraints(p_data.calle) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+  CALL dbdgii_dbxconstraints_empresastmp_no_local_checkColumnConstraints(p_data.no_local) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+  CALL dbdgii_dbxconstraints_empresastmp_sector_checkColumnConstraints(p_data.sector) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+  CALL dbdgii_dbxconstraints_empresastmp_telefono_checkColumnConstraints(p_data.telefono) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+  CALL dbdgii_dbxconstraints_empresastmp_fecha_inicio_checkColumnConstraints(p_data.fecha_inicio) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+  CALL dbdgii_dbxconstraints_empresastmp_estado1_checkColumnConstraints(p_data.estado1) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+  CALL dbdgii_dbxconstraints_empresastmp_estado2_checkColumnConstraints(p_data.estado2) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+
+  CALL dbdgii_dbxconstraints_empresastmp_pk_empresastmp_checkUniqueConstraint(p_forUpdate, p_data.rnc) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+
+  RETURN errNo, errMsg
+END FUNCTION
+{</BLOCK>} --fct.empresastmp_checkTableConstraints
+
+{<BLOCK Name="fct.empresastmp_pk_empresastmp_checkUniqueConstraint" Status="MODIFIED">}
+#+ Check the primary key uniqueness constraint on the "empresastmp"
+#+
+#+ @param p_key - Primary Key
+#+
+#+ @returnType - INTEGER
+#+ @return - ERROR_SUCCESS|ERROR_FAILURE
+PUBLIC FUNCTION dbdgii_dbxconstraints_empresastmp_pk_empresastmp_checkUniqueConstraint(p_forUpdate, p_key)
+  DEFINE errNo INTEGER
+  DEFINE errMsg STRING
+  DEFINE p_forUpdate BOOLEAN
+  DEFINE p_key
+    RECORD
+      empresastmp_rnc LIKE empresastmp.rnc
+    END RECORD
+  DEFINE l_key
+    RECORD
+      empresastmp_rnc LIKE empresastmp.rnc
+    END RECORD
+  DEFINE l_where STRING
+  DEFINE l_sqlQuery STRING
+  DEFINE l_count INTEGER
+
+  LET errNo = ERROR_SUCCESS
+  INITIALIZE errMsg TO NULL
+
+  LET l_where = "WHERE empresastmp.rnc = ? "
+
+  let l_sqlQuery = "SELECT COUNT(*), rnc FROM empresastmp ", l_where, " GROUP BY rnc"
+
+  PREPARE cur_empresastmp_pk_empresastmp_checkUniqueConstraint FROM l_sqlQuery
+  EXECUTE cur_empresastmp_pk_empresastmp_checkUniqueConstraint INTO l_count, l_key.* USING p_key.*
+  FREE cur_empresastmp_pk_empresastmp_checkUniqueConstraint
+  IF (NOT p_forUpdate AND l_count > 0) OR (p_forUpdate AND l_count > 0 AND p_key.* != l_key.*) THEN
+    CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- rnc: " || ERROR_BAM_00002) RETURNING errNo, errMsg
+  END IF
+
+  RETURN errNo, errMsg
+END FUNCTION
+{</BLOCK>} --fct.empresastmp_pk_empresastmp_checkUniqueConstraint
+
+{<BLOCK Name="fct.empresastmp_rnc_checkColumnConstraints" Status="MODIFIED">}
+#+ Check constraints on the "empresastmp.rnc" column
+#+
+#+ @param p_rnc - CHAR(11) -
+#+
+#+ @returnType - INTEGER
+#+ @return - ERROR_SUCCESS|ERROR_FAILURE
+PUBLIC FUNCTION dbdgii_dbxconstraints_empresastmp_rnc_checkColumnConstraints(p_rnc)
+  DEFINE errNo INTEGER
+  DEFINE errMsg STRING
+  DEFINE p_rnc LIKE empresastmp.rnc
+
+  LET errNo = ERROR_SUCCESS
+  INITIALIZE errMsg TO NULL
+
+  IF p_rnc IS NULL THEN
+    CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- rnc: " || ERROR_BAM_00001) RETURNING errNo, errMsg
+  END IF
+
+  RETURN errNo, errMsg
+END FUNCTION
+{</BLOCK>} --fct.empresastmp_rnc_checkColumnConstraints
+
+{<BLOCK Name="fct.empresastmp_pk_empresastmp_checkFKConstraint">}
+#+ Check the Foreign Key existence constraint on the "empresastmp"
+#+
+#+ @param p_data - Primary Key
+#+
+#+ @returnType INTEGER, STRING
+#+ @return     ERROR_SUCCESS|ERROR_FAILURE, error message
+PUBLIC FUNCTION dbdgii_dbxconstraints_empresastmp_pk_empresastmp_checkFKConstraint(p_data)
+    DEFINE errNo INTEGER
+    DEFINE errMsg STRING
+    DEFINE p_data
+        RECORD
+            empresastmp_rnc LIKE empresastmp.rnc
+        END RECORD
+    DEFINE l_where STRING
+    DEFINE l_sqlQuery STRING
+    DEFINE l_count INTEGER
+    {<POINT Name="fct.empresastmp_pk_empresastmp_checkFKConstraint.define">} {</POINT>}
+
+    LET errNo = ERROR_SUCCESS
+    INITIALIZE errMsg TO NULL
+    IF NOT (p_data.empresastmp_rnc IS NULL) THEN
+        LET l_where = "WHERE empresastmp.rnc = ? "
+        LET l_sqlQuery = "SELECT COUNT(*) FROM empresastmp ", l_where
+        {<POINT Name="fct.empresastmp_pk_empresastmp_checkFKConstraint.init">} {</POINT>}
+        TRY
+            PREPARE cur_empresastmp_pk_empresastmp_checkFKConstraint FROM l_sqlQuery
+            EXECUTE cur_empresastmp_pk_empresastmp_checkFKConstraint USING p_data.* INTO l_count
+            FREE cur_empresastmp_pk_empresastmp_checkFKConstraint
+            IF (l_count == 0) THEN
+                CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- rnc: " || ERROR_BAM_00004) RETURNING errNo, errMsg
+            END IF
+        CATCH
+            LET errNo = ERROR_FAILURE
+        END TRY
+    END IF
+    {<POINT Name="fct.empresastmp_pk_empresastmp_checkFKConstraint.user">} {</POINT>}
+    RETURN errNo, errMsg
+END FUNCTION
+{</BLOCK>} --fct.empresastmp_pk_empresastmp_checkFKConstraint
+
+{<BLOCK Name="fct.empresas_checkTableConstraints" Status="MODIFIED">}
+#+ Check constraints on the "empresas" table
+#+
+#+ @param p_data - a row data LIKE empresas.*
+#+
+#+ @returnType - INTEGER, STRING
+#+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error
+PUBLIC FUNCTION dbdgii_dbxconstraints_empresas_checkTableConstraints(p_forUpdate, p_data)
+  DEFINE p_forUpdate BOOLEAN
+  DEFINE p_data RECORD LIKE empresas.*
+  DEFINE errNo INTEGER
+  DEFINE errMsg STRING
+  DEFINE l_errNo INTEGER
+  DEFINE l_errMsg STRING
+
+  LET errNo = ERROR_SUCCESS
+  INITIALIZE errMsg TO NULL
+
+  CALL dbdgii_dbxconstraints_empresas_rnc_checkColumnConstraints(p_data.rnc) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+  CALL dbdgii_dbxconstraints_empresas_razon_social_checkColumnConstraints(p_data.razon_social) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+  CALL dbdgii_dbxconstraints_empresas_nombre_empresa_checkColumnConstraints(p_data.nombre_empresa) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+  CALL dbdgii_dbxconstraints_empresas_actividad_checkColumnConstraints(p_data.actividad) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+  CALL dbdgii_dbxconstraints_empresas_calle_checkColumnConstraints(p_data.calle) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+  CALL dbdgii_dbxconstraints_empresas_no_local_checkColumnConstraints(p_data.no_local) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+  CALL dbdgii_dbxconstraints_empresas_sector_checkColumnConstraints(p_data.sector) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+  CALL dbdgii_dbxconstraints_empresas_telefono_checkColumnConstraints(p_data.telefono) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+  CALL dbdgii_dbxconstraints_empresas_fecha_inicio_checkColumnConstraints(p_data.fecha_inicio) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+  CALL dbdgii_dbxconstraints_empresas_estado1_checkColumnConstraints(p_data.estado1) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+  CALL dbdgii_dbxconstraints_empresas_estado2_checkColumnConstraints(p_data.estado2) RETURNING l_errNo, l_errMsg
+  CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+
+  RETURN errNo, errMsg
+END FUNCTION
+{</BLOCK>} --fct.empresas_checkTableConstraints
+
+--------------------------------------------------------------------------------
+--Add user functions
+{<POINT Name="user.functions" Status="MODIFIED">}
+{</POINT>}
+{<BLOCK Name="fct.empresas_actividad_checkColumnConstraints" Status="LOST">}
+-- #+ Check constraints on the "empresas.actividad" column
+-- #+
+-- #+ @param p_actividad - CHAR(100) -
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxconstraints_empresas_actividad_checkColumnConstraints(p_actividad)
+--   DEFINE errNo INTEGER
+--   DEFINE errMsg STRING
+--   DEFINE p_actividad LIKE empresas.actividad
+-- 
+--   LET errNo = ERROR_SUCCESS
+--   INITIALIZE errMsg TO NULL
+-- 
+--   RETURN errNo, errMsg
+-- END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresas_calle_checkColumnConstraints" Status="LOST">}
+-- #+ Check constraints on the "empresas.calle" column
+-- #+
+-- #+ @param p_calle - CHAR(100) -
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxconstraints_empresas_calle_checkColumnConstraints(p_calle)
+--   DEFINE errNo INTEGER
+--   DEFINE errMsg STRING
+--   DEFINE p_calle LIKE empresas.calle
+-- 
+--   LET errNo = ERROR_SUCCESS
+--   INITIALIZE errMsg TO NULL
+-- 
+--   RETURN errNo, errMsg
+-- END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresas_estado1_checkColumnConstraints" Status="LOST">}
+-- #+ Check constraints on the "empresas.estado1" column
+-- #+
+-- #+ @param p_estado1 - CHAR(15) -
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxconstraints_empresas_estado1_checkColumnConstraints(p_estado1)
+--   DEFINE errNo INTEGER
+--   DEFINE errMsg STRING
+--   DEFINE p_estado1 LIKE empresas.estado1
+-- 
+--   LET errNo = ERROR_SUCCESS
+--   INITIALIZE errMsg TO NULL
+-- 
+--   RETURN errNo, errMsg
+-- END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresas_estado2_checkColumnConstraints" Status="LOST">}
+-- #+ Check constraints on the "empresas.estado2" column
+-- #+
+-- #+ @param p_estado2 - CHAR(15) -
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxconstraints_empresas_estado2_checkColumnConstraints(p_estado2)
+--   DEFINE errNo INTEGER
+--   DEFINE errMsg STRING
+--   DEFINE p_estado2 LIKE empresas.estado2
+-- 
+--   LET errNo = ERROR_SUCCESS
+--   INITIALIZE errMsg TO NULL
+-- 
+--   RETURN errNo, errMsg
+-- END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresas_fecha_inicio_checkColumnConstraints" Status="LOST">}
+-- #+ Check constraints on the "empresas.fecha_inicio" column
+-- #+
+-- #+ @param p_fecha_inicio - CHAR(10) -
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxconstraints_empresas_fecha_inicio_checkColumnConstraints(p_fecha_inicio)
+--   DEFINE errNo INTEGER
+--   DEFINE errMsg STRING
+--   DEFINE p_fecha_inicio LIKE empresas.fecha_inicio
+-- 
+--   LET errNo = ERROR_SUCCESS
+--   INITIALIZE errMsg TO NULL
+-- 
+--   RETURN errNo, errMsg
+-- END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresas_no_local_checkColumnConstraints" Status="LOST">}
+-- #+ Check constraints on the "empresas.no_local" column
+-- #+
+-- #+ @param p_no_local - CHAR(10) -
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxconstraints_empresas_no_local_checkColumnConstraints(p_no_local)
+--   DEFINE errNo INTEGER
+--   DEFINE errMsg STRING
+--   DEFINE p_no_local LIKE empresas.no_local
+-- 
+--   LET errNo = ERROR_SUCCESS
+--   INITIALIZE errMsg TO NULL
+-- 
+--   RETURN errNo, errMsg
+-- END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresas_nombre_empresa_checkColumnConstraints" Status="LOST">}
+-- #+ Check constraints on the "empresas.nombre_empresa" column
+-- #+
+-- #+ @param p_nombre_empresa - CHAR(100) -
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxconstraints_empresas_nombre_empresa_checkColumnConstraints(p_nombre_empresa)
+--   DEFINE errNo INTEGER
+--   DEFINE errMsg STRING
+--   DEFINE p_nombre_empresa LIKE empresas.nombre_empresa
+-- 
+--   LET errNo = ERROR_SUCCESS
+--   INITIALIZE errMsg TO NULL
+-- 
+--   RETURN errNo, errMsg
+-- END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresas_razon_social_checkColumnConstraints" Status="LOST">}
+-- #+ Check constraints on the "empresas.razon_social" column
+-- #+
+-- #+ @param p_razon_social - CHAR(100) -
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxconstraints_empresas_razon_social_checkColumnConstraints(p_razon_social)
+--   DEFINE errNo INTEGER
+--   DEFINE errMsg STRING
+--   DEFINE p_razon_social LIKE empresas.razon_social
+-- 
+--   LET errNo = ERROR_SUCCESS
+--   INITIALIZE errMsg TO NULL
+-- 
+--   RETURN errNo, errMsg
+-- END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresas_rnc_checkColumnConstraints" Status="LOST">}
+-- #+ Check constraints on the "empresas.rnc" column
+-- #+
+-- #+ @param p_rnc - CHAR(11) -
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxconstraints_empresas_rnc_checkColumnConstraints(p_rnc)
+--   DEFINE errNo INTEGER
+--   DEFINE errMsg STRING
+--   DEFINE p_rnc LIKE empresas.rnc
+-- 
+--   LET errNo = ERROR_SUCCESS
+--   INITIALIZE errMsg TO NULL
+-- 
+--   RETURN errNo, errMsg
+-- END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresas_sector_checkColumnConstraints" Status="LOST">}
+-- #+ Check constraints on the "empresas.sector" column
+-- #+
+-- #+ @param p_sector - CHAR(100) -
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxconstraints_empresas_sector_checkColumnConstraints(p_sector)
+--   DEFINE errNo INTEGER
+--   DEFINE errMsg STRING
+--   DEFINE p_sector LIKE empresas.sector
+-- 
+--   LET errNo = ERROR_SUCCESS
+--   INITIALIZE errMsg TO NULL
+-- 
+--   RETURN errNo, errMsg
+-- END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresas_telefono_checkColumnConstraints" Status="LOST">}
+-- #+ Check constraints on the "empresas.telefono" column
+-- #+
+-- #+ @param p_telefono - CHAR(15) -
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxconstraints_empresas_telefono_checkColumnConstraints(p_telefono)
+--   DEFINE errNo INTEGER
+--   DEFINE errMsg STRING
+--   DEFINE p_telefono LIKE empresas.telefono
+-- 
+--   LET errNo = ERROR_SUCCESS
+--   INITIALIZE errMsg TO NULL
+-- 
+--   RETURN errNo, errMsg
+-- END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresastmp_actividad_checkColumnConstraints" Status="LOST">}
+-- #+ Check constraints on the "empresastmp.actividad" column
+-- #+
+-- #+ @param p_actividad - CHAR(100) -
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxconstraints_empresastmp_actividad_checkColumnConstraints(p_actividad)
+--   DEFINE errNo INTEGER
+--   DEFINE errMsg STRING
+--   DEFINE p_actividad LIKE empresastmp.actividad
+-- 
+--   LET errNo = ERROR_SUCCESS
+--   INITIALIZE errMsg TO NULL
+-- 
+--   RETURN errNo, errMsg
+-- END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresastmp_calle_checkColumnConstraints" Status="LOST">}
+-- #+ Check constraints on the "empresastmp.calle" column
+-- #+
+-- #+ @param p_calle - CHAR(100) -
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxconstraints_empresastmp_calle_checkColumnConstraints(p_calle)
+--   DEFINE errNo INTEGER
+--   DEFINE errMsg STRING
+--   DEFINE p_calle LIKE empresastmp.calle
+-- 
+--   LET errNo = ERROR_SUCCESS
+--   INITIALIZE errMsg TO NULL
+-- 
+--   RETURN errNo, errMsg
+-- END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresastmp_estado1_checkColumnConstraints" Status="LOST">}
+-- #+ Check constraints on the "empresastmp.estado1" column
+-- #+
+-- #+ @param p_estado1 - CHAR(15) -
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxconstraints_empresastmp_estado1_checkColumnConstraints(p_estado1)
+--   DEFINE errNo INTEGER
+--   DEFINE errMsg STRING
+--   DEFINE p_estado1 LIKE empresastmp.estado1
+-- 
+--   LET errNo = ERROR_SUCCESS
+--   INITIALIZE errMsg TO NULL
+-- 
+--   RETURN errNo, errMsg
+-- END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresastmp_estado2_checkColumnConstraints" Status="LOST">}
+-- #+ Check constraints on the "empresastmp.estado2" column
+-- #+
+-- #+ @param p_estado2 - CHAR(15) -
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxconstraints_empresastmp_estado2_checkColumnConstraints(p_estado2)
+--   DEFINE errNo INTEGER
+--   DEFINE errMsg STRING
+--   DEFINE p_estado2 LIKE empresastmp.estado2
+-- 
+--   LET errNo = ERROR_SUCCESS
+--   INITIALIZE errMsg TO NULL
+-- 
+--   RETURN errNo, errMsg
+-- END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresastmp_fecha_inicio_checkColumnConstraints" Status="LOST">}
+-- #+ Check constraints on the "empresastmp.fecha_inicio" column
+-- #+
+-- #+ @param p_fecha_inicio - CHAR(10) -
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxconstraints_empresastmp_fecha_inicio_checkColumnConstraints(p_fecha_inicio)
+--   DEFINE errNo INTEGER
+--   DEFINE errMsg STRING
+--   DEFINE p_fecha_inicio LIKE empresastmp.fecha_inicio
+-- 
+--   LET errNo = ERROR_SUCCESS
+--   INITIALIZE errMsg TO NULL
+-- 
+--   RETURN errNo, errMsg
+-- END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresastmp_no_local_checkColumnConstraints" Status="LOST">}
+-- #+ Check constraints on the "empresastmp.no_local" column
+-- #+
+-- #+ @param p_no_local - CHAR(10) -
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxconstraints_empresastmp_no_local_checkColumnConstraints(p_no_local)
+--   DEFINE errNo INTEGER
+--   DEFINE errMsg STRING
+--   DEFINE p_no_local LIKE empresastmp.no_local
+-- 
+--   LET errNo = ERROR_SUCCESS
+--   INITIALIZE errMsg TO NULL
+-- 
+--   RETURN errNo, errMsg
+-- END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresastmp_nombre_empresa_checkColumnConstraints" Status="LOST">}
+-- #+ Check constraints on the "empresastmp.nombre_empresa" column
+-- #+
+-- #+ @param p_nombre_empresa - CHAR(100) -
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxconstraints_empresastmp_nombre_empresa_checkColumnConstraints(p_nombre_empresa)
+--   DEFINE errNo INTEGER
+--   DEFINE errMsg STRING
+--   DEFINE p_nombre_empresa LIKE empresastmp.nombre_empresa
+-- 
+--   LET errNo = ERROR_SUCCESS
+--   INITIALIZE errMsg TO NULL
+-- 
+--   RETURN errNo, errMsg
+-- END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresastmp_razon_social_checkColumnConstraints" Status="LOST">}
+-- #+ Check constraints on the "empresastmp.razon_social" column
+-- #+
+-- #+ @param p_razon_social - CHAR(100) -
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxconstraints_empresastmp_razon_social_checkColumnConstraints(p_razon_social)
+--   DEFINE errNo INTEGER
+--   DEFINE errMsg STRING
+--   DEFINE p_razon_social LIKE empresastmp.razon_social
+-- 
+--   LET errNo = ERROR_SUCCESS
+--   INITIALIZE errMsg TO NULL
+-- 
+--   RETURN errNo, errMsg
+-- END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresastmp_sector_checkColumnConstraints" Status="LOST">}
+-- #+ Check constraints on the "empresastmp.sector" column
+-- #+
+-- #+ @param p_sector - CHAR(100) -
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxconstraints_empresastmp_sector_checkColumnConstraints(p_sector)
+--   DEFINE errNo INTEGER
+--   DEFINE errMsg STRING
+--   DEFINE p_sector LIKE empresastmp.sector
+-- 
+--   LET errNo = ERROR_SUCCESS
+--   INITIALIZE errMsg TO NULL
+-- 
+--   RETURN errNo, errMsg
+-- END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresastmp_telefono_checkColumnConstraints" Status="LOST">}
+-- #+ Check constraints on the "empresastmp.telefono" column
+-- #+
+-- #+ @param p_telefono - CHAR(15) -
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxconstraints_empresastmp_telefono_checkColumnConstraints(p_telefono)
+--   DEFINE errNo INTEGER
+--   DEFINE errMsg STRING
+--   DEFINE p_telefono LIKE empresastmp.telefono
+-- 
+--   LET errNo = ERROR_SUCCESS
+--   INITIALIZE errMsg TO NULL
+-- 
+--   RETURN errNo, errMsg
+-- END FUNCTION
+{</BLOCK>}

DATABASE/dbdgii_dbxconstraints.code

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

DATABASE/dbdgii_dbxconstraints.lastgen

@@ -0,0 +1,206 @@
+#+ DB schema - Constraints Management (dbdgii)
+
+--------------------------------------------------------------------------------
+--This code is generated with the template dbapp5.0
+--Warning: Enter your changes within a <BLOCK> or <POINT> section, otherwise they will be lost.
+{<POINT Name="user.comments">} {</POINT>}
+
+--------------------------------------------------------------------------------
+--Importing modules
+IMPORT FGL libdbappCore
+
+IMPORT FGL dbdgii
+IMPORT FGL dbdgii_events
+{<POINT Name="import">} {</POINT>}
+
+--------------------------------------------------------------------------------
+--Database schema
+SCHEMA dbdgii
+
+--------------------------------------------------------------------------------
+--Functions
+
+{<BLOCK Name="fct.empresastmp_checkTableConstraints">}
+#+ Check constraints on the "empresastmp" table
+#+
+#+ @param p_forUpdate TRUE: for 'update' SQL operation, FALSE for 'insert' SQL operation
+#+ @param p_data - a row data LIKE empresastmp.*
+#+
+#+ @returnType INTEGER, STRING
+#+ @return     ERROR_SUCCESS|ERROR_FAILURE, error message
+PUBLIC FUNCTION dbdgii_dbxconstraints_empresastmp_checkTableConstraints(p_forUpdate, p_data)
+    DEFINE p_forUpdate BOOLEAN
+    DEFINE p_data RECORD LIKE empresastmp.*
+    DEFINE errNo INTEGER
+    DEFINE errMsg STRING
+    DEFINE l_errNo INTEGER
+    DEFINE l_errMsg STRING
+    {<POINT Name="fct.empresastmp_checkTableConstraints.define">} {</POINT>}
+
+    LET errNo = ERROR_SUCCESS
+    INITIALIZE errMsg TO NULL
+    {<POINT Name="fct.empresastmp_checkTableConstraints.init">} {</POINT>}
+
+    CALL dbdgii_dbxconstraints_empresastmp_rnc_checkColumnConstraints(p_data.rnc) RETURNING l_errNo, l_errMsg
+    CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+
+    CALL dbdgii_dbxconstraints_empresastmp_pk_empresastmp_checkUniqueConstraint(p_forUpdate, p_data.rnc) RETURNING l_errNo, l_errMsg
+    CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+
+    IF dbdgii_events.m_DbxDataEvent_empresastmp_CheckTableConstraints IS NOT NULL THEN
+        CALL dbdgii_events.m_DbxDataEvent_empresastmp_CheckTableConstraints(p_forUpdate, p_data.*)
+            RETURNING l_errNo, l_errMsg
+    END IF
+    CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+
+    {<POINT Name="fct.empresastmp_checkTableConstraints.user">} {</POINT>}
+    RETURN errNo, errMsg
+END FUNCTION
+{</BLOCK>} --fct.empresastmp_checkTableConstraints
+
+{<BLOCK Name="fct.empresastmp_pk_empresastmp_checkUniqueConstraint">}
+#+ Check the primary key uniqueness constraint on the "empresastmp"
+#+
+#+ @param p_forUpdate TRUE: for 'update' SQL operation, FALSE for 'insert' SQL operation
+#+ @param p_key - Primary Key
+#+
+#+ @returnType INTEGER, STRING, STRING
+#+ @return     ERROR_SUCCESS|ERROR_FAILURE, error message
+PUBLIC FUNCTION dbdgii_dbxconstraints_empresastmp_pk_empresastmp_checkUniqueConstraint(p_forUpdate, p_key)
+    DEFINE errNo INTEGER
+    DEFINE errMsg STRING
+    DEFINE p_forUpdate BOOLEAN
+    DEFINE p_key
+        RECORD
+            empresastmp_rnc LIKE empresastmp.rnc
+        END RECORD
+    DEFINE l_key
+        RECORD
+            empresastmp_rnc LIKE empresastmp.rnc
+        END RECORD
+    DEFINE l_where STRING
+    DEFINE l_sqlQuery STRING
+    DEFINE l_count INTEGER
+    {<POINT Name="fct.empresastmp_pk_empresastmp_checkUniqueConstraint.define">} {</POINT>}
+
+    LET errNo = ERROR_SUCCESS
+    INITIALIZE errMsg TO NULL
+    LET l_where = "WHERE empresastmp.rnc = ? "
+    LET l_sqlQuery = "SELECT COUNT(*), rnc FROM empresastmp ", l_where, " GROUP BY rnc"
+    {<POINT Name="fct.empresastmp_pk_empresastmp_checkUniqueConstraint.init">} {</POINT>}
+    TRY
+        PREPARE cur_empresastmp_pk_empresastmp_checkUniqueConstraint FROM l_sqlQuery
+        EXECUTE cur_empresastmp_pk_empresastmp_checkUniqueConstraint USING p_key.* INTO l_count, l_key.*
+        FREE cur_empresastmp_pk_empresastmp_checkUniqueConstraint
+        IF (NOT p_forUpdate AND l_count > 0) OR (p_forUpdate AND l_count > 0 AND p_key.* != l_key.*) THEN
+            CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- rnc: " || ERROR_BAM_00002) RETURNING errNo, errMsg
+        END IF
+    CATCH
+        LET errNo = ERROR_FAILURE
+    END TRY
+    {<POINT Name="fct.empresastmp_pk_empresastmp_checkUniqueConstraint.user">} {</POINT>}
+
+    RETURN errNo, errMsg
+END FUNCTION
+{</BLOCK>} --fct.empresastmp_pk_empresastmp_checkUniqueConstraint
+
+{<BLOCK Name="fct.empresastmp_rnc_checkColumnConstraints">}
+#+ Check constraints on the "empresastmp.rnc" column
+#+
+#+ @param p_rnc - CHAR(11) - rnc
+#+
+#+ @returnType INTEGER, STRING
+#+ @return     ERROR_SUCCESS|ERROR_FAILURE, error message
+PUBLIC FUNCTION dbdgii_dbxconstraints_empresastmp_rnc_checkColumnConstraints(p_rnc)
+    DEFINE errNo INTEGER
+    DEFINE errMsg STRING
+    DEFINE p_rnc LIKE empresastmp.rnc
+    {<POINT Name="fct.empresastmp_rnc_checkColumnConstraints.define">} {</POINT>}
+
+    LET errNo = ERROR_SUCCESS
+    INITIALIZE errMsg TO NULL
+    {<POINT Name="fct.empresastmp_rnc_checkColumnConstraints.init">} {</POINT>}
+    IF p_rnc IS NULL THEN
+        CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- rnc: " || ERROR_BAM_00001) RETURNING errNo, errMsg
+    END IF
+    {<POINT Name="fct.empresastmp_rnc_checkColumnConstraints.user">} {</POINT>}
+    RETURN errNo, errMsg
+END FUNCTION
+{</BLOCK>} --fct.empresastmp_rnc_checkColumnConstraints
+
+{<BLOCK Name="fct.empresastmp_pk_empresastmp_checkFKConstraint">}
+#+ Check the Foreign Key existence constraint on the "empresastmp"
+#+
+#+ @param p_data - Primary Key
+#+
+#+ @returnType INTEGER, STRING
+#+ @return     ERROR_SUCCESS|ERROR_FAILURE, error message
+PUBLIC FUNCTION dbdgii_dbxconstraints_empresastmp_pk_empresastmp_checkFKConstraint(p_data)
+    DEFINE errNo INTEGER
+    DEFINE errMsg STRING
+    DEFINE p_data
+        RECORD
+            empresastmp_rnc LIKE empresastmp.rnc
+        END RECORD
+    DEFINE l_where STRING
+    DEFINE l_sqlQuery STRING
+    DEFINE l_count INTEGER
+    {<POINT Name="fct.empresastmp_pk_empresastmp_checkFKConstraint.define">} {</POINT>}
+
+    LET errNo = ERROR_SUCCESS
+    INITIALIZE errMsg TO NULL
+    IF NOT (p_data.empresastmp_rnc IS NULL) THEN
+        LET l_where = "WHERE empresastmp.rnc = ? "
+        LET l_sqlQuery = "SELECT COUNT(*) FROM empresastmp ", l_where
+        {<POINT Name="fct.empresastmp_pk_empresastmp_checkFKConstraint.init">} {</POINT>}
+        TRY
+            PREPARE cur_empresastmp_pk_empresastmp_checkFKConstraint FROM l_sqlQuery
+            EXECUTE cur_empresastmp_pk_empresastmp_checkFKConstraint USING p_data.* INTO l_count
+            FREE cur_empresastmp_pk_empresastmp_checkFKConstraint
+            IF (l_count == 0) THEN
+                CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- rnc: " || ERROR_BAM_00004) RETURNING errNo, errMsg
+            END IF
+        CATCH
+            LET errNo = ERROR_FAILURE
+        END TRY
+    END IF
+    {<POINT Name="fct.empresastmp_pk_empresastmp_checkFKConstraint.user">} {</POINT>}
+    RETURN errNo, errMsg
+END FUNCTION
+{</BLOCK>} --fct.empresastmp_pk_empresastmp_checkFKConstraint
+
+{<BLOCK Name="fct.empresas_checkTableConstraints">}
+#+ Check constraints on the "empresas" table
+#+
+#+ @param p_forUpdate TRUE: for 'update' SQL operation, FALSE for 'insert' SQL operation
+#+ @param p_data - a row data LIKE empresas.*
+#+
+#+ @returnType INTEGER, STRING
+#+ @return     ERROR_SUCCESS|ERROR_FAILURE, error message
+PUBLIC FUNCTION dbdgii_dbxconstraints_empresas_checkTableConstraints(p_forUpdate, p_data)
+    DEFINE p_forUpdate BOOLEAN
+    DEFINE p_data RECORD LIKE empresas.*
+    DEFINE errNo INTEGER
+    DEFINE errMsg STRING
+    DEFINE l_errNo INTEGER
+    DEFINE l_errMsg STRING
+    {<POINT Name="fct.empresas_checkTableConstraints.define">} {</POINT>}
+
+    LET errNo = ERROR_SUCCESS
+    INITIALIZE errMsg TO NULL
+    {<POINT Name="fct.empresas_checkTableConstraints.init">} {</POINT>}
+
+    IF dbdgii_events.m_DbxDataEvent_empresas_CheckTableConstraints IS NOT NULL THEN
+        CALL dbdgii_events.m_DbxDataEvent_empresas_CheckTableConstraints(p_forUpdate, p_data.*)
+            RETURNING l_errNo, l_errMsg
+    END IF
+    CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
+
+    {<POINT Name="fct.empresas_checkTableConstraints.user">} {</POINT>}
+    RETURN errNo, errMsg
+END FUNCTION
+{</BLOCK>} --fct.empresas_checkTableConstraints
+
+--------------------------------------------------------------------------------
+--Add user functions
+{<POINT Name="user.functions">} {</POINT>}

DATABASE/dbdgii_dbxdata.4gl

@@ -0,0 +1,445 @@
+{<CODEFILE Path="dbdgii.code" Hash="javWTIEHtIq+N8lJFwImXA==" />}
+#+ DB schema - Data Management (dbdgii)
+
+--------------------------------------------------------------------------------
+--This code is generated with the template dbapp5.0
+--Warning: Enter your changes within a <BLOCK> or <POINT> section, otherwise they will be lost.
+{<POINT Name="user.comments" Status="MODIFIED">}
+{</POINT>}
+
+--------------------------------------------------------------------------------
+--Importing modules
+IMPORT FGL libdbappCore
+IMPORT FGL libdbappSql
+
+IMPORT FGL dbdgii
+IMPORT FGL dbdgii_events
+IMPORT FGL dbdgii_dbxconstraints
+{<POINT Name="import" Status="MODIFIED">}
+{</POINT>}
+
+--------------------------------------------------------------------------------
+--Database schema
+SCHEMA dbdgii
+
+--------------------------------------------------------------------------------
+--Functions
+
+{<BLOCK Name="fct.empresastmp_pk_empresastmp_selectRowByKey">}
+#+ Select a row identified by the primary key in the "empresastmp" table
+#+
+#+ @param p_key - Primary Key
+#+ @param p_lock - Indicate if a lock is used in order to prevent several users editing the same rows at the same time
+#+
+#+ @returnType INTEGER, LIKE empresastmp.*
+#+ @return     ERROR_SUCCESS|ERROR_FAILURE|ERROR_NOTFOUND, RECORD LIKE empresastmp.*
+PUBLIC FUNCTION dbdgii_dbxdata_empresastmp_pk_empresastmp_selectRowByKey(p_key, p_lock)
+    DEFINE p_key
+        RECORD
+            empresastmp_rnc LIKE empresastmp.rnc
+        END RECORD
+    DEFINE p_lock BOOLEAN
+    DEFINE l_data RECORD LIKE empresastmp.*
+    DEFINE l_supportLock BOOLEAN
+    DEFINE errNo INTEGER
+    {<POINT Name="fct.empresastmp_pk_empresastmp_selectRowByKey.define">} {</POINT>}
+
+    LET errNo = ERROR_SUCCESS
+    -- SQLite does not support the FOR UPDATE close in SELECT syntax
+    LET l_supportLock = (UPSHIFT(fgl_db_driver_type()) != "SQT")
+    {<POINT Name="fct.empresastmp_pk_empresastmp_selectRowByKey.init">} {</POINT>}
+    TRY
+        IF p_lock AND l_supportLock THEN
+            SELECT * INTO l_data.* FROM empresastmp
+                WHERE @empresastmp.rnc = p_key.empresastmp_rnc
+            FOR UPDATE
+        ELSE
+            SELECT * INTO l_data.* FROM empresastmp
+                WHERE @empresastmp.rnc = p_key.empresastmp_rnc
+        END IF
+        IF SQLCA.SQLCODE == NOTFOUND THEN
+            LET errNo = ERROR_NOTFOUND
+        END IF
+    CATCH
+        INITIALIZE l_data.* TO NULL
+        LET errNo = ERROR_FAILURE
+    END TRY
+    {<POINT Name="fct.empresastmp_pk_empresastmp_selectRowByKey.afterSelect">} {</POINT>}
+    RETURN errNo, l_data.*
+END FUNCTION
+{</BLOCK>} --fct.empresastmp_pk_empresastmp_selectRowByKey
+
+{<BLOCK Name="fct.empresastmp_insertRowByKey" Status="MODIFIED">}
+#+ Insert a row in the "empresastmp" table and return the primary key created
+#+
+#+ @param p_data - a row data LIKE empresastmp.*
+#+
+#+ @returnType - INTEGER, CHAR(11)
+#+ @return - ERROR_SUCCESS|ERROR_FAILURE, empresastmp.rnc
+PUBLIC FUNCTION dbdgii_dbxdata_empresastmp_insertRowByKey(p_data)
+  DEFINE p_data RECORD LIKE empresastmp.*
+  DEFINE errNo INTEGER
+  DEFINE errMsg STRING
+
+  LET errNo = libdbapp_begin_work()
+  IF errNo == ERROR_SUCCESS THEN
+    CALL dbdgii_dbxconstraints.dbdgii_dbxconstraints_empresastmp_checkTableConstraints(FALSE, p_data.*) RETURNING errNo, errMsg
+    IF errNo == ERROR_SUCCESS THEN
+      TRY
+        INSERT INTO empresastmp VALUES (p_data.*)
+      CATCH
+        LET errNo = ERROR_FAILURE
+      END TRY
+    END IF
+    IF errNo == ERROR_SUCCESS THEN
+      LET errNo = libdbapp_commit_work()
+    ELSE
+      CALL libdbapp_rollback_work()
+    END IF
+  END IF
+  RETURN errNo, errMsg, p_data.rnc
+END FUNCTION
+{</BLOCK>} --fct.empresastmp_insertRowByKey
+
+{<BLOCK Name="fct.empresastmp_pk_empresastmp_insertRowByKey">}
+#+ Insert a row in the "empresastmp" table and return the table keys
+#+
+#+ @param p_data - a row data LIKE empresastmp.*
+#+
+#+ @returnType INTEGER, STRING, CHAR(11)
+#+ @return     ERROR_SUCCESS|ERROR_FAILURE, error message, empresastmp.rnc
+PUBLIC FUNCTION dbdgii_dbxdata_empresastmp_pk_empresastmp_insertRowByKey(p_data)
+    DEFINE p_data RECORD LIKE empresastmp.*
+    DEFINE errNo INTEGER
+    DEFINE errMsg STRING
+    {<POINT Name="fct.empresastmp_pk_empresastmp_insertRowByKey.define">} {</POINT>}
+    {<POINT Name="fct.empresastmp_pk_empresastmp_insertRowByKey.init">} {</POINT>}
+
+    CALL dbdgii_dbxdata_empresastmp_insertRowByKey(p_data.*) RETURNING errNo, errMsg, p_data.rnc
+    RETURN errNo, errMsg, p_data.rnc
+END FUNCTION
+{</BLOCK>} --fct.empresastmp_pk_empresastmp_insertRowByKey
+
+{<BLOCK Name="fct.empresastmp_pk_empresastmp_updateRowByKey">}
+#+ Update a row identified by the primary key in the "empresastmp" table
+#+
+#+ @param p_dataT0 - a row data LIKE empresastmp.*
+#+ @param p_dataT1 - a row data LIKE empresastmp.*
+#+
+#+ @returnType INTEGER, STRING
+#+ @return     ERROR_SUCCESS|ERROR_FAILURE|ERROR_CONCURRENT_ACCESS_NOTFOUND|ERROR_CONCURRENT_ACCESS_FAILURE, error message
+PUBLIC FUNCTION dbdgii_dbxdata_empresastmp_pk_empresastmp_updateRowByKey(p_dataT0, p_dataT1)
+    DEFINE p_dataT0 RECORD LIKE empresastmp.*
+    DEFINE p_dataT1 RECORD LIKE empresastmp.*
+    DEFINE l_key
+        RECORD
+            empresastmp_rnc LIKE empresastmp.rnc
+        END RECORD
+    DEFINE errNo INTEGER
+    DEFINE errMsg STRING
+    {<POINT Name="fct.empresastmp_pk_empresastmp_updateRowByKey.define">} {</POINT>}
+    LET l_key.empresastmp_rnc = p_dataT0.rnc
+    INITIALIZE errMsg TO NULL
+    LET errNo = libdbapp_begin_work()
+    IF errNo == ERROR_SUCCESS THEN
+        {<POINT Name="fct.empresastmp_pk_empresastmp_updateRowByKey.init">} {</POINT>}
+        TRY
+            LET errNo = dbdgii_dbxdata_empresastmp_pk_empresastmp_checkRowByKeyWithConcurrentAccess(p_dataT0.*, TRUE)
+            {<POINT Name="fct.empresastmp_pk_empresastmp_updateRowByKey.afterSelect">} {</POINT>}
+            IF errNo == ERROR_SUCCESS THEN
+                CALL dbdgii_dbxconstraints.dbdgii_dbxconstraints_empresastmp_checkTableConstraints(TRUE, p_dataT1.*) RETURNING errNo, errMsg
+                {<POINT Name="fct.empresastmp_pk_empresastmp_updateRowByKey.beforeUpdate">} {</POINT>}
+                IF errNo == ERROR_SUCCESS THEN
+                 IF dbdgii_events.m_DbxDataEvent_empresastmp_BeforeUpdateRowByKey IS NOT NULL THEN
+                    CALL dbdgii_events.m_DbxDataEvent_empresastmp_BeforeUpdateRowByKey(p_dataT1.*)
+                        RETURNING errNo, errMsg
+                END IF
+                    UPDATE empresastmp
+                        SET empresastmp.* = p_dataT1.*
+                        WHERE @empresastmp.rnc = l_key.empresastmp_rnc
+                END IF
+            END IF
+        CATCH
+            LET errNo = ERROR_FAILURE
+        END TRY
+        IF dbdgii_events.m_DbxDataEvent_empresastmp_AfterUpdateRowByKey IS NOT NULL THEN
+            CALL dbdgii_events.m_DbxDataEvent_empresastmp_AfterUpdateRowByKey(p_dataT1.*)
+                RETURNING errNo, errMsg
+        END IF
+        {<POINT Name="fct.empresastmp_pk_empresastmp_updateRowByKey.afterUpdate">} {</POINT>}
+        IF errNo == ERROR_SUCCESS THEN
+            LET errNo = libdbapp_commit_work()
+        ELSE
+            CALL libdbapp_rollback_work()
+        END IF
+    END IF
+    RETURN errNo, errMsg
+END FUNCTION
+{</BLOCK>} --fct.empresastmp_pk_empresastmp_updateRowByKey
+
+{<BLOCK Name="fct.empresastmp_pk_empresastmp_deleteRowByKey">}
+#+ Delete a row identified by the primary key in the "empresastmp" table
+#+
+#+ @param p_key - Primary Key
+#+
+#+ @returnType INTEGER
+#+ @return     ERROR_SUCCESS|ERROR_FAILURE|ERROR_DELETE_CASCADE_ROW_USED
+PUBLIC FUNCTION dbdgii_dbxdata_empresastmp_pk_empresastmp_deleteRowByKey(p_key)
+    DEFINE p_key
+        RECORD
+            empresastmp_rnc LIKE empresastmp.rnc
+        END RECORD
+    DEFINE errNo INTEGER
+    {<POINT Name="fct.empresastmp_pk_empresastmp_deleteRowByKey.define">} {</POINT>}
+
+    LET errNo = libdbapp_begin_work()
+    IF errNo == ERROR_SUCCESS THEN
+        {<POINT Name="fct.empresastmp_pk_empresastmp_deleteRowByKey.init">} {</POINT>}
+        IF dbdgii_events.m_DbxDataEvent_empresastmp_BeforeDeleteRowByKey IS NOT NULL THEN
+            CALL dbdgii_events.m_DbxDataEvent_empresastmp_BeforeDeleteRowByKey(p_key.*)
+                RETURNING errNo
+        END IF
+        TRY
+            DELETE FROM empresastmp
+                WHERE @empresastmp.rnc = p_key.empresastmp_rnc
+        CATCH
+            LET errNo = ERROR_FAILURE
+        END TRY
+        IF dbdgii_events.m_DbxDataEvent_empresastmp_AfterDeleteRowByKey IS NOT NULL THEN
+            CALL dbdgii_events.m_DbxDataEvent_empresastmp_AfterDeleteRowByKey(p_key.*)
+                RETURNING errNo
+        END IF
+        {<POINT Name="fct.empresastmp_pk_empresastmp_deleteRowByKey.afterDelete">} {</POINT>}
+        IF errNo == ERROR_SUCCESS THEN
+            LET errNo = libdbapp_commit_work()
+        ELSE
+            CALL libdbapp_rollback_work()
+        END IF
+    END IF
+    RETURN errNo
+END FUNCTION
+{</BLOCK>} --fct.empresastmp_pk_empresastmp_deleteRowByKey
+
+{<BLOCK Name="fct.empresastmp_pk_empresastmp_deleteRowByKeyWithConcurrentAccess">}
+#+ Delete a row identified by the primary key in the "empresastmp" table if the concurrent access is success
+#+
+#+ @param p_dataT0 - a row data LIKE empresastmp.*
+#+
+#+ @returnType INTEGER
+#+ @return     ERROR_SUCCESS|ERROR_FAILURE|ERROR_CONCURRENT_ACCESS_NOTFOUND|ERROR_CONCURRENT_ACCESS_FAILURE|ERROR_DELETE_CASCADE_ROW_USED
+PUBLIC FUNCTION dbdgii_dbxdata_empresastmp_pk_empresastmp_deleteRowByKeyWithConcurrentAccess(p_dataT0)
+    DEFINE p_dataT0 RECORD LIKE empresastmp.*
+    DEFINE l_key
+        RECORD
+            empresastmp_rnc LIKE empresastmp.rnc
+        END RECORD
+    DEFINE errNo INTEGER
+    {<POINT Name="fct.empresastmp_pk_empresastmp_deleteRowByKeyWithConcurrentAccess.define">} {</POINT>}
+
+    LET l_key.empresastmp_rnc = p_dataT0.rnc
+    LET errNo = libdbapp_begin_work()
+    IF errNo == ERROR_SUCCESS THEN
+        {<POINT Name="fct.empresastmp_pk_empresastmp_deleteRowByKeyWithConcurrentAccess.init">} {</POINT>}
+        LET errNo = dbdgii_dbxdata_empresastmp_pk_empresastmp_checkRowByKeyWithConcurrentAccess(p_dataT0.*, TRUE)
+        {<POINT Name="fct.empresastmp_pk_empresastmp_deleteRowByKeyWithConcurrentAccess.afterSelect">} {</POINT>}
+        IF errNo == ERROR_SUCCESS THEN
+            LET errNo = dbdgii_dbxdata_empresastmp_pk_empresastmp_deleteRowByKey(l_key.*)
+        END IF
+        {<POINT Name="fct.empresastmp_pk_empresastmp_deleteRowByKeyWithConcurrentAccess.afterDelete">} {</POINT>}
+        IF errNo == ERROR_SUCCESS THEN
+            LET errNo = libdbapp_commit_work()
+        ELSE
+            CALL libdbapp_rollback_work()
+        END IF
+    END IF
+    RETURN errNo
+END FUNCTION
+{</BLOCK>} --fct.empresastmp_pk_empresastmp_deleteRowByKeyWithConcurrentAccess
+
+{<BLOCK Name="fct.empresastmp_pk_empresastmp_checkRowByKeyWithConcurrentAccess">}
+#+ Check if a row identified by the primary key in the "empresastmp" table has been modified or deleted
+#+
+#+ @param p_dataT0 - a row data LIKE empresastmp.*
+#+ @param p_lock - Indicate if a lock is used in order to prevent several users editing the same rows at the same time
+#+
+#+ @returnType INTEGER
+#+ @return     ERROR_SUCCESS|ERROR_FAILURE|ERROR_CONCURRENT_ACCESS_NOTFOUND|ERROR_CONCURRENT_ACCESS_FAILURE
+PUBLIC FUNCTION dbdgii_dbxdata_empresastmp_pk_empresastmp_checkRowByKeyWithConcurrentAccess(p_dataT0, p_lock)
+    DEFINE p_dataT0 RECORD LIKE empresastmp.*
+    DEFINE l_dataT2 RECORD LIKE empresastmp.*
+    DEFINE l_key
+        RECORD
+            empresastmp_rnc LIKE empresastmp.rnc
+        END RECORD
+    DEFINE p_lock BOOLEAN
+    DEFINE errNo INTEGER
+    DEFINE errDiff INTEGER
+    {<POINT Name="fct.empresastmp_pk_empresastmp_checkRowByKeyWithConcurrentAccess.define">} {</POINT>}
+
+    LET l_key.empresastmp_rnc = p_dataT0.rnc
+    INITIALIZE l_dataT2.* TO NULL
+    LET errDiff = FALSE
+    {<POINT Name="fct.empresastmp_pk_empresastmp_checkRowByKeyWithConcurrentAccess.init">} {</POINT>}
+    CALL dbdgii_dbxdata_empresastmp_pk_empresastmp_selectRowByKey(l_key.*, p_lock) RETURNING errNo, l_dataT2.*
+    CASE errNo
+        WHEN ERROR_SUCCESS
+            LET errDiff = (p_dataT0.* != l_dataT2.*)
+            {<POINT Name="fct.empresastmp_pk_empresastmp_checkRowByKeyWithConcurrentAccess.afterSelect">} {</POINT>}
+            IF NOT errDiff THEN
+                LET errNo = ERROR_SUCCESS
+            ELSE
+                LET errNo = ERROR_CONCURRENT_ACCESS_FAILURE
+            END IF
+        WHEN ERROR_NOTFOUND
+            LET errNo = ERROR_CONCURRENT_ACCESS_NOTFOUND
+    END CASE
+    {<POINT Name="fct.empresastmp_pk_empresastmp_checkRowByKeyWithConcurrentAccess.afterCheck">} {</POINT>}
+    RETURN errNo
+END FUNCTION
+{</BLOCK>} --fct.empresastmp_pk_empresastmp_checkRowByKeyWithConcurrentAccess
+
+{<BLOCK Name="fct.empresastmp_setDefaultValuesFromDBSchema" Status="MODIFIED">}
+#+ Set data with the default values coming from the DB schema
+#+
+PUBLIC FUNCTION dbdgii_dbxdata_empresastmp_setDefaultValuesFromDBSchema()
+  DEFINE l_data RECORD LIKE empresastmp.*
+
+  INITIALIZE l_data.* TO NULL
+  LET l_data.rnc = ""
+  LET l_data.razon_social = ""
+  LET l_data.nombre_empresa = ""
+  LET l_data.actividad = ""
+  LET l_data.calle = ""
+  LET l_data.no_local = ""
+  LET l_data.sector = ""
+  LET l_data.telefono = ""
+  LET l_data.fecha_inicio = ""
+  LET l_data.estado1 = ""
+  LET l_data.estado2 = ""
+
+  RETURN l_data.*
+END FUNCTION
+{</BLOCK>} --fct.empresastmp_setDefaultValuesFromDBSchema
+
+--------------------------------------------------------------------------------
+--Add user functions
+{<POINT Name="user.functions" Status="MODIFIED">}
+{</POINT>}
+{<BLOCK Name="fct.empresastmp_deleteRowByKey" Status="LOST">}
+-- #+ Delete a row identified by the primary key in the "empresastmp" table
+-- #+
+-- #+ @param p_key - Primary Key
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxdata_empresastmp_deleteRowByKey(p_key)
+--   DEFINE p_key
+--     RECORD
+--       empresastmp_rnc LIKE empresastmp.rnc
+--     END RECORD
+--   DEFINE errNo INTEGER
+-- 
+--   LET errNo = libdbapp_begin_work()
+--   IF errNo == ERROR_SUCCESS THEN
+--     TRY
+--       DELETE FROM empresastmp
+--         WHERE empresastmp.rnc = p_key.empresastmp_rnc
+--     CATCH
+--       LET errNo = ERROR_FAILURE
+--     END TRY
+--   END IF
+--   IF errNo == ERROR_SUCCESS THEN
+--     LET errNo = libdbapp_commit_work()
+--   ELSE
+--     CALL libdbapp_rollback_work()
+--   END IF
+-- 
+--   RETURN errNo
+-- END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresastmp_selectRowByKey" Status="LOST">}
+-- #+ Select a row identified by the primary key in the "empresastmp" table
+-- #+
+-- #+ @param p_key - Primary Key
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE, l_data
+-- PUBLIC FUNCTION dbdgii_dbxdata_empresastmp_selectRowByKey(p_key)
+--   DEFINE p_key
+--     RECORD
+--       empresastmp_rnc LIKE empresastmp.rnc
+--     END RECORD
+--   DEFINE l_data RECORD LIKE empresastmp.*
+--   DEFINE errNo INTEGER
+-- 
+--   INITIALIZE l_data.* TO NULL
+--   LET errNo = ERROR_SUCCESS
+--   TRY
+--     SELECT * INTO l_data.* FROM empresastmp
+--     WHERE empresastmp.rnc = p_key.empresastmp_rnc
+--   CATCH
+--     INITIALIZE l_data.* TO NULL
+--     LET errNo = ERROR_FAILURE
+--   END TRY
+-- 
+--   RETURN errNo, l_data.*
+-- END FUNCTION
+{</BLOCK>}
+{<BLOCK Name="fct.empresastmp_updateRowByKey" Status="LOST">}
+-- #+ Update a row identified by the primary key in the "empresastmp" table
+-- #+
+-- #+ @param p_key - Primary Key
+-- #+ @param p_dataT0 - a row data LIKE empresastmp.*
+-- #+ @param p_dataT1 - a row data LIKE empresastmp.*
+-- #+
+-- #+ @returnType - INTEGER
+-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
+-- PUBLIC FUNCTION dbdgii_dbxdata_empresastmp_updateRowByKey(p_key, p_dataT0, p_dataT1)
+--   DEFINE p_key
+--     RECORD
+--       empresastmp_rnc LIKE empresastmp.rnc
+--     END RECORD
+--   DEFINE p_dataT0 RECORD LIKE empresastmp.*
+--   DEFINE p_dataT1 RECORD LIKE empresastmp.*
+--   DEFINE l_dataT2 RECORD LIKE empresastmp.*
+--   DEFINE errNo INTEGER
+--   DEFINE errMsg STRING
+--   DEFINE errDiff INTEGER
+-- 
+--   INITIALIZE l_dataT2.* TO NULL
+--   INITIALIZE errMsg TO NULL
+--   LET errDiff = FALSE
+--   LET errNo = libdbapp_begin_work()
+--   IF errNo == ERROR_SUCCESS THEN
+--     TRY
+--       -- Concurrent Access done with the FOR UPDATE (not supported by SQLite)
+--       IF (UPSHIFT(fgl_db_driver_type()) != "SQT") THEN
+--         SELECT * INTO l_dataT2.* FROM empresastmp
+--           WHERE empresastmp.rnc = p_key.empresastmp_rnc
+--         FOR UPDATE
+--         LET errDiff = (p_dataT0.* != l_dataT2.*)
+--       END IF
+-- 
+--       IF NOT errDiff THEN
+--         CALL dbdgii_dbxconstraints.dbdgii_dbxconstraints_empresastmp_checkTableConstraints(TRUE, p_dataT1.*) RETURNING errNo, errMsg
+--         IF errNo == ERROR_SUCCESS THEN
+--           UPDATE empresastmp
+--             SET empresastmp.* = p_dataT1.*
+--             WHERE empresastmp.rnc = p_key.empresastmp_rnc
+--         END IF
+--       ELSE
+--         LET errNo = ERROR_CONCURRENT_ACCESS_FAILURE
+--       END IF
+--     CATCH
+--       LET errNo = ERROR_FAILURE
+--     END TRY
+--     IF errNo == ERROR_SUCCESS THEN
+--       LET errNo = libdbapp_commit_work()
+--     ELSE
+--       CALL libdbapp_rollback_work()
+--     END IF
+--   END IF
+-- 
+--   RETURN errNo, errMsg
+-- END FUNCTION
+{</BLOCK>}

DATABASE/dbdgii_dbxdata.code

@@ -0,0 +1,208 @@
+<?xml version="1.0" encoding="UTF-8" ?>
+<File name="dbdgii_dbxdata.code">
+<Generated>#+ Data Management from DB schema (dbdgii)
+
+--------------------------------------------------------------------------------
+--This code is generated by the &apos;dbxdata.tcl&apos; template
+--Warning: Enter your changes within a &lt;BLOCK&gt; or &lt;POINT&gt; section, otherwise they will be lost.
+{&lt;POINT Name=&quot;user.comments&quot;&gt;}
+{&lt;/POINT&gt;}
+
+--------------------------------------------------------------------------------
+--Importing modules
+IMPORT FGL dbdgii_dbxconstraints
+IMPORT FGL libdbappCommon
+{&lt;POINT Name=&quot;import&quot;&gt;}
+{&lt;/POINT&gt;}
+
+--------------------------------------------------------------------------------
+--Database schema
+SCHEMA dbdgii
+
+--------------------------------------------------------------------------------
+--CRUD functions
+
+{&lt;BLOCK Name=&quot;fct.empresastmp_selectRowByKey&quot;&gt;}
+#+ Select a row identified by the primary key in the &quot;empresastmp&quot; table
+#+
+#+ @param p_key - Primary Key
+#+
+#+ @returnType - INTEGER
+#+ @return - ERROR_SUCCESS|ERROR_FAILURE, l_data
+PUBLIC FUNCTION dbdgii_dbxdata_empresastmp_selectRowByKey(p_key)
+  DEFINE p_key
+    RECORD
+      empresastmp_rnc LIKE empresastmp.rnc
+    END RECORD
+  DEFINE l_data RECORD LIKE empresastmp.*
+  DEFINE errNo INTEGER
+
+  INITIALIZE l_data.* TO NULL
+  LET errNo = ERROR_SUCCESS
+  TRY
+    SELECT * INTO l_data.* FROM empresastmp
+    WHERE empresastmp.rnc = p_key.empresastmp_rnc
+  CATCH
+    INITIALIZE l_data.* TO NULL
+    LET errNo = ERROR_FAILURE
+  END TRY
+
+  RETURN errNo, l_data.*
+END FUNCTION
+{&lt;/BLOCK&gt;} --fct.empresastmp_selectRowByKey
+
+{&lt;BLOCK Name=&quot;fct.empresastmp_insertRowByKey&quot;&gt;}
+#+ Insert a row in the &quot;empresastmp&quot; table and return the primary key created
+#+
+#+ @param p_data - a row data LIKE empresastmp.*
+#+
+#+ @returnType - INTEGER, CHAR(11)
+#+ @return - ERROR_SUCCESS|ERROR_FAILURE, empresastmp.rnc
+PUBLIC FUNCTION dbdgii_dbxdata_empresastmp_insertRowByKey(p_data)
+  DEFINE p_data RECORD LIKE empresastmp.*
+  DEFINE errNo INTEGER
+  DEFINE errMsg STRING
+
+  LET errNo = libdbapp_begin_work()
+  IF errNo == ERROR_SUCCESS THEN
+    CALL dbdgii_dbxconstraints.dbdgii_dbxconstraints_empresastmp_checkTableConstraints(FALSE, p_data.*) RETURNING errNo, errMsg
+    IF errNo == ERROR_SUCCESS THEN
+      TRY
+        INSERT INTO empresastmp VALUES (p_data.*)
+      CATCH
+        LET errNo = ERROR_FAILURE
+      END TRY
+    END IF
+    IF errNo == ERROR_SUCCESS THEN
+      LET errNo = libdbapp_commit_work()
+    ELSE
+      CALL libdbapp_rollback_work()
+    END IF
+  END IF
+  RETURN errNo, errMsg, p_data.rnc
+END FUNCTION
+{&lt;/BLOCK&gt;} --fct.empresastmp_insertRowByKey
+
+{&lt;BLOCK Name=&quot;fct.empresastmp_updateRowByKey&quot;&gt;}
+#+ Update a row identified by the primary key in the &quot;empresastmp&quot; table
+#+
+#+ @param p_key - Primary Key
+#+ @param p_dataT0 - a row data LIKE empresastmp.*
+#+ @param p_dataT1 - a row data LIKE empresastmp.*
+#+
+#+ @returnType - INTEGER
+#+ @return - ERROR_SUCCESS|ERROR_FAILURE
+PUBLIC FUNCTION dbdgii_dbxdata_empresastmp_updateRowByKey(p_key, p_dataT0, p_dataT1)
+  DEFINE p_key
+    RECORD
+      empresastmp_rnc LIKE empresastmp.rnc
+    END RECORD
+  DEFINE p_dataT0 RECORD LIKE empresastmp.*
+  DEFINE p_dataT1 RECORD LIKE empresastmp.*
+  DEFINE l_dataT2 RECORD LIKE empresastmp.*
+  DEFINE errNo INTEGER
+  DEFINE errMsg STRING
+  DEFINE errDiff INTEGER
+
+  INITIALIZE l_dataT2.* TO NULL
+  INITIALIZE errMsg TO NULL
+  LET errDiff = FALSE
+  LET errNo = libdbapp_begin_work()
+  IF errNo == ERROR_SUCCESS THEN
+    TRY
+      -- Concurrent Access done with the FOR UPDATE (not supported by SQLite)
+      IF (UPSHIFT(fgl_db_driver_type()) != &quot;SQT&quot;) THEN
+        SELECT * INTO l_dataT2.* FROM empresastmp
+          WHERE empresastmp.rnc = p_key.empresastmp_rnc
+        FOR UPDATE
+        LET errDiff = (p_dataT0.* != l_dataT2.*)
+      END IF
+
+      IF NOT errDiff THEN
+        CALL dbdgii_dbxconstraints.dbdgii_dbxconstraints_empresastmp_checkTableConstraints(TRUE, p_dataT1.*) RETURNING errNo, errMsg
+        IF errNo == ERROR_SUCCESS THEN
+          UPDATE empresastmp
+            SET empresastmp.* = p_dataT1.*
+            WHERE empresastmp.rnc = p_key.empresastmp_rnc
+        END IF
+      ELSE
+        LET errNo = ERROR_CONCURRENT_ACCESS_FAILURE
+      END IF
+    CATCH
+      LET errNo = ERROR_FAILURE
+    END TRY
+    IF errNo == ERROR_SUCCESS THEN
+      LET errNo = libdbapp_commit_work()
+    ELSE
+      CALL libdbapp_rollback_work()
+    END IF
+  END IF
+
+  RETURN errNo, errMsg
+END FUNCTION
+{&lt;/BLOCK&gt;} --fct.empresastmp_updateRowByKey
+
+{&lt;BLOCK Name=&quot;fct.empresastmp_deleteRowByKey&quot;&gt;}
+#+ Delete a row identified by the primary key in the &quot;empresastmp&quot; table
+#+
+#+ @param p_key - Primary Key
+#+
+#+ @returnType - INTEGER
+#+ @return - ERROR_SUCCESS|ERROR_FAILURE
+PUBLIC FUNCTION dbdgii_dbxdata_empresastmp_deleteRowByKey(p_key)
+  DEFINE p_key
+    RECORD
+      empresastmp_rnc LIKE empresastmp.rnc
+    END RECORD
+  DEFINE errNo INTEGER
+
+  LET errNo = libdbapp_begin_work()
+  IF errNo == ERROR_SUCCESS THEN
+    TRY
+      DELETE FROM empresastmp
+        WHERE empresastmp.rnc = p_key.empresastmp_rnc
+    CATCH
+      LET errNo = ERROR_FAILURE
+    END TRY
+  END IF
+  IF errNo == ERROR_SUCCESS THEN
+    LET errNo = libdbapp_commit_work()
+  ELSE
+    CALL libdbapp_rollback_work()
+  END IF
+
+  RETURN errNo
+END FUNCTION
+{&lt;/BLOCK&gt;} --fct.empresastmp_deleteRowByKey
+
+{&lt;BLOCK Name=&quot;fct.empresastmp_setDefaultValuesFromDBSchema&quot;&gt;}
+#+ Set data with the default values coming from the DB schema
+#+
+PUBLIC FUNCTION dbdgii_dbxdata_empresastmp_setDefaultValuesFromDBSchema()
+  DEFINE l_data RECORD LIKE empresastmp.*
+
+  INITIALIZE l_data.* TO NULL
+  LET l_data.rnc = &quot;&quot;
+  LET l_data.razon_social = &quot;&quot;
+  LET l_data.nombre_empresa = &quot;&quot;
+  LET l_data.actividad = &quot;&quot;
+  LET l_data.calle = &quot;&quot;
+  LET l_data.no_local = &quot;&quot;
+  LET l_data.sector = &quot;&quot;
+  LET l_data.telefono = &quot;&quot;
+  LET l_data.fecha_inicio = &quot;&quot;
+  LET l_data.estado1 = &quot;&quot;
+  LET l_data.estado2 = &quot;&quot;
+
+  RETURN l_data.*
+END FUNCTION
+{&lt;/BLOCK&gt;} --fct.empresastmp_setDefaultValuesFromDBSchema
+
+--------------------------------------------------------------------------------
+--Add user functions
+{&lt;POINT Name=&quot;user.functions&quot;&gt;}
+{&lt;/POINT&gt;}
+</Generated>
+<Diff/>
+<Lost/>
+</File>

DATABASE/dbdgii_dbxdata.lastgen

@@ -0,0 +1,332 @@
+#+ DB schema - Data Management (dbdgii)
+
+--------------------------------------------------------------------------------
+--This code is generated with the template dbapp5.0
+--Warning: Enter your changes within a <BLOCK> or <POINT> section, otherwise they will be lost.
+{<POINT Name="user.comments">} {</POINT>}
+
+--------------------------------------------------------------------------------
+--Importing modules
+IMPORT FGL libdbappCore
+IMPORT FGL libdbappSql
+
+IMPORT FGL dbdgii
+IMPORT FGL dbdgii_events
+IMPORT FGL dbdgii_dbxconstraints
+{<POINT Name="import">} {</POINT>}
+
+--------------------------------------------------------------------------------
+--Database schema
+SCHEMA dbdgii
+
+--------------------------------------------------------------------------------
+--Functions
+
+{<BLOCK Name="fct.empresastmp_pk_empresastmp_selectRowByKey">}
+#+ Select a row identified by the primary key in the "empresastmp" table
+#+
+#+ @param p_key - Primary Key
+#+ @param p_lock - Indicate if a lock is used in order to prevent several users editing the same rows at the same time
+#+
+#+ @returnType INTEGER, LIKE empresastmp.*
+#+ @return     ERROR_SUCCESS|ERROR_FAILURE|ERROR_NOTFOUND, RECORD LIKE empresastmp.*
+PUBLIC FUNCTION dbdgii_dbxdata_empresastmp_pk_empresastmp_selectRowByKey(p_key, p_lock)
+    DEFINE p_key
+        RECORD
+            empresastmp_rnc LIKE empresastmp.rnc
+        END RECORD
+    DEFINE p_lock BOOLEAN
+    DEFINE l_data RECORD LIKE empresastmp.*
+    DEFINE l_supportLock BOOLEAN
+    DEFINE errNo INTEGER
+    {<POINT Name="fct.empresastmp_pk_empresastmp_selectRowByKey.define">} {</POINT>}
+
+    LET errNo = ERROR_SUCCESS
+    -- SQLite does not support the FOR UPDATE close in SELECT syntax
+    LET l_supportLock = (UPSHIFT(fgl_db_driver_type()) != "SQT")
+    {<POINT Name="fct.empresastmp_pk_empresastmp_selectRowByKey.init">} {</POINT>}
+    TRY
+        IF p_lock AND l_supportLock THEN
+            SELECT * INTO l_data.* FROM empresastmp
+                WHERE @empresastmp.rnc = p_key.empresastmp_rnc
+            FOR UPDATE
+        ELSE
+            SELECT * INTO l_data.* FROM empresastmp
+                WHERE @empresastmp.rnc = p_key.empresastmp_rnc
+        END IF
+        IF SQLCA.SQLCODE == NOTFOUND THEN
+            LET errNo = ERROR_NOTFOUND
+        END IF
+    CATCH
+        INITIALIZE l_data.* TO NULL
+        LET errNo = ERROR_FAILURE
+    END TRY
+    {<POINT Name="fct.empresastmp_pk_empresastmp_selectRowByKey.afterSelect">} {</POINT>}
+    RETURN errNo, l_data.*
+END FUNCTION
+{</BLOCK>} --fct.empresastmp_pk_empresastmp_selectRowByKey
+
+{<BLOCK Name="fct.empresastmp_insertRowByKey">}
+#+ Insert a row in the "empresastmp" table and return the primary key created
+#+
+#+ @param p_data - a row data LIKE empresastmp.*
+#+
+#+ @returnType INTEGER, STRING, CHAR(11)
+#+ @return     ERROR_SUCCESS|ERROR_FAILURE, error message, empresastmp.rnc
+PRIVATE FUNCTION dbdgii_dbxdata_empresastmp_insertRowByKey(p_data)
+    DEFINE p_data RECORD LIKE empresastmp.*
+    DEFINE errNo INTEGER
+    DEFINE errMsg STRING
+    {<POINT Name="fct.empresastmp_insertRowByKey.define">} {</POINT>}
+
+    LET errNo = libdbapp_begin_work()
+    IF errNo == ERROR_SUCCESS THEN
+        {<POINT Name="fct.empresastmp_insertRowByKey.init">} {</POINT>}
+
+        IF dbdgii_events.m_DbxDataEvent_empresastmp_BeforeInsertRowByKey IS NOT NULL THEN
+            CALL dbdgii_events.m_DbxDataEvent_empresastmp_BeforeInsertRowByKey(p_data.*)
+                RETURNING errNo, errMsg, p_data.*
+        END IF
+        IF errNo == ERROR_SUCCESS THEN
+            CALL dbdgii_dbxconstraints.dbdgii_dbxconstraints_empresastmp_checkTableConstraints(FALSE, p_data.*) RETURNING errNo, errMsg
+        END IF
+        {<POINT Name="fct.empresastmp_insertRowByKey.beforeInsert" Aliases="fct.empresastmp_insertRowByKey.afterConstraints">} {</POINT>}
+        IF errNo == ERROR_SUCCESS THEN
+            TRY
+                INSERT INTO empresastmp VALUES (p_data.*)
+            CATCH
+                LET errNo = ERROR_FAILURE
+            END TRY
+            IF dbdgii_events.m_DbxDataEvent_empresastmp_AfterInsertRowByKey IS NOT NULL THEN
+                CALL dbdgii_events.m_DbxDataEvent_empresastmp_AfterInsertRowByKey(p_data.*)
+                    RETURNING errNo, errMsg
+            END IF
+            {<POINT Name="fct.empresastmp_insertRowByKey.afterInsert">} {</POINT>}
+        END IF
+        IF errNo == ERROR_SUCCESS THEN
+            LET errNo = libdbapp_commit_work()
+        ELSE
+            CALL libdbapp_rollback_work()
+        END IF
+    END IF
+    RETURN errNo, errMsg, p_data.rnc
+END FUNCTION
+{</BLOCK>} --fct.empresastmp_insertRowByKey
+
+{<BLOCK Name="fct.empresastmp_pk_empresastmp_insertRowByKey">}
+#+ Insert a row in the "empresastmp" table and return the table keys
+#+
+#+ @param p_data - a row data LIKE empresastmp.*
+#+
+#+ @returnType INTEGER, STRING, CHAR(11)
+#+ @return     ERROR_SUCCESS|ERROR_FAILURE, error message, empresastmp.rnc
+PUBLIC FUNCTION dbdgii_dbxdata_empresastmp_pk_empresastmp_insertRowByKey(p_data)
+    DEFINE p_data RECORD LIKE empresastmp.*
+    DEFINE errNo INTEGER
+    DEFINE errMsg STRING
+    {<POINT Name="fct.empresastmp_pk_empresastmp_insertRowByKey.define">} {</POINT>}
+    {<POINT Name="fct.empresastmp_pk_empresastmp_insertRowByKey.init">} {</POINT>}
+
+    CALL dbdgii_dbxdata_empresastmp_insertRowByKey(p_data.*) RETURNING errNo, errMsg, p_data.rnc
+    RETURN errNo, errMsg, p_data.rnc
+END FUNCTION
+{</BLOCK>} --fct.empresastmp_pk_empresastmp_insertRowByKey
+
+{<BLOCK Name="fct.empresastmp_pk_empresastmp_updateRowByKey">}
+#+ Update a row identified by the primary key in the "empresastmp" table
+#+
+#+ @param p_dataT0 - a row data LIKE empresastmp.*
+#+ @param p_dataT1 - a row data LIKE empresastmp.*
+#+
+#+ @returnType INTEGER, STRING
+#+ @return     ERROR_SUCCESS|ERROR_FAILURE|ERROR_CONCURRENT_ACCESS_NOTFOUND|ERROR_CONCURRENT_ACCESS_FAILURE, error message
+PUBLIC FUNCTION dbdgii_dbxdata_empresastmp_pk_empresastmp_updateRowByKey(p_dataT0, p_dataT1)
+    DEFINE p_dataT0 RECORD LIKE empresastmp.*
+    DEFINE p_dataT1 RECORD LIKE empresastmp.*
+    DEFINE l_key
+        RECORD
+            empresastmp_rnc LIKE empresastmp.rnc
+        END RECORD
+    DEFINE errNo INTEGER
+    DEFINE errMsg STRING
+    {<POINT Name="fct.empresastmp_pk_empresastmp_updateRowByKey.define">} {</POINT>}
+    LET l_key.empresastmp_rnc = p_dataT0.rnc
+    INITIALIZE errMsg TO NULL
+    LET errNo = libdbapp_begin_work()
+    IF errNo == ERROR_SUCCESS THEN
+        {<POINT Name="fct.empresastmp_pk_empresastmp_updateRowByKey.init">} {</POINT>}
+        TRY
+            LET errNo = dbdgii_dbxdata_empresastmp_pk_empresastmp_checkRowByKeyWithConcurrentAccess(p_dataT0.*, TRUE)
+            {<POINT Name="fct.empresastmp_pk_empresastmp_updateRowByKey.afterSelect">} {</POINT>}
+            IF errNo == ERROR_SUCCESS THEN
+                CALL dbdgii_dbxconstraints.dbdgii_dbxconstraints_empresastmp_checkTableConstraints(TRUE, p_dataT1.*) RETURNING errNo, errMsg
+                {<POINT Name="fct.empresastmp_pk_empresastmp_updateRowByKey.beforeUpdate" Aliases="fct.empresastmp_pk_empresastmp_updateRowByKey.afterConstraints">} {</POINT>}
+                IF errNo == ERROR_SUCCESS THEN
+                 IF dbdgii_events.m_DbxDataEvent_empresastmp_BeforeUpdateRowByKey IS NOT NULL THEN
+                    CALL dbdgii_events.m_DbxDataEvent_empresastmp_BeforeUpdateRowByKey(p_dataT1.*)
+                        RETURNING errNo, errMsg
+                END IF
+                    UPDATE empresastmp
+                        SET empresastmp.* = p_dataT1.*
+                        WHERE @empresastmp.rnc = l_key.empresastmp_rnc
+                END IF
+            END IF
+        CATCH
+            LET errNo = ERROR_FAILURE
+        END TRY
+        IF dbdgii_events.m_DbxDataEvent_empresastmp_AfterUpdateRowByKey IS NOT NULL THEN
+            CALL dbdgii_events.m_DbxDataEvent_empresastmp_AfterUpdateRowByKey(p_dataT1.*)
+                RETURNING errNo, errMsg
+        END IF
+        {<POINT Name="fct.empresastmp_pk_empresastmp_updateRowByKey.afterUpdate">} {</POINT>}
+        IF errNo == ERROR_SUCCESS THEN
+            LET errNo = libdbapp_commit_work()
+        ELSE
+            CALL libdbapp_rollback_work()
+        END IF
+    END IF
+    RETURN errNo, errMsg
+END FUNCTION
+{</BLOCK>} --fct.empresastmp_pk_empresastmp_updateRowByKey
+
+{<BLOCK Name="fct.empresastmp_pk_empresastmp_deleteRowByKey">}
+#+ Delete a row identified by the primary key in the "empresastmp" table
+#+
+#+ @param p_key - Primary Key
+#+
+#+ @returnType INTEGER
+#+ @return     ERROR_SUCCESS|ERROR_FAILURE|ERROR_DELETE_CASCADE_ROW_USED
+PUBLIC FUNCTION dbdgii_dbxdata_empresastmp_pk_empresastmp_deleteRowByKey(p_key)
+    DEFINE p_key
+        RECORD
+            empresastmp_rnc LIKE empresastmp.rnc
+        END RECORD
+    DEFINE errNo INTEGER
+    {<POINT Name="fct.empresastmp_pk_empresastmp_deleteRowByKey.define">} {</POINT>}
+
+    LET errNo = libdbapp_begin_work()
+    IF errNo == ERROR_SUCCESS THEN
+        {<POINT Name="fct.empresastmp_pk_empresastmp_deleteRowByKey.init">} {</POINT>}
+        IF dbdgii_events.m_DbxDataEvent_empresastmp_BeforeDeleteRowByKey IS NOT NULL THEN
+            CALL dbdgii_events.m_DbxDataEvent_empresastmp_BeforeDeleteRowByKey(p_key.*)
+                RETURNING errNo
+        END IF
+        TRY
+            DELETE FROM empresastmp
+                WHERE @empresastmp.rnc = p_key.empresastmp_rnc
+        CATCH
+            LET errNo = ERROR_FAILURE
+        END TRY
+        IF dbdgii_events.m_DbxDataEvent_empresastmp_AfterDeleteRowByKey IS NOT NULL THEN
+            CALL dbdgii_events.m_DbxDataEvent_empresastmp_AfterDeleteRowByKey(p_key.*)
+                RETURNING errNo
+        END IF
+        {<POINT Name="fct.empresastmp_pk_empresastmp_deleteRowByKey.afterDelete">} {</POINT>}
+        IF errNo == ERROR_SUCCESS THEN
+            LET errNo = libdbapp_commit_work()
+        ELSE
+            CALL libdbapp_rollback_work()
+        END IF
+    END IF
+    RETURN errNo
+END FUNCTION
+{</BLOCK>} --fct.empresastmp_pk_empresastmp_deleteRowByKey
+
+{<BLOCK Name="fct.empresastmp_pk_empresastmp_deleteRowByKeyWithConcurrentAccess">}
+#+ Delete a row identified by the primary key in the "empresastmp" table if the concurrent access is success
+#+
+#+ @param p_dataT0 - a row data LIKE empresastmp.*
+#+
+#+ @returnType INTEGER
+#+ @return     ERROR_SUCCESS|ERROR_FAILURE|ERROR_CONCURRENT_ACCESS_NOTFOUND|ERROR_CONCURRENT_ACCESS_FAILURE|ERROR_DELETE_CASCADE_ROW_USED
+PUBLIC FUNCTION dbdgii_dbxdata_empresastmp_pk_empresastmp_deleteRowByKeyWithConcurrentAccess(p_dataT0)
+    DEFINE p_dataT0 RECORD LIKE empresastmp.*
+    DEFINE l_key
+        RECORD
+            empresastmp_rnc LIKE empresastmp.rnc
+        END RECORD
+    DEFINE errNo INTEGER
+    {<POINT Name="fct.empresastmp_pk_empresastmp_deleteRowByKeyWithConcurrentAccess.define">} {</POINT>}
+
+    LET l_key.empresastmp_rnc = p_dataT0.rnc
+    LET errNo = libdbapp_begin_work()
+    IF errNo == ERROR_SUCCESS THEN
+        {<POINT Name="fct.empresastmp_pk_empresastmp_deleteRowByKeyWithConcurrentAccess.init">} {</POINT>}
+        LET errNo = dbdgii_dbxdata_empresastmp_pk_empresastmp_checkRowByKeyWithConcurrentAccess(p_dataT0.*, TRUE)
+        {<POINT Name="fct.empresastmp_pk_empresastmp_deleteRowByKeyWithConcurrentAccess.afterSelect">} {</POINT>}
+        IF errNo == ERROR_SUCCESS THEN
+            LET errNo = dbdgii_dbxdata_empresastmp_pk_empresastmp_deleteRowByKey(l_key.*)
+        END IF
+        {<POINT Name="fct.empresastmp_pk_empresastmp_deleteRowByKeyWithConcurrentAccess.afterDelete">} {</POINT>}
+        IF errNo == ERROR_SUCCESS THEN
+            LET errNo = libdbapp_commit_work()
+        ELSE
+            CALL libdbapp_rollback_work()
+        END IF
+    END IF
+    RETURN errNo
+END FUNCTION
+{</BLOCK>} --fct.empresastmp_pk_empresastmp_deleteRowByKeyWithConcurrentAccess
+
+{<BLOCK Name="fct.empresastmp_pk_empresastmp_checkRowByKeyWithConcurrentAccess">}
+#+ Check if a row identified by the primary key in the "empresastmp" table has been modified or deleted
+#+
+#+ @param p_dataT0 - a row data LIKE empresastmp.*
+#+ @param p_lock - Indicate if a lock is used in order to prevent several users editing the same rows at the same time
+#+
+#+ @returnType INTEGER
+#+ @return     ERROR_SUCCESS|ERROR_FAILURE|ERROR_CONCURRENT_ACCESS_NOTFOUND|ERROR_CONCURRENT_ACCESS_FAILURE
+PUBLIC FUNCTION dbdgii_dbxdata_empresastmp_pk_empresastmp_checkRowByKeyWithConcurrentAccess(p_dataT0, p_lock)
+    DEFINE p_dataT0 RECORD LIKE empresastmp.*
+    DEFINE l_dataT2 RECORD LIKE empresastmp.*
+    DEFINE l_key
+        RECORD
+            empresastmp_rnc LIKE empresastmp.rnc
+        END RECORD
+    DEFINE p_lock BOOLEAN
+    DEFINE errNo INTEGER
+    DEFINE errDiff INTEGER
+    {<POINT Name="fct.empresastmp_pk_empresastmp_checkRowByKeyWithConcurrentAccess.define">} {</POINT>}
+
+    LET l_key.empresastmp_rnc = p_dataT0.rnc
+    INITIALIZE l_dataT2.* TO NULL
+    LET errDiff = FALSE
+    {<POINT Name="fct.empresastmp_pk_empresastmp_checkRowByKeyWithConcurrentAccess.init">} {</POINT>}
+    CALL dbdgii_dbxdata_empresastmp_pk_empresastmp_selectRowByKey(l_key.*, p_lock) RETURNING errNo, l_dataT2.*
+    CASE errNo
+        WHEN ERROR_SUCCESS
+            LET errDiff = (p_dataT0.* != l_dataT2.*)
+            {<POINT Name="fct.empresastmp_pk_empresastmp_checkRowByKeyWithConcurrentAccess.afterSelect">} {</POINT>}
+            IF NOT errDiff THEN
+                LET errNo = ERROR_SUCCESS
+            ELSE
+                LET errNo = ERROR_CONCURRENT_ACCESS_FAILURE
+            END IF
+        WHEN ERROR_NOTFOUND
+            LET errNo = ERROR_CONCURRENT_ACCESS_NOTFOUND
+    END CASE
+    {<POINT Name="fct.empresastmp_pk_empresastmp_checkRowByKeyWithConcurrentAccess.afterCheck">} {</POINT>}
+    RETURN errNo
+END FUNCTION
+{</BLOCK>} --fct.empresastmp_pk_empresastmp_checkRowByKeyWithConcurrentAccess
+
+{<BLOCK Name="fct.empresastmp_setDefaultValuesFromDBSchema">}
+#+ Set data with the default values coming from the DB schema
+#+
+PUBLIC FUNCTION dbdgii_dbxdata_empresastmp_setDefaultValuesFromDBSchema()
+    DEFINE l_data RECORD LIKE empresastmp.*
+    {<POINT Name="fct.empresastmp_setDefaultValuesFromDBSchema.define">} {</POINT>}
+
+    INITIALIZE l_data.* TO NULL
+    {<POINT Name="fct.empresastmp_setDefaultValuesFromDBSchema.init">} {</POINT>}
+    IF dbdgii_events.m_DbxDataEvent_empresastmp_SetDefaultValues IS NOT NULL THEN
+        CALL dbdgii_events.m_DbxDataEvent_empresastmp_SetDefaultValues(l_data.*)
+            RETURNING l_data.*
+    END IF
+    RETURN l_data.*
+END FUNCTION
+{</BLOCK>} --fct.empresastmp_setDefaultValuesFromDBSchema
+
+--------------------------------------------------------------------------------
+--Add user functions
+{<POINT Name="user.functions">} {</POINT>}

DATABASE/dbdgii_events.4gl

@@ -0,0 +1,45 @@
+#+ DB schema - Events Management (dbdgii)
+
+--------------------------------------------------------------------------------
+--This code is generated with the template dbapp5.0
+
+IMPORT FGL libdbappEvents
+IMPORT FGL dbdgii_common
+IMPORT FGL dbdgii
+
+--------------------------------------------------------------------------------
+--Database schema
+SCHEMA dbdgii
+
+-- DATABASE EVENT FUNCTION TYPES - TABLE LEVEL
+PUBLIC TYPE T_DbxDataEvent_empresastmp_CheckTableConstraints FUNCTION(p_forUpdate BOOLEAN, p_data RECORD LIKE empresastmp.*) RETURNS (INTEGER, STRING)
+PUBLIC TYPE T_DbxDataEvent_empresastmp_BeforeInsertRowByKey FUNCTION(p_data RECORD LIKE empresastmp.*) RETURNS (INTEGER, STRING, RECORD LIKE empresastmp.*)
+PUBLIC TYPE T_DbxDataEvent_empresastmp_AfterInsertRowByKey FUNCTION(p_data RECORD LIKE empresastmp.*) RETURNS (INTEGER, STRING)
+PUBLIC TYPE T_DbxDataEvent_empresastmp_BeforeDeleteRowByKey FUNCTION(p_key empresastmp_pk) RETURNS (INTEGER)
+PUBLIC TYPE T_DbxDataEvent_empresastmp_AfterDeleteRowByKey FUNCTION(p_key empresastmp_pk) RETURNS (INTEGER)
+PUBLIC TYPE T_DbxDataEvent_empresastmp_BeforeUpdateRowByKey FUNCTION(p_data RECORD LIKE empresastmp.*) RETURNS (INTEGER, STRING)
+PUBLIC TYPE T_DbxDataEvent_empresastmp_AfterUpdateRowByKey FUNCTION(p_data RECORD LIKE empresastmp.*) RETURNS (INTEGER, STRING)
+
+PUBLIC TYPE T_DbxDataEvent_empresastmp_SetDefaultValues FUNCTION(p_data RECORD LIKE empresastmp.*) RETURNS (RECORD LIKE empresastmp.*)
+
+PUBLIC TYPE T_DbxDataEvent_empresas_CheckTableConstraints FUNCTION(p_forUpdate BOOLEAN, p_data RECORD LIKE empresas.*) RETURNS (INTEGER, STRING)
+
+-- DATABASE EVENT FUNCTION VARIABLES - TABLE LEVEL
+
+PUBLIC DEFINE m_DbxDataEvent_empresastmp_CheckTableConstraints T_DbxDataEvent_empresastmp_CheckTableConstraints
+PUBLIC DEFINE m_DbxDataEvent_empresastmp_BeforeInsertRowByKey T_DbxDataEvent_empresastmp_BeforeInsertRowByKey
+PUBLIC DEFINE m_DbxDataEvent_empresastmp_AfterInsertRowByKey T_DbxDataEvent_empresastmp_AfterInsertRowByKey
+PUBLIC DEFINE m_DbxDataEvent_empresastmp_BeforeDeleteRowByKey T_DbxDataEvent_empresastmp_BeforeDeleteRowByKey
+PUBLIC DEFINE m_DbxDataEvent_empresastmp_AfterDeleteRowByKey T_DbxDataEvent_empresastmp_AfterDeleteRowByKey
+PUBLIC DEFINE m_DbxDataEvent_empresastmp_BeforeUpdateRowByKey T_DbxDataEvent_empresastmp_BeforeUpdateRowByKey
+PUBLIC DEFINE m_DbxDataEvent_empresastmp_AfterUpdateRowByKey T_DbxDataEvent_empresastmp_AfterUpdateRowByKey
+
+PUBLIC DEFINE m_DbxDataEvent_empresastmp_SetDefaultValues T_DbxDataEvent_empresastmp_SetDefaultValues
+
+PUBLIC DEFINE m_DbxDataEvent_empresas_CheckTableConstraints T_DbxDataEvent_empresas_CheckTableConstraints
+
+-- REGISTER EVENT FUNCTIONS
+PUBLIC FUNCTION registerDbxEvents()
+    -- REGISTER DATABASE EVENT FUNCTIONS - TABLE LEVEL
+
+END FUNCTION

DATABASE/smarmotech.4db

@@ -0,0 +1,135 @@
+<?xml version="1.0" encoding="UTF-8" ?>
+<Schema gstVersion="60003" id="{fce54759-b535-4f5d-8eae-d23bae7227b7}" version="5.0">
+  <AGSettings version="1.1">
+    <DynamicProperties version="4">
+      <DynamicProperty description="Associated label when generating form" initialValue="" isDefaultInherited="false" isHidden="false" label="Label" name="label" readOnly="false" type="TEXT"/>
+      <DynamicProperty description="Associated widget" editorInfo="alwaysUpdate:true;contains:ButtonEdit|CheckBox|ComboBox|DateEdit|DateTimeEdit|Edit|FFImage|FFLabel|Field|Phantom|ProgressBar|RadioGroup|Slider|SpinEdit|TextEdit|TimeEdit" initialValue="Edit" isDefaultInherited="false" isHidden="false" label="Widget" name="widget" readOnly="false" type="ENUM"/>
+      <DynamicPropertyGroup collapsed="false" description="Formfield properties" label="Formfield" name="formfieldGroup" properties="label;widget"/>
+    </DynamicProperties>
+    <NodeInfos version="1">
+      <NodeInfo mimeType="db/column" properties="widget;label"/>
+    </NodeInfos>
+  </AGSettings>
+  <ExtractionSettings last="Microsoft SQL Server">
+    <ExtractionOptions casens="LowerCase" cvmeth="AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" ignerr="true" systab="false" type="Microsoft SQL Server"/>
+  </ExtractionSettings>
+  <Table active="true" name="_tmpboni2021_" status="A" uuid="db/table11133">
+    <Column fglLength="8" fglType="3" name="no" notNull="false" order="1" status="A" uuid="db/column139773"/>
+    <Column fglLength="8" fglType="3" name="num_emp" notNull="false" order="2" status="A" uuid="db/column139775"/>
+    <Column fglLength="255" fglType="201" name="nombre" notNull="false" order="3" status="A" uuid="db/column139777"/>
+    <Column fglLength="255" fglType="201" name="apellido" notNull="false" order="4" status="A" uuid="db/column139779"/>
+    <Column fglLength="8" fglType="3" name="bono_bruto" notNull="false" order="5" status="A" uuid="db/column139781"/>
+    <Column fglLength="8" fglType="3" name="infotep" notNull="false" order="6" status="A" uuid="db/column139783"/>
+    <Column fglLength="8" fglType="3" name="bonificacion_neta" notNull="false" order="7" status="A" uuid="db/column139785"/>
+  </Table>
+  <Table active="true" name="intb00043_" status="A" uuid="db/table10591">
+    <Column fglLength="8" fglType="3" name="cod_bodega" notNull="false" order="1" status="A" uuid="db/column133203"/>
+    <Column fglLength="8" fglType="3" name="cod_seccion" notNull="false" order="2" status="A" uuid="db/column133205"/>
+    <Column fglLength="8" fglType="3" name="cod_tramo" notNull="false" order="3" status="A" uuid="db/column133207"/>
+    <Column fglLength="255" fglType="201" name="descripcion" notNull="false" order="4" status="A" uuid="db/column133209"/>
+  </Table>
+  <Table active="true" name="lajas2_" status="A" uuid="db/table10807">
+    <Column fglLength="2" fglType="1" name="cod_n" notNull="false" order="1" status="A" uuid="db/column135919"/>
+    <Column fglLength="2" fglType="1" name="cod_grupo" notNull="false" order="2" status="A" uuid="db/column135921"/>
+    <Column fglLength="2" fglType="1" name="cod_tipo" notNull="false" order="3" status="A" uuid="db/column135923"/>
+    <Column fglLength="2" fglType="1" name="cod_sec" notNull="false" order="4" status="A" uuid="db/column135925"/>
+  </Table>
+  <Table active="true" name="marzo_" status="A" uuid="db/table10821">
+    <Column fglLength="8" fglType="3" name="mes" notNull="false" order="1" status="A" uuid="db/column136027"/>
+    <Column fglLength="8" fglType="3" name="ano" notNull="false" order="2" status="A" uuid="db/column136029"/>
+    <Column fglLength="8" fglType="3" name="codprod" notNull="false" order="3" status="A" uuid="db/column136031"/>
+    <Column fglLength="8" fglType="3" name="cantidad" notNull="false" order="4" status="A" uuid="db/column136033"/>
+  </Table>
+  <Table active="true" name="msreplication_options" status="U" uuid="db/table6">
+    <Column fglLength="128" fglType="201" name="optname" notNull="true" order="1" status="U" uuid="db/column41"/>
+    <Column fglLength="1" fglType="45" name="value" notNull="true" order="2" status="U" uuid="db/column42"/>
+    <Column fglLength="4" fglType="2" name="major_version" notNull="true" order="3" status="U" uuid="db/column43"/>
+    <Column fglLength="4" fglType="2" name="minor_version" notNull="true" order="4" status="U" uuid="db/column44"/>
+    <Column fglLength="4" fglType="2" name="revision" notNull="true" order="5" status="U" uuid="db/column45"/>
+    <Column fglLength="4" fglType="2" name="install_failures" notNull="true" order="6" status="U" uuid="db/column46"/>
+  </Table>
+  <Table active="true" name="spt_fallback_db" status="U" uuid="db/table7">
+    <Column fglLength="30" fglType="201" name="xserver_name" notNull="true" order="1" status="U" uuid="db/column47"/>
+    <Column fglLength="4365" fglType="10" name="xdttm_ins" notNull="true" order="2" status="U" uuid="db/column48"/>
+    <Column fglLength="4365" fglType="10" name="xdttm_last_ins_upd" notNull="true" order="3" status="U" uuid="db/column49"/>
+    <Column fglLength="2" fglType="1" name="xfallback_dbid" notNull="false" order="4" status="U" uuid="db/column50"/>
+    <Column fglLength="30" fglType="201" name="name" notNull="true" order="5" status="U" uuid="db/column51"/>
+    <Column fglLength="2" fglType="1" name="dbid" notNull="true" order="6" status="U" uuid="db/column52"/>
+    <Column fglLength="2" fglType="1" name="status" notNull="true" order="7" status="U" uuid="db/column53"/>
+    <Column fglLength="2" fglType="1" name="version" notNull="true" order="8" status="U" uuid="db/column54"/>
+  </Table>
+  <Table active="true" name="spt_fallback_dev" status="U" uuid="db/table8">
+    <Column fglLength="30" fglType="201" name="xserver_name" notNull="true" order="1" status="U" uuid="db/column55"/>
+    <Column fglLength="4365" fglType="10" name="xdttm_ins" notNull="true" order="2" status="U" uuid="db/column56"/>
+    <Column fglLength="4365" fglType="10" name="xdttm_last_ins_upd" notNull="true" order="3" status="U" uuid="db/column57"/>
+    <Column fglLength="4" fglType="2" name="xfallback_low" notNull="false" order="4" status="U" uuid="db/column58"/>
+    <Column fglLength="2" fglType="0" name="xfallback_drive" notNull="false" order="5" status="U" uuid="db/column59"/>
+    <Column fglLength="4" fglType="2" name="low" notNull="true" order="6" status="U" uuid="db/column60"/>
+    <Column fglLength="4" fglType="2" name="high" notNull="true" order="7" status="U" uuid="db/column61"/>
+    <Column fglLength="2" fglType="1" name="status" notNull="true" order="8" status="U" uuid="db/column62"/>
+    <Column fglLength="30" fglType="201" name="name" notNull="true" order="9" status="U" uuid="db/column63"/>
+    <Column fglLength="127" fglType="201" name="phyname" notNull="true" order="10" status="U" uuid="db/column64"/>
+  </Table>
+  <Table active="true" name="spt_fallback_usg" status="U" uuid="db/table9">
+    <Column fglLength="30" fglType="201" name="xserver_name" notNull="true" order="1" status="U" uuid="db/column65"/>
+    <Column fglLength="4365" fglType="10" name="xdttm_ins" notNull="true" order="2" status="U" uuid="db/column66"/>
+    <Column fglLength="4365" fglType="10" name="xdttm_last_ins_upd" notNull="true" order="3" status="U" uuid="db/column67"/>
+    <Column fglLength="4" fglType="2" name="xfallback_vstart" notNull="false" order="4" status="U" uuid="db/column68"/>
+    <Column fglLength="2" fglType="1" name="dbid" notNull="true" order="5" status="U" uuid="db/column69"/>
+    <Column fglLength="4" fglType="2" name="segmap" notNull="true" order="6" status="U" uuid="db/column70"/>
+    <Column fglLength="4" fglType="2" name="lstart" notNull="true" order="7" status="U" uuid="db/column71"/>
+    <Column fglLength="4" fglType="2" name="sizepg" notNull="true" order="8" status="U" uuid="db/column72"/>
+    <Column fglLength="4" fglType="2" name="vstart" notNull="true" order="9" status="U" uuid="db/column73"/>
+  </Table>
+  <Table active="true" name="spt_monitor" status="U" uuid="db/table10">
+    <Column fglLength="4365" fglType="10" name="lastrun" notNull="true" order="1" status="U" uuid="db/column74"/>
+    <Column fglLength="4" fglType="2" name="cpu_busy" notNull="true" order="2" status="U" uuid="db/column75"/>
+    <Column fglLength="4" fglType="2" name="io_busy" notNull="true" order="3" status="U" uuid="db/column76"/>
+    <Column fglLength="4" fglType="2" name="idle" notNull="true" order="4" status="U" uuid="db/column77"/>
+    <Column fglLength="4" fglType="2" name="pack_received" notNull="true" order="5" status="U" uuid="db/column78"/>
+    <Column fglLength="4" fglType="2" name="pack_sent" notNull="true" order="6" status="U" uuid="db/column79"/>
+    <Column fglLength="4" fglType="2" name="connections" notNull="true" order="7" status="U" uuid="db/column80"/>
+    <Column fglLength="4" fglType="2" name="pack_errors" notNull="true" order="8" status="U" uuid="db/column81"/>
+    <Column fglLength="4" fglType="2" name="total_read" notNull="true" order="9" status="U" uuid="db/column82"/>
+    <Column fglLength="4" fglType="2" name="total_write" notNull="true" order="10" status="U" uuid="db/column83"/>
+    <Column fglLength="4" fglType="2" name="total_errors" notNull="true" order="11" status="U" uuid="db/column84"/>
+  </Table>
+  <Table active="true" isView="true" name="spt_values" status="U" uuid="db/table11">
+    <Column fglLength="35" fglType="201" name="name" notNull="false" order="1" status="U" uuid="db/column85"/>
+    <Column fglLength="4" fglType="2" name="number" notNull="true" order="2" status="U" uuid="db/column86"/>
+    <Column fglLength="3" fglType="0" name="type" notNull="true" order="3" status="U" uuid="db/column87"/>
+    <Column fglLength="4" fglType="2" name="low" notNull="false" order="4" status="U" uuid="db/column88"/>
+    <Column fglLength="4" fglType="2" name="high" notNull="false" order="5" status="U" uuid="db/column89"/>
+    <Column fglLength="4" fglType="2" name="status" notNull="false" order="6" status="U" uuid="db/column90"/>
+  </Table>
+  <Table active="true" name="templateproductos_roca" status="A" uuid="db/table11081">
+    <Column fglLength="50" fglType="201" name="tipo_data" notNull="true" order="1" status="A" uuid="db/column139103"/>
+    <Column fglLength="4" fglType="2" name="cod_n" notNull="true" order="2" status="A" uuid="db/column139105"/>
+    <Column fglLength="4" fglType="2" name="cod_grupo" notNull="true" order="3" status="A" uuid="db/column139107"/>
+    <Column fglLength="4" fglType="2" name="cod_tipo" notNull="true" order="4" status="A" uuid="db/column139109"/>
+    <Column fglLength="4" fglType="2" name="cod_sec" notNull="true" order="5" status="A" uuid="db/column139111"/>
+    <Column fglLength="1" fglType="201" name="unidad_med" notNull="false" order="6" status="A" uuid="db/column139113"/>
+    <Column fglLength="1" fglType="201" name="existencia" notNull="false" order="7" status="A" uuid="db/column139115"/>
+    <Column fglLength="1" fglType="201" name="precio_usd" notNull="false" order="8" status="A" uuid="db/column139117"/>
+    <Column fglLength="1" fglType="201" name="tasa" notNull="false" order="9" status="A" uuid="db/column139119"/>
+    <Column fglLength="50" fglType="201" name="id_categoria" notNull="true" order="10" status="A" uuid="db/column139121"/>
+    <Column fglLength="50" fglType="201" name="id_familia" notNull="true" order="11" status="A" uuid="db/column139123"/>
+    <Column fglLength="50" fglType="201" name="id_brand" notNull="true" order="12" status="A" uuid="db/column139125"/>
+    <Column fglLength="1" fglType="201" name="id_color" notNull="false" order="13" status="A" uuid="db/column139127"/>
+    <Column fglLength="100" fglType="201" name="descripcion_esp" notNull="true" order="14" status="A" uuid="db/column139129"/>
+    <Column fglLength="100" fglType="201" name="descripcion_us" notNull="false" order="15" status="A" uuid="db/column139131"/>
+    <Column fglLength="300" fglType="201" name="propiedades_esp" notNull="true" order="16" status="A" uuid="db/column139133"/>
+    <Column fglLength="300" fglType="201" name="propiedades_us" notNull="true" order="17" status="A" uuid="db/column139135"/>
+    <Column fglLength="1" fglType="201" name="nombre_file_foto" notNull="false" order="18" status="A" uuid="db/column139137"/>
+    <Column fglLength="1" fglType="201" name="nombre_file_ficha" notNull="false" order="19" status="A" uuid="db/column139139"/>
+    <Column fglLength="1" fglType="201" name="nombre_file_ficha1" notNull="false" order="20" status="A" uuid="db/column139141"/>
+    <Column fglLength="300" fglType="201" name="meta_data" notNull="false" order="21" status="A" uuid="db/column139143"/>
+  </Table>
+  <Views ActiveView="View-1" showLabels="true">
+    <View Name="View-1">
+      <Layout>
+        <![CDATA[AAAAAgAAABoAZABiAC8AdABhAGIAbABlADEAMQAxADMAM0ELAIDYBAMpQDqqq4AAAyAAAAAAAAAAAAEAAAAaAGQAYgAvAHQAYQBiAGwAZQAxADAANQA5ADFA+4oA3FADPUA6qquAAAMgAAAAAAAAAAABAAAAEgBkAGIALwB0AGEAYgBsAGUANgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAaAGQAYgAvAHQAYQBiAGwAZQAxADEAMAA4ADFBCbuAzdwC/0A6qquAAAMgAAAAAAAAAAABAAAAEgBkAGIALwB0AGEAYgBsAGUAOUB3oAAAAAAAQFRAAAAAAAA/dHrhR64UewEAAAAaAGQAYgAvAHQAYQBiAGwAZQAxADAAOAAyADFBA2KAmxQCR0A6qquAAAMgAAAAAAAAAAABAAAAFABkAGIALwB0AGEAYgBsAGUAMQAwQInQAAAAAABAQIAAAAAAAD9gYk3S8an8AQAAABIAZABiAC8AdABhAGIAbABlADgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAGgBkAGIALwB0AGEAYgBsAGUAMQAwADgAMAA3QQMLAJhYAj1AOqqrgAADIAAAAAAAAAAAAQAAABIAZABiAC8AdABhAGIAbABlADcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB]]>
+      </Layout>
+    </View>
+  </Views>
+</Schema>

DATABASE/smarmotech.sch

@@ -0,0 +1,90 @@
+_tmpboni2021_^no^3^8^1^
+_tmpboni2021_^num_emp^3^8^2^
+_tmpboni2021_^nombre^201^255^3^
+_tmpboni2021_^apellido^201^255^4^
+_tmpboni2021_^bono_bruto^3^8^5^
+_tmpboni2021_^infotep^3^8^6^
+_tmpboni2021_^bonificacion_neta^3^8^7^
+intb00043_^cod_bodega^3^8^1^
+intb00043_^cod_seccion^3^8^2^
+intb00043_^cod_tramo^3^8^3^
+intb00043_^descripcion^201^255^4^
+lajas2_^cod_n^1^2^1^
+lajas2_^cod_grupo^1^2^2^
+lajas2_^cod_tipo^1^2^3^
+lajas2_^cod_sec^1^2^4^
+marzo_^mes^3^8^1^
+marzo_^ano^3^8^2^
+marzo_^codprod^3^8^3^
+marzo_^cantidad^3^8^4^
+msreplication_options^optname^457^128^1^
+msreplication_options^value^301^1^2^
+msreplication_options^major_version^258^4^3^
+msreplication_options^minor_version^258^4^4^
+msreplication_options^revision^258^4^5^
+msreplication_options^install_failures^258^4^6^
+spt_fallback_db^xserver_name^457^30^1^
+spt_fallback_db^xdttm_ins^266^4365^2^
+spt_fallback_db^xdttm_last_ins_upd^266^4365^3^
+spt_fallback_db^xfallback_dbid^1^2^4^
+spt_fallback_db^name^457^30^5^
+spt_fallback_db^dbid^257^2^6^
+spt_fallback_db^status^257^2^7^
+spt_fallback_db^version^257^2^8^
+spt_fallback_dev^xserver_name^457^30^1^
+spt_fallback_dev^xdttm_ins^266^4365^2^
+spt_fallback_dev^xdttm_last_ins_upd^266^4365^3^
+spt_fallback_dev^xfallback_low^2^4^4^
+spt_fallback_dev^xfallback_drive^0^2^5^
+spt_fallback_dev^low^258^4^6^
+spt_fallback_dev^high^258^4^7^
+spt_fallback_dev^status^257^2^8^
+spt_fallback_dev^name^457^30^9^
+spt_fallback_dev^phyname^457^127^10^
+spt_fallback_usg^xserver_name^457^30^1^
+spt_fallback_usg^xdttm_ins^266^4365^2^
+spt_fallback_usg^xdttm_last_ins_upd^266^4365^3^
+spt_fallback_usg^xfallback_vstart^2^4^4^
+spt_fallback_usg^dbid^257^2^5^
+spt_fallback_usg^segmap^258^4^6^
+spt_fallback_usg^lstart^258^4^7^
+spt_fallback_usg^sizepg^258^4^8^
+spt_fallback_usg^vstart^258^4^9^
+spt_monitor^lastrun^266^4365^1^
+spt_monitor^cpu_busy^258^4^2^
+spt_monitor^io_busy^258^4^3^
+spt_monitor^idle^258^4^4^
+spt_monitor^pack_received^258^4^5^
+spt_monitor^pack_sent^258^4^6^
+spt_monitor^connections^258^4^7^
+spt_monitor^pack_errors^258^4^8^
+spt_monitor^total_read^258^4^9^
+spt_monitor^total_write^258^4^10^
+spt_monitor^total_errors^258^4^11^
+spt_values^name^201^35^1^
+spt_values^number^258^4^2^
+spt_values^type^256^3^3^
+spt_values^low^2^4^4^
+spt_values^high^2^4^5^
+spt_values^status^2^4^6^
+templateproductos_roca^tipo_data^457^50^1^
+templateproductos_roca^cod_n^258^4^2^
+templateproductos_roca^cod_grupo^258^4^3^
+templateproductos_roca^cod_tipo^258^4^4^
+templateproductos_roca^cod_sec^258^4^5^
+templateproductos_roca^unidad_med^201^1^6^
+templateproductos_roca^existencia^201^1^7^
+templateproductos_roca^precio_usd^201^1^8^
+templateproductos_roca^tasa^201^1^9^
+templateproductos_roca^id_categoria^457^50^10^
+templateproductos_roca^id_familia^457^50^11^
+templateproductos_roca^id_brand^457^50^12^
+templateproductos_roca^id_color^201^1^13^
+templateproductos_roca^descripcion_esp^457^100^14^
+templateproductos_roca^descripcion_us^201^100^15^
+templateproductos_roca^propiedades_esp^457^300^16^
+templateproductos_roca^propiedades_us^457^300^17^
+templateproductos_roca^nombre_file_foto^201^1^18^
+templateproductos_roca^nombre_file_ficha^201^1^19^
+templateproductos_roca^nombre_file_ficha1^201^1^20^
+templateproductos_roca^meta_data^201^300^21^

MOVIL401/MBSinventario/MBSinventario.4pw

@@ -0,0 +1,190 @@
+<?xml version="1.0" encoding="UTF-8" ?>
+<Project defaultApplication="-2108352543" gstVersion="40101" version="3.4">
+  <Settings>
+    <DynamicProperties version="4">
+      <DynamicProperty description="Accent color (Android 5.0 and later)" initialValue="#9575CD" isDefaultInherited="false" isHidden="false" label="Accent color" name="gma-accent-color" readOnly="false" type="COLOR"/>
+      <DynamicProperty description="Action bar text color (Android 5.0 and later)" initialValue="#EBEBEB" isDefaultInherited="false" isHidden="false" label="Action bar text color" name="gma-actionbar-color" readOnly="false" type="COLOR"/>
+      <DynamicProperty description="Cordova plugins" editorInfo="isDynamic:true;title:Cordova;description:Cordova plugins;icon:checkbox_checked" initialValue="" isDefaultInherited="false" isHidden="false" label="Cordova Plugins" name="gma-cordova" readOnly="false" type="MULTIPLEBOOLEAN"/>
+      <DynamicProperty description="Navigation bar background color (Android 5.0 and later)" initialValue="#5E35B1" isDefaultInherited="false" isHidden="false" label="Navigation bar background color" name="gma-navigationBarBackground-color" readOnly="false" type="COLOR"/>
+      <DynamicProperty description="Primary color (Android 5.0 and later)" initialValue="#5E35B1" isDefaultInherited="false" isHidden="false" label="Primary color" name="gma-primary-color" readOnly="false" type="COLOR"/>
+      <DynamicProperty description="Primary dark color (Android 5.0 and later)" initialValue="#5E35B1" isDefaultInherited="false" isHidden="false" label="Primary dark color" name="gma-primary-dark-color" readOnly="false" type="COLOR"/>
+      <DynamicProperty description="Primary text color (Android 5.0 and later)" initialValue="#000000" isDefaultInherited="false" isHidden="false" label="Primary text color" name="gma-primaryText-color" readOnly="false" type="COLOR"/>
+      <DynamicProperty description="Window backround color (Android 5.0 and later)" initialValue="#ffffff" isDefaultInherited="false" isHidden="false" label="Window background color" name="gma-windowBackground-color" readOnly="false" type="COLOR"/>
+      <DynamicProperty description="Cordova plugins" editorInfo="isDynamic:true;title:Cordova;description:Cordova plugins;icon:checkbox_checked" initialValue="" isDefaultInherited="false" isHidden="false" label="Cordova Plugins" name="gmi-cordova" readOnly="false" type="MULTIPLEBOOLEAN"/>
+      <DynamicProperty description="High-DPI Icon (72x72 px) path" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Icon-hdpi (72x72 px)" name="icon-hdpi" readOnly="false" type="FILE"/>
+      <DynamicProperty description="Low-DPI Icon (36x36 px) path" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Icon-ldpi (36x36 px)" name="icon-ldpi" readOnly="false" type="FILE"/>
+      <DynamicProperty description="Medium-DPI Icon (48x48 px) path" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Icon-mdpi (48x48 px)" name="icon-mdpi" readOnly="false" type="FILE"/>
+      <DynamicProperty description="Extra High-DPI Icon (96x96 px) path" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Icon-xhdpi (96x96 px)" name="icon-xhdpi" readOnly="false" type="FILE"/>
+      <DynamicProperty description="Extra Extra High-DPI Icon (144x144 px) path" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Icon-xxhdpi (144x144 px)" name="icon-xxhdpi" readOnly="false" type="FILE"/>
+      <DynamicProperty description="1024x1024 pixel icon (used for App Store)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Icon (1024x1024 px)" name="icon1024x1024" readOnly="false" type="FILE"/>
+      <DynamicProperty description="120x120 pixel icon (used for home screen)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Icon (120x120 px)" name="icon120x120" readOnly="false" type="FILE"/>
+      <DynamicProperty description="152x152 pixel icon (used for home screen)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Icon (152x152 px)" name="icon152x152" readOnly="false" type="FILE"/>
+      <DynamicProperty description="167x167 pixel icon (used for home screen)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Icon (167x167 px)" name="icon167x167" readOnly="false" type="FILE"/>
+      <DynamicProperty description="180x180 pixel icon (used for home screen)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Icon (180x180 px)" name="icon180x180" readOnly="false" type="FILE"/>
+      <DynamicProperty description="29x29 pixel icon (used for settings)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Icon (29x29 px)" name="icon29x29" readOnly="false" type="FILE"/>
+      <DynamicProperty description="40x40 pixel icon (used for settings)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Icon (40x40 px)" name="icon40x40" readOnly="false" type="FILE"/>
+      <DynamicProperty description="58x58 pixel icon (used for settings)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Icon (58x58 px)" name="icon58x58" readOnly="false" type="FILE"/>
+      <DynamicProperty description="60x60 pixel icon (used for settings)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Icon (60x60 px)" name="icon60x60" readOnly="false" type="FILE"/>
+      <DynamicProperty description="76x76 pixel icon (used for home screen)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Icon (76x76 px)" name="icon76x76" readOnly="false" type="FILE"/>
+      <DynamicProperty description="80x80 pixel icon (used for home screen)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Icon (80x80 px)" name="icon80x80" readOnly="false" type="FILE"/>
+      <DynamicProperty description="87x87 pixel icon (used for home screen)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Icon (87x87 px)" name="icon87x87" readOnly="false" type="FILE"/>
+      <DynamicProperty description="Launch screen for iPhone 5/5S/SE (portrait)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Launch Screen (640x1136 px)" name="launchScreen" readOnly="false" type="FILE"/>
+      <DynamicProperty description="Launch screen for iPad (landcape)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Launch Screen (1024x768 px)" name="launchScreen1024x768" readOnly="false" type="FILE"/>
+      <DynamicProperty description="Launch screen for iPhone X (portrait)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Launch Screen (1125x2436 px)" name="launchScreen1125x2436" readOnly="false" type="FILE"/>
+      <DynamicProperty description="Launch screen for iPhone 5/5S/SE (landscape)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Launch Screen (1136x640 px)" name="launchScreen1136x640" readOnly="false" type="FILE"/>
+      <DynamicProperty description="Launch screen for iPhone 6+/6s+/7+/8+ (portrait)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Launch Screen (1242x2208 px)" name="launchScreen1242x2208" readOnly="false" type="FILE"/>
+      <DynamicProperty description="Launch screen for iPhone 6/6s/7/8 (landscape)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Launch Screen (1334x750 px)" name="launchScreen1334x750" readOnly="false" type="FILE"/>
+      <DynamicProperty description="Launch screen for iPad (portrait)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Launch Screen (1536x2048 px)" name="launchScreen1536x2048" readOnly="false" type="FILE"/>
+      <DynamicProperty description="Launch screen for 10.5&quot; iPad Pro (portrait)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Launch Screen (1668x2224 px)" name="launchScreen1668x2224" readOnly="false" type="FILE"/>
+      <DynamicProperty description="Launch screen for iPad (landscape)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Launch Screen (2048x1536 px)" name="launchScreen2048x1536" readOnly="false" type="FILE"/>
+      <DynamicProperty description="Launch screen for 12.9&quot; iPad Pro (portrait)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Launch Screen (2048x2732 px)" name="launchScreen2048x2732" readOnly="false" type="FILE"/>
+      <DynamicProperty description="Launch screen for iPhone 6+/6s+/7+/8+ (landscape)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Launch Screen (2208x1242 px)" name="launchScreen2208x1242" readOnly="false" type="FILE"/>
+      <DynamicProperty description="Launch screen for 10.5&quot; iPad Pro (landscape)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Launch Screen (2224x1668 px)" name="launchScreen2224x1668" readOnly="false" type="FILE"/>
+      <DynamicProperty description="Launch screen for iPhone X (landscape)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Launch Screen (2436x1125 px)" name="launchScreen2436x1125" readOnly="false" type="FILE"/>
+      <DynamicProperty description="Launch screen for 12.9&quot; iPad Pro (landscape)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Launch Screen (2732x2048 px)" name="launchScreen2732x2048" readOnly="false" type="FILE"/>
+      <DynamicProperty description="Launch screen for iPhone 6/6s/7/8 (portrait)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Launch Screen (750x1334 px)" name="launchScreen750x1334" readOnly="false" type="FILE"/>
+      <DynamicProperty description="Launch screen for iPad (portrait)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Launch Screen (768x1024 px)" name="launchScreen768x1024" readOnly="false" type="FILE"/>
+      <DynamicProperty description="Launch screen Storyboard file (Created from Xcode)" editorInfo="filters:*.storyboard *.xib;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Launch Screen (Storyboard file)" name="launchScreenXib" readOnly="false" type="FILE"/>
+      <DynamicProperty description="Main module" initialValue="" isDefaultInherited="false" isHidden="false" label="Main module" name="mainModule" readOnly="false" type="TEXT"/>
+      <DynamicProperty description="Package identifier" initialValue="" isDefaultInherited="false" isHidden="false" label="ID" name="packageId" readOnly="false" type="TEXT"/>
+      <DynamicProperty description="Label of the package" initialValue="" isDefaultInherited="false" isHidden="false" label="Label" name="packageLabel" readOnly="false" type="TEXT"/>
+      <DynamicProperty description="Version of the package" initialValue="1" isDefaultInherited="false" isHidden="false" label="Version" name="packageVersion" readOnly="false" type="TEXT"/>
+      <DynamicProperty description="Version of the package displayed to the user" initialValue="1" isDefaultInherited="false" isHidden="false" label="VersionName" name="packageVersionName" readOnly="false" type="TEXT"/>
+      <DynamicProperty editorInfo="title:Permissions;description:Android permissions;icon:checkbox_checked;contains:ACCEPT_HANDOVER|ACCESS_BACKGROUND_LOCATION|ACCESS_CHECKIN_PROPERTIES|ACCESS_COARSE_LOCATION|ACCESS_FINE_LOCATION|ACCESS_LOCATION_EXTRA_COMMANDS|ACCESS_MEDIA_LOCATION|ACCESS_NETWORK_STATE|ACCESS_NOTIFICATION_POLICY|ACCESS_WIFI_STATE|ACCOUNT_MANAGER|ADD_VOICEMAIL|ANSWER_PHONE_CALLS|BATTERY_STATS|BIND_ACCESSIBILITY_SERVICE|BIND_APPWIDGET|BIND_AUTOFILL_SERVICE|BIND_CARRIER_MESSAGING_SERVICE|BIND_CARRIER_SERVICES|BIND_CHOOSER_TARGET_SERVICE|BIND_CONDITION_PROVIDER_SERVICE|BIND_DEVICE_ADMIN|BIND_DREAM_SERVICE|BIND_INCALL_SERVICE|BIND_INPUT_METHOD|BIND_MIDI_DEVICE_SERVICE|BIND_NFC_SERVICE|BIND_NOTIFICATION_LISTENER_SERVICE|BIND_QUICK_SETTINGS_TILE|BIND_PRINT_SERVICE|BIND_REMOTEVIEWS|BIND_SLICE|BIND_SCREENING_SERVICE|BIND_TELECOM_CONNECTION_SERVICE|BIND_TEXT_SERVICE|BIND_TV_INPUT|BIND_VISUAL_VOICEMAIL_SERVICE|BIND_VOICE_INTERACTION|BIND_VPN_SERVICE|BIND_VR_LISTENER_SERVICE|BIND_WALLPAPER|BLUETOOTH|BLUETOOTH_ADMIN|BLUETOOTH_CONNECT|BLUETOOTH_PRIVILEGED|BLUETOOTH_SCAN|BODY_SENSORS|BROADCAST_PACKAGE_REMOVED|BROADCAST_SMS|BROADCAST_STICKY|BROADCAST_WAP_PUSH|C2DM_RECEIVE|C2D_MESSAGE|CALL_PHONE|CALL_PRIVILEGED|CAMERA|CAPTURE_AUDIO_OUTPUT|CAPTURE_SECURE_VIDEO_OUTPUT|CAPTURE_VIDEO_OUTPUT|CHANGE_COMPONENT_ENABLED_STATE|CHANGE_CONFIGURATION|CHANGE_NETWORK_STATE|CHANGE_WIFI_MULTICAST_STATE|CHANGE_WIFI_STATE|CLEAR_APP_CACHE|CONTROL_LOCATION_UPDATES|DELETE_CACHE_FILES|DELETE_PACKAGES|DIAGNOSTIC|DISABLE_KEYGUARD|DUMP|EXPAND_STATUS_BAR|FACTORY_TEST|GET_ACCOUNTS|GET_ACCOUNTS_PRIVILEGED|GET_PACKAGE_SIZE|GET_TASKS|GLOBAL_SEARCH|INSTALL_LOCATION_PROVIDER|INSTALL_PACKAGES|INSTALL_SHORTCUT|INSTANT_APP_FOREGROUND_SERVICE|INTERNET|KILL_BACKGROUND_PROCESSES|LOCATION_HARDWARE|MANAGE_DOCUMENTS|MANAGE_EXTERNAL_STORAGE|MANAGE_OWN_CALLS|MASTER_CLEAR|MEDIA_CONTENT_CONTROL|MODIFY_AUDIO_SETTINGS|MODIFY_PHONE_STATE|MOUNT_FORMAT_FILESYSTEMS|MOUNT_UNMOUNT_FILESYSTEMS|NFC|NFC_TRANSACTION_EVENT|PACKAGE_USAGE_STATS|PERSISTENT_ACTIVITY|PROCESS_OUTGOING_CALLS|READ_CALENDAR|READ_CALL_LOG|READ_CONTACTS|READ_EXTERNAL_STORAGE|READ_FRAME_BUFFER|READ_INPUT_STATE|READ_LOGS|READ_PHONE_NUMBER|READ_PHONE_NUMBERS|READ_PHONE_STATE|READ_SMS|READ_SYNC_SETTINGS|READ_SYNC_STATS|READ_VOICEMAIL|REBOOT|RECEIVE_BOOT_COMPLETED|RECEIVE_MMS|RECEIVE_SMS|RECEIVE_WAP_PUSH|RECORD_AUDIO|REORDER_TASKS|REQUEST_COMPANION_RUN_IN_BACKGROUND|REQUEST_COMPANION_USE_DATA_IN_BACKGROUND|REQUEST_DELETE_PACKAGES|REQUEST_IGNORE_BATTERY_OPTIMIZATIONS|REQUEST_INSTALL_PACKAGES|RESTART_PACKAGES|SEND_RESPOND_VIA_MESSAGE|SEND_SMS|SET_ALARM|SET_ALWAYS_FINISH|SET_ANIMATION_SCALE|SET_DEBUG_APP|SET_PREFERRED_APPLICATIONS|SET_PROCESS_LIMIT|SET_TIME|SET_TIME_ZONE|SET_WALLPAPER|SET_WALLPAPER_HINTS|SIGNAL_PERSISTENT_PROCESSES|STATUS_BAR|SYSTEM_ALERT_WINDOW|TRANSMIT_IR|UNINSTALL_SHORTCUT|UPDATE_DEVICE_STATS|USE_FINGERPRINT|USE_SIP|VIBRATE|WAKE_LOCK|WRITE_APN_SETTINGS|WRITE_CALENDAR|WRITE_CALL_LOG|WRITE_CONTACTS|WRITE_EXTERNAL_STORAGE|WRITE_GSERVICES|WRITE_SECURE_SETTINGS|WRITE_SETTINGS|WRITE_SYNC_SETTINGS|WRITE_VOICEMAIL" initialValue="ACCESS_NETWORK_STATE||ACCESS_WIFI_STATE||CHANGE_NETWORK_STATE||INSTALL_SHORTCUT||INTERNET||MOUNT_FORMAT_FILESYSTEMS||READ_LOGS" isDefaultInherited="false" isHidden="false" label="Permissions" name="permissions" readOnly="false" type="MULTIPLEBOOLEAN"/>
+      <DynamicProperty description="Requirements" editorInfo="title:Requirements;description:iOS Requirements;icon:checkbox_checked;contains:accelerometer|auto-focus-camera|armv6|armv7|bluetooth-le|camera-flash|front-facing-camera|gamekit|gps|gyroscope|healthkit|magnetometer|metal|microphone|location-services|opengles-1|opengles-2|opengles-3|peer-peer|sms|still-camera|telephony|video-camera|wifi" initialValue="wifi" isDefaultInherited="false" isHidden="true" label="Requirements" name="required" readOnly="false" type="MULTIPLEBOOLEAN"/>
+      <DynamicProperty description="Manifest resources" initialValue="" isDefaultInherited="false" isHidden="false" label="Resources" name="resources" readOnly="false" type="TEXT"/>
+      <DynamicProperty description="High-DPI Status Icon (36x36 px) path" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Status Icon-hdpi (36x36 px)" name="status-icon-hdpi" readOnly="false" type="FILE"/>
+      <DynamicProperty description="Medium-DPI Status Icon (24x24 px) path" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Status Icon-mdpi (24x24 px)" name="status-icon-mdpi" readOnly="false" type="FILE"/>
+      <DynamicProperty description="Extra High-DPI Status Icon (48x48 px) path" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Status Icon-xhdpi (48x48 px)" name="status-icon-xhdpi" readOnly="false" type="FILE"/>
+      <DynamicPropertyGroup collapsed="false" description="Android" label="Android" name="AndroidGroup" properties="packageVersionName;gma-primary-color;gma-primary-dark-color;gma-accent-color;gma-actionbar-color;gma-primaryText-color;gma-windowBackground-color;gma-navigationBarBackground-color;icon-ldpi;icon-mdpi;icon-hdpi;icon-xhdpi;icon-xxhdpi;status-icon-mdpi;status-icon-hdpi;status-icon-xhdpi;permissions;gma-cordova"/>
+      <DynamicPropertyGroup collapsed="false" description="Genero Archive" label="GAR" name="GARGroup" properties="resources"/>
+      <DynamicPropertyGroup collapsed="false" description="Package" label="Package" name="PackageGroup" properties="packageId;packageLabel;packageVersion;mainModule"/>
+      <DynamicPropertyGroup collapsed="false" description="iOS" label="iOS" name="iOSGroup" properties="launchScreen;launchScreen1136x640;launchScreen750x1334;launchScreen1334x750;launchScreen1242x2208;launchScreen2208x1242;launchScreen1125x2436;launchScreen2436x1125;launchScreen768x1024;launchScreen1024x768;launchScreen1536x2048;launchScreen2048x1536;launchScreen2224x1668;launchScreen1668x2224;launchScreen2048x2732;launchScreen2732x2048;launchScreenXib;icon29x29;icon40x40;icon58x58;icon60x60;icon76x76;icon80x80;icon87x87;icon120x120;icon152x152;icon167x167;icon180x180;icon1024x1024;required;gmi-cordova"/>
+    </DynamicProperties>
+    <NodeInfos version="1">
+      <NodeInfo mimeType="pm/package" properties="packageId;packageLabel;packageVersion;mainModule;packageVersionName;resources;launchScreen;launchScreen1136x640;launchScreen750x1334;launchScreen1334x750;launchScreen1242x2208;launchScreen2208x1242;launchScreen1125x2436;launchScreen2436x1125;launchScreen768x1024;launchScreen1024x768;launchScreen1536x2048;launchScreen2048x1536;launchScreen2224x1668;launchScreen1668x2224;launchScreen2048x2732;launchScreen2732x2048;launchScreenXib;icon29x29;icon40x40;icon58x58;icon60x60;icon76x76;icon80x80;icon87x87;icon120x120;icon152x152;icon167x167;icon180x180;icon1024x1024;gma-primary-color;gma-primary-dark-color;gma-accent-color;gma-actionbar-color;gma-primaryText-color;gma-windowBackground-color;gma-navigationBarBackground-color;icon-ldpi;icon-mdpi;icon-hdpi;icon-xhdpi;icon-xxhdpi;status-icon-mdpi;status-icon-hdpi;status-icon-xhdpi;permissions;required;gma-cordova;gmi-cordova"/>
+    </NodeInfos>
+  </Settings>
+  <LanguageList version="1.0"/>
+  <PlatformList version="1.0"/>
+  <Group id="69846777" label="Packages" language="Genero">
+    <Package binaryName="MBSInventario" dependencies="400358049,781919164,715422167,313644474" description="Android Package (arm)" id="424083497" label="MBSInventario" platform="Android">
+      <DynamicProperty name="icon-xhdpi" value="$(ProjectDir)/images/logoapp.png"/>
+      <DynamicProperty name="packageId" value="com.company.myapp"/>
+      <DynamicProperty name="packageLabel" value="MBSInventario"/>
+      <DynamicProperty name="permissions" value="ACCESS_COARSE_LOCATION;ACCESS_FINE_LOCATION;ACCESS_LOCATION_EXTRA_COMMANDS;ACCESS_NETWORK_STATE;ACCESS_WIFI_STATE;BIND_DEVICE_ADMIN;BLUETOOTH;BLUETOOTH_PRIVILEGED;CHANGE_NETWORK_STATE;DELETE_CACHE_FILES;INSTALL_SHORTCUT;INTERNET;MANAGE_DOCUMENTS;MOUNT_FORMAT_FILESYSTEMS;READ_LOGS;WRITE_EXTERNAL_STORAGE;WRITE_SETTINGS"/>
+      <Directory description="Binaries" destinationDirectory="$(ProjectDir)/bin" includedFiles="*.42?" label="Binaries" recursive="false" sourceDirectory="$(ProjectDir)/bin"/>
+      <Directory description="Configuration Files" destinationDirectory="$(ProjectDir)/bin" includedFiles="fglprofile" label="Config" recursive="false" sourceDirectory="$(ProjectDir)/config"/>
+      <Directory description="Database" destinationDirectory="$(ProjectDir)/bin" includedFiles="*.db" label="Database" recursive="false" sourceDirectory="$(ProjectDir)/database"/>
+      <Directory description="Images" destinationDirectory="$(ProjectDir)/bin" includedFiles="*.png,*.jpg" label="Images" sourceDirectory="$(ProjectDir)/images"/>
+      <Directory description="Template Library" destinationDirectory="$(ProjectDir)/bin" includedFiles="*.42?" label="libdbapp" recursive="false" sourceDirectory="$(GSTSETUPDIR)/bin"/>
+      <Directory description="Studio Library" destinationDirectory="$(ProjectDir)/bin" includedFiles="*.42?" label="libgst" recursive="false" sourceDirectory="$(GSTLIBRARYDIR)/bin"/>
+      <Directory description="Resources" destinationDirectory="$(ProjectDir)/bin" includedFiles="*.4ad,*.4st" label="Resources" recursive="false" sourceDirectory="$(ProjectDir)/resources"/>
+      <Directory description="Template Resources" destinationDirectory="$(ProjectDir)/bin" includedFiles="mobile_dbapp.4ad,dbapp.4st" label="Resources_dbapp" recursive="false" sourceDirectory="$(GSTSETUPDIR)/styles"/>
+      <Directory description="Web Components" destinationDirectory="$(ProjectDir)/bin" label="Webcomponents" recursive="false" sourceDirectory="$(ProjectDir)/webcomponents"/>
+    </Package>
+    <Package binaryName="MBSInventario_x86" dependencies="400358049,781919164,715422167,313644474" description="Android Package (x86)" id="77472230" label="MBSInventario_x86" platform="Android">
+      <DynamicProperty name="packageId" value="com.company.myapp"/>
+      <DynamicProperty name="packageLabel" value="MBSInventario"/>
+      <Directory description="Binaries" destinationDirectory="$(ProjectDir)/bin" includedFiles="*.42?" label="Binaries" recursive="false" sourceDirectory="$(ProjectDir)/bin"/>
+      <Directory description="Configuration Files" destinationDirectory="$(ProjectDir)/bin" includedFiles="fglprofile" label="Config" recursive="false" sourceDirectory="$(ProjectDir)/config"/>
+      <Directory description="Database" destinationDirectory="$(ProjectDir)/bin" includedFiles="*.db" label="Database" recursive="false" sourceDirectory="$(ProjectDir)/database"/>
+      <Directory description="Images" destinationDirectory="$(ProjectDir)/bin" includedFiles="*.png,*.jpg" label="Images" sourceDirectory="$(ProjectDir)/images"/>
+      <Directory description="Template Library" destinationDirectory="$(ProjectDir)/bin" includedFiles="*.42?" label="libdbapp" recursive="false" sourceDirectory="$(GSTSETUPDIR)/bin"/>
+      <Directory description="Studio Library" destinationDirectory="$(ProjectDir)/bin" includedFiles="*.42?" label="libgst" recursive="false" sourceDirectory="$(GSTLIBRARYDIR)/bin"/>
+      <Directory description="Resources" destinationDirectory="$(ProjectDir)/bin" includedFiles="*.4ad,*.4st" label="Resources" recursive="false" sourceDirectory="$(ProjectDir)/resources"/>
+      <Directory description="Template Resources" destinationDirectory="$(ProjectDir)/bin" includedFiles="mobile_dbapp.4ad,dbapp.4st" label="Resources_dbapp" recursive="false" sourceDirectory="$(GSTSETUPDIR)/styles"/>
+      <Directory description="Web Components" destinationDirectory="$(ProjectDir)/bin" label="Webcomponents" recursive="false" sourceDirectory="$(ProjectDir)/webcomponents"/>
+    </Package>
+    <Package binaryName="MyApp_iOS" dependencies="400358049,781919164,715422167,313644474" description="iOS Package" id="489459425" label="MyApp_iOS" platform="iOS">
+      <DynamicProperty name="packageId" value="com.company.myapp"/>
+      <DynamicProperty name="packageLabel" value="MyApp"/>
+      <Directory description="Binaries" destinationDirectory="$(ProjectDir)/bin" includedFiles="*.42?" label="Binaries" recursive="false" sourceDirectory="$(ProjectDir)/bin"/>
+      <Directory description="Configuration Files" destinationDirectory="$(ProjectDir)/bin" includedFiles="fglprofile" label="Config" recursive="false" sourceDirectory="$(ProjectDir)/config"/>
+      <Directory description="Database" destinationDirectory="$(ProjectDir)/bin" includedFiles="*.db" label="Database" recursive="false" sourceDirectory="$(ProjectDir)/database"/>
+      <Directory description="Images" destinationDirectory="$(ProjectDir)/bin" includedFiles="*.png,*.jpg" label="Images" sourceDirectory="$(ProjectDir)/images"/>
+      <Directory description="Template Library" destinationDirectory="$(ProjectDir)/bin" includedFiles="*.42?" label="libdbapp" recursive="false" sourceDirectory="$(GSTSETUPDIR)/bin"/>
+      <Directory description="Studio Library" destinationDirectory="$(ProjectDir)/bin" includedFiles="*.42?" label="libgst" recursive="false" sourceDirectory="$(GSTLIBRARYDIR)/bin"/>
+      <Directory description="Resources" destinationDirectory="$(ProjectDir)/bin" includedFiles="*.4ad,*.4st" label="Resources" recursive="false" sourceDirectory="$(ProjectDir)/resources"/>
+      <Directory description="Template Resources" destinationDirectory="$(ProjectDir)/bin" includedFiles="mobile_dbapp.4ad,dbapp.4st" label="Resources_dbapp" recursive="false" sourceDirectory="$(GSTSETUPDIR)/styles"/>
+      <Directory description="Web Components" destinationDirectory="$(ProjectDir)/bin" label="Webcomponents" recursive="false" sourceDirectory="$(ProjectDir)/webcomponents"/>
+    </Package>
+    <Package binaryName="MyApp_iOS_Simulator" dependencies="400358049,781919164,159917928,212784684,715422167,362164715,313644474" description="iOS Simulator Package" id="8841990" label="MyApp_iOS_Simulator" platform="iOS Simulator">
+      <DynamicProperty name="packageId" value="com.company.myapp"/>
+      <DynamicProperty name="packageLabel" value="MyApp"/>
+      <Directory description="Binaries" destinationDirectory="$(ProjectDir)/bin" includedFiles="*.42?" label="Binaries" recursive="false" sourceDirectory="$(ProjectDir)/bin"/>
+      <Directory description="Configuration Files" destinationDirectory="$(ProjectDir)/bin" includedFiles="fglprofile" label="Config" recursive="false" sourceDirectory="$(ProjectDir)/config"/>
+      <Directory description="Database" destinationDirectory="$(ProjectDir)/bin" includedFiles="*.db" label="Database" recursive="false" sourceDirectory="$(ProjectDir)/database"/>
+      <Directory description="Images" destinationDirectory="$(ProjectDir)/bin" includedFiles="*.png,*.jpg" label="Images" sourceDirectory="$(ProjectDir)/images"/>
+      <Directory description="Template Library" destinationDirectory="$(ProjectDir)/bin" includedFiles="*.42?" label="libdbapp" recursive="false" sourceDirectory="$(GSTSETUPDIR)/bin"/>
+      <Directory description="Studio Library" destinationDirectory="$(ProjectDir)/bin" includedFiles="*.42?" label="libgst" recursive="false" sourceDirectory="$(GSTLIBRARYDIR)/bin"/>
+      <Directory description="Resources" destinationDirectory="$(ProjectDir)/bin" includedFiles="*.4ad,*.4st" label="Resources" recursive="false" sourceDirectory="$(ProjectDir)/resources"/>
+      <Directory description="Template Resources" destinationDirectory="$(ProjectDir)/bin" includedFiles="mobile_dbapp.4ad,dbapp.4st" label="Resources_dbapp" recursive="false" sourceDirectory="$(GSTSETUPDIR)/styles"/>
+      <Directory description="Web Components" destinationDirectory="$(ProjectDir)/bin" label="Webcomponents" recursive="false" sourceDirectory="$(ProjectDir)/webcomponents"/>
+    </Package>
+  </Group>
+  <Group environment="filelist:FGLPROFILE=$(ProjectDir)/config/fglprofile,dirlist:DBPATH=$(ProjectDir)/database;$(DBPATH)" id="670538352" label="Project" language="Genero">
+    <Library binaryName="Config" id="362164715" label="Config">
+      <File filePath="config/fglprofile"/>
+    </Library>
+    <Library binaryName="COPIAS" id="171057183" label="COPIAS">
+      <File filePath="appmain_1.4gl"/>
+    </Library>
+    <Library binaryName="Database" id="455109296" label="Database"/>
+    <Library binaryName="Images" id="122223003" label="Images">
+      <File filePath="images/connect.png"/>
+      <File filePath="images/splash.png"/>
+    </Library>
+    <Application binaryName="mbinventario" dependencies="159917928,212784684,362164715,455109296,121276980" environment="dirlist:FGLIMAGEPATH=$(ProjectDir)/images;$(FGLIMAGEPATH)" id="400358049" label="mbinventario">
+      <Configuration id="-2108352543" label="mbinventario"/>
+      <File filePath="appmain.4gl"/>
+      <File filePath="conexion.4gl"/>
+      <File filePath="conexion_demo.4gl"/>
+      <File filePath="resources/dbcreate.4gl"/>
+      <File filePath="inicio.4gl"/>
+      <File filePath="src/menu.4fd"/>
+      <File filePath="resources/printfile.per"/>
+      <File filePath="src/sincroniza.4fd"/>
+      <File filePath="src/splash.4fd"/>
+      <File filePath="splash_html.4gl"/>
+      <File filePath="resources/transacciones.4gl"/>
+      <File filePath="resources/trx.4fd"/>
+      <File filePath="valida_usuario.4gl"/>
+    </Application>
+    <Library binaryName="Resources" id="159917928" label="Resources">
+      <File filePath="resources/about_text.4gl"/>
+      <File filePath="resources/barcodegenerator.4gl"/>
+      <File filePath="resources/bodegas_download.4gl"/>
+      <File filePath="resources/borra_info.4gl"/>
+      <File filePath="resources/conteo.4ad"/>
+      <File filePath="resources/conteo.4gl"/>
+      <File filePath="resources/descarga_data.4gl"/>
+      <File filePath="resources/desglose.4gl"/>
+      <File filePath="resources/fechaConteo_download.4gl"/>
+      <File filePath="resources/filas_download.4gl"/>
+      <File filePath="resources/imp_etiquetas.4gl"/>
+      <File filePath="resources/menu.4st"/>
+      <File filePath="resources/menu_android.4ad"/>
+      <File filePath="resources/movil_funcionesJSON_com.4gl"/>
+      <File filePath="resources/posicion_download.4gl"/>
+      <File filePath="resources/productos_dwonload.4gl"/>
+      <File filePath="reporte.4gl"/>
+      <File filePath="resources/seccion_download.4gl"/>
+      <File filePath="resources/tramo_download.4gl"/>
+      <File filePath="resources/ver_archivo.4gl"/>
+    </Library>
+    <Library binaryName="src" id="121276980" label="src">
+      <File filePath="src/busca_item.4fd"/>
+      <File filePath="src/descarga.4fd"/>
+      <File filePath="src/desglose.4fd"/>
+      <File filePath="src/desglose_detalle.4fd"/>
+      <File filePath="src/etiquetas.4fd"/>
+      <File filePath="src/inicio.4fd"/>
+      <File filePath="src/init_mobile_log.4gl"/>
+      <File filePath="src/inventario.4fd"/>
+    </Library>
+    <Library binaryName="webcomponents" id="321458916" label="webcomponents">
+      <File filePath="webcomponents/programmable.html"/>
+    </Library>
+  </Group>
+</Project>

MOVIL401/MBSinventario/app_main.4gl

@@ -0,0 +1,201 @@
+IMPORT util
+TYPE t_sync_cmd RECORD
+       oper STRING,
+       data STRING
+     END RECORD
+
+MAIN
+    DEFINE archivo STRING
+    CALL init_mobile_log("err_gm_maps.log")
+
+ #   TRY
+ #     DATABASE dbcrm
+ #   CATCH
+ #     CALL dbcreate()
+ #   END TRY
+    CALL init_database() 
+    CALL menu_principal()
+   
+    
+END MAIN
+FUNCTION init_database()
+
+define l_database_exists boolean
+define ch base.channel
+
+    -- First attempt to connect to database.
+    -- If this successed we know the database exists
+    LET l_database_exists = true
+    TRY
+        DATABASE dbcrm
+       
+     CATCH
+        let ch = base.Channel.create()
+        call ch.openFile("dbcrm.db","w")
+        call ch.close()
+        DATABASE dbcrm
+        CALL dbcreate()
+   
+    end try
+
+
+ END FUNCTION
+ 
+FUNCTION menu_principal()
+          
+  
+  call ui.Interface.loadStyles("menu")
+
+  case frontend() 
+        when "GMA"   call ui.Interface.loadActionDefaults("menu_android")
+#        CALL fgl_winmessage(" ","GMA","info")
+        when "GMI"   call ui.Interface.loadActionDefaults("menu_ios")
+        otherwise    call ui.Interface.loadActionDefaults("menu")
+    end case
+    
+    call execute()
+  
+END FUNCTION
+
+private function splash()
+define splash string
+define l_ok boolean
+define l_err_text string
+define l_result,us_crea,us_asigna string
+DEFINE id_num INT,
+        url STRING, 
+        estado BOOLEAN
+        
+    CALL conexion() RETURNING url
+   CALL valida_usuario_crm(url) RETURNING estado,us_crea,us_asigna
+   IF NOT estado THEN
+      CALL fgl_winmessage("INFO","USUARIO NO ES VALIDO","INFO")
+      EXIT PROGRAM
+   END IF
+    call ui.interface.frontcall("webcomponent","call",["formonly.splash","setById","root",splash_html()],l_result)
+
+    input by name splash attributes(unbuffered, without defaults=true, cancel=false, accept=false)
+        before input
+            -- set to false before deployment
+            call dialog.setActionActive("settings", true)
+    
+        on ACTION settings
+            menu "" attributes(style="dialog")
+            ON ACTION documentos ATTRIBUTE(TEXT="Gestion Documentos")
+                 CALL documentos_mov(id_num,url)
+
+            ON ACTION sincroniza ATTRIBUTE(TEXT="Download Data")
+                OPEN WINDOW ws1 WITH FORM "sincroniza"     
+                      CALL conexion() RETURNING url
+                      CALL usuarios_download(url) RETURNING estado
+                      CALL clases_download(url)
+                      CALL productos_download(url)
+                      CALL requisiciones_download(url)
+                      CALL transportista_download(url)
+                      CALL clientes_download(url)
+                      CALL ordenes_download(url)
+                CLOSE WINDOW ws1      
+            ON ACTION lista ATTRIBUTE(TEXT="Lista Documentos")
+                      CALL listaDocumentos()
+              ON ACTION etiquetas ATTRIBUTE(TEXT="Impresion Etiquetas")
+                     CALL imp_etiquetas()
+        on action CANCEL ATTRIBUTE(TEXT="Salir Aplicacion")
+           exit program
+    end menu
+                
+    
+     #   on action help 
+     #      call browser.browser("Help","https://demo.4js.com/gas/help.htm")
+           -- this could use a PDF but the PDF is slow to load when it contains images
+           -- could also consider embedding PDF inside application
+            #call browser.browser("help","https://demo.4js.com/gas/help.pdf")
+            
+     
+        on action about
+            call show_message(about_text(), true)
+            
+    end input
+    if int_flag then
+        let int_flag = 0
+    end if
+end function
+
+function frontend()
+define l_frontend string
+    call ui.Interface.frontCall("standard","feinfo","fename",l_frontend)
+    
+    return l_frontend
+end FUNCTION
+
+private function about_text()
+define sb base.StringBuffer
+
+    let sb = base.StringBuffer.create()
+    call sb.append("This application was produced by It Business Software (www.itbusiness.com)")
+    call sb.append("\n\n")
+    call sb.append("Application for Geoposition Photos")
+    call sb.append("\n\n")
+    call sb.append("Version Android 1.0")
+    
+    return sb.toString()
+end function
+
+
+function execute()
+    open window splash with form "splash"    
+    call splash()
+    close window splash
+end function
+
+
+private function splash_html()
+    -- considerchanging image for different devices
+    return "<div style=\"position: absolute; left: 0%; top: 0%; height: 100%; width: 100% \"><img src=\"splash.png\" height=\"100%\" width=\"100%\"  onclick=\"execAction('splash','')\" /></div>"
+end FUNCTION
+
+function show_message(l_message_text, l_acknowledge) 
+define l_message_text string
+define l_acknowledge boolean
+
+    if l_acknowledge then
+        if l_message_text.getlength() > 0 then
+            #call fgl_winmessage("Info", l_message_text,"info")
+            menu "Info" attributes(style="dialog", comment=l_message_text)
+               on action accept
+                  exit menu
+            end menu
+        end if
+    else
+        message l_message_text
+        call ui.Interface.refresh() -- force display to current window
+    end if
+end function
+FUNCTION conexion()
+ DEFINE purl,cmd,res, msg STRING,
+        ret INT
+ DEFINE r_cmd  t_sync_cmd
+
+   LET purl="http://66.98.50.155:8097"
+     LET r_cmd.oper = "get_status"
+     LET r_cmd.data = util.JSON.stringify(' ') -- aca se convierte a string los datos de la operacion
+     LET cmd = util.JSON.stringify(r_cmd) -- aca se convierte a string el comando/operacion a enviar al server
+
+ 
+      CALL sync_send_command(purl, cmd) RETURNING ret, res
+      IF ret ==0 THEN
+         RETURN purl     
+      ELSE
+         LET purl="http://192.168.1.75:8097"
+   
+         CALL sync_send_command(purl, cmd) RETURNING ret, res
+         IF ret==0 THEN
+            RETURN purl
+         ELSE   
+            LET msg=SFMT(%"Connection '%1' failed",r_cmd.oper),"\n URL:",purl,"\n",res
+  #          CALL show_sync_err(msg)
+            LET purl='0'
+         END IF 
+      END IF
+
+      RETURN purl
+END FUNCTION

MOVIL401/MBSinventario/appmain.4gl

@@ -0,0 +1,297 @@
+IMPORT util
+IMPORT os
+TYPE t_sync_cmd RECORD
+       oper STRING,
+       data STRING
+     END RECORD
+
+DEFINE codn INT     
+MAIN
+    DEFINE archivo STRING
+    CALL init_mobile_log("err_gm_maps.log")
+
+    TRY
+      DATABASE dbmbs
+      
+    CATCH
+      CREATE DATABASE dbmbs
+    
+    END TRY  
+    DATABASE dbmbs
+#     CALL FGL_WINMESSAGE("INFO",os.Path.homeDir(),"info")
+
+    CALL menu_principal()
+   
+    
+END MAIN
+FUNCTION menu_principal()
+         
+ # call ui.Interface.loadStyles("menu")
+
+  case frontend() 
+        when "GMA"   call ui.Interface.loadActionDefaults("menu_android")
+  #      CALL fgl_winmessage(" ","GMA","info")
+        when "GMI"   call ui.Interface.loadActionDefaults("menu_ios")
+        otherwise    call ui.Interface.loadActionDefaults("menu")
+    end CASE
+ CALL execute()  
+ # CALL splash()  
+END FUNCTION
+
+function execute()
+    open window splash with form "menu"    
+    call splash()
+    close window splash
+end function
+
+private function splash()
+define splash,opcion1 string
+
+define l_result,fecha_crea STRING,
+        kusuario,kclave VARCHAR(50),
+        fecha_date DATETIME YEAR TO MINUTE
+DEFINE id_num,idx INT,
+        url STRING, 
+        estado BOOLEAN,
+        tipo_inventario VARCHAR(100),
+        chk_tramo,chk_productos,chk_seccion,chk_bodegas,chk_usuarios,
+        chk_fechaConteo,chk_fila,chk_posicion SMALLINT,
+        cuenta_existencia,cuenta_productos,cuenta_bodegas,cuenta_secciones,
+        cuenta_tramos,cuenta_fechaConteo,cuenta_filas,cuenta_posiciones INT,
+        arrayOfCalendars dynamic ARRAY OF STRING,
+        tipo,pfecha CHAR(70)
+  DEFINE arr_info DYNAMIC ARRAY OF RECORD
+  xtipo,xfecha STRING      
+  END RECORD 
+    CALL conexion() RETURNING url
+    call inicio(url) RETURNING kusuario,kclave
+    IF kusuario = "demo" THEN
+        CALL conexion_demo() RETURNING url
+    END IF
+  #  call ui.interface.frontcall("webcomponent","call",["formonly.splash","setById","root",splash_html()],l_result)
+{
+    input by name splash attributes(unbuffered, without defaults=true, cancel=false, accept=false)
+        before input
+            -- set to false before deployment
+            call dialog.setActionActive("settings", TRUE)
+
+            on ACTION settings
+            menu "" attributes(style="dialog")
+            ON ACTION inventario ATTRIBUTE(TEXT="Gestion Inventario")
+                 CALL CONTEO(kusuario)
+            ON ACTION sincroniza ATTRIBUTE(TEXT="Download Data")
+                OPEN WINDOW ws1 WITH FORM "sincroniza"   
+                   INPUT BY NAME tipo_inventario,codn,chk_productos,chk_tramo,chk_seccion,chk_bodegas,chk_usuarios,
+                                 chk_fechaConteo 
+                     BEFORE INPUT
+                     IF LENGTH(url) > 1 THEN 
+                        DISPLAY "SERVIDOR ACTIVO" TO url
+                     ELSE
+                        DISPLAY "SERVIDOR INACTIVO" TO url
+                     END IF   
+                        SELECT COUNT(*) INTO cuenta_productos FROM productos
+                        SELECT COUNT(*) INTO cuenta_secciones FROM secciones
+                        SELECT COUNT(*) INTO cuenta_bodegas FROM bodegas
+                        SELECT COUNT(*) INTO cuenta_tramos FROM tramos
+                        SELECT COUNT(*) INTO cuenta_fechaConteo FROM intb00044
+                        SELECT COUNT(*) INTO cuenta_existencia FROM existencia
+                        DISPLAY BY NAME cuenta_productos
+                        DISPLAY BY NAME cuenta_secciones
+                        DISPLAY BY NAME cuenta_bodegas
+                        DISPLAY BY NAME cuenta_tramos
+                        DISPLAY BY NAME cuenta_fechaConteo
+                        DISPLAY BY NAME cuenta_existencia
+                    
+                     AFTER INPUT
+                      IF int_flag THEN
+                         EXIT INPUT
+                      END IF
+      #                CALL valida_usuario(kusuario,kclave,"ABIERTA",url) RETURNING estado,id_num
+      #                IF chk_usuarios = 1 THEN  
+      #                   CALL usuarios_download(url,kusuario,kclave)
+      #                END IF
+                      IF chk_productos = 1 THEN
+                         IF tipo_inventario IS NOT NULL THEN
+                            IF tipo_inventario = 'PRODUCTOS TERMINADOS' THEN
+                         #      IF codn IS NULL THEN
+                         #         ERROR "DEBE COLOCAR LA CLASE A SINCRONIZAR"
+                         #         NEXT FIELD codn
+                         #      END IF
+                             END IF    
+                         CALL productos_download(url,tipo_inventario,kusuario,kclave,codn)
+                      
+                         ELSE
+                            CALL fgl_winmessage("ERROR","FAVOR DE ELEJIR INVENTARIO","INFO")
+                            NEXT FIELD tipo_inventario
+                         END IF   
+                      END IF
+                      IF chk_bodegas = 1 THEN   
+                         CALL bodegas_download(url,kusuario,kclave) 
+                      END IF
+                      IF chk_seccion = 1 THEN
+                         CALL seccion_download(url,kusuario,kclave)
+                      END if
+                      IF chk_tramo = 1 THEN   
+                         CALL tramo_download(url,kusuario,kclave) 
+                      END IF
+                      IF chk_fechaConteo = 1 THEN   
+                      
+                            CALL fechaConteo_download(url,kusuario,kclave) 
+
+                       END IF
+       #               CALL valida_usuario(kusuario,kclave,"CERRAR",url) RETURNING estado,id_num
+                   END INPUT
+              CLOSE WINDOW ws1      
+          #  ON ACTION visualiza ATTRIBUTE(TEXT="view")
+          #     SELECT a.* INTO tipo,Pfecha FROM intb00044 a
+          #     OPEN WINDOW w10 WITH FORM "form"
+          #       DISPLAY tipo TO record1[1].edit1
+          #       DISPLAY pfecha TO record1[1].edit2
+                 
+          #     CLOSE WINDOW w10 
+           #  ON ACTION actualiza ATTRIBUTE(TEXT="CONSULTA PRODUCTOS")
+                LET fecha_date = CURRENT
+                LET fecha_crea = fecha_date 
+                CALL fgl_winmessage("info",fecha_crea,"info")
+                UPDATE iptb00012 SET fech_crea = fecha_crea}
+            #    OPEN WINDOW w20 WITH FORM  "form"
+            #      DECLARE busca_fecha CURSOR FOR
+            #        SELECT a.descrip_esp,a.codid  FROM productos a WHERE
+            #        a.tipo_inventario = 'REPUESTOS'
+            #        LET idx = 1
+            #      FOREACH busca_fecha INTO arr_info[idx].*
+            #        LET idx = idx +1
+            #      END FOREACH   
+            #      DISPLAY ARRAY arr_info TO record1.*
+            #    CLOSE WINDOW w20
+            #  ON ACTION reporte ATTRIBUTE(TEXT="Reporte")
+            #     CALL transacciones()
+            #  ON ACTION crea_index ATTRIBUTE(TEXT="Crear Index")
+            #     CALL db_add_indexes()  
+            #  ON ACTION etiquetas ATTRIBUTE(TEXT="Impresion Etiquetas")
+            
+            #         CALL imp_etiquetas(url,kusuario,kclave)
+
+            #ON ACTION descargar ATTRIBUTE(TEXT="Descargar Data")
+               #        CALL valida_usuario(kusuario,kclave,"ABIERTA",url) RETURNING estado,id_num
+               #        IF estado THEN
+               #           CALL descargar(url,kusuario,kclave)              
+               #           CALL valida_usuario(kusuario,kclave,"CERRAR",url) RETURNING estado,id_num
+               #        ELSE
+               #           CALL fgl_winmessage("INFO","CONEXION INEXISNTETE, CONTACTE AL ADMINISTRADOR","INFO")
+               #          CONTINUE MENU
+               #        END IF   
+           #ON ACTION limpia_conteo ATTRIBUTES(TEXT="Borrar Datos")
+        #      CALL borra_info()           
+      #  on action CANCEL ATTRIBUTE(TEXT="Salir Aplicacion")
+      #     exit program
+    #end menu
+                
+    
+     #   on action help 
+     #      call browser.browser("Help","https://demo.4js.com/gas/help.htm")
+           -- this could use a PDF but the PDF is slow to load when it contains images
+           -- could also consider embedding PDF inside application
+            #call browser.browser("help","https://demo.4js.com/gas/help.pdf")
+            
+     
+     #   on action about
+     #       call show_message(about_text(), true)
+            
+
+    #end input
+    MENU
+      ON ACTION CANCEL
+         EXIT PROGRAM
+      ON ACTION inventario
+              CALL CONTEO(kusuario)
+      ON ACTION descargar 
+             CALL descargar(url,kusuario,kclave)              
+             
+      ON ACTION sincroniza
+             OPEN WINDOW ws1 WITH FORM "sincroniza"   
+                   INPUT BY NAME tipo_inventario,codn,chk_productos,chk_tramo,chk_fila,chk_posicion, chk_seccion,chk_bodegas,chk_usuarios,
+                                 chk_fechaConteo 
+                     BEFORE INPUT
+                     IF LENGTH(url) > 1 THEN 
+                        DISPLAY "SERVIDOR ACTIVO" TO url
+                     ELSE
+                        DISPLAY "SERVIDOR INACTIVO" TO url
+                     END IF   
+                        SELECT COUNT(*) INTO cuenta_productos FROM productos
+                        SELECT COUNT(*) INTO cuenta_secciones FROM secciones
+                        SELECT COUNT(*) INTO cuenta_bodegas FROM bodegas
+                        SELECT COUNT(*) INTO cuenta_tramos FROM tramos
+                        SELECT COUNT(*) INTO cuenta_filas FROM filas
+                        SELECT COUNT(*) INTO cuenta_posiciones FROM posiciones
+                        SELECT COUNT(*) INTO cuenta_fechaConteo FROM intb00044
+                        SELECT COUNT(*) INTO cuenta_existencia FROM existencia
+                        DISPLAY BY NAME cuenta_productos
+                        DISPLAY BY NAME cuenta_secciones
+                        DISPLAY BY NAME cuenta_bodegas
+                        DISPLAY BY NAME cuenta_tramos,cuenta_posiciones,cuenta_filas
+                        DISPLAY BY NAME cuenta_fechaConteo
+                        DISPLAY BY NAME cuenta_existencia
+                    
+                     AFTER INPUT
+                      IF int_flag THEN
+                         EXIT INPUT
+                      END IF
+      #                CALL valida_usuario(kusuario,kclave,"ABIERTA",url) RETURNING estado,id_num
+      #                IF chk_usuarios = 1 THEN  
+      #                   CALL usuarios_download(url,kusuario,kclave)
+      #                END IF
+                      IF chk_productos = 1 THEN
+                         IF tipo_inventario IS NOT NULL THEN
+                            IF tipo_inventario = 'PRODUCTOS TERMINADOS' THEN
+                         #      IF codn IS NULL THEN
+                         #         ERROR "DEBE COLOCAR LA CLASE A SINCRONIZAR"
+                         #         NEXT FIELD codn
+                         #      END IF
+                             END IF    
+                         CALL productos_download(url,tipo_inventario,kusuario,kclave,codn)
+                      
+                         ELSE
+                            CALL fgl_winmessage("ERROR","FAVOR DE ELEJIR INVENTARIO","INFO")
+                            NEXT FIELD tipo_inventario
+                         END IF   
+                      END IF
+                      IF chk_bodegas = 1 THEN   
+                         CALL bodegas_download(url,kusuario,kclave) 
+                      END IF
+                      IF chk_seccion = 1 THEN
+                         CALL seccion_download(url,kusuario,kclave)
+                      END if
+                      IF chk_tramo = 1 THEN   
+                         CALL tramo_download(url,kusuario,kclave) 
+                      END IF
+                      IF chk_fila = 1 THEN   
+                         CALL filas_download(url,kusuario,kclave) 
+                      END IF
+                      IF chk_posicion = 1 THEN   
+                         CALL posicion_download(url,kusuario,kclave) 
+                      END IF
+
+                      IF chk_fechaConteo = 1 THEN   
+                      
+                            CALL fechaConteo_download(url,kusuario,kclave) 
+
+                       END IF
+       #               CALL valida_usuario(kusuario,kclave,"CERRAR",url) RETURNING estado,id_num
+                   END INPUT
+              CLOSE WINDOW ws1   
+            on action about
+            call show_message(about_text(), true)
+   
+    END MENU     
+    if int_flag then
+        let int_flag = 0
+    end if
+end function
+
+function frontend()
+define l_frontend string
+    call ui.Interface.frontCall("standard","feinfo","fename",l_frontend)
+    
+    return l_frontend
+end FUNCTION

MOVIL401/MBSinventario/appmain_1.4gl

@@ -0,0 +1,199 @@
+IMPORT util
+TYPE t_sync_cmd RECORD
+       oper STRING,
+       data STRING
+     END RECORD
+
+MAIN
+    DEFINE archivo STRING
+    CALL init_mobile_log("err_gm_maps.log")
+
+    TRY
+      DATABASE dbmbs
+    CATCH
+      CREATE DATABASE dbmbs
+    END TRY  
+    DATABASE dbmbs
+      
+
+    CALL menu_principal()
+   
+    
+END MAIN
+FUNCTION menu_principal()
+         
+  call ui.Interface.loadStyles("menu")
+
+  case frontend() 
+        when "GMA"   call ui.Interface.loadActionDefaults("menu_android")
+#        CALL fgl_winmessage(" ","GMA","info")
+        when "GMI"   call ui.Interface.loadActionDefaults("menu_ios")
+        otherwise    call ui.Interface.loadActionDefaults("menu")
+    end CASE
+ CALL execute()  
+    
+END FUNCTION
+
+function execute()
+    open window splash with form "splash"    
+    call splash()
+    close window splash
+end function
+
+private function splash()
+define splash string
+
+define l_result,fecha_crea STRING,
+        kusuario,kclave VARCHAR(50),
+        fecha_date DATETIME YEAR TO MINUTE
+DEFINE id_num,idx INT,
+        url STRING, 
+        estado BOOLEAN,
+        tipo_inventario VARCHAR(100),
+        chk_tramo,chk_productos,chk_seccion,chk_bodegas,chk_usuarios,chk_fechaConteo SMALLINT,
+        cuenta_existencia,cuenta_productos,cuenta_bodegas,cuenta_secciones,cuenta_tramos,cuenta_fechaConteo INT,
+        arrayOfCalendars dynamic ARRAY OF STRING,
+        tipo,pfecha CHAR(70)
+  DEFINE arr_info DYNAMIC ARRAY OF RECORD
+  xtipo,xfecha STRING      
+  END RECORD 
+    CALL conexion() RETURNING url
+    call inicio(url) RETURNING kusuario,kclave
+    IF kusuario = "demo" THEN
+        CALL conexion_demo() RETURNING url
+    END IF
+    call ui.interface.frontcall("webcomponent","call",["formonly.splash","setById","root",splash_html()],l_result)
+
+    input by name splash attributes(unbuffered, without defaults=true, cancel=false, accept=false)
+        before input
+            -- set to false before deployment
+            call dialog.setActionActive("settings", TRUE)
+
+            on ACTION settings
+            menu "" attributes(style="dialog")
+            ON ACTION inventario ATTRIBUTE(TEXT="Gestion Inventario")
+                 CALL CONTEO(kusuario)
+            ON ACTION sincroniza ATTRIBUTE(TEXT="Download Data")
+                OPEN WINDOW ws1 WITH FORM "sincroniza"   
+                   INPUT BY NAME tipo_inventario,chk_productos,chk_tramo,chk_seccion,chk_bodegas,chk_usuarios,
+                                 chk_fechaConteo 
+                     BEFORE INPUT
+                     IF LENGTH(url) > 1 THEN 
+                        DISPLAY "SERVIDOR ACTIVO" TO url
+                     ELSE
+                        DISPLAY "SERVIDOR INACTIVO" TO url
+                     END IF   
+                        SELECT COUNT(*) INTO cuenta_productos FROM productos
+                        SELECT COUNT(*) INTO cuenta_secciones FROM secciones
+                        SELECT COUNT(*) INTO cuenta_bodegas FROM bodegas
+                        SELECT COUNT(*) INTO cuenta_tramos FROM tramos
+                        SELECT COUNT(*) INTO cuenta_fechaConteo FROM intb00044
+                        SELECT COUNT(*) INTO cuenta_existencia FROM existencia
+                        DISPLAY BY NAME cuenta_productos
+                        DISPLAY BY NAME cuenta_secciones
+                        DISPLAY BY NAME cuenta_bodegas
+                        DISPLAY BY NAME cuenta_tramos
+                        DISPLAY BY NAME cuenta_fechaConteo
+                        DISPLAY BY NAME cuenta_existencia
+                    
+                     AFTER INPUT
+                      IF int_flag THEN
+                         EXIT INPUT
+                      END IF
+                      CALL valida_usuario(kusuario,kclave,"ABIERTA",url) RETURNING estado,id_num
+                      IF chk_usuarios = 1 THEN  
+                         CALL usuarios_download(url)
+                      END IF
+                      IF chk_productos = 1 THEN
+                         IF tipo_inventario IS NOT NULL THEN
+                      
+                         CALL productos_download(url,tipo_inventario)
+                      
+                         ELSE
+                            CALL fgl_winmessage("ERROR","FAVOR DE ELEJIR INVENTARIO","INFO")
+                            NEXT FIELD tipo_inventario
+                         END IF   
+                      END IF
+                      IF chk_bodegas = 1 THEN   
+                         CALL bodegas_download(url) 
+                      END IF
+                      IF chk_seccion = 1 THEN
+                         CALL seccion_download(url)
+                      END if
+                      IF chk_tramo = 1 THEN   
+                         CALL tramo_download(url) 
+                      END IF
+                      IF chk_fechaConteo = 1 THEN   
+                      
+                            CALL fechaConteo_download(url) 
+
+                       END IF
+                      CALL valida_usuario(kusuario,kclave,"CERRAR",url) RETURNING estado,id_num
+                   END INPUT
+                CLOSE WINDOW ws1      
+          #  ON ACTION visualiza ATTRIBUTE(TEXT="view")
+          #     SELECT a.* INTO tipo,Pfecha FROM intb00044 a
+          #     OPEN WINDOW w10 WITH FORM "form"
+          #       DISPLAY tipo TO record1[1].edit1
+          #       DISPLAY pfecha TO record1[1].edit2
+                 
+          #     CLOSE WINDOW w10 
+           #  ON ACTION actualiza ATTRIBUTE(TEXT="CONSULTA PRODUCTOS")
+               { LET fecha_date = CURRENT
+                LET fecha_crea = fecha_date 
+                CALL fgl_winmessage("info",fecha_crea,"info")
+                UPDATE iptb00012 SET fech_crea = fecha_crea}
+            #    OPEN WINDOW w20 WITH FORM  "form"
+            #      DECLARE busca_fecha CURSOR FOR
+            #        SELECT a.descrip_esp,a.codid  FROM productos a WHERE
+            #        a.tipo_inventario = 'REPUESTOS'
+            #        LET idx = 1
+            #      FOREACH busca_fecha INTO arr_info[idx].*
+            #        LET idx = idx +1
+            #      END FOREACH   
+            #      DISPLAY ARRAY arr_info TO record1.*
+            #    CLOSE WINDOW w20
+              ON ACTION crea_index ATTRIBUTE(TEXT="Crear Index")
+                 CALL db_add_indexes()  
+              ON ACTION etiquetas ATTRIBUTE(TEXT="Impresion Etiquetas")
+            
+                     CALL imp_etiquetas(url)
+
+            ON ACTION descargar ATTRIBUTE(TEXT="Descargar Data")
+                       CALL valida_usuario(kusuario,kclave,"ABIERTA",url) RETURNING estado,id_num
+                       IF estado THEN
+                          CALL descargar(url)              
+                          CALL valida_usuario(kusuario,kclave,"CERRAR",url) RETURNING estado,id_num
+                       ELSE
+                         CALL fgl_winmessage("INFO","CONEXION INEXISNTETE, CONTACTE AL ADMINISTRADOR","INFO")
+                         CONTINUE MENU
+                       END IF   
+           ON ACTION limpia_conteo ATTRIBUTES(TEXT="Borrar Datos")
+              CALL borra_info()           
+        on action CANCEL ATTRIBUTE(TEXT="Salir Aplicacion")
+           exit program
+    end menu
+                
+    
+     #   on action help 
+     #      call browser.browser("Help","https://demo.4js.com/gas/help.htm")
+           -- this could use a PDF but the PDF is slow to load when it contains images
+           -- could also consider embedding PDF inside application
+            #call browser.browser("help","https://demo.4js.com/gas/help.pdf")
+            
+     
+        on action about
+            call show_message(about_text(), true)
+            
+    end input
+    if int_flag then
+        let int_flag = 0
+    end if
+end function
+
+function frontend()
+define l_frontend string
+    call ui.Interface.frontCall("standard","feinfo","fename",l_frontend)
+    
+    return l_frontend
+end FUNCTION

MOVIL401/MBSinventario/conexion.4gl

@@ -0,0 +1,32 @@
+IMPORT util
+TYPE t_sync_cmd RECORD
+       oper STRING,
+       data STRING
+     END RECORD
+
+FUNCTION conexion()
+ DEFINE purl,cmd,res, msg STRING,
+        ret INT
+ DEFINE r_cmd  t_sync_cmd
+
+#   LET purl="https://ws.marmotech.com.do/gas/ws/r/restserver"
+ #   LET purl="http://181.36.230.171/gas/ws/r/restserver"
+   LET purl="http://192.168.40.9/gas/ws/r/restserver"
+ #  LET purl="http://200.88.67.188:2089/gas/ws/r/restserver"
+#   LET purl="https://ws.marmotech.com.do/gas/ws/r/restserver"
+   LET r_cmd.oper = "get_status"
+     LET r_cmd.data = util.JSON.stringify(' ') -- aca se convierte a string los datos de la operacion
+     LET cmd = util.JSON.stringify(r_cmd) -- aca se convierte a string el comando/operacion a enviar al server
+
+ 
+      CALL sync_send_command(purl, cmd) RETURNING ret, res
+      IF ret ==0 THEN
+         RETURN purl     
+         ELSE   
+            LET msg=SFMT(%"Connection '%1' failed",r_cmd.oper),"\n URL:",purl,"\n",res
+            CALL show_sync_err(msg)
+            LET purl='0'
+         END IF 
+   
+      RETURN purl
+END FUNCTION

MOVIL401/MBSinventario/conexion_demo.4gl

@@ -0,0 +1,37 @@
+IMPORT util
+TYPE t_sync_cmd RECORD
+       oper STRING,
+       data STRING
+     END RECORD
+
+FUNCTION conexion_demo()
+ DEFINE purl,cmd,res, msg STRING,
+        ret INT
+ DEFINE r_cmd  t_sync_cmd
+
+   LET purl="http://200.88.67.188:8098"
+
+  # LET purl="http://192.168.1.119:8097"
+   LET r_cmd.oper = "get_status"
+     LET r_cmd.data = util.JSON.stringify(' ') -- aca se convierte a string los datos de la operacion
+     LET cmd = util.JSON.stringify(r_cmd) -- aca se convierte a string el comando/operacion a enviar al server
+
+ 
+      CALL sync_send_command(purl, cmd) RETURNING ret, res
+      IF ret ==0 THEN
+         RETURN purl     
+      ELSE
+         LET purl="http://192.168.40.2:8098"
+   
+         CALL sync_send_command(purl, cmd) RETURNING ret, res
+         IF ret==0 THEN
+            RETURN purl
+         ELSE   
+            LET msg=SFMT(%"Connection '%1' failed",r_cmd.oper),"\n URL:",purl,"\n",res
+  #          CALL show_sync_err(msg)
+            LET purl='0'
+         END IF 
+      END IF
+
+      RETURN purl
+END FUNCTION

MOVIL401/MBSinventario/config/fglprofile

@@ -0,0 +1,3 @@
+dbi.default.driver = "dbmsqt"
+dbi.database.mydatabase.source = "mydatabase.db"
+mobile.environment.DBDATE          = "dmy4"

MOVIL401/MBSinventario/config/fglprofile(1)

@@ -0,0 +1,2 @@
+dbi.default.driver = "dbmsqt"
+dbi.database.mydatabase.source = "mydatabase.db"

MOVIL401/MBSinventario/database/mydatabase(1).code

@@ -0,0 +1,18 @@
+{<CODEFILE version="1.0" encoding="fglutf8">}
+{<SOURCEFILE name="mydatabase_dbxconstraints.4gl" hash="1B2M2Y8AsgTpgAmY7PhCfg==">}
+{<USERCODE>}
+
+{</USERCODE>}
+{<LOSTCODE>}
+
+{</LOSTCODE>}
+{</SOURCEFILE>}
+{<SOURCEFILE name="mydatabase_dbxdata.4gl" hash="1B2M2Y8AsgTpgAmY7PhCfg==">}
+{<USERCODE>}
+
+{</USERCODE>}
+{<LOSTCODE>}
+
+{</LOSTCODE>}
+{</SOURCEFILE>}
+{</CODEFILE>}

MOVIL401/MBSinventario/database/mydatabase(1).sch

@@ -0,0 +1,85 @@
+clase_productos^cod_n^256^1^1^
+clase_productos^descripcion^256^50^2^
+companias^cod_cia^257^2^1^
+companias^nombre^0^100^2^
+companias^direccion^0^100^3^
+companias^telefono^0^20^4^
+companias^representante^0^50^5^
+companias^servidor_sync^0^20^6^
+companias^pais^0^100^7^
+companias^ciudad^0^100^8^
+companias^correo_electronico^0^80^9^
+companias^ultimo_usuario^0^50^10^
+companias^ultima_fecha_login^0^1^11^
+companias^prima_us^5^3074^12^
+companias^itbis^5^3074^13^
+companias^rnc^0^11^14^
+companias^porc_desc^5^3074^15^
+grupo_producto^cod_grupo^257^2^1^
+grupo_producto^descripcion^256^50^2^
+productos^cod_n^257^2^1^
+productos^cod_grupo^257^2^2^
+productos^cod_tipo^257^2^3^
+productos^cod_sec^257^2^4^
+productos^descrip_esp^256^100^5^
+productos^unidad_med^256^4^6^
+productos^codid^52^8^7^
+productos^factor_conv^5^3077^8^
+productos^imagen^201^80^9^
+seg000^usuario^256^50^1^
+seg000^nombre^0^80^2^
+seg000^sec_vend^1^2^3^
+seg000^password^0^8^4^
+seg000^ocupacion^0^60^5^
+seqreg^sr_name^457^30^1^
+seqreg^sr_last^258^4^2^
+transacciones^num_doc^2^4^1^
+transacciones^num_oc^258^4^2^
+transacciones^orden_compra^258^4^3^
+transacciones^conduce_no^256^25^4^
+transacciones^cod_sp^257^2^5^
+transacciones^cod_sp_sec^258^4^6^
+transacciones^area^257^2^7^
+transacciones^cod_n^257^2^8^
+transacciones^cod_grupo^257^2^9^
+transacciones^cod_tipo^257^2^10^
+transacciones^cod_sec^257^2^11^
+transacciones^cantidad_1^261^3077^12^
+transacciones^cantidad_2^261^3077^13^
+transacciones^cod_mov^257^2^14^
+transacciones^bodega^257^2^15^
+transacciones^descripcion_bodega^256^30^16^
+transacciones^codid^308^8^17^
+transacciones^fecha^263^4^18^
+transacciones^us_crea^0^50^19^
+transacciones^fech_crea^0^1^20^
+transacciones^num_req^258^4^21^
+transacciones^sec_Vend^257^2^22^
+transacciones^direccion^256^500^23^
+transacciones^bodega_d^257^2^24^
+transacciones^codigo_bloque^256^25^25^
+transacciones_master^num_doc^2^4^1^
+transacciones_master^cod_mov^1^2^2^
+transacciones_master^num_oc^258^4^3^
+transacciones_master^orden_compra^258^4^4^
+transacciones_master^conduce_no^256^25^5^
+transacciones_master^cod_sp^257^2^6^
+transacciones_master^cod_sp_Sec^258^4^7^
+transacciones_master^num_req^258^4^8^
+transacciones_master^sec_vend^257^2^9^
+transacciones_master^direccion^0^500^10^
+transacciones_master^bodega^1^2^11^
+transacciones_master^bodega_d^257^2^12^
+transacciones_master^us_crea^0^50^13^
+transacciones_master^fech_crea^0^1^14^
+transacciones_master^fecha^7^4^15^
+transportistas^cod_transp^1^2^1^
+transportistas^sec_transp^2^4^2^
+transportistas^nombre^0^30^3^
+transportistas^cedula^0^11^4^
+transportistas^calle^0^30^5^
+transportistas^casa_num^0^10^6^
+transportistas^urbanizacion^0^20^7^
+transportistas^cod_zona^1^2^8^
+transportistas^cod_provincia^1^2^9^
+transportistas^telefono^0^8^10^

MOVIL401/MBSinventario/database/mydatabase(1).xml

@@ -0,0 +1,595 @@
+<?xml version="1.0" encoding="UTF-8" ?>
+<AG version="6" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="http://www.4js.com/ns/gst/3.00/agmodel.xsd">
+  <Database name="mydatabase" schemaFile="C:\Users\jsoto\Documents\GENERO\PROYECTOS\MOVIL300\MBSdocumentos\database\mydatabase.4dbx">
+    <Table name="transportistas">
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_transp" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_transp"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="INTEGER" defaultValue="" fglDatatype="INTEGER" fglLength="4" length="11" name="sec_transp" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="sec_transp"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(30)" defaultValue="" fglDatatype="CHAR(30)" fglLength="30" length="30" name="nombre" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="nombre"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(11)" defaultValue="" fglDatatype="CHAR(11)" fglLength="11" length="11" name="cedula" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cedula"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(30)" defaultValue="" fglDatatype="CHAR(30)" fglLength="30" length="30" name="calle" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="calle"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(10)" defaultValue="" fglDatatype="CHAR(10)" fglLength="10" length="10" name="casa_num" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="casa_num"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(20)" defaultValue="" fglDatatype="CHAR(20)" fglLength="20" length="20" name="urbanizacion" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="urbanizacion"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_zona" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_zona"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_provincia" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_provincia"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(8)" defaultValue="" fglDatatype="CHAR(8)" fglLength="8" length="8" name="telefono" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="telefono"/>
+        </DynamicProperties>
+      </DBColumn>
+    </Table>
+    <Table name="transacciones_master">
+      <DBColumn datatype="INTEGER" defaultValue="" fglDatatype="INTEGER" fglLength="4" length="11" name="num_doc" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="num_doc"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_mov" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_mov"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="INTEGER" defaultValue="" fglDatatype="INTEGER" fglLength="4" length="11" name="num_oc" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="num_oc"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="INTEGER" defaultValue="" fglDatatype="INTEGER" fglLength="4" length="11" name="orden_compra" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="orden_compra"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(25)" defaultValue="" fglDatatype="CHAR(25)" fglLength="25" length="25" name="conduce_no" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="conduce_no"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_sp" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_sp"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="INTEGER" defaultValue="" fglDatatype="INTEGER" fglLength="4" length="11" name="cod_sp_Sec" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_sp_Sec"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="INTEGER" defaultValue="" fglDatatype="INTEGER" fglLength="4" length="11" name="num_req" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="num_req"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="sec_vend" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="sec_vend"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(500)" defaultValue="" fglDatatype="CHAR(500)" fglLength="500" length="500" name="direccion" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="direccion"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="bodega" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="bodega"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="bodega_d" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="bodega_d"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(50)" defaultValue="" fglDatatype="CHAR(50)" fglLength="50" length="50" name="us_crea" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="us_crea"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(1)" defaultValue="" fglDatatype="CHAR(1)" fglLength="1" length="1" name="fech_crea" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="fech_crea"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="DATE" defaultValue="" fglDatatype="DATE" fglLength="4" length="10" name="fecha" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="fecha"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBConstraint constraint="primaryKey" name="PK_transacciones_master_1">
+        <Column name="num_doc"/>
+        <Column name="cod_mov"/>
+        <Column name="bodega"/>
+      </DBConstraint>
+      <DBIndex name="PK_transacciones_master_1" primary="1" unique="0">
+        <Column name="num_doc"/>
+        <Column name="cod_mov"/>
+        <Column name="bodega"/>
+      </DBIndex>
+    </Table>
+    <Table name="transacciones">
+      <DBColumn datatype="INTEGER" defaultValue="" fglDatatype="INTEGER" fglLength="4" length="11" name="num_doc" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="num_doc"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="INTEGER" defaultValue="" fglDatatype="INTEGER" fglLength="4" length="11" name="num_oc" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="num_oc"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="INTEGER" defaultValue="" fglDatatype="INTEGER" fglLength="4" length="11" name="orden_compra" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="orden_compra"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(25)" defaultValue="" fglDatatype="CHAR(25)" fglLength="25" length="25" name="conduce_no" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="conduce_no"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_sp" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_sp"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="INTEGER" defaultValue="" fglDatatype="INTEGER" fglLength="4" length="11" name="cod_sp_sec" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_sp_sec"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="area" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="area"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_n" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_n"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_grupo" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_grupo"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_tipo" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_tipo"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_sec" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_sec"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="DECIMAL(12,5)" defaultValue="" fglDatatype="DECIMAL(12,5)" fglLength="3077" length="14" name="cantidad_1" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cantidad_1"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="DECIMAL(12,5)" defaultValue="" fglDatatype="DECIMAL(12,5)" fglLength="3077" length="14" name="cantidad_2" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cantidad_2"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_mov" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_mov"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="bodega" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="bodega"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(30)" defaultValue="" fglDatatype="CHAR(30)" fglLength="30" length="30" name="descripcion_bodega" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="descripcion_bodega"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="BIGINT" defaultValue="" fglDatatype="BIGINT" fglLength="8" length="20" name="codid" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="codid"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="DATE" defaultValue="" fglDatatype="DATE" fglLength="4" length="10" name="fecha" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="fecha"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(50)" defaultValue="" fglDatatype="CHAR(50)" fglLength="50" length="50" name="us_crea" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="us_crea"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(1)" defaultValue="" fglDatatype="CHAR(1)" fglLength="1" length="1" name="fech_crea" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="fech_crea"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="INTEGER" defaultValue="" fglDatatype="INTEGER" fglLength="4" length="11" name="num_req" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="num_req"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="sec_Vend" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="sec_Vend"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(500)" defaultValue="" fglDatatype="CHAR(500)" fglLength="500" length="500" name="direccion" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="direccion"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="bodega_d" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="bodega_d"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(25)" defaultValue="" fglDatatype="CHAR(25)" fglLength="25" length="25" name="codigo_bloque" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="codigo_bloque"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBConstraint constraint="primaryKey" name="IDX_existencia_1">
+        <Column name="num_doc"/>
+        <Column name="area"/>
+        <Column name="codid"/>
+      </DBConstraint>
+      <DBIndex name="IDX_existencia_1" primary="1" unique="0">
+        <Column name="num_doc"/>
+        <Column name="area"/>
+        <Column name="codid"/>
+      </DBIndex>
+    </Table>
+    <Table name="seqreg">
+      <DBColumn datatype="VARCHAR(30)" defaultValue="" fglDatatype="VARCHAR2(30)" fglLength="30" length="30" name="sr_name" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="sr_name"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="INTEGER" defaultValue="" fglDatatype="INTEGER" fglLength="4" length="11" name="sr_last" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="sr_last"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBConstraint constraint="primaryKey" name="pk_seqreg">
+        <Column name="sr_name"/>
+      </DBConstraint>
+      <DBIndex name="pk_seqreg" primary="1" unique="0">
+        <Column name="sr_name"/>
+      </DBIndex>
+    </Table>
+    <Table name="seg000">
+      <DBColumn datatype="CHAR(50)" defaultValue="" fglDatatype="CHAR(50)" fglLength="50" length="50" name="usuario" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="usuario"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(80)" defaultValue="" fglDatatype="CHAR(80)" fglLength="80" length="80" name="nombre" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="nombre"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="sec_vend" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="sec_vend"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(8)" defaultValue="" fglDatatype="CHAR(8)" fglLength="8" length="8" name="password" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="password"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(60)" defaultValue="" fglDatatype="CHAR(60)" fglLength="60" length="60" name="ocupacion" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="ocupacion"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBConstraint constraint="primaryKey" name="IDX_seg000_1">
+        <Column name="usuario"/>
+      </DBConstraint>
+      <DBIndex name="IDX_seg000_1" primary="1" unique="0">
+        <Column name="usuario"/>
+      </DBIndex>
+    </Table>
+    <Table name="productos">
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_n" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_n"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_grupo" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_grupo"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_tipo" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_tipo"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_sec" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_sec"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(100)" defaultValue="" fglDatatype="CHAR(100)" fglLength="100" length="100" name="descrip_esp" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="descrip_esp"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(4)" defaultValue="" fglDatatype="CHAR(4)" fglLength="4" length="4" name="unidad_med" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="unidad_med"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="BIGINT" defaultValue="" fglDatatype="BIGINT" fglLength="8" length="20" name="codid" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="codid"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="DECIMAL(12,5)" defaultValue="" fglDatatype="DECIMAL(12,5)" fglLength="3077" length="14" name="factor_conv" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="factor_conv"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="VARCHAR(80)" defaultValue="" fglDatatype="VARCHAR2(80)" fglLength="80" length="80" name="imagen" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="imagen"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBConstraint constraint="primaryKey" name="IDX_productos_1">
+        <Column name="cod_grupo"/>
+        <Column name="cod_n"/>
+        <Column name="cod_sec"/>
+        <Column name="cod_tipo"/>
+      </DBConstraint>
+      <DBIndex name="IDX_productos_1" primary="1" unique="0">
+        <Column name="cod_grupo"/>
+        <Column name="cod_n"/>
+        <Column name="cod_sec"/>
+        <Column name="cod_tipo"/>
+      </DBIndex>
+    </Table>
+    <Table name="grupo_producto">
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_grupo" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_grupo"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(50)" defaultValue="" fglDatatype="CHAR(50)" fglLength="50" length="50" name="descripcion" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="descripcion"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBConstraint constraint="primaryKey" name="IDX_grupo_producto_2">
+        <Column name="cod_grupo"/>
+      </DBConstraint>
+      <DBIndex name="IDX_grupo_producto_2" primary="1" unique="0">
+        <Column name="cod_grupo"/>
+      </DBIndex>
+    </Table>
+    <Table name="companias">
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_cia" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_cia"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(100)" defaultValue="" fglDatatype="CHAR(100)" fglLength="100" length="100" name="nombre" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="nombre"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(100)" defaultValue="" fglDatatype="CHAR(100)" fglLength="100" length="100" name="direccion" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="direccion"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(20)" defaultValue="" fglDatatype="CHAR(20)" fglLength="20" length="20" name="telefono" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="telefono"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(50)" defaultValue="" fglDatatype="CHAR(50)" fglLength="50" length="50" name="representante" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="representante"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(20)" defaultValue="" fglDatatype="CHAR(20)" fglLength="20" length="20" name="servidor_sync" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="servidor_sync"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(100)" defaultValue="" fglDatatype="CHAR(100)" fglLength="100" length="100" name="pais" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="pais"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(100)" defaultValue="" fglDatatype="CHAR(100)" fglLength="100" length="100" name="ciudad" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="ciudad"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(80)" defaultValue="" fglDatatype="CHAR(80)" fglLength="80" length="80" name="correo_electronico" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="correo_electronico"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(50)" defaultValue="" fglDatatype="CHAR(50)" fglLength="50" length="50" name="ultimo_usuario" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="ultimo_usuario"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(1)" defaultValue="" fglDatatype="CHAR(1)" fglLength="1" length="1" name="ultima_fecha_login" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="ultima_fecha_login"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="DECIMAL(12,2)" defaultValue="1" fglDatatype="DECIMAL(12,2)" fglLength="3074" length="14" name="prima_us" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="prima_us"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="DECIMAL(12,2)" defaultValue="0" fglDatatype="DECIMAL(12,2)" fglLength="3074" length="14" name="itbis" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="itbis"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(11)" defaultValue="" fglDatatype="CHAR(11)" fglLength="11" length="11" name="rnc" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="rnc"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="DECIMAL(12,2)" defaultValue="" fglDatatype="DECIMAL(12,2)" fglLength="3074" length="14" name="porc_desc" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="porc_desc"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBConstraint constraint="primaryKey" name="IDX_companias_1">
+        <Column name="cod_cia"/>
+      </DBConstraint>
+      <DBIndex name="IDX_companias_1" primary="1" unique="0">
+        <Column name="cod_cia"/>
+      </DBIndex>
+    </Table>
+    <Table name="clase_productos">
+      <DBColumn datatype="CHAR(1)" defaultValue="" fglDatatype="CHAR(1)" fglLength="1" length="1" name="cod_n" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_n"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(50)" defaultValue="" fglDatatype="CHAR(50)" fglLength="50" length="50" name="descripcion" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="descripcion"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBConstraint constraint="primaryKey" name="IDX_clase_productos_1">
+        <Column name="cod_n"/>
+      </DBConstraint>
+      <DBIndex name="IDX_clase_productos_1" primary="1" unique="0">
+        <Column name="cod_n"/>
+      </DBIndex>
+    </Table>
+  </Database>
+</AG>

MOVIL401/MBSinventario/database/mydatabase.4gl

@@ -0,0 +1,11 @@
+IMPORT FGL libdbappCore
+
+IMPORT FGL libdbappEvents
+IMPORT FGL mydatabase_common
+
+--------------------------------------------------------------------------------
+--Database schema
+SCHEMA mydatabase
+
+-- Declare your PUBLIC module variables here.
+PUBLIC DEFINE dlgCtrlInstruction libdbappEvents.DlgCtrlInstruction_Type

MOVIL401/MBSinventario/database/mydatabase.code

@@ -0,0 +1,18 @@
+{<CODEFILE version="1.0" encoding="fglutf8">}
+{<SOURCEFILE name="mydatabase_dbxconstraints.4gl" hash="1B2M2Y8AsgTpgAmY7PhCfg==">}
+{<USERCODE>}
+
+{</USERCODE>}
+{<LOSTCODE>}
+
+{</LOSTCODE>}
+{</SOURCEFILE>}
+{<SOURCEFILE name="mydatabase_dbxdata.4gl" hash="1B2M2Y8AsgTpgAmY7PhCfg==">}
+{<USERCODE>}
+
+{</USERCODE>}
+{<LOSTCODE>}
+
+{</LOSTCODE>}
+{</SOURCEFILE>}
+{</CODEFILE>}

MOVIL401/MBSinventario/database/mydatabase.xml

@@ -0,0 +1,842 @@
+<?xml version="1.0" encoding="UTF-8" ?>
+<AG version="8" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="http://www.4js.com/ns/gst/3.20/agmodel.xsd">
+  <Database name="mydatabase" schemaFile="C:\Users\jsoto\Documents\PROYECTOS\MOVIL320\MBSinventario\database\mydatabase.4dbx">
+    <Table name="transportistas">
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_transp" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_transp"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="INTEGER" defaultValue="" fglDatatype="INTEGER" fglLength="4" length="11" name="sec_transp" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="sec_transp"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(30)" defaultValue="" fglDatatype="CHAR(30)" fglLength="30" length="30" name="nombre" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="nombre"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(11)" defaultValue="" fglDatatype="CHAR(11)" fglLength="11" length="11" name="cedula" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cedula"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(30)" defaultValue="" fglDatatype="CHAR(30)" fglLength="30" length="30" name="calle" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="calle"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(10)" defaultValue="" fglDatatype="CHAR(10)" fglLength="10" length="10" name="casa_num" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="casa_num"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(20)" defaultValue="" fglDatatype="CHAR(20)" fglLength="20" length="20" name="urbanizacion" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="urbanizacion"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_zona" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_zona"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_provincia" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_provincia"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(8)" defaultValue="" fglDatatype="CHAR(8)" fglLength="8" length="8" name="telefono" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="telefono"/>
+        </DynamicProperties>
+      </DBColumn>
+    </Table>
+    <Table name="transacciones_master">
+      <DBColumn datatype="INTEGER" defaultValue="" fglDatatype="INTEGER" fglLength="4" length="11" name="num_doc" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="num_doc"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_mov" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_mov"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="INTEGER" defaultValue="" fglDatatype="INTEGER" fglLength="4" length="11" name="num_oc" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="num_oc"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="INTEGER" defaultValue="" fglDatatype="INTEGER" fglLength="4" length="11" name="orden_compra" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="orden_compra"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(25)" defaultValue="" fglDatatype="CHAR(25)" fglLength="25" length="25" name="conduce_no" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="conduce_no"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_sp" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_sp"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="INTEGER" defaultValue="" fglDatatype="INTEGER" fglLength="4" length="11" name="cod_sp_Sec" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_sp_Sec"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="INTEGER" defaultValue="" fglDatatype="INTEGER" fglLength="4" length="11" name="num_req" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="num_req"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="sec_vend" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="sec_vend"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(500)" defaultValue="" fglDatatype="CHAR(500)" fglLength="500" length="500" name="direccion" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="direccion"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="bodega" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="bodega"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="bodega_d" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="bodega_d"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(50)" defaultValue="" fglDatatype="CHAR(50)" fglLength="50" length="50" name="us_crea" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="us_crea"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(1)" defaultValue="" fglDatatype="CHAR(1)" fglLength="1" length="1" name="fech_crea" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="fech_crea"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="DATE" defaultValue="" fglDatatype="DATE" fglLength="4" length="10" name="fecha" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="fecha"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBConstraint constraint="primaryKey" name="PK_transacciones_master_1">
+        <Column name="num_doc"/>
+        <Column name="cod_mov"/>
+        <Column name="bodega"/>
+      </DBConstraint>
+      <DBIndex name="PK_transacciones_master_1" primary="1" unique="0">
+        <Column name="num_doc"/>
+        <Column name="cod_mov"/>
+        <Column name="bodega"/>
+      </DBIndex>
+    </Table>
+    <Table name="tramo">
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_tramo" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_tramo"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(50)" defaultValue="" fglDatatype="CHAR(50)" fglLength="50" length="50" name="desc_tramo" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="desc_tramo"/>
+        </DynamicProperties>
+      </DBColumn>
+    </Table>
+    <Table name="seg000">
+      <DBColumn datatype="CHAR(50)" defaultValue="" fglDatatype="CHAR(50)" fglLength="50" length="50" name="usuario" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="usuario"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(80)" defaultValue="" fglDatatype="CHAR(80)" fglLength="80" length="80" name="nombre" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="nombre"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="sec_vend" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="sec_vend"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(8)" defaultValue="" fglDatatype="CHAR(8)" fglLength="8" length="8" name="password" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="password"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(60)" defaultValue="" fglDatatype="CHAR(60)" fglLength="60" length="60" name="ocupacion" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="ocupacion"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBConstraint constraint="primaryKey" name="IDX_seg000_1">
+        <Column name="usuario"/>
+      </DBConstraint>
+      <DBIndex name="IDX_seg000_1" primary="1" unique="0">
+        <Column name="usuario"/>
+      </DBIndex>
+    </Table>
+    <Table name="seccion">
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_seccion" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_seccion"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(50)" defaultValue="" fglDatatype="CHAR(50)" fglLength="50" length="50" name="desc_seccion" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="desc_seccion"/>
+        </DynamicProperties>
+      </DBColumn>
+    </Table>
+    <Table name="productos">
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_n" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_n"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_grupo" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_grupo"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_tipo" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_tipo"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_sec" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_sec"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(100)" defaultValue="" fglDatatype="CHAR(100)" fglLength="100" length="100" name="descrip_esp" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="descrip_esp"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(4)" defaultValue="" fglDatatype="CHAR(4)" fglLength="4" length="4" name="unidad_med" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="unidad_med"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="BIGINT" defaultValue="" fglDatatype="BIGINT" fglLength="8" length="20" name="codid" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="codid"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="DECIMAL(12,5)" defaultValue="" fglDatatype="DECIMAL(12,5)" fglLength="3077" length="14" name="factor_conv" notNull="0" precision="12" scale="5">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="factor_conv"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="VARCHAR(80)" defaultValue="" fglDatatype="VARCHAR2(80)" fglLength="80" length="80" name="imagen" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="imagen"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBConstraint constraint="primaryKey" name="IDX_productos_1">
+        <Column name="cod_grupo"/>
+        <Column name="cod_n"/>
+        <Column name="cod_sec"/>
+        <Column name="cod_tipo"/>
+      </DBConstraint>
+      <DBIndex name="IDX_productos_1" primary="1" unique="0">
+        <Column name="cod_grupo"/>
+        <Column name="cod_n"/>
+        <Column name="cod_sec"/>
+        <Column name="cod_tipo"/>
+      </DBIndex>
+    </Table>
+    <Table name="irtb00012">
+      <DBColumn datatype="BIGINT" defaultValue="" fglDatatype="BIGINT" fglLength="8" length="20" name="idtrx" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="idtrx"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="DATE" defaultValue="" fglDatatype="DATE" fglLength="4" length="10" name="fecha" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="fecha"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="bodega" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="bodega"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_seccion" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_seccion"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_tramo" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_tramo"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_n" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_n"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_grupo" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_grupo"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_tipo" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_tipo"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_sec" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_sec"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="DECIMAL(10,2)" defaultValue="" fglDatatype="DECIMAL(10,2)" fglLength="2562" length="12" name="cantidad" notNull="0" precision="10" scale="2">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cantidad"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="DECIMAL(12,2)" defaultValue="" fglDatatype="DECIMAL(12,2)" fglLength="3074" length="14" name="balance" notNull="0" precision="12" scale="2">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="balance"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(50)" defaultValue="" fglDatatype="CHAR(50)" fglLength="50" length="50" name="us_crea" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="us_crea"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="DATE" defaultValue="" fglDatatype="DATE" fglLength="4" length="10" name="fech_crea" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="fech_crea"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(50)" defaultValue="" fglDatatype="CHAR(50)" fglLength="50" length="50" name="us_mod" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="us_mod"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="DATE" defaultValue="" fglDatatype="DATE" fglLength="4" length="10" name="fech_mod" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="fech_mod"/>
+        </DynamicProperties>
+      </DBColumn>
+    </Table>
+    <Table name="iptb00012">
+      <DBColumn datatype="BIGINT" defaultValue="" fglDatatype="BIGINT" fglLength="8" length="20" name="idtrx" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="idtrx"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="DATE" defaultValue="" fglDatatype="DATE" fglLength="4" length="10" name="fecha" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="fecha"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="bodega" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="bodega"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_seccion" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_seccion"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_tramo" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_tramo"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_n" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_n"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_grupo" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_grupo"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_tipo" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_tipo"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_sec" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_sec"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="DECIMAL(10,2)" defaultValue="" fglDatatype="DECIMAL(10,2)" fglLength="2562" length="12" name="cantidad" notNull="0" precision="10" scale="2">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cantidad"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="DECIMAL(12,2)" defaultValue="" fglDatatype="DECIMAL(12,2)" fglLength="3074" length="14" name="balance" notNull="0" precision="12" scale="2">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="balance"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(50)" defaultValue="" fglDatatype="CHAR(50)" fglLength="50" length="50" name="us_crea" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="us_crea"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="DATE" defaultValue="" fglDatatype="DATE" fglLength="4" length="10" name="fech_crea" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="fech_crea"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(50)" defaultValue="" fglDatatype="CHAR(50)" fglLength="50" length="50" name="us_mod" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="us_mod"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="DATE" defaultValue="" fglDatatype="DATE" fglLength="4" length="10" name="fech_mod" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="fech_mod"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="DECIMAL(12,4)" defaultValue="" fglDatatype="DECIMAL(12,4)" fglLength="3076" length="14" name="lado_1" notNull="0" precision="12" scale="4">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="lado_1"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="DECIMAL(12,4)" defaultValue="" fglDatatype="DECIMAL(12,4)" fglLength="3076" length="14" name="lado_2" notNull="0" precision="12" scale="4">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="lado_2"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="DECIMAL(12,4)" defaultValue="" fglDatatype="DECIMAL(12,4)" fglLength="3076" length="14" name="lado_3" notNull="0" precision="12" scale="4">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="lado_3"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBIndex name="PK_iptb00012_1" primary="0" unique="0">
+        <Column name="fecha"/>
+      </DBIndex>
+    </Table>
+    <Table name="iptb00011">
+      <DBColumn datatype="DATE" defaultValue="" fglDatatype="DATE" fglLength="4" length="10" name="fecha" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="fecha"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="bodega" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="bodega"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_seccion" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_seccion"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_tramo" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_tramo"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_n" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_n"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_grupo" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_grupo"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_tipo" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_tipo"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_sec" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_sec"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="DECIMAL(10,2)" defaultValue="" fglDatatype="DECIMAL(10,2)" fglLength="2562" length="12" name="cantidad" notNull="1" precision="10" scale="2">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cantidad"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="DECIMAL(12,2)" defaultValue="" fglDatatype="DECIMAL(12,2)" fglLength="3074" length="14" name="balance" notNull="0" precision="12" scale="2">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="balance"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(50)" defaultValue="" fglDatatype="CHAR(50)" fglLength="50" length="50" name="us_crea" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="us_crea"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="DATE" defaultValue="" fglDatatype="DATE" fglLength="4" length="10" name="fech_crea" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="fech_crea"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(50)" defaultValue="" fglDatatype="CHAR(50)" fglLength="50" length="50" name="us_mod" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="us_mod"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="DATE" defaultValue="" fglDatatype="DATE" fglLength="4" length="10" name="fech_mod" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="fech_mod"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBIndex name="PK_iptb00011_1" primary="0" unique="0">
+        <Column name="fecha"/>
+        <Column name="bodega"/>
+      </DBIndex>
+    </Table>
+    <Table name="intb00012">
+      <DBColumn datatype="BIGINT" defaultValue="" fglDatatype="BIGINT" fglLength="8" length="20" name="idtrx" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="idtrx"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="DATE" defaultValue="" fglDatatype="DATE" fglLength="4" length="10" name="fecha" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="fecha"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="bodega" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="bodega"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_seccion" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_seccion"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_tramo" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_tramo"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_n" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_n"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_grupo" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_grupo"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_tipo" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_tipo"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_sec" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_sec"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="DECIMAL(10,2)" defaultValue="" fglDatatype="DECIMAL(10,2)" fglLength="2562" length="12" name="cantidad" notNull="0" precision="10" scale="2">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cantidad"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="DECIMAL(12,2)" defaultValue="" fglDatatype="DECIMAL(12,2)" fglLength="3074" length="14" name="balance" notNull="0" precision="12" scale="2">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="balance"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(50)" defaultValue="" fglDatatype="CHAR(50)" fglLength="50" length="50" name="us_crea" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="us_crea"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="DATE" defaultValue="" fglDatatype="DATE" fglLength="4" length="10" name="fech_crea" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="fech_crea"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(50)" defaultValue="" fglDatatype="CHAR(50)" fglLength="50" length="50" name="us_mod" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="us_mod"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="DATE" defaultValue="" fglDatatype="DATE" fglLength="4" length="10" name="fech_mod" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="fech_mod"/>
+        </DynamicProperties>
+      </DBColumn>
+    </Table>
+    <Table name="grupo_producto">
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_grupo" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_grupo"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(50)" defaultValue="" fglDatatype="CHAR(50)" fglLength="50" length="50" name="descripcion" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="descripcion"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBConstraint constraint="primaryKey" name="IDX_grupo_producto_2">
+        <Column name="cod_grupo"/>
+      </DBConstraint>
+      <DBIndex name="IDX_grupo_producto_2" primary="1" unique="0">
+        <Column name="cod_grupo"/>
+      </DBIndex>
+    </Table>
+    <Table name="companias">
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_cia" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_cia"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(100)" defaultValue="" fglDatatype="CHAR(100)" fglLength="100" length="100" name="nombre" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="nombre"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(100)" defaultValue="" fglDatatype="CHAR(100)" fglLength="100" length="100" name="direccion" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="direccion"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(20)" defaultValue="" fglDatatype="CHAR(20)" fglLength="20" length="20" name="telefono" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="telefono"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(50)" defaultValue="" fglDatatype="CHAR(50)" fglLength="50" length="50" name="representante" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="representante"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(20)" defaultValue="" fglDatatype="CHAR(20)" fglLength="20" length="20" name="servidor_sync" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="servidor_sync"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(100)" defaultValue="" fglDatatype="CHAR(100)" fglLength="100" length="100" name="pais" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="pais"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(100)" defaultValue="" fglDatatype="CHAR(100)" fglLength="100" length="100" name="ciudad" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="ciudad"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(80)" defaultValue="" fglDatatype="CHAR(80)" fglLength="80" length="80" name="correo_electronico" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="correo_electronico"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(50)" defaultValue="" fglDatatype="CHAR(50)" fglLength="50" length="50" name="ultimo_usuario" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="ultimo_usuario"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(1)" defaultValue="" fglDatatype="CHAR(1)" fglLength="1" length="1" name="ultima_fecha_login" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="ultima_fecha_login"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="DECIMAL(12,2)" defaultValue="1" fglDatatype="DECIMAL(12,2)" fglLength="3074" length="14" name="prima_us" notNull="0" precision="12" scale="2">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="prima_us"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="DECIMAL(12,2)" defaultValue="0" fglDatatype="DECIMAL(12,2)" fglLength="3074" length="14" name="itbis" notNull="0" precision="12" scale="2">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="itbis"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(11)" defaultValue="" fglDatatype="CHAR(11)" fglLength="11" length="11" name="rnc" notNull="0">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="rnc"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="DECIMAL(12,2)" defaultValue="" fglDatatype="DECIMAL(12,2)" fglLength="3074" length="14" name="porc_desc" notNull="0" precision="12" scale="2">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="porc_desc"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBConstraint constraint="primaryKey" name="IDX_companias_1">
+        <Column name="cod_cia"/>
+      </DBConstraint>
+      <DBIndex name="IDX_companias_1" primary="1" unique="0">
+        <Column name="cod_cia"/>
+      </DBIndex>
+    </Table>
+    <Table name="clase_productos">
+      <DBColumn datatype="CHAR(1)" defaultValue="" fglDatatype="CHAR(1)" fglLength="1" length="1" name="cod_n" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_n"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(50)" defaultValue="" fglDatatype="CHAR(50)" fglLength="50" length="50" name="descripcion" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="descripcion"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBConstraint constraint="primaryKey" name="IDX_clase_productos_1">
+        <Column name="cod_n"/>
+      </DBConstraint>
+      <DBIndex name="IDX_clase_productos_1" primary="1" unique="0">
+        <Column name="cod_n"/>
+      </DBIndex>
+    </Table>
+    <Table name="bodegas">
+      <DBColumn datatype="SMALLINT" defaultValue="" fglDatatype="SMALLINT" fglLength="2" length="6" name="cod_bodega" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="cod_bodega"/>
+        </DynamicProperties>
+      </DBColumn>
+      <DBColumn datatype="CHAR(50)" defaultValue="" fglDatatype="CHAR(50)" fglLength="50" length="50" name="descripcion" notNull="1">
+        <DynamicProperties>
+          <DynamicProperty name="widget" value="Edit"/>
+          <DynamicProperty name="label" value="descripcion"/>
+        </DynamicProperties>
+      </DBColumn>
+    </Table>
+  </Database>
+</AG>

MOVIL401/MBSinventario/database/mydatabase_common.4gl

@@ -0,0 +1,50 @@
+#+ DB schema - Common (mydatabase)
+
+--------------------------------------------------------------------------------
+--This code is generated with the template dbapp5.0
+
+--------------------------------------------------------------------------------
+--Database schema
+SCHEMA mydatabase
+
+-- PRIMARY KEY TYPES - TABLE LEVEL
+
+PUBLIC TYPE transacciones_master_pk
+    RECORD
+        transacciones_master_num_doc LIKE transacciones_master.num_doc,
+        transacciones_master_cod_mov LIKE transacciones_master.cod_mov,
+        transacciones_master_bodega LIKE transacciones_master.bodega
+    END RECORD
+
+PUBLIC TYPE seqreg_pk
+    RECORD
+        seqreg_sr_name LIKE seqreg.sr_name
+    END RECORD
+
+PUBLIC TYPE seg000_pk
+    RECORD
+        seg000_usuario LIKE seg000.usuario
+    END RECORD
+
+PUBLIC TYPE productos_pk
+    RECORD
+        productos_cod_grupo LIKE productos.cod_grupo,
+        productos_cod_n LIKE productos.cod_n,
+        productos_cod_sec LIKE productos.cod_sec,
+        productos_cod_tipo LIKE productos.cod_tipo
+    END RECORD
+
+PUBLIC TYPE grupo_producto_pk
+    RECORD
+        grupo_producto_cod_grupo LIKE grupo_producto.cod_grupo
+    END RECORD
+
+PUBLIC TYPE companias_pk
+    RECORD
+        companias_cod_cia LIKE companias.cod_cia
+    END RECORD
+
+PUBLIC TYPE clase_productos_pk
+    RECORD
+        clase_productos_cod_n LIKE clase_productos.cod_n
+    END RECORD

MOVIL401/MBSinventario/database/mydatabase_events.4gl

@@ -0,0 +1,186 @@
+#+ DB schema - Events Management (mydatabase)
+
+--------------------------------------------------------------------------------
+--This code is generated with the template dbapp5.0
+
+IMPORT FGL libdbappEvents
+IMPORT FGL mydatabase_common
+IMPORT FGL mydatabase
+
+--------------------------------------------------------------------------------
+--Database schema
+SCHEMA mydatabase
+
+-- DATABASE EVENT FUNCTION TYPES - TABLE LEVEL
+PUBLIC TYPE T_DbxDataEvent_transportistas_CheckTableConstraints FUNCTION(p_forUpdate BOOLEAN, p_data RECORD LIKE transportistas.*) RETURNS (INTEGER, STRING)
+PUBLIC TYPE T_DbxDataEvent_transacciones_master_CheckTableConstraints FUNCTION(p_forUpdate BOOLEAN, p_data RECORD LIKE transacciones_master.*) RETURNS (INTEGER, STRING)
+PUBLIC TYPE T_DbxDataEvent_transacciones_master_BeforeInsertRowByKey FUNCTION(p_data RECORD LIKE transacciones_master.*) RETURNS (INTEGER, STRING, RECORD LIKE transacciones_master.*)
+PUBLIC TYPE T_DbxDataEvent_transacciones_master_AfterInsertRowByKey FUNCTION(p_data RECORD LIKE transacciones_master.*) RETURNS (INTEGER, STRING)
+PUBLIC TYPE T_DbxDataEvent_transacciones_master_BeforeDeleteRowByKey FUNCTION(p_key transacciones_master_pk) RETURNS (INTEGER)
+PUBLIC TYPE T_DbxDataEvent_transacciones_master_AfterDeleteRowByKey FUNCTION(p_key transacciones_master_pk) RETURNS (INTEGER)
+PUBLIC TYPE T_DbxDataEvent_transacciones_master_BeforeUpdateRowByKey FUNCTION(p_data RECORD LIKE transacciones_master.*) RETURNS (INTEGER, STRING)
+PUBLIC TYPE T_DbxDataEvent_transacciones_master_AfterUpdateRowByKey FUNCTION(p_data RECORD LIKE transacciones_master.*) RETURNS (INTEGER, STRING)
+
+PUBLIC TYPE T_DbxDataEvent_transacciones_master_SetDefaultValues FUNCTION(p_data RECORD LIKE transacciones_master.*) RETURNS (RECORD LIKE transacciones_master.*)
+
+PUBLIC TYPE T_DbxDataEvent_tramo_CheckTableConstraints FUNCTION(p_forUpdate BOOLEAN, p_data RECORD LIKE tramo.*) RETURNS (INTEGER, STRING)
+PUBLIC TYPE T_DbxDataEvent_seqreg_CheckTableConstraints FUNCTION(p_forUpdate BOOLEAN, p_data RECORD LIKE seqreg.*) RETURNS (INTEGER, STRING)
+PUBLIC TYPE T_DbxDataEvent_seqreg_BeforeInsertRowByKey FUNCTION(p_data RECORD LIKE seqreg.*) RETURNS (INTEGER, STRING, RECORD LIKE seqreg.*)
+PUBLIC TYPE T_DbxDataEvent_seqreg_AfterInsertRowByKey FUNCTION(p_data RECORD LIKE seqreg.*) RETURNS (INTEGER, STRING)
+PUBLIC TYPE T_DbxDataEvent_seqreg_BeforeDeleteRowByKey FUNCTION(p_key seqreg_pk) RETURNS (INTEGER)
+PUBLIC TYPE T_DbxDataEvent_seqreg_AfterDeleteRowByKey FUNCTION(p_key seqreg_pk) RETURNS (INTEGER)
+PUBLIC TYPE T_DbxDataEvent_seqreg_BeforeUpdateRowByKey FUNCTION(p_data RECORD LIKE seqreg.*) RETURNS (INTEGER, STRING)
+PUBLIC TYPE T_DbxDataEvent_seqreg_AfterUpdateRowByKey FUNCTION(p_data RECORD LIKE seqreg.*) RETURNS (INTEGER, STRING)
+
+PUBLIC TYPE T_DbxDataEvent_seqreg_SetDefaultValues FUNCTION(p_data RECORD LIKE seqreg.*) RETURNS (RECORD LIKE seqreg.*)
+
+PUBLIC TYPE T_DbxDataEvent_seg000_CheckTableConstraints FUNCTION(p_forUpdate BOOLEAN, p_data RECORD LIKE seg000.*) RETURNS (INTEGER, STRING)
+PUBLIC TYPE T_DbxDataEvent_seg000_BeforeInsertRowByKey FUNCTION(p_data RECORD LIKE seg000.*) RETURNS (INTEGER, STRING, RECORD LIKE seg000.*)
+PUBLIC TYPE T_DbxDataEvent_seg000_AfterInsertRowByKey FUNCTION(p_data RECORD LIKE seg000.*) RETURNS (INTEGER, STRING)
+PUBLIC TYPE T_DbxDataEvent_seg000_BeforeDeleteRowByKey FUNCTION(p_key seg000_pk) RETURNS (INTEGER)
+PUBLIC TYPE T_DbxDataEvent_seg000_AfterDeleteRowByKey FUNCTION(p_key seg000_pk) RETURNS (INTEGER)
+PUBLIC TYPE T_DbxDataEvent_seg000_BeforeUpdateRowByKey FUNCTION(p_data RECORD LIKE seg000.*) RETURNS (INTEGER, STRING)
+PUBLIC TYPE T_DbxDataEvent_seg000_AfterUpdateRowByKey FUNCTION(p_data RECORD LIKE seg000.*) RETURNS (INTEGER, STRING)
+
+PUBLIC TYPE T_DbxDataEvent_seg000_SetDefaultValues FUNCTION(p_data RECORD LIKE seg000.*) RETURNS (RECORD LIKE seg000.*)
+
+PUBLIC TYPE T_DbxDataEvent_seccion_CheckTableConstraints FUNCTION(p_forUpdate BOOLEAN, p_data RECORD LIKE seccion.*) RETURNS (INTEGER, STRING)
+PUBLIC TYPE T_DbxDataEvent_productos_CheckTableConstraints FUNCTION(p_forUpdate BOOLEAN, p_data RECORD LIKE productos.*) RETURNS (INTEGER, STRING)
+PUBLIC TYPE T_DbxDataEvent_productos_BeforeInsertRowByKey FUNCTION(p_data RECORD LIKE productos.*) RETURNS (INTEGER, STRING, RECORD LIKE productos.*)
+PUBLIC TYPE T_DbxDataEvent_productos_AfterInsertRowByKey FUNCTION(p_data RECORD LIKE productos.*) RETURNS (INTEGER, STRING)
+PUBLIC TYPE T_DbxDataEvent_productos_BeforeDeleteRowByKey FUNCTION(p_key productos_pk) RETURNS (INTEGER)
+PUBLIC TYPE T_DbxDataEvent_productos_AfterDeleteRowByKey FUNCTION(p_key productos_pk) RETURNS (INTEGER)
+PUBLIC TYPE T_DbxDataEvent_productos_BeforeUpdateRowByKey FUNCTION(p_data RECORD LIKE productos.*) RETURNS (INTEGER, STRING)
+PUBLIC TYPE T_DbxDataEvent_productos_AfterUpdateRowByKey FUNCTION(p_data RECORD LIKE productos.*) RETURNS (INTEGER, STRING)
+
+PUBLIC TYPE T_DbxDataEvent_productos_SetDefaultValues FUNCTION(p_data RECORD LIKE productos.*) RETURNS (RECORD LIKE productos.*)
+
+PUBLIC TYPE T_DbxDataEvent_irtb00012_CheckTableConstraints FUNCTION(p_forUpdate BOOLEAN, p_data RECORD LIKE irtb00012.*) RETURNS (INTEGER, STRING)
+PUBLIC TYPE T_DbxDataEvent_iptb00012_CheckTableConstraints FUNCTION(p_forUpdate BOOLEAN, p_data RECORD LIKE iptb00012.*) RETURNS (INTEGER, STRING)
+PUBLIC TYPE T_DbxDataEvent_iptb00011_CheckTableConstraints FUNCTION(p_forUpdate BOOLEAN, p_data RECORD LIKE iptb00011.*) RETURNS (INTEGER, STRING)
+PUBLIC TYPE T_DbxDataEvent_intb00012_CheckTableConstraints FUNCTION(p_forUpdate BOOLEAN, p_data RECORD LIKE intb00012.*) RETURNS (INTEGER, STRING)
+PUBLIC TYPE T_DbxDataEvent_grupo_producto_CheckTableConstraints FUNCTION(p_forUpdate BOOLEAN, p_data RECORD LIKE grupo_producto.*) RETURNS (INTEGER, STRING)
+PUBLIC TYPE T_DbxDataEvent_grupo_producto_BeforeInsertRowByKey FUNCTION(p_data RECORD LIKE grupo_producto.*) RETURNS (INTEGER, STRING, RECORD LIKE grupo_producto.*)
+PUBLIC TYPE T_DbxDataEvent_grupo_producto_AfterInsertRowByKey FUNCTION(p_data RECORD LIKE grupo_producto.*) RETURNS (INTEGER, STRING)
+PUBLIC TYPE T_DbxDataEvent_grupo_producto_BeforeDeleteRowByKey FUNCTION(p_key grupo_producto_pk) RETURNS (INTEGER)
+PUBLIC TYPE T_DbxDataEvent_grupo_producto_AfterDeleteRowByKey FUNCTION(p_key grupo_producto_pk) RETURNS (INTEGER)
+PUBLIC TYPE T_DbxDataEvent_grupo_producto_BeforeUpdateRowByKey FUNCTION(p_data RECORD LIKE grupo_producto.*) RETURNS (INTEGER, STRING)
+PUBLIC TYPE T_DbxDataEvent_grupo_producto_AfterUpdateRowByKey FUNCTION(p_data RECORD LIKE grupo_producto.*) RETURNS (INTEGER, STRING)
+
+PUBLIC TYPE T_DbxDataEvent_grupo_producto_SetDefaultValues FUNCTION(p_data RECORD LIKE grupo_producto.*) RETURNS (RECORD LIKE grupo_producto.*)
+
+PUBLIC TYPE T_DbxDataEvent_companias_CheckTableConstraints FUNCTION(p_forUpdate BOOLEAN, p_data RECORD LIKE companias.*) RETURNS (INTEGER, STRING)
+PUBLIC TYPE T_DbxDataEvent_companias_BeforeInsertRowByKey FUNCTION(p_data RECORD LIKE companias.*) RETURNS (INTEGER, STRING, RECORD LIKE companias.*)
+PUBLIC TYPE T_DbxDataEvent_companias_AfterInsertRowByKey FUNCTION(p_data RECORD LIKE companias.*) RETURNS (INTEGER, STRING)
+PUBLIC TYPE T_DbxDataEvent_companias_BeforeDeleteRowByKey FUNCTION(p_key companias_pk) RETURNS (INTEGER)
+PUBLIC TYPE T_DbxDataEvent_companias_AfterDeleteRowByKey FUNCTION(p_key companias_pk) RETURNS (INTEGER)
+PUBLIC TYPE T_DbxDataEvent_companias_BeforeUpdateRowByKey FUNCTION(p_data RECORD LIKE companias.*) RETURNS (INTEGER, STRING)
+PUBLIC TYPE T_DbxDataEvent_companias_AfterUpdateRowByKey FUNCTION(p_data RECORD LIKE companias.*) RETURNS (INTEGER, STRING)
+
+PUBLIC TYPE T_DbxDataEvent_companias_SetDefaultValues FUNCTION(p_data RECORD LIKE companias.*) RETURNS (RECORD LIKE companias.*)
+
+PUBLIC TYPE T_DbxDataEvent_clase_productos_CheckTableConstraints FUNCTION(p_forUpdate BOOLEAN, p_data RECORD LIKE clase_productos.*) RETURNS (INTEGER, STRING)
+PUBLIC TYPE T_DbxDataEvent_clase_productos_BeforeInsertRowByKey FUNCTION(p_data RECORD LIKE clase_productos.*) RETURNS (INTEGER, STRING, RECORD LIKE clase_productos.*)
+PUBLIC TYPE T_DbxDataEvent_clase_productos_AfterInsertRowByKey FUNCTION(p_data RECORD LIKE clase_productos.*) RETURNS (INTEGER, STRING)
+PUBLIC TYPE T_DbxDataEvent_clase_productos_BeforeDeleteRowByKey FUNCTION(p_key clase_productos_pk) RETURNS (INTEGER)
+PUBLIC TYPE T_DbxDataEvent_clase_productos_AfterDeleteRowByKey FUNCTION(p_key clase_productos_pk) RETURNS (INTEGER)
+PUBLIC TYPE T_DbxDataEvent_clase_productos_BeforeUpdateRowByKey FUNCTION(p_data RECORD LIKE clase_productos.*) RETURNS (INTEGER, STRING)
+PUBLIC TYPE T_DbxDataEvent_clase_productos_AfterUpdateRowByKey FUNCTION(p_data RECORD LIKE clase_productos.*) RETURNS (INTEGER, STRING)
+
+PUBLIC TYPE T_DbxDataEvent_clase_productos_SetDefaultValues FUNCTION(p_data RECORD LIKE clase_productos.*) RETURNS (RECORD LIKE clase_productos.*)
+
+PUBLIC TYPE T_DbxDataEvent_bodegas_CheckTableConstraints FUNCTION(p_forUpdate BOOLEAN, p_data RECORD LIKE bodegas.*) RETURNS (INTEGER, STRING)
+
+-- DATABASE EVENT FUNCTION VARIABLES - TABLE LEVEL
+
+PUBLIC DEFINE m_DbxDataEvent_transportistas_CheckTableConstraints T_DbxDataEvent_transportistas_CheckTableConstraints
+
+PUBLIC DEFINE m_DbxDataEvent_transacciones_master_CheckTableConstraints T_DbxDataEvent_transacciones_master_CheckTableConstraints
+PUBLIC DEFINE m_DbxDataEvent_transacciones_master_BeforeInsertRowByKey T_DbxDataEvent_transacciones_master_BeforeInsertRowByKey
+PUBLIC DEFINE m_DbxDataEvent_transacciones_master_AfterInsertRowByKey T_DbxDataEvent_transacciones_master_AfterInsertRowByKey
+PUBLIC DEFINE m_DbxDataEvent_transacciones_master_BeforeDeleteRowByKey T_DbxDataEvent_transacciones_master_BeforeDeleteRowByKey
+PUBLIC DEFINE m_DbxDataEvent_transacciones_master_AfterDeleteRowByKey T_DbxDataEvent_transacciones_master_AfterDeleteRowByKey
+PUBLIC DEFINE m_DbxDataEvent_transacciones_master_BeforeUpdateRowByKey T_DbxDataEvent_transacciones_master_BeforeUpdateRowByKey
+PUBLIC DEFINE m_DbxDataEvent_transacciones_master_AfterUpdateRowByKey T_DbxDataEvent_transacciones_master_AfterUpdateRowByKey
+
+PUBLIC DEFINE m_DbxDataEvent_transacciones_master_SetDefaultValues T_DbxDataEvent_transacciones_master_SetDefaultValues
+
+PUBLIC DEFINE m_DbxDataEvent_tramo_CheckTableConstraints T_DbxDataEvent_tramo_CheckTableConstraints
+
+PUBLIC DEFINE m_DbxDataEvent_seqreg_CheckTableConstraints T_DbxDataEvent_seqreg_CheckTableConstraints
+PUBLIC DEFINE m_DbxDataEvent_seqreg_BeforeInsertRowByKey T_DbxDataEvent_seqreg_BeforeInsertRowByKey
+PUBLIC DEFINE m_DbxDataEvent_seqreg_AfterInsertRowByKey T_DbxDataEvent_seqreg_AfterInsertRowByKey
+PUBLIC DEFINE m_DbxDataEvent_seqreg_BeforeDeleteRowByKey T_DbxDataEvent_seqreg_BeforeDeleteRowByKey
+PUBLIC DEFINE m_DbxDataEvent_seqreg_AfterDeleteRowByKey T_DbxDataEvent_seqreg_AfterDeleteRowByKey
+PUBLIC DEFINE m_DbxDataEvent_seqreg_BeforeUpdateRowByKey T_DbxDataEvent_seqreg_BeforeUpdateRowByKey
+PUBLIC DEFINE m_DbxDataEvent_seqreg_AfterUpdateRowByKey T_DbxDataEvent_seqreg_AfterUpdateRowByKey
+
+PUBLIC DEFINE m_DbxDataEvent_seqreg_SetDefaultValues T_DbxDataEvent_seqreg_SetDefaultValues
+
+PUBLIC DEFINE m_DbxDataEvent_seg000_CheckTableConstraints T_DbxDataEvent_seg000_CheckTableConstraints
+PUBLIC DEFINE m_DbxDataEvent_seg000_BeforeInsertRowByKey T_DbxDataEvent_seg000_BeforeInsertRowByKey
+PUBLIC DEFINE m_DbxDataEvent_seg000_AfterInsertRowByKey T_DbxDataEvent_seg000_AfterInsertRowByKey
+PUBLIC DEFINE m_DbxDataEvent_seg000_BeforeDeleteRowByKey T_DbxDataEvent_seg000_BeforeDeleteRowByKey
+PUBLIC DEFINE m_DbxDataEvent_seg000_AfterDeleteRowByKey T_DbxDataEvent_seg000_AfterDeleteRowByKey
+PUBLIC DEFINE m_DbxDataEvent_seg000_BeforeUpdateRowByKey T_DbxDataEvent_seg000_BeforeUpdateRowByKey
+PUBLIC DEFINE m_DbxDataEvent_seg000_AfterUpdateRowByKey T_DbxDataEvent_seg000_AfterUpdateRowByKey
+
+PUBLIC DEFINE m_DbxDataEvent_seg000_SetDefaultValues T_DbxDataEvent_seg000_SetDefaultValues
+
+PUBLIC DEFINE m_DbxDataEvent_seccion_CheckTableConstraints T_DbxDataEvent_seccion_CheckTableConstraints
+
+PUBLIC DEFINE m_DbxDataEvent_productos_CheckTableConstraints T_DbxDataEvent_productos_CheckTableConstraints
+PUBLIC DEFINE m_DbxDataEvent_productos_BeforeInsertRowByKey T_DbxDataEvent_productos_BeforeInsertRowByKey
+PUBLIC DEFINE m_DbxDataEvent_productos_AfterInsertRowByKey T_DbxDataEvent_productos_AfterInsertRowByKey
+PUBLIC DEFINE m_DbxDataEvent_productos_BeforeDeleteRowByKey T_DbxDataEvent_productos_BeforeDeleteRowByKey
+PUBLIC DEFINE m_DbxDataEvent_productos_AfterDeleteRowByKey T_DbxDataEvent_productos_AfterDeleteRowByKey
+PUBLIC DEFINE m_DbxDataEvent_productos_BeforeUpdateRowByKey T_DbxDataEvent_productos_BeforeUpdateRowByKey
+PUBLIC DEFINE m_DbxDataEvent_productos_AfterUpdateRowByKey T_DbxDataEvent_productos_AfterUpdateRowByKey
+
+PUBLIC DEFINE m_DbxDataEvent_productos_SetDefaultValues T_DbxDataEvent_productos_SetDefaultValues
+
+PUBLIC DEFINE m_DbxDataEvent_irtb00012_CheckTableConstraints T_DbxDataEvent_irtb00012_CheckTableConstraints
+
+PUBLIC DEFINE m_DbxDataEvent_iptb00012_CheckTableConstraints T_DbxDataEvent_iptb00012_CheckTableConstraints
+
+PUBLIC DEFINE m_DbxDataEvent_iptb00011_CheckTableConstraints T_DbxDataEvent_iptb00011_CheckTableConstraints
+
+PUBLIC DEFINE m_DbxDataEvent_intb00012_CheckTableConstraints T_DbxDataEvent_intb00012_CheckTableConstraints
+
+PUBLIC DEFINE m_DbxDataEvent_grupo_producto_CheckTableConstraints T_DbxDataEvent_grupo_producto_CheckTableConstraints
+PUBLIC DEFINE m_DbxDataEvent_grupo_producto_BeforeInsertRowByKey T_DbxDataEvent_grupo_producto_BeforeInsertRowByKey
+PUBLIC DEFINE m_DbxDataEvent_grupo_producto_AfterInsertRowByKey T_DbxDataEvent_grupo_producto_AfterInsertRowByKey
+PUBLIC DEFINE m_DbxDataEvent_grupo_producto_BeforeDeleteRowByKey T_DbxDataEvent_grupo_producto_BeforeDeleteRowByKey
+PUBLIC DEFINE m_DbxDataEvent_grupo_producto_AfterDeleteRowByKey T_DbxDataEvent_grupo_producto_AfterDeleteRowByKey
+PUBLIC DEFINE m_DbxDataEvent_grupo_producto_BeforeUpdateRowByKey T_DbxDataEvent_grupo_producto_BeforeUpdateRowByKey
+PUBLIC DEFINE m_DbxDataEvent_grupo_producto_AfterUpdateRowByKey T_DbxDataEvent_grupo_producto_AfterUpdateRowByKey
+
+PUBLIC DEFINE m_DbxDataEvent_grupo_producto_SetDefaultValues T_DbxDataEvent_grupo_producto_SetDefaultValues
+
+PUBLIC DEFINE m_DbxDataEvent_companias_CheckTableConstraints T_DbxDataEvent_companias_CheckTableConstraints
+PUBLIC DEFINE m_DbxDataEvent_companias_BeforeInsertRowByKey T_DbxDataEvent_companias_BeforeInsertRowByKey
+PUBLIC DEFINE m_DbxDataEvent_companias_AfterInsertRowByKey T_DbxDataEvent_companias_AfterInsertRowByKey
+PUBLIC DEFINE m_DbxDataEvent_companias_BeforeDeleteRowByKey T_DbxDataEvent_companias_BeforeDeleteRowByKey
+PUBLIC DEFINE m_DbxDataEvent_companias_AfterDeleteRowByKey T_DbxDataEvent_companias_AfterDeleteRowByKey
+PUBLIC DEFINE m_DbxDataEvent_companias_BeforeUpdateRowByKey T_DbxDataEvent_companias_BeforeUpdateRowByKey
+PUBLIC DEFINE m_DbxDataEvent_companias_AfterUpdateRowByKey T_DbxDataEvent_companias_AfterUpdateRowByKey
+
+PUBLIC DEFINE m_DbxDataEvent_companias_SetDefaultValues T_DbxDataEvent_companias_SetDefaultValues
+
+PUBLIC DEFINE m_DbxDataEvent_clase_productos_CheckTableConstraints T_DbxDataEvent_clase_productos_CheckTableConstraints
+PUBLIC DEFINE m_DbxDataEvent_clase_productos_BeforeInsertRowByKey T_DbxDataEvent_clase_productos_BeforeInsertRowByKey
+PUBLIC DEFINE m_DbxDataEvent_clase_productos_AfterInsertRowByKey T_DbxDataEvent_clase_productos_AfterInsertRowByKey
+PUBLIC DEFINE m_DbxDataEvent_clase_productos_BeforeDeleteRowByKey T_DbxDataEvent_clase_productos_BeforeDeleteRowByKey
+PUBLIC DEFINE m_DbxDataEvent_clase_productos_AfterDeleteRowByKey T_DbxDataEvent_clase_productos_AfterDeleteRowByKey
+PUBLIC DEFINE m_DbxDataEvent_clase_productos_BeforeUpdateRowByKey T_DbxDataEvent_clase_productos_BeforeUpdateRowByKey
+PUBLIC DEFINE m_DbxDataEvent_clase_productos_AfterUpdateRowByKey T_DbxDataEvent_clase_productos_AfterUpdateRowByKey
+
+PUBLIC DEFINE m_DbxDataEvent_clase_productos_SetDefaultValues T_DbxDataEvent_clase_productos_SetDefaultValues
+
+PUBLIC DEFINE m_DbxDataEvent_bodegas_CheckTableConstraints T_DbxDataEvent_bodegas_CheckTableConstraints
+
+-- REGISTER EVENT FUNCTIONS
+PUBLIC FUNCTION registerDbxEvents()
+    -- REGISTER DATABASE EVENT FUNCTIONS - TABLE LEVEL
+
+END FUNCTION

MOVIL401/MBSinventario/distbin/gma/project/.gradle/buildOutputCleanup/cache.properties

@@ -0,0 +1,2 @@
+#Thu Jun 08 14:09:39 BOT 2023
+gradle.version=7.4.2

MOVIL401/MBSinventario/distbin/gma/project/app/build.gradle

@@ -0,0 +1,115 @@
+/*
+ * FOURJS_START_COPYRIGHT(P,2013)
+ * Property of Four Js*
+ * (c) Copyright Four Js 2013, 2022. All Rights Reserved.
+ * * Trademark of Four Js Development Tools Europe Ltd
+ *   in the United States and elsewhere
+ * FOURJS_END_COPYRIGHT
+ */
+apply plugin: 'com.android.application'
+
+File filePath = new File(projectDir, "google-services.json")
+
+repositories {
+    flatDir {
+        dirs 'libs', 'libs/gma', project(":cordova-plugins").file('libs')
+    }
+}
+
+android {
+    compileSdkVersion 31
+    buildToolsVersion "31.0.0"
+
+    defaultConfig {
+        minSdkVersion 21
+        targetSdkVersion 31
+        applicationId "com.company.myapp"
+    }
+
+    signingConfigs {
+        extension {
+            keyAlias 'scaffold'
+            keyPassword 'scaffold'
+            storeFile file(projectDir.getAbsolutePath() + File.separatorChar + "keystore.jks")
+            storePassword 'scaffold'
+        }
+    }
+
+    buildTypes {
+        debug {
+            debuggable true
+            signingConfig signingConfigs.extension
+        }
+
+        release {
+            signingConfig signingConfigs.extension
+        }
+
+        unsignedDebug {
+            debuggable true
+            signingConfig null
+            matchingFallbacks = ['debug', 'release']
+        }
+
+        unsignedRelease {
+            signingConfig null
+            matchingFallbacks = ['debug', 'release']
+        }
+    }
+}
+
+dependencies {
+    // GMA libraries
+    debugImplementation name: "gma-debug", ext: "aar"
+    unsignedDebugImplementation name: "gma-debug", ext: "aar"
+
+    releaseImplementation name: "gma-release", ext: "aar"
+    unsignedReleaseImplementation name: "gma-release", ext: "aar"
+
+    debugImplementation name: "gma-cordova-debug", ext: "aar"
+    unsignedDebugImplementation name: "gma-cordova-debug", ext: "aar"
+
+    releaseImplementation name: "gma-cordova-release", ext: "aar"
+    unsignedReleaseImplementation name: "gma-cordova-release", ext: "aar"
+
+    debugImplementation name: "gma-extension-debug", ext: "aar"
+    unsignedDebugImplementation name: "gma-extension-debug", ext: "aar"
+
+    releaseImplementation name: "gma-extension-release", ext: "aar"
+    unsignedReleaseImplementation name: "gma-extension-release", ext: "aar"
+
+    debugImplementation name: "gma-fglgws-debug", ext: "aar"
+    unsignedDebugImplementation name: "gma-fglgws-debug", ext: "aar"
+
+    releaseImplementation name: "gma-fglgws-release", ext: "aar"
+    unsignedReleaseImplementation name: "gma-fglgws-release", ext: "aar"
+
+    implementation   project(':extension')
+    implementation   project(':cordova-plugins')
+
+    // Android libraries
+
+    api "androidx.legacy:legacy-support-v4:1.0.0"
+    api "androidx.appcompat:appcompat:1.4.2"
+    api "com.google.android.material:material:1.6.1"
+    api "androidx.cardview:cardview:1.0.0"
+    api "androidx.recyclerview:recyclerview:1.2.1"
+    api "androidx.exifinterface:exifinterface:1.3.3"
+    api "androidx.preference:preference:1.2.0"
+    api "com.google.firebase:firebase-core:21.0.0"
+    api "com.google.firebase:firebase-messaging:23.0.5"
+    // External libraries
+
+    api "org.apache.commons:commons-lang3:3.9"
+    api "org.apache.commons:commons-text:1.7"
+    api "com.mikepenz:iconics-core:3.0.4"
+    api "com.mikepenz:material-design-iconic-typeface:2.2.0.5"
+    api "com.github.mangstadt:vinnie:2.0.2"
+
+    implementation fileTree(dir: 'libs', include: ['*.jar'])
+
+}
+
+if(filePath.exists()){
+ apply plugin: 'com.google.gms.google-services'
+}

MOVIL401/MBSinventario/distbin/gma/project/app/settings.properties

@@ -0,0 +1,7 @@
+# FOURJS_START_COPYRIGHT(P,2013)
+# Property of Four Js*
+# (c) Copyright Four Js 2013, 2022. All Rights Reserved.
+# * Trademark of Four Js Development Tools Europe Ltd
+#   in the United States and elsewhere
+# FOURJS_END_COPYRIGHT
+version=4.01.02 rev-37f828473

MOVIL401/MBSinventario/distbin/gma/project/app/src/main/AndroidManifest.xml

@@ -0,0 +1,54 @@
+<?xml version="1.0" encoding="utf-8"?>
+<manifest xmlns:android="http://schemas.android.com/apk/res/android"
+            package="com.company.myapp" android:versionCode="1" android:versionName="1">
+
+    <!-- Permissions -->
+    <uses-permission android:name="android.permission.INTERNET"/>
+    <uses-permission android:name="android.permission.ACCESS_NETWORK_STATE"/>
+    <uses-permission android:name="android.permission.CHANGE_NETWORK_STATE"/>
+    <uses-permission android:name="android.permission.ACCESS_WIFI_STATE"/>
+    <uses-permission android:name="android.permission.CHANGE_WIFI_STATE"/>
+    <uses-permission android:name="android.permission.REORDER_TASKS"/>
+    <uses-permission android:name="android.permission.KILL_BACKGROUND_PROCESSES"/>
+    <uses-permission android:name="android.permission.VIBRATE"/>
+    <uses-permission android:name="android.permission.FOREGROUND_SERVICE"/>
+    <uses-permission android:name="android.permission.WAKE_LOCK"/>
+    <uses-permission android:name="android.permission.ACCESS_COARSE_LOCATION"/>
+    <uses-permission android:name="android.permission.ACCESS_FINE_LOCATION"/>
+    <uses-permission android:name="android.permission.ACCESS_LOCATION_EXTRA_COMMANDS"/>
+    <uses-permission android:name="android.permission.BIND_DEVICE_ADMIN"/>
+    <uses-permission android:name="android.permission.BLUETOOTH"/>
+    <uses-permission android:name="android.permission.BLUETOOTH_PRIVILEGED"/>
+    <uses-permission android:name="android.permission.DELETE_CACHE_FILES"/>
+    <uses-permission android:name="com.android.launcher.permission.INSTALL_SHORTCUT"/>
+    <uses-permission android:name="android.permission.MANAGE_DOCUMENTS"/>
+    <uses-permission android:name="android.permission.MOUNT_FORMAT_FILESYSTEMS"/>
+    <uses-permission android:name="android.permission.READ_LOGS"/>
+    <uses-permission android:name="android.permission.WRITE_EXTERNAL_STORAGE"/>
+    <uses-permission android:name="android.permission.WRITE_SETTINGS"/>
+
+    <!-- Features -->
+    <uses-feature android:name="android.hardware.location.network" android:required="false"/>
+    <uses-feature android:name="android.hardware.location.gps" android:required="false"/>
+
+    <application>
+
+            <meta-data android:name="firebase_analytics_collection_deactivated" android:value="true"/>
+
+            <activity
+                    android:name="com.fourjs.gma.monitor.Startup">
+                    <intent-filter>
+                            <action android:name="android.intent.action.MAIN"/>
+                            <category android:name="android.intent.category.LAUNCHER"/>
+                    </intent-filter>
+            </activity>
+
+            <provider
+                    android:name="androidx.core.content.FileProvider"
+                    android:authorities="com.company.myapp.provider"
+                    android:exported="false"
+                    android:grantUriPermissions="true">
+                    <meta-data android:name="android.support.FILE_PROVIDER_PATHS" android:resource="@xml/provider_paths"/>
+            </provider>
+    </application>
+</manifest>

MOVIL401/MBSinventario/distbin/gma/project/app/src/main/res/values-v21/colors.xml

@@ -0,0 +1,11 @@
+<?xml version="1.0" encoding="utf-8"?>
+<resources>
+    <color name="primary">#5E35B1</color>
+    <color name="primary_dark">#5E35B1</color>
+    <color name="accent">#9575CD</color>
+    <color name="action_bar_text">#EBEBEB</color>
+    <color name="primary_text">#000000</color>
+    <color name="window_background">#ffffff</color>
+    <color name="navigation_bar_background">#5E35B1</color>
+    <color name="activated_background">#D5C8EB</color>
+</resources>

MOVIL401/MBSinventario/distbin/gma/project/app/src/main/res/values/colors.xml

@@ -0,0 +1,11 @@
+<?xml version="1.0" encoding="utf-8"?>
+<resources>
+    <color name="primary">#5E35B1</color>
+    <color name="primary_dark">#5E35B1</color>
+    <color name="accent">#9575CD</color>
+    <color name="action_bar_text">#EBEBEB</color>
+    <color name="primary_text">#000000</color>
+    <color name="window_background">#ffffff</color>
+    <color name="navigation_bar_background">#5E35B1</color>
+    <color name="activated_background">#D5C8EB</color>
+</resources>

MOVIL401/MBSinventario/distbin/gma/project/app/src/main/res/values/deploy.xml

@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="utf-8"?>
+<resources xmlns:tools="http://schemas.android.com/tools"
+           tools:ignore="MissingTranslation">
+
+            <string name="deploy_activities_affinity">com.company.myapp</string>
+
+        <string name="deploy_package_title">MBSInventario</string>
+        <string name="app_name">MBSInventario</string>
+
+        <drawable name="deploy_package_icon">@drawable/ic_application</drawable>
+
+
+        <string name="deploy_autostart_application_path">MBSInventario.xcf</string>
+
+        <string name="deploy_ur_runtime_connection_type">default</string>
+</resources>

MOVIL401/MBSinventario/distbin/gma/project/build.gradle

@@ -0,0 +1,40 @@
+/*
+ * FOURJS_START_COPYRIGHT(P,2013)
+ * Property of Four Js*
+ * (c) Copyright Four Js 2013, 2022. All Rights Reserved.
+ * * Trademark of Four Js Development Tools Europe Ltd
+ *   in the United States and elsewhere
+ * FOURJS_END_COPYRIGHT
+ */
+// Top-level build file where you can add configuration options common to all sub-projects/modules.
+
+
+buildscript {
+    repositories {
+        google()
+        mavenCentral()
+    }
+
+    dependencies {
+        File filePath = new File(projectDir, "app/google-services.json")
+        if(filePath.exists()){
+         classpath 'com.google.gms:google-services:4.3.8'
+        }
+        classpath "com.android.tools.build:gradle:7.2.1"
+        classpath "org.codehaus.groovy:groovy:3.0.9"
+
+        // NOTE: Do not place your application dependencies here; they belong
+        // in the individual module build.gradle files
+    }
+}
+
+allprojects {
+    repositories {
+        google()
+        mavenCentral()
+    }
+
+    if(project.hasProperty('buildFolderPath')) {
+        buildDir = "$buildFolderPath/${project.name}"
+    }
+}

MOVIL401/MBSinventario/distbin/gma/project/cordova-plugins/build.gradle

@@ -0,0 +1,44 @@
+/*
+ * FOURJS_START_COPYRIGHT(P,2013)
+ * Property of Four Js*
+ * (c) Copyright Four Js 2013, 2022. All Rights Reserved.
+ * * Trademark of Four Js Development Tools Europe Ltd
+ *   in the United States and elsewhere
+ * FOURJS_END_COPYRIGHT
+ */
+
+apply plugin: 'com.android.library'
+
+repositories {
+    flatDir {
+        dirs 'libs', project(":app").file('libs/gma')
+    }
+}
+
+android {
+    compileSdkVersion 31
+    buildToolsVersion "31.0.0"
+
+    defaultConfig {
+        minSdkVersion 21
+        targetSdkVersion 31
+    }
+
+    buildTypes {
+        debug {
+            debuggable true
+        }
+
+        release {
+            minifyEnabled false
+            proguardFiles getDefaultProguardFile('proguard-android.txt'), 'proguard-rules.pro'
+        }
+    }
+}
+
+dependencies {
+    debugCompileOnly name: "gma-cordova-debug", ext: "aar"
+    releaseCompileOnly name: "gma-cordova-release", ext: "aar"
+
+    implementation fileTree(dir: 'libs', include: ['*.jar'])
+}

MOVIL401/MBSinventario/distbin/gma/project/cordova-plugins/src/main/AndroidManifest.xml

@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<manifest xmlns:android="http://schemas.android.com/apk/res/android" package="com.fourjs.gma.cordovaplugins"/>

MOVIL401/MBSinventario/distbin/gma/project/cordova-plugins/src/main/res/raw/scaffold_cordova_plugins.json

@@ -0,0 +1 @@
+[]

MOVIL401/MBSinventario/distbin/gma/project/cordova-plugins/src/main/res/xml/config.xml

@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<widget/>

MOVIL401/MBSinventario/distbin/gma/project/cordova-plugins/src/proguard-rules.pro

@@ -0,0 +1,23 @@
+# FOURJS_START_COPYRIGHT(P,2013)
+# Property of Four Js*
+# (c) Copyright Four Js 2013, 2022. All Rights Reserved.
+# * Trademark of Four Js Development Tools Europe Ltd
+#   in the United States and elsewhere
+# FOURJS_END_COPYRIGHT
+# Add project specific ProGuard rules here.
+# By default, the flags in this file are appended to flags specified
+# in /home/eral/software/android-studio/sdk/tools/proguard/proguard-android.txt
+# You can edit the include path and order by changing the proguardFiles
+# directive in build.gradle.
+#
+# For more details, see
+#   http://developer.android.com/guide/developing/tools/proguard.html
+
+# Add any project specific keep options here:
+
+# If your project uses WebView with JS, uncomment the following
+# and specify the fully qualified class name to the JavaScript interface
+# class:
+#-keepclassmembers class fqcn.of.javascript.interface.for.webview {
+#   public *;
+#}

MOVIL401/MBSinventario/distbin/gma/project/extension/build.gradle

@@ -0,0 +1,57 @@
+/*
+ * FOURJS_START_COPYRIGHT(P,2013)
+ * Property of Four Js*
+ * (c) Copyright Four Js 2013, 2022. All Rights Reserved.
+ * * Trademark of Four Js Development Tools Europe Ltd
+ *   in the United States and elsewhere
+ * FOURJS_END_COPYRIGHT
+ */
+
+apply plugin: 'com.android.library'
+
+repositories {
+    flatDir {
+        dirs 'libs', project(":app").file('libs/gma')
+    }
+}
+
+android {
+    compileSdkVersion 31
+    buildToolsVersion "31.0.0"
+
+    defaultConfig {
+        minSdkVersion 21
+        targetSdkVersion 31
+        versionCode 1
+        versionName "1.0"
+    }
+
+    buildTypes {
+        debug {
+            debuggable true
+        }
+
+        release {
+            minifyEnabled false
+            proguardFiles getDefaultProguardFile('proguard-android.txt'), 'proguard-rules.pro'
+        }
+    }
+}
+
+/**
+ * Jar extension
+ */
+task jar(type: Jar) {
+    from android.sourceSets.main.java.srcDirs
+}
+
+dependencies {
+    releaseCompileOnly name: 'gma-extension-release', ext: 'aar'
+    debugCompileOnly name: 'gma-extension-debug', ext: 'aar'
+
+    implementation fileTree(dir: 'libs', include: ['*.jar'])
+}
+
+project.afterEvaluate {
+    tasks['assembleRelease'].finalizedBy "jar"
+}

MOVIL401/MBSinventario/distbin/gma/project/extension/proguard-rules.pro

@@ -0,0 +1,23 @@
+# FOURJS_START_COPYRIGHT(P,2013)
+# Property of Four Js*
+# (c) Copyright Four Js 2013, 2022. All Rights Reserved.
+# * Trademark of Four Js Development Tools Europe Ltd
+#   in the United States and elsewhere
+# FOURJS_END_COPYRIGHT
+# Add project specific ProGuard rules here.
+# By default, the flags in this file are appended to flags specified
+# in /home/eral/software/android-studio/sdk/tools/proguard/proguard-android.txt
+# You can edit the include path and order by changing the proguardFiles
+# directive in build.gradle.
+#
+# For more details, see
+#   http://developer.android.com/guide/developing/tools/proguard.html
+
+# Add any project specific keep options here:
+
+# If your project uses WebView with JS, uncomment the following
+# and specify the fully qualified class name to the JavaScript interface
+# class:
+#-keepclassmembers class fqcn.of.javascript.interface.for.webview {
+#   public *;
+#}

MOVIL401/MBSinventario/distbin/gma/project/extension/src/main/AndroidManifest.xml

@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="utf-8"?>
+<!--
+ FOURJS_START_COPYRIGHT(P,2013)
+ Property of Four Js*
+ (c) Copyright Four Js 2013, 2022. All Rights Reserved.
+ * Trademark of Four Js Development Tools Europe Ltd
+   in the United States and elsewhere
+ FOURJS_END_COPYRIGHT
+-->
+<manifest xmlns:android="http://schemas.android.com/apk/res/android"
+    package="com.gma.extension">
+
+    <application>
+        <!--Remove it when you finished to implement your extension implementation-->
+        <activity
+            android:name="com.gma.extension.activities.TestExtensionActivity"
+            android:exported="false"
+            android:label="@string/app_name"
+            android:configChanges="orientation|keyboardHidden|screenSize"
+            android:windowSoftInputMode="stateHidden"
+            android:theme="@style/ExtensionTheme"/>
+
+        <!--Add android components here-->
+    </application>
+</manifest>

MOVIL401/MBSinventario/distbin/gma/project/extension/src/main/java/com/gma/extension/activities/TestExtensionActivity.java

@@ -0,0 +1,192 @@
+/*
+ * FOURJS_START_COPYRIGHT(P,2013)
+ * Property of Four Js*
+ * (c) Copyright Four Js 2013, 2022. All Rights Reserved.
+ * * Trademark of Four Js Development Tools Europe Ltd
+ *   in the United States and elsewhere
+ * FOURJS_END_COPYRIGHT
+ */
+package com.gma.extension.activities;
+
+import android.app.Activity;
+import android.content.Intent;
+import android.os.Bundle;
+import android.view.Menu;
+import android.view.MenuItem;
+import android.widget.TextView;
+
+import com.fourjs.gma.extension.v1.ApplicationState;
+import com.fourjs.gma.extension.v1.IClientHandler;
+import com.fourjs.gma.extension.v1.IFunctionCall;
+import com.fourjs.gma.extension.v1.IFunctionCallController;
+import com.fourjs.gma.extension.v1.OnApplicationStateChangedListener;
+import com.gma.extension.R;
+import com.gma.extension.core.MyCustomFunctionCall;
+
+public class TestExtensionActivity extends Activity implements IFunctionCallController
+{
+    private OnApplicationStateChangedListener mOnApplicationStateChangedListener;
+    private IClientHandler mClientHandler = new IClientHandler() {
+        @Override
+        public void postDialogAction(String action) {
+            log("Execute action '" + action + "'");
+        }
+
+        @Override
+        public boolean isDialogActionPending(String action) {
+            log("Check if action '" + action + "' is pending");
+
+            return false;
+        }
+
+        @Override
+        public boolean cancelDialogAction(String action) {
+            log("Cancel action '" + action + "'");
+
+            return false;
+        }
+
+        @Override
+        public void setOnApplicationStateChangedListener(OnApplicationStateChangedListener onApplicationStateChanged) {
+            mOnApplicationStateChangedListener = onApplicationStateChanged;
+        }
+    };
+
+    @Override
+    protected void onCreate(Bundle savedInstanceState) {
+        super.onCreate(savedInstanceState);
+        setContentView(R.layout.test_activity);
+    }
+
+    @Override
+    public boolean onCreateOptionsMenu(Menu menu) {
+        // Inflate the menu; this adds items to the action bar if it is present.
+        getMenuInflater().inflate(R.menu.test, menu);
+        return true;
+    }
+
+    @Override
+    public boolean onOptionsItemSelected(MenuItem item) {
+        int i = item.getItemId();
+        if (i == R.id.run_function_call) {
+            // Instantiate here your custom function call
+            // implementing IFunctionCall interface
+
+            IFunctionCall call = new MyCustomFunctionCall();
+            call.setFunctionCallController(this);
+            call.invoke(new Object[] { "Hello World!" });
+
+            return true;
+        } else if (i == R.id.run_activity) {
+            // Create here the intent to start your custom activity
+
+            /*
+               Intent intent = new Intent(this, MyCustomActivity.class);
+               startActivity(intent);
+             */
+
+            return true;
+        }
+
+        return super.onOptionsItemSelected(item);
+    }
+
+    /**
+     * Log message
+     * @param msg String
+     */
+    public void log(String msg) {
+        TextView tv = (TextView) findViewById(R.id.test_activity_text_view);
+        tv.setText(tv.getText() + "\n" + msg);
+    }
+
+    // IFunctionCallController implementation for test
+
+    private IFunctionCall mPendingCall = null;
+
+    @Override
+    public void returnValues(IFunctionCall functionCall, Object ... objects) {
+        String msg = "";
+        for (Object o : objects) {
+            if (!msg.isEmpty()) {
+                msg += ", ";
+            }
+
+            msg += o.toString();
+        }
+
+        log(msg);
+    }
+
+    @Override
+    public void raiseError(IFunctionCall functionCall, String s) {
+        log(s);
+    }
+
+    @Override
+    public void startActivity(IFunctionCall functionCall, Intent intent) {
+        startActivity(intent);
+    }
+
+    @Deprecated
+    @Override
+    public void startActivityForResult(IFunctionCall functionCall, Intent intent) {
+        startActivityForResult(functionCall, intent, 0);
+    }
+
+    @Override
+    public void startActivityForResult(IFunctionCall functionCall, Intent intent, int requestCode) {
+        mPendingCall = functionCall;
+        startActivityForResult(intent, requestCode);
+    }
+
+    @Override
+    public Activity getCurrentActivity() {
+        return this;
+    }
+
+    @Override
+    public IClientHandler getClientHandler() {
+        return mClientHandler;
+    }
+
+    @Override
+    protected void onActivityResult(int requestCode, int resultCode, Intent data) {
+        if (mPendingCall != null) {
+            mPendingCall.onActivityResult(resultCode, resultCode, data);
+        }
+    }
+
+    @Override
+    public void onResume() {
+        super.onResume();
+
+        log("onResume");
+
+        if (mOnApplicationStateChangedListener != null) {
+            mOnApplicationStateChangedListener.stateChanged(ApplicationState.RESUME);
+        }
+    }
+
+    @Override
+    public void onStop() {
+        super.onStop();
+
+        log("onStop");
+
+        if (mOnApplicationStateChangedListener != null) {
+            mOnApplicationStateChangedListener.stateChanged(ApplicationState.STOP);
+        }
+    }
+
+    @Override
+    public void onPause() {
+        super.onPause();
+
+        log("onPause");
+
+        if (mOnApplicationStateChangedListener != null) {
+            mOnApplicationStateChangedListener.stateChanged(ApplicationState.PAUSE);
+        }
+    }
+}

MOVIL401/MBSinventario/distbin/gma/project/extension/src/main/java/com/gma/extension/core/MyCustomFunctionCall.java

@@ -0,0 +1,54 @@
+/*
+ * FOURJS_START_COPYRIGHT(P,2013)
+ * Property of Four Js*
+ * (c) Copyright Four Js 2013, 2022. All Rights Reserved.
+ * * Trademark of Four Js Development Tools Europe Ltd
+ *   in the United States and elsewhere
+ * FOURJS_END_COPYRIGHT
+ */
+
+package com.gma.extension.core;
+
+import android.app.AlertDialog;
+import android.content.Intent;
+import android.os.Bundle;
+
+import com.fourjs.gma.extension.v1.IFunctionCall;
+import com.fourjs.gma.extension.v1.IFunctionCallController;
+
+public class MyCustomFunctionCall implements IFunctionCall
+{
+    private IFunctionCallController mFunctionCallController;
+
+    @Override
+    public void setFunctionCallController(IFunctionCallController iFunctionCallController) {
+        mFunctionCallController = iFunctionCallController;
+    }
+
+    @Override
+    public void invoke(Object[] objects) throws IllegalArgumentException {
+        AlertDialog.Builder builder = new AlertDialog.Builder(mFunctionCallController.getCurrentActivity());
+        builder.setTitle(getClass().getSimpleName());
+        builder.setMessage(String.valueOf(objects[0]));
+
+        AlertDialog dialog = builder.create();
+        dialog.show();
+    }
+
+    @Override
+    public void onSaveInstanceState(Bundle bundle) {
+    }
+
+    @Override
+    public void onRestoreInstanceState(Bundle bundle) {
+    }
+
+    @Deprecated
+    @Override
+    public void onActivityResult(int requestCode, Intent intent) {
+    }
+
+    @Override
+    public void onActivityResult(int requestCode, int resultCode, Intent intent) {
+    }
+}

MOVIL401/MBSinventario/distbin/gma/project/extension/src/main/res/layout/test_activity.xml

@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="utf-8"?>
+<!--
+ FOURJS_START_COPYRIGHT(P,2013)
+ Property of Four Js*
+ (c) Copyright Four Js 2013, 2022. All Rights Reserved.
+ * Trademark of Four Js Development Tools Europe Ltd
+   in the United States and elsewhere
+ FOURJS_END_COPYRIGHT
+-->
+<RelativeLayout xmlns:android="http://schemas.android.com/apk/res/android"
+    xmlns:tools="http://schemas.android.com/tools"
+    android:layout_width="match_parent"
+    android:layout_height="match_parent"
+    android:paddingLeft="@dimen/activity_horizontal_margin"
+    android:paddingRight="@dimen/activity_horizontal_margin"
+    android:paddingTop="@dimen/activity_vertical_margin"
+    android:paddingBottom="@dimen/activity_vertical_margin"
+    tools:context=".activities.TestExtensionActivity">
+
+    <TextView
+        android:id="@+id/test_activity_text_view"
+        android:layout_width="match_parent"
+        android:layout_height="match_parent" />
+
+</RelativeLayout>

MOVIL401/MBSinventario/distbin/gma/project/extension/src/main/res/menu/test.xml

@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="utf-8"?>
+<!--
+ FOURJS_START_COPYRIGHT(P,2013)
+ Property of Four Js*
+ (c) Copyright Four Js 2013, 2022. All Rights Reserved.
+ * Trademark of Four Js Development Tools Europe Ltd
+   in the United States and elsewhere
+ FOURJS_END_COPYRIGHT
+-->
+<menu xmlns:android="http://schemas.android.com/apk/res/android"
+    xmlns:tools="http://schemas.android.com/tools"
+    tools:context=".activities.TestExtensionActivity" >
+
+    <item android:id="@+id/run_function_call"
+        android:title="@string/run_function_call"
+        android:showAsAction="never" />
+
+    <item android:id="@+id/run_activity"
+        android:title="@string/run_activity"
+        android:showAsAction="never" />
+</menu>