FUNCTION encabezado(nombre_cia,sucnombre)
  DEFINE nombre_cia,sucnombre STRING
  DISPLAY ".\\IMAGENES\\logocia.png" TO logo_cia
  DISPLAY nombre_cia TO compania
  DISPLAY BY NAME  sucnombre
 
END FUNCTION