oque pode estar errado
obs. no clipper funciona perfeitamente
erro
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)
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
prg
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)
