FiveTech Software tech support forums

Buenas

Gracias por contestar

Como te digo anteriormente, los espacios los tengo quitados en norden, el problema es que no se como quitarlos en "no_pedido", ya que es un campo de una tabla.

... tengo que quitar los espacios. Si pongo oRs:Find("no_pedido"..... etc, no lo encuentra, ya que no_pedido es " 1234537", y norden es "1234567", entonces no se donde poner el trim en el Find como te comento anteriormente, a fin de que busque en la columna no_pedido, ...

Hola, si la búsqueda la haces por un campo numérico no necesitas las comillas simples. Prueba a hacer oRs:Find("no_pedido="+norden)? oRs:Fields("no_pedido"):Value, oRs:Eof Si lo ha encontrado te mostrará en pantalla el valor norden y .f. para el Eof. En este ...

Creo que necesitas añadir unas comillas simples, porque la variable norden es un String.

Code: Select all  Expand view

     oRs:Seek("no_pedido="+"'" + norden + "'")

... 9200 Time from start: 0 hours 0 mins 26 secs Error occurred at: 02/08/2017, 10:42:55 Error description: Error BASE/1004 Message not found: TPANEL:NORDEN Args: [ 1] = O TPANEL Stack Calls =========== Called from: => __ERRRT_SBASE( 0 ) Called from: ../../../tobject.prg => TPANEL:ERROR( 0 ) ...

... Build 9200 Time from start: 0 hours 0 mins 0 secs Error occurred at: 10/11/15, 22:18:53 Error description: Error BASE/1004 No existe el método: NORDEN Args: [ 1] = U Stack Calls =========== Called from: => NORDEN( 0 ) Called from: fivedit.prg => TFIVEDIT:OPENFILE( 2467 ) Called from: fivedit.prg ...

... nRecs ) } oLbx:nLineStyle := 3 oLbx:lAdjlastcol:= .F. oLbx:nClrBackFocus := CLR_CYAN oLbx:nClrForeFocus := CLR_WHITE REDEFINE RADIO oRad VAR nOrden ID 108, 107, 112 OF oDlg; ON CHANGE Orden(nOrden,oLbx,oMae,oMemos,oDomcli,oClitrans) // Al detectar un cambio se ejecutar  la funci¢n REDEFINE ...

Adhemar.... Tienes 2 opciones... DbSetOrder( [<nOrden>] ) OrdSetFocus( [<nOrder>|<cIndexName>], [<cIndexFile>] ) La segunda es la que actualmente soporta xHarbour, la primera quedo solo por compatibilidad con versiones anteriores ...

... Function AMB() //oWnd, oMySQL, oDBase) local oSalir, oNuevo, oModif, oImpri, oElimi, tCargalocal, oDlg, oLbx, oDatos, eDatos, oOrden local nOrden, oAlgo, lAlgolocal, aCol, oBrw, cQuery, nCont, nLen, aListaaCol := ARRAY(2) LOCAL cTablas:="",aTablas:={}, n:=0, cCmdSql if oMySQL:TableExist( ...

... borland Luis Ejemplo ( no funciona ) FUNCTION Brwprove //principal del programa LOCAL oLbx LOCAL oDlg, oSplit := array(2) LOCAL oRadioButton LOCAL nOrden:=1 LOCAL onbut := array(6) LOCAL surge LOCAL oMae Local cTitulo := "Listado de proveedores locales" LOCAL aObj := array(0) LOCAL oBanpro ...

... 0 bytes el codigo es : #include "TSBrowse.ch" #include "FiveWin.ch" #Include "Btnget.ch" FUNCTION Prg_101() LOCAL oLbx1, oBrw LOCAL oDlgFam LOCAL nOrden :=1 LOCAL vOrden := {"Codigo","Nombre"} LOCAL lOk := .F. LOCAL oSay Local Ofont1, Ofont2,cMensaje,oMensaje,oFont3 Local oGet,cGet,oCol cGet := ...

... "+(AliasVta)->ITEM,(AliasVta)->ARTICULO,(AliasVta)->(Alias()),oDlgFPC,oTotal,nOrden),PieVta2((AliasVta)->(Alias()),oTotBse,oTotIgv,oTotal,oTotDes,oSayPiezas,oSayPeso,oSayLineas,oNroCmptes,nMaxDoc)),) ) ; FONT oFntArial03 ; ...

... "+(AliasVta)->ITEM,(AliasVta)->ARTICULO,(AliasVta)->(Alias()),oDlgFPC,oTotal,nOrden),PieVta2((AliasVta)->(Alias()),oTotBse,oTotIgv,oTotal,oTotDes,oSayPiezas,oSayPeso,oSayLineas,oNroCmptes,nMaxDoc)),) ) ; FONT oFntArial03 ; ...

... de perdido ?? #include "FiveWin.ch" #include "InKey.ch" #include "xbrowse.ch" FUNCTION Prg_100() LOCAL oLbx1 LOCAL oDlgGrupo, oFont, oFont2 LOCAL nOrden :=1 LOCAL vOrden := {"Codigo","Nombre"} LOCAL lOk := .F. Local cMensaje,oMensaje,oFont3 lOCAL oBot1,oBot2,oBot3,oBot4,oBot5,oBot6 Select 02 use ...

... ) ::oFnt_8:End() ::oFnt_10B:End() ::oFnt_10:End() Self := Nil Return Self METHOD New( JuvaArra, nNUMEFACT, lSINOprevisual ) CLASS TFACTUA1 Local nOrden := 0 Local aFiltro := { 1, "Sense Filtre", "Recno()>0", JuvaArra[1][2][48][3] } Local lRest := .F. ::ArraJuva := JuvaArra ::FileBmp := ::ArraJuva[1][2][43][3] ...