FiveTech Software tech support forums

... TITLE "Altas siniestros" BRUSH oBrush REDEFINE GET cRefe ID 10 OF oDlg REDEFINE DbCombo oCbx VAR cClaveCia ID 11 OF oDlg; alias "Compa"; ITEMFIELD "ClaveCia"; LISTFIELD "ClaveCia"; update REDEFINE GET cNumSini ID 12 OF oDlg REDEFINE GET fFeSini PICTURE "@D" ID 13 OF oDlg REDEFINE GET ...

... oCbx1 VAR nTipopago Update id 179 of oDlg; on Change (Descuento(@nDescuento, nTipopago),o178:Refresh (),o178:Setfocus()); Alias "Tipopago"; Itemfield "Codigo" ; Listfield "Descrip" //---------------------------------- STATIC FUNCTION Descuento(nDescuento, nTipopago) ? "nTipopago", nTipopago ...

... oNlab:setfocus() /* REDEFINE DBCOMBO oNlab VAR cnumlab ID 109 OF ODLG picture "@20(X)" COLOR "R+/BG+" ; alias "labor" itemfield labor->("cvelab") listfield labor->("descon") ; VALID Eval ( { || muelabar(CNUMLAB),vericta(cnumlab,ccvenva,yacap),vericap(cnumlab,ccvenva,yacap),; ...

... REDEFINE combobox oNlab VAR ctipo items afile2 ID 109 OF ODLG COLOR rgb(78,20,240),rgb(0,150,151) picture "@x(20)" ; alias "labor" itemfield "CVELAB" listfield "descon" ; VALID Eval ( { || (oNlab:settext(cnumlab)),vericta(cnumlab,ccvenva,yacap),vericap(cnumlab,ccvenva,yacap),; if ...

... REDEFINE combobox oNlab VAR ctipo items afile2 ID 109 OF ODLG COLOR rgb(78,20,240),rgb(0,150,151) picture "@x(20)" ; alias "labor" itemfield "CVELAB" listfield "descon" ; VALID Eval ( { || (oNlab:settext(cnumlab)),vericta(cnumlab,ccvenva,yacap),vericap(cnumlab,ccvenva,yacap),; if ...

... tambien en el VALID, para que en funcion de tu seleccion tengas el resultado que esperas, por otra parte el DBCOMBO tambien te sirve, utilizando ITEMFIELD, LISTFIELD para los arreglos de visualizacion y resultado saludos Marcelo

... ) REDEFINE RADIO oRad VAR nRad ID 101,102 OF oDlg ; WHEN oCbx:nAt > 2 UPDATE REDEFINE DBCOMBO oCbx2 VAR cCbx2 ID 104 OF oDlg ; alias oDEqu ; itemfield "CODIGO" ; listfield "DESCRI"; update WHEN oCbx:nAt > 2 .AND. nRad == 2 y este es el error: Error description: Error BASE/2022 Argument ...

... 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,))) ; itemfield "CODIGO" ; listfield "DESCRI"; update WHEN oCbx:nAt > 2 .AND. nRad == 2 pero no me carga nada de datos, como hacer para que seleccione ...

... REDEFINE CHECKBOX oCkb1 var vreq_pa ID 103 OF oDlg1 ON CLICK reg1( vreq_pa ) REDEFINE DBCOMBO oCbx VAR videntif ID 109 OF oDlg1 ; ALIAS "NOMB" ; ITEMFIELD "CODIGO" ; LISTFIELD "NOMB" REDEFINE BUTTONBMP oBoton1 ID 113 OF oDlg1 ; ACTION ( lSalvar := .T. , oDlg1:End() ) REDEFINE BUTTONBMP oBoton2 ...

... REDEFINE CHECKBOX oCkb1 var vreq_pa ID 103 OF oDlg1 ON CLICK reg1( vreq_pa ) REDEFINE DBCOMBO oCbx VAR videntif ID 109 OF oDlg1 ; ALIAS "NOMB" ; ITEMFIELD "CODIGO" ; LISTFIELD "NOMB" REDEFINE BUTTONBMP oBoton1 ID 113 OF oDlg1 ; ACTION ( lSalvar := .T. , oDlg1:End() ) REDEFINE BUTTONBMP oBoton2 ...

... <cMsg> ] ; [ WHEN <uWhen> ] ; [ BITMAPS <acBitmaps> ] ; [ ON DRAWITEM <uBmpSelect> ] ; [ ALIAS <cAlias> ] ; [ ITEMFIELD <cFldItem> ] ; [ LISTFIELD <cFldList> ] ; [ <list: LIST, PROMPTS> <aList> ] ; [ <noblank: NOBLANK>] ; [ ORDER ...

... Databaselab2002@yahoo.com.ar 0.2,5 DBCOMBO omarca VAR xmarca SIZE 80,80 OF odlg ; ON CHANGE(MARMODV(XMARCA,OMODELO,XMODELO)); ALIAS "MARCAS" ; ITEMFIELD "NAME" ; LISTFIELD "NAME" @ 1,3 SAY omarca Prompt "Codigo" OF odlg &&COLOR CLR_BLACK,CLR_5 @ 1,18 SAY olinea Prompt "Descripcion" ...

... := (cLinea)->LIN_LIN ELSE oDbf:LOAD() ENDIF ... ... REDEFINE DBCOMBO aGets[04] VAR oDbf:MOD_LIN ID 104 OF oDlg; UPDATE ALIAS (cLinea) ITEMFIELD "LIN_LIN" LISTFIELD "LIN_DES" Saludos, Armando

... class and the Combobox class was designed to use character data only. I received a number of requests to allow the use of numeric data for the itemfield value so I attempted to provide this capability, but the more I worked on it the more complicated it became. The problem is that the Combobox ...

... RecNo() + 1 ELSE nItemCode := 0 endif @ 0.5, 1 GET cName PICTURE "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" @ 1.5, 1 DBCOMBO oCbx VAR nItemCode ALIAS "TEST" ITEMFIELD "ITEMCODE" LISTFIELD "ITEMNAME" @ 2, 1 SAY nItemCode PICT '999' @ 3, 1 BUTTON obtn ACTION New_Rec(oCbx) ACTIVATE DIALOG oDlg CENTERED MsgInfo ...