Help with GetDialogProperty

[gchichester]

Please help me see the errors of my ways!
After adding a new sub subDrums, none of the If>r=2 GetDialogProperty are working or my script is skipping the If>r=2 altogether and I just can't see where.
Sorry but I left the remnants of my testing in the script.

Thanks for any and all suggestions

Gil Chichester

[code]
Let>IGNORESPACES=1
Step_Delay=300
Let>vWait=0.45
Let>SW=0.15
Let>InlandSC=905
Let>comma=,
Let>CtnValue=16

CapsOn
LabelToVar>varShipper,comboList1
LabelToVar>varSLCode,comboList2
LabelToVar>varLoadingPort,comboList3
LabelToVar>varDischargePort,comboList4
LabelToVar>varVesselName,comboList5
LabelToVar>VarPlaceOfRec,comboList6
LabelToVar>varVents,comboList

Dialog>BoLDialog
object BoLDialog: TForm
Left = 251
Top = 97
HelpContext = 5000
BorderIcons = [biSystemMenu]
Caption = 'Asia Bill of Lading Info'
ClientHeight = 405
ClientWidth = 632
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Times New Roman'
Font.Style = []
OldCreateOrder = True
Position = poScreenCenter
ShowHint = True
OnTaskBar = False
PixelsPerInch = 96
TextHeight = 15
object msLabel1: TLabel
Left = 17
Top = 51
Width = 77
Height = 15
Caption = 'Shipper Name:'
end
object msLabel2: TLabel
Left = 17
Top = 18
Width = 93
Height = 15
Caption = 'Booking Number:'
end
object msLabel3: TLabel
Left = 17
Top = 84
Width = 84
Height = 15
Caption = 'Bill of Lading #:'
end
object msLabel4: TLabel
Left = 17
Top = 117
Width = 56
Height = 15
Caption = 'Reference:'
end
object msLabel5: TLabel
Left = 17
Top = 153
Width = 72
Height = 15
Caption = 'Carrier Code :'
end
object msLabel6: TLabel
Left = 17
Top = 186
Width = 84
Height = 15
Caption = 'Departure Date:'
end
object msLabel7: TLabel
Left = 17
Top = 285
Width = 72
Height = 15
Caption = 'Loading Port:'
end
object msLabel8: TLabel
Left = 17
Top = 318
Width = 96
Height = 15
Caption = 'Port of Discharge:'
end
object msLabel9: TLabel
Left = 301
Top = 18
Width = 71
Height = 15
Caption = 'Vessel Name:'
end
object msLabel10: TLabel
Left = 302
Top = 51
Width = 65
Height = 15
Caption = 'Container #:'
end
object msLabel11: TLabel
Left = 302
Top = 84
Width = 70
Height = 15
Caption = 'Seal Number:'
end
object msLabel12: TLabel
Left = 302
Top = 117
Width = 143
Height = 15
Caption = 'Number of Cartons/Drums:'
end
object msLabel13: TLabel
Left = 302
Top = 319
Width = 91
Height = 15
Caption = 'Service Contract:'
end
object msLabel14: TLabel
Left = 302
Top = 252
Width = 33
Height = 15
Caption = 'Temp:'
end
object msLabel15: TLabel
Left = 302
Top = 285
Width = 34
Height = 15
Caption = 'Vents:'
end
object msLabel16: TLabel
Left = 302
Top = 153
Width = 115
Height = 15
Caption = 'Total Cartons/Drums:'
end
object PlaceRec: TLabel
Left = 17
Top = 252
Width = 88
Height = 15
Caption = 'Place of Receipt:'
end
object Label1: TLabel
Left = 302
Top = 186
Width = 98
Height = 15
Caption = 'Container Weight:'
end
object Label2: TLabel
Left = 302
Top = 221
Width = 77
Height = 15
Caption = 'Gross Weight:'
end
object Label3: TLabel
Left = 18
Top = 219
Width = 68
Height = 15
Caption = 'Arrival Date:'
end
object Label4: TLabel
Left = 310
Top = 341
Width = 64
Height = 15
Caption = 'Total Liters:'
end
object BkNumber: TEdit
Left = 126
Top = 14
Width = 147
Height = 23
TabOrder = 0
end
object BoLNumber: TEdit
Left = 126
Top = 80
Width = 147
Height = 23
TabOrder = 2
end
object ReferanceNum: TEdit
Left = 126
Top = 113
Width = 147
Height = 23
TabOrder = 3
end
object DepartureDate: TEdit
Left = 126
Top = 182
Width = 147
Height = 23
TabOrder = 5
end
object ContainerNum: TEdit
Left = 450
Top = 47
Width = 175
Height = 23
TabOrder = 11
end
object SealNum: TEdit
Left = 450
Top = 80
Width = 175
Height = 23
TabOrder = 12
end
object CartonQty: TEdit
Left = 450
Top = 113
Width = 175
Height = 23
TabOrder = 13
end
object TotalCartons: TEdit
Left = 450
Top = 149
Width = 175
Height = 23
TabOrder = 15
end
object Done: tMSButton
Left = 500
Top = 349
Width = 75
Height = 33
Caption = 'Done'
DoubleBuffered = True
ModalResult = 2
ParentDoubleBuffered = False
ParentShowHint = False
ShowHint = False
TabOrder = 21
DoBrowse = False
BrowseStyle = fbOpen
end
object ShipperName: tMSComboBox
Left = 126
Top = 47
Width = 147
Height = 23
ItemHeight = 15
TabOrder = 1
end
object LoadPort: tMSComboBox
Left = 126
Top = 281
Width = 147
Height = 23
ItemHeight = 15
TabOrder = 8
end
object DischargePort: tMSComboBox
Left = 126
Top = 314
Width = 147
Height = 23
ItemHeight = 15
TabOrder = 9
end
object Vent: tMSComboBox
Left = 450
Top = 281
Width = 175
Height = 23
ItemHeight = 15
TabOrder = 19
end
object VesselName: tMSComboBox
Left = 449
Top = 14
Width = 175
Height = 23
ItemHeight = 15
TabOrder = 10
end
object CarrierCode: tMSComboBox
Left = 126
Top = 149
Width = 147
Height = 23
ItemHeight = 15
TabOrder = 4
end
object Temperature: TEdit
Left = 450
Top = 248
Width = 175
Height = 23
TabOrder = 18
end
object SrvContract: TEdit
Left = 450
Top = 314
Width = 175
Height = 23
TabStop = False
TabOrder = 20
end
object PlaceOfRec: tMSComboBox
Left = 126
Top = 248
Width = 147
Height = 23
ItemHeight = 15
TabOrder = 7
Text = ' '
end
object GrossWeight: TEdit
Left = 450
Top = 215
Width = 175
Height = 23
TabOrder = 17
end
object ContainerWgt: TEdit
Left = 450
Top = 182
Width = 175
Height = 23
TabOrder = 16
end
object ArrivalDate: TEdit
Left = 126
Top = 215
Width = 147
Height = 23
TabOrder = 6
end
object CheckBox1: TCheckBox
Left = 303
Top = 134
Width = 52
Height = 17
TabStop = False
BiDiMode = bdRightToLeft
Caption = 'Drums'
ParentBiDiMode = False
TabOrder = 14
end
object TotLiters: TEdit
Left = 302
Top = 356
Width = 82
Height = 23
TabStop = False
TabOrder = 30
Text = ' '
end
end
EndDialog>BoLDialog

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
SetDialogProperty>BolDialog,VesselName,ListText,comboList5
SetDialogProperty>BolDialog,Vent,ListText,comboList
SetDialogProperty>BolDialog,PlaceOfRec,ListText,comboList6
AddDialogHandler>BoLDialog,LoadPort,OnExit,subLoadPort
AddDialogHandler>BoLDialog,DischargePort,OnExit,subUnLoadPort
AddDialogHandler>BoLDialog,CheckBox1,OnClick,SubDrums
AddDialogHandler>BolDialog,TotalCartons,OnExit,GetShpName
Show>BoLDialog,r

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\Asia\aContract.txt,k,strLine
If>strLine=##EOF##,end
Separate>strLine,comma,aContract
If>{(%ShpName% = %aContract_1%) AND (%SLCode% = %aContract_2%)}
SetDialogProperty>BolDialog,SrvContract,Text,%aContract_3%
EndIf
Goto>Start
Label>end
END>GetContractNum

