Results 1 to 1 of 1

Thread: cWebCombo zerando valor

Threaded View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Join Date
    May 2010
    Location
    Minas Gerais/Brasil
    Posts
    56

    Default cWebCombo zerando valor

    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!!!



    Code:
    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:

    Code:
    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
    Last edited by Renato.Antonacci; 23-Jun-2022 at 12:46 PM.
    []s

    Renato Antonacci
    Minas Gerais, Brasil
    Dataflex/Dataflex Web

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •