TWBrowse Editable
Posted: Mon Sep 24, 2007 12:04 pm
Buen dia amigos del foro, estoy necesitando una ayuda para editar valor en mi twbrowse con matriz, abajo el codigo crea la twbrowse, consigo incluir y excluir lineas, pero no consigo hacer que se deje incluir datos en las lineas para posteriormente hacer un aadd en la matriz.
FUNCION PARA ADICIONAR O EXCLUIR UNA LINEA
El caso es que con oLbxCompra:lAutoEdit = .T.
puedo escribir en la celda, pero tengo que dar un Esc para salir, entonces limpia todo. Si alguien ya tuvo un caso parecido, agradeceria la ayuda. Seria bueno poder ver un ejemplo. No he consiguido encontrar posts en los foros que hablen sobre esto.
Desde ya muchas gracias
Marizete C. Neuhaus
Code: Select all
FUNCTION fDesenhaLbxCompra()
AADD(aItens,{ strZero(cod,3),"","","",0,0,0})
cod +=1
REDEFINE LISTBOX oLbxCompra ;
FIELDS "" ,"" ,"" ,"" ,"" , "" ;
HEADERS "Código","Produto","Un. Medida","Quantidade","Valor Unitário", "SUB-TOTAL";
FIELDSIZES 50 , 230 , 80 , 80 , 80 , 80 ;
ID 4011 OF oDlgCompra
oLbxCompra:SetArray( aItens )
oLbxCompra:bLine := { || { aItens[oLbxCompra:nAt,1] , aItens[oLbxCompra:nAt,2] , aItens[oLbxCompra:nAt,3] , Transform(aItens[oLbxCompra:nAt,4],"@E 99,999.99") , Transform(aItens[oLbxCompra:nAt,5],"@E 99,999,999.99") , Transform(aItens[oLbxCompra:nAt,6],"@E 99,999,999.99") } }
oLbxCompra:nLineStyle := 3
oLbxCompra:nHeaderStyle := 3
oLbxCompra:aJustify := {.T.,.F.,.F.,.T.,.T.,.T.}
oLbxCompra:lAutoEdit = .T.
oLbxCompra:Refresh()
RETURN Nil
Code: Select all
FUNCTION fAdicionarLinha()
AADD(aItens,{ strZero(cod,3),"","","",0,0,0})
oLbxCompra:SetArray(aItens)
oLbxCompra:Refresh()
cod +=1
RETURN Nil
//------------------------------------------
FUNCTION fExcluirLinha()
aDel(aItens, oLbxCompra:nAt)
aSize(aItens,LEN(aItens)-1)
oLbxCompra:SetArray(aItens)
oLbxCompra:Refresh()
RETURN Nil
puedo escribir en la celda, pero tengo que dar un Esc para salir, entonces limpia todo. Si alguien ya tuvo un caso parecido, agradeceria la ayuda. Seria bueno poder ver un ejemplo. No he consiguido encontrar posts en los foros que hablen sobre esto.
Desde ya muchas gracias
Marizete C. Neuhaus