Etiqueta

18 de enero de 2011

Uso del comando “SMTPSend”, caso práctico.


Partimos de la existencia de una tabla Oracle, que contiene las direcciones e-mail de posibles destinatarios del mensaje a enviar, lo haremos en sólo tres sencillos pasos.
Paso I.
Creamos una ventana, desde donde el usuario podrá seleccionar cada uno de los elementos del mensaje a enviar:

Las variables de entorno que usaremos serán las siguientes:
Class Variable                 Type                 Subtype
FileLog                           Object              FileOps
cListaDestinatarios         List                   
cAsunto                          Character           50
cMensaje                         Character           1000
cOrderAdjuntar               Boolean            

cAdjunto                         Character           100
Sentencia                         Object


Paso II.
El método $construct de la ventana:
Local Variable                 Type                                      Subtype
Condicion                        Character                                1000 
lStatus                             Short integer (0 to 255)         

;  Carga las direcciones e-mail de los posibles destinatarios DB-ORACLE

Do $sessions.[$sessions.$first().$name].$newstatement() Returns Sentencia

;  La variable Condicion contendrá la clausula where con las condiciones de la sentencia select de Oracle, en nuestro ejemplo, tomamos dicha clausula de la ya consignada en una queri denominada Bus_Alumnos.

Calculate Condicion as $queries.Bus_Alumnos.$extraquerytext
Do Sentencia.$execdirect(con("Select unique(EMAIL) from BALUMNOS ",Condicion)) Returns lStatus
Do Sentencia.$fetch(cListaDestinatarios,kFetchAll) Returns lStatus
Do cListaDestinatarios.$sendall($ref.$selected.$assign(kTrue))

;  Una vez cargada la lista cListaDestinatarios con las direcciones de e-mail, candidatas, nos aseguramos de tener la primera línea de la lista seleccionada, y las variables usadas para adjuntar un documento en sus valores iniciales.

Do cListaDestinatarios.$line.$assign(0)
Calculate cOrdenAdjuntar as 0
Calculate cAdjunto as ''


Paso III.
Crearemos un control de eventos para el botón: Adjuntar archivo
On evClick
Do FileOps.$getfilename(cAdjunto) Returns #F
If flag false
Calculate cOrdenAdjuntar as 0
Calculate cAdjunto as ''
Do $cobj.$redraw()
End If

Otro para el botón: Cancelar

On evClick
Close top window

Y finalmente



El evento para el botón: Enviar

Local Variable                 Type                                      Subtype
lArchivoBin                    Binary                                    n/a
lBinData                          Binary                                    n/a
lCharData                        Character                                1000000000
lCharSet                          Character                                50
lContentSubType           Character                                50
lContentType                 Character                                50
lEncoding                        Character                                1000000000
lFileName                        Character                                50
lLevel                              Short integer (0 to 255)
lNimeList                        List
lNombreArchivo             Character                                50
                                                          
On evClick

;  Primero eliminaremos de la lista las direcciones e-mail, que el usuario a des-seleccionada sobre la lista de candidatos.

Set current list cListaDestinatarios
For each line in list from 1 to #LN step 1
If cListaDestinatarios.$selected=kFalse
Delete line in list
End If
End For

;  Comprobaremos si el usuario ha seleccionado (o no) un documento para adjuntar al e-mail, pues el comando SMTPSend cambiará dependiendo de ésto.

