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

TEST/datetime/calcula.4gl

@@ -0,0 +1,46 @@
+IMPORT UTIL
+
+MAIN
+  DEFINE d DATE,
+         k,k1 DATETIME YEAR TO MINUTE ,
+         hk,hk1,hsalida DATETIME HOUR TO MINUTE,
+         HORA INTERVAL HOUR(2) TO HOUR,
+         extras INTERVAL HOUR TO MINUTE,
+         chora CHAR(20),cchora INT,
+         cantidad DEC(12,2),
+         xhora INTERVAL HOUR TO HOUR,xminutos INTERVAL MINUTE TO MINUTE,
+         fechaFirma DATETIME YEAR TO SECOND,
+         chfirma STRING
+                
+         DEFINE i1 INTERVAL YEAR TO MONTH
+         DEFINE i2 INTERVAL HOUR(5) TO SECOND
+  LET i1 = INTERVAL( 345-5 ) YEAR TO MONTH
+  LET i2 = INTERVAL( 34562:22:33 ) HOUR(5) TO SECOND
+DISPLAY " datos ",i1," da ",i2
+  
+  LET k = '2021-06-01 6:59'
+  LET k1 = '2021-06-01 17:59'
+  LET hk1 = EXTEND(k1, HOUR TO MINUTE)
+  LET hk  = EXTEND(k, HOUR TO MINUTE)
+
+  LET fechaFirma = CURRENT
+  DISPLAY "fecha firma: ",fechaFirma
+  LET chfirma = util.Datetime.format(fechaFirma, "%d-%m-%Y %H:%M:%S" )
+
+  DISPLAY "formateado: ",chfirma
+  DISPLAY "tiempo: ",hk
+  LET hsalida = '15:00'
+  LET extras = hk1 - hsalida
+
+  LET xhora = extras
+  LET xminutos = extras
+
+  DISPLAY "TIEMPO",EXTRAS, " HORA ",xhora," minuto ",xminutos
+  LET hora = hk1 - hk
+ LET CHORA = hora
+ LET cchora = chora 
+  
+  LET cantidad = chora
+  LET d = TODAY + 200
+  DISPLAY (d - TODAY) UNITS DAY
+END MAIN