Autosave reports

Im still new to programming PC-DMIS . i was wanting to add in the feature that if there is nothing out of tolerance that it would save the report and create a new folder for each Work order. i have found some other forums about it already. i keep getting a error with my create.bas file. C2 =COMMENT/INPUT,YES,FULL SCREEN=NO,
WORK ORDER
ASSIGN/V1=C2.INPUT
C3 =COMMENT/INPUT,YES,FULL SCREEN=NO,
PART NUMBER
ASSIGN/V2=C3.INPUT
END =GROUP/SHOWALLPARAMS=YES
SAVE_REPORT =GROUP/SHOWALLPARAMS=YES
ASSIGN/FOLDERPATH="C:\USERS\ADMINISTRATOR\DOCUMENTS\TEST"
ASSIGN_FILE =GROUP/SHOWALLPARAMS=YES
ASSIGN/FOLDERNAME=\FOLDERPATH+"(REPORT_NAME)"+"+V2+"\
ENDGROUP/ID=ASSIGN_FILE
ASSIGN/PRINT_PATH=FOLDERNAME+GETPROGRAMINFO("PARTNAME")+"_"+V2+"_"+V1+".PDF
CREATE_FOLDER =GROUP/SHOWALLPARAMS=YES
CS1 =SCRIPT/FILENAME= C:\USERS\ADMINISTRATOR\DOCUMENTS\TEST\CREATE.BAS
FUNCTION/PCDCreatefolder,SHOW=YES,ARG1=PRINT_PATH,,
STARTSCRIPT/
ENDSCRIPT/
ENDGROUP/ID=CREATE_FOLDER
REDRAW =GROUP/SHOWALLPARAMS=YES
CS2 =SCRIPT/FILENAME= C:\USERS\ADMINISTRATOR\DOCUMENTS\TEST\REDRAW.BAS
FUNCTION/Main,SHOW=YES,,
STARTSCRIPT/
ENDSCRIPT/
ENDGROUP/ID=REDRAW
SAVE_PDF =GROUP/SHOWALLPARAMS=YES
PRINT/REPORT,EXEC MODE=END,$
TO_FILE=ON,AUTO=PRINT_PATH, OUTPUT_FORMAT/PDF,$
RESET_REPORT=YES,AUTO OPEN=OFF,$
TO_PRINTER=OFF,COPIES=1,$
TO_DMIS_REPORT=OFF,FILE_OPTION=OVERWRITE,FILENAME=FOLDERNAME,$
REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMENSIONS=NO,$
TO_EXCEL=OFF,$
PREVIOUS_RUNS=DELETE_INSTANCES
ENDGROUP/ID=SAVE_PDF
ENDGROUP/ID=SAVE_REPORT
ENDGROUP/ID=END

Parents

0 Rhett Bradbury 4 months ago

RE: Save reports in PDF automatically and use date and time as name here is where i pulled the create.bas and redraw.bas code from
Cancel
Vote Up 0 Vote Down

Sign in to reply

Verify Answer

Cancel
0 WilliamL 4 months ago in reply to Rhett Bradbury

Looking at that create.bas file, not sure if PC-DMIS Syntax has changed, but I have seen this a few times. What error does it give?
Cancel
Vote Up 0 Vote Down

Sign in to reply

Verify Answer

Cancel
0 Rhett Bradbury 4 months ago in reply to WilliamL
Cancel
Vote Up 0 Vote Down

Sign in to reply

Verify Answer

Cancel
0 Rhett Bradbury 4 months ago in reply to Rhett Bradbury
Cancel
Vote Up 0 Vote Down

Sign in to reply

Verify Answer

Cancel
0 WilliamL 4 months ago in reply to Rhett Bradbury

Change FOLDERPATH to this

"C:\USERS\ADMINISTRATOR\DOCUMENTS\TEST\\"

I do not know what (REPORT_NAME) is supposed to be. Seems to be missing something

Remove those \ from the beginning of your "FOLDERNAME" in both of your assign statements. If there is any \ outside of quotes at the end, we need to fix that one.

I can't see entire line of assign statements, but I can troubleshoot this for you.
Cancel
Vote Up 0 Vote Down

Sign in to reply

Verify Answer

Cancel

Reply

0 WilliamL 4 months ago in reply to Rhett Bradbury

Change FOLDERPATH to this

"C:\USERS\ADMINISTRATOR\DOCUMENTS\TEST\\"

I do not know what (REPORT_NAME) is supposed to be. Seems to be missing something

Remove those \ from the beginning of your "FOLDERNAME" in both of your assign statements. If there is any \ outside of quotes at the end, we need to fix that one.

I can't see entire line of assign statements, but I can troubleshoot this for you.
Cancel
Vote Up 0 Vote Down

Sign in to reply

Verify Answer

Cancel

Children

0 Rhett Bradbury 4 months ago in reply to WilliamL

Here is my code updated and the create.bas and the redraw.bas

how would you have this activate only if there is no out of tolerance?
Cancel
Vote Up 0 Vote Down

Sign in to reply

Verify Answer

Cancel
0 WilliamL 4 months ago in reply to Rhett Bradbury
Something like this. Not able to access PC-DMIS right now, but this is from memory. You can use GETPROGRAMINFO() string function for checking if NUMOOT is greater than 0, then don't print report. If there is no out of tolerance dimensions then print the report. Using IF_GOTO Flow control and LABEL commands.

See here under the "GETPROGRAMINFO" section for more parameters.

https://docs.hexagonmi.com/pcdmis/2023.2/en/helpcenter/mergedProjects/core/26_expression_topics/String_Functions.htm

ASSIGN/V1 = GETPROGRAMINFO("NUMOOT") IF_GOTO/V1 == 0,GOTO = PRINTRPT IF_GOTO/V1 > 0,GOTO = NOPRINT PRINTRPT =LABEL/ IF NUMOOT IS 0 PRINT THE REPORT INSERT ALL REQUIRED PRINTING INFORMATION AND VARIABLES IN THIS BLOCK BEFORE THE NEXT LABEL NOPRINT =LABEL/ IF NUMOOT IS GREATER THAN 0, SKIP PRINTING BY GOING TO THE LABEL NOPRINT
Cancel
Vote Up 0 Vote Down

Sign in to reply

Verify Answer

Cancel