PC Toledo

Código: Selecionar todos

case tempo = K_F6
       dbgotop()
       incr:= space(20)
       h1:=SaveScreen(00,00,24,79)
       DbgShadow(05,42,09,76)
       @ 05,42,09,76 box B_SINGLE + space(1) colo "g+/g"
       @ 06,43 say padc("ExpressÆo p/ pesquisar",32) colo "w+/g"
       @ 08,49 get incr colo "gr+/n*" pict "@!" 
       set curs on
       read
       set curs off
       do while !eof()
            if busca(@incr)
               @ 05,42,09,76 box B_SINGLE + space(1) colo "r+/r"
               @ 07,43 say padc(chr(25)+ " p/ avan‡ar    ESC - Sa¡da",32)
                tone(333,.1)
                inkey(0)
                if lastkey() = 24
                   skip
                elseif lastkey() = 27
                   exit
                endif
             else
                skip
             endif
       enddo
       @ 05,42,09,76 box B_SINGLE + space(1) colo "b+/b"
       @ 07,43 say padc("Final da Pesquisa",32) colo "w+/b"
        tone(44,6)
        RestScreen(00,00,24,79,h1)
        cTb3:RefreshAll()
        loop

Código: Selecionar todos

Function Busca(arg)
if at(alltrim(arg),clinom) > 0
   Destaca(cTb3)
   cTb3:stabilize()
   MostraC()
   return .t.
else
   return .f.
endif

Código: Selecionar todos

mtamanho=25
hfil_ope1 = '='
hfil_cod1 = space(mtamanho)
hcolor = SETCOLOR(cor[5])
@ mlin_sup-1,mcol_sup+01 SAY '['+SPACE(30)+']'
@ mlin_sup-1,mcol_sup+02 get hfil_ope1 pict '!' valid critletra(hfil_ope1,'=#',['=' - Igual  ou  '#' - Diferente])
@ mlin_sup-1,mcol_sup+04 get hfil_cod1 pict '@!'
SETCOLOR(hcolor)
ex_read()
set key K_TAB to udf_tab
if lastkey()=K_ESC
   RESTSCREEN(mlin_sup-1,mcol_sup,mlin_sup-1,mcol_inf,buffer)
   return(1)
endif
private v_fil:={},v_fil1:={}
for x=1 to mtamanho
   xpedaco=substr(hfil_cod1,x,1)
   if !empty(xpedaco)
      aadd(v_fil1,{x,xpedaco})
   endif
next
aviso('Filtrando Registros...')
xreg_ant=recno()
select DOCUMENT
go top
do while !eof()
   if pode_filtro(substr(doc_origem,1,mtamanho),hfil_ope1,hfil_cod1,v_fil1)
      aadd(v_fil,{cod_doc,nr_rev,titulo,titulo2,titulo3,cod_end,cod_end3,cod_end2})
   endif
   skip
enddo

private xhead[8],xwidt[8],xmypi[8],eyerow
xhead[1]='Codigo'
xwidt[1]=15
xmypi[1]=memvar->mask_doc
xhead[2]='Rev'
xwidt[2]=03
xmypi[2]='@!'
xhead[3]='Titulo'
xwidt[3]=50
xmypi[3]='@!'
xhead[4]='Titulo - Continuacao'
xwidt[4]=50
xmypi[4]='@X'
xhead[5]='Titulo - Continuacao'
xwidt[5]=50
xmypi[5]='@X'
xhead[6]='Original'
xwidt[6]=len(mask_ende)-3
xmypi[6]=mask_ende
xhead[7]='Copial'
xwidt[7]=len(mask_ende)-3
xmypi[7]=mask_ende
xhead[8]='Digital'
xwidt[8]=len(mask_ende)-3
xmypi[8]=mask_ende

