book
 Share
The version of the browser you are using is no longer supported. Please upgrade to a supported browser.Dismiss

 
View only
 
 
Still loading...
ABCDEFGHIJKLMNOPQRS
1
2
THIS IS THE MAIN SCREEN OF THE SOFTWARE AS YOU CAN SEE THERE ARE "OPTION"
1 HELP
4 PROFILE
50 WORK STATION
70 CALS
NUMARIC are basically the short cut keys to enter the software
Down left : "MENU OPTION" with cursor type "50" will enter the work station window
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
entering the work station screen you can see More option For making Shipment we have to enter "19" so we will enter the screen of "19"
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
this is the screen Shipment Screen how 1st step it so mention the LOAD PORT: KHI PORT CALL: 1 VESSEL VOYAGE: is of 3 alpha & 3 numaric codes such as BSE (space)084
bse is the name of the vessel and 084 is the voyage
this is the Part were Macro in software will find the Container No. and BL: (Booking No.) from the Excel Active Excel Sheet or from the location given
Macro to enter directly into "50.19.1" could also be done by entering 50.19.1 at the APCA MEnu SCreen to directly reach the Shipment screen
88
89
90
91
92
93
94
95
96
97
98
Sub shipment50_19_1()
With Session
.WaitForEvent rcEnterPos, "30", "0", 23, 15
.WaitForDisplayString "OPTION:", "30", 23, 7
.TransmitANSI "50.19.1"
.TransmitTerminalKey rcIBMEnterKey
.WaitForEvent rcKbdEnabled, "30", "0", 1, 1
.WaitForEvent rcEnterPos, "30", "0", 3, 23
.WaitForDisplayString "PORT:", "30", 3, 17
.TransmitANSI "khi1bse084"
End With
End Sub
99
100
Loading...
 
 
 
Sheet1
Sheet2
Sheet3