Power Builder - Aviso de Emision de Documento

Amigos

Tengo el ingreso de datos,Pedido de Materiales el cual es muy similar a una factura. Funciona perfecto, pero me piden el requerimiento, que el documento "Pedido de Materiales" una vez emitido por produccion, de alguna forma avise o informe a los usuarios del departamento de adquisiciones que tienen necesidades para cotizar y/o comprar segun el documento emitido

Cual y como sera la solucion de este requerimiento

Muchas gracias por el tiempo que entregan a esta solucion

Atte Andres

Si es una institución donde cada usuario maneja su propio correo entonces podrias emitirles uno luego de registrar el documento, informándoles lo que desees.

Busca acá en el foro y encontrarás algunas maneras de como hacerlo (Enviar Correo).

Espero que te sirva esta idea....cualquier duda nos comentas

Suerte !

Jancarlo

Estoy probando este codigo, pero al enviar se queda pegado y el outlock da error.
Cuando envia se abre una venana de outlock y donde dice para no aparece nombre y le digo enviar

Otra cosa, como se obtiene y para que es <UserLog = Gf_Lee_UserLogin() >

Atte

Andres

MailSession lm_sesion
MailReturnCode lm_mRet
MailMessage lm_Mensaje
MailFileDescription lm_ArchivoAdjunto

String ls_Asunto, UserLog
Long ll_fila
//............................................................................
// Extrae Usuario conectado a la Red


UserLog = Gf_Lee_UserLogin()
//..........................................................................................................
// Abro la sesión descargando todo (SE CONECTA)
lm_sesion = CREATE mailSession
lm_mRet = lm_sesion.mailLogon ( UserLog , "" , MailNewSession! )

IF lm_mRet <> MailReturnSuccess! THEN
MessageBox ( "Mail", 'No se ha Iniciado la Sesión de Correo.!')
Return False
End If
//..........................................................................................................
// Valido Datos en Blanco
If Len ( Trim ( Arg_Direccion ) ) = 0 Then
MessageBox ( "Información" , "Falta Configurar ID " )
Return False
End If

If Len ( Trim ( Arg_Asunto ) ) = 0 Then
ls_Asunto = 'Remite Documento '
Else
ls_Asunto = Arg_Asunto
End If
//..........................................................................................................
// Guardo los datos en una estructura de tipo MAILMESSAGE.
lm_Mensaje.Recipient[1].Name = Arg_Direccion
lm_Mensaje.Subject = ls_Asunto
lm_Mensaje.NoteText = Arg_Mensaje

lm_ArchivoAdjunto.PathName = Arg_ArchivoAdjunto
lm_ArchivoAdjunto.FileType = MailAttach!
lm_Mensaje.AttachmentFile[1] = lm_ArchivoAdjunto
SetPointer ( HourGlass! )
//..........................................................................................................
// Envía el Mensaje con todos los datos
lm_mRet = lm_sesion.MailSend ( lm_Mensaje )

lm_sesion.mailLogoff()

Destroy lm_sesion

Por lo que veo es una función global qu extrae el nombre del usuario....pero lo deberias ver es que contiene esa función...búscala desde donde extrajiste ese código.

Suerte !