Help with FCF dimension

I have these little OLE programs that I was updating to exe files to get rid of an annoying server busy error. And in some of our programs we have FCF dimensions that are making me crazy since they worked as a basic script but don't work as a exe file. Here is what I have for the code:

If ObjCmd.Type = 184 Then
                If Len(ObjCmd.ID) > 0 Then
                    PrevID = FCFid
                    FCFid = ObjCmd.ID
                End If
                FCFMeas = ObjCmd.GetFieldValue(LINE2_DEV, 1)
            End If

Any ideas on why it worked one way but not now?

And there used to be some examples of FCF coding on here, but I can't find it again. If you have examples you are willing to share, I would appreciate the posting of them so I could learn what you did.

Thanks so much for any help you can provide.

Parents

kellyh over 10 years ago

OK So I am really not any closer to refiguring out the FCF dimension output thing. Here is a current version that I have been working with, but I have several different things that I have tried.

For Each ObjCmd In ObjCmds

            If ObjCmd.IsComment Then
                If ObjCmd.CommentCommand.CommentType = 2 Then
                    If ObjCmd.ID = "C1" Then
                        StrC1 = ObjCmd.CommentCommand.Input
                    End If
                End If
            End If
            If ObjCmd.IsComment Then
                If ObjCmd.CommentCommand.CommentType = 2 Then
                    If ObjCmd.ID = "C2" Then
                        StrC2 = ObjCmd.CommentCommand.Input
                    End If
                End If
            End If
            If ObjCmd.IsComment Then
                If ObjCmd.CommentCommand.CommentType = 2 Then
                    If ObjCmd.ID = "C3" Then
                        StrC3 = ObjCmd.CommentCommand.Input
                    End If
                End If
            End If

            If ObjCmd.IsDimension Then
                ObjDimCmd = ObjCmd.DimensionCommand
                If Len(ObjDimCmd.ID) > 0 Then
                    PrevID = StrDimID
                    StrDimID = ObjDimCmd.ID
                End If
                StrDimMeasure = ObjDimCmd.Measured
                StrAx = ObjDimCmd.AxisLetter
                StrDev = ObjDimCmd.Deviation
            End If
            If ObjCmd.Type = 184 Then
                StrDimID = ObjCmd.ID
                StrDimMeasure = ObjCmd.GetFieldValue(688, 1)
            End If

Reply

kellyh over 10 years ago

OK So I am really not any closer to refiguring out the FCF dimension output thing. Here is a current version that I have been working with, but I have several different things that I have tried.

For Each ObjCmd In ObjCmds

            If ObjCmd.IsComment Then
                If ObjCmd.CommentCommand.CommentType = 2 Then
                    If ObjCmd.ID = "C1" Then
                        StrC1 = ObjCmd.CommentCommand.Input
                    End If
                End If
            End If
            If ObjCmd.IsComment Then
                If ObjCmd.CommentCommand.CommentType = 2 Then
                    If ObjCmd.ID = "C2" Then
                        StrC2 = ObjCmd.CommentCommand.Input
                    End If
                End If
            End If
            If ObjCmd.IsComment Then
                If ObjCmd.CommentCommand.CommentType = 2 Then
                    If ObjCmd.ID = "C3" Then
                        StrC3 = ObjCmd.CommentCommand.Input
                    End If
                End If
            End If

            If ObjCmd.IsDimension Then
                ObjDimCmd = ObjCmd.DimensionCommand
                If Len(ObjDimCmd.ID) > 0 Then
                    PrevID = StrDimID
                    StrDimID = ObjDimCmd.ID
                End If
                StrDimMeasure = ObjDimCmd.Measured
                StrAx = ObjDimCmd.AxisLetter
                StrDev = ObjDimCmd.Deviation
            End If
            If ObjCmd.Type = 184 Then
                StrDimID = ObjCmd.ID
                StrDimMeasure = ObjCmd.GetFieldValue(688, 1)
            End If

Children

No Data