PC Toledo

Código: Selecionar todos

Filtro na base de dados:numero=inota
Erro BASE/1068  Argument error: array access
Chamada de :-_erro.prg
(b)TDATACACHE:TDATACACHE(171)
Chamada de :-tbrowse.prg  
TDATACACHE:GETCELLCOLOR(0)
Chamada de :-tbrowse.prg 
TBROWSE:DISPCELL(2750)
Chamada de :-tbrowse.prg 
TBROWSE:HILITE(2717)
Chamada de :-tbrowse.prg  
TBROWSE:PERFORMSTABILIZATION(2343)
Chamada de :-tbrowse.prg    
TBROWSE:FORCESTABLE(2202)
Chamada de :-tbrowse.prg    
DBEDIT(255)
Chamada de :-dbedit.prg     
ALTE36(169)
Chamada de :-ALTE36.prg     
(b)IPE10(67)
Chamada de :-IPE10.prg      
DWNEXECUTE(1246)
Chamada de :-               
DOWNMENU(998)
Chamada de :-vlib.prg       
BAREXECUTE(745)
Chamada de :-               
BARMENU(591)
Chamada de :-vlib.prg       
IPE10(154)
Chamada de :-IPE10.prg      
ATUALIZA(39)
Chamada de :-ATUALIZA.prg   
HOSPITA(181)
Chamada de :-HOSPITA.prg    
MAIN(20)
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ

Código: Selecionar todos

set filter to numero=inota
         go top
         set color to n/w,w+/b
         @ 02,00 clear to 22,79
         @ 22,00 SAY PADC("[INSERT] INCLUI [ENTER] ALTERA [DELETE] EXCLUI",80) COLOR "W+/R"
         xti = {"MATRICULA","PACIENTE","EXAME","QTDE","TOTAL","DATA","FRANQUIA","LABORATORIO"}
         xda = {"MATRICULA","SUBSTR(PACIENTE,1,25)","HONORARIO","QUANTIDADE","TOTAL","DATA","FRANQUIA","LABORATO"}
         xma = {"9999999999999","@!","99999999","99","@RE 999.99","99/99/9999","99","99999"}
         dbedit(02,01,21,79,XDA,"chama_alte",XMA,XTI,,)


FUNCTION CHAMA_ALTE
local xnome,salva,salva1
parameters modo,coluna
do case
case modo = 2
   save screen to salva
   tone(650,3)
   MSGBOX3D1("FINAL DE ARQUIVO")
   set color to
   restore screen from salva
   return(1)
case modo = 4
   do case
   case lastkey() = 27
      return(0)
   case lastkey() = 7
      sele 2 
      IF RECLOCK(0)
         DELE
         COMMIT
         UNLOCK
      ENDIF
      xtotlan=xtotlan-1
      return(2)
   case lastkey() = 22
      inc_l36()
      return(2)
   case lastkey() = 13
      alt_l36()
      RETURN(2)
   endcase
   return(1)
endcase
return(nil)