Versão atual:

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.

Versão (1):

Ver a versão formatada

FWBrowse com Campos editaveis

Comentário

new question