| alomiatito | |
Hola a todos, tengo un reporte que quiero generar en PDF para enviarlo por
correo, pero a paesar de asignarle un nombre éste se crea sin nombre, la
configuración es la siguiente:
Call Protocol: Internal
Main Program = true
Report Output: Only to File:
En la reglas tengo:
parm(in:&FormulasID,&MascotaNombre,&EmpresaNit);
&pdfName = 'Formula_'+&MascotaNombre.Trim()+Dtoc(&Today);
output_file(&pdfName ,'PDF');
Source:
header
print encabezado
end
for each order FormulasID
where FormulasID = &FormulasID
&UsuarioNombre = &WebSession.Get('NOMBREUSU')
&UsuarioTarjetaProfesional = &WebSession.Get('TARJETA')
//&pdfName = 'Formula_'+&MascotaNombre.Trim()+Dtoc(&Today)
print titulos
if not null(FormulasReceta)
&nlin = GXMLines(FormulasReceta,130)
&i = 1
Do While &i <= &nlin
&txt = GXGetMLi(FormulasReceta,&i,130)
print datos // (print block that prints &txt)
&i += 1
Enddo
else
&txt = 'NO EXISTE FORMULA ASOCIADA'
endif
endfor
footer
print pbFooter
do 'EnviarEmail'
end
sub 'EnviarEmail'
for each order EmpresaNit
where EmpresaNit = &EmpresaNit
&smtp.Host = EmpresaSmtp.Trim()
&smtp.Port=EmpresaSmptPuerto
&smtp.Sender.Name=EmpresaNombre
&smtp.Sender.Address=EmpresaEmail.Trim()
&smtp.UserName = EmpresaSmtpUsuario.Trim()
&smtp.Password = EmpresaSmtpPassword.Trim()
&smtp.Authentication=1
&smtp.Secure=1
&smtp.ErrDisplay = 1 //Si hay error
&smtp.Login()
for each formulas
where FormulasID=&FormulasId and not propietarioEmail.IsEmpty()
&mail.To.Clear()
&mail.Subject = 'Fórmulas Médica' +EmpresaNombre
&mail.Text = ''
&mail.To.New('SUPERMASCOTAS',propietarioEmail.Trim())
&pdfName = 'Formula_'+MascotaNombre.Trim()+Dtoc(&Today)
&Mail.Attachments.Add(&pdfName)
&error= &smtp.ErrCode
&errordes= &smtp.ErrDescription
If &error= 0 OR &error= 1
Msg('Enviando formula '+&pdfName+' al correo '+propietarioEmail.Trim())
&smtp.Send(&Mail)
&i = dfwopen("D:\Errors\Errores.txt",",",'',1)
&i = dfwptxt("Se envió el correo éxitosamente a"+propietarioEmail.Trim())
Else
&i = dfwopen("D:\Errors\Errores.txt",",",'',1)
&i = dfwptxt("Error al enviar el correo "+propietarioEmail.Trim())
&i = dfwnext()
&i = dfwptxt("El servidor arrojó el siguiente error")
&i = dfwnext()
&i = dfwpnum(&Error,12)
&i = dfwnext()
&i = dfwptxt(&errordes)
&i = dfwclose()
Msg("El envio del mail fallo, el número de error es " +
Trim(Str(&error)) + ' . - ' +&errordes)
Endif
endfor
&smtp.Logout()
endfor
endsub
Que puede estar mal..el archivo no lo genera sin nombre y tampoco envía el
correo.
Gracias por cualquier colaboración
---------------------------------------
Para Suscribirse/Desuscribirse:
http://www.gxtechnical.com/cgi-bin/hforum.exe?2,3,30,5
Por consultas owner-gxpublic-l@gxtech.com.uy
|
|
|
|