cWebCombo zerando valor

[Renato.Antonacci]

Saudações a todos.

Tenho o código abaixo dentro de uma WO e ao sair do campo esta limpando o valor selecionado, apesar de ter escolhido um valor válido na lista disponível. Aparentemente no Dicionário de dados esta tudo certo. Alguém teve alguma experiência nesse sentido? Seria uma coisa simples, inclusive somente arrasto o campo da lista disponível, pelo Studio

EDIT-1: Tem algo relacionado com o campo do arquivo ser numérico. Transformando o campo para CHAR não tive mais o problema. Ainda investigando!!!






Object oPTC_ItemCotacao_PercICMs is a cWebCombo
Entry_Item PTC_ItemCotacao.PercICMs

Set Server to oPTC_ItemCotacao_DD
Set psLabel to "ICMs:"
Set pbShowLabel to False
Set piColumnSpan to 2
Set piColumnIndex to 15
End_Object





Trecho do Dicionário de dados:




Object oPercICMS is a ValidationTable
Procedure Fill_List
Forward Send Fill_List
Send Add_Table_Value "0"
Send Add_Table_Value "4"
Send Add_Table_Value "7"
Send Add_Table_Value "12"
Send Add_Table_Value "18"
Send Add_Table_Value "25"
End_Procedure
End_Object


Class cPTC_ItemCotacaoWsDataDictionary is a cWsDataDictionary

Procedure Construct_Object
Forward Send Construct_Object
Set Main_File to PTC_ItemCotacao.File_Number
...
...
...
Set Field_Label_Long Field PTC_ItemCotacao.PercICMs to "ICMs"
Set Field_Label_Short Field PTC_ItemCotacao.PercICMs to "ICMs"
Set Status_Help Field PTC_ItemCotacao.PercICMs to "Percentual de ICMs do item"
Set Field_Mask Field PTC_ItemCotacao.PercICMs to ",*0.00"
Set Field_Mask_Type Field PTC_ItemCotacao.PercICMs to Mask_Numeric_Window
Set Field_Value_Table Field PTC_ItemCotacao.PercICMs to oPercICMS
Set Field_Class_Name Field PTC_ItemCotacao.PercICMs to "Combo"
...
...
...


End_Procedure


Procedure Field_Defaults
Forward Send Field_Defaults
Set Field_Changed_Value Field PTC_ItemCotacao.NaoRespondido to "N"
End_Procedure


Procedure Creating
Forward Send Creating
Move "N" to PTC_ItemCotacao.NaoRespondido
End_Procedure


End_Class