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

This commit is contained in:
2026-08-18 20:59:52 -04:00
commit 454973e269
5978 changed files with 2664094 additions and 0 deletions
+194
View File
@@ -0,0 +1,194 @@
SCHEMA smarmotech
DEFINE usuario, clave, answer STRING
DEFINE Datos RECORD LIKE cttb00001.* --Datos individuales
DEFINE Ddatos DYNAMIC ARRAY OF RECORD --Conjunto de datos
cod_prod INT,
descripcion CHAR(50),
unidad_med CHAR(4),
nomenclatura CHAR(30),
desglose CHAR(10),
us_crea CHAR(50),
fech_crea DATE,
us_mod CHAR(50),
fech_mod DATE,
cod_cia SMALLINT,
factor DECIMAL (18,5)
END RECORD
MAIN --login y programa
CALL ARG_VAL(1) RETURNING usuario
CALL ARG_VAL(2) RETURNING clave
CONNECT TO "smarmotech" USER usuario USING clave
CALL ctprmt001()
END MAIN
FUNCTION ctprmt001()
OPEN WINDOW w1 WITH FORM 'ctfmmt001'
CALL fgl_settitle("Maestra Semi-elaborados")
CALL buscarDatos() RETURNING Ddatos
DIALOG ATTRIBUTE(UNBUFFERED)
DISPLAY ARRAY Ddatos TO Drecord.*
ON ACTION agregar
ATTRIBUTES(TEXT = "Agregar", IMAGE = "fa-address-book-o")
INPUT BY NAME Datos.*
AFTER INPUT
CALL Save()
CALL msg(1)
ON ACTION CANCEL ATTRIBUTES(TEXT = "Salir", IMAGE = "quit")
CALL msg(2)
EXIT INPUT
END INPUT
ON ACTION salir ATTRIBUTES(TEXT = "Salir", IMAGE = "quit")
EXIT PROGRAM
BEFORE ROW
CALL getdata(arr_curr())
CALL buscarDatos() RETURNING Ddatos
END DISPLAY
INPUT BY NAME datos.* ATTRIBUTES(WITHOUT DEFAULTS)
ON ACTION actualizar
ATTRIBUTES(TEXT = "Actualizar", IMAGE = "fa-refresh")
UPDATE cttb00001
SET cttb00001.cod_cia = datos.cod_cia,
cttb00001.descripcion = datos.descripcion,
cttb00001.desglose = datos.desglose,
cttb00001.fech_mod = GETDATE(),
cttb00001.nomenclatura = DATOS.nomenclatura,
cttb00001.unidad_med = datos.unidad_med,
cttb00001.us_mod = usuario,
cttb00001.factor = datos.factor
WHERE cttb00001.cod_prod = Datos.cod_prod
CALL msg(13)
ON ACTION salir ATTRIBUTES(TEXT = "Salir", IMAGE = "exit")
EXIT PROGRAM
ON ACTION Eliminar ATTRIBUTES(TEXT = "Eliminar", IMAGE = "delete")
LET answer =
fgl_winquestion(
"Eliminar registro",
"ESTA SEGURO QUE DESEA DESACTIVAR ESTE REGISTRO?",
"YES",
"YES|NO",
"QUESTION",
0)
IF answer = 'YES' THEN
UPDATE cttb00001
SET cttb00001.fech_mod = GETDATE(),
cttb00001.status_t = 'E',
cttb00001.us_mod = usuario
WHERE cttb00001.cod_prod = Datos.cod_prod
CALL msg(39)
ELSE
CALL msg(2)
END IF
END INPUT
END DIALOG
END FUNCTION
FUNCTION buscarDatos()
DEFINE idx INT
DECLARE buscar CURSOR FOR
SELECT cod_prod,
descripcion,
unidad_med,
nomenclatura,
desglose,
us_crea,
fech_crea,
us_mod,
fech_mod,
cod_cia,
factor
FROM cttb00001
WHERE status_t IS NULL
LET idx = 1
FOREACH buscar INTO Ddatos[idx].*
LET idx = idx + 1
END FOREACH
RETURN Ddatos
END FUNCTION
FUNCTION getdata(i INT) --Obtener los datos y las propiedades del empleado
--Seleccionado en el Duser
IF i = 0 THEN
INITIALIZE datos.* TO NULL
RETURN
END IF
SELECT cod_prod,
descripcion,
unidad_med,
nomenclatura,
desglose,
status_t,
us_crea,
fech_crea,
us_mod,
fech_mod,
cod_cia,
factor
INTO datos.* FROM cttb00001
WHERE cttb00001.cod_prod = Ddatos[i].cod_prod
END FUNCTION
FUNCTION Save()
DEFINE idx INT
SELECT MAX(cod_prod) INTO idx FROM cttb00001
LET datos.cod_prod = idx + 1
INSERT INTO cttb00001(
cod_cia,
cod_prod,
descripcion,
desglose,
fech_crea,
nomenclatura,
unidad_med,
us_crea,
factor)
VALUES(datos.cod_cia,
datos.cod_prod,
datos.descripcion,
datos.desglose,
GETDATE(),
datos.nomenclatura,
datos.unidad_med,
usuario,
datos.factor)
END FUNCTION
File diff suppressed because one or more lines are too long
File diff suppressed because it is too large Load Diff
Binary file not shown.
+141
View File
@@ -0,0 +1,141 @@
IMPORT os
DEFINE usuarios,clave VARCHAR(50),
imagen,pimagen BYTE,
ficha INT,
nombre VARCHAR(100),
d_tipos,mensaje,f_tipos,filepath,extension,xdestino,l_file,tmpdir_file,dir_file,nombre_file STRING
FUNCTION firmas(ficha INT)
DEFINE respuesta,remueve VARCHAR(3)
OPEN WINDOW w2 WITH FORM "subefirma"
INPUT BY NAME ficha ATTRIBUTES(UNBUFFERED, WITHOUT DEFAULTS)
BEFORE INPUT
LET nombre_file = NULL
LET remueve="NO"
AFTER FIELD ficha
SELECT a.nom1_emp||ISNULL(a.apell1_emp,' '),b.usuario
INTO nombre,usuarios
FROM adtb00003 a,seg0001 b
WHERE a.num_emp = ficha AND a.num_emp = b.num_emp
IF STATUS = NOTFOUND THEN
CALL msg(3)
NEXT FIELD ficha
END IF
DISPLAY BY NAME nombre
NEXT FIELD ficha
IF ficha IS NOT NULL THEN
LOCATE pimagen IN MEMORY
SELECT a.nom1_emp||ISNULL(a.apell1_emp,' '),b.firmafactura,b.nombre_file_firma,b.usuario
INTO nombre,pimagen,nombre_file,usuarios
FROM adtb00003 a,seg0001 b
WHERE a.num_emp = ficha AND a.num_emp = b.num_emp
IF STATUS = NOTFOUND THEN
CALL msg(3)
NEXT FIELD ficha
END IF
DISPLAY BY NAME nombre
IF nombre_file IS NOT NULL THEN
LET dir_file = 'tmp\\',tmpdir_file CLIPPED
CALL pimagen.writeFile(dir_file)
DISPLAY dir_file TO firma
ELSE
NEXT FIELD ficha
END IF
END IF
ON ACTION firma
CALL imagenfirma()
DISPLAY "data ",dir_file
DISPLAY dir_file TO firma
ON ACTION remover ATTRIBUTE(TEXT="Remover",IMAGE="delete")
LET remueve='SI'
ON ACTION guardar ATTRIBUTE(TEXT="Guardar",IMAGE="save")
IF int_flag THEN
CALL msg(2)
LET int_flag = FALSE
EXIT INPUT
END IF
DISPLAY "remueve ",remueve," tmodir ",tmpdir_file
IF tmpdir_file IS NOT NULL THEN
LET respuesta = fgl_winquestion("Actualiza","ESTA SEGURO DE ACTUALIZAR FIRMA?","YES","YES|NO","QUESTION",0)
IF respuesta = "YES" THEN
SET CONNECTION "MSSQL"
IF remueve = "NO" THEN
DISPLAY "dato ",ficha
TRY
UPDATE seg0001 SET firmafactura = imagen,
nombre_file_firma =tmpdir_file
WHERE num_emp = ficha
CATCH
DISPLAY SQLCA.sqlerrd[2]
END TRY
SET CONNECTION "IFMX"
TRY
UPDATE seg0001 SET firmafactura = imagen,
nombre_file_firma =tmpdir_file
WHERE num_emp = ficha
CATCH
DISPLAY SQLCA.sqlerrd[2]
END TRY
END IF
IF remueve = "SI" THEN
UPDATE seg0001 SET firmafactura = NULL,
nombre_file_firma =NULL
WHERE num_emp = ficha
SET CONNECTION "IFMX"
UPDATE seg0001 SET firmafactura = null,
nombre_file_firma =tmpdir_file
WHERE num_emp = ficha
END IF
CALL fgl_winmessage("info","Actualizacion Exitosa","info")
END IF
END IF
SET CONNECTION "MSSQL"
END INPUT
CLOSE WINDOW w2
END FUNCTION
FUNCTION imagenfirma()
CALL ui.Interface.frontCall("standard","openfile", [dir_file,d_tipos,f_tipos,mensaje], [filepath] )
IF filepath IS NOT NULL THEN
IF downshift(os.Path.extension(filepath)) = "jpg" OR
downshift(os.Path.extension(filepath)) = "png" THEN
LET dir_file = os.Path.basename(filepath)
DISPLAY filepath TO firma
LET dir_file = ".\\tmp\\",dir_file CLIPPED
CALL fgl_getfile(filepath,dir_file)
DISPLAY "dir file ",dir_file
IF os.Path.exists(dir_file) THEN
LOCATE imagen IN MEMORY
CALL imagen.readFile(dir_file)
LET tmpdir_file=os.Path.basename(filepath)
DISPLAY "tmp dir1 ",tmpdir_file
ELSE
DISPLAY "no existe"
END IF
ELSE
CALL fgl_winmessage("ERROR","EL FILE DEBE SER JPG, PNG","INFO")
END IF
END IF
END FUNCTION
+19
View File
@@ -0,0 +1,19 @@
--SCHEMA smarmotech
FUNCTION msg(numero_msg)
DEFINE numero_msg SMALLINT
DEFINE descripcion CHAR (60)
SELECT desc_msg INTO descripcion FROM msgtable
WHERE cod_msg = numero_msg
IF status = NOTFOUND THEN
SELECT desc_msg INTO descripcion FROM msgtable
WHERE cod_msg = 22
LET descripcion = descripcion CLIPPED,numero_msg using "<<<<"
ERROR descripcion ATTRIBUTE(BOLD)
ELSE
ERROR descripcion ATTRIBUTE(BOLD)
LET numero_msg = 0
END IF
END FUNCTION
@@ -0,0 +1,48 @@
FUNCTION buscaUsuarios()
DEFINE
Duser DYNAMIC ARRAY OF RECORD --Display user abreviado
ficha1 INT,
usuario1 VARCHAR(100),
nombreusuario1 VARCHAR(100),
email1 VARCHAR(100)
END RECORD,
idx INT
DECLARE buscar CURSOR FOR
SELECT num_emp, usuario, nombreusuario, email FROM seg0001
LET idx = 1
FOREACH buscar INTO Duser[idx].*
LET idx = idx + 1
END FOREACH
RETURN Duser
END FUNCTION
FUNCTION buscaPropiedades2(usuario1 VARCHAR(100)) --Propiedades del table
DEFINE
propiedades2 DYNAMIC ARRAY OF RECORD --tabla seg0007
sec_vend SMALLINT,
nombre VARCHAR(100),
tipo_usuario1 VARCHAR(100),
comision CHAR(10),
porc_cobros DECIMAL(12, 4)
END RECORD,
idx INT
DECLARE buscar1 CURSOR FOR
SELECT sec_vend, nombre, tipo_usuario, comision, porc_cobros
FROM seg0007
WHERE usuario = usuario1
LET idx = 1
FOREACH buscar1 INTO propiedades2[idx].*
LET idx = idx + 1
END FOREACH
RETURN propiedades2
END FUNCTION
+257
View File
@@ -0,0 +1,257 @@
<?xml version="1.0" encoding="UTF-8" ?>
<ManagedForm databaseName="smarmotech" fileVersion="31400" gstVersion="3140a" name="managedform" uid="{92e7e955-7563-4a4c-830e-587809a05364}">
<AGSettings>
<DynamicProperties version="2"/>
</AGSettings>
<Record name="susuarios" uid="{b3999d64-d1b5-4423-b021-b059c622c615}">
<RecordField fieldIdRef="1" name="ficha1" uid="{fefcfa07-ac62-4694-be79-672a66495a3b}"/>
<RecordField fieldIdRef="2" name="usuario1" uid="{c06d1736-5d25-4fb2-a95e-6109b598973f}"/>
<RecordField fieldIdRef="3" name="nombreusuario1" uid="{7ea96fa9-7043-4436-b255-30e4121fa1b9}"/>
<RecordField fieldIdRef="4" name="email1" uid="{2ee96faa-f1ab-4dff-9f18-9f133dea7603}"/>
</Record>
<Record name="record1" uid="{e655868e-0373-45d2-a3a5-99d58b45f9e3}">
<RecordField fieldIdRef="5" length="50" name="nombreusuario" sqlType="CHAR" uid="{a7136161-9b6d-4303-83c0-ab678a79569c}"/>
<RecordField fieldIdRef="7" length="150" name="email" sqlType="VARCHAR" uid="{f5354343-bba7-41e6-b9ed-36c97ae1ff62}"/>
<RecordField fieldIdRef="9" length="50" name="usuario" uid="{212bc511-a722-403b-8f53-0044a26cf23f}"/>
<RecordField fieldIdRef="11" name="tipo_usuario" uid="{83d0199c-7fbe-4736-a87d-3388fc8b223b}"/>
<RecordField fieldIdRef="13" name="num_emp" uid="{d9c70662-ffec-4920-ad5f-8bd108abf3e2}"/>
<RecordField fieldIdRef="15" name="status_t" uid="{8bd2fb5e-91c7-4ea4-b08e-b888372f35ad}"/>
<RecordField fieldIdRef="17" name="cod_perfil" uid="{1c2a13a2-e2b0-4549-b7b7-a6df1cbd0e9a}"/>
<RecordField fieldIdRef="19" length="50" name="us_crea" uid="{bb340d8f-fe62-41c4-8109-105d5ad84b66}"/>
<RecordField fieldIdRef="21" length="50" name="fech_crea" sqlType="DATE" uid="{bdf14f9b-1cf0-4e6a-b260-0d08d7292d72}"/>
<RecordField fieldIdRef="23" length="50" name="us_mod" uid="{e43fc345-d262-4193-8c80-7a94b55ab01c}"/>
<RecordField fieldIdRef="25" length="50" name="fech_mod" sqlType="DATE" uid="{04453b7b-f6a1-4503-bc75-73dc2b52226a}"/>
<RecordField fieldIdRef="29" length="12" name="clave" uid="{d5177d25-5fa8-4b96-a5ca-d253599aaa21}"/>
<RecordField fieldIdRef="31" length="10" name="cambia_clave" qualFraction="FRACTION(3)" sqlType="CHAR" uid="{a1644e28-194f-48ad-b3b6-b7c5c651734f}"/>
<RecordField fieldIdRef="33" length="12" name="fecha_ultimo_login" qualFraction="FRACTION(3)" sqlType="DATETIME" uid="{8849beae-9703-438f-a64c-15abd85b0eeb}"/>
<RecordField fieldIdRef="6" length="12" name="tipo_cliente" qualFraction="FRACTION(3)" sqlType="INTEGER" uid="{690a9aa4-4a8d-4bbd-b196-193d89caa134}"/>
<RecordField fieldIdRef="8" length="70" name="sec_cliente" qualFraction="FRACTION(3)" sqlType="INTEGER" uid="{e04c279c-a281-4e2d-b38f-682e91d8d15c}"/>
<RecordField fieldIdRef="10" name="bodega" sqlType="SMALLINT" uid="{d83c395d-5c88-41bc-a8b9-3b5f5278ca08}"/>
<RecordField fieldIdRef="12" length="70" name="printerdefecto" qualFraction="FRACTION(3)" sqlType="CHAR" uid="{e99a9e45-8040-41d5-89df-687b9598877f}"/>
<RecordField fieldIdRef="14" length="70" name="otro_printer" qualFraction="FRACTION(3)" sqlType="SMALLINT" uid="{2dd633d0-b105-4355-8fd0-2fdfbbb06a6b}"/>
<RecordField fieldIdRef="16" length="70" name="printer_cheque" qualFraction="FRACTION(3)" sqlType="SMALLINT" uid="{8be7f194-e0eb-4d83-8365-82d779260349}"/>
<RecordField fieldIdRef="18" length="10" name="notificacion" qualFraction="FRACTION(3)" sqlType="VARCHAR" uid="{3d24964f-fab9-4b68-8ac8-a4ca8e40a7f4}"/>
<RecordField fieldIdRef="20" length="70" name="firmafactura" qualFraction="FRACTION(3)" sqlType="BYTE" uid="{912390d6-72bd-447c-8a4d-3a9a8afe3457}"/>
<RecordField fieldIdRef="22" length="1" name="nombre_file_firma" qualFraction="FRACTION(3)" sqlType="VARCHAR" uid="{20447ce5-5a10-4db7-beee-b70d36890de5}"/>
<RecordField fieldIdRef="24" length="50" name="ultimo_programa_ejecutado" uid="{a15a41b8-36c2-44b3-a208-498d0ee97d45}"/>
<RecordField fieldIdRef="30" length="50" name="descuento2" sqlType="DECIMAL" uid="{2f68b347-2cec-4c6d-9b5b-3a23077a74a9}"/>
<RecordField fieldIdRef="28" length="50" name="descuento1" precisionDecimal="16" scaleDecimal="0" sqlType="DECIMAL" uid="{84c0d553-d651-4116-aa9a-569a1107f317}"/>
<RecordField fieldIdRef="32" length="70" name="observacion" qualFraction="FRACTION(3)" sqlType="CHAR" uid="{2f832779-f8fc-4617-a343-75f54d593eb2}"/>
<RecordField fieldIdRef="58" fieldType="NON_DATABASE" name="sucid" sqlType="SMALLINT" uid="{82a8571f-a53e-48bb-91e7-87fbcbb645ac}"/>
<RecordField fieldIdRef="26" name="departamento" uid="{c5829997-4958-4190-ba98-5d7aac226b5a}"/>
</Record>
<Record name="record2" uid="{3f2085f9-2bda-45b0-be30-3efb2bc9d2c5}">
<RecordField fieldIdRef="34" length="100" name="nom_puesto" uid="{0bfc7a70-d126-4114-804e-0883616052f8}"/>
<RecordField fieldIdRef="36" length="50" name="autorizacionDespacho" uid="{9be7b1a3-ccfa-4ee5-ae0b-56afcaa25e8c}"/>
<RecordField fieldIdRef="38" name="controlDespacho" uid="{d4f1c34b-f957-495b-aa67-68461925c389}"/>
<RecordField fieldIdRef="40" name="controlDespiece" uid="{684a64c6-8ab5-4654-903c-743c2c75b352}"/>
<RecordField fieldIdRef="42" name="controlDibujo" uid="{63a2781a-1426-423b-97e4-6f6b5ff2b9c2}"/>
<RecordField fieldIdRef="44" name="controlDescuento" uid="{20736a15-d2a3-406d-9829-09f0906112b1}"/>
<RecordField fieldIdRef="46" length="50" name="correo" uid="{a28fa563-2a93-4d7f-9c84-59977b3d6b48}"/>
<RecordField fieldIdRef="48" length="50" name="actualizacion_log_produccion" sqlType="DATE" uid="{173afabb-c08a-4d21-96cc-4532c4d4a842}"/>
<RecordField fieldIdRef="53" name="PropUsuario" uid="{a1e95725-694e-4838-a04c-cee1246b9993}"/>
<RecordField fieldIdRef="50" length="50" name="actualizacion_produccion" uid="{dc535d26-bbb7-4bfa-a867-070b7f9c305d}"/>
<RecordField fieldIdRef="35" length="12" name="fotos_adicionales_inventario" qualFraction="FRACTION(3)" sqlType="INTEGER" uid="{3c6df69d-0647-4ecb-9645-336a6261c1f2}"/>
<RecordField fieldIdRef="37" length="70" name="aviso_reservas" qualFraction="FRACTION(3)" sqlType="INTEGER" uid="{df239bc5-b4a5-4d0c-bf42-4033315d5f5e}"/>
<RecordField fieldIdRef="39" name="aviso_requisicion_compras" sqlType="SMALLINT" uid="{f26d96c9-2960-4356-b5ff-c32210121abd}"/>
<RecordField fieldIdRef="41" length="70" name="distributionlist" qualFraction="FRACTION(3)" sqlType="CHAR" uid="{ee2455d4-8453-4007-b647-d006fc5d8d4a}"/>
<RecordField fieldIdRef="43" length="70" name="aviso_existencia_minima_repuesto" qualFraction="FRACTION(3)" sqlType="SMALLINT" uid="{ff5e7e0c-689c-464f-b23b-83a1c2226fdc}"/>
<RecordField fieldIdRef="45" length="70" name="controlOutlet" qualFraction="FRACTION(3)" sqlType="SMALLINT" uid="{c9e2f1a8-8c0b-41f5-b730-106090b96e23}"/>
<RecordField fieldIdRef="47" length="10" name="controlOrdenesE" qualFraction="FRACTION(3)" sqlType="VARCHAR" uid="{0d313892-1fe2-44f3-9586-2d31fe481b57}"/>
<RecordField fieldIdRef="49" length="70" name="controlBuzon" qualFraction="FRACTION(3)" sqlType="BYTE" uid="{f37c4357-8b02-49a6-9ae1-ab0bf141c59a}"/>
<RecordField fieldIdRef="51" length="1" name="controlOutlet2" qualFraction="FRACTION(3)" sqlType="VARCHAR" uid="{844c6053-b6d8-41c2-a60c-fbbb2ea963d6}"/>
<RecordField fieldIdRef="52" length="50" name="requisicionesCompras" uid="{4a36dbb3-2239-4357-8eb5-06a685bb30ea}"/>
</Record>
<Record name="susuarios2" uid="{82414fb2-6829-4453-971d-cca72aaa80e8}">
<RecordField fieldIdRef="54" name="sec_vend" uid="{0f7f8d81-ed56-4f12-a128-3d563f937228}"/>
<RecordField fieldIdRef="55" name="nombre" uid="{be14263f-c624-4503-9cac-e83a57fc8812}"/>
<RecordField fieldIdRef="59" name="tipo_usuario1" uid="{b81ea5f4-d966-4b3b-93ac-6c154e503c83}"/>
<RecordField fieldIdRef="56" name="comision" uid="{cd27ec8a-4a36-45ea-978b-5b29c1a8d405}"/>
<RecordField fieldIdRef="57" name="porc_cobros" uid="{8aa7ca28-4d26-47ca-a60d-02f1f7e897a2}"/>
</Record>
<Form gridHeight="25" gridWidth="147" name="segfmmt001" text="Form">
<Folder gridHeight="23" gridWidth="146" name="folder1" posX="1" posY="2">
<Page name="Usuarios" text="Usuarios">
<Grid gridHeight="9" gridWidth="62" name="grid2" posX="3" posY="1">
<Table gridHeight="7" gridWidth="58" name="table1" posX="4" posY="1" totalRows="5">
<Edit fieldId="1" gridHeight="1" gridWidth="8" justify="left" name="ficha1" posX="0" posY="0" tabIndex="-1" title="Numero Emp" widget="Edit"/>
<Edit fieldId="2" gridHeight="1" gridWidth="8" name="usuario1" posX="8" posY="0" tabIndex="-1" title="Usuario" widget="Edit"/>
<Edit fieldId="3" gridHeight="1" gridWidth="8" name="nombreusuario1" posX="16" posY="0" tabIndex="-1" title="Nombre" widget="Edit"/>
<Edit fieldId="4" gridHeight="1" gridWidth="8" name="email1" posX="24" posY="0" tabIndex="-1" title="Email" widget="Edit"/>
</Table>
</Grid>
</Page>
<Page name="Informacion" text="Informacion">
<Grid gridHeight="18" gridWidth="109" name="grid1" posX="5" posY="0">
<Label gridHeight="1" gridWidth="10" name="label1" posX="5" posY="1" text="Nombre Usuario"/>
<Edit fieldId="5" gridHeight="1" gridWidth="17" length="50" name="nombreusuario" noEntry="true" notNull="false" posX="18" posY="1" scroll="true" sqlType="CHAR" tabIndex="-1" title="edit1" widget="Edit"/>
<Label gridHeight="1" gridWidth="10" name="label11" posX="49" posY="1" text="Tipo Cliente"/>
<Edit fieldId="6" gridHeight="1" gridWidth="7" length="12" name="tipo_cliente" posX="66" posY="1" qualFraction="FRACTION(3)" sqlType="INTEGER" tabIndex="-1" title="edit1" widget="Edit"/>
<Label gridHeight="1" gridWidth="10" name="label4" posX="5" posY="2" text="Email"/>
<Edit fieldId="7" gridHeight="1" gridWidth="20" length="150" name="email" posX="18" posY="2" scroll="true" sqlType="VARCHAR" tabIndex="-1" title="edit1" widget="Edit"/>
<Label gridHeight="1" gridWidth="10" name="label21" posX="49" posY="2" text="Seccion Cliente"/>
<Edit fieldId="8" gridHeight="1" gridWidth="7" length="70" name="sec_cliente" posX="66" posY="2" qualFraction="FRACTION(3)" sqlType="INTEGER" tabIndex="-1" title="edit1" widget="Edit"/>
<Label gridHeight="1" gridWidth="10" name="label12" posX="5" posY="3" text="Usuario"/>
<Edit fieldId="9" gridHeight="1" gridWidth="17" length="50" name="usuario" noEntry="true" posX="18" posY="3" scroll="true" tabIndex="-1" title="edit1" widget="Edit"/>
<Label gridHeight="1" gridWidth="10" name="label8" posX="49" posY="3" text="Bodega"/>
<ComboBox fieldId="10" gridHeight="1" gridWidth="17" items="" name="bodega" posX="66" posY="3" sqlType="SMALLINT" tabIndex="-1" title="edit1" widget="ComboBox"/>
<Label gridHeight="1" gridWidth="10" name="label7" posX="5" posY="4" text="Tipo Usuario"/>
<ComboBox fieldId="11" gridHeight="1" gridWidth="17" items="REGULAR, ADMINISTRATOR, VENDEDOR" name="tipo_usuario" notNull="false" posX="18" posY="4" required="false" tabIndex="-1" title="edit2" widget="ComboBox">
<Item lstrtext="false" name="1" text="REGULAR"/>
<Item lstrtext="false" name="3" text="ADMINISTRATOR"/>
<Item lstrtext="false" name="2" text="VENDEDOR"/>
</ComboBox>
<Label gridHeight="1" gridWidth="10" name="label14" posX="49" posY="4" text="Printer Por Defecto"/>
<ComboBox fieldId="12" gridHeight="1" gridWidth="14" items="" length="70" name="printerdefecto" posX="66" posY="4" qualFraction="FRACTION(3)" sqlType="CHAR" tabIndex="-1" title="edit1" widget="ComboBox"/>
<Label gridHeight="1" gridWidth="10" name="label2" posX="5" posY="5" text="Ficha"/>
<Edit fieldId="13" gridHeight="1" gridWidth="10" name="num_emp" posX="18" posY="5" scroll="true" tabIndex="-1" title="edit1" widget="Edit"/>
<Label gridHeight="1" gridWidth="10" name="label16" posX="49" posY="5" text="Otro Printer"/>
<ComboBox fieldId="14" gridHeight="1" gridWidth="14" items="Sin Asignar " length="70" name="otro_printer" posX="66" posY="5" qualFraction="FRACTION(3)" sqlType="SMALLINT" tabIndex="-1" title="edit1" widget="ComboBox">
<Item lstrtext="false" name="0" text="Sin Asignar "/>
</ComboBox>
<Label gridHeight="1" gridWidth="10" name="label6" posX="5" posY="6" text="Estatus"/>
<Edit fieldId="15" gridHeight="1" gridWidth="4" name="status_t" posX="18" posY="6" tabIndex="-1" title="edit1" widget="Edit"/>
<Label gridHeight="1" gridWidth="10" name="label17" posX="49" posY="6" text="Printer Cheque"/>
<ComboBox fieldId="16" gridHeight="1" gridWidth="14" items="" length="70" name="printer_cheque" posX="66" posY="6" qualFraction="FRACTION(3)" sqlType="SMALLINT" tabIndex="-1" title="edit1" widget="ComboBox"/>
<Label gridHeight="1" gridWidth="10" name="label3" posX="5" posY="7" text="Perfil"/>
<ComboBox fieldId="17" gridHeight="1" gridWidth="19" items="" name="cod_perfil" posX="18" posY="7" scroll="true" tabIndex="-1" title="edit1" widget="ComboBox"/>
<Label gridHeight="1" gridWidth="10" name="label20" posX="49" posY="7" text="Notificacion"/>
<Edit fieldId="18" gridHeight="1" gridWidth="12" length="10" name="notificacion" posX="66" posY="7" qualFraction="FRACTION(3)" sqlType="VARCHAR" tabIndex="-1" title="edit1" widget="Edit"/>
<Label gridHeight="1" gridWidth="10" name="label22" posX="5" posY="8" text="Usuario Creado"/>
<Edit fieldId="19" gridHeight="1" gridWidth="14" length="50" name="us_crea" posX="18" posY="8" scroll="true" tabIndex="-1" title="edit1" widget="Edit"/>
<Label gridHeight="1" gridWidth="10" name="label15" posX="49" posY="8" text="Firma Factura"/>
<FFImage autoScale="true" fieldId="20" gridHeight="3" gridWidth="15" length="70" name="firmafactura" posX="66" posY="8" qualFraction="FRACTION(3)" sqlType="BYTE" stretch="none" title="edit1" widget="FFImage"/>
<Label gridHeight="1" gridWidth="10" name="label23" posX="5" posY="9" text="Fecha Creado"/>
<Edit fieldId="21" gridHeight="1" gridWidth="14" length="50" name="fech_crea" posX="18" posY="9" scroll="true" sqlType="DATE" tabIndex="-1" title="edit1" widget="Edit"/>
<Button gridHeight="1" gridWidth="4" image="fa-window-restore" name="addfirma" posX="82" posY="9" tabIndex="-1" text=""/>
<Label gridHeight="1" gridWidth="10" name="label24" posX="5" posY="10" text="Usuario Modificado"/>
<Edit fieldId="23" gridHeight="1" gridWidth="14" length="50" name="us_mod" posX="18" posY="10" scroll="true" tabIndex="-1" title="edit1" widget="Edit"/>
<Label gridHeight="1" gridWidth="10" name="label25" posX="5" posY="11" text="Fecha Modificado"/>
<Edit fieldId="25" gridHeight="1" gridWidth="10" length="50" name="fech_mod" posX="18" posY="11" scroll="true" sqlType="DATE" tabIndex="-1" title="edit1" widget="Edit"/>
<Label gridHeight="1" gridWidth="10" name="label19" posX="49" posY="11" text="Nombre Firma"/>
<Edit fieldId="22" gridHeight="1" gridWidth="15" length="1" name="nombre_file_firma" noEntry="true" posX="66" posY="11" qualFraction="FRACTION(3)" scroll="true" sqlType="VARCHAR" tabIndex="-1" title="edit1" widget="Edit"/>
<Label gridHeight="1" gridWidth="10" name="label5" posX="5" posY="12" text="Departamento"/>
<ComboBox fieldId="26" gridHeight="1" gridWidth="10" items="" name="departamento" posX="18" posY="12" tabIndex="-1" title="combobox1" widget="ComboBox"/>
<Label gridHeight="1" gridWidth="13" name="label29" posX="49" posY="12" text="Ultimo Programa Ejecutado"/>
<Edit fieldId="24" gridHeight="1" gridWidth="22" length="50" name="ultimo_programa_ejecutado" posX="66" posY="12" tabIndex="-1" title="edit1" widget="Edit"/>
<Label gridHeight="1" gridWidth="10" name="label9" posX="5" posY="13" text="Clave"/>
<Edit fieldId="29" gridHeight="1" gridWidth="10" invisible="true" length="12" name="clave" noEntry="false" posX="18" posY="13" scroll="true" tabIndex="-1" title="edit1" widget="Edit"/>
<Label gridHeight="1" gridWidth="9" name="label50" posX="49" posY="13" text="Localidad"/>
<ComboBox fieldId="58" fieldType="NON_DATABASE" gridHeight="1" gridWidth="21" items="" length="1" name="sucid" posX="66" posY="13" sqlType="SMALLINT" tabIndex="-1" title="combobox1" widget="ComboBox"/>
<Label gridHeight="1" gridWidth="10" name="label18" posX="5" posY="14" text="Cambio Clave"/>
<Edit fieldId="31" gridHeight="1" gridWidth="15" length="10" name="cambia_clave" posX="18" posY="14" qualFraction="FRACTION(3)" scroll="true" sqlType="CHAR" tabIndex="-1" title="edit1" widget="Edit"/>
<Label gridHeight="1" gridWidth="10" name="label27" posX="49" posY="14" text="Descuento 1"/>
<Edit fieldId="28" gridHeight="1" gridWidth="10" length="50" name="descuento1" posX="66" posY="14" precisionDecimal="16" scaleDecimal="0" sqlType="DECIMAL" tabIndex="-1" title="edit1" widget="Edit"/>
<Label gridHeight="1" gridWidth="10" name="label10" posX="5" posY="15" text="Ultimo Login"/>
<Edit fieldId="33" gridHeight="1" gridWidth="15" length="12" name="fecha_ultimo_login" posX="18" posY="15" qualFraction="FRACTION(3)" scroll="true" sqlType="DATETIME" tabIndex="-1" title="edit1" widget="Edit"/>
<Label gridHeight="1" gridWidth="10" name="label28" posX="49" posY="15" text="Descuento 2"/>
<Edit fieldId="30" gridHeight="1" gridWidth="10" length="50" name="descuento2" posX="66" posY="15" sqlType="DECIMAL" tabIndex="-1" title="edit1" widget="Edit"/>
<Label gridHeight="1" gridWidth="10" name="label13" posX="49" posY="16" text="Observacion"/>
<Edit fieldId="32" gridHeight="1" gridWidth="22" length="70" name="observacion" posX="66" posY="16" qualFraction="FRACTION(3)" scroll="true" sqlType="CHAR" tabIndex="-1" title="edit1" widget="Edit"/>
</Grid>
</Page>
<Page name="Propiedades" text="Propiedades">
<Grid gridHeight="20" gridWidth="85" name="grid3" posX="5" posY="1">
<Label gridHeight="1" gridWidth="10" name="label32" posX="5" posY="1" text="NombrePuesto"/>
<Edit fieldId="34" gridHeight="1" gridWidth="9" length="100" name="nom_puesto" noEntry="false" posX="18" posY="1" scroll="true" tabIndex="-1" title="edit1" widget="Edit"/>
<Label gridHeight="1" gridWidth="15" name="label30" posX="34" posY="1" text="Usuario"/>
<Edit fieldId="53" gridHeight="1" gridWidth="10" name="PropUsuario" noEntry="true" posX="52" posY="1" scroll="true" tabIndex="-1" title="edit1" widget="Edit"/>
<Label gridHeight="1" gridWidth="11" name="label34" posX="5" posY="2" text="Autorizacion Despacho"/>
<ComboBox fieldId="36" gridHeight="1" gridWidth="7" items="SI, NO" length="50" name="autorizacionDespacho" noEntry="false" posX="18" posY="2" tabIndex="-1" title="edit1" widget="ComboBox">
<Item lstrtext="false" name="SI" text="SI"/>
<Item lstrtext="false" name="NO" text="NO"/>
</ComboBox>
<Label gridHeight="1" gridWidth="16" name="label31" posX="34" posY="2" text="Fotos Adicionales Inventario"/>
<ComboBox fieldId="35" gridHeight="1" gridWidth="9" items="SI, NO" length="12" name="fotos_adicionales_inventario" posX="52" posY="2" qualFraction="FRACTION(3)" sqlType="INTEGER" tabIndex="-1" title="edit1" widget="ComboBox">
<Item lstrtext="false" name="SI" text="SI"/>
<Item lstrtext="false" name="NO" text="NO"/>
</ComboBox>
<Label gridHeight="1" gridWidth="10" name="label36" posX="5" posY="3" text="Control Despacho"/>
<ComboBox fieldId="38" gridHeight="1" gridWidth="7" items="SI, NO" name="controlDespacho" posX="18" posY="3" tabIndex="-1" title="edit2" widget="ComboBox">
<Item lstrtext="false" name="SI" text="SI"/>
<Item lstrtext="false" name="NO" text="NO"/>
</ComboBox>
<Label gridHeight="1" gridWidth="10" name="label33" posX="34" posY="3" text="Aviso Reservas"/>
<ComboBox fieldId="37" gridHeight="1" gridWidth="7" items="SI, NO" length="70" name="aviso_reservas" posX="52" posY="3" qualFraction="FRACTION(3)" sqlType="INTEGER" tabIndex="-1" title="edit1" widget="ComboBox">
<Item lstrtext="false" name="SI" text="SI"/>
<Item lstrtext="false" name="NO" text="NO"/>
</ComboBox>
<Label gridHeight="1" gridWidth="10" name="label38" posX="5" posY="4" text="Control Despiece"/>
<ComboBox fieldId="40" gridHeight="1" gridWidth="7" items="SI, NO" name="controlDespiece" posX="18" posY="4" tabIndex="-1" title="edit1" widget="ComboBox">
<Item lstrtext="false" name="SI" text="SI"/>
<Item lstrtext="false" name="NO" text="NO"/>
</ComboBox>
<Label gridHeight="1" gridWidth="16" name="label35" posX="34" posY="4" text="Aviso Requisicion Compras"/>
<ComboBox fieldId="39" gridHeight="1" gridWidth="10" items="SI, NO" name="aviso_requisicion_compras" posX="52" posY="4" sqlType="SMALLINT" tabIndex="-1" title="edit1" widget="ComboBox">
<Item lstrtext="false" name="SI" text="SI"/>
<Item lstrtext="false" name="NO" text="NO"/>
</ComboBox>
<Label gridHeight="1" gridWidth="10" name="label40" posX="5" posY="5" text="Control Dibujo"/>
<ComboBox fieldId="42" gridHeight="1" gridWidth="7" items="SI, NO" name="controlDibujo" posX="18" posY="5" tabIndex="-1" title="edit1" widget="ComboBox">
<Item lstrtext="false" name="SI" text="SI"/>
<Item lstrtext="false" name="NO" text="NO"/>
</ComboBox>
<Label gridHeight="1" gridWidth="10" name="label37" posX="34" posY="5" text="Distribution List"/>
<Edit fieldId="41" gridHeight="1" gridWidth="11" length="70" name="distributionlist" posX="52" posY="5" qualFraction="FRACTION(3)" scroll="true" sqlType="CHAR" tabIndex="-1" title="edit1" widget="Edit"/>
<Label gridHeight="1" gridWidth="10" name="label42" posX="5" posY="6" text="Control Descuento"/>
<ComboBox fieldId="44" gridHeight="1" gridWidth="7" items="SI, NO" name="controlDescuento" posX="18" posY="6" tabIndex="-1" title="edit1" widget="ComboBox">
<Item lstrtext="false" name="SI" text="SI"/>
<Item lstrtext="false" name="NO" text="NO"/>
</ComboBox>
<Label gridHeight="1" gridWidth="16" name="label39" posX="34" posY="6" text="Aviso Existencia Minima Repuesto"/>
<ComboBox fieldId="43" gridHeight="1" gridWidth="10" items="SI, NO" length="70" name="aviso_existencia_minima_repuesto" posX="52" posY="6" qualFraction="FRACTION(3)" sqlType="SMALLINT" tabIndex="-1" title="edit1" widget="ComboBox">
<Item lstrtext="false" name="SI" text="SI"/>
<Item lstrtext="false" name="NO" text="NO"/>
</ComboBox>
<Label gridHeight="1" gridWidth="10" name="label44" posX="5" posY="7" text="Correo"/>
<Edit fieldId="46" gridHeight="1" gridWidth="14" length="50" name="correo" noEntry="true" posX="18" posY="7" scroll="true" tabIndex="-1" title="edit1" widget="Edit"/>
<Label gridHeight="1" gridWidth="10" name="label41" posX="34" posY="7" text="Control Outlet"/>
<ComboBox fieldId="45" gridHeight="1" gridWidth="7" items="SI, NO" length="70" name="controlOutlet" posX="52" posY="7" qualFraction="FRACTION(3)" sqlType="SMALLINT" tabIndex="-1" title="edit1" widget="ComboBox">
<Item lstrtext="false" name="SI" text="SI"/>
<Item lstrtext="false" name="NO" text="NO"/>
</ComboBox>
<Label gridHeight="1" gridWidth="14" name="label46" posX="5" posY="8" text="Actualizacion Log Produccion"/>
<ComboBox fieldId="48" gridHeight="1" gridWidth="7" items="SI, NO" length="50" name="actualizacion_log_produccion" posX="20" posY="8" sqlType="DATE" tabIndex="-1" title="edit1" widget="ComboBox">
<Item lstrtext="false" name="SI" text="SI"/>
<Item lstrtext="false" name="NO" text="NO"/>
</ComboBox>
<Label gridHeight="1" gridWidth="10" name="label43" posX="34" posY="8" text="Control Ordenes E"/>
<ComboBox fieldId="47" gridHeight="1" gridWidth="7" items="SI, NO" length="10" name="controlOrdenesE" posX="52" posY="8" qualFraction="FRACTION(3)" sqlType="VARCHAR" tabIndex="-1" title="edit1" widget="ComboBox">
<Item lstrtext="false" name="SI" text="SI"/>
<Item lstrtext="false" name="NO" text="NO"/>
</ComboBox>
<Label gridHeight="1" gridWidth="13" name="label48" posX="5" posY="9" text="Actualizacion Produccion"/>
<ComboBox fieldId="50" gridHeight="1" gridWidth="7" items="SI, NO" length="50" name="actualizacion_produccion" posX="20" posY="9" tabIndex="-1" title="edit1" widget="ComboBox">
<Item lstrtext="false" name="SI" text="SI"/>
<Item lstrtext="false" name="NO" text="NO"/>
</ComboBox>
<Label gridHeight="1" gridWidth="10" name="label45" posX="34" posY="9" text="Control Buzon"/>
<ComboBox fieldId="49" gridHeight="1" gridWidth="7" items="SI, NO" length="70" name="controlBuzon" noEntry="false" posX="52" posY="9" qualFraction="FRACTION(3)" sqlType="BYTE" tabIndex="-1" title="edit1" widget="ComboBox">
<Item lstrtext="false" name="SI" text="SI"/>
<Item lstrtext="false" name="NO" text="NO"/>
</ComboBox>
<Label gridHeight="1" gridWidth="13" name="label49" posX="5" posY="10" text="Requisiciones Compras"/>
<ComboBox fieldId="52" gridHeight="1" gridWidth="7" items="SI, NO" length="50" name="requisicionesCompras" posX="20" posY="10" tabIndex="-1" title="edit1" widget="ComboBox">
<Item lstrtext="false" name="SI" text="SI"/>
<Item lstrtext="false" name="NO" text="NO"/>
</ComboBox>
<Label gridHeight="1" gridWidth="10" name="label47" posX="34" posY="10" text="Control Outlet 2"/>
<ComboBox fieldId="51" gridHeight="1" gridWidth="7" items="SI, NO" length="1" name="controlOutlet2" noEntry="false" posX="52" posY="10" qualFraction="FRACTION(3)" sqlType="VARCHAR" tabIndex="-1" title="edit1" widget="ComboBox">
<Item lstrtext="false" name="SI" text="SI"/>
<Item lstrtext="false" name="NO" text="NO"/>
</ComboBox>
<Table gridHeight="7" gridWidth="56" name="table2" posX="4" posY="12" totalRows="5">
<Edit fieldId="54" gridHeight="1" gridWidth="8" name="sec_vend" posX="0" posY="0" tabIndex="-1" title="Vendedor" widget="Edit"/>
<Edit fieldId="55" gridHeight="1" gridWidth="7" justify="left" name="nombre" posX="8" posY="0" scroll="true" tabIndex="-1" title="Nombre" widget="Edit"/>
<Edit fieldId="59" gridHeight="1" gridWidth="9" name="tipo_usuario1" posX="15" posY="0" tabIndex="-1" title="Tipo_usuario" widget="Edit"/>
<Edit fieldId="56" gridHeight="1" gridWidth="8" name="comision" posX="24" posY="0" tabIndex="-1" title="Comision" widget="Edit"/>
<Edit fieldId="57" gridHeight="1" gridWidth="10" name="porc_cobros" posX="32" posY="0" tabIndex="-1" title="Porcentaje Cobros" widget="Edit"/>
</Table>
</Grid>
</Page>
</Folder>
</Form>
<DiagramLayout>
<![CDATA[AAAAAgAAAEwAewAzAGYAMgAwADgANQBmADkALQAyAGIAZABhAC0ANAA1AGIAMAAtAGIAZQAzADAALQAzAGUAZgBiADIAYgBjADkAZAAyAGMANQB9QHLqqxe1VnlAQ1VV56qssD90euFHrhR7AQAAAEwAewA4ADIANAAxADQAZgBiADIALQA2ADgAMgA5AC0ANAA0ADUAMwAtADkANwAxAGQALQBjAGMAYQA3ADIAYQBhAGEAOAAwAGUAOAB9QIFKqw0aq7BAQgAAmFVXmj94k3S8an76AQAAAEwAewBlADYANQA1ADgANgA4AGUALQAwADMANwAzAC0ANAA1AGQAMgAtAGEAMwBhADUALQA5ADkAZAA1ADgAYgA0ADUAZgA5AGUAMwB9QDqqq3KqrWdAOqqrcqqtZwAAAAAAAAAAAQAAAEwAewBiADMAOQA5ADkAZAA2ADQALQBkADEAYgA1AC0ANAA0ADIAMwAtAGIAMAAyADEALQBiADAANQA5AGMANgAyADIAYwA2ADEANQB9QCqqq3KqrWdAKqqrcqqtZwAAAAAAAAAAAQ==]]>
</DiagramLayout>
</ManagedForm>
+400
View File
@@ -0,0 +1,400 @@
SCHEMA smarmotech
DEFINE
usuario, clave, answer STRING,
checking INT --Para verificar si los campos llenados ya existen en la BD
DEFINE datos RECORD LIKE seg0001.* --Datos individuales
DEFINE propiedades RECORD LIKE seg0003.* --Propiedades individuales
DEFINE Duser DYNAMIC ARRAY OF RECORD --Display user abreviado
ficha1 INT,
usuario1 VARCHAR(100),
nombreusuario1 VARCHAR(100),
email1 VARCHAR(100)
END RECORD
DEFINE propiedades2 DYNAMIC ARRAY OF RECORD --tabla seg0007
sec_vend SMALLINT,
nombre VARCHAR(100),
tipo_usuario1 VARCHAR(100),
comision CHAR(10),
porc_cobros DECIMAL(12, 4)
END RECORD
MAIN --login y programa
CALL ARG_VAL(1) RETURNING usuario
CALL ARG_VAL(2) RETURNING clave
CONNECT TO "marmotech" AS "IFMX" USER usuario USING clave
CONNECT TO "smarmotech" AS "MSSQL" USER usuario USING clave
CALL segprmt0001()
END MAIN
FUNCTION segprmt0001()
SET CONNECTION "MSSQL"
OPEN WINDOW w1 WITH FORM 'segfmmt001'
CALL buscaUsuarios() RETURNING Duser
DIALOG ATTRIBUTE(UNBUFFERED)
DISPLAY ARRAY Duser TO susuarios.*
BEFORE DISPLAY --Llenando todos los combo box
CALL localidades('1')
CALL departamentos()
CALL bodegas('1')
CALL perfiles()
CALL printers()
ON ACTION agregar
ATTRIBUTES(TEXT = "Nuevo", IMAGE = "fa-address-book-o")
INPUT BY NAME datos.*
BEFORE INPUT
NEXT FIELD num_emp
AFTER FIELD num_emp
SELECT a.nom1_emp || a.apell1_Emp
INTO datos.nombreusuario
FROM adtb00003 a
WHERE a.num_emp = datos.num_emp
AND a.status_t IS NULL
IF STATUS = NOTFOUND THEN
CALL msg(3)
NEXT FIELD num_Emp
ELSE
DISPLAY BY NAME datos.nombreusuario
CALL DIALOG.setFieldActive('usuario', TRUE)
CALL msg(12)
END IF
AFTER INPUT
CALL SegAdd() --Para agregar un registro a la tabla
CALL DIALOG.setFieldActive('usuario', FALSE)
ON ACTION CANCEL
CALL msg(2)
EXIT INPUT
END INPUT
ON ACTION borrar ATTRIBUTES(TEXT = "Eliminar", IMAGE = "delete")
LET answer =
fgl_winquestion(
"Eliminar registro",
"ESTA SEGURO DE ELIMINAR ESTE REGISTRO?",
"YES",
"YES|NO",
"QUESTION",
0)
IF answer = 'YES' THEN
CALL DeleteRec(arr_curr())
ELSE
CALL msg(2)
END IF
IF int_flag THEN
CALL msg(39)
END IF
ON ACTION CANCEL ATTRIBUTES(TEXT = "Salir", IMAGE = "quit")
EXIT PROGRAM
BEFORE ROW
CALL getdata(arr_curr()) --Obtenemos los datos del registro
CALL buscaUsuarios() RETURNING Duser
CALL fgl_settitle("Administracion de Usuarios") --seleccionado
CONTINUE DIALOG
END DISPLAY
INPUT ARRAY propiedades2 FROM susuarios2.* ATTRIBUTES(WITHOUT DEFAULTS)
AFTER FIELD sec_vend
SELECT a.nom1_emp || a.apell1_Emp
INTO propiedades2[arr_curr()].nombre
FROM adtb00003 a
WHERE a.num_emp = propiedades2[arr_curr()].sec_vend
AND a.status_t IS NULL
IF STATUS = NOTFOUND THEN
CALL msg(3)
NEXT FIELD sec_vend
ELSE
DISPLAY propiedades2[arr_curr()].nombre TO nombre
NEXT FIELD tipo_usuario1
END IF
ON ACTION guardar ATTRIBUTES(TEXT = "Guardar", IMAGE = "save")
LET int_flag = TRUE
FOR checking = 1 TO propiedades2.getLength()
IF propiedades2[checking].sec_vend IS NULL THEN
CALL msg(16)
LET int_flag = FALSE
END IF
IF propiedades2[checking].tipo_usuario1 IS NULL THEN
CALL msg(16)
LET int_flag = FALSE
END IF
END FOR
IF int_flag THEN
BEGIN WORK
DELETE FROM seg0007 WHERE seg0007.usuario = datos.usuario
FOR checking = 1 TO propiedades2.getLength()
INSERT INTO seg0007
VALUES(datos.usuario,
propiedades2[checking].nombre,
propiedades2[checking].sec_vend,
propiedades2[checking].tipo_usuario1,
propiedades2[checking].comision,
propiedades2[checking].porc_cobros)
END FOR
IF sqlca.sqlcode == 0 THEN
COMMIT WORK
ELSE
ROLLBACK WORK
LET int_flag = FALSE
END IF
END IF
IF int_flag THEN
CALL msg(13)
ELSE
CALL msg(16)
END IF
ON ACTION salir ATTRIBUTES(TEXT = "Salir", IMAGE = "quit")
RETURN
END INPUT
INPUT BY NAME datos.* ATTRIBUTES(WITHOUT DEFAULTS)
BEFORE INPUT
NEXT FIELD email
CALL DIALOG.setFieldActive('usuario', FALSE)
AFTER FIELD num_emp
SELECT a.nom1_emp || ' ' || a.apell1_Emp
INTO datos.nombreusuario
FROM adtb00003 a
WHERE a.num_emp = datos.num_emp AND a.status_t IS NULL
IF STATUS = NOTFOUND THEN
CALL msg(3)
NEXT FIELD num_Emp
END IF
ON ACTION addfirma
CALL firmas(datos.num_emp)
ON ACTION actualizar
ATTRIBUTES(TEXT = "Actualizar", IMAGE = "fa-refresh")
LET int_flag = FALSE
IF datos.tipo_usuario IS NULL THEN
CALL msg(16)
ELSE
LET datos.us_mod = usuario
LET datos.fech_mod = CURRENT
UPDATE seg0001
SET seg0001.* = datos.*
WHERE seg0001.num_emp = datos.num_emp
LET int_flag = TRUE
END IF
IF int_flag THEN
CALL msg(13)
ELSE
CALL msg(16)
END IF
ON ACTION CANCEL ATTRIBUTES(TEXT = "Salir", IMAGE = "quit")
EXIT PROGRAM
CONTINUE DIALOG
END INPUT
INPUT BY NAME propiedades.* ATTRIBUTES(WITHOUT DEFAULTS)
ON ACTION actualizar
ATTRIBUTES(TEXT = "actualizar", IMAGE = "fa-refresh")
LET int_flag = FALSE
--Se actualiza uno por uno ya que en el formulario
--Existían dos usuarios, entonces le coloqué PropUsuario a propiedades
UPDATE seg0003
SET seg0003.nom_puesto = propiedades.nom_puesto,
seg0003.autorizacionDespacho
= propiedades.autorizaciondespacho,
seg0003.controlDespacho = propiedades.controldespacho,
seg0003.controlDespiece = propiedades.controldespiece,
seg0003.controlDibujo = propiedades.controldibujo,
seg0003.controlDescuento = propiedades.controldescuento,
seg0003.correo = propiedades.correo,
seg0003.actualizacion_log_produccion
= propiedades.actualizacion_log_produccion,
seg0003.fotos_adicionales_inventario
= propiedades.fotos_adicionales_inventario,
seg0003.aviso_reservas = propiedades.aviso_reservas,
seg0003.aviso_requisicion_compras
= propiedades.aviso_requisicion_compras,
seg0003.distributionlist = propiedades.distributionlist,
seg0003.aviso_existencia_minima_repuesto
= propiedades.aviso_existencia_minima_repuesto,
seg0003.controlOutlet = propiedades.controloutlet,
seg0003.controlOrdenesE = propiedades.controlordenese,
seg0003.controlBuzon = propiedades.controlbuzon,
seg0003.controlOutlet2 = propiedades.controloutlet2,
seg0003.requisicionesCompras
= propiedades.requisicionesCompras
WHERE seg0003.usuario = Duser[arr_curr()].usuario1
LET int_flag = TRUE
IF int_flag THEN
CALL msg(13)
ELSE
CALL msg(2)
END IF
ON ACTION CANCEL ATTRIBUTES(TEXT = "Salir", IMAGE = "quit")
EXIT PROGRAM
END INPUT
END DIALOG
CLOSE WINDOW w1
END FUNCTION
FUNCTION getdata(i INT) --Obtener los datos y las propiedades del empleado
--Seleccionado en el Duser
IF i = 0 THEN
INITIALIZE datos.* TO NULL
RETURN
END IF
BEGIN WORK
LOCATE datos.firmafactura IN FILE
SELECT a.*, b.*
INTO datos.*, propiedades.*
FROM seg0001 a, seg0003 b
WHERE a.num_emp = Duser[i].ficha1 AND b.usuario = a.usuario
DISPLAY datos.firmafactura TO firmafactura
CALL buscaPropiedades2(Duser[i].usuario1) RETURNING propiedades2
COMMIT WORK
END FUNCTION
FUNCTION SegAdd() --Insertar nuevo registro
LET int_flag = FALSE
IF datos.usuario IS NULL THEN
CALL msg(16)
RETURN
END IF
IF datos.cod_perfil IS NULL THEN
CALL msg(16)
RETURN
END IF
IF datos.printerdefecto IS NULL THEN
CALL msg(16)
RETURN
END IF
IF datos.otro_printer IS NULL THEN
CALL msg(16)
RETURN
END IF
IF datos.printer_cheque IS NULL THEN
CALL msg(16)
RETURN
END IF
IF datos.num_emp IS NULL THEN
CALL msg(16)
RETURN
END IF
BEGIN WORK
LET datos.us_crea = usuario,
datos.fech_crea = CURRENT
INSERT INTO seg0001 VALUES datos.*
INSERT INTO seg0003(
usuario, nom_puesto, correo)
VALUES(datos.usuario, datos.usuario, datos.email)
IF sqlca.sqlcode == 0 THEN
COMMIT WORK
LET int_flag = TRUE
ELSE
ROLLBACK WORK
END IF
IF int_flag THEN
CALL msg(1)
ELSE
CALL msg(2)
END IF
END FUNCTION
FUNCTION DeleteRec(DelUser INT)
LET int_flag = FALSE
BEGIN WORK
--Si eliminamos un registro, se eliminan sus propiedades
DELETE FROM seg0001 WHERE seg0001.usuario = Duser[DelUser].usuario1
DELETE FROM seg0003 WHERE seg0003.usuario = Duser[DelUser].usuario1
DELETE FROM seg0007 WHERE seg0007.usuario = Duser[DelUser].usuario1
LET int_flag = TRUE
COMMIT WORK
END FUNCTION
+103
View File
@@ -0,0 +1,103 @@
<?xml version="1.0" encoding="UTF-8" ?>
<Project defaultApplication="400358049" gstVersion="3140a" version="3.3">
<Settings>
<DynamicProperties version="2">
<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="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_PRIVILEGED|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_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="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="Package" label="Package" name="PackageGroup" properties="packageId;packageLabel;packageVersion"/>
<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;packageVersionName;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="148531324" label="DatabaseMaintenance" language="Genero" targetDirectory="$(ProjectDir)/dbbin">
<Application binaryName="CreateDatabase" dependencies="455109296" id="184075814" label="CreateDatabase"/>
</Group>
<Group id="226903054" label="Packages" language="Genero">
<Package binaryName="Application_GAR" dependencies="455109296,362164715,159917928,212784684,400358049" id="180911700" label="Application_GAR" platform="Genero Application Server">
<DynamicProperty name="packageId" value="myapp"/>
<DynamicProperty name="packageLabel" value="MyApp"/>
<Directory excludedFiles="Test.42r" includedFiles="*.42?" label="Binaries" sourceDirectory="$(ProjectDir)/bin"/>
<Directory includedFiles="fglprofile,*.xcf,MANIFEST" label="Config" sourceDirectory="$(ProjectDir)/config"/>
<Directory includedFiles="*.png,*.jpg,*.ttf,*.svg,image2font.txt" label="Images" sourceDirectory="$(ProjectDir)/images"/>
<Directory includedFiles="*.42?" label="libdbapp" sourceDirectory="$(GSTSETUPDIR)/bin"/>
<Directory includedFiles="*.42?" label="libgst" sourceDirectory="$(GSTLIBRARYDIR)/bin"/>
<Directory includedFiles="*.4ad,*.4st,*.4tm,*.4tb,*.4sm,*.42s,*.iem,*.4rp" label="Resources" sourceDirectory="$(ProjectDir)/resources"/>
<Directory includedFiles="*.4st,*.4ad,*.4tm,*.4tb" label="Resources_dbapp" sourceDirectory="$(GSTSETUPDIR)/styles"/>
<Directory destinationDirectory="$(RootDir)/webcomponents" label="Webcomponents" sourceDirectory="$(ProjectDir)/webcomponents"/>
</Package>
</Group>
<Group environment="dirlist:DBPATH=$(ProjectDir)/database;$(DBPATH),dirlist:FGLIMAGEPATH=$(ProjectDir)/images;$(FGLDIR)/lib/image2font.txt;$(ProjectDir);$(FGLIMAGEPATH)" id="20809256" label="Project" language="Genero">
<Library binaryName="Config" id="118222984" label="Config"/>
<Library binaryName="Database" id="455109296" label="Database">
<File filePath="database/smarmotech.4db"/>
</Library>
<Library binaryName="Forms" dependencies="455109296" externalDependencies="libgre.42x" id="212784684" label="Forms">
<File filePath="segfmmt001.4fd"/>
</Library>
<Library binaryName="Resources" id="159917928" label="Resources">
<File filePath="../../../Downloads/departamentos.4gl"/>
<File filePath="../../../Downloads/localidades.4gl"/>
<File filePath="resources/msg.4gl"/>
<File filePath="resources/segbuscaUsuarios.4gl"/>
</Library>
<Application binaryName="segprmt0001" dependencies="159917928,212784684,455109296" id="400358049" label="segprmt0001">
<File filePath="segprmt0001.4gl"/>
</Application>
<Application binaryName="Test" commandLineArguments="tcp --working-directory ../bin" dependencies="400358049" id="207681000" label="Test" targetDirectory="$(ProjectDir)/testbin"/>
</Group>
</Project>