FiveTech Software tech support forums

Code: Select all

#include "fiveWin.ch"
#include "xbrowse.ch"

static oBrw, cBuscador
/*******************************************************************/
function Departamentos()
   local oCol, cQuery, oDatos, oDlg
   LOCAL aBtn := array( 8 )
   local oBoton1, oBoton2
    local oDeptos, oFont1
    local oEsperar := Esperar("Cargando departamentos ..... espere por favor ...")

   cBuscador := ''

   IF oMysql:netErr()
      MSGINFO( cMensajeSql, cProgram )
      RETURN NIL
   ENDIF


   DEFINE FONT oFont1 NAME 'MS Sans Serif'   SIZE 0,-10 BOLD

   oDeptos := oMysql:Query( "SELECT * FROM departamentos ORDER BY nombre ")

   IF oDeptos:netErr()
      MSGINFO( cMensajeSql + ' [departamentos]', cProgram )
      RETURN NIL
   ENDIF


    oEsperar:end()
   DEFINE DIALOG oDlg RESOURCE "DEPTO0" TITLE "Catalogo de Departamentos"
   oDlg:lHelpIcon := (.f.)


   oBrw := TxBrowse():New(oDlg)
   SetMyBrwSql( oBrw, oDeptos )



   oCol := oBrw:AddCol()
   oCol:bStrData      := { || strzero(MyCampo(oDeptos,"codigo"),3) }
   oCol:cHeader       := "Código"


   oCol := oBrw:AddCol()
   oCol:bStrData      := { || MyCampo(oDeptos,"nombre") }
   oCol:cHeader       := "Descripción"


   oCol := oBrw:AddCol()
   oCol:bStrData      := { || transform(MyCampo(oDeptos,"descuento"),'999%') }
   oCol:cHeader       := "% descuento"
    oCol:nDataStrAlign := AL_RIGHT
   oCol:oDataFont     := oFont1



   oBrw:CreateFromResource(101)


   oBrw:bKeyDown     := { | nKey | MisTeclas( nKey, oBrw, oDeptos ) }

   oBrw:aCols[ 03 ]:bClrStd := {|| { iif( oDeptos:fieldGet('descuento') > 0, CLR_RED,  CLR_WHITE), CLR_WHITE } }  // nombre


   oBrw:bClrHeader := { || {CLR_MAGENTA,CLR_WHITE }}
   oBrw:bClrFooter := { || {CLR_GREEN,CLR_WHITE } }
   oBrw:bClrSel    := { || {CLR_CYAN,CLR_WHITE } }


    ACTIVATE DIALOG oDlg CENTER ON INIT CreaBarra(oDlg, oDeptos)
    oDeptos:end()
    oDeptos := NIL
   oFont1:end()
  RETURN NIL

static function CreaBarra(oDlg, oDeptos)
 return nil



/*******************************************************************/


static function MisTeclas( cSeek, oBrw, oDeptos )
    local cTecla := chr(cSeek)
    local cChar := upper(cTecla)
    local oDlg, oFont, oGet1

    cBuscador := cBuscador + cChar

    local oBuscar :=   oMysql:Query( "SELECT * FROM departamentos ORDER BY nombre WHERE nombre LIKE '" + cBuscador + "'%'")

    oBrw:Refresh()
    oDeptos:refresh()

        // en esta parte de aqui, es donde deberia asignarle la nueva data al browse, pero no doy con bola

return nil
 

Code: Select all

static function MisTeclas( cSeek, oBrw, oTabla, oSay )
    local cTecla := chr(cSeek)
    local cChar := upper(cTecla)

    IF cSeek == VK_BACK .OR. cSeek == VK_ESCAPE
        cBuscador := ''
           oSay:setText(cBuscador)
          oTabla:cQuery := "SELECT * FROM vendedores ORDER BY nombre"
               oTabla:refresh()
             oBrw:refresh(.t.)
        return nil
    ENDIF

    IF cSeek == VK_RETURN  // Edicion del vendedor
        cBuscador := ''
           oSay:setText(cBuscador)
        AddDeptos(.f., oTabla)
        oTabla:refresh()
        oBrw:refresh()
    ENDIF
    IF cSeek == VK_INSERT         // agregar vendedor
        cBuscador := ''
            oSay:setText(cBuscador)
        AddDeptos(.t., oTabla)
    ENDIF
    IF cSeek == VK_DELETE            // borrar vendedor
        cBuscador := ''
            oSay:setText(cBuscador)
        deleteVendedor(oTabla)
    ENDIF


    if cSeek >= 30 .AND. cSeek <= 132
         cBuscador := cBuscador + cChar
    else
         return nil
        endif
    
        oSay:setText(cBuscador)

       // aqui esta el truco =====, pueden usar LIKE   con % al inicio y final,     si lo ponemos al inicio y final es como
       // contenido en $ de Clipper, si lo ponemos solo al inicio ira tomando _ al inicio
       // tambien se puede usar LEFT( nChar)
    oTabla:cQuery := "SELECT * FROM vendedores WHERE nombre LIKE '%" + cBuscador + "%'"

    oTabla:gotop()
   oTabla:refresh()
   oBrw:refresh(.t.)

return nil

 

Code: Select all

...
   oBrw:bSeek        := { | c | Busca(c,oRs) }
   oBrw:oSeek        := oSay
   oBrw:SetAdo(oRs)
   ...
//---------------------------------
STATIC FUNCTION Busca(cBuscar,oRs)
   LOCAL nLen:=Len(cBuscar)
   STATIC nLenAnt
   DEFAULT nLenAnt:=0
   IF Len(cBuscar)>1
      IF(nLenAnt>nLen,oRs:MoveFirst(),)
      oRs:Find( "CliDes LIKE '"+cBuscar+"*'",,1)
   ELSE
      oRs:MoveFirst()
      IF !Empty(cBuscar)
         oRs:Find( "CliDes LIKE '"+cBuscar+"*'",,1)
      ENDIF
   ENDIF
   nLenAnt:=nLen
RETURN !(oRs:Eof.OR.oRs:Bof)