Hola
Despues de mucho buscar, no se si se puede hacer y no encuentro la solucion.
Tengo un xbrowse, dentro del cual, dos de las columnas las intento hacer con un listbox. Cuando presento la informacion, me la presenta bien, pero en el momento de la editar/modificar, no se como cargar el array "antes" de la edicion, ya que en cada linea de la browse, pueden ser valores diferentes.
Gracias de antemano
Josep Armengol
Josep,
Puedes proporcionar un peque帽o PRG que muestre como lo est谩s haciendo ?
aCabe := { ;
{ 1, "Art铆culo", nil, 100 }, ;
{ 2, "Definici贸n", nil, 200 }, ;
{ 3, "Cantidad", nil, 60 }, ;
{ 4, "Precio", nil, 65 }, ;
{ 5, "Dto.", nil, 40 }, ;
{ 6, "Total", nil, 70 }, ;
{ 7, "Lote", nil, 110 }, ;
{ 8, "PT", nil, 40 }, ;
{ 9, "Iva", nil, 60 }, ;
{ 10, "R.E.", nil, 40 }, ;
{ 11, "Ancho", nil, 55 }, ;
{ 12, "Alto", nil, 55 }, ;
{ 13, "Linea", nil, 35 }, ;
}
REDEFINE XBROWSE oBrw ID 6400 of oFld ;
COLUMNS aCabe lfastedit cell lines array aDatos
oBrw:aCols[ 1 ]:nEditType := 1
oBrw:aCols[ 2 ]:nEditType := 0
oBrw:aCols[ 3 ]:nEditType := 1
oBrw:aCols[ 4 ]:nEditType := 1
oBrw:aCols[ 5 ]:nEditType := 1
oBrw:aCols[ 6 ]:nEditType := 0
oBrw:aCols[ 7 ]:nEditType := 2
oBrw:aCols[ 8 ]:nEditType := 2
oBrw:aCols[ 9 ]:nEditType := 2
oBrw:aCols[ 10 ]:nEditType := 2
oBrw:aCols[ 11 ]:nEditType := 1
oBrw:aCols[ 12 ]:nEditType := 1
oBrw:aCols[ 13 ]:nEditType := 0
oBrw:aCols[ 7 ]:aEditListTxt := {}
oBrw:aCols[ 8 ]:aEditListTxt := {}
oBrw:aCols[ 9 ]:aEditListTxt := aPiva
oBrw:aCols[ 10 ]:aEditListTxt := aPre
oBrw:aCols[ 1 ]:bEditValid := {| oGet, oCol | ValidAlba( oGet, oCol, oBrw, @aDatos, @aPlot, @aPpt ) }
oBrw:acols[ 3 ]:bEditValid := {| oGet, oCol | Compsto( oGet, oCol, oBrw, @aDatos, @aPlot, @aPpt ) }
oBrw:aCols[ 5 ]:bEditValid := {| oGet, oCol | ValidTota( oGet, oCol, oBrw, @aDatos, oDlg ) }
oBrw:aCols[ 3 ]:bOnPostEdit := {| oCol, xVal, nKey | IF( nKey <> 27, ;
oBrw:selectcol( oBrw:ncolsel + 1 ), ), ;
IF ( articulo->m2, oBrw:selectcol( 11 ), ), ;
oBrw:refresh() }
oBrw:aCols[ 5 ]:bOnPostEdit := {| oCol, xVal, nKey | ;
IF( nKey <> 27 .OR. nKey = 13, ;
oCol:value := xVal, ), ;
IF( oBrw:nrowsel = Len( aDatos ), ;
NewAlb( @aDatos, oBrw ), ), ;
oBrw:GoDown(), oBrw:selectcol( 1 ) }
oBrw:aCols[ 8 ]:bOnPostEdit := {| | Cargalots( aDatos, oBrw ) }
oBrw:aCols[ 12 ]:bOnPostEdit := {| oCol, xVal, nKey | ;
IF( nKey <> 27 .OR. nKey = 13, ;
oCol:value := xVal, ), ;
oBrw:selectcol( 4 ) }
// :nMarqueeStyle := MARQSTYLE_HIGHLROW // NO PERMITE EDICION CELDA AUTO.
oBrw:nMarqueeStyle := MARQSTYLE_HIGHLCELL
oBrw:nRowDividerStyle := LINESTYLE_BLACK
oBrw:nColDividerStyle := LINESTYLE_BLACK
oBrw:lColDividerComplete := .T.
oBrw:lFastEdit := .T.
oBrw:lAutoAppend := .T.
oBrw:lHScroll := .F.
// oBrw:aCols[ 8 ]:bOnPostEdit := {| | Cargalots( aDatos, oBrw ) }
oBrw:aCols[ 8 ]:bOnPostEdit := {| | Cargalots( oBrw ) }Function Cargalots( oBrw )
local aDatos := oBrw:aArrayData
// o directamente no usar aDatos y utilizar oBrw:aArrayDataHola Cristobal
Gracias por la respuesta, pero ese no es el problema. Cuando estoy insertando datos nuevos en el Browse, no hay problema, ya que ya tengo cargado el array correspondiente al listbox. El problema es cuando yo pido que me presente los datos de algo guardado. Tengo el Browse con la informacion correcta a la vista, y pulso sobre la ventana del listbox. Me presenta siempre, la ultima linea del Browse, ya que es el array que tengo cargado.
El tema esta en que el postedit, me sirve una vez editada la primera condicion, pero mi pregunta es 驴 hay un "preedit"?.
Tambien existe la opcion de cargar un array para cada linea de la pantalla, pero no se como traspasarla al array de la linea en cuestion, y como decirle en el momento de la edicion que tiene que cargar.
Gracias a todos
bOnPreEdit
Gracias a todos
Veo que el problema que tengo, es que no tengo la documentacion con todos los comandos para TXBROWSE. Si alguien los tiene, por favor, diganme donde conseguirlos.
Gracias
Josep Armengol
oBrw:aCols[ 7 ]:bonPreEdit := {|| Cargalots( aDatos, oBrw ) }
oBrw:aCols[ 8 ]:bonPreEdit := {|| Cargalots( aDatos, oBrw ) }Josep, puedes poner una imagen?
Hola RenOmaS
Es lo que intento hacer, que en el momento que pulse sobre la casilla, me cargue el array.
Entendi que bOnPreEdit podia ser la opcion, y las defino asi:
oBrw:aCols[ 7 ]:bonPreEdit := {|| Cargalots( aDatos, oBrw ) }
oBrw:aCols[ 8 ]:bonPreEdit := {|| Cargalots( aDatos, oBrw ) }
Pero cuando pulso sobre la columna, no entra a la funcion Cargalots. No se si es un problema de sintaxis, o simplemente que la instruccion no es la que necesito
Gracias a todos
Josep Armengol
sajarm wrote:Hola RenOmaS
Es lo que intento hacer, que en el momento que pulse sobre la casilla, me cargue el array.
Entendi que bOnPreEdit podia ser la opcion, y las defino asi:
oBrw:aCols[ 7 ]:bonPreEdit := {|| Cargalots( aDatos, oBrw ) }
oBrw:aCols[ 8 ]:bonPreEdit := {|| Cargalots( aDatos, oBrw ) }
Pero cuando pulso sobre la columna, no entra a la funcion Cargalots. No se si es un problema de sintaxis, o simplemente que la instruccion no es la que necesito
Gracias a todos
Josep Armengol
:bClrEdit := { || Cargalots( aDatos, oBrw ), ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽{ CLR_BLACK, CLR_WHITHE} } //tiene q devolver un array de colores