Hi All
I need to fill the cwebcombo "oCedulasn_CiuDian1" with the cities that correspond to the department selected in "oCedulasn_DeptoDian". The fill procedure in oCedulasn_CiuDian1 is done fine, but does not display the list.
I have already investigated and nothing has worked for me, in short, it is a conditioned filling.
Has anyone already covered the subject?
Code:
Object oCedulasn_DeptoDian is a cWebCombo
Entry_Item Cedulasn.DeptoDian
Set piColumnSpan to 7
Set psLabel to "Depto:"
Set piLabelOffset to 50
Set peSortItems to csDescription
Set pbServerOnChange to True
Set pbServerOnFocus to True
Procedure OnFill
Forward Send OnFill
Clear CODEMAST
Move "MUNICI" to CODEMAST.TYPE
Find GE CODEMAST by 1
While (Found and ("MUNICI" =CODEMAST.TYPE))
If (Length(Trim(CODEMAST.CODE))=2) Send AddComboItem (Trim(CODEMAST.CODE)) (Trim(CODEMAST.DESCRIPTION))
Find GT CODEMAST by 1
Loop
End_Procedure
End_Object
Object oCedulasn_CiuDian1 is a cWebCombo
Entry_Item Cedulasn.CiuDian
Set piColumnSpan to 5
Set psLabel to "CiuDian:"
Set piLabelOffset to 55
Set piColumnIndex to 7
Set pbShowLabel to False
Set psToolTip to "Ciudad"
Set pbServerOnChange to True
Set pbServerOnFocus to True
Procedure OnFill
Forward Send OnFill
String sDepto
WebGet psValue of oCedulasn_DeptoDian to sDepto
Move (Trim(sDepto)) to sDepto
Clear CODEMAST
Move "MUNICI" to CODEMAST.TYPE
Move sDepto to CODEMAST.CODE
Find GE CODEMAST by 1
While (Found and ("MUNICI" = CODEMAST.TYPE) and (Left(CODEMAST.CODE,2) =sDepto))
Send AddComboItem (Trim(CODEMAST.CODE)) (Trim(CODEMAST.DESCRIPTION))
Find GT CODEMAST by 1
Loop
End_Procedure
Procedure OnFocus
Forward Send OnFocus
Send OnFill of oCedulasn_CiuDian1
End_Procedure
End_Object
Edgar