I have experienced the following problem since upgrading from Version 4.03 Build 230 to Version 4.5 Build 263.
I have a form, which has an order of PICKING_NO and a Print button on it which prints the current record. It has the following Code attached to it.
dim A_ASK_PRINT as c
A_ASK_PRINT = ui_get_radio("Print Picking Ticket No.:"+space(1)+PICK_HEAD->PICKING_NO, 1, "Print", "Preview")
if A_ASK_PRINT = "Print"
goto print
elseif A_ASK_PRINT = "Preview"
goto preview
else
goto cleanup
end if
print:
current_record = alltrim(str(recno(),10,0))
:Report.print("Pick Ticket(Current)","BETWEEN(RECNO(),"+ current_record+ "," + current_record+")")
goto cleanup
preview:
current_record = alltrim(str(recno(),10,0))
:Report.preview("Pick Ticket(Current)","BETWEEN(RECNO(),"+ current_record+ "," + current_record+")")
goto cleanup
cleanup:
end
I have a second form ("Create ConN") which has an embedded browse in which I want to display only records where a field (CONSIGN_NO) is blank. I have created an ON ACTIVATE event which is:
tbl = table.current()
indx = tbl.index_get("noCN")
tbl.index_primary_put(indx)
After I have used the Print button on the first form and then tried to load the second form with the following code:
if is_object("Create ConN") then
Create ConN.show()
Create ConN.activate()
else
:Form.view("Create ConN")
end if
I get both the following messages and Alpha will not let me continue or re-load the application without re-booting the PC.
ALPHA5 caused an exception 10H in module A2ENGINE.DLL at 0167:005e78b1.
Registers:
EAX=00000044 CS=0167 EIP=005e78b1 EFLGS=00010212
EBX=00da7290 SS=016f ESP=00da6dec EBP=00da6e04
ECX=00000000 DS=016f ESI=00da7690 FS=4a8f
EDX=03b428dc ES=016f EDI=00da726c GS=0000
Bytes at CS:EIP:
dc 1d d8 90 63 00 53 56 57 df e0 9e 0f 82 fe 00
Stack dump:
00da726c 00da7690 00da7290 00000000 00000000 00000000 00da7274 005f0151 000003ff 00000000 03a213f1 00da76e2 00da7690 00000000 4145485f 00000044
ALPHA5 caused an invalid page fault in
module MFC40.DLL at 0167:5f8012b6.
Registers:
EAX=00000071 CS=0167 EIP=5f8012b6 EFLGS=00010207
EBX=00000004 SS=016f ESP=00dafa94 EBP=00dafae0
ECX=00000000 DS=016f ESI=0000071c FS=4a8f
EDX=00000000 ES=016f EDI=027fdfc8 GS=0000
Bytes at CS:EIP:
f7 71 08 8b 44 24 0c 89 10 8b 41 04 85 c0 74 12
Stack dump:
027fdfa8 5f8012ef 0000071c 00dafaa4 ffffffff 5f8048a8 0000071c 00dafac0 00c80288 00000000 00000004 5f80129f 5f82c034 00c802d0 00c801b8 00c801b8
Any ideas?? Thanks.
I have a form, which has an order of PICKING_NO and a Print button on it which prints the current record. It has the following Code attached to it.
dim A_ASK_PRINT as c
A_ASK_PRINT = ui_get_radio("Print Picking Ticket No.:"+space(1)+PICK_HEAD->PICKING_NO, 1, "Print", "Preview")
if A_ASK_PRINT = "Print"
goto print
elseif A_ASK_PRINT = "Preview"
goto preview
else
goto cleanup
end if
print:
current_record = alltrim(str(recno(),10,0))
:Report.print("Pick Ticket(Current)","BETWEEN(RECNO(),"+ current_record+ "," + current_record+")")
goto cleanup
preview:
current_record = alltrim(str(recno(),10,0))
:Report.preview("Pick Ticket(Current)","BETWEEN(RECNO(),"+ current_record+ "," + current_record+")")
goto cleanup
cleanup:
end
I have a second form ("Create ConN") which has an embedded browse in which I want to display only records where a field (CONSIGN_NO) is blank. I have created an ON ACTIVATE event which is:
tbl = table.current()
indx = tbl.index_get("noCN")
tbl.index_primary_put(indx)
After I have used the Print button on the first form and then tried to load the second form with the following code:
if is_object("Create ConN") then
Create ConN.show()
Create ConN.activate()
else
:Form.view("Create ConN")
end if
I get both the following messages and Alpha will not let me continue or re-load the application without re-booting the PC.
ALPHA5 caused an exception 10H in module A2ENGINE.DLL at 0167:005e78b1.
Registers:
EAX=00000044 CS=0167 EIP=005e78b1 EFLGS=00010212
EBX=00da7290 SS=016f ESP=00da6dec EBP=00da6e04
ECX=00000000 DS=016f ESI=00da7690 FS=4a8f
EDX=03b428dc ES=016f EDI=00da726c GS=0000
Bytes at CS:EIP:
dc 1d d8 90 63 00 53 56 57 df e0 9e 0f 82 fe 00
Stack dump:
00da726c 00da7690 00da7290 00000000 00000000 00000000 00da7274 005f0151 000003ff 00000000 03a213f1 00da76e2 00da7690 00000000 4145485f 00000044
ALPHA5 caused an invalid page fault in
module MFC40.DLL at 0167:5f8012b6.
Registers:
EAX=00000071 CS=0167 EIP=5f8012b6 EFLGS=00010207
EBX=00000004 SS=016f ESP=00dafa94 EBP=00dafae0
ECX=00000000 DS=016f ESI=0000071c FS=4a8f
EDX=00000000 ES=016f EDI=027fdfc8 GS=0000
Bytes at CS:EIP:
f7 71 08 8b 44 24 0c 89 10 8b 41 04 85 c0 74 12
Stack dump:
027fdfa8 5f8012ef 0000071c 00dafaa4 ffffffff 5f8048a8 0000071c 00dafac0 00c80288 00000000 00000004 5f80129f 5f82c034 00c802d0 00c801b8 00c801b8
Any ideas?? Thanks.
Comment