FiveTech Software tech support forums

... //----------------------------------------------------------------------------// Function NomeFunc(oCod) Local MyDb, nRet nRet := space(40) MyDb:= Select() SELECT MULTIFUN MULTIFUN->(DBSETORDER(1)) if MULTIFUN->(DbSeek(oCod) ) nRet:=Alltrim(MULTIFUN->NOMFUN) ...

Hola Cesar. Hice la prueba, pero tengo el problema que los datos no llegan a la Function "CARGA_PACI(): REDEFINE COMBOBOX oCod_pro1 VAR nCod_pro1 ITEMS ArrTranspose( aProfe )[ 2 ] ID 102 OF oDlg COLORS nRGB(9, 11, 10), nRGB(73, 250, 202); ON CHANGE (Carga_paci(oCod_pro1,aProfe),oPaci:Refresh(),...

... oBrw:setFocus() RETURN NIL ------------------------------- info sulla sintassi per la funzione VALID nell'istruzione : @ 15, 060 GET oCod VAR cCod OF oDlg se uso @ 15, 060 GET oCod VAR cCod OF oDlg Valid myFunc() BUFF.prg(99) Error E0030 Syntax error "syntax error at '@'" ...

... : ******************************************************************* // ----------------------- VEDI_P FUNCTION Vedi_P( fDbf, fNtx ) LOCAL oCod, oDlg, cCod := SPACE(1) LOCAL oBtnEnd, oBtnOk USE( fDbf ) INDEX ( fNtx ) ALIAS Dati NEW DEFINE DIALOG oDlg TITLE "Vedi Prezzi" ; SIZE ...

oCod:nMaxLength = 20 -> ERRORE oCod:MaxLength = 20 -> ERRORE oCod:SetMaxLength(20) -> OK Se Dichiaro oCod := SPACE(1) -> OK Se Dichiaro oCod := SPACE(20) -> stranamente il cursore non si pone all'inizio della ...

1) come limitare l'input della variabile a max 20 caratteri ?

Please review QLineEdit() DATA nMaxLength:

http://doc.qt.io/qt-4.8/qlineedit.html

oCod:nMaxLength = 20

I don't understand your second question, sorry

... ho costruito un ciclo Do while .T. ed esco dalla funzione Vedi_P o quando premo il pulsante "abbandona" o quando lascio vuoto il campo oCod. quello che non riesco a fare e' : alla pressione del pulsante "Cerca" di chiamare una funzione che mi esegua la seek sul file mi faccia ...

... mGrabar,mBorrar, mAnular, mNvoDoc,mTotalcos,mTotaligv,mTotalReg,mNomcli,oNomcli static mNumero,mCod,mDesc1,mFecha,mMts,mObser1,mObser2,oNumero,oCod,oDesc1,oFecha,oMts,oObser1,oObser2 static oProf,mProf,oCli,mCli,mMedProf,mConsumo,oMedProf,oConsumo,FilMovi, FilNtx, oSay1,oBrw,oBtagre,oBtborra,oBtmodi ...

... LEFT COLOR CLR_YELLOW ; OF oDlg UPDATE BORDER REDEFINE GET oNumero VAR mNumero ID 121 OF oDlg VALID(BUS_CON2(@mnumero,@oNumero)) REDEFINE GET oCod Var mCod ID 101 of oDlg VALID(BUS_GRUPO(@mCod,@oCod,@mDesc1,@oDesc1)) REDEFINE GET oDesc1 Var mDesc1 ID 103 of oDlg WHEN .F. REDEFINE GET oFecha ...

... to recent Class TGet changes, bKeyDon was evaluated twice. Now it is ok. ainda persiste o problema executa 2x a mesma função e continua o problema oCod:bKeyDown := {|nKey| iif( nKey=VK_F3, ( lQtd := .T., oQtd:SetFocus() ), ),; IIF( nKey=VK_F2, ( MenuPdv( oDlg_Pdv, @vmprod, @oBrowse, oSSay ), oCod:SetFocus() ...

Saludos amigos, les reitero esta pregunta con este problema que me esta volviendo loco, el tema es el siguiente. 1) trabajo con FW 2.4, blinker 4.0, clipper 5.2. el asunto es que tengo varias bases o tablas con datos, que son: NOMBRE ARCHIVO CAMPOS B_Empresa.dbf --- numero(1N), nombre B_Area.Dbf ---...

Saludos amigos, les reitero esta pregunta con este problema que me esta volviendo loco, el tema es el siguiente. 1) trabajo con FW 2.4, blinker 4.0, clipper 5.2. el asunto es que tengo varias bases o tablas con datos, que son: NOMBRE ARCHIVO CAMPOS B_Empresa.dbf --- numero(1N), nombre B_Area.Dbf ---...

Antonio: Sigo con el problema, extraño, pero asi es: REDEFINE Say oNom_emp1 Prompt DesDe ID 21 OF oDlg Font oFont1 Color "R/BG" Redefine Get oCod_usu1 Var Cod_usu1 Id 104 Of oDlg Update Picture "@!" Color "R/BG" Esto lo uso con un recurso desde RC, uso FWH 704, Xharbour 00.99.71, Workshop y Verce 5....

Antonio, Añádeles la claúsula COLOR ... REDEFINE Say oRut_emp1 Prompt Rut_emp1 ID 20 OF oDlg Font oFont1 COLOR "W/B" . Redefine Get oCod_usu1 Var Cod_usu1 Id 104 Of oDlg Update Picture "@!" COLOR "R/BG" Puedes usar colores RGB así: ... COLOR nRGB( ..., ..., ... ), nRGB( ..., ..., ... ) en donde esos...

Hola Amigos:

Tengo un problema, por necesidad de un cliente, necesito poner los Say o Get de los Redefine, con colores:

. REDEFINE Say oRut_emp1 Prompt Rut_emp1 ID 20 OF oDlg Font oFont1

. Redefine Get oCod_usu1 Var Cod_usu1 Id 104 Of oDlg Update Picture "@!" .

Saludos,
Antonio