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

PROYECTO/otrodir/backupdb.4gl

@@ -0,0 +1,45 @@
+IMPORT UTIL
+ DEFINE selec STRING,
+        nombre_file,basedatos VARCHAR(100),
+        fechaFile DATETIME YEAR TO MINUTE,
+        chfechafile VARCHAR(50) ,
+        datab DYNAMIC ARRAY OF VARCHAR(60),
+        i INT
+MAIN
+ 
+  CONNECT TO "decomarmol" USER "sa" USING "Lmmjvsd2020"
+
+  LET selec = "BACKUP DATABASE ?
+               TO DISK = ?"
+
+  PREPARE copia FROM selec
+  
+  
+  #LET selec = "execute sp_msforeachdb 'print ''[?]'''"
+  #PREPARE padb FROM selec
+  #DECLARE  buscadb CURSOR FOR padb
+
+  LET datab[1]="decomarmol_old"
+  LET datab[2]="rysell"
+  LET datab[3]="sistema_prueba"
+  LET datab[4]="ndeco"
+  LET datab[5]="ndecobk"
+  LET datab[6]="nace"
+  
+  
+  FOR i=1 to datab.getLength()
+  
+  LET fechaFile = CURRENT
+  LET chfechafile  = util.Datetime.format(fechafile, "%d-%m-%Y%H:%M:%S" )
+  
+  LET nombre_file = '/home/copias/',datab[i] CLIPPED,chfechafile,".bak"
+  DISPLAY "en Ejecucion...",nombre_file
+  EXECUTE copia USING datab[i],nombre_file
+  
+  
+     
+  END FOR
+               
+  
+  DISPLAY "He terminado..."
+END MAIN