If cAdjunto<>''
Do lNimeList.$define(lLevel,lContentType,lContentSubType,lFileName,lCharData,lBinData,lCharSet,lEncoding)
Do lNimeList.$add(0,'multipart','mixed')
Do lNimeList.$add(1,'text','plain',,cMensaje,,,)
Calculate lNombreArchivo as mid(cAdjunto,rpos(':',cAdjunto)+1,50)
Do FileLog.$openfile(cAdjunto)
Do FileLog.$readfile(lArchivoBin)
Do FileLog.$closefile()
Do lNimeList.$add(1,'application','octet-stream',lNombreArchivo,,lArchivoBin,,,)
SMTPSend ('smtp.miservidor.local','mi.direccion@ miservidor.es',cListaDestinatarios,cAsunto,lNimeList,,,'Universidad de Salamanca',,'1') Returns Estado
Else
SMTPSend ('smtp. miservidor.local',mi.direccion@ miservidor.es',cListaDestinatarios,cAsunto,cMensaje,,,'Universidad de Salamanca',,'1') Returns Estado
End If
Close top window

Y eso habrá sido todo, sólo indicar que el objeto, que muestra los destinatarios en la ventana de composición del mensaje, es de tipo kCheckBoxList, para facilitar al usuario, des-seleccionar direcciones e-mail.

Un cordial saludo, en especial a Case Software, Victor y Pepe, quienes se manifiestan como seguidores de éste blog.

Manual de Programación Omnis Studio en Castellano


También disponible en formato PDF.


Recuerde que:  Adquiriendo una licencia o una actualización de cualquier producto Omnis Studio a través del distribuidor oficial (http://www.softpi.com), recibirá una copia en formato PDF.

17 de enero de 2011

Favoritos para "consultas sql dinamicas"

Hace algún tiempo que publiqué en este "blog" un ejemplo para crear consultas sql, ahora veremos como añadir a la ventana de resultados una nueva funcionalidad que nos permita guardar a modo de "favoritos" las búsquedas realizadas, para usarlas en otras ocasiones sin tener que reescribirlas.

El primer paso será crear un nuevo objeto sobre la ventana de resultados, un menú desplegable cuyo aspecto sería el siguiente:


En el procedimiento $construct de la ventana resultados añadiremos la siguiente secuencia:

; Carga menú de favoritos
Do cFavoritos.$define(cFavNombre,cFavConsulta)
Test if file exists {[con(mid(sys(115),1,pos(':',sys(115))),iBusqueda,'.txt')]}
If flag true
Set import file name {[con(mid(sys(115),1,pos(':',sys(115))),iBusqueda,'.txt')]}
Prepare for import from file {Delimited (tabs)}
Import data cFavoritos
Close import file
End If

Do cFavoritos.$addbefore(1,'Favoritos')
Do cFavoritos.$add('Añadir...')
Do cFavoritos.$add('Examinar...')
Do cFavoritos.$line.$assign(1)


Cuando el usuario seleccione una opción de éste menú podrá suceder lo siguiente:

On evClick
Switch cFavoritos.cFavNombre

Case 'Añadir...'
Prompt for input De nombre a la selección actual/Favoritos/3005/50 Returns cFavNombre (Cancel button,Prompt above entry)
If flag true
Do cFavoritos.$addafter(1,cFavNombre,$clib.$queries.[iBusqueda].$extraquerytext)
; Guarda favoritos en el disco
Set current list cFavoritos
If #LN>3
Set print or export file name {[con(mid(sys(115),1,pos(':',sys(115)))
,iBusqueda,'.txt')]}
For each line in list from 2 to #LN-2 step 1
Transmit text to print file {[cFavoritos.cFavNombre][chr(9)][cFavoritos.cFavConsulta][chr(9)][chr(13)]}
End For
Close print or export file
End If
End If
Case 'Examinar...'
Open window instance Favoritos (iBusqueda)

; Recarga favoritos
Set import file name {[con(mid(sys(115),1,pos(':',sys(115))),iBusqueda,'.txt')]}
Prepare for import from file {Delimited (tabs)}
Import data cFavoritos
Close import file
Do cFavoritos.$addbefore(1,'Favoritos')
Do cFavoritos.$add('Añadir...')
Do cFavoritos.$add('Examinar...')
Do cFavoritos.$line.$assign(1)
Do $root.$redraw()

Default
Do $clib.$queries.[iBusqueda].$extraquerytext.$assign(cFavoritos.cFavConsulta)
Do iVerList.$definefromsqlclass(iBusqueda)
Do iVerList.$sessionobject.$assign(iSessionObj) Returns #F
Do iVerList.$select() Returns lStatus
Do iVerList.$fetch(kFetchAll) Returns lStatus
Do iVerList.$line.$assign(1)
Calculate cRecordList as con(iVerList.$linecount,' registros en seleción')
Do $root.$redraw()
End Switch

Do cFavoritos.$line.$assign(1)
Do $cwind.$objs.Favoritos.$redraw()


La ventana para la gestión de favoritos (opción examinar) mostraría el siguiente aspecto:


La programación para esta ventana sería como sigue:

En el $construct de la ventana:

Do iListFavor.$define(iFavNombre,iFavConsulta)
Set current list iListFavor
Set import file name {[con(mid(sys(115),1,pos(':',sys(115))),pBusqueda,'.txt')]}
Prepare for import from file {Delimited (tabs)}
Import data iListFavor
Close import file
Enter data
If flag true
; Guarda favoritos en el disco
Set print or export file name {[con(mid(sys(115),1,pos(':',sys(115))),pBusqueda,'.txt')]}
For each line in list from 1 to #LN step 1
Transmit text to print file {[iListFavor.iFavNombre][chr(9)][iListFavor.iFavConsulta][chr(9)][chr(13)]}
End For
Close print or export file
End If
Close top window


Para la opción "mover arriba":

On evClick ;; Event Parameters - pRow( Itemreference )
Calculate iListFavor.$line as $cwind.$objs.favoritos_datagrid_1016.$gridvcell-1
If iListFavor.$line>1&iListFavor.$linecount>1
Load from list
Do iListFavor.$addbefore(iListFavor.$line-1,iFavNombre,iFavConsulta)
Do iListFavor.$remove(iListFavor.$line+1)
Do $cwind.$objs.favoritos_datagrid_1016.$redraw()
End If


Para la opción "mover abajo":

On evClick
Calculate iListFavor.$line as $cwind.$objs.favoritos_datagrid_1016.$gridvcell-1
If iListFavor.$line
Load from list
Do iListFavor.$addafter(iListFavor.$line+1,iFavNombre,iFavConsulta)
Do iListFavor.$remove(iListFavor.$line)
Do $cwind.$objs.favoritos_datagrid_1016.$redraw()
End If


Y por último para la opción "eliminar":

On evClick
Calculate iListFavor.$line as $cwind.$objs.favoritos_datagrid_1016.$gridvcell-1
If iListFavor.$line>0
Do iListFavor.$remove(iListFavor.$line)
Do $cwind.$objs.favoritos_datagrid_1016.$redraw()
End If


Y eso será todo, el sistema contendrá en archivos de texto plano, las preferencias o favoritos de las búsquedas seleccionadas permitiendo su posterior uso, con tan sólo seleccionarlas desde el menú, cada búsqueda diferente tendrá su propio archivo de texto plano.