FiveTech Software tech support forums

... working anymore. Thanks in advance Otto #INCLUDE "FIVEWIN.CH" REQUEST DBFCDX function Main() local cItem, aItems := {} local oCbx local cCbx := "" local oCbx2 local cItem2 := "" local oDlg local oFont //----------------------------------------------------------------------------// ...

... muchas gracias este es el ejemplo que dependiendo el valor se va a la posicion del combo, si queremos que sea la primera posicion seria ccbx:=citem2[1] // esto nos indica que ccbx va tener el primer valor ocbx:refresh() // con esto refrescamos ya seria validar isi hay datos en la posiscion ...

este es el ejemplo que dependiendo el valor se va a la posicion del combo, si queremos que sea la primera posicion seria ccbx:=citem2[1] // esto nos indica que ccbx va tener el primer valor ocbx:refresh() // con esto refrescamos ya seria validar isi hay datos en la posiscion 1 saludos ...

ok but how I can set the field from combobox to edit that field I explain I must set cNotes:=cdbf->namefieldMemo @ 10,25 COMBOBOX oCbx VAR cCbx ITEMS aCampiMemo; SIZE 80,50 PIXEL OF oDlg STYLE CBS_DROPDOWN ; ON CHANGE cNotes:=(cDbf)-> ? see the test static function VistaMemo(oBrwLook,cDbf) ...

... .and. oWndMain:oBar:aControls[ 1 ]:l97Look local lExit := .F. local oHand, oImageList, oReBar // , cPageNum local aImpre := aGetPrinters(), oCbx, cCbx:=PrnGetName(), ; cImpre := cCbx // mcn valdenebro *DEFAULT nBloqueo := .F. #ifdef __CLIPPER__ cResFile := "Preview.dll" #else if ! IsWin64() ...

... DbEval( {|| AADD( aProducto[1] , (oDbf)->Id ) , AADD( aProducto[2], LEFT((oDbf)->Nombre,1)+SUBS(Lower((oDbf)->Nombre),2,44) ) }) ) cCbx := aProducto[2,1] REDEFINE COMBOBOX oCbx VAR cCbx ITEMS aProducto[2] ID 106 OF oDlg a mi me va bien salu2 Paco

¡Oh!... me faltó esto: //----------------------------------------------------------------------------// Function CambiaPRT(cCbx) //Function agregada por Adhemar //cPRTDefault := GetProfString( "windows", "device" , "" ) WriteProfString( "windows", ...

... //function de Adhemar .T. ) Le quité el llamado a PRTDefault() a todos los botones que lo tenían. METHOD BuildWindow() CLASS TPreview local oCbx,cCbx:=PrnGetName() @ 3, 500 COMBOBOX ::oFactor VAR ::nZFactor ; ITEMS {"100 %","110 %","120 %","130 %","140 ...

... "online" de impresora, que es muy util y que viene funcionando perfectamente en XP. Esta es la función: func f_CamImpre (oDevice, cCbx ) local cPrinter // impresora predeterminada cPrinter := GetProfString( "windows", "device" , "" ) // instalamos ...

... Richard, I have a function, including in the previeus, to change on line the printer. This is the code: func f_CamImpre (oDevice, cCbx ) local cPrinter // impresora predeterminada cPrinter := GetProfString( "windows", "device" , "" ) // instalamos ...

... ; oWndMain:oBar:aControls[ 1 ]:l97Look local lExit := .F. local oHand, oImageList, oReBar // , cPageNum local aImpre := aGetPrinters(), oCbx, cCbx:=PrnGetName(), ; cImpre := cCbx // mcn valdenebro #ifdef __CLIPPER__ cResFile := "Preview.dll" #else if ! IsWin64() cResFile := "Prev32.dll" else ...

Tim,
maybe you can use resize?
Regards,
Otto

ACTIVATE WINDOW oWnd
ON RESIZE ( ;
oLbxl:nTop := oWndt:nHeight()- 280 ,;
oSay:nLeft := oWnd:nWidth() - 240,;
cCbx:nLeft := oWnd:nWidth() - 130) VALID (oWnd:=NIL, .T.)

... para cambiar la impresora desde previo (mcn) //------------------------------------------------------------------------ func f_CamImpre (oDevice, cCbx ) local cPrinter cPrinter := GetProfString( "windows", "device" , "" ) WriteProfString( "windows", "device", cCbx ) SysRefresh() PrinterInit() ...

... ya probe y no funciona, ahora me tira un error diferente, puede ser de la clase, aki pego el codigo de como lo hago: REDEFINE COMBOBOX oCbx VAR cCbx ITEMS aConc ID 103 OF oDlg UPDATE ; ON CHANGE ( oCbx2:cAlias := if(oCbx:nAt==3,oDCos,; if(oCbx:nAt==4,oDCom,; if(oCbx:nAt==5,oDGru,oDEqu))), ; ...

quiero actualizar un dbcombo dependiendo de otra variable en tiempo de ejecucion (el alias) asi tengo mi codigo REDEFINE COMBOBOX oCbx VAR cCbx ITEMS aConc ID 103 OF oDlg UPDATE REDEFINE DBCOMBO oCbx2 VAR cCbx2 ID 104 OF oDlg ; alias if(oCbx:nAt==3,oDCos,if(oCbx:nAt==4,oDCom,if(oCbx:nAt==5,oDGru,))) ...