...
REDEFINE BUTTON oBtnDel ID 426 OF oDlg MESSAGE 'Borra último dígito';
ACTION (::cUltima:='CE' ,;
iif(::cUltimaOp='=' .or. ::cUltimaOp='AP' .or. ::cUltimaOp='AE' ,; //IF
(::cUltimaOp:='',::nResult:=0,aadd( ::aRolloCalc, {' ',' '} ),oBrw:gobottom(),oBrw:refresh()),; //THEN
NIL ) ,; //ELSE
iif(nGet<>0 ,; //IF
(cGet:=LEFT(cGet,len(cget)-1),nGet:=val(cGet)),; //THEN
NIL) ,; //ESLSE
oGet:SetText(cGet) ,;
oBtnIgual:Setfocus() ,;
sysrefresh() ) UPDATE
...
REDEFINE BUTTON oBtn0 ID 100 OF oDlg ;
ACTION (::cUltima:='0' ,;
iif(::cUltimaOp='=' .or. ::cUltimaOp='AP' .or. ::cUltimaOp='AE' ,;
(::cUltimaOp:='',::nResult:=0,aadd( ::aRolloCalc, {' ',' '} ), oBrw:gobottom(),oBrw:refresh()),;
NIL ) ,;
iif(nGet<>0 .or. at(".",cGet)>0 ,;
( cGet:=cGet+::cUltima, nGet:=val(cGet)),;
NIL ) ,;
oGet:SetText(cGet) ,;
oBtnIgual:Setfocus() ,;
sysrefresh() ) UPDATE
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 78 guests