Here's the generated code for the dropdown:
I do not see anything wrong:
Value::DOG:BreedCode Routine
p_web._DivHeader('DogForm_' & p_web._nocolon('DOG:BreedCode') & '_value','adiv')
loc:extra = ''
! --- DROPLIST ---
loc:fieldclass = 'FormEntry'
If lower(loc:invalid) = lower('DOG:BreedCode')
loc:fieldclass = clip(loc:fieldclass) & ' ' & 'formerror'
ElsIf loc:retrying ! any field on the form is invalid
p_web._OpenFile(BREED)
BRE:BreedCode = DOG:BreedCode
If p_web._getfile(BREED,BRE:KeyBreedCode)
loc:fieldclass = clip(loc:fieldclass) & ' ' & 'formerror'
End
p_web._CloseFile(BREED)
End
loc:even = 1
loc:javascript = ''
loc:javascript = clip(loc:javascript) & ' onchange="'&p_web._nocolon('sv(''DOG:BreedCode'',''dogform_dog:breedcode_value'',1,FieldValue(this,1))')&';'
if loc:javascript <> '' then loc:javascript = clip(loc:javascript) & '"'.
loc:readonly = Choose(loc:viewonly,'disabled','')
packet = clip(packet) & p_web.CreateSelect('DOG:BreedCode',loc:fieldclass,loc:readonly,,,,loc:javascript,)
p_web.translateoff += 1
pushbind()
p_web._OpenFile(DOGMAST)
bind(DOG:Record)
p_web._OpenFile(BREED)
bind(BRE:Record)
p_web._OpenFile(CUSTOMER)
bind(CUS:Record)
p_web._OpenFile(COUNTRY)
bind(CNTRY:Record)
if p_web.sqlsync then p_web.RequestData.WebServer._Wait().
open(DOG:BreedCode_OptionView)
DOG:BreedCode_OptionView{prop:order} = 'UPPER(BRE:BreedName)'
! Start of "Option Filter & Order"
! [Priority 5000]
!Filter would go here <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
! End of "Option Filter & Order"
Set(DOG:BreedCode_OptionView)
Loop
Next(DOG:BreedCode_OptionView)
If ErrorCode() then Break.
! Start of "Validate Drop Field Record"
! [Priority 5000]
End of "Validate Drop Field Record"
if p_web.IfExistsSessionValue('DOG:BreedCode') = 0
p_web.SetSessionValue('DOG:BreedCode',BRE:BreedCode)
end
loc:rowstyle = choose(sub(' SelectList',1,1)=' ',clip(loc:fieldclass) & clip(' SelectList') & loc:even,clip(' SelectList') & loc:even)
packet = clip(packet) & p_web.CreateOption(BRE:BreedName,BRE:BreedCode,choose(BRE:BreedCode = p_web.getsessionvalue('DOG:BreedCode')),clip(loc:rowstyle),,) &CRLF
loc:even = Choose(loc:even=1,2,1)
do SendPacket
End
Close(DOG:BreedCode_OptionView)
p_web.translateoff -= 1
if p_web.sqlsync then p_web.RequestData.WebServer._Release().
p_Web._CloseFile(DOGMAST)
p_Web._CloseFile(BREED)
p_Web._CloseFile(CUSTOMER)
p_Web._CloseFile(COUNTRY)
PopBind()
packet = clip(packet) & '</select>'&CRLF
do SendPacket
p_web._DivFooter()
p_web._RegisterDivEx('DogForm_' & p_web._nocolon('DOG:BreedCode') & '_value')