I guessing that because all of my scripts are run via shortcuts, the default "Stop Running Script" Shift + Esc doesn't work
I need a way to breakout/stop my scripts, so i added this code to the beginning ;
[code]//Stop Script Alt + Esc
OnEvent>KEY_DOWN,VK27,3,Quit
SRT>Quit
Exit>0
END>Quit[/code]
I'm still unable to breakout of the script that is started via a shortcut.
But If I run it from within it's folder code works but I have to press Alt Esc twice
Issue with running Script from a shortcut
Moderators: JRL, Dorian (MJT support)
-
gchichester
- Pro Scripter
- Posts: 132
- Joined: Mon Dec 22, 2008 4:56 pm
- Location: St Augustine FL
Issue with running Script from a shortcut
Thank you in advance for all your help
Gil
Gil
Re: Issue with running Script from a shortcut
How do you define the "Start in" path in your link?
-
gchichester
- Pro Scripter
- Posts: 132
- Joined: Mon Dec 22, 2008 4:56 pm
- Location: St Augustine FL
Re: Issue with running Script from a shortcut
It's the full path to the directory that the script is in.
C:\CP_Macros\Work\John
C:\CP_Macros\Work\John
Thank you in advance for all your help
Gil
Gil
Re: Issue with running Script from a shortcut
My following script started as Desktop link succeed quitting with a single press of Ctrl+Esc.
Code: Select all
// Stop Script CTRL+Esc
OnEvent>KEY_DOWN,VK27,2,Quit
Label>Begin
Wait>5
MSg>Here I am
Goto>Begin
SRT>Quit
Exit>0
END>Quit-
gchichester
- Pro Scripter
- Posts: 132
- Joined: Mon Dec 22, 2008 4:56 pm
- Location: St Augustine FL
Re: Issue with running Script from a shortcut
Not sure if it matters or not but my script contains a Dialog Box.
Sorry i should have a included the script code to begin with, but reluctant because it' a lot.
[code]//Stop Script Alt + Esc
OnEvent>KEY_DOWN,VK27,3,Quit
SRT>Quit
Exit>0
END>Quit
Let>IGNORESPACES=1
//Let>WW_TIMEOUT=5
Step_Delay=300
Let>lw=0.75
Let>SW=0.30
Let>comma=,
Let>InlandSC=905
CapsOn
LabelToVar>varShipper,comboList1
LabelToVar>varSLCode,comboList2
LabelToVar>varLoadingPort,comboList3
LabelToVar>varDischargePort,comboList4
LabelToVar>varVesselName,strVesselList
LabelToVar>varPlaceOfRec,comboList6
LabelToVar>varInlCode,comboList7
LabelToVar>varLibAmerina,cboListAmerina
LabelToVar>varLibBarnes,cboListBarnes
LabelToVar>varLibDlf,cboListDlf
LabelToVar>varLibDne,cboListDne
LabelToVar>varLibGolden,cboListGolden
LabelToVar>varLibGreene,cboListGreene
LabelToVar>varLibHeller,cboListHeller
LabelToVar>varLibLeroy,cboListLeroy
LabelToVar>varLibPackers,cboListPackers
LabelToVar>varLibPioneer,cboListPioneer
LabelToVar>varLibPremier,cboListPremier
LabelToVar>varLibRiver,cboListRiver
LabelToVar>varLibScott,cboListScott
LabelToVar>varLibSeald,cboListSeald
LabelToVar>varLibUnited,cboListUnited
LabelToVar>varVents,comboList
Dialog>BoLDialog
object BoLDialog: TForm
Left = 890
Top = 229
HelpContext = 5000
BorderIcons = [biSystemMenu]
Caption = 'Bill of Lading Info'
ClientHeight = 572
ClientWidth = 592
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = True
ShowHint = True
OnTaskBar = False
PixelsPerInch = 96
TextHeight = 13
object msLabel1: TLabel
Left = 15
Top = 7
Width = 70
Height = 13
Caption = 'Shipper Name:'
end
object msLabel2: TLabel
Left = 15
Top = 69
Width = 82
Height = 13
Caption = 'Booking Number:'
end
object msLabel3: TLabel
Left = 15
Top = 99
Width = 73
Height = 13
Caption = 'Bill of Lading #:'
end
object msLabel4: TLabel
Left = 15
Top = 126
Width = 53
Height = 13
Caption = 'Reference:'
end
object msLabel5: TLabel
Left = 15
Top = 159
Width = 64
Height = 13
Caption = 'Carrier Code :'
end
object msLabel6: TLabel
Left = 15
Top = 188
Width = 76
Height = 13
Caption = 'Departure Date:'
end
object msLabel7: TLabel
Left = 15
Top = 219
Width = 63
Height = 13
Caption = 'Loading Port:'
end
object msLabel8: TLabel
Left = 15
Top = 249
Width = 85
Height = 13
Caption = 'Port of Discharge:'
end
object msLabel9: TLabel
Left = 15
Top = 279
Width = 65
Height = 13
Caption = 'Vessel Name:'
end
object msLabel10: TLabel
Left = 15
Top = 310
Width = 58
Height = 13
Caption = 'Container #:'
end
object msLabel11: TLabel
Left = 15
Top = 338
Width = 64
Height = 13
Caption = 'Seal Number:'
end
object msLabel12: TLabel
Left = 15
Top = 369
Width = 42
Height = 13
Caption = 'Quantity:'
end
object msLabel13: TLabel
Left = 15
Top = 402
Width = 82
Height = 13
Caption = 'Service Contract:'
end
object msLabel14: TLabel
Left = 15
Top = 432
Width = 30
Height = 13
Caption = 'Temp:'
end
object msLabel15: TLabel
Left = 15
Top = 467
Width = 30
Height = 13
Caption = 'Vents:'
end
object msLabel16: TLabel
Left = 15
Top = 495
Width = 66
Height = 13
Caption = 'Total Cartons:'
end
object msLabel17: TLabel
Left = 303
Top = 7
Width = 80
Height = 13
Caption = 'Inland 1 Amount:'
end
object msLabel18: TLabel
Left = 303
Top = 37
Width = 85
Height = 13
Caption = 'Inland 1 Expense:'
end
object msLabel19: TLabel
Left = 303
Top = 67
Width = 106
Height = 13
Caption = 'Inland 1 Vendor Code:'
end
object msLabel20: TLabel
Left = 303
Top = 127
Width = 80
Height = 13
Caption = 'Inland 2 Amount:'
end
object msLabel21: TLabel
Left = 303
Top = 156
Width = 85
Height = 13
Caption = 'Inland 2 Expense:'
end
object msLabel22: TLabel
Left = 303
Top = 187
Width = 106
Height = 13
Caption = 'Inland 2 Vendor Code:'
end
object msLabel23: TLabel
Left = 304
Top = 247
Width = 80
Height = 13
Caption = 'Inland 3 Amount:'
end
object msLabel24: TLabel
Left = 304
Top = 278
Width = 85
Height = 13
Caption = 'Inland 3 Expense:'
end
object msLabel25: TLabel
Left = 304
Top = 306
Width = 106
Height = 13
Caption = 'Inland 3 Vendor Code:'
end
object msLabel26: TLabel
Left = 304
Top = 370
Width = 80
Height = 13
Caption = 'Inland 4 Amount:'
end
object msLabel27: TLabel
Left = 304
Top = 400
Width = 85
Height = 13
Caption = 'Inland 4 Expense:'
end
object msLabel28: TLabel
Left = 304
Top = 435
Width = 106
Height = 13
Caption = 'Inland 4 Vendor Code:'
end
object Label1: TLabel
Left = 16
Top = 40
Width = 44
Height = 13
Caption = 'Template'
end
object BkNumber: TEdit
Left = 113
Top = 65
Width = 141
Height = 21
TabOrder = 2
end
object BoLNumber: TEdit
Left = 113
Top = 96
Width = 141
Height = 21
TabOrder = 3
end
object ReferanceNum: TEdit
Left = 113
Top = 126
Width = 141
Height = 21
TabOrder = 4
end
object DepartureDate: TEdit
Left = 113
Top = 186
Width = 141
Height = 21
TabOrder = 6
end
object ContainerNum: TEdit
Left = 113
Top = 304
Width = 141
Height = 21
TabOrder = 10
end
object SealNum: TEdit
Left = 113
Top = 335
Width = 141
Height = 21
TabOrder = 11
end
object CartonQty: TEdit
Left = 113
Top = 365
Width = 141
Height = 21
TabOrder = 12
end
object Temperature: TEdit
Left = 113
Top = 429
Width = 141
Height = 21
TabOrder = 13
end
object Vent: TEdit
Left = 112
Top = 460
Width = 141
Height = 21
TabOrder = 14
end
object TotalCartons: TEdit
Left = 113
Top = 492
Width = 141
Height = 21
TabOrder = 15
end
object InlandAmt: TEdit
Left = 418
Top = 2
Width = 120
Height = 21
TabOrder = 16
end
object InlandExp: TEdit
Left = 418
Top = 33
Width = 120
Height = 21
TabOrder = 17
end
object InlandAmt2: TEdit
Left = 418
Top = 124
Width = 120
Height = 21
TabOrder = 19
end
object InlandExp2: TEdit
Left = 418
Top = 154
Width = 120
Height = 21
TabOrder = 20
end
object InlandAmt3: TEdit
Left = 418
Top = 243
Width = 120
Height = 21
TabOrder = 22
end
object InlandExp3: TEdit
Left = 418
Top = 272
Width = 120
Height = 21
TabOrder = 23
end
object InlandAmt4: TEdit
Left = 418
Top = 367
Width = 120
Height = 21
TabOrder = 25
end
object InlandExp4: TEdit
Left = 418
Top = 397
Width = 120
Height = 21
TabOrder = 26
end
object msButton1: tMSButton
Left = 309
Top = 510
Width = 75
Height = 30
Caption = 'Done'
ModalResult = 2
ParentShowHint = False
ShowHint = False
TabOrder = 28
DoBrowse = False
BrowseStyle = fbOpen
end
object msButton2: tMSButton
Left = 467
Top = 471
Width = 75
Height = 20
Caption = 'Update'
ModalResult = 1
ParentShowHint = False
ShowHint = False
TabOrder = 29
DoBrowse = False
BrowseStyle = fbOpen
end
object SrvContract: TEdit
Left = 113
Top = 399
Width = 141
Height = 21
TabOrder = 30
end
object LibraryList: tMSComboBox
Left = 112
Top = 35
Width = 145
Height = 21
TabOrder = 1
Text = ' '
end
object ShipperName: tMSComboBox
Left = 112
Top = 6
Width = 145
Height = 21
TabOrder = 0
end
object CarrierCode: tMSComboBox
Left = 112
Top = 155
Width = 146
Height = 21
TabOrder = 5
Text = ' '
end
object LoadPort: tMSComboBox
Left = 113
Top = 214
Width = 142
Height = 21
TabOrder = 7
Text = ' '
end
object DischargePort: tMSComboBox
Left = 113
Top = 244
Width = 141
Height = 21
TabOrder = 8
Text = ' '
end
object VesselName: tMSComboBox
Left = 112
Top = 275
Width = 141
Height = 21
TabOrder = 9
Text = ' '
Items.Strings = (
'c:\cp_macros\JohnW\Europe\eVessels.txt')
ListText = 'c:\cp_macros\JohnW\Europe\eVessels.txt'#13#10
end
object InlandVdrCode: tMSComboBox
Left = 417
Top = 66
Width = 123
Height = 21
TabOrder = 18
end
object InlandVdrCode2: tMSComboBox
Left = 417
Top = 184
Width = 123
Height = 21
TabOrder = 21
end
object InlandVdrCode3: tMSComboBox
Left = 418
Top = 303
Width = 123
Height = 21
TabOrder = 24
end
object InlandVdrCode4: tMSComboBox
Left = 417
Top = 432
Width = 122
Height = 21
TabOrder = 27
end
object MSButton3: tMSButton
Left = 308
Top = 470
Width = 75
Height = 30
Caption = 'Cover Letter'
TabOrder = 31
DoBrowse = False
BrowseStyle = fbOpen
end
end
EndDialog>BoLDialog
AddDialogHandler>BoLDialog,MSButton3,OnClick,subCallWord
AddDialogHandler>BoLDialog,CarrierCode,OnExit,GetContractNum
AddDialogHandler>BoLDialog,GrossWeight,OnExit,GetWeight
SetDialogProperty>BoLDialog,ShipperName,ListText,comboList1
SetDialogProperty>BoLDialog,CarrierCode,ListText,comboList2
SetDialogProperty>BolDialog,LoadPort,ListText,comboList3
SetDialogProperty>BolDialog,DischargePort,ListText,comboList4
ReadFile>c:\cp_macros\JohnW\Europe\eVessels.txt,strVesselList
SetDialogProperty>BolDialog,VesselName,ListText,strVesselList
SetDialogProperty>BolDialog,Vent,ListText,comboList
SetDialogProperty>BolDialog,PlaceOfRec,ListText,comboList6
SetDialogProperty>BolDialog,InlandVdrCode,ListText,comboList7
SetDialogProperty>BolDialog,InlandVdrCode2,ListText,comboList7
SetDialogProperty>BolDialog,InlandVdrCode3,ListText,comboList7
SetDialogProperty>BolDialog,InlandVdrCode4,ListText,comboList7
AddDialogHandler>BoLDialog,LoadPort,OnExit,subLoadPort
AddDialogHandler>BoLDialog,ShipperName,OnExit,subGetLibrary
AddDialogHandler>BoLDialog,DischargePort,OnExit,subUnLoadPort
AddDialogHandler>BoLDialog,TotalCartons,OnExit,subTotCarton
AddDialogHandler>BoLDialog,DepartureDate,OnExit,subUpdateBoL
SetDialogProperty>BolDialog,,Position,poDesigned
SetDialogProperty>BolDialog,,Left,400
SetDialogProperty>BolDialog,,Top,75
Show>BoLDialog,r
SRT>subGetLibrary
//-----------------------Amerina--------------
GetDialogProperty>BolDialog,ShipperName,Text,ShpName
IF>ShpName=AMERINA
SetDialogProperty>BolDialog,LibraryList,ListText,cboListAmerina
EndIf
//-----------------------Barnes----------------
GetDialogProperty>BolDialog,ShipperName,Text,ShpName
IF>ShpName=BARNES
SetDialogProperty>BolDialog,LibraryList,ListText,cboListBarnes
EndIf
//-----------------------DLF------------------
GetDialogProperty>BolDialog,ShipperName,Text,ShpName
IF>ShpName=DLF
SetDialogProperty>BolDialog,LibraryList,ListText,cboListDlf
EndIf
//-----------------------DNE------------------
GetDialogProperty>BolDialog,ShipperName,Text,ShpName
IF>ShpName=DNE
SetDialogProperty>BolDialog,LibraryList,ListText,cboListDne
EndIf
//-----------------------GOLDEN-----------------
GetDialogProperty>BolDialog,ShipperName,Text,ShpName
IF>ShpName=GOLDEN
SetDialogProperty>BolDialog,LibraryList,ListText,cboListGolden
EndIf
//-----------------------Greene---------------
GetDialogProperty>BolDialog,ShipperName,Text,ShpName
IF>ShpName=GREENE
SetDialogProperty>BolDialog,LibraryList,ListText,cboListGreene
EndIf
//-----------------------Heller---------------
GetDialogProperty>BolDialog,ShipperName,Text,ShpName
IF>ShpName=HELLER
SetDialogProperty>BolDialog,LibraryList,ListText,cboListHeller
EndIf
//-----------------------Leroy----------------
GetDialogProperty>BolDialog,ShipperName,Text,ShpName
IF>ShpName=LEROY
SetDialogProperty>BolDialog,LibraryList,ListText,cboListLeroy
EndIf
//-----------------------Packers------------------
GetDialogProperty>BolDialog,ShipperName,Text,ShpName
IF>ShpName=PACKERS
SetDialogProperty>BolDialog,LibraryList,ListText,cboListPackers
EndIf
//-----------------------Pioneer------------------
GetDialogProperty>BolDialog,ShipperName,Text,ShpName
IF>ShpName=PIONEER
SetDialogProperty>BolDialog,LibraryList,ListText,cboListPioneer
EndIf
//-----------------------Premier------------------
GetDialogProperty>BolDialog,ShipperName,Text,ShpName
IF>ShpName=PREMIER
SetDialogProperty>BolDialog,LibraryList,ListText,cboListPremier
EndIf
//-----------------------RiverOne------------------
GetDialogProperty>BolDialog,ShipperName,Text,ShpName
IF>ShpName=RIVER
SetDialogProperty>BolDialog,LibraryList,ListText,cboListRiver
EndIf
//-----------------------Scott------------------
GetDialogProperty>BolDialog,ShipperName,Text,ShpName
IF>ShpName=SCOTT
SetDialogProperty>BolDialog,LibraryList,ListText,cboListScott
EndIf
//-----------------------Seald------------------
GetDialogProperty>BolDialog,ShipperName,Text,ShpName
IF>ShpName=SEALD
SetDialogProperty>BolDialog,LibraryList,ListText,cboListSeald
EndIf
//-----------------------United------------------
GetDialogProperty>BolDialog,ShipperName,Text,ShpName
IF>ShpName=UNITED
SetDialogProperty>BolDialog,LibraryList,ListText,cboListUnited
EndIf
END>subGetLibrary
SRT>GetContractNum
Let>k=0
GetDialogProperty>BolDialog,ShipperName,Text,ShpName
GetDialogProperty>BolDialog,CarrierCode,Text,SLCode
Label>Start
Let>k=k+1
ReadLn>C:\CP_Macros\JohnW\Europe\eContract.txt,k,strLine
If>strLine=##EOF##,end
Separate>strLine,comma,eContract
If>{(%ShpName% = %eContract_1%) AND (%SLCode% = %eContract_2%)}
SetDialogProperty>BolDialog,SrvContract,Text,%eContract_3%
EndIf
Goto>Start
Label>end
END>GetContractNum
SRT>subUpdateBoL
GetDialogProperty>BolDialog,CarrierCode,Text,SLCode
GetDialogProperty>BolDialog,BkNumber,Text,BkNum
If>BkNum>WLK5
SetDialogProperty>BolDialog,BoLNumber,Text,BkNum
End>subUpdateBoL
Else
SetDialogProperty>BolDialog,BoLNumber,Text,%SLCode%%BkNum%
END>subUpdateBoL
EndIf
SRT>subLoadPort
GetDialogProperty>BolDialog,LoadPort,Text,LPort
If>LPort={"CHARLESTON"}
Let>varLoadPort=1601
EndIf
If>LPort={"JACKSONVILLE"}
Let>varLoadPort=1803
EndIf
If>LPort={"MIAMI"}
Let>varLoadPort=5201
EndIf
If>LPort={"SAVANNAH"}
Let>varLoadPort=1703
EndIf
If>LPort={"LOS ANGELES"}
Let>varLoadPort=2704
EndIf
END>subLoadPort
SRT>subUnLoadPort
GetDialogProperty>BolDialog,DischargePort,Text,DPort
// Get Port Number
If>DPort={"AARHUS"}
Let>varUnLoadPort=40906
EndIf
If>DPort={"ANTWERP"}
Let>varUnLoadPort=42305
EndIf
If>DPort={"BREMEN"}
Let>varUnLoadPort=42869
EndIf
If>DPort={"BREMERHAVEN"}
Let>varUnLoadPort=42870
EndIf
If>DPort={"COPENHAGEN"}
Let>varUnLoadPort=40948
EndIf
If>DPort={"DUBLIN"}
Let>varUnLoadPort=41911
EndIf
If>DPort={"FELIXSTOWE"}
Let>varUnLoadPort=41323
EndIf
If>DPort={"FLUSHING"}
Let>varUnLoadPort=42185
EndIf
If>DPort={"HAMBURG"}
Let>varUnLoadPort=42879
EndIf
If>DPort={"HELSINGBORG"}
Let>varUnLoadPort=40120
EndIf
If>DPort={"HELSINKI"}
Let>varUnLoadPort=40525
EndIf
If>DPort={"LE HAVRE"}
Let>varUnLoadPort=42737
EndIf
If>DPort={"LEGHORN"}
Let>varUnLoadPort=47537
EndIf
If>DPort={"OSLO"}
Let>varUnLoadPort=40377
EndIf
If>DPort={"ROTTERDAM"}
Let>varUnLoadPort=42157
EndIf
If>DPort={"SOUTHAMPTON"}
Let>varUnLoadPort=41374
EndIf
If>DPort={"THAMESPORT"}
Let>varUnLoadPort=41351
EndIf
If>DPort={"LONDON GATEWAY"}
Let>varUnLoadPort=41352
EndIf
END>subUnLoadPort
If>r=2
GetDialogProperty>BolDialog,ShipperName,Text,ShpName
GetDialogProperty>BolDialog,LibraryList,Text,LibList
GetDialogProperty>BolDialog,BkNumber,Text,BkNum
GetDialogProperty>BolDialog,BoLNumber,Text,BoLNum
GetDialogProperty>BolDialog,ReferanceNum,Text,RefNum
GetDialogProperty>BolDialog,CarrierCode,Text,SLCode
GetDialogProperty>BolDialog,DepartureDate,Text,DDate
GetDialogProperty>BolDialog,ArrivalDate,Text,ADate
GetDialogProperty>BolDialog,LoadPort,Text,LPort
GetDialogProperty>BolDialog,DischargePort,Text,DPort
GetDialogProperty>BolDialog,ContainerNum,Text,ContNum
GetDialogProperty>BolDialog,SealNum,Text,SNum
GetDialogProperty>BolDialog,CartonQty,Text,CtnQty
GetDialogProperty>BolDialog,ManifestCount,Text,ManCnt
GetDialogProperty>BolDialog,TotalCartons,Text,TotCartons
GetDialogProperty>BolDialog,SrvContract,Text,SrvContract
GetDialogProperty>BolDialog,Temperature,Text,Temp
GetDialogProperty>BolDialog,Vent,Text,Vents
GetDialogProperty>BolDialog,InlandAmt,Text,InlAmt
GetDialogProperty>BolDialog,InlandExp,Text,InlExp
GetDialogProperty>BolDialog,InlandVdrCode,Text,InlVdrCode
GetDialogProperty>BolDialog,InlandAmt1,Text,InlAmt1
GetDialogProperty>BolDialog,InlandExp1,Text,InlExp1
GetDialogProperty>BolDialog,InlandVdrCode1,Text,InlVdrCode1
GetDialogProperty>BolDialog,InlandAmt2,Text,InlAmt2
GetDialogProperty>BolDialog,InlandExp2,Text,InlExp2
GetDialogProperty>BolDialog,InlandVdrCode2,Text,InlVdrCode2
GetDialogProperty>BolDialog,InlandAmt3,Text,InlAmt3
GetDialogProperty>BolDialog,InlandExp3,Text,InlExp3
GetDialogProperty>BolDialog,InlandVdrCode3,Text,InlVdrCode3
GetDialogProperty>BolDialog,InlandAmt4,Text,InlAmt4
GetDialogProperty>BolDialog,InlandExp4,Text,InlExp4
GetDialogProperty>BolDialog,InlandVdrCode4,Text,InlVdrCode4
EndIf
SRT>subTotCarton
If>ShpName=DNE
GetDialogProperty>BolDialog,VesselName,Text,vName
SetDialogObjectFocus>BolDialog,MSButton3
Else
GetDialogProperty>BolDialog,VesselName,Text,vName
SetDialogObjectFocus>BolDialog,InlandAmt
EndIf
END>subTotCarton
SRT>subCallWord
Include>C:\CP_Macros\JohnW\Masters\Word.scp
END>subCallWord
//Wait>9000
//Include>C:\CP_Macros\GSC\Europe\2_DialogAction.scp
//Include>C:\CP_Macros\JohnW\Europe\2_DialogAction.scp
//--------------------------Shipper ComboBox Lists----------------------
/*
varShipper:
AMERINA
BARNES
DLF
DNE
DUDA
GREENE
GOLDEN
HELLER
LEROY
PACKERS
PIONEER
PREMIER
RIVER
SCOTT
SEALD
UNITED
*/
//--------------------------ShipLine ComboBox Lists---------------------
/*
varSLCode:
APLU
CMDU
COSC
EGLV
HJSC
HLCU
MAEU
MOLU
NYK
OOLU
HAMB
HDMU
*/
//--------------------------Loading Port ComboBox Lists-----------------
/*
varLoadingPort:
CHARLESTON
JACKSONVILLE
MIAMI
SAVANNAH
LOS ANGELES
*/
//--------------------------Discharge Port ComboBox Lists---------------
/*
varDischargePort:
AARHUS
ANTWERP
BREMEN
BREMERHAVEN
COPENHAGEN
DUBLIN
FELIXSTOWE
FLUSHING
HAMBURG
HELSINGBORG
HELSINKI
LE HAVRE
LEGHORN
LONDON GATEWAY
OSLO
ROTTERDAM
SOUTHAMPTON
THAMESPORT
*/
//--------------------------Vents ComboBox Lists------------------------
/*
varVents:
25
50
CLOSED
*/
//--------------------------Inland Vendor Codes-------------------------
/*
varInlCode:
CITRUS
HOOV
SOU
*/
//--------------------------Library ComboBox Lists----------------------
//
//-----------------------Amerina--------------
/*
varLibAmerina:
VAN.DER.LANS/AM
HISPAFRU
LEHMANN/AM
TOTAL.NORDIC
*/
//-----------------------Barnes---------------
/*
varLibBarnes:
MINAMI/BA
INGMAR
VAN.ASSHE
*/
//-----------------------DLF------------------
/*
varLibDlf:
ANACO&GREEVE
AZ/ANT/DL
AZ/LEH/DL
AZ/ROT/DL
BALLESTER
DOLE/ANTWERP
ELQUI/DL
FRUKAR
//HELFER.FRANCE/DL
GECKO/DL
HELFER/ANTWERP
IMPALA/DL
LEO.PELS.ANTWER
LEO.PELS.ROTTER
MILES/ANT/DL
MILES/ROTT/DL
MILES/LEH/DL
MILES
NOSIBE
ORIGIN
PULP
RIMA
SEVEN.ROTTERDAM
STAAY
VAN.ASSCHE
VAN.DER.LANS/DL
VASCO/BREMERHAV
XL.FRUIT
*/
//-----------------------DNE------------------
/*
varLibDne:
ALFRED.PRICE/DN
CAPESPAN.CONTIN
CAPESPAN.ITALY
CARIBBEAN/DN
CHINGFORD/DN
DISTRIBAN/ROTT
FRONTERO
FRUCHTHOF/DN
HELFER/DN
HM
INEX.PARTNERS..
JONCKHEERE
J.O.SIMS,LTD.
JUNIOR
LEMBCKE/COPEN
MACK.INTL
MMG/DN
MUELLER-MAERSK
T.NORDIC/HELS
TERRAGAIA
TOTAL
VANDIJK
*/
//-----------------------DUDA-----------------
/*
varLibDuda:
EMC
EVERFRESH/DU
LEHMANN/CITRUS
LEHMANN/VEG
SEAFRIGO/CASINO
VANDERLANS
*/
//-----------------------GOLDEN----------------
/*
varLibGolden:
AZ/ANT/GR
AZ/LEH/GR
AZ/ROT/GR
BEVA/GR
*/
//-----------------------Greene---------------
/*
varLibGreene:
AARTSENFRUIT.BV
BEVA/ANTWERP
COMPAGNIE
CHINGFORD/GR
DOLE.FR/ANTW
DOLE.FR/LEH
DOLE.GERM/ROTT
HISPAFRUITS.BV
INEX/GR
MAGELLAN/ANT
MAGELLAN/LEH
MAGELLAN/ROTT
ORIGIN.ROTTERD
ORIGINE.ANTWERP
ORIGINE.LEHAVRE
POUPART/GR
SIPLEC/GR
TARGBAN/BREMERH
TARGBAN/ROTT
UNIFRUIT
VASCO
VAN.DOMMELE
*/
//-----------------------Heller---------------
/*
varLibHeller:
FRONTERO.AB.
*/
//-----------------------Leroy----------------
/*
varLibLeroy:
BAKKER&LEENH/LE
BEVA/LE
COOL.FRESH/LE
DIRECTFRUIT/LE
INEX/LE
IPL
JAGUAR/LE
NARDONE/ANTWERP
ORIGIN/ANTWERP/LE
ORIGIN/LEHAVRE/LE
PULP/LE
SIPLEC/LE
SEDIFEL/ANTWERP
SEDIFEL/LEHAVRE
SOCOMO
*/
//-----------------------Packers--------------
/*
varLibPackers:
BAMA.GRUPPEN
CAPEFRANCEROTT
CHINGFORD/PK
COOP.DEN/AARHUS
IMPALA/PK
INEX.PART/HELSI
JAGUAR(ZWAARD)/PK
JONCKHEERE.SPR/PK
MILES.ANTWERP
MILES.LEHAVRE
MMUK
AMT/PK
PERUZZO/PK
PETER.GILDING
ROYAL.VAN.NAMEN
SIPLEC/PK
WILKO
WOBBE.HAMBURG
WOBBE.ROTT
*/
//-----------------------Pioneer--------------
/*
varLibPioneer:
BARFOOTS
CARIBBEAN/PIO
EMPACADORA
GREENERY.INTERN
HERMANS.SUIKERM
LEHMANN/PIO
LEMBCKE
LEMBKE/TOTALEX
P.HANE/ROTTERDA
TOTAL.NORDIC
UNICORN.S.A....
*/
//-----------------------Premier--------------
/*
varLibPremier:
BAKKER/PR
CANAVES/ANT/PR
CANAVES/LEH/PR
CHINGFORD/PR
COBANA/HAM/PR
COBANA/ROT/PR
DOLE.FR/ANT/PR
DOLE.FR/LEH/PR
DOLE.NORDIC
DORLEANE
ELQUI/PR
EVERFRESHGROUP
FESA.UK.LIMITE/PR
FRUIT.IMPORT.VA
FRUTIS/ANT/PR
FRUTIS/LEH/PR
HELFER/PR
HYKA
INDIGO.ANT/PR
INDIGO.LEH/PR
INDIGO.ROT/PR
INTL.PRODUCE
JAGUAR/PR
JUNIORFRUIT/PR
LEHMANN/PR
MASSILIA
MMUK
NEWFRUIT
ORIGINFRUIT/PR
PORT.HAM/PR
PORT.ROT/PR
POUPART/PR
RAVENSWAAIJ
TFC
TOTAL.NOR.ROT/PR
TREMBLEY
VANDIJK/ANT/PR
VANDIJK/ROT/PR
W.JONCKHEERE
*/
//-----------------------RiverOne--------------
/*
varLibRiver:
AZ/RO
BEVA
IMEKS.GROUP
IMPALA/RIV
MEADE.POTATO
MILES/LEH/RO
MILES/ROTT/RO
MILES/ANT/RO
OLYMPIC/RV
*/
//-----------------------Scott----------------
/*
varLibScott:
ALFRED.PRICE/SC
BEVA/ANTWERP/SC
BEVA/LEHAVRE
*/
//-----------------------Seald----------------
/*
varLibSeald:
BAKKER/ROTTERDA
BOCCHI
DOLE.FR-ANTWERP
DOLE.FR-LEHAVRE
EVERFRESH/SE
EDEKA/HAMBURG
EDEKA/ROTT
FRUTTITAL
HELFER/SE
HISPA
J.O.SIMS
JPFRUITS/FELIXS
JUNIOR
KESKO.FRUIT....
KOSTECKI
LEHMANN/SE
MMG/SE
MARAKUJA
PULP/ANTWERP
PULP/ROTT
TOTAL
UNIVPL/HAMBURG
UV-ANTWERP/SE
UV-ROTTERDAM
UV/DFM-BREM
UV/DFM-ROTT
UV/KATOPE-ANT
UV/KATOPE-LEH
UV/KATOPE-ROTT
UV/POLAND-ANT
UV/POLAND-HAM
UV/POLAND-ROTT
*/[/code]
Sorry i should have a included the script code to begin with, but reluctant because it' a lot.
[code]//Stop Script Alt + Esc
OnEvent>KEY_DOWN,VK27,3,Quit
SRT>Quit
Exit>0
END>Quit
Let>IGNORESPACES=1
//Let>WW_TIMEOUT=5
Step_Delay=300
Let>lw=0.75
Let>SW=0.30
Let>comma=,
Let>InlandSC=905
CapsOn
LabelToVar>varShipper,comboList1
LabelToVar>varSLCode,comboList2
LabelToVar>varLoadingPort,comboList3
LabelToVar>varDischargePort,comboList4
LabelToVar>varVesselName,strVesselList
LabelToVar>varPlaceOfRec,comboList6
LabelToVar>varInlCode,comboList7
LabelToVar>varLibAmerina,cboListAmerina
LabelToVar>varLibBarnes,cboListBarnes
LabelToVar>varLibDlf,cboListDlf
LabelToVar>varLibDne,cboListDne
LabelToVar>varLibGolden,cboListGolden
LabelToVar>varLibGreene,cboListGreene
LabelToVar>varLibHeller,cboListHeller
LabelToVar>varLibLeroy,cboListLeroy
LabelToVar>varLibPackers,cboListPackers
LabelToVar>varLibPioneer,cboListPioneer
LabelToVar>varLibPremier,cboListPremier
LabelToVar>varLibRiver,cboListRiver
LabelToVar>varLibScott,cboListScott
LabelToVar>varLibSeald,cboListSeald
LabelToVar>varLibUnited,cboListUnited
LabelToVar>varVents,comboList
Dialog>BoLDialog
object BoLDialog: TForm
Left = 890
Top = 229
HelpContext = 5000
BorderIcons = [biSystemMenu]
Caption = 'Bill of Lading Info'
ClientHeight = 572
ClientWidth = 592
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = True
ShowHint = True
OnTaskBar = False
PixelsPerInch = 96
TextHeight = 13
object msLabel1: TLabel
Left = 15
Top = 7
Width = 70
Height = 13
Caption = 'Shipper Name:'
end
object msLabel2: TLabel
Left = 15
Top = 69
Width = 82
Height = 13
Caption = 'Booking Number:'
end
object msLabel3: TLabel
Left = 15
Top = 99
Width = 73
Height = 13
Caption = 'Bill of Lading #:'
end
object msLabel4: TLabel
Left = 15
Top = 126
Width = 53
Height = 13
Caption = 'Reference:'
end
object msLabel5: TLabel
Left = 15
Top = 159
Width = 64
Height = 13
Caption = 'Carrier Code :'
end
object msLabel6: TLabel
Left = 15
Top = 188
Width = 76
Height = 13
Caption = 'Departure Date:'
end
object msLabel7: TLabel
Left = 15
Top = 219
Width = 63
Height = 13
Caption = 'Loading Port:'
end
object msLabel8: TLabel
Left = 15
Top = 249
Width = 85
Height = 13
Caption = 'Port of Discharge:'
end
object msLabel9: TLabel
Left = 15
Top = 279
Width = 65
Height = 13
Caption = 'Vessel Name:'
end
object msLabel10: TLabel
Left = 15
Top = 310
Width = 58
Height = 13
Caption = 'Container #:'
end
object msLabel11: TLabel
Left = 15
Top = 338
Width = 64
Height = 13
Caption = 'Seal Number:'
end
object msLabel12: TLabel
Left = 15
Top = 369
Width = 42
Height = 13
Caption = 'Quantity:'
end
object msLabel13: TLabel
Left = 15
Top = 402
Width = 82
Height = 13
Caption = 'Service Contract:'
end
object msLabel14: TLabel
Left = 15
Top = 432
Width = 30
Height = 13
Caption = 'Temp:'
end
object msLabel15: TLabel
Left = 15
Top = 467
Width = 30
Height = 13
Caption = 'Vents:'
end
object msLabel16: TLabel
Left = 15
Top = 495
Width = 66
Height = 13
Caption = 'Total Cartons:'
end
object msLabel17: TLabel
Left = 303
Top = 7
Width = 80
Height = 13
Caption = 'Inland 1 Amount:'
end
object msLabel18: TLabel
Left = 303
Top = 37
Width = 85
Height = 13
Caption = 'Inland 1 Expense:'
end
object msLabel19: TLabel
Left = 303
Top = 67
Width = 106
Height = 13
Caption = 'Inland 1 Vendor Code:'
end
object msLabel20: TLabel
Left = 303
Top = 127
Width = 80
Height = 13
Caption = 'Inland 2 Amount:'
end
object msLabel21: TLabel
Left = 303
Top = 156
Width = 85
Height = 13
Caption = 'Inland 2 Expense:'
end
object msLabel22: TLabel
Left = 303
Top = 187
Width = 106
Height = 13
Caption = 'Inland 2 Vendor Code:'
end
object msLabel23: TLabel
Left = 304
Top = 247
Width = 80
Height = 13
Caption = 'Inland 3 Amount:'
end
object msLabel24: TLabel
Left = 304
Top = 278
Width = 85
Height = 13
Caption = 'Inland 3 Expense:'
end
object msLabel25: TLabel
Left = 304
Top = 306
Width = 106
Height = 13
Caption = 'Inland 3 Vendor Code:'
end
object msLabel26: TLabel
Left = 304
Top = 370
Width = 80
Height = 13
Caption = 'Inland 4 Amount:'
end
object msLabel27: TLabel
Left = 304
Top = 400
Width = 85
Height = 13
Caption = 'Inland 4 Expense:'
end
object msLabel28: TLabel
Left = 304
Top = 435
Width = 106
Height = 13
Caption = 'Inland 4 Vendor Code:'
end
object Label1: TLabel
Left = 16
Top = 40
Width = 44
Height = 13
Caption = 'Template'
end
object BkNumber: TEdit
Left = 113
Top = 65
Width = 141
Height = 21
TabOrder = 2
end
object BoLNumber: TEdit
Left = 113
Top = 96
Width = 141
Height = 21
TabOrder = 3
end
object ReferanceNum: TEdit
Left = 113
Top = 126
Width = 141
Height = 21
TabOrder = 4
end
object DepartureDate: TEdit
Left = 113
Top = 186
Width = 141
Height = 21
TabOrder = 6
end
object ContainerNum: TEdit
Left = 113
Top = 304
Width = 141
Height = 21
TabOrder = 10
end
object SealNum: TEdit
Left = 113
Top = 335
Width = 141
Height = 21
TabOrder = 11
end
object CartonQty: TEdit
Left = 113
Top = 365
Width = 141
Height = 21
TabOrder = 12
end
object Temperature: TEdit
Left = 113
Top = 429
Width = 141
Height = 21
TabOrder = 13
end
object Vent: TEdit
Left = 112
Top = 460
Width = 141
Height = 21
TabOrder = 14
end
object TotalCartons: TEdit
Left = 113
Top = 492
Width = 141
Height = 21
TabOrder = 15
end
object InlandAmt: TEdit
Left = 418
Top = 2
Width = 120
Height = 21
TabOrder = 16
end
object InlandExp: TEdit
Left = 418
Top = 33
Width = 120
Height = 21
TabOrder = 17
end
object InlandAmt2: TEdit
Left = 418
Top = 124
Width = 120
Height = 21
TabOrder = 19
end
object InlandExp2: TEdit
Left = 418
Top = 154
Width = 120
Height = 21
TabOrder = 20
end
object InlandAmt3: TEdit
Left = 418
Top = 243
Width = 120
Height = 21
TabOrder = 22
end
object InlandExp3: TEdit
Left = 418
Top = 272
Width = 120
Height = 21
TabOrder = 23
end
object InlandAmt4: TEdit
Left = 418
Top = 367
Width = 120
Height = 21
TabOrder = 25
end
object InlandExp4: TEdit
Left = 418
Top = 397
Width = 120
Height = 21
TabOrder = 26
end
object msButton1: tMSButton
Left = 309
Top = 510
Width = 75
Height = 30
Caption = 'Done'
ModalResult = 2
ParentShowHint = False
ShowHint = False
TabOrder = 28
DoBrowse = False
BrowseStyle = fbOpen
end
object msButton2: tMSButton
Left = 467
Top = 471
Width = 75
Height = 20
Caption = 'Update'
ModalResult = 1
ParentShowHint = False
ShowHint = False
TabOrder = 29
DoBrowse = False
BrowseStyle = fbOpen
end
object SrvContract: TEdit
Left = 113
Top = 399
Width = 141
Height = 21
TabOrder = 30
end
object LibraryList: tMSComboBox
Left = 112
Top = 35
Width = 145
Height = 21
TabOrder = 1
Text = ' '
end
object ShipperName: tMSComboBox
Left = 112
Top = 6
Width = 145
Height = 21
TabOrder = 0
end
object CarrierCode: tMSComboBox
Left = 112
Top = 155
Width = 146
Height = 21
TabOrder = 5
Text = ' '
end
object LoadPort: tMSComboBox
Left = 113
Top = 214
Width = 142
Height = 21
TabOrder = 7
Text = ' '
end
object DischargePort: tMSComboBox
Left = 113
Top = 244
Width = 141
Height = 21
TabOrder = 8
Text = ' '
end
object VesselName: tMSComboBox
Left = 112
Top = 275
Width = 141
Height = 21
TabOrder = 9
Text = ' '
Items.Strings = (
'c:\cp_macros\JohnW\Europe\eVessels.txt')
ListText = 'c:\cp_macros\JohnW\Europe\eVessels.txt'#13#10
end
object InlandVdrCode: tMSComboBox
Left = 417
Top = 66
Width = 123
Height = 21
TabOrder = 18
end
object InlandVdrCode2: tMSComboBox
Left = 417
Top = 184
Width = 123
Height = 21
TabOrder = 21
end
object InlandVdrCode3: tMSComboBox
Left = 418
Top = 303
Width = 123
Height = 21
TabOrder = 24
end
object InlandVdrCode4: tMSComboBox
Left = 417
Top = 432
Width = 122
Height = 21
TabOrder = 27
end
object MSButton3: tMSButton
Left = 308
Top = 470
Width = 75
Height = 30
Caption = 'Cover Letter'
TabOrder = 31
DoBrowse = False
BrowseStyle = fbOpen
end
end
EndDialog>BoLDialog
AddDialogHandler>BoLDialog,MSButton3,OnClick,subCallWord
AddDialogHandler>BoLDialog,CarrierCode,OnExit,GetContractNum
AddDialogHandler>BoLDialog,GrossWeight,OnExit,GetWeight
SetDialogProperty>BoLDialog,ShipperName,ListText,comboList1
SetDialogProperty>BoLDialog,CarrierCode,ListText,comboList2
SetDialogProperty>BolDialog,LoadPort,ListText,comboList3
SetDialogProperty>BolDialog,DischargePort,ListText,comboList4
ReadFile>c:\cp_macros\JohnW\Europe\eVessels.txt,strVesselList
SetDialogProperty>BolDialog,VesselName,ListText,strVesselList
SetDialogProperty>BolDialog,Vent,ListText,comboList
SetDialogProperty>BolDialog,PlaceOfRec,ListText,comboList6
SetDialogProperty>BolDialog,InlandVdrCode,ListText,comboList7
SetDialogProperty>BolDialog,InlandVdrCode2,ListText,comboList7
SetDialogProperty>BolDialog,InlandVdrCode3,ListText,comboList7
SetDialogProperty>BolDialog,InlandVdrCode4,ListText,comboList7
AddDialogHandler>BoLDialog,LoadPort,OnExit,subLoadPort
AddDialogHandler>BoLDialog,ShipperName,OnExit,subGetLibrary
AddDialogHandler>BoLDialog,DischargePort,OnExit,subUnLoadPort
AddDialogHandler>BoLDialog,TotalCartons,OnExit,subTotCarton
AddDialogHandler>BoLDialog,DepartureDate,OnExit,subUpdateBoL
SetDialogProperty>BolDialog,,Position,poDesigned
SetDialogProperty>BolDialog,,Left,400
SetDialogProperty>BolDialog,,Top,75
Show>BoLDialog,r
SRT>subGetLibrary
//-----------------------Amerina--------------
GetDialogProperty>BolDialog,ShipperName,Text,ShpName
IF>ShpName=AMERINA
SetDialogProperty>BolDialog,LibraryList,ListText,cboListAmerina
EndIf
//-----------------------Barnes----------------
GetDialogProperty>BolDialog,ShipperName,Text,ShpName
IF>ShpName=BARNES
SetDialogProperty>BolDialog,LibraryList,ListText,cboListBarnes
EndIf
//-----------------------DLF------------------
GetDialogProperty>BolDialog,ShipperName,Text,ShpName
IF>ShpName=DLF
SetDialogProperty>BolDialog,LibraryList,ListText,cboListDlf
EndIf
//-----------------------DNE------------------
GetDialogProperty>BolDialog,ShipperName,Text,ShpName
IF>ShpName=DNE
SetDialogProperty>BolDialog,LibraryList,ListText,cboListDne
EndIf
//-----------------------GOLDEN-----------------
GetDialogProperty>BolDialog,ShipperName,Text,ShpName
IF>ShpName=GOLDEN
SetDialogProperty>BolDialog,LibraryList,ListText,cboListGolden
EndIf
//-----------------------Greene---------------
GetDialogProperty>BolDialog,ShipperName,Text,ShpName
IF>ShpName=GREENE
SetDialogProperty>BolDialog,LibraryList,ListText,cboListGreene
EndIf
//-----------------------Heller---------------
GetDialogProperty>BolDialog,ShipperName,Text,ShpName
IF>ShpName=HELLER
SetDialogProperty>BolDialog,LibraryList,ListText,cboListHeller
EndIf
//-----------------------Leroy----------------
GetDialogProperty>BolDialog,ShipperName,Text,ShpName
IF>ShpName=LEROY
SetDialogProperty>BolDialog,LibraryList,ListText,cboListLeroy
EndIf
//-----------------------Packers------------------
GetDialogProperty>BolDialog,ShipperName,Text,ShpName
IF>ShpName=PACKERS
SetDialogProperty>BolDialog,LibraryList,ListText,cboListPackers
EndIf
//-----------------------Pioneer------------------
GetDialogProperty>BolDialog,ShipperName,Text,ShpName
IF>ShpName=PIONEER
SetDialogProperty>BolDialog,LibraryList,ListText,cboListPioneer
EndIf
//-----------------------Premier------------------
GetDialogProperty>BolDialog,ShipperName,Text,ShpName
IF>ShpName=PREMIER
SetDialogProperty>BolDialog,LibraryList,ListText,cboListPremier
EndIf
//-----------------------RiverOne------------------
GetDialogProperty>BolDialog,ShipperName,Text,ShpName
IF>ShpName=RIVER
SetDialogProperty>BolDialog,LibraryList,ListText,cboListRiver
EndIf
//-----------------------Scott------------------
GetDialogProperty>BolDialog,ShipperName,Text,ShpName
IF>ShpName=SCOTT
SetDialogProperty>BolDialog,LibraryList,ListText,cboListScott
EndIf
//-----------------------Seald------------------
GetDialogProperty>BolDialog,ShipperName,Text,ShpName
IF>ShpName=SEALD
SetDialogProperty>BolDialog,LibraryList,ListText,cboListSeald
EndIf
//-----------------------United------------------
GetDialogProperty>BolDialog,ShipperName,Text,ShpName
IF>ShpName=UNITED
SetDialogProperty>BolDialog,LibraryList,ListText,cboListUnited
EndIf
END>subGetLibrary
SRT>GetContractNum
Let>k=0
GetDialogProperty>BolDialog,ShipperName,Text,ShpName
GetDialogProperty>BolDialog,CarrierCode,Text,SLCode
Label>Start
Let>k=k+1
ReadLn>C:\CP_Macros\JohnW\Europe\eContract.txt,k,strLine
If>strLine=##EOF##,end
Separate>strLine,comma,eContract
If>{(%ShpName% = %eContract_1%) AND (%SLCode% = %eContract_2%)}
SetDialogProperty>BolDialog,SrvContract,Text,%eContract_3%
EndIf
Goto>Start
Label>end
END>GetContractNum
SRT>subUpdateBoL
GetDialogProperty>BolDialog,CarrierCode,Text,SLCode
GetDialogProperty>BolDialog,BkNumber,Text,BkNum
If>BkNum>WLK5
SetDialogProperty>BolDialog,BoLNumber,Text,BkNum
End>subUpdateBoL
Else
SetDialogProperty>BolDialog,BoLNumber,Text,%SLCode%%BkNum%
END>subUpdateBoL
EndIf
SRT>subLoadPort
GetDialogProperty>BolDialog,LoadPort,Text,LPort
If>LPort={"CHARLESTON"}
Let>varLoadPort=1601
EndIf
If>LPort={"JACKSONVILLE"}
Let>varLoadPort=1803
EndIf
If>LPort={"MIAMI"}
Let>varLoadPort=5201
EndIf
If>LPort={"SAVANNAH"}
Let>varLoadPort=1703
EndIf
If>LPort={"LOS ANGELES"}
Let>varLoadPort=2704
EndIf
END>subLoadPort
SRT>subUnLoadPort
GetDialogProperty>BolDialog,DischargePort,Text,DPort
// Get Port Number
If>DPort={"AARHUS"}
Let>varUnLoadPort=40906
EndIf
If>DPort={"ANTWERP"}
Let>varUnLoadPort=42305
EndIf
If>DPort={"BREMEN"}
Let>varUnLoadPort=42869
EndIf
If>DPort={"BREMERHAVEN"}
Let>varUnLoadPort=42870
EndIf
If>DPort={"COPENHAGEN"}
Let>varUnLoadPort=40948
EndIf
If>DPort={"DUBLIN"}
Let>varUnLoadPort=41911
EndIf
If>DPort={"FELIXSTOWE"}
Let>varUnLoadPort=41323
EndIf
If>DPort={"FLUSHING"}
Let>varUnLoadPort=42185
EndIf
If>DPort={"HAMBURG"}
Let>varUnLoadPort=42879
EndIf
If>DPort={"HELSINGBORG"}
Let>varUnLoadPort=40120
EndIf
If>DPort={"HELSINKI"}
Let>varUnLoadPort=40525
EndIf
If>DPort={"LE HAVRE"}
Let>varUnLoadPort=42737
EndIf
If>DPort={"LEGHORN"}
Let>varUnLoadPort=47537
EndIf
If>DPort={"OSLO"}
Let>varUnLoadPort=40377
EndIf
If>DPort={"ROTTERDAM"}
Let>varUnLoadPort=42157
EndIf
If>DPort={"SOUTHAMPTON"}
Let>varUnLoadPort=41374
EndIf
If>DPort={"THAMESPORT"}
Let>varUnLoadPort=41351
EndIf
If>DPort={"LONDON GATEWAY"}
Let>varUnLoadPort=41352
EndIf
END>subUnLoadPort
If>r=2
GetDialogProperty>BolDialog,ShipperName,Text,ShpName
GetDialogProperty>BolDialog,LibraryList,Text,LibList
GetDialogProperty>BolDialog,BkNumber,Text,BkNum
GetDialogProperty>BolDialog,BoLNumber,Text,BoLNum
GetDialogProperty>BolDialog,ReferanceNum,Text,RefNum
GetDialogProperty>BolDialog,CarrierCode,Text,SLCode
GetDialogProperty>BolDialog,DepartureDate,Text,DDate
GetDialogProperty>BolDialog,ArrivalDate,Text,ADate
GetDialogProperty>BolDialog,LoadPort,Text,LPort
GetDialogProperty>BolDialog,DischargePort,Text,DPort
GetDialogProperty>BolDialog,ContainerNum,Text,ContNum
GetDialogProperty>BolDialog,SealNum,Text,SNum
GetDialogProperty>BolDialog,CartonQty,Text,CtnQty
GetDialogProperty>BolDialog,ManifestCount,Text,ManCnt
GetDialogProperty>BolDialog,TotalCartons,Text,TotCartons
GetDialogProperty>BolDialog,SrvContract,Text,SrvContract
GetDialogProperty>BolDialog,Temperature,Text,Temp
GetDialogProperty>BolDialog,Vent,Text,Vents
GetDialogProperty>BolDialog,InlandAmt,Text,InlAmt
GetDialogProperty>BolDialog,InlandExp,Text,InlExp
GetDialogProperty>BolDialog,InlandVdrCode,Text,InlVdrCode
GetDialogProperty>BolDialog,InlandAmt1,Text,InlAmt1
GetDialogProperty>BolDialog,InlandExp1,Text,InlExp1
GetDialogProperty>BolDialog,InlandVdrCode1,Text,InlVdrCode1
GetDialogProperty>BolDialog,InlandAmt2,Text,InlAmt2
GetDialogProperty>BolDialog,InlandExp2,Text,InlExp2
GetDialogProperty>BolDialog,InlandVdrCode2,Text,InlVdrCode2
GetDialogProperty>BolDialog,InlandAmt3,Text,InlAmt3
GetDialogProperty>BolDialog,InlandExp3,Text,InlExp3
GetDialogProperty>BolDialog,InlandVdrCode3,Text,InlVdrCode3
GetDialogProperty>BolDialog,InlandAmt4,Text,InlAmt4
GetDialogProperty>BolDialog,InlandExp4,Text,InlExp4
GetDialogProperty>BolDialog,InlandVdrCode4,Text,InlVdrCode4
EndIf
SRT>subTotCarton
If>ShpName=DNE
GetDialogProperty>BolDialog,VesselName,Text,vName
SetDialogObjectFocus>BolDialog,MSButton3
Else
GetDialogProperty>BolDialog,VesselName,Text,vName
SetDialogObjectFocus>BolDialog,InlandAmt
EndIf
END>subTotCarton
SRT>subCallWord
Include>C:\CP_Macros\JohnW\Masters\Word.scp
END>subCallWord
//Wait>9000
//Include>C:\CP_Macros\GSC\Europe\2_DialogAction.scp
//Include>C:\CP_Macros\JohnW\Europe\2_DialogAction.scp
//--------------------------Shipper ComboBox Lists----------------------
/*
varShipper:
AMERINA
BARNES
DLF
DNE
DUDA
GREENE
GOLDEN
HELLER
LEROY
PACKERS
PIONEER
PREMIER
RIVER
SCOTT
SEALD
UNITED
*/
//--------------------------ShipLine ComboBox Lists---------------------
/*
varSLCode:
APLU
CMDU
COSC
EGLV
HJSC
HLCU
MAEU
MOLU
NYK
OOLU
HAMB
HDMU
*/
//--------------------------Loading Port ComboBox Lists-----------------
/*
varLoadingPort:
CHARLESTON
JACKSONVILLE
MIAMI
SAVANNAH
LOS ANGELES
*/
//--------------------------Discharge Port ComboBox Lists---------------
/*
varDischargePort:
AARHUS
ANTWERP
BREMEN
BREMERHAVEN
COPENHAGEN
DUBLIN
FELIXSTOWE
FLUSHING
HAMBURG
HELSINGBORG
HELSINKI
LE HAVRE
LEGHORN
LONDON GATEWAY
OSLO
ROTTERDAM
SOUTHAMPTON
THAMESPORT
*/
//--------------------------Vents ComboBox Lists------------------------
/*
varVents:
25
50
CLOSED
*/
//--------------------------Inland Vendor Codes-------------------------
/*
varInlCode:
CITRUS
HOOV
SOU
*/
//--------------------------Library ComboBox Lists----------------------
//
//-----------------------Amerina--------------
/*
varLibAmerina:
VAN.DER.LANS/AM
HISPAFRU
LEHMANN/AM
TOTAL.NORDIC
*/
//-----------------------Barnes---------------
/*
varLibBarnes:
MINAMI/BA
INGMAR
VAN.ASSHE
*/
//-----------------------DLF------------------
/*
varLibDlf:
ANACO&GREEVE
AZ/ANT/DL
AZ/LEH/DL
AZ/ROT/DL
BALLESTER
DOLE/ANTWERP
ELQUI/DL
FRUKAR
//HELFER.FRANCE/DL
GECKO/DL
HELFER/ANTWERP
IMPALA/DL
LEO.PELS.ANTWER
LEO.PELS.ROTTER
MILES/ANT/DL
MILES/ROTT/DL
MILES/LEH/DL
MILES
NOSIBE
ORIGIN
PULP
RIMA
SEVEN.ROTTERDAM
STAAY
VAN.ASSCHE
VAN.DER.LANS/DL
VASCO/BREMERHAV
XL.FRUIT
*/
//-----------------------DNE------------------
/*
varLibDne:
ALFRED.PRICE/DN
CAPESPAN.CONTIN
CAPESPAN.ITALY
CARIBBEAN/DN
CHINGFORD/DN
DISTRIBAN/ROTT
FRONTERO
FRUCHTHOF/DN
HELFER/DN
HM
INEX.PARTNERS..
JONCKHEERE
J.O.SIMS,LTD.
JUNIOR
LEMBCKE/COPEN
MACK.INTL
MMG/DN
MUELLER-MAERSK
T.NORDIC/HELS
TERRAGAIA
TOTAL
VANDIJK
*/
//-----------------------DUDA-----------------
/*
varLibDuda:
EMC
EVERFRESH/DU
LEHMANN/CITRUS
LEHMANN/VEG
SEAFRIGO/CASINO
VANDERLANS
*/
//-----------------------GOLDEN----------------
/*
varLibGolden:
AZ/ANT/GR
AZ/LEH/GR
AZ/ROT/GR
BEVA/GR
*/
//-----------------------Greene---------------
/*
varLibGreene:
AARTSENFRUIT.BV
BEVA/ANTWERP
COMPAGNIE
CHINGFORD/GR
DOLE.FR/ANTW
DOLE.FR/LEH
DOLE.GERM/ROTT
HISPAFRUITS.BV
INEX/GR
MAGELLAN/ANT
MAGELLAN/LEH
MAGELLAN/ROTT
ORIGIN.ROTTERD
ORIGINE.ANTWERP
ORIGINE.LEHAVRE
POUPART/GR
SIPLEC/GR
TARGBAN/BREMERH
TARGBAN/ROTT
UNIFRUIT
VASCO
VAN.DOMMELE
*/
//-----------------------Heller---------------
/*
varLibHeller:
FRONTERO.AB.
*/
//-----------------------Leroy----------------
/*
varLibLeroy:
BAKKER&LEENH/LE
BEVA/LE
COOL.FRESH/LE
DIRECTFRUIT/LE
INEX/LE
IPL
JAGUAR/LE
NARDONE/ANTWERP
ORIGIN/ANTWERP/LE
ORIGIN/LEHAVRE/LE
PULP/LE
SIPLEC/LE
SEDIFEL/ANTWERP
SEDIFEL/LEHAVRE
SOCOMO
*/
//-----------------------Packers--------------
/*
varLibPackers:
BAMA.GRUPPEN
CAPEFRANCEROTT
CHINGFORD/PK
COOP.DEN/AARHUS
IMPALA/PK
INEX.PART/HELSI
JAGUAR(ZWAARD)/PK
JONCKHEERE.SPR/PK
MILES.ANTWERP
MILES.LEHAVRE
MMUK
AMT/PK
PERUZZO/PK
PETER.GILDING
ROYAL.VAN.NAMEN
SIPLEC/PK
WILKO
WOBBE.HAMBURG
WOBBE.ROTT
*/
//-----------------------Pioneer--------------
/*
varLibPioneer:
BARFOOTS
CARIBBEAN/PIO
EMPACADORA
GREENERY.INTERN
HERMANS.SUIKERM
LEHMANN/PIO
LEMBCKE
LEMBKE/TOTALEX
P.HANE/ROTTERDA
TOTAL.NORDIC
UNICORN.S.A....
*/
//-----------------------Premier--------------
/*
varLibPremier:
BAKKER/PR
CANAVES/ANT/PR
CANAVES/LEH/PR
CHINGFORD/PR
COBANA/HAM/PR
COBANA/ROT/PR
DOLE.FR/ANT/PR
DOLE.FR/LEH/PR
DOLE.NORDIC
DORLEANE
ELQUI/PR
EVERFRESHGROUP
FESA.UK.LIMITE/PR
FRUIT.IMPORT.VA
FRUTIS/ANT/PR
FRUTIS/LEH/PR
HELFER/PR
HYKA
INDIGO.ANT/PR
INDIGO.LEH/PR
INDIGO.ROT/PR
INTL.PRODUCE
JAGUAR/PR
JUNIORFRUIT/PR
LEHMANN/PR
MASSILIA
MMUK
NEWFRUIT
ORIGINFRUIT/PR
PORT.HAM/PR
PORT.ROT/PR
POUPART/PR
RAVENSWAAIJ
TFC
TOTAL.NOR.ROT/PR
TREMBLEY
VANDIJK/ANT/PR
VANDIJK/ROT/PR
W.JONCKHEERE
*/
//-----------------------RiverOne--------------
/*
varLibRiver:
AZ/RO
BEVA
IMEKS.GROUP
IMPALA/RIV
MEADE.POTATO
MILES/LEH/RO
MILES/ROTT/RO
MILES/ANT/RO
OLYMPIC/RV
*/
//-----------------------Scott----------------
/*
varLibScott:
ALFRED.PRICE/SC
BEVA/ANTWERP/SC
BEVA/LEHAVRE
*/
//-----------------------Seald----------------
/*
varLibSeald:
BAKKER/ROTTERDA
BOCCHI
DOLE.FR-ANTWERP
DOLE.FR-LEHAVRE
EVERFRESH/SE
EDEKA/HAMBURG
EDEKA/ROTT
FRUTTITAL
HELFER/SE
HISPA
J.O.SIMS
JPFRUITS/FELIXS
JUNIOR
KESKO.FRUIT....
KOSTECKI
LEHMANN/SE
MMG/SE
MARAKUJA
PULP/ANTWERP
PULP/ROTT
TOTAL
UNIVPL/HAMBURG
UV-ANTWERP/SE
UV-ROTTERDAM
UV/DFM-BREM
UV/DFM-ROTT
UV/KATOPE-ANT
UV/KATOPE-LEH
UV/KATOPE-ROTT
UV/POLAND-ANT
UV/POLAND-HAM
UV/POLAND-ROTT
*/[/code]
Thank you in advance for all your help
Gil
Gil
-
gchichester
- Pro Scripter
- Posts: 132
- Joined: Mon Dec 22, 2008 4:56 pm
- Location: St Augustine FL
Re: Issue with running Script from a shortcut
Now I don't understand why inserting my in a code block is not working correctly
Thank you in advance for all your help
Gil
Gil
Re: Issue with running Script from a shortcut
Try using a different modifier key rather than Alt (3) in the OnEvent line. I like using WinKey (8).But If I run it from within it's folder code works but I have to press Alt Esc twice
OnEvent>KEY_DOWN,VK27,8,Quit
The problem is that the first time you press Alt + Esc the dialog is focused and steals the "Alt" key press. You can prove this by running the program and picking on the desktop before pressing Alt + Esc and the program will stop with one press rather than two.
Re: Issue with running Script from a shortcut
Hi JRL,JRL wrote:The problem is that the first time you press Alt + Esc the dialog is focused and steals the "Alt" key press. You can prove this by running the program and picking on the desktop before pressing Alt + Esc and the program will stop with one press rather than two.
Stealing focus is likely the cause of the OnEvent>KEY_DOWN failure.
Thanks for your thorough help.
