PC Toledo

Ola clippeiro!!!

Estou com um problema com a funcao dbedit: Ex:

* Alta paciente

Codigo, 001 Dt Int. 01/01/2005 Dt alt. 15/01/2005

Nome: dfsafasfsafsa

Motivo da Alta: -> abre uma caixa com o Dbedit Eu escolha o que eu quero o programa aborta neste get, o que pode ser.

linha de comando e essa:


@18,02 say 'Motivo da Alta : 'get xcausa pict '@!' valid altas(xcausa)

read


Desde ja agradeco sua atencao
t+

Ta pra vc por algumas linha do programa para analizarmos
se este get estiver em uma funcao coloque esta linha no inicio da funcao
Private GetList:= {}

Boa Noite!!!

O fonte e muito grande OK

***********************************

clear
close all
set bell off
set talk off

do while .t.

select 10
if netuse("usuario.mem",.f.,10)
set index to usuario
else
return
endif

select 4
if netuse("intpac",.f.,10)
* set index to intend, intpro, intnom, interd
set index to altapac
else
msgar()
return
endif

* do while .t.
select 4
clear

telainc("Alta do Paciente")
@23,00 say space(79)
@23,26 SAY ' F4 - Cidade / F5 - Medico'

set color to &cor21
sn=' '

xproto=0
xdatae=ctod("")
@04,02 say 'Pront.' get xproto pict '9999999999'
@04,55 say 'Data Emissao' get xdatae
read

if lastkey()=27 .or. empty(xproto)
return
endif

seek str(xproto)+dtoc(xdatae)

if .not. found()
msgnc()
loop
endif

xalta=date()
if rlock()
xsenha = senha
xdatae = xdatae
xpaciente = paciente
xsexo = sexo
xcor = cor
xdatan = datan
xec = ec
xnac = nac
xendereco = endereco
xlocal = local
xcidade = cidade
xcep = cep
xuf = uf
xdoc = documento
xtelefone = telefone
xprofissao = profissao
xpai = pai
xmae = mae
xresponsavel = resp
xendereco1 = endereco1
xlocal1 = local1
xcidade1 = cidade1
xcep1 = cep1
xuf1 = uf1
xdoc1 = documento1
xtelefone1 = telefone1
xdataa = dataa
xhora = hora
xentidade = entidade
xdatal = datal
xmatricula = matricula
xcategoria = empresa
xcod = cod
xvinc = vinc
xcarat = carat
xTitular = Titular
xmedico = medico
xcentro = centro
xquarto = quarto
xleito = leito
xespec = espec
xdiag = diag
xfunciona = funciona
xgrupo = grupos
xrh = rh
xnatural = natural
xcarne = carne

datahoje=date()
@04,25 say 'Alta Paciente' get xalta

@05,02 say 'Paciente'get xpaciente pict '@!s25'
@05,37 say 'Sexo' get xsexo pict '@!'
@05,44 say 'Cor' get xcor pict '@!'
@05,50 say 'D.N.' get xdatan valid datahoje > xdatan
@05,66 say 'E.c.'get xec pict '@!'
@05,73 say 'Nac.'get xnac pict '@!'

@06,02 say 'Endereco' get xendereco pict '@!s25'
@06,37 say 'Local' get xlocal pict '@!'
@06,50 say 'Cidade' get xcidade pict '@!'

@07,02 say 'CEP' get xcep pict '99999-999'
@07,16 say 'UF'get xuf pict '@!'
@07,22 say 'Documento' get xdoc pict '@!s11'
@07,44 say 'Telefone' get xtelefone pict '@!s8'
@07,63 say 'Profissao' get xprofissao pict '@!s8'

@08,02 say 'Natural' get xnatural pict '@!'
@08,37 say 'Tipo ' get xgrupo pict '@!'
@08,50 say 'RH ' get xrh pict '@!'

@09,02 say 'Nome do Pai' get xpai pict '@!s25'
@09,41 say 'Nome da Mae' get xmae pict '@!s25'

@10,02 say 'Responsavel' get xresponsavel pict '@!'

@11,02 say 'Endereco' get xendereco1 pict '@!s25'
@11,37 say 'Local' get xlocal1 pict '@!'
@11,50 say 'Cidade' get xcidade1 pict '@!'

@12,02 say 'CEP' get xcep1 pict '99999-999'
@12,16 say 'UF' get xuf1 pict '@!'
@12,22 say 'Documento' get xdoc1 pict '@!s11'
@12,44 say 'Telefone' get xtelefone1 pict '@!s8'
@12,63 say 'D.Ad.' get xdataa

@13,02 say 'Hora' get xhora
@13,13 say 'Entidade' get xentidade pict '@!s25'
@13,48 say 'D. Laudo' get xdatal

@14,02 say 'No Matr.' get xmatricula pict '@!s10'
@14,23 say 'Empresa' get xcategoria pict '@!s10' valid categoria(xcategoria)
@14,43 say 'Cond.' get xcod pict '@!'
@14,56 say 'Vinc.' get xvinc pict '@!'
@14,68 say 'Carat' get xcarat pict '@!'

@15,02 say 'Titular' get xtitular pict '@!s25'
@15,41 say 'Medico' get xmedico pict '@!s25'

@16,02 say 'Centro C.' get xcentro pict '@!s25'
@16,38 say 'Quarto' get xquarto pict '@!'
@16,51 say 'Leito' get xleito pict '@!'
@16,63 say 'Espec.' get xespec pict '@!'
@17,02 say 'Diagnostico' get xdiag pict '@!'
@18,02 say 'Motivo da Alta : 'get xcausa pict '@!' valid altas(xcausa)
@18,50 say 'Carne Hosp.:' get xcarne pict '999999'
@19,02 say 'Funcionario:' get xfunciona pict '@!' valid usa(xfunciona)
read
@23,00 say space(79)
@23,20 say 'Confirma a Alta do Paciente (<S>im/<N>ao)?' get sn pict '!' valid sn $ "SN"
read

if sn='N'
close all
return
endif

if sn='S'
select 4
tempo(23,01)
setcolor(cor1)
replace proto with xproto
replace dataalta with xalta
replace senha with xsenha
replace datae with xdatae
replace paciente with xpaciente
replace sexo with xsexo
replace cor with xcor
replace datan with xdatan
replace ec with xec
replace nac with xnac
replace endereco with xendereco
replace local with xlocal
replace cidade with xcidade
replace cep with xcep
replace uf with xuf
replace documento with xdoc
replace telefone with xtelefone
replace profissao with xprofissao
replace pai with xpai
replace mae with xmae
replace resp with xresponsavel
replace endereco1 with xendereco1
replace local1 with xlocal1
replace cidade1 with xcidade1
replace cep1 with xcep1
replace uf1 with xuf1
replace documento1 with xdoc1
replace telefone1 with xtelefone1
replace dataa with xdataa
replace hora with xhora
replace entidade with xentidade
replace datal with xdatal
replace matricula with xmatricula
replace empresa with xcategoria
replace cod with xcod
replace vinc with xvinc
replace carat with xcarat
replace Titular with xTitular
replace medico with xmedico
replace centro with xcentro
replace quarto with xquarto
replace leito with xleito
replace espec with xespec
replace diag with xdiag
replace carne with xcarne
replace grupos with xgrupo
replace rh with xrh
replace natural with xnatural
replace internacao with "A"
replace funciona with xfunciona
commit
unlock
endif
endif
loop
enddo


OBS: No Alta ele abre um outro dbf, para pegar o que eu preciso ok, e valta para o mesmo dbf, com o select ok t+

Ele aborta o programa sem mensagem de erro ??

vc nao colocou o exemplo da funcao altas() e a onde esta dando o erro

Ola Clippeiros!!!!!!!!!!!!!!!!!

esta a a funcao


function altas()
select 3
if netuse("altas",.t.,10)
else
endif
save screen to tela
set color to w+/r,n/w,,,w+r
@14,14 clear to 20,40
@15,15 to 20,40 double
dbedit(14,16,19,39)
xcausa=tipo
set color to
restore screen from tela
return .t.


a funcao e simples mais o erro e horrivel

t+