If>r=2
GetDialogProperty>BolDialog,ShipperName,Text,ShpName
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,PlaceOfRec,Text,PReceipt
GetDialogProperty>BolDialog,DischargePort,Text,DPort
GetDialogProperty>BolDialog,VesselName,Text,VName
GetDialogProperty>BolDialog,ContainerNum,Text,ContNum
GetDialogProperty>BolDialog,SealNum,Text,SNum
GetDialogProperty>BolDialog,CartonQty,Text,CtnQty
GetDialogProperty>BolDialog,ManifestCount,Text,ManCnt
GetDialogProperty>BolDialog,TotalCartons,Text,TotCtns
GetDialogProperty>BolDialog,ContainerWgt,Text,ContWgt
GetDialogProperty>BolDialog,GrossWeight,Text,GrossWgt
GetDialogProperty>BolDialog,SrvContract,Text,SrvContract
GetDialogProperty>BolDialog,Temperature,Text,Temp
GetDialogProperty>BolDialog,Vent,Text,Vents
EndIf

SRT>subLoadPort
GetDialogProperty>BolDialog,LoadPort,Text,LPort

If>LPort={"CHARLESTON, SC"}
Let>varLoadPort=1601
EndIf

If>LPort={"JACKSONVILLE, FL"}
Let>varLoadPort=1803
EndIf

