Good morning,
Thanks in advanced.... and
Here are the basics:
VB 6.3 on W2K,
Using for WRQ Reflections for IBM (v 13.0)
Visual Basic Editor (built into the above mainframe)
- As most stories go, a guy created a GUI as a macro using VB and saved everything under the shared folder for our clients' server, which then was deleted. Since he saved it as a macro it saved the .rsf file - but did not save any of the modules, or forms, that came with it... and now he's no longer with the company.
So, about a month ago I decided to copy & paste over the files that I had access too - never thinking I should've just exported the .cls and .frm files (d'oh!) ... anyway, I have all the code, and I've rebuilt the GUI creating the objects based on the names from the actual code.... so, Method or Data member not found error would mean that I'm not naming things right... 'cept, they are named correctly, I think.
Design:
main type (name)
1 form (MainMenu.frm)
4 modules (eagle, main, netview, tso)
1 class module ( OperatorID )
just giving the few in the example, once I figure those out I can pass the fix over the other objects (quiet a few of them) - and mind you, I know he didn't follow standard naming what-have-you... but hey... I'll fix that once I get it running again!
main objects (names)
MultiPage (MultiPage1, MultiPage2)
TextBox (OperatorIDBox, FrequentIDBox)
OptionButton (SLRButton, BIButton)
CheckBox (TestBox)
CommandButton (UnlockButton, OPIDClearButton)
Here is the main code for the form, not the modules. The application loads on full compile, but then crashes when attempting to use any of the controls (ie: UnlockButton_Click() gives above error, even with the correct name, even if I delete and rebuilt the block by double clicking from the design element)
I have a sneaky feeling I'm missing some sort of reference file... unfortunately the IBM system only lets me save the file as a .rfs under a shared directory.
Any help would be appreciated - although I answer phone calls (tech support /sigh) for a living, I volunteered to document the code thinking "hey when I get out of school I'll have some technical writing experience.."... now that it stopped working due to some profile changes they did on our Citrix server, I was handed the project with expectation of re-creating the GUI.
I got it to load, and connect, and read the password from a file. So now if I can just figure out why it's saying method/class not found...
thanks again
- edit: code below, seems there's a size limit to posts..
5 2446 -
-
Private Sub BIButton_Change()
-
If BIButton.Value Then
-
TestBox.Enabled = False
-
Else
-
TestBox.Enabled = True
-
End If
-
End Sub
-
-
Private Sub FaceSheetBox_Change()
-
If FaceSheetBox.Value Then
-
SLRFaceSheetButton.Enabled = True
-
BIFaceSheetButton.Enabled = True
-
LICHFaceSheetButton.Enabled = True
-
SLRFaceSheetButton.Value = True
-
MedicalRecordsBox.Enabled = True
-
Else
-
SLRFaceSheetButton.Enabled = False
-
BIFaceSheetButton.Enabled = False
-
LICHFaceSheetButton.Enabled = False
-
MedicalRecordsBox.Enabled = False
-
SLRFaceSheetButton.Value = True
-
SLRFaceSheetButton.Value = False
-
End If
-
End Sub
-
-
Private Sub LICHFaceSheetButton_Change()
-
If LICHFaceSheetButton.Value Then
-
MedicalRecordsBox.Enabled = False
-
MedicalRecordsBox.Value = False
-
Else
-
MedicalRecordsBox.Enabled = True
-
End If
-
End Sub
-
-
Private Sub OPIDClearButton_ButtonClick()
-
FrequentIDBox.ListIndex = -1
-
OperatorIDBox.Text = ""
-
SLRButton.Value = True
-
TestBox.Value = False
-
End Sub
-
-
Private Sub AccountClearButton_Click()
-
UserList.ListIndex = -1
-
ResetButton.Visible = False
-
UnsuspendBox.Visible = False
-
UnsuspendBox.Value = False
-
SearchButton.Visible = True
-
UserList.Clear
-
UserList.Enabled = False
-
Label10.Enabled = False
-
UserIDBox.Value = ""
-
FirstNameBox.Value = ""
-
LastNameBox.Value = ""
-
MainMenu.MultiPage2.Enabled = True
-
End Sub
-
-
Private Sub FrequentIDBox_Click()
-
OperatorIDBox.Text = FrequentIDBox.List(FrequentIDBox.ListIndex, 1)
-
-
If FrequentIDBox.List(FrequentIDBox.ListIndex, 2) = "STL" Then
-
SLRButton.Value = True
-
Else
-
BIButton.Value = True
-
End If
-
-
TestBox.Value = FrequentIDBox.List(FrequentIDBox.ListIndex, 3)
-
UnlockButton.SetFocus
-
End Sub
-
-
'Private Sub MultiPage1_Click(ByVal Index As Long)
-
' FrequentIDBox.ListIndex = -1
-
' UserList.ListIndex = -1
-
' End Sub
-
-
Private Sub OperatorIDBox_Change()
-
OperatorIDBox.Text = UCase(OperatorIDBox.Text)
-
End Sub
-
-
-
-
Private Sub PrinterClearButton_Click()
-
PrinterResetButton.Visible = False
-
PrinterSearchButton.Visible = True
-
MainMenu.Label19.Enabled = False
-
MainMenu.SelectedPrinterBox.Enabled = False
-
MainMenu.Label18.Enabled = False
-
MainMenu.PrinterStatusBox.Enabled = False
-
SelectedPrinterBox.Text = ""
-
PrinterStatusBox.Text = ""
-
PrinterIDBox.Text = ""
-
PrinterIDBox.Enabled = True
-
FaceSheetBox.Value = False
-
FaceSheetBox.Enabled = True
-
FaceSheetLabel.Visible = False
-
Label17.Enabled = True
-
MedicalRecordsBox.Value = False
-
End Sub
-
-
Private Sub PrinterResetButton_Click()
-
If Not Session.Connected Then
-
Session.Connect
-
End If
-
-
With Session
-
If Not MainMenu.FaceSheetBox.Value Then
-
Call AccessTSO
-
Call AccessVPS
-
-
.TransmitANSI "1"
-
Call SendPrinterID(MainMenu.PrinterIDBox.Text)
-
.TransmitTerminalKey rcIBMEnterKey
-
.WaitForEvent rcKbdEnabled, "120", "0", 1, 1
-
.WaitForDisplayString "REACTIVATE", "1", 21, 13
-
-
' reactivate first
-
.TransmitANSI "14"
-
.TransmitTerminalKey rcIBMEnterKey
-
-
' then stop / start a few times
-
For i = 1 To 5
-
.TransmitANSI "4"
-
.TransmitTerminalKey rcIBMEnterKey
-
.TransmitANSI "f"
-
.TransmitTerminalKey rcIBMEnterKey
-
.TransmitANSI "3"
-
.TransmitTerminalKey rcIBMEnterKey
-
Next i
-
-
.TransmitANSI "3"
-
.TransmitTerminalKey rcIBMEnterKey
-
-
-
.TransmitTerminalKey rcIBMPf3Key
-
.WaitForEvent rcKbdEnabled, "120", "0", 1, 1
-
.WaitForDisplayString "COMMAND", "1", 2, 2
-
-
Call UpdateVPSPrinterStatus
-
-
UpdateStatus ("Reset VPS printer " & MainMenu.SelectedPrinterBox.Text & ".")
-
Call AccessMainMenu
-
Else
-
Call ResetFaceSheetStep1
-
-
If UCase(MainMenu.PrinterStatusBox.Text) <> "ACQ" And Not MedicalRecordsBox.Value Then
-
UpdateStatus ("Printer still not ACQ")
-
Dim Site As String
-
If LICHFaceSheetButton.Value Then
-
Site = "42"
-
ElseIf Not MedicalRecordsBox.Value And SLRFaceSheetButton.Value Then
-
Site = "5"
-
ElseIf Not MedicalRecordsBox.Value And BIFaceSheetButton.Value Then
-
Site = "48"
-
Else
-
Site = "33"
-
End If
-
Call ResetFaceSheetStep2(Site)
-
Call ResetFaceSheetStep1
-
End If
-
-
If UCase(MainMenu.PrinterStatusBox.Text) <> "ACQ" And Not LICHFaceSheetButton.Value Then
-
UpdateStatus ("Printer still not ACQ")
-
Call ResetFaceSheetStep3(MainMenu.SelectedPrinterBox.Text)
-
Call ResetFaceSheetStep1
-
End If
-
End If
-
End With
-
End Sub
-
-
And there's more, but I hope the idea comes through. Any of the above subs will give me the data/method error not found.. again, even if I delete the block and use the design-to-code double click sub creation method.
I would comment all code and add a new button and see if it will call it's _click() function, if not then I'd start a new project in case something is corrupted and add code/import settings (connection settings/keyboard mappings?) a peice at a time. I have not used Reflection for a few years and it was version 9 back then connecting to an Definity G3r PBX.
Good morning,
Thanks in advanced.... and
Here are the basics:
VB 6.3 on W2K,
Using for WRQ Reflections for IBM (v 13.0)
Visual Basic Editor (built into the above mainframe)
...- edit: code below, seems there's a size limit to posts..
I sent you a Private Message about this. -e
Ignore me - just registering an interest in this thread.
Sign in to post your reply or Sign up for a free account.
Similar topics
by: Junkmail |
last post by:
I have an application with highly compressable strings (gzip encoding
usually does somewhere between 20-50X reduction.) My base 350MB
database is mostly made up of these slowly (or even static)...
|
by: Erik-Jan Bakker |
last post by:
Hi
I am not a javascript expert and I have a problem that the guru's
in this newsgroup probably can solve quickly. ;-)
I've made a webpage with three frames: top, left and mainframe.
I...
|
by: kartik |
last post by:
Hi ,
I am in need to find a way, to mass copy the data from db2 table
running in mainframe to universal database db2 on NT. I know that DB2
connect gives the flexiblity of connecting and...
|
by: Dan |
last post by:
Could someone please help me with auto importing a series of data
files into an Access table. I tried to follow code given below in a
previous messagebut i'm getting error messages.
Here's my...
|
by: Ced |
last post by:
Hi,
i'm not an expert in C but i try to compile BTNG software under linux
kernel 2.4.2-2. I get these errors at the very first stage. Does
someone could have a rapid look on this and tell me...
|
by: Frank Swarbrick |
last post by:
Is Websphere Information Integrator supported on Linux for zSeries?
Here's the deal... We are a VSE mainframe shop. We do not currently have
access to any relational databases from VSE. We use...
|
by: MarkusJNZ |
last post by:
Hi, we have some datafeeds which pull info from external sources.
Unfortunately, we have to use screen scraping as there are no XML
feeds. The data feeds are located in a variety of different...
|
by: db2admin |
last post by:
Hi,
I am getting error when exporting data from mainframe using db2
connect while i am on db2 on linux.
Here is what error looks like...
|
by: Bill Schanks |
last post by:
I have a couple of users that are running a vb.net 2005 application,
and @ 6:00am when they are trying to run the automation they are
getting the below error. But when I get in and they try to run...
|
by: Charles Arthur |
last post by:
How do i turn on java script on a villaon, callus and itel keypad mobile phone
|
by: ryjfgjl |
last post by:
In our work, we often receive Excel tables with data in the same format. If we want to analyze these data, it can be difficult to analyze them because the data is spread across multiple Excel files...
|
by: emmanuelkatto |
last post by:
Hi All, I am Emmanuel katto from Uganda. I want to ask what challenges you've faced while migrating a website to cloud.
Please let me know.
Thanks!
Emmanuel
|
by: Hystou |
last post by:
There are some requirements for setting up RAID:
1. The motherboard and BIOS support RAID configuration.
2. The motherboard has 2 or more available SATA protocol SSD/HDD slots (including MSATA, M.2...
|
by: Hystou |
last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can...
|
by: Oralloy |
last post by:
Hello folks,
I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>".
The problem is that using the GNU compilers,...
|
by: jinu1996 |
last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven...
|
by: Hystou |
last post by:
Overview:
Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows...
|
by: tracyyun |
last post by:
Dear forum friends,
With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each...
| | |