Código de Progress - Programa Progress mailx,input,output file

Imágen de perfil
Val: 50
Ha mantenido su posición en Progress (en relación al último mes)
Gráfica de Progress

Programa Progress mailx,input,output filegráfica de visualizaciones


Progress

Actualizado el 4 de Julio del 2019 por Ana Zelideth (Publicado el 28 de Mayo del 2019)
1.207 visualizaciones desde el 28 de Mayo del 2019
Leer un archivo csv de entrada de datos de números de parte, extraer de la base de datos del ERP de QAD, la descripción y la cantidad total de inventario, enviar los datos a un archivo y enviar por correo el reporte.

Requerimientos

Progress 4gl, comandos Linux, ERP QAD any version

1.0

Actualizado el 4 de Julio del 2019 (Publicado el 28 de Mayo del 2019)gráfica de visualizaciones de la versión: 1.0
1.208 visualizaciones desde el 28 de Mayo del 2019
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
/*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.



Comentarios sobre la versión: 1.0 (0)


No hay comentarios
 

Comentar la versión: 1.0

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s5331