mexc=abrowse(.t.,.f.,.t.,.f.,.f.,"",1,v_fil,mlin_sup,mcol_sup,22,78,xhead,xwidt,xmypi,{|t,l,c| gt_help(t,l,c)},,,.t.,,,{K_F6})
if mexc=K_ESC
   go xreg_ant
   RESTSCREEN(mlin_sup-1,mcol_sup,mlin_sup-1,mcol_inf,buffer)
   return(1)
else
   set order to 1
   seek v_fil[eyerow,1]
   set order to mind_old
   RESTSCREEN(mlin_sup-1,mcol_sup,mlin_sup-1,mcol_inf,buffer)
   return(1)
endif

               
function pode_filtro
para mcampo,moperador,mfiltro,v_fil
private mpode:=.t.,x
if !empty(mfiltro)
   mpode=iif(moperador='=',.t.,.f.)
   for x=1 to len(v_fil)
      if substr(mcampo,v_fil[x,1],1)#v_fil[x,2]
         mpode=iif(moperador='=',.f.,.t.)
         exit
      endif
   next
endif
return(mpode)

Código: Selecionar todos

Function Busca(arg)
dbgotop()
do while !eof() 
   if at(alltrim(arg),clinom) > 0
      cdtmp000->(dbappend())
      if neterr()
         loop
      else
         @ 08,65 say clicod pict "99999-9" colo "n/g"
         repl cdtmp000->tmpcod with clicod
         repl cdtmp000->tmpnom with clinom
         repl cdtmp000->tmpcid with clicid
         repl cdtmp000->tmpusu with netname()
         cdtmp000->(dbcommit())
         cdtmp000->(dbunlock())
         skip
      endif
   else
      skip
   endif
enddo
return cdtmp000->(reccount())

Código: Selecionar todos

Function Brow_Incr
Private local1:=select(),local2:=indexord(),local3:=savescreen(06,03,24,78)
select cdtmp000
set order to 1
dbseek(trim(netname()))
set filter to tmpusu = trim(netname())
set color to "n/w","gr+/b",,,"g/w"
Win(06,03,22,76,"Consulta por parte do nome","w+/bg","bg/w")
@ 21,04 say padc("[ ENTER ] - Visualiza os dados do cliente.",71) colo "r/w"
vCon_ = "Cliente                                            Cidade"
pTb4:= TbColumnne(Vcon_, { || tmpnom + " " + tmpcid })
pTb3:= TbrowseDB(07,04,20,75)
pTb3:HeadSep:= "Ä"
pTb3:ColorSpec:= "n/w,gr+/b,n+/w,n+/n,n/w"
pTb4:DefColor:= {5}
pTb3:AddColumn(pTb4)
Do While .t.
   Do While !pTb3:Stabilize()
   Enddo
   tempo:= Inkey(180)
   Do Case
      Case Tempo = 0
           Protect()
           pTb3:RefreshAll()
           loop
      Case Tempo = K_DOWN
           pTb3:Down()
           Loop
      Case Tempo = K_UP
           pTb3:Up()
           Loop
      Case Tempo = K_PGUP
           pTb3:PageUp()
           pTb3:RefreshAll()
           Loop
      Case Tempo = K_PGDN
           pTb3:PageDown()
           pTb3:RefreshAll()
           Loop
      Case Tempo = K_ESC
           _rest(06,03,24,78,local3,9)
           set filter to
           dbseek(trim(netname()))
           do while !eof() .and. trim(tmpusu) = trim(netname())
              bloq(1)
              dele
              unlock
              skip
           enddo
           commit
           select(local1)
           set order to local2
           return
      case lastkey() = 13
           kkey:= tmpcod
           set filter to
           dbseek(trim(netname()))
           do while !eof() .and. trim(tmpusu) = trim(netname())
              bloq(1)
              dele
              unlock
              skip
           enddo
           commit
           _rest(06,03,24,78,local3,9)
           select(local1)
           set order to 1
           return kkey
      endcase          
enddo