FWBrowse com Campos editaveis

Boa Tarde Pessoal. Estou tentando fazer um FWBrowse com edição de campos porem ele abre a edição porem não salva a edição o campo continua em branco ou com o conteúdo inicial. Abaixo segue trecho do fonte.

DEFINE MsDIALOG o3Dlg TITLE 'Informações Complementares Medicamentos' of o3Dlg From 0, 4 To 650, 1180 Pixel 

            @ 5,20  SAY "Tipo:" SIZE 50,15 OF o3Dlg PIXEL
            @ 5,80  SAY "S-Saida"  SIZE 050,15 OF o3Dlg PIXEL
            @ 5,180 SAY "Extemporânea:" SIZE 50,15 OF o3Dlg PIXEL
            @ 5,240 SAY "1-Ext. Regular"  SIZE 050,15 OF o3Dlg PIXEL
            @ 5,340 SAY "Data Recebimento:" SIZE 50,15 OF o3Dlg PIXEL
            @ 5,400 SAY DTOC(SF2->F2_EMISSAO)  SIZE 050,15 OF o3Dlg PIXEL

            @ 30,20  SAY "Nota Fiscal:" SIZE 50,15 OF o3Dlg PIXEL
            @ 30,80  SAY cDoc  SIZE 050,15 OF o3Dlg PIXEL
            @ 30,180 SAY "Serie:" SIZE 50,15 OF o3Dlg PIXEL
            @ 30,240 SAY cSerie  SIZE 050,15 OF o3Dlg PIXEL
            @ 30,340 SAY "Espécie:" SIZE 50,15 OF o3Dlg PIXEL
            @ 30,400 SAY SF2->F2_ESPECIE  SIZE 050,15 OF o3Dlg PIXEL

            @ 55,20  SAY "Cliente:" SIZE 50,15 OF o3Dlg PIXEL
            @ 55,80  SAY cCliefor  SIZE 050,15 OF o3Dlg PIXEL
            @ 55,180 SAY "Loja:" SIZE 50,15 OF o3Dlg PIXEL
            @ 55,240 SAY cLoja  SIZE 050,15 OF o3Dlg PIXEL
            @ 55,340 SAY "Frete:" SIZE 50,15 OF o3Dlg PIXEL
            @ 55,400 SAY "9-Sem Frete"  SIZE 050,15 OF o3Dlg PIXEL

            @ 300,20 BUTTON "Processar" SIZE 36,16 PIXEL OF o3Dlg ACTION (xGravaCDT(),o3Dlg:End())

            oPnMaster := tPanel():New(80,20,,o3Dlg,,,,,,550,200)
            oDespesBrw := fwBrowse():New()
            oDespesBrw:setOwner( oPnMaster )

            oDespesBrw:setDataArray()
            oDespesBrw:setArray( aItSD2 )
            oDespesBrw:disableConfig()
            oDespesBrw:disableReport()

            //oDespesBrw:SetLocate() // Habilita a Localização de registros

            oDespesBrw:addColumn({"Item"              , {||aItSD2[oDespesBrw:nAt,01]}, "C", "@!"    , 1,  4    ,                            , .F. , , .F.,, ,, .F., .T.,                                    , "ETaItSD21"    })
            oDespesBrw:addColumn({"Produto"           , {||aItSD2[oDespesBrw:nAt,02]}, "C", "@!"    , 1,  15   ,                            , .F. , , .F.,, ,, .F., .T.,                                    , "ETaItSD22"    })
            oDespesBrw:addColumn({"Lote"              , {||aItSD2[oDespesBrw:nAt,03]}, "C", "@!"    , 1,  50   ,                            , .T. , , .F.,, "ETaItSD23" ,, .F., .T.,                                    , "ETaItSD23"    })
            oDespesBrw:addColumn({"Quantidade"        , {||aItSD2[oDespesBrw:nAt,04]}, "N", "999999", 1,  6    , 0                          , .F. , , .F.,, ,, .F., .T.,                                    , "ETaItSD24"    })
            oDespesBrw:addColumn({"Dt. Fabricacao"    , {||aItSD2[oDespesBrw:nAt,05]}, "D", ""      , 1,  8    ,                            , .T. , , .F.,, "ETaItSD25",, .F., .T.,                                    , "ETaItSD25"    })
            oDespesBrw:addColumn({"Dt. Validade"      , {||aItSD2[oDespesBrw:nAt,06]}, "D", ""      , 1,  8    ,                            , .T. , , .F.,, "ETaItSD26",, .F., .T.,                                    , "ETaItSD26"    })
            oDespesBrw:addColumn({"Cod. ANVISA"       , {||aItSD2[oDespesBrw:nAt,07]}, "C", "@!"    , 1,  13   ,                            , .F. , , .F.,, ,, .F., .T.,                                    , "ETaItSD27"    })
            oDespesBrw:addColumn({"Motivo Isencao"    , {||aItSD2[oDespesBrw:nAt,08]}, "C", "@!"    , 1,  254  ,                            , .F. , , .F.,, ,, .F., .T.,                                    , "ETaItSD28"    })

            oDespesBrw:setEditCell( .T. , {||.T.} ) //activa edit and code block for validation

            oDespesBrw:Activate(.T.)

            Activate MsDialog o3Dlg

Alguem pode me ajudar? Não consegui descobrir o pq não fica salvo o conteúdo que digito.

compartilhar
  1. Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
  2. Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
  3. Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
  4. Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
  5. Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

1 resposta

Não é a resposta que estava procurando? Procure outras perguntas com as tags fwbrowse ou faça a sua própria pergunta.