FiveTech Software tech support forums

Code: Select all

index on &(AnsiUpper("PROVE->Calle")) tag &("Calle")

Code: Select all

index on &(Upper("PROVE->Calle")) tag &("Calle")

Code: Select all

index on PROVE->Calle tag &("Calle")

Code: Select all

 oLbx:bKeyChar := { | nKey, nFlags | ;
              iif (nKey == 43 .or. nKey == 65 .or. nKey == 97,;
                          (entreg(cTitulo,"A",aAlias,aoDbf), oLbx:Refresh()), ),;
              iif (nKey == 76 .or. nKey == 108,;
                          (Busca(aAlias[21],oLbx,oTab,tQbusco), oLbx:Refresh()), ),;
          iif (nKey == 66 .or. nKey == 98,;
                          (Borra1(aAlias),oLbx:UpStable(), oLbx:Refresh()), ),;
              iif (nKey == 77 .or. nKey == 109,  ;
                          (entreg(cTitulo,"M",aAlias,aoDbf),oLbx:Refresh() ), ) }

Code: Select all

//----------------------------------------------------------------------------//

function Busca(cAlias,oLbx,oTab,tQbusco,BusRaiz)
************************************************
local oDlg,aAlias
local oBusco,oboton
local oCbx,osay
local cBusco, cIndi
local nClave
local aIndi:={}
local nReg:=(cAlias)->(Recno())
DEFAULT BusRaiz:=""
aeval( tQbusco[3] , { |LX| aadd(aIndi,strtran(LX,"&")) } )
  DEFINE DIALOG oDlg RESOURCE "LOCALIZA2" BRUSH Publicas:oBrush1 TRANSPARENT Font Publicas:oWPpal:ofont
  REDEFINE SAY osay ID 10 OF oDlg COLOR CLR_GREEN
  REDEFINE GET oBusco VAR cBusco  ID 100 OF oDlg ;
       ON CHANGE ( nClave:=( cAlias )->(recno()),;
              ::Assign(),;
              iif( (cAlias)->(dbseek(Upper( Substr(cBusco, 1,::nPos -1)))), .T. ,;
                   ( (cAlias)->( dbGoto ( Recno() )), .f.) ),oLbx:Refresh(),;
                  iif (Chr(nKey)=13,oDlg:End(),.T.))
  REDEFINE COMBOBOX oCbx VAR aIndi[oTab:nOption] ITEMS aIndi ID 101 OF oDlg ;
           ON CHANGE (oTab:nOption:=oCbx:nAt,oTab:refresh(),;
        cBusco:=tQbusco[2,oCbx:nAt], ;
        (cAlias)->(OrdSetFocus(tQbusco[1,oCbx:nAt])),oLbx:Refresh(),;
        oBusco:Refresh(), oBusco:setFocus(), oDlg:Update() )
  REDEFINE BUTTON oboton ID 102 OF oDlg PROMPT "Aceptar" ;
                ACTION oDlg:End() CANCEL

  ACTIVATE DIALOG oDlg CENTERED ON INIT Tget():lClrFocus:=.T.
  if Busraiz='C' .or. Busraiz='S'
  cbusco:=alltrim(cbusco)
  obusco:blostfocus := {||oDlg:End()}
  else
  cBusco:=tQbusco[2,oTab:nOption]
  cIndi :=aIndi[oTab:nOption]       
  endif
return cbusco
//------------------------------------------------
 

Code: Select all

    ISLOWER()
    ISUPPER()
 

Code: Select all

FUNCTION MAISCULA()

   PARAMETERS VDBF

   IF VDBF = NIL

      ? "Informe o nome do DBF"

      QUIT

   ELSE

      IF !( "." $ VDBF )
         VDBF := VDBF + ".DBF"
      ENDIF

      IF !FILE( VDBF )
         ? "Arquivo " + VDBF
         QUIT
      ENDIF

   ENDIF

   SELE 1
   USE ( VDBF )

   IF !FILE( "DBF.OLD" )
      COPY TO "DBF.OLD"
   ENDIF

   VQCAM := FCOUNT()

   CAR_OLD := { "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", " ", "‚", "¡", "¢", "£", "Æ", "ä", "ƒ", "ˆ", "Œ", "“", "–", "…", "Š", "", "•", "—", "„", "‰", "‹", "”", "", "‡", "¤", "µ", "", "Ö", "à", "é", "Ç", "å", "¶", "Ò", "×", "â", "ê", "·", "Ô", "Þ", "ã", "ë", "Ž", "Ó", "Ø", "™", "š", "€", "¥" }

   CAR_NEW := { "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "A", "E", "I", "O", "U", "A", "O", "A", "E", "I", "O", "U", "A", "E", "I", "O", "U", "A", "E", "I", "O", "U", "€", "¥", "A", "E", "I", "O", "U", "A", "O", "A", "E", "I", "O", "U", "A", "E", "I", "O", "U", "A", "E", "I", "O", "U", "€", "¥" }

   DO WHILE ( 1->( !EOF() ) )

      FOR I = 1 TO VQCAM

         VGET := FIELDGET( I )

         IF VALTYPE( VGET ) = "C"

            VQTAM := LEN( ALLTRIM( VGET ) )
            VPOE := .F.
            VTXT := ""

            FOR U = 1 TO VQTAM

               VSUB := SUBSTR( VGET, U, 1 )
               VP := ASCAN( CAR_OLD, VSUB )

               IF VP > 0
                  VCAR := CAR_NEW[VP]
                  VPOE := .T.
               ELSE
                  VCAR := VSUB
               ENDIF
               VTXT := VTXT + VCAR
            NEXT

            IF VPOE = .T.
               FIELDPUT( I, VTXT )
            ENDIF

         ENDIF

      NEXT

      SKIP

   ENDDO
   /*
   WIN_CAR_LOW:='áéíóúãõâêîôûàèìòùäëïöüçñ'
   WIN_CAR_HIG:='ÁÉÍÓÚÃÕÂÊÎÔÛÀÈÌÒÙÄËÏÖÜÇÑ'

   DOS_CAR_LOW:=' ‚¡¢£Æ䃈Œ“–…Š•—„‰‹”‡¤'
   DOS_CAR_HIG:='µÖàéÇå¶Ò×âê·ÔÞãëŽÓØ™š€¥'
   */

RETURN NIL