Skip to content

Unsupported attributes #42

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
ribbskott wants to merge 2 commits into
base: master
Choose a base branch
from
Open

Unsupported attributes #42

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
523b261
Removed unsupported attributes
ribbskott Jan 17, 2017
0ef68a1
Removed some irrelevant code for this push
ribbskott Jan 17, 2017
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
40 changes: 35 additions & 5 deletions LIPPackageBuilder/Install/LIPPackageBuilder.bas
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -12,7 +12,7 @@ Public Sub OpenPackageBuilder()
oDialog.Property("url") = Application.WebFolder & "lbs.html?ap=apps/LIPPackageBuilder/packagebuilder&type=tab"
oDialog.Property("height") = 900
oDialog.Property("width") = 1600
oDialog.show
oDialog.Show

Exit Sub
ErrorHandler:
Expand Down Expand Up @@ -292,6 +292,11 @@ On Error GoTo ErrorHandler
If bResult = False Then allOK = False

End If

'Remove property from JSON object
If oField.Item("attributes").Exists("optionquery") Then
Call oField.Item("attributes").Remove("optionquery")
End If
Next
End If
Next
Expand Down Expand Up @@ -329,6 +334,10 @@ On Error GoTo ErrorHandler
If bResult = False Then allOK = False

End If
'Remove property in JSON object
If oField.Item("attributes").Exists("onsqlupdate") Then
Call oField.Item("attributes").Remove("onsqlupdate")
End If
Next
End If
Next
Expand Down Expand Up @@ -366,6 +375,11 @@ On Error GoTo ErrorHandler
If bResult = False Then allOK = False

End If

'Remove property in JSON object
If oField.Item("attributes").Exists("onsqlinsert") Then
Call oField.Item("attributes").Remove("onsqlinsert")
End If
Next
End If
Next
Expand Down Expand Up @@ -403,6 +417,11 @@ On Error GoTo ErrorHandler
If bResult = False Then allOK = False

End If

'Remove property in JSON object
If oField.Item("attributes").Exists("sql") Then
Call oField.Item("attributes").Remove("sql")
End If
Next
End If
Next
Expand Down Expand Up @@ -434,6 +453,11 @@ On Error GoTo ErrorHandler
If bResult = False Then allOK = False

End If

'Remove property from JSON object
If oTable.Item("attributes").Exists("descriptive") Then
Call oTable.Item("attributes").Remove("descriptive")
End If
Next
End If
End If
Expand Down Expand Up @@ -636,10 +660,12 @@ On Error GoTo ErrorHandler
GetFolder = ""

fldr.text = "Select a Folder to save the package file."
If fldr.show = vbOK Then
If fldr.Show = vbOK Then
GetFolder = fldr.Folder
End If
Set fldr = Nothing
Exit Function

ErrorHandler:
GetFolder = ""
Set fldr = Nothing
Expand Down Expand Up @@ -674,6 +700,7 @@ On Error GoTo ErrorHandler
Dim oPackageFolder As Object
Set oApp = CreateObject("Shell.Application")
'Create folder object for the zip file
Close
Set oZipFile = oApp.Namespace(FileNameZip)

If Not oZipFile Is Nothing Then
Expand Down Expand Up @@ -749,10 +776,13 @@ End Function
Sub NewZip(sPath)
'Create empty Zip File
'Changed by keepITcool Dec-12-2005
Dim fNum As Integer
fNum = FreeFile

If Len(Dir(sPath)) > 0 Then Kill sPath
Open sPath For Output As #1
Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
Close #1
Open sPath For Output As #fNum
Print #fNum, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
Close #fNum
End Sub

Public Function DeleteTemporaryFolder(strTempFolder As String) As Boolean
Expand Down