primer commit subida

2026-09-22 20:38:51 -04:00
commit 07649704b1
10247 changed files with 3271751 additions and 0 deletions
@@ -0,0 +1,30 @@
+<?xml version="1.0" encoding="UTF-8" ?>
+<ManagedForm gstVersion="22800" name="ManagedForm" uid="{4309edbb-6888-4b39-b21e-e58cf7b8063e}">
+  <AGSettings/>
+  <Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="Record1" order="" uid="{d6f90402-446f-4289-ae49-6e15d710b591}" where=""/>
+  <Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="Record2" order="" uid="{38387b0a-f8d3-4742-991a-cffcbc27abec}" where=""/>
+  <Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="Record3" order="" uid="{59f5a0e2-1a16-44f1-a2e9-770ab5bb163a}" where="">
+    <RecordField colName="" fieldIdRef="1" name="Edit1" sqlTabName="" table_alias_name="" uid="{53f712cb-c812-4e1d-910b-5c283bea11b7}"/>
+    <RecordField colName="" fieldIdRef="2" name="Edit2" sqlTabName="" table_alias_name="" uid="{646c3b32-5410-47f8-9bb7-c60a509e3791}"/>
+  </Record>
+  <Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="Record4" order="" uid="{966ff4b7-da74-41b5-99f4-d6dbeeecaa11}" where=""/>
+  <Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="Record5" order="" uid="{02cb34e8-f5aa-4153-a430-e75dc7540adb}" where="">
+    <RecordField colName="" fieldIdRef="3" name="Edit3" sqlTabName="" table_alias_name="" uid="{434ee6a5-ab81-480e-a36b-c717729305d3}"/>
+    <RecordField colName="" fieldIdRef="4" name="Edit4" sqlTabName="" table_alias_name="" uid="{739fcde6-d088-4c6f-948b-7870b3036a8a}"/>
+  </Record>
+  <Form gridHeight="25" gridWidth="80" name="Form" text="Form">
+    <Grid gridHeight="9" gridWidth="64" name="Grid1" posX="1" posY="4">
+      <Table gridHeight="6" gridWidth="19" name="Table1" posX="1" posY="0" totalRows="5">
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" columnCount="" fieldId="1" gridHeight="1" gridWidth="8" name="Edit1" posX="0" posY="0" rowCount="" sqlTabName="" stepX="" stepY="" tabIndex="1" table_alias_name="" title="Edit1" widget="Edit"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" columnCount="" fieldId="2" gridHeight="1" gridWidth="8" name="Edit2" posX="8" posY="0" rowCount="" sqlTabName="" stepX="" stepY="" tabIndex="2" table_alias_name="" title="Edit2" widget="Edit"/>
+      </Table>
+      <Table gridHeight="6" gridWidth="19" name="Table2" posX="25" posY="0" totalRows="5">
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" columnCount="" fieldId="3" gridHeight="1" gridWidth="8" name="Edit3" posX="0" posY="0" rowCount="" sqlTabName="" stepX="" stepY="" tabIndex="3" table_alias_name="" title="Edit3" widget="Edit"/>
+        <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" columnCount="" fieldId="4" gridHeight="1" gridWidth="8" name="Edit4" posX="8" posY="0" rowCount="" sqlTabName="" stepX="" stepY="" tabIndex="4" table_alias_name="" title="Edit4" widget="Edit"/>
+      </Table>
+    </Grid>
+  </Form>
+  <DiagramLayout>
+    <![CDATA[AAAAAgAAAEwAewBkADYAZgA5ADAANAAwADIALQA0ADQANgBmAC0ANAAyADgAOQAtAGEAZQA0ADkALQA2AGUAMQA1AGQANwAxADAAYgA1ADkAMQB9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAEwAewA1ADkAZgA1AGEAMABlADIALQAxAGEAMQA2AC0ANAA0AGYAMQAtAGEAMgBlADkALQA3ADcAMABhAGIANQBiAGIAMQA2ADMAYQB9QDQAAAAAAABANAAAAAAAAAAAAAAAAAAAAQAAAEwAewA3ADMAOQBmAGMAZABlADYALQBkADAAOAA4AC0ANABjADYAZgAtADkANAA4AGIALQA3ADgANwAwAGIAMwAwADMANgBhADgAYQB9QCQAAAAAAABAToAAAAAAAAAAAAAAAAAAAQAAAEwAewAzADgAMwA4ADcAYgAwAGEALQBmADgAZAAzAC0ANAA3ADQAMgAtADkAOQAxAGEALQBjAGYAZgBjAGIAYwAyADcAYQBiAGUAYwB9QCQAAAAAAABAJAAAAAAAAAAAAAAAAAAAAQAAAEwAewA1ADMAZgA3ADEAMgBjAGIALQBjADgAMQAyAC0ANABlADEAZAAtADkAMQAwAGIALQA1AGMAMgA4ADMAYgBlAGEAMQAxAGIANwB9QCQAAAAAAABAQwAAAAAAAAAAAAAAAAAAAQAAAEwAewA2ADQANgBjADMAYgAzADIALQA1ADQAMQAwAC0ANAA3AGYAOAAtADkAYgBiADcALQBjADYAMABhADUAMAA5AGUAMwA3ADkAMQB9QCQAAAAAAABAToAAAAAAAAAAAAAAAAAAAQAAAEwAewA5ADYANgBmAGYANABiADcALQBkAGEANwA0AC0ANAAxAGIANQAtADkAOQBmADQALQBkADYAZABiAGUAZQBlAGMAYQBhADEAMQB9QD4AAAAAAABAPgAAAAAAAAAAAAAAAAAAAQAAAEwAewAwADIAYwBiADMANABlADgALQBmADUAYQBhAC0ANAAxADUAMwAtAGEANAAzADAALQBlADcANQBkAGMANwA1ADQAMABhAGQAYgB9QEQAAAAAAABARAAAAAAAAAAAAAAAAAAAAQAAAEwAewA0ADMANABlAGUANgBhADUALQBhAGIAOAAxAC0ANAA4ADAAZQAtAGEAMwA2AGIALQBjADcAMQA3ADcAMgA5ADMAMAA1AGQAMwB9QCQAAAAAAABAQwAAAAAAAAAAAAAAAAAAAQ==]]>
+  </DiagramLayout>
+</ManagedForm>
@@ -0,0 +1,25 @@
+{
+  programa: testarray.4gl
+  fecha   : 1/11/2013
+  
+}
+
+
+DEFINE arreglo1 DYNAMIC ARRAY OF RECORD
+edit1 CHAR(10),
+edit2 CHAR(20)
+END RECORD 
+
+DEFINE arreglo2 DYNAMIC ARRAY OF RECORD
+edit3 CHAR(10),
+edit4 CHAR(20)
+END RECORD 
+
+MAIN
+
+CALL testarray()
+END MAIN
+
+FUNCTION testarray()
+  
+END FUNCTION
@@ -0,0 +1,13 @@
+MAIN
+
+ CONNECT TO "decomarmol" AS "MSSQL" USER 'jsoto' USING 'lmmjvsd2014'
+ 
+ CALL envia_correo('JSOTO@MARMOTECH.COM.DO','JSOTO@MARMOTECH.COM.DO','PRUEBA1','ESTA')
+END MAIN
+
+FUNCTION envia_correo(emailTO,emailCC,emailBody,emailSubject)
+  DEFINE emailBody,emailTO,emailCC,emailSubject VARCHAR(1000)
+     
+   PREPARE smt FROM "{ call cc_avisadespacho(?,?,?,?) }"
+   EXECUTE smt USING emailTo IN,emailCC IN,emailSubject IN,emailBody IN
+END FUNCTION