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

Imágen de perfil
Val: 44
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 (29 códigos) (Publicado el 28 de Mayo del 2019)
1.507 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.508 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...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s5331