Consulta con 4 tablas

[betiitooo]

Hola, sería bueno que especificaras un poquito ¿que es exactamente lo que quieres hacer con tanta condición y/o mensajes que has colodado?, no me lo tomes a mal, es solo para intentar ayudarte ok, bye

[[Caral]]

Hola
A ver si lo entienden mejor
1- 5 tablas, cuatro en uso un a consulta.
2- tabla ordenprod, esta revisa si la orden esta repetida.

Código Delphi [-]
OrdenCompra.Active := False;
   OrdenCompra.SQL.Text := 'Select OrdenCompra From OrdenProd WHERE OrdenCompra ='+QuotedStr(Edit7.Text);
   OrdenCompra.Active := True;

3- hace una comparacion con un edit y envia un mensaje

Código Delphi [-]
 If Edit7.Text = OrdenCompra.Fields[0].Value then
   MessageDlg('La orden de Compra ya Existe',mtError,[mbOK],0)

4- revisa si el numero de recibo esta en la tabla ordenprod

Código Delphi [-]
ReciboOrden.Active := False;
   ReciboOrden.SQL.Text := 'Select NumRecibo From OrdenProd WHERE NumRecibo ='+Edit10.Text;
   ReciboOrden.Active := True;

5-hace una comparacion u envia un mensaje

Código Delphi [-]
If Edit10.Text = ReciboOrden.Fields[0].AsString then
   MessageDlg('Este recibo ya se uso en otra orden',mtError,[mbOK],0)

6- verifica las tablas de los bancos

Código Delphi [-]
BN.Active := False;
   BN.SQL.Text := 'Select NumRecibo From BancoNac WHERE NumRecibo ='+Edit10.Text;
   BN.Active := True;
   BSJC.Active := False;
   BSJC.SQL.Text := 'Select NumRecibo From BancoSanJoseco WHERE NumRecibo ='+Edit10.Text;
   BSJC.Active := True;
   BSJD.Active := False;
   BSJD.SQL.Text := 'Select NumRecibo From BancoSanJosedol WHERE NumRecibo ='+Edit10.Text;
   BSJD.Active := True;

7- indica una condicion, si es de contado entonces revisa los bancos de lo contrario, sigue.
Aqui es donde esta el asunto, si es de contado y no esta en los bancos entonces envia un mensaje.

Código Delphi [-]
If Edit9.Text = 'Contado' then
   begin
       If Edit10.Text = BN.Fields[0].AsString then
       begin
       ShowMessage('esta en el banco nacional');
       end;
       If Edit10.Text = BSJC.Fields[0].AsString then
       begin
       ShowMessage('esta en el banco San Jose Colones');
       end;
       If Edit10.Text = BSJD.Fields[0].AsString then
       begin
       ShowMessage('esta en el banco San Jose dolares');
       end
   else
   MessageDlg('El recibo no esta en ningun banco, REVISE',mtError,[mbOK],0)
   end

Lo demas sirve, asi que ni para que lo enseño de nuevo.
Espero se entienda ahora, tratare de explicarme mejor la proxima vez.
Saludos

[[egostar]]

Vamos a ver amigo Carlos,

Empezado por Caral

7- indica una condicion, si es de contado entonces revisa los bancos de lo contrario, sigue.

Aqui es donde esta el asunto, si es de contado y no esta en los bancos entonces envia un mensaje.

Pero no dices cual es el problema, pero de entrada te puedo decir que en esa porción de código debes de hacer if anidados porque según tu código, solo si es San Jose dolares te funciona como quieres, pero en las otras dos opciones te manda tambien el segundo mensaje 'El recibo no esta en ningun banco, REVISE'.

Checalo así.

Código Delphi [-]
  if Edit9.Text = 'Contado' then begin
     if Edit10.Text = BN.Fields[0].AsString then begin
        ShowMessage('esta en el banco nacional');
     end
     else If Edit10.Text = BSJC.Fields[0].AsString then begin
             ShowMessage('esta en el banco San Jose Colones');
     end
     else if Edit10.Text = BSJD.Fields[0].AsString then begin
             ShowMessage('esta en el banco San Jose dolares');
     end
     else MessageDlg('El recibo no esta en ningun banco, REVISE',mtError,[mbOK],0);
   end

Salud OS

[[Caral]]

Hola
Gracias por vuestra ayuda, ya lo he solucionado, lo cambie a otro evento y muchos parámetros, lo importante es que gracias a vuestra ayuda me guié en una solución mas simple.
Saludos

[[egostar]]

Hola amigo Carlos,

Me parece muy bien que ya hayas focalizado y solucionado el problema, pero....., podrías mostrarnos donde "quedó la bolita" .

Salud OS.