Página 1 de 1

Put into TBRow

Publicado: Dom Jun 22, 2008 12:42 pm
por Srdjan Dragojlovic
In init modul I have
::oBRW:aCols[3]:OnEdit := "UzmiSifru"
METHOD UzmiSifru( oSender, oPrevCtl ) CLASS TPrijemZ
LOCAL oRS := TBChoice( "SELECT Naziv, Sifra, Code, VPCena, MPCena, JMere
FROM Sifre", "Izbor artikla" )
LOCAL nSifra := IF( VALTYPE(oRS)=="N", 0, oRS:Sifra )
IF nSifra == 0
oRS := TNoviArtikal():New()
oRS:ShowModal()
ELSE
oSender:oDataField:VarPut( nSifra )
oSender:Refresh()
msgbox( str(nSifra)+oSender:oDataField:cName )
ENDIF
RETURN .T.
Why I can't change value in cell?

Put into TBRow

Publicado: Mié Jul 09, 2008 6:06 pm
por Srdjan
Why I can not change cell in DBBrowse ?
Why is example not work ?
Srdjan
"Srdjan Dragojlovic" <digikv@ahoo.com> wrote in message
news:485e2c8b$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> In init modul I have
> ::oBRW:aCols[3]:OnEdit := "UzmiSifru"
>
> METHOD UzmiSifru( oSender, oPrevCtl ) CLASS TPrijemZ
> LOCAL oRS := TBChoice( "SELECT Naziv, Sifra, Code, VPCena, MPCena, JMere
> FROM Sifre", "Izbor artikla" )
> LOCAL nSifra := IF( VALTYPE(oRS)=="N", 0, oRS:Sifra )
> IF nSifra == 0
> oRS := TNoviArtikal():New()
> oRS:ShowModal()
> ELSE
> oSender:oDataField:VarPut( nSifra )
> oSender:Refresh()
> msgbox( str(nSifra)+oSender:oDataField:cName )
> ENDIF
> RETURN .T.
>
> Why I can't change value in cell?
>