FiveTech Software tech support forums

Saludos, tengo un get con un valid REDEFINE GET oGet2 VAR cPassw ID 102 FONT oFont OF oDlg ; VALID (lValor:=VerUser(cPassw,::xTaq),If(lValor,(oBtn1:Click(),.T.),; (oGet2:nPos:=1,oGet2:Refresh(),.F.))) ; Picture '@KS6' COLORS CLR_GET1,CLR_GET2 Update ahora quiero que ese get, se alimente de un ...

... : Ich changed all my buttons to Class < BUTTONBMP > like : ----------------------------------------------------------- REDEFINE BUTTONBMP oBtn1 ID 200 OF oDlg ; ACTION ( EditFl( .F., invoice->file ), _Lbx( oLbx2 ) ) ; BITMAP "yourBitmap" PROMPT "Button Text" TEXTRIGHT oBtn1:cTooltip ...

REDEFINE BUTTON oBtn1 ID 702 OF oDlgM WHEN (!EMPTY(aGetItem.it_quantidade)) ACTION (GravaProduto(aGetCli,oGetCli,aGetItem,vModo,@nRegi),oBtn1:oJump := oGetItem.it_codbarra ) UPDATE

... //-- grpslct.prg // // STATIC oDLG,oLBX #INCLUDE "FIVEWIN.CH" //---------------------- Func GRPGET( cNAME, cMODE, oOBJ, oRs, cTABLE ) LOCAL oBTN1, oBTN2, oRs2,oErr, cSQL, cTITLE IF cNAME = "ALL" RETURN(.T.) ENDIF IF EMPTY( oOBJ ) oOBJ = " " ENDIF IF EMPTY( cTABLE ) cTABLE := "BOGUS" ENDIF ...

... "VEHICLES", zPOOLID ) UPDATE // mtrpslct.prg //---------------------- Func MTRPGET( cNAME, cMODE, oOBJ, oRs, cTABLE ) LOCAL oDLG,oLBX LOCAL oBTN1,oBTN2,oBTN3 LOCAL oRsMTP, oErr, cSQL IF cNAME = "ALL" .and. cMODE = 'R' RETURN(.T.) ENDIF IF EMPTY( oOBJ ) oOBJ := " " ENDIF IF cMODE = "E" DO ...

... ; ON INIT(AddBar(oData,oLbx,nNum,oStock)); VALID(WinOpen(oMainWnd,0),lExit) static function AddBar(oData,oLbx,nNum,oStock) local oBar,oBtn,oBtn1,oBtn2,oBtn3,cExitTip := '',cAddTip := '',cDelTip := '',cPrintTip := '',lRecs := FALSE if nNum == 1 cExitTip := 'Exit Department Code Screen' cAddTip ...

... USE A HBCOMM.LIB Usando HBComm el tema es que hay que depurar alguna basurilla que aparece en la captura. Yo lo hago así: xTara:=Captura(oBtn1) Funcion captura: FUNCTION Captura(oBtn1) Local tmpbuf := "", cPeso, nPeso, i, TxtCap, ; f_Com := "COM1", ...

... FUNCTION NProd(cAlias, lAlta, oLbx) LOCAL oDlgP, oCbx, oBmp, oBtng1, oBtng2, cCod, oSay, oBtn1, oBtn2, oCursor, lReg:=.F. LOCAL oGet1,oGet2,oGet4,oGet5,oGet6,oGet7,oGet8,oGet9,oGet10,oGet11,oGet12,oGet13 LOCAL aUnidad := { "PIEZA", "JUEGO", ...

... informacion por mes de trabajo... aki funciona bien y sin problemas con esta funcion.. FUNCTION CambiaFecha() LOCAL dVar1:= DATE() LOCAL oDlg,oGet,oBtn1,oBtn2 LOCAL lSal:= .F. DEFINE DIALOG oDlg RESOURCE "SELFECHA" TITLE "Cambiar Fecha de Trabajo" OF oWndMain REDEFINE BTNGET oGet VAR dVar1 ID 102 ...

... informacion por mes de trabajo... aki funciona bien y sin problemas con esta funcion.. FUNCTION CambiaFecha() LOCAL dVar1:= DATE() LOCAL oDlg,oGet,oBtn1,oBtn2 LOCAL lSal:= .F. DEFINE DIALOG oDlg RESOURCE "SELFECHA" TITLE "Cambiar Fecha de Trabajo" OF oWndMain REDEFINE BTNGET oGet VAR dVar1 ID 102 ...

... LGETPASSWORD(222) Called from: sisa2007.prg => MAIN(40) este el el código que uso: STATIC FUNCTION lGetPassword() LOCAL oDlg,oBmp,oCbx,oGet,oBtn1,oBtn2,oBit,oIco,oBmpx,oFnt,oCur LOCAL lSalir := .F. LOCAL nTries := 0 LOCAL tPassword := SPACE (15) LOCAL hDC := oDlg DEFINE CURSOR oCur RESOURCE ...

... ) ACTIVATE DIALOG oDlg1 oDLG1:END() RETURN( NIL ) //--------------------------- Static FUNC GoGetum( cFIND,oRS, cITEM ) LOCAL SAYING, nRECNO, oBTN1,oBTN2 LOCAL lOK cFIND := ALLTRIM( cFIND ) DO CASE CASE cITEM = "File Number" oRs:Find("file_num = '"+cFIND+"'" ) IF oRs:eof oRs:MoveFirst() oRs:Find("file_num ...

Hola saviotti: Algunos ejemplos para orientarte: SetKey(VK_F1, {|nKey| WinHelp("Ayuda.Hlp")}) SetKey(VK_F9, {|nKey| Calculadora() }) oBtn1:bkeydown:={|nKey|IIF((nKey == Asc( "S" ) .OR. nKey == Asc( "s" ) ) .AND. GetKeyState( VK_CONTROL ),; ( lSalvar := .T. , oDlgCodigo:End(), oLBx:refresh() ...

... oRs:Close() Return(nil) //-------------------------------------------------------- STATIC FUNCTION _LwmfsBrow( oRs ) //, oWND ) LOCAL nRec, oDLG, oBTN1, oWND1, oBRW lOK := .F. DEFINE WINDOW oWnd1 ; FROM 3,1 to 30,100 ; TITLE "Docket System Browse" @ 0,0 LISTBOX oBrw FIELDS ; STR( oRs:Fields( "id" ...

Jeff,

Please try this too besides the bKeyChar/bKeyDown:

oBtn1:nDlgCode = DLGC_WANTALLKEYS
oBtn2:nDlgCode = DLGC_WANTALLKEYS
oBtn3:nDlgCode = DLGC_WANTALLKEYS
oBtn4:nDlgCode = DLGC_WANTALLKEYS