Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

Fetch Fields(#xEmployeeSurname #xEmployeeGivenNames) From_File(xEmployee) With_Key(#xEmployeeIdentification)  

If_Status Is(*okay)  

Fetch Fields(#xEmployeeImage) From_File(xEmployeeImages) With_Key(#xEmployeeIdentification)  

If_Status Is(*okay)  

#Response.ContentFile := #xEmployeeImage.Filename #Response.AttachmentFileName := #xEmployeeSurname +#xEmployeeGivenNames + #xEmployeeIdentification + ".jpg"  

...