carlosmsi Posted November 12, 2011 Report Share Posted November 12, 2011 Boa Tarde. Sou leigo em relacao ao Browse Gostaria de Saber compo alterar dados do campo. Estou montando um Gerador de Banco de Dados.Um DBU Onde vai Criar o Dbf entao eu preciso definir os Campos, Tamanho, Tipo. Nao estou conseguindo alterar o campo no TxBrowse Tenho um arquivo dbf e gostaria de alterar diretamente os campos. consegui deixar em modo para editar mas quando dou enter ele nao altera o campo. exemplo: Criei Assim DEFINE DIALOG oDlg TITLE "Browse Criação dos Campos" ; FROM 0,0 TO 23,75 ; STYLE nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, ; WS_MAXIMIZEBOX, WS_MINIMIZEBOX ) @ 01,01 COLUMN BROWSE oBrw ; COLORS BrwText, BrwBack ; Alias &wAlias. ; FONT oGetFnt ; SIZE 272, 150 OF oDlg ADD COLUMN TO BROWSE oBrw DATA &wAlias.->NAME HEADER "NOME" ; PICTURE "@!" ALIGN LEFT EDITABLE ADD COLUMN TO BROWSE oBrw DATA &wAlias.->TYPE HEADER "TYPE" ; PICTURE "@!" ALIGN LEFT EDITABLE ADD COLUMN TO BROWSE oBrw DATA &wAlias.->WIDTH HEADER "WIDTH" ; PICTURE "999" ALIGN LEFT EDITABLE ADD COLUMN TO BROWSE oBrw DATA &wAlias.->DEC HEADER "DEC" ; PICTURE "99" ALIGN LEFT EDITABLE ADD COLUMN TO BROWSE oBrw DATA &wAlias.->DESCRICAO HEADER "DESCRICAO" ; PICTURE "@!" ALIGN LEFT EDITABLE oBrw:lCellStyle = .t. oBrw:bLDblClick = { | nRow, nCol | EditCell( oBrw, nRow, nCol ) } oBrw:nLineStyle := 1 // LINHA oBrw:REFRESH() Quote Link to comment Share on other sites More sharing options...
carlosmsi Posted November 12, 2011 Author Report Share Posted November 12, 2011 Boa Tarde. Sou leigo em relacao ao Browse Gostaria de Saber compo alterar dados do campo. Estou montando um Gerador de Banco de Dados.Um DBU Onde vai Criar o Dbf entao eu preciso definir os Campos, Tamanho, Tipo. Nao estou conseguindo alterar o campo no TxBrowse Tenho um arquivo dbf e gostaria de alterar diretamente os campos. consegui deixar em modo para editar mas quando dou enter ele nao altera o campo. exemplo: Criei Assim DEFINE DIALOG oDlg TITLE "Browse Criação dos Campos" ; FROM 0,0 TO 23,75 ; STYLE nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, ; WS_MAXIMIZEBOX, WS_MINIMIZEBOX ) @ 01,01 COLUMN BROWSE oBrw ; COLORS BrwText, BrwBack ; Alias &wAlias. ; FONT oGetFnt ; SIZE 272, 150 OF oDlg ADD COLUMN TO BROWSE oBrw DATA &wAlias.->NAME HEADER "NOME" ; PICTURE "@!" ALIGN LEFT EDITABLE ADD COLUMN TO BROWSE oBrw DATA &wAlias.->TYPE HEADER "TYPE" ; PICTURE "@!" ALIGN LEFT EDITABLE ADD COLUMN TO BROWSE oBrw DATA &wAlias.->WIDTH HEADER "WIDTH" ; PICTURE "999" ALIGN LEFT EDITABLE ADD COLUMN TO BROWSE oBrw DATA &wAlias.->DEC HEADER "DEC" ; PICTURE "99" ALIGN LEFT EDITABLE ADD COLUMN TO BROWSE oBrw DATA &wAlias.->DESCRICAO HEADER "DESCRICAO" ; PICTURE "@!" ALIGN LEFT EDITABLE oBrw:lCellStyle = .t. oBrw:bLDblClick = { | nRow, nCol | EditCell( oBrw, nRow, nCol ) } oBrw:nLineStyle := 1 // LINHA oBrw:REFRESH() Quote Link to comment Share on other sites More sharing options...
Theotokos Posted November 12, 2011 Report Share Posted November 12, 2011 Eu utilizo xBrowse e faço assim para poder alterar oBrw:aCols[6]:nEditType := EDIT_GET oBrw:aCols[6]:bOnPostEdit := {|o,x| RecLock(),FieldPut( FieldPos("VA_DATVENC"), x ),UnLockRecord() } oBrw:aCols[6]:cEditPicture := "99/99/9999" oBrw:aCols[6]:bEditValid := {|| !Empty(&cArquivo->VA_DATVENC), ; nPosTmp:= RecNO(), oBrw:Refresh(.t.), DbGoTo(nPosTmp), .t. } * oBrw:aCols[4]:nEditType := EDIT_GET oBrw:aCols[4]:bOnPostEdit := {|o,x| RecLock(),FieldPut( FieldPos("VA_VALPRES"), x ),UnLockRecord() } oBrw:aCols[4]:cEditPicture := "@E 9,999.99" oBrw:aCols[4]:bEditValid := {|| !Empty(&cArquivo->VA_VALPRES), ; nPosTmp:= RecNO(), oBrw:Refresh(.t.), DbGoTo(nPosTmp), .t. } id=code>id=code> Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.