Code: Select all | Expand
index on &(AnsiUpper("PROVE->Calle")) tag &("Calle")Code: Select all | Expand
index on &(Upper("PROVE->Calle")) tag &("Calle")Code: Select all | Expand
index on PROVE->Calle tag &("Calle")
wbrowse by Jose Luis GarciaCode: Select all | Expand
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 | Expand
//----------------------------------------------------------------------------//
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 | Expand
ISLOWER()
ISUPPER()
joao by Jose Luis Garcia, en Flickr Code: Select all | Expand
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