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

PROYECTOS/otrodir - 21102021/file_to_b64.4gl

@@ -0,0 +1,19 @@
+IMPORT security
+
+FUNCTION file_to_b64(f_ent)
+
+  DEFINE f_ent,str_b64,str_aux STRING
+
+  LET str_b64=NULL
+
+  TRY
+     CALL security.Base64.LoadBinary(f_ent) RETURNING str_b64
+  CATCH
+     LET str_aux="Unable to convert file into a Base64 String:",STATUS
+     DISPLAY "ERROR: ",str_aux
+     LET str_b64=NULL
+  END TRY
+
+  RETURN str_b64
+
+END FUNCTION