hexagon logo
Register Sign in
  • Replies 11 replies
  • Subscribers 221 subscribers
  • Views 131 views
  • Users 0 members are here
Options
Related

Multiple Reports

Liambo734
Is it possible to use separate custom reports inside the one program?

I need to measure some bits of a part and/or other bits dependent on what the operator choice is at the start of the program and need to show clear Cad views with dimensions attached for each situation, which a custom report works well with. Can I call them into a program at different locations etc...?

Or is there some form of legacy or hyper report that I could do this with? TIA
Parents
  • Sub Main(RepID As String)

    Dim PCDapp As Object
    Dim PCDpart As Object
    Dim RepWin As Object

    Set PCDapp = CreateObject("PCDLRN.Application")
    Set PCDpart = PCDapp.ActivePartProgram
    Set RepWin = PCDpart.ReportWindow

    RepWin.Visible = False

    Dim lngRetVal As Long

    lngRetVal = RepWin.LoadCustomReport(RepID)
    RepWin.RefreshReport
    RepWin.SetCurrentAsDefaultReport

    Set RepWin = Nothing
    Set PCDpart = Nothing
    Set PCDapp = Nothing

    End Sub​


    Then you need to set name of custom template in Pcdmis into argument. In my case custom templates are "LH" and "RH" so i put command of script before print command.

    CUSTREP_RH =SCRIPT/FILENAME= D:\PCD_SCRIPTS\CUSTOMREPORTLOADER.BAS
    FUNCTION/Main,SHOW=YES,ARG1="RH",,
    STARTSCRIPT/
    ENDSCRIPT/​
Reply
  • Sub Main(RepID As String)

    Dim PCDapp As Object
    Dim PCDpart As Object
    Dim RepWin As Object

    Set PCDapp = CreateObject("PCDLRN.Application")
    Set PCDpart = PCDapp.ActivePartProgram
    Set RepWin = PCDpart.ReportWindow

    RepWin.Visible = False

    Dim lngRetVal As Long

    lngRetVal = RepWin.LoadCustomReport(RepID)
    RepWin.RefreshReport
    RepWin.SetCurrentAsDefaultReport

    Set RepWin = Nothing
    Set PCDpart = Nothing
    Set PCDapp = Nothing

    End Sub​


    Then you need to set name of custom template in Pcdmis into argument. In my case custom templates are "LH" and "RH" so i put command of script before print command.

    CUSTREP_RH =SCRIPT/FILENAME= D:\PCD_SCRIPTS\CUSTOMREPORTLOADER.BAS
    FUNCTION/Main,SHOW=YES,ARG1="RH",,
    STARTSCRIPT/
    ENDSCRIPT/​
Children
No Data
© 2024 Hexagon AB and/or its subsidiaries. Privacy Policy | Cloud Services Agreement