Save as in macro works, save as it does not work in ilogic

[Sergio.D.Suárez]

Hi everybody, i have a doubt,
Because this routine in macro works perfectly and this routine in ilogic does not perform any action?

MACRO

Sub RunCommand()
    ' Get the CommandManager object.
    Dim oCommandMgr As CommandManager
    Set oCommandMgr = ThisApplication.CommandManager

    ' Get control definition for the line command.
    Dim oControlDef As ControlDefinition
    Set oControlDef = oCommandMgr.ControlDefinitions.Item("AppFileSaveAsCmd")
    ' Execute the command.
    Call oControlDef.Execute
End Sub

ILOGIC

    ' Get the CommandManager object.
    Dim oCommandMgr As CommandManager
    oCommandMgr = ThisApplication.CommandManager

    ' Get control definition for the line command.
    Dim oControlDef As ControlDefinition
    oControlDef = oCommandMgr.ControlDefinitions.Item("AppFileSaveAsCmd")
    ' Execute the command.
    Call oControlDef.Execute

[bradeneuropeArthur · Accepted solution]

with this it works:

    ' Get the CommandManager object.
    Dim oCommandMgr As CommandManager
    oCommandMgr = ThisApplication.CommandManager

    ' Get control definition for the line command.
    Dim oControlDef As ControlDefinition
    oControlDef = oCommandMgr.ControlDefinitions.Item("AppFileSaveAsCmd")
    ' Execute the command.
	'MsgBox (oControlDef.DisplayName)
    oControlDef.Execute2(False)
	

[Sergio.D.Suárez]

thank you very much Arthur!!!, you are a genius!!!

[bradeneuropeArthur]

@Sergio.D.Suárez 

Good to hear that it works now!

Your thanks are appreciated.

Regards,

[walter_diepstraten]

Bedankt