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

2026-08-18 20:59:52 -04:00
commit 454973e269
5978 changed files with 2664094 additions and 0 deletions
@@ -0,0 +1,61 @@
+# Property of Four Js*
+# (c) Copyright Four Js 1995, 2019. All Rights Reserved.
+# * Trademark of Four Js Development Tools Europe Ltd
+#   in the United States and elsewhere
+# 
+# Four Js and its suppliers do not warrant or guarantee that these
+# samples are accurate and suitable for your purposes. Their inclusion is
+# purely for information purposes only.
+
+IMPORT FGL donations
+DEFINE fname,last VARCHAR(50)
+
+DEFINE m_details RECORD
+  clubmember  INT,
+  otherdetail CHAR(50) 
+END RECORD
+
+MAIN
+  DEFINE i INT
+  OPTIONS INPUT WRAP
+  FOR i=1 TO 2
+  IF i=1 THEN
+  OPEN FORM f FROM "Folder_unrolled"
+  ELSE
+  OPEN FORM f FROM "Folder"
+  END IF
+  DISPLAY FORM f
+  LET fname="Willi"
+  CALL donations.fill()
+  DIALOG ATTRIBUTES(UNBUFFERED)
+    INPUT BY NAME  fname,last ATTRIBUTES(WITHOUT DEFAULTS)
+    END INPUT
+    SUBDIALOG donations
+    INPUT m_details.* FROM details.*
+      AFTER FIELD otherdetail
+        --just have a uselesse contraint here to check we come thru
+        --in case of leaving the folder
+        IF m_details.otherdetail<>'o' THEN
+          ERROR "otherdetail must be 'o'"
+          NEXT FIELD otherdetail
+        END IF
+      AFTER INPUT
+    END INPUT
+    ON ACTION accept
+      ACCEPT DIALOG
+    ON ACTION cancel
+      EXIT DIALOG
+    AFTER DIALOG
+      --do complete database handling here
+      DISPLAY "AFTER DIALOG:save customer to database"
+      FOR i=1 TO arr_count()
+        DISPLAY "eventually save donation row :",i
+      END FOR 
+      IF FIELD_TOUCHED(details.*) THEN
+        DISPLAY "Update detail in the database"
+      END IF
+  END DIALOG
+  CLOSE FORM f
+  END FOR
+END MAIN
+