3 respuestas en este tema

[edchar]

Hola amigos al ir pasando mi código a FireBird me he topado con el asunto de poner If THEN anidados
Por eso necesito sus comentarios O me indican si hay una forma mas apropiada para hacerlo pues he buscado en la red y poca información encontré.

Es correcta la forma de anidar varios IF THEN así

      if(old.detalleart != 'Varios') then
      begin
        if(old.codinv = 100) then
        begin
            if(new.cancelado = -1 and old.cancelado = 0) then
            begin
                insert into tbl_ventas (numfact,fachafact,cantidad,detalleart,nomcte,codart,codinv,mtoventa,
                                        orok,orogr,doctipo,mescontable,modart,mcaart,serart,origen,anulada,ganart)
                values(:maxnum, new.fachacancel, old.cantidad, old.detalleart, :nombre, 100, 100, old.valorart,
                old.orok, old.orogr, 'Oro', :txtmonth, 'Oro', 'Oro', 'Oro', 'Apartado', 0, old.ganart );
            end
            else
            begin
               /*Aqui iria el codigo del 3er If Then*/
            end
        end
        else
        begin
              /*Aqui iria el codigo del 2do If Then*/
        end
      end
      else
      begin
             /*Aqui iria el codigo del 1er If Then*/
      end

:


Muchas gracias por la ayuda, Saludos

[fredycc]

Pues así lo he usado en mi caso edchar tanto en interbase como firebird, podrías intentar el CASE: http://www.firebirds...upd15-case.html

Saludos

[Caral]

Hola
Seguro no lo entiendo por que no le veo mucho sentido el repetir el if con la rutina que usas, me parece que asi es lo mismo pero mas sencillo:

delphi

IF  OLD.detalleart = 'Varios'  AND  OLD.codinv = 100  AND  OLD.cancelado = 0  AND  NEW.cancelado = -1  THEN
      BEGIN
       INSERT INTO tbl_ventas (numfact,fachafact,cantidad,detalleart,nomcte,codart,codinv,mtoventa,
                                    orok,orogr,doctipo,mescontable,modart,mcaart,serart,origen,anulada,ganart)
                VALUES(:maxnum, NEW.fachacancel, OLD.cantidad, OLD.detalleart, :nombre, 100, 100, OLD.valorart,
                OLD.orok, OLD.orogr, 'Oro', :txtmonth, 'Oro', 'Oro', 'Oro', 'Apartado', 0, OLD.ganart );
        END
        ELSE
         BEGIN
        /*Aqui iria el codigo del 3er If Then*/
        END
        END
        ELSE
        BEGIN
         /*Aqui iria el codigo del 2do If Then*/
        END
        END
        ELSE
        BEGIN
         /*Aqui iria el codigo del 1er If Then*/
        END

Saludos

[edchar]

Muchas gracias a ambos después de pensar en lo que me expresan entendí que no necesito anidar varios IF mas bien debo ponerlos como opciones en un mismo IF o que use un case de la misma forma.

Voy a probar y espero que todo salga bien.

Gracias y saludos