If>LPort={"MIAMI, FL"}
Let>varLoadPort=5201
EndIf

If>LPort={"SAVANNAH, GA"}
Let>varLoadPort=1703
EndIf

If>LPort={"LOS ANGELES, CA"}
Let>varLoadPort=2704
EndIf

//Wait>2
//Message>%LPort%
//Wait>2
//Message>%varLoadPort%
END>subLoadPort

SRT>subUnLoadPort

GetDialogProperty>BolDialog,DischargePort,Text,DPort

If>DPort={"BANGKOK"}
Let>varUnLoadPort=54901
EndIf

If>DPort={"BUSAN"}
Let>varUnLoadPort=58023
EndIf

If>DPort={"HAKATA"}
Let>varUnLoadPort=58825
EndIf

If>DPort={"HONG KONG"}
Let>varUnLoadPort=58201
EndIf

If>DPort={"ISHIKARI"}
Let>varUnLoadPort=58800
EndIf

If>DPort={"JEBEL"}
Let>varUnLoadPort=52051
EndIf

If>DPort={"JEDDAH"}
Let>varUnLoadPort=51721
EndIf

If>DPort={"KAOHSIUNG"}
Let>varUnLoadPort=58309
EndIf

If>DPort={"KAWASAKI"}
Let>varUnLoadPort=58838
EndIf

If>DPort={"KEELUNG"}
Let>varUnLoadPort=58301
EndIf

If>DPort={"KOBE"}
Let>varUnLoadPort=58840
EndIf

If>DPort={"MANILA"}
Let>varUnLoadPort=56549
EndIf

If>DPort={"NAGOYA"}
Let>varUnLoadPort=58857
EndIf

If>DPort={"OSAKA"}
Let>varUnLoadPort=58866
EndIf

If>DPort={"PORT KELANG"}
Let>varUnLoadPort=55751
EndIf

If>DPort={"SHANGHAI"}
Let>varUnLoadPort=57035
EndIf

If>DPort={"SHARJAH"}
Let>varUnLoadPort=52070
EndIf

If>DPort={"SINGAPORE"}
Let>varUnLoadPort=55976
EndIf

If>DPort={"TAICHUNG"}
Let>varUnLoadPort=58303
EndIf

