Crear cuenta
/*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_domainAND 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_domainAND 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 = "[email protected].com".
vc-subject = "test".
IF SEARCH(lvc-ofile) <> ? THEN DO:
OS-COMMAND SILENT uuencodeVALUE(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