tdalon

let
    JiraRootUrl = getNamedCellValue("JiraRootUrl"),
    ProjectKey = getNamedCellValue("ProjectKey"),
    Source = Json.Document(Web.Contents(JiraRootUrl & "/rest/api/2/search?jql=project=" & ProjectKey & " AND issuetype = Epic AND labels in ('process_improvement')")),
    issues = Source[issues],
    #"Converted to Table" = Table.FromList(issues, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
    #"Expanded Column1" = Table.ExpandRecordColumn(#"Converted to Table", "Column1", { "fields","key"}, { "Column1.fields","EpicKey"}),
    #"Expanded Column1.fields" = Table.ExpandRecordColumn(#"Expanded Column1", "Column1.fields", {"customfield_10104"}, {"Epic Name"})
in
    #"Expanded Column1.fields"

tdalon

Jira_EditEpic(IssueKey, EpicKey:="", EpicLinkCfId:="") {
; suc := Jira_EditEpic( IssueKey, EpicKey, EpicLinkCfId:="")
JiraRootUrl := Jira_IssueKey2RootUrl(IssueKey)
If (EpicLinkCfId ="") {
	EpicLinkCfId := Jira_GetCfId(JiraRootUrl,"Epic Link")
}

If (EpicKey ="") {
	EpicKey := Jira_IssueKey2EpicKey(IssueKey,"",JiraRootUrl)
}

tdalon

; ListView with Search by wildcard
; Selection := ListView_Select(LVArray,Title:="",Name)
; LVArray: can be multidimensional array, each row matching a ListView row
; Name : Column Names separated by |
ListView_Select(LVArray,Title:="", Name := "Name") 

{
static LVSSearchValue
static LVSListView
Gui, ListView_Select:New,,%Title%

tdalon

(CellName as text) =>
let
    Source = Excel.CurrentWorkbook(){[Name=CellName]}[Content],
    Value = Source{0}[Column1]
in
    Value

tdalon

Confluence_PersonalizeMention() {
If GetKeyState("Ctrl") {
	Run, "https://tdalon.blogspot.com/2023/07/confluence-personalize-mentions.html"
	return
}
ClipboardBackup := Clipboard
SendInput {Ctrl down}{Shift down}{Left}
SendInput {Ctrl up}{Shift up}
sClip := Clip_GetSelection(False)   

tdalon

; ----------------------------------------------------------------------
Jira_Get(sUrl,sPassword:=""){
; Syntax: sResponseText := Jira_Get(sUrl,sPassword*)
; sPassword Password for server or Api Token for cloud

; Calls: Jira_BasicAuth

If !RegExMatch(sUrl,"^http")  ; missing root url or default url
	sUrl := Jira_GetRootUrl() . sUrl
sAuth := Jira_BasicAuth(sUrl,sPassword)

tdalon

    
' Password can be stored in %userprofile%/JiraPassword.txt (see GetPassword function) to avoid being prompted each time

Private pJiraClient As WebClient
Private pJiraPassword As String
Private pJiraRootUrl As String
Private pJiraUserName As String


Private Property Get JiraPassword() As String

tdalon

Sub Delete_Hidden_Rows()
Dim myU As Range
Dim myR As Range
Dim R As Range
Set R = ActiveSheet.UsedRange


For Each myR In R.Rows
 If myR.Hidden Then
    If Not myU Is Nothing Then

tdalon

; -------------------------------------------------------------------------------------------------------------------
; Function OpenLink
; Open Link in Default browser
OpenLink(sUrl) {
; Based on PowerTools.ini files [Browsers] and [BrowserRules] definition

;sUrl := IntelliPaste_CleanUrl(sUrl)

If !FileExist("PowerTools.ini") {
	PowerTools_ErrDlg("OpenLink: No PowerTools.ini file found!")

tdalon

; -------------------------------------------------------------------------------------------------------------------
Jira_AddLinkByName(sLinkName, inwardIssueKey, outwardIssueKey) {
; suc := Jira_AddLinkByName(sLinkName, inwardIssueKey, outwardIssueKey)
sRootUrl := Jira_IssueKey2RootUrl(inwardIssueKey)
sUrl := sRootUrl . "/rest/api/2/issueLink"
sBody = {"type":{"name":"%sLinkName%"},"inwardIssue":{"key":"%inwardIssueKey%"},"outwardIssue":{"key":"%outwardIssueKey%"}}
;sResponse:= Jira_Post(sUrl, sBody)
; MsgBox %sUrl%`n%sBody%`n%sResponse%

WebRequest := Jira_WebRequest("POST",sUrl, sBody)