/*Definición de variables*/
DEF VAR i AS CHARACTER NO-UNDO.
DEF VAR vc-desc AS CHARACTER NO-UNDO.
DEF VAR vc-subject AS CHARACTER NO-UNDO.
DEF VAR lvc-email AS CHARACTER NO-UNDO.
DEF VAR vd-qty AS DECIMAL NO-UNDO.
DEF VAR lvc-ofile AS CHARACTER NO-UNDO INITIAL "/home/telqond/file_out.csv".
DEF VAR lvc-file AS CHARACTER NO-UNDO INITIAL "/home/azamora/FA/DepreFA.csv".
DEF STREAM s-excel.
/*area de librerias*/
{us/mf/mfdtitle.i}
/*inicio del programa*/
OUTPUT STREAM s-excel TO VALUE(lvc-ofile) PAGE-SIZE 0.
INPUT FROM VALUE(lvc-file).
REPEAT:
IMPORT DELIMITER "," i.
vc-desc = "".
/*buscar decripcion del item*/
FOR FIRST pt_mstr WHERE pt_domain = global_domain
AND pt_part = i NO-LOCK:
vc-desc = pt_desc1 + pt_desc2.
END.
/*buscar inventario*/
vd-qty = 0.
FOR EACH in_mstr WHERE in_domain = global_domain
AND in_part = i NO-LOCK:
vd-qty = vd-qty + + in_qty_oh + in_qty_nonet .
END.
PUT STREAM s-excel UNFORMATTED i ","
vc-desc ","
vd-qty ","
SKIP.
END. /*repeat*/
INPUT CLOSE.
OUTPUT STREAM s-excel CLOSE.
lvc-email = "programacionparatodos@gamil.com".
vc-subject = "test".
IF SEARCH(lvc-ofile) <> ? THEN DO:
OS-COMMAND SILENT uuencode
VALUE(lvc-ofile) VALUE(lvc-ofile)
mailx -s value('"' + vc-subject + '" ' + TRIM(lvc-email)).
DISPLAY "reporte enviado".
END.
No hay comentarios
https://www.programacionparatodos.com/2019/05/programar-en-progress-4gl.html