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