New to Macola, Please help

[countdrak]

Please excuse my terminology , This is the first time I am using Macola. I will try explaining my problem.

I am working with Progression Explorer>Order Entry>Print Acknowledgement module. I am a VB programmer , and what I cant understand is how the files are setup. When I hit 'OK' on the Print Acknowledgment form a new window pops up called Print Options. I need to check something in my VBA code before I hit 'OK' again to start printing.

Here is my problem -- I can't find OK_OnClick event anywhere? In what file should I look if I need to put a condition before printing something out? I am totally lost.

If someone could point me in the right direction or send me some articles I'd sppreciate it.

Thank you all.

 

[pscopilot]

I feel your pain, Countdrak!! Unfortunately, I am now knowledgeable in Macola either. I'm trying to resolve another problem myself. Was wondering if you have any Macola Import/Export Manual Info or help files. I'm trying the implement an FTP flat file transfer of orders from a retailer into Macola for a company that doesn't have a maintenance contract, so I can't get any direct help.

Good luck on your issue!!

 

[stravis]

The buttons you see in the upper left hand corner of the Macola screen are often not consumable in VBA because these buttons are added programatically after VBA has already analyzed, configured and setup its sub-classing routines. That's the reasoning behind your inability to write code for the OK button click event. However there is a solution.

The OK button triggers the Macform_Save event. The code example below uses this event and a randomization function to determine whether or not the user can print.

Private Sub macForm_Save(AllowSave As Boolean)
    If VerifySomething = False Then
        MsgBox ("Verification Failed. Print Not allowed")
        AllowSave = False
    End If
End Sub

Private Function VerifySomething() As Boolean
    Dim s As Single
    
    s = Rnd(1324)

    If s Mod 2 = 0 Then
        ' If Even then Verify
        VerifySomething = True
    Else
        ' If Odd Then Reject Verification
        VerifySomething = False
    End If
End Function

Scott Travis
infoSpring, LLC.

 

[MacolaHelp]

pscopilot: I've already done this for a client using a VB program & EDI import. Post contact info & I will respond with more details if needed.

 

[countdrak]

Weird.. You guys replied to my sep 16th 2004 post. But thanks a lot. I got it fixed in september. Thanks a lot guys.