Merge pull request #12 from starkbank/feature/boleto-payment-pdf

Add buttons for boleto payment pdf download

src.vba/Pdf.bas

@@ -7,6 +7,10 @@ Public Sub downloadAllChargePdfs()
     downloadAllPdfs ("charge")
 End Sub
 
+Public Sub downloadAllChargePaymentPdfs()
+    downloadAllPdfs ("charge-payment")
+End Sub
+
 Public Sub downloadSelectedTransferPdfs()
     Dim initRow As Long
     Dim lastRow As Long
@@ -41,6 +45,24 @@ Public Sub downloadSelectedChargePdfs()
     Call downloadPdfRange(service, initRow, lastRow)
 End Sub
 
+Public Sub downloadSelectedChargePaymentPdfs()
+    Dim initRow As Long
+    Dim lastRow As Long
+    Dim service As String
+    service = "charge-payment"
+
+    initRow = Utils.Max(Selection.row, 10)
+    lastRow = Utils.Min(Selection.row + Selection.Rows.Count - 1, ActiveSheet.Range(ColumnId(service) + "9").CurrentRegion.Rows.Count + 8)
+
+    If initRow > lastRow Then
+        MsgBox "Nenhum pagamento válido selecionado"
+        Exit Sub
+    End If
+
+    Call downloadPdfRange(service, initRow, lastRow)
+End Sub
+
+
 Public Function downloadSinglePdf(service, id As String, folder As String)
     Dim success As Boolean
     Dim path As String
@@ -61,6 +83,7 @@ Public Sub downloadPdfRange(service As String, initRow, lastRow)
     Dim anyFailed As Boolean
     Dim tooMany As Boolean
     anyFailed = False
+    anySuccess = False
     tooMany = True
 
     idColumn = ColumnId(service)
@@ -90,13 +113,16 @@ Public Sub downloadPdfRange(service As String, initRow, lastRow)
             success = downloadSinglePdf(service, entityId, folder)
             If Not success Then
                 anyFailed = True
+            Else
+                anySuccess = True
             End If
         Next
 
         If anyFailed Then
-            MsgBox "Alguns arquivos tiveram falha no download!", vbExclamation
-        Else
-            MsgBox "Arquivos salvos com sucesso em:" + vbNewLine + folder
+            MsgBox "Alguns arquivos tiveram falha no download!" + vbNewLine + "Atenção: Não é possível baixar comprovantes de operações com falha ou canceladas!", vbExclamation
+        End If
+        If anySuccess Then
+            MsgBox "Arquivos salvos em:" + vbNewLine + folder
         End If
     End If
 End Sub

src.vba/ViewChargePaymentForm.frm

@@ -46,8 +46,8 @@ Private Sub SearchButton_Click()
     Call InputLogGateway.saveDates(afterInput, beforeInput)
 
     'Table layout
-    Utils.applyStandardLayout ("G")
-    Range("A" & CStr(TableFormat.HeaderRow() + 1) & ":G" & Rows.Count).ClearContents
+    Utils.applyStandardLayout ("H")
+    Range("A" & CStr(TableFormat.HeaderRow() + 1) & ":H" & Rows.Count).ClearContents
 
     'Headers definition
     ActiveSheet.Cells(TableFormat.HeaderRow(), 1).Value = "Data de Criação"
@@ -57,6 +57,7 @@ Private Sub SearchButton_Click()
     ActiveSheet.Cells(TableFormat.HeaderRow(), 5).Value = "Linha Digitável"
     ActiveSheet.Cells(TableFormat.HeaderRow(), 6).Value = "Descrição"
     ActiveSheet.Cells(TableFormat.HeaderRow(), 7).Value = "Tags"
+    ActiveSheet.Cells(TableFormat.HeaderRow(), 8).Value = "Id do pagamento"
 
     Call FreezeHeader
 
@@ -106,6 +107,8 @@ Private Sub SearchButton_Click()
 
             Dim tags As Collection: Set tags = payment("tags")
             ActiveSheet.Cells(row, 7).Value = CollectionToString(tags, ",")
+
+            ActiveSheet.Cells(row, 8).Value = payment("id")
 
             row = row + 1
         Next

src.vba/ViewHelpForm.frm

@@ -11,6 +11,10 @@ Private Sub HelpSandboxWebButton_Click()
     ActiveWorkbook.FollowHyperlink address:="https://starkbank.com/sandbox"
 End Sub
 
+Private Sub Label2_Click()
+
+End Sub
+
 Private Sub SendPublicKeyButton_Click()
     SendKeyForm.Show
 End Sub