Mostrar resultado da consulta

[Julio]

Relembrando a primeira mensagem :

Pessoal

Tenho duas tabelas uma contem as doenças e uma outra tabela que contem os codigo da doença e sintomas:

Tabela de Doença
Doenca sintomas
1 asma (1)
1 bronquite (3)
1 febre (5)
2 asma (1)
2 febre (5)
3 tremor (15)
3 nauseas (6)
Os numeros entre parenteses são os codigos dos sintomas.

Tabela (doenca_sintona) armazeno os codigos de referencia;
doença sintoma
1 1
1 3
1 5
2 1
2 5

Tenho um formulario onde o usuário escolhe os sintomas, por exemplo se escolher os sintomas asma e febre, tenho que mostrar as doenças que contem estes sintomas.
Neste caso teria que mostrar a doença 1 e 2.
Mas nao estou conseguindo relacionar e mostrar esta consulta.

Julio

[m@r<3|o]

mais ó seguiinte ....
esse lance ideal seria criar 3 tabelas onde poderia usar uma chamada diagnosticos doenca + sintoma poderia utilizar como trabalha com seek normal

autonumeracao 1 2 3 4 5 6 doencas
autonumeracao 1 2 3 4 5 6 sintomas
doenca + sintoma 1 - 1 1 - 2 2 - 1 2 - 2 tabela chamada diagonosticos

mesma coisa como se fosse ....
uma atribuicao de usuarios

usuarios = doencas
modulos = sintomas
atribuicao = diagnosticos doencas + sintomas

....

pensando bem ... voce fez um procedimento de cadastro grupal

voce crio um e depois incluiu outro com informacao do primeiro
mais, como o marcos disse seria assim

SELECT descdoenca, descsintoma, observacao ;
FROM tabelaDoenca , tabelasintoma ;
WHERE tabeladoenca.doença = tabelasintoma.doenca ;
into cursor cadlista

Report Form

ou mesmo daria certo ,

trabalhar como trabalha e usar assim um indice na tabela assim tabela sintoma doenca + sintoma vai consiguir ex seek

do jeito que tá voce fez
1 tabela = doenca indice
2 tabela = doenca + sintoma indice da uma conferida se voce fez indice assim

[Julio]

Sim, existe o indoce na segunda tabela doenca + sintomas.

O que nao to conseguindo fazer é se o usuáriao selecionar tres sintomas ou mais, como fazer para verificar se nas outras existem estes tres sintomas.
Por exemplo se somente dois sintomas forem iguais nao mostra nada. Os tres sintomas ou mais escolhidos que que coincidirem entre si para mostrar as doenças que contem estes sintomas.

julio

[Marcos Guedes]

Para poder selecionar mais de uma opção no listbox altere a propriedade MultiSelect para .T.

Para ler os itens selecionados, basei-se neste exemplo:

Código:

edtselected = ""

WITH THISFORM.list1
   FOR ln = 1 TO .LISTCOUNT
      IF .SELECTED(ln)
         *-- Add this to the editbox
         m.edtselected = m.edtselected + .LIST(ln) + CHR(13)
      ENDIF
   NEXT ln
ENDWITH

MESSAGEBOX(edtselected)

Obs.: Adicione o código acima num botão, e mude o nome list1 para o nome de seu listbox.

O select deverá ser montado como STRING e depois executado com a função
EXECSCRIPT()

[Julio]

Marcos

Quanto a selecionar esta resolvido.

=============================================

O problema é que não estou conseguindo fazer uma verificação.

O usuário escolhe por exemplo tres sintomas 1-apatia, 5-inchaço, 90-dor (na ordem id_sintoma e descrição).

Na tabela sintomas tenho os codigos das doenças e codigos dos sintomas, preciso varrer esta tabela de sintomas e ver se existem os tres sintomas acima citado, necessariamente precisa ter exatamente os tres sintomas para mostrar o resultado.

Pensei em ir guardando em um cursor temporario, mas nao sei como fazer a conferencia se existe os tres sintomas deste cursor com a tabela sintoms.


julio

[m@r<3|o]

ó um exemplo, tenta fazer algo assim , mais inves de dar replace coloque o codigo que mostrara os selecionados :

Código:

cCodPed = CADloca1.loca_COD
SELECT cadlocai1
Do While !eof() .AND. cCodPed = cadlocai1.locai_loca && Loop para todos os itens do pedido
sele CADPROD3
if Seek( CADlocai1.locai_PROD ) && Busca dentro do arquivo produto pelo produto do item
replace cadprod3.prod_saldo WITH  cadprod3.prod_saldo  + cadlocai1.locai_qtlo         
endif
sele CADlocai1 && volta para o ITEM e pula para o próximo
SKIP
ENDDO

tabela cadloca = doenca
cadlocai = sintoma

resumindo. vc vai fazer um verificacao, pela doencas que tem gravado na tabela de sintomas ... e dentro do if excutar o que é acontecer ,
no meu caso ai eu recalculo saldo de produtos, no botão excluir locação

qdo puder colar algo " cole ", dificil palpitar código nas escuras. as vezes a resposta é melhor , olhando o problema pela raiz as vezes um scan ou for tb resolve acho isso depende muito de onde quer mostrar esse resultado, somente uso grid e reporter

[Julio]

Pessoal

Consegui Resolver.
O codigo não é o mais perfeito, mas resolveu e atendeu o meu proposito.

Código:

LOCAL contador AS INTEGER
LOCAL itemselecionado AS STRING
m.qtde=0
m.total = 0
FOR m.contador = THISFORM.list3.LISTCOUNT TO 1 STEP -1
  m.itemselecionado = THISFORM.list3.LIST(m.contador)
  m.direita=RIGHT(m.itemselecionado,3)
  m.total = m.total + VAL(m.direita)
ENDFOR

STOR 0 TO TF
SELECT d_doexsin
SET ORDER TO ID_DOENCA
GO TOP
G=STR(id_doenca,10)
DO WHIL .NOT. EOF()
  IF G<>STR(id_doenca,10)
  TFf=0
  ENDIF
  SELECT d_doexsin
  m.idd=id_doenca
  m.ids=id_sintoma
  TF=TF+id_Sintoma
  IF TF = m.total
    SELECT d_doencas
    SET ORDER TO ID_DOENCA  && STR(ID_DOENCA,10)
    GO TOP
    SEEK STR(m.idd,10)
    m.doenca1=id_doenca
    m.doenca2=descricao
    m.doenca3=tratamento
    m.doenca4=observacao
    INSERT INTO d_doetempo (id_doenca,descricao,tratamento,observacao,tipo);
      VALUES (m.doenca1,m.doenca2,m.doenca3,m.doenca4,"S")
  ENDIF
  IF EOF()
      EXIT
  ENDIF
  G=STR(id_doenca,10)
  SKIP
ENDDO

Thisform.List3.Clear

DO FORM c:\sistema\form\d_consulta_r

Muito obrigado a todos que se dispuseram em ajudar e procurar resolver.

Abraços

Julio