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,19 @@
+{
+================================================================
+ FUNCION          : ENVIACORREO
+ OBJETIVO         : Reutilizacion de codigos para ejecuar Store
+                    Procedures relacionado al envio de correo
+ PROGRAMADOR      : ING. JUAN SOTO
+ FECHA            : 28 DE ABRIL 2011
+================================================================
+}
+
+FUNCTION envia_correo(emailTO,emailCC,emailBody,emailSubject,Procedimiento)
+  DEFINE emailTO,emailCC,emailSubject,Procedimiento CHAR(150),
+  emailBody VARCHAR(1000)
+  # DISPLAY "proc ",procedimiento," emailto ",emailto CLIPPED," EMAILCC ",emailcc CLIPPED,
+  # " emailsubject ",emailsubject CLIPPED," EMAILBODY ",emailbody CLIPPED
+   
+   PREPARE smt FROM procedimiento #"{ call cc_avisadespacho(?,?,?) }"
+   EXECUTE smt USING emailTo IN,emailCC IN,emailSubject IN,emailBody IN
+END FUNCTION