diff options
| author | Andreas Säger <villeroy@t-online.de> | 2017-03-26 23:34:35 +0300 |
|---|---|---|
| committer | Mike Kaganski <mike.kaganski@collabora.com> | 2017-03-27 04:34:39 +0000 |
| commit | ad4857211bcc39ccd4c84c670bfab1b937f65089 (patch) | |
| tree | eab59695a62f757d19592e622490027c59a2955c /wizards/source/depot | |
| parent | 23282b476f094c735ecfae4f82798e36ac9cbbc9 (diff) | |
tdf#106529: fix closing parentheses of bundled macros
Change-Id: I43b6d4f97cb3b1cd1426e6aa7e13550d94cb7c51
Signed-off-by: Mike Kaganski <mike.kaganski@collabora.com>
Reviewed-on: https://gerrit.libreoffice.org/35726
Tested-by: Jenkins <ci@libreoffice.org>
Diffstat (limited to 'wizards/source/depot')
| -rw-r--r-- | wizards/source/depot/Currency.xba | 4 | ||||
| -rw-r--r-- | wizards/source/depot/Internet.xba | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/wizards/source/depot/Currency.xba b/wizards/source/depot/Currency.xba index 5a428d757246..d728424d3214 100644 --- a/wizards/source/depot/Currency.xba +++ b/wizards/source/depot/Currency.xba @@ -89,7 +89,7 @@ Dim bIsDocCountry as Boolean End If sCurStockIDLabel = sMarket(Index,5) sCurExtension = sMarket(Index,8) - iValueCol = Val(sMarket(Index,10) + iValueCol = Val(sMarket(Index,10)) If Instr(sCurExtension,";") <> 0 Then ' Take the german extension as the stock place is Frankfurt sCurExtension = "407" @@ -192,4 +192,4 @@ Function CheckFormatType(oStyle as Object) Dim oFormatofObject as Object oFormatofObject = oDocFormats.getByKey(oStyle.NumberFormat) CheckFormatType = INT(oFormatOfObject.Type) AND com.sun.star.util.NumberFormat.CURRENCY -End Function</script:module>
\ No newline at end of file +End Function</script:module> diff --git a/wizards/source/depot/Internet.xba b/wizards/source/depot/Internet.xba index b4bcf579b808..333bcf98af89 100644 --- a/wizards/source/depot/Internet.xba +++ b/wizards/source/depot/Internet.xba @@ -223,7 +223,7 @@ Dim iCellValue as Long If iCellValue > 0 Then oCell.SetValue(oLinkSheet.GetCellByPosition(0,i).Value) Else - oCell.SetValue(StringToDate(oLinkSheet.GetCellByPosition(0,i).String) + oCell.SetValue(StringToDate(oLinkSheet.GetCellByPosition(0,i).String)) End If oCell = oSheet.GetCellbyPosition(SBVALUECOLUMN,iCurRow) oCell.SetValue(oLinkSheet.GetCellByPosition(4,i).Value) @@ -353,4 +353,4 @@ Dim bLeaveLoop as Boolean oDateCell.Annotation.SetString(NoteText) End If End Sub -</script:module>
\ No newline at end of file +</script:module> |