Questions about script suggested to me in Pc-DMIs IDEA CENTER

When the script is called, the program gets saved. Same method as (CTRL + S) or File > Save within PC-DMIS. Then they empty the variables to a non-nullable value using "Nothing" I personally don't use it sometimes and have no issues, so I am not 100% certain why it is incorporated so much. It may help freeing memory.

If you are curious about how the scripts work, take an existing, short simple program you just made, and export it as a .BAS file, and open it up. You will notice at the top, all programs open up with similar variables like this. Helps with reverse engineering if you're new to Basic.

Dim DmisApp As Object
Dim DmisPart As Object
Dim DmisCommands As Object
Dim DmisCommand As Object

Sub Part1
  Set DmisApp = CreateObject("PCDLRN.Application")
  Set DmisPart = DmisApp.ActivePartProgram
  Set DmisCommands = DmisPart.Commands
  CommandCount = DmisCommands.Count
  Set DmisCommand = DmisCommands.Item(CommandCount)
  DmisCommands.InsertionPointAfter DmisCommand
  Set DmisCommand = DmisCommands.Add(START_ALIGN, TRUE)

Be sure if copying and pasting a script from online, you change the "function" from the Default "Main" on any script created in the edit window.

If modifying within the pasted script just rename it Main, the PC-DMIS default.

CS1        =SCRIPT/FILENAME= SAVEDURING.BAS
            FUNCTION/SaveDuringExecution,SHOW=YES,,
            STARTSCRIPT/

Sub SaveDuringExecution()

'Create objects
Dim PCDMISApp As Object
Set PCDMISApp = CreateObject("PCDLRN.Application")
Dim PCDMISPart As Object
Set PCDMISPart = PCDMISApp.ActivePartprogram

'Save existing program
PCDMISPart.Save

' finish
Set PCDMISApp = Nothing
Set PCDMISApp = Nothing

End Sub

So Using Google Gemini I tried the script this morning. PC-DMIS keeps freezing and closing. This could easily be my computer as I need a upgrade. Could be the code as well but I cant be sure

PC-DMIS Keeps Freezing when I try to run a script. I'm using script editor in PC-DMIs. Iv saved the script onto the desktop, the subroutine folder that's mapped, and onto our network.

It might be something to do with the IT security restrictions on your system.  Try putting the script in the same folder your routine is stored in and then run it from there.

Same result. It must be a security thing or a computer thing.

You could always try to run the script in Excel referencing PC-DMIS object Library and see if that works. If you can use Macros within Excel, that should work. Just for testing this while you sort it out with IT. Then incorporate it back into your program in PC-DMIS

Sorry for my ignorance. I'm totally new, how do you go about that?

So open up a blank Excel workbook and press Alt + F11, or if you have the "Developer" option in the top menu bar click Visual Basic.

Then inside the Visual Basic within Excel, there is a menu bar. Select Tools > References, then search for your "PC-DMIS >YOUR VERSION HERE< Object Library'

Image of references pop up with my Object Library selected

Excellent. Thank you very much

Here is an example of it running in excel. I used "blank" variable without any modifiers to test this. I also used a MsgBox to show my program filepath, and verifying it was correct.

Excel is useful for playing with code, because it helps you see if an expression is valid or not with the "intellisense". Example, when I copied your code before shortening the "blank" line here it was red, so invalid syntax.

Having the object library in full view is nice. You can search through it's methods and objects to see how they work.

PP.SaveAs blank & "_" & suffix "autoip" and suffix

' Get user's age

Dim age As Integer

age = InputBox("How old are you?")

' Check if user is an adult If age >= 18 Then

MsgBox "You are an adult."

Else MsgBox "You are not an adult." End If

In excel im getting an error on the age=inputbox line.

The error says Compile error:

Invalid outside procedure

Anyone have any thoughts?

MsgBox needs to be in a lambda expression with parentheses MsgBox() at least I did that with mine. Let me test this out.

I just copied your script as is, and I had no issues actually except with the, line Else MsgBox "You are not an adult." End If

So MsgBox with parentheses is not required, but is a valid method if adding custom buttons.

MsgBox needs to be in a lambda expression with parentheses MsgBox() at least I did that with mine. Let me test this out.

I just copied your script as is, and I had no issues actually except with the, line Else MsgBox "You are not an adult." End If

So MsgBox with parentheses is not required, but is a valid method if adding custom buttons.

MsgBox only needs parentheses if you're using it as a function to return a value. A = MsgBox("text",vbokcancel,"title"). The error he received says that his code is in the declarations section and not inside a subroutine or function block.

Yeah I realized that after I sent that, and this forum sadly removed editing posts after 5 mins, so I'll forever look like a dunce.