jsoto/MBS
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'main' of http://192.168.40.251:3000/jsoto/MBS

Browse Source
This commit is contained in:
Abel López
2026-08-24 09:20:13 -04:00
parent 78812911de 2b57bbee6e
commit 2c3ff7ec43
7 changed files with 414 additions and 59 deletions
Download Patch File Download Diff File Expand all files Collapse all files
PROYECTO/vedir/vefmmt004.4fd
+7 -2
View File
@@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8" ?>
<ManagedForm databaseName="smarmotech" fileVersion="31400" gstVersion="3140a" name="ManagedForm" uid="{1254fc78-ad1f-4d50-b8f8-9d9603b9f5a8}">
<ManagedForm databaseName="smarmotech" fileVersion="40100" gstVersion="60003" name="ManagedForm" uid="{1254fc78-ad1f-4d50-b8f8-9d9603b9f5a8}">
<AGSettings>
<DynamicProperties version="2"/>
<DynamicProperties version="4"/>
</AGSettings>
<Record name="record1" uid="{959dd681-c0d9-4791-948c-0ccbabe0997b}">
<RecordField colName="cod_zona" fieldIdRef="1" fieldType="TABLE_COLUMN" name="vetb00008.cod_zona" sqlTabName="vetb00008" uid="{0eb5b67f-ffb0-4c8a-a628-00c8ce58ca85}"/>
@@ -15,6 +15,11 @@
<RecordField fieldIdRef="8" name="porctransporte" uid="{6383f4f6-2033-4898-98aa-0874e5b91b77}"/>
</Record>
<Form gridHeight="24" gridWidth="80" name="vefmmt004">
<ToolBar name="toolbar1">
<ToolBarItem image="new" name="adicionar" text="Adicionar"/>
<ToolBarItem image="find" name="consultar_modificar" text="Consultar Y Modificar"/>
<ToolBarItem image="exit" name="salir" text="Salir"/>
</ToolBar>
<Grid gridHeight="24" gridWidth="80" name="grid1" posX="0" posY="0">
<Label gridHeight="1" gridWidth="17" name="label1" posX="1" posY="0" text="Codigo de la Zona"/>
<Edit autoNext="true" colName="cod_zona" comment="Digite el codigo de la Zona" fieldId="1" fieldType="TABLE_COLUMN" gridHeight="1" gridWidth="4" name="vetb00008.cod_zona" posX="22" posY="0" sqlTabName="vetb00008" tabIndex="1" widget="Edit"/>
PROYECTO/vedir/vefmmt101.4fd
+3 -3
View File
@@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8" ?>
<ManagedForm databaseName="smarmotech" fileVersion="31400" gstVersion="31405" name="ManagedForm" uid="{bfee9a55-426c-42bb-8868-8ff5e84f14bb}">
<ManagedForm databaseName="smarmotech" fileVersion="40100" gstVersion="60003" name="ManagedForm" uid="{bfee9a55-426c-42bb-8868-8ff5e84f14bb}">
<AGSettings>
<DynamicProperties version="2"/>
<DynamicProperties version="4"/>
</AGSettings>
<Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="sclientes" order="" uid="{9c1c9934-632c-4221-845f-a8d348c37740}" where="">
<RecordField colName="num_rnc1" fieldIdRef="10" name="num_rnc1" sqlTabName="formonly" table_alias_name="" uid="{2ddf9bee-4153-4363-b511-f9900085eda5}"/>
@@ -251,6 +251,6 @@
</Folder>
</Form>
<DiagramLayout>
<![CDATA[AAAAAgAAAEwAewA3AGQAYQA4AGYAOQA3AGEALQA5AGEAOQA5AC0ANABkADUAMwAtAGEANAA4AGIALQBkADEAYgA0ADAAMgA4AGMANAAyADEAYQB9QHDAACnAADlASgAAdgABAj9gYk3S8an8AQAAAEwAewA5AGQAYwBjAGUAZgBkAGQALQAzADcAZgBjAC0ANAA3AGUAZAAtAGIAOAA3AGIALQAwAGMAOAA5AGEANAAwADcAMwAwAGMANAB9wHdzM1eZmYhAQMzNQmZoSz9wYk3S8an8AQAAAEwAewA4ADkAYQA5ADUAMAA5AGEALQAwAGMAYgBiAC0ANAAwADgAYQAtAGIAYgBmADMALQBlADAANAAzADIANwAwADEAOAA3AGUANgB9wGGzM0TmZm1AdBmZrbMzOz+GhysCDEm8AQAAAEwAewA5AGMAMQBjADkAOQAzADQALQA2ADMAMgBjAC0ANAAyADIAMQAtADgANAA1AGYALQBhADgAZAAzADQAOABjADMANwA3ADQAMAB9wEBmZnMzMzVAQTMzVTMzUD+AYk3S8an8AQAAAEwAewA1AGIANQA0AGYAMQAxAGMALQBlAGIAZgA0AC0ANAAxAGEAMQAtAGIAMQBiAGYALQA0ADgAMABmAGYAYwBkADkANABkADUAZAB9QGnmZqEzM4VAaJmZ0czNHT94k3S8an76AQAAAEwAewAwADYAZQBiADYAZABhADgALQBiADcAZAA5AC0ANAA4AGMANQAtAGEANwBkADYALQA1ADgANwA3AGYAYwA3AGYAMgAxADcAMAB9wGRMzOdmZkBAU8zNEGZnHj90euFHrhR7AQ==]]>
<![CDATA[AAAAAgAAAEwAewAwADYAZQBiADYAZABhADgALQBiADcAZAA5AC0ANAA4AGMANQAtAGEANwBkADYALQA1ADgANwA3AGYAYwA3AGYAMgAxADcAMAB9wGRMzOdmZkBAU8zNEGZnHj90euFHrhR7AQAAAEwAewA4ADkAYQA5ADUAMAA5AGEALQAwAGMAYgBiAC0ANAAwADgAYQAtAGIAYgBmADMALQBlADAANAAzADIANwAwADEAOAA3AGUANgB9wGGzM0TmZm1AdBmZrbMzOz+GhysCDEm8AQAAAEwAewA1AGIANQA0AGYAMQAxAGMALQBlAGIAZgA0AC0ANAAxAGEAMQAtAGIAMQBiAGYALQA0ADgAMABmAGYAYwBkADkANABkADUAZAB9QGnmZqEzM4VAaJmZ0czNHT94k3S8an76AQAAAEwAewA3AGQAYQA4AGYAOQA3AGEALQA5AGEAOQA5AC0ANABkADUAMwAtAGEANAA4AGIALQBkADEAYgA0ADAAMgA4AGMANAAyADEAYQB9QHDAACnAADlASgAAdgABAj9gYk3S8an8AQAAAEwAewA5AGQAYwBjAGUAZgBkAGQALQAzADcAZgBjAC0ANAA3AGUAZAAtAGIAOAA3AGIALQAwAGMAOAA5AGEANAAwADcAMwAwAGMANAB9wHdzM1eZmYhAQMzNQmZoSz9wYk3S8an8AQAAAEwAewA5AGMAMQBjADkAOQAzADQALQA2ADMAMgBjAC0ANAAyADIAMQAtADgANAA1AGYALQBhADgAZAAzADQAOABjADMANwA3ADQAMAB9wEBmZnMzMzVAQTMzVTMzUD+AYk3S8an8AQ==]]>
</DiagramLayout>
</ManagedForm>
PROYECTO/vedir/vefmwd002.4fd
+2 -2
View File
@@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8" ?>
<ManagedForm databaseName="smarmotech" fileVersion="31400" gstVersion="31408" name="ManagedForm" uid="{3ef2c8ec-7670-4014-a87b-58c65dc432be}">
<ManagedForm databaseName="smarmotech" fileVersion="40100" gstVersion="60003" name="ManagedForm" uid="{3ef2c8ec-7670-4014-a87b-58c65dc432be}">
<AGSettings>
<DynamicProperties version="2"/>
<DynamicProperties version="4"/>
</AGSettings>
<Record name="sclientes" uid="{5fc56092-fa56-4c48-b1e5-11fe4da7e460}">
<RecordField fieldIdRef="4" name="tipo_cliente" uid="{3b940207-07fc-448e-8143-5a42352e0681}"/>
PROYECTO/vedir/veprmt004.4gl
+3 -7
View File
@@ -34,18 +34,14 @@ FUNCTION veprmt004()
DISPLAY "Zonas" AT 6, 37
MENU "OPCIONES"
COMMAND "Adicionar"
"<Esc> Adiciona Registro <Delete> Cancela Operacion"
HELP 5
ON ACTION Adicionar
LET int_flag = FALSE
CLEAR FORM
CALL vepcad004()
COMMAND "Consultar-modificar"
"<Esc> Realiza Busqueda <Delete> Cancela Operacion"
HELP 6
ON ACTION Consultar_modificar
LET int_flag = FALSE
CALL vepcmf004()
COMMAND "Salir" "Retorna Menu Anterior"
ON ACTION Salir
EXIT MENU
END MENU
END FUNCTION
PROYECTO/vedir/veprmt101.4gl
+1
View File
@@ -55,6 +55,7 @@ MAIN
DEFER INTERRUPT
CALL ARG_VAL(1) RETURNING usuarios
CALL ARG_VAL(2) RETURNING clave
CONNECT TO "marmotech" AS "IFMX" USER usuarios USING clave
CONNECT TO "smarmotech" AS "MSSQL" USER usuarios USING clave