If>DPort={"TOYAMA"}
Let>varUnLoadPort=58810
EndIf

If>DPort={"TOKYO"}
Let>varUnLoadPort=58886
EndIf

If>DPort={"TOMAKOMAI"}
Let>varUnLoadPort=58811
EndIf

If>DPort={"XINGANG"}
Let>varUnLoadPort=57017
EndIf

If>DPort={"YOKOHAMA"}
Let>varUnLoadPort=58895
EndIf

//Wait>2
//Message>%DPort%
//Wait>2
//Message>%varUnLoadPort%

END>subUnLoadPort

SRT>GetShpName
GetDialogProperty>BolDialog,ShipperName,Text,ShpName
//MDL>%ShpName%
GoSub>IfShpNameLD
End

SRT>IfShpNameLD
If>ShpName=LDC
SetDialogProperty>BolDialog,CheckBox1,Checked,True
EndIf
END>IfShipperLD

SRT>SubDrums
GetDialogProperty>BolDialog,CheckBox1,Checked,CB1Res
GetDialogProperty>BolDialog,TotalCartons,Text,TotCtns
GetDialogProperty>BolDialog,ContainerWgt,Text,ContWgt
GetDialogProperty>BolDialog,GrossWeight,Text,GrossWgt
GetDialogProperty>BolDialog,CartonQty,Text,CtnQty
If>%CB1Res%=True
SetDialogProperty>BolDialog,Vent,Text,Closed
SetDialogProperty>BolDialog,Temperature,Text,-5 DEG F(-20.6 DEG C)
Let>Liters={(%TotCtns%) * (1560)}
Let>SchdFRZ=2009110060
Let>LiterWgt=277.148
Let>ConDrumWgt={(%LiterWgt%) * (%CtnQty%)}
Let>ConWgt={Round(%ConDrumWgt%)}
Let>DrumWgt={(%TotCtns%) * (%LiterWgt%)}
Let>TotDrumWgt={Round(%DrumWgt%)}
SetDialogProperty>BolDialog,ContainerWgt,Text,%ConWgt%
SetDialogProperty>BolDialog,GrossWeight,Text,%TotDrumWgt%
SetDialogProperty>BolDialog,TotLiters,Text,%Liters%
SetDialogObjectFocus>BolDialog,Done
//MDL> Total Liters = %Liters%, %TotDrumWgt%
//MDL>%BkNum%,%BoLNum%,%BoLNum%
EndIf
END>SubDrums

SRT>GetWeight
GetDialogProperty>BolDialog,TotalCartons,Text,TotCtns
GetDialogProperty>BolDialog,GrossWeight,Text,GrossWgt
Let>NetWgt = {(%GrossWgt%)-(%TotCtns% * 2)}
Let>NetKgs=%NetWgt%
Let>Units={(%NetKgs%) / (2.204623)}
Let>USDValue={(%TotCtns%) * (%CtnValue%)}
Let>Qunits={round(%Units%)}
//SetDialogProperty>BolDialog,ContainerWgt,Text,%ContWgt%
//GetDialogProperty>BolDialog,ContainerWgt,Text,ContWgt
//Message>%ContWgt%

//MDL>%NetWgt%
//MDL>%NetKgs%
//MDL>%USDValue%
//MDL>%Units%
//MDL>%QUnits%

END>GetWeight

//Include>C:\CP_Macros\Asia\2_DialogAction.scp
//Include>C:\Users\GSC\Documents\Asia\2_DialogAction.scp
//--------------------------Shipper ComboBox Lists-----------------------

/*
varShipper:
CELSUS
DIVE
DLF
DNE
DOLE
GOLDEN
GOODFELLOWS
GREENE
HARBOR
LEROY
LDC
MBK
MMUSA
NISHIMOTO
NOBLE
NONICA
PACKERS
PEACE
PREMIER
RIVER
S & P
SCOTT
SEALD
UNITED
*/

//--------------------------ShipLine ComboBox Lists-----------------------
/*
varSLCode:
APLU
CMDU
COSC
EGVL
HJSC
HLCU
MAEU
MOLU
NYK
OOLU
HAMB
HDMU
*/

//--------------------------Loading Port ComboBox Lists-----------------------
/*
varLoadingPort:
CHARLESTON, SC
JACKSONVILLE, FL
MIAMI, FL
SAVANNAH, GA
LOS ANGELES, CA
*/

//--------------------------Discharge Port ComboBox Lists-----------------------
/*
varDischargePort:
BANGKOK
BUSAN
HAKATA
HONG KONG
ISHIKARI
JEBEL
JEDDAH
KAOHSIUNG
KEELUNG
KOBE
MANILA
NAGOYA
OSAKA
PORT KELANG
SHANGHAI
SHARJAH
SINGAPORE
TOKYO
TOMAKOMAI
XINGANG
YOKOHAMA
*/

//--------------------------Vents ComboBox Lists-----------------------
/*
varVents:
25
50
CLOSED
*/

//--------------------------Place of Rec ComboBox Lists-----------------------
/*
VarPlaceOfRec:
FELLSMERE, FL
FORT PIERCE, FL
INDIANTOWN, FL
LAKE HAMILTON, FL
VERO BEACH, FL
*/

//--------------------------Vessel ComboBox Lists-----------------------
/*
varVesselName:
ALTAMIRA EXPRESS
ANTWERPEN EXPRESS
APL ARABIA
APL AUSTRALIA
APL BELGIUM
APL BRAZIL
APL EARNEST
APL EGYPT
APL EXPERIENCE
APL GARNET
APL GERMANY
APL JADE
APL KOREA
APL MALAYSIA
APL NEW YORK
APL PHILIPPINES
APL QATAR
APL SARDONYX
APL SINGAPORE
APL SPINEL
APL SWEDEN
APL TURQUOISE
APL UNITY
APL VIETNAM
APL VIRGINIA
ARIAKE
BAY BRIDGE
BELLAVIA
BONN EXPRESS
BOX VOYAGER
BROOKLYN BRIDGE
CAP STEPHENS
CHARLESTON EXPRESS
CHISWICK BRIDGE
CONTI SINGA
COOPER RIVER
COPENHAGEN EXPRESS
COSCO MELBOURNE
COSCO PANAMA
DIRCH MAERSK
DRESDEN EXPRESS
DUBLIN EXPRESS
DUESSELDORF EXPRESS
ESSEN EXPRESS
EVER DAINTY
EVER DECENT
EVER DELIGHT
EVER DELUXE
EVER DEVELOP
EVER DEVOTE
EVER DIADEM
EVER DIAMOND
EVER DIVINE
EVER DYNAMIC
EVER RACER
EVER RADIANT
EVER REACH
EVER REFINE
EVER RESPECT
EVER RESULT
EVER REWARD
GLASGOW EXPRESS
GOLDEN GATE BRIDGE
GOTHENBURG EXPRESS
GULF BRIDGE
H. GARNET
H. GLORY
HANJIN ATLANTA
HANJIN CHITTAGONG
HANJIN COLOMBO
HANJIN DURBAN
HANJIN ELIZABETH
HANJIN HAIPHONG
HANJIN IRENE
HANJIN KAOHSIUNG
HANJIN LOS ANGELES
HANJIN MALTA
HANJIN MARSEILLES
HANJIN MONACO
HANJIN NEWPORT
HANJIN NORFOLK
HANJIN OSAKA
HANJIN PHILADELPHIA
HANJIN PORTLAND
HANJIN PRAHA
HANJIN SAN FRANCISCO
HANJIN SHANGHAI
HANJIN VALENCIA
HANJIN WILMINGTON
HEIDELBERG EXPRESS
HERO
HOECHST EXPRESS
HYUNDAI GARNET
HYUNDAI GLORY
HYUNDAI GOODWILL
HYUNDAI INTEGRAL
HYUNDAI VOYAGER
IRENES RELIANCE
ITAL FASTOSA
ITAL ORDINE
ITAL ORIENTE
KATSURAGI
KEIL EXPRESS
KOBE EXPRESS
LEVERKUSEN EXPRESS
LIONS GATE BRIDGE
LIVERPOOL EXPRESS
LIVORNO EXPRESS
LONDON EXPRESS
LUDWIGSHAFEN EXPRESS
MAERSK ALTAIR
MAERSK DALLAS
MAERSK DAMIETTA
MAERSK DANBURY
MAERSK DARMSTADT
MAERSK DARTMOUTH
MAERSK DENVER
MAERSK DHAHRAN
MAERSK DHAKA
MAERSK DIEPPE
MAERSK DOLORES
MAERSK DONEGAL
MAERSK DRURY
MAERSK DUISBURG
MAERSK DURHAM
MAERSK GIRONDE
MAERSK MESSOLOGI
MAERSK MYTILINI
MAGLEBY MAERSK
MAJESTIC MAERSK
MARIE MAERSK
MOL ADVANTAGE
MOL DYNASTY
MOL EFFICIENCY
MOL ENCORE
MOL ENDEAVOR
MOL ENDOWMENT
MOL ENDURANCE
MOL ENTERPRISE
MOL EXCELLENCE
MOL EXPLORER
MOL EXPRESS
MOL INNOVATION
MOL MALAYSIA
MOL PROMISE
MSC ILONA
MSC MELISSA
MSC OLGA
MSC SOCOTRA
MSC TOKYO
NEW ORLEANS EXPRESS
NEW YORK EXPRESS
NYK CONSTELLATION
NYK DAEDALUS
NYK DELPHINUS
NYK DEMETER
NYK DENEB
NYK DIANA
NYK KAI
NYK METEOR
NYK NEBULA
NYK REMUS
OAKLAND EXPRESS
OCTAVIA
OOCL BUSAN
OOCL CALIFORNIA
OOCL CHICAGO
OOCL GUANGZHOU
OOCL HONG KONG
OOCL KOREA
OOCL MALAYSIA
OOCL NAGOYA
OOCL NORFOLK
OOCL OAKLAND
OOCL SAN FRANCISCO
OOCL SINGAPORE
OOCL THAILAND
PARIS EXPRESS
PHILADELPHIA EXPRESS
ROTTERDAM EXPRESS
SEA LAND RACER
SINGAPORE EXPRESS
SL CHAMPION
SL EAGLE
SL MERCURY
SL METEOR
ST. LOUIS EXPRESS
STUTTGART EXPRESS
SUEZ CANAL BRIDGE
SUN RIGHT
SUN ROAD
SUN ROUND
TOKYO EXPRESS
VALENCIA BRIDGE
VANCOUVER BRIDGE
VECCHIO BRIDGE
VENICE BRIDGE
VERRAZANO BRIDGE
VICOTRIA BRIDGE
VILLIE D'AQUARIUS
VINCENT THOMAS
VIRGINIA BRIDGE
WASHINGTON EXPRESS
YM ANPING
YM EMINENCE
YM HAMBURG
YM HIROSHIMA
YM LOS ANGELES
YM MILANO
YM NEW JERSEY
YM NINGBO
YM SEATTLE
YM SHANGHAI
YM SINGAPORE
YM TAICHUNG
YM ZENITH
YORKTOWN EXPRESS
ZIM IBERIA
ZIM LUANDA
ZIM MOSKVA
ZIM QINGDAO
ZIM RIO GRANDE
*/
//GetDialogProperty>BolDialog,BkNumber,Text,BkNum
//GetDialogProperty>BolDialog,BoLNumber,Text,BoLNum
//GetDialogProperty>BolDialog,ReferanceNum,Text,BoLNum
MDL>%BkNum%,%BoLNum%,%RefNum%
Wait>9000
Include>C:\CP_Macros\Asia\2_DialogAction.scp
//Include>C:\Users\GSC\Documents\Asia\2_DialogAction.scp
[/code]

[/code]

[gchichester]

Disregard this post I found the problem - Thanks anyway