FiveTech Software tech support forums

... := if(agrega,'Agregó el Material '+alltrim(cdetalle),'Modifico el Material '+alltrim(cDetalle)) dbcommitall() endif Materia->(dbsetorder(queor)) Materia->(DbGoTop()) return NIL *----------------------------------------------------------------------------------------------------------// ...

... IF FILE(cPatTab+cNomArc) IF SELECT (cAliTab) <> 0 SELECT (cAliTab) // POR SI LA TABLA TIENE INDIXE Y NO SE ABRIO (cAliTab)->( DBSETORDER(1) ) ENDIF ENDIF ENDIF // YA EN LA LOGICA LO CAMBIO SEGUN NECESIDAD : (cAliTab)->( DBSETORDER(X) )

Buena tarde, el método oRecSet:setOrder, permite usar má de columna ...?
La idea es no gastar mas consultas a base de datos para traerla ordenado , tratando de simular al v Dbsetorder de los dbf. Gracias...

... OPCMENU->(DbEval({|| aadd(TablaMnu,{Orden,Tipo,Opcion,Mensaje,Accion,Imagen}) }; ,{|| !deleted() }; ,{|| !eof() })) elseif PERFILFW->(DbSetOrder(1),dbseek(cript(Usuari))) // aca lleno la tabla TablaMnu con las opciones permitidas PERFILFW->(DbEval({|| if( OpcMenu->(DbSetOrder(1),Dbseek(PERFILFW->Clave)),; ...

... productos. me podrán ayudar o indicarme como se puede hacer para que BTN_ACTION tome o se coloque el código del producto. SELECT 3 PRODUCTOS->(DBSETORDER(1)) nProc := 1 cBcod:=1 SET FILTER TO ITEM13 = "BEBIDA" PRODUCTOS->(DBGOTOP()) IF ! PRODUCTOS->(EOF()) WHILE ! PRODUCTOS->(EOF()) ...

... SWPanelClose( oPan ) ? 'Tempo da leitura dos registros: ' + CRLF +; ElapTime(cTime,TIME()) + CRLF +; NETNAME() SELECT MULTIFUN MULTIFUN->(DBSETORDER(1)) MULTIFUN->(DBGOTOP()) MULTIFUN->(DBSEEK("00132")) ? MULTIFUN->NOMFUN , MULTIFUN->CODFUN SELECT 1 MULTIFUN->(DBSETORDER(1)) ...

JoseLuis wrote:

Code: Select all  Expand view

(aAlias[24])->(Ordsetfocus(nindex))
(aAlias[24])->(Dbgotop())
RETURN NIL
 

y si le pones
(aAlias[24])->(dbsetorder(nindex))

... },VK_RETURN,"<Return>"},; {"Ind1-9.bmp" ,"Orden por Código " , "x Código" , {|| (Consorc->(DbSetOrder(1)),oBrw:SetFocus(),oBrw:refresh(),oDlg:ctitle:='Consprcios ( Ordenado x Código )',oDlg:Refresh()) },VK_C,"<C>" },; {"IndA-Z.bmp" ...

... 'OCLASS' tester.prg(130) Warning W0001 Ambiguous reference 'NSCOPE' tester.prg(197) Error E0019 #error 'Invalid instance variable name <->(dbsetorder("code"))>' tester.prg(197) Error E0030 Syntax error "syntax error at '->'" tester.prg(197) Warning W0001 Ambiguous ...

... ? COUNT TO nRegistros si DBCLEARFILTER si DbDelete si DbDelete() si DbGoBottom() si Dbgoto( nregistro ) si Dbseek( nCodigo ) si dbSelectArea si DbSetOrder(1) si DBSKIP si DBSKIP() ? DELETE ALL FOR EMPTY( FIELD->CODIGO ) .AND. EMPTY( FIELD->NOMBRE ) si EOF si FIELD->CODIGO si Fieldget ...

... oT:aDat[1] is the number of the invoice now with xbrowse how do I have to do to show only the lines that are of that invoice? SELECT TB TB->(DbSetOrder(1)) TB->( OrdScope(0, { || oT:aDat[1] })) TB->( OrdScope(1, { || oT:aDat[1] }) ) TB->(DbGoTop()) aBrowse     :=  {{"PAITEM" ...

... if nIngReg=1 .or. lPasar aIng:=array(2) aIng:={1,Space(30)} lPasar:=.F. endif if ContarReg(BEN)>0 nInd:=Benefi->(Indexord()) Benefi->(dbSetorder(1)) Benefi->(dbGoBottom()) aIng[1]:=Benefi->(Fieldget(2))+1 Benefi->(dbSetorder(nInd)) endif DEFINE DIALOG oDlg RESOURCE "INGBEN" ...

... me about relational brooms but I've never done it and for me it's a difficult thing. in the single user version I simply did: SELECT PA PA -> (DbSetOrder (1)) PA -> (OrdScope (0, {|| alltrim ((cNumCli))})) PA -> (OrdScope (1, {|| alltrim ((cNumCli))})) PA -> (DbGoTop ()) xbrowse ...

... to whom I made the software application. In the old management (dbf share) I created the customer code in this way: IF lNew (ODCli) -> (DbSetOrder (1)) (ODCli) -> (DbGoBottom ()) CCLI: = StrZero (Val ((oDCli) -> NumCli) +1.4) (ODCli) -> (DbGoTo (NREC)) (here the other fields) ...

I made allways servizi->(dbsetorder(number_of_index))
why now I must make servizi->(dbsetorder(tagname))
Incredible!!!!