Edicion en TWBrowse

[Francis]

Hola a todos del foro

Como puedo editar una dbf con twbrowse?
Asi como el dbedit del clipper...Se que se usa el bEdit, lEdit...
pero no se como....
Un ejemplo por favor...
Revise los ejemplos del twbrowse, pero solo es para arrays y no para dbf
Uso FW2.0, Blinker4.0, WorkShop4.5, TDBF12k, TWBrowse y Clipper5.3
El fin es que quiero seleccionar cualquier DBF de una carpeta, y visualizarla con la opcion de poder modificar, borrar, etc...
Todo esto hacer en el propio campo de edicion como en los viejos tiempos del DBEdit.

Salu2

[R.F.]

Vete a la carpeta :

\FWxx\source\function

y busca el programa BROWSE.PRG ahi viene el codigo fuente de la funcion BROWSE() de FW que te dara una muy buena idea de como hacer las cosas

[DanielPuente]

Francis:

Code: Select all  Expand view

                    oBrwMov:lAutoEdit  := .t.
                    oBrwMov:bKeyChar := {|nK| if( nK==VK_RETURN,oBrwMov:Edit(oBrwMov:nColAct,.t.),) }
                    oBrwMov:bEdit:= {|nCol, cBuffer, lFirstEdit| EditaCelda( @fCant,@fCantV,@fCantC,oBrwMov, nCol, cBuffer, .T.,cAlias ) }

//---------------------------------------------------------------------------------------------------------

STATIC Function EditaCelda( fCant , fCantV, fCantC,oLbx   , nCol           , cBuffer                         , lFirstEdit,cAlias )

Local uBuffer:=cBuffer,nColReal:= nCol,lContinue:=.f.,bValid,cSaldo:=0,xSaldo:=0,cDifSaldo:=0

       Do Case
            Case nCol = 5 .and. lFirstEdit
                   uBuffer:=(cAlias)->SALDO
                  cSaldo:=(cAlias)->SALDO
                  If lContinue:= oLbx:lEditCol( nColReal,  @uBuffer, "@ZE 999999",bValid,,(nRgb(15,15,15),nRgb(255,255,255)))
                        IF uBuffer # cSaldo
                              IF MSGYESNO("El saldo ha sido cambiado,"+CRLF+CRLF+;
                                                'El sistema generará un movimiento de ajuste de inventario automáticamente,'+CRLF+CRLF+;
                                                'Confirma la operación ?','Atención')
                                           xSaldo:=RECUNSALDO(1,(cAlias)->COD)
                                          (cAlias)->SALDO:=uBuffer
                                          cDifSaldo:=uBuffer - xSaldo
                                          (CALIAS)->(DBCOMMIT())
                                          oLbx:Refresh()
                                           IF !empty((cAlias)->AT1) .or. !empty((cAlias)->AT2)
                                           ELSE
                                                if cDifSaldo # 0
                                                   AJUSINV((cAlias)->COD,cDifSaldo,(cAlias)->AT1,(cAlias)->AT1)
                                                endif
                                           ENDIF
                                           ART->(DBSETORDER(1))
                                              ART->(DBSETORDER(1))
                                              IF ART->(DBSEEK(MOVART->MCOD,.F.))
                                                    IF ART->(DBRLOCK())
                                                       REPL ART->SALDO WITH ART->SALDO + MOVART->MCAN
                                                       ART->(DBUNLOCK())
                                                    ENDIF
                                                                  ENDIF
                              ENDIF
                        ENDIF
                  ENDIF
          EndCase

RETURN NIL



Saludos,