DECLARE

  V_AUX         NUMBER;
  V_CONT        NUMBER;
  
  V_FILE_NAME   VARCHAR2(4000);
  V_RETURN      VARCHAR2(4000);
  V_SERVER_DIRECTORY VARCHAR2(4000);
  l_success        boolean;
  
BEGIN
	   
  
	SET_APPLICATION_PROPERTY(CURSOR_STYLE,'BUSY');
 	
  GENERATE_FILE(:INTERVALO1,:INTERVALO2, :OBS, :CONTA_NOTA, V_FILE_NAME, V_RETURN);
	
	V_SERVER_DIRECTORY := GET_DIRECTORY_WAY('EXPORT', 'S');
	 
  IF webutil_file_transfer.Is_AS_readable(V_SERVER_DIRECTORY|| V_FILE_NAME) THEN
	    
	    l_success := webutil_file_transfer.AS_to_Client
			(clientFile => :CLIENT_WAY
			,serverFile => V_SERVER_DIRECTORY || V_FILE_NAME   
			);
	    
			if l_success then
				SET_ALERT_PROPERTY('ALMSG',ALERT_MESSAGE_TEXT, V_RETURN);
V_AUX:=SHOW_ALERT('ALMSG');
			else
				SET_ALERT_PROPERTY('ALMSG',ALERT_MESSAGE_TEXT, 'Error on file copy. ' || V_RETURN);
			  V_AUX:=SHOW_ALERT('ALMSG');
			end if;
	ELSE
		SET_ALERT_PROPERTY('ALMSG',ALERT_MESSAGE_TEXT,'Error on file read ' || V_RETURN);
	 	V_AUX:=SHOW_ALERT('ALMSG');
	END IF;
	
	SET_APPLICATION_PROPERTY(CURSOR_STYLE,'DEFAULT');
	
END;