Consulta con 4 tablas

[[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