[firebase-br] Numero sequencial por item

Gladiston Santana gladiston em vidy.com.br
Seg Jan 18 11:55:52 -03 2016


Quando a situação da query requer alguma logica é melhor usar EXECUTE BLOCK
e colocar os operadores conforme uma linguagem de programação requereiriam,
ex:
EXECUTE BLOCK
returns(
    SEQ                 integer,
    ESTADO              varchar(2),
    DESCRICAO           varchar(40),
    COMENTARIO      varchar(30)
)
as
declare variable lstatus varchar(1);
begin
  seq=0;
  for select estado, descricao, status from estados
   into :estado, :descricao, :lstatus do
  begin
   seq=:seq+1;
   if (:lstatus='A') then comentario='Ativo';
   if (:lstatus='C') then comentario='Cancelado';
   suspend;
  end
end

No exemplo acima, o meu select retornaria um campo virtual 'seq' sequencial
para cada linha e ao invés dum status, um comentario baseado no If.
Eu uso muito execute block, quando o select e seus comandos são
insuficientes.
Queries muito complexas podem ser resolvidas com EXECUTE BLOCK

Em 16 de janeiro de 2016 17:54, Flavio Divino <flaviodivino em gmail.com>
escreveu:

> Olá pessoal, preciso atualizar um campo (ZF4_CODBEN) de forma sequencial
> conforme o codigo do contrato vai mudando.
> Exemplo:
>
> select first 20
>  zf4.zf4_contra,
>  zf4.zf4_tipo,
>  ZF4.zf4_codben,
>  zf4.zf4_nome
> from zf4
> order by zf4.zf4_contra, zf4.zf4_tipo desc
>
> Essa consulta me retorna isso:
>
>
> +---------------------+-----------------+---------------------+----------------------------------------------------------------------------+
> | ZF4_CONTRA | ZF4_TIPO | ZF4_CODBEN | ZF4_NOME
>                               |
>
> +---------------------+-----------------+---------------------+----------------------------------------------------------------------------+
> | 000001           | T | | JOAO GREGORIO DA SILVA
>
> | 000001 | F | | JOSE GREGORIO DA SILVA
> | 000001           | D  | | NACI DE OLIVEIRA SILVA
>
> | 000001           | D | | PEDRO DE OLIVEIRA
>
> | 000001           | D  | | ALCEDINA JOSEFA DO NASCIMENTO
> | 000001           | D  | | GLEICE HELEN MARTINS DUARTE SANTOS
> | 000001           | D  | | ANNA LUCIA NASCIMENTO
> | 000002           | T  | | JOSE LAUREANO DE SOUZA
> | 000002           | F  | | CAROLINA MARIA DE JESUS
> | 000002           | F  | | ANTONIO LAUREANO DE SOUZA
> | 000002           | F  | | EVA PEREIRA DE ABREU
> | 000002           | D  | | NILMA ABREU DE SOUZA
> | 000002           | D  | | VILMA ABREU DE SOUZA
> | 000002           | D  | | VILMAR ABREU DE SOUZA
> | 000002           | D  | | ROSALINA ABREU DE SOUZA
> | 000003           | T  | | DORALICE BORGES REIS
> | 000003           | F  | | JOSE LUIZ MISCENA BORGES
> | 000003           | D  | | MARINALVA MISCENA BORGES
> | 000003           | D  | | MARIA DE JESUS REIS BORGES
> | 000003           | D  | | MARILYA BRASILIA NASCIMENTO BORGES
>
> +---------------------+-----------------+---------------------+----------------------------------------------------------------------------+
>
> E na verdade eu precisaria disso:
>
>
> +---------------------+-----------------+---------------------+----------------------------------------------------------------------------+
> | ZF4_CONTRA | ZF4_TIPO | ZF4_CODBEN | ZF4_NOME
>                               |
>
> +---------------------+-----------------+---------------------+----------------------------------------------------------------------------+
> | 000001           | T | 1 | JOAO GREGORIO DA SILVA
>
> | 000001 | F | 2 | JOSE GREGORIO DA SILVA
> | 000001           | D  | 3 | NACI DE OLIVEIRA SILVA
>
> | 000001           | D | 4 | PEDRO DE OLIVEIRA
>
> | 000001           | D  | 5 | ALCEDINA JOSEFA DO NASCIMENTO
> | 000001           | D  | 6 | GLEICE HELEN MARTINS DUARTE SANTOS
> | 000001           | D  | 7 | ANNA LUCIA NASCIMENTO
> | 000002           | T  | 1 | JOSE LAUREANO DE SOUZA
> | 000002           | F  | 2 | CAROLINA MARIA DE JESUS
> | 000002           | F  | 3 | ANTONIO LAUREANO DE SOUZA
> | 000002           | F  | 4 | EVA PEREIRA DE ABREU
> | 000002           | D  | 5 | NILMA ABREU DE SOUZA
> | 000002           | D  | 6 | VILMA ABREU DE SOUZA
> | 000002           | D  | 7 | VILMAR ABREU DE SOUZA
> | 000002           | D  | 8 | ROSALINA ABREU DE SOUZA
> | 000003           | T  | 1 | DORALICE BORGES REIS
> | 000003           | F  | 2 | JOSE LUIZ MISCENA BORGES
> | 000003           | D  | 3 | MARINALVA MISCENA BORGES
> | 000003           | D  | 4 | MARIA DE JESUS REIS BORGES
> | 000003           | D  | 5 | MARILYA BRASILIA NASCIMENTO BORGES
>
> +---------------------+-----------------+---------------------+----------------------------------------------------------------------------+
>
> Tentei fazer a atualização do campo zf4_codben com uma procedure, mas ela
> funciona parcialmente.
>
> BEGIN
>   FOR
>     select distinct
>       zf4.zf4_ctrant
>     from
>       zf4
>     order by zf4.zf4_contra, zf4.zf4_tipo desc
>     INTO :ZF4_CTRANT
>   DO
>   BEGIN
>   SQL =  'ALTER SEQUENCE CONTADOR RESTART WITH 0;';
>   execute statement :SQL;
>
>   UPDATE ZF4 SET
>   zf4_codben = lpad(GEN_ID(CONTADOR, 1),4,'0') where zf4.zf4_ctrant =
> :ZF4_CTRANT order by zf4.zf4_contra, zf4.zf4_tipo desc;
>
>     SUSPEND;
>   END
> END
>
> Não sei aonde eu possa estar errando.
> Gostaria da ajuda de vocês.
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> Para saber como gerenciar/excluir seu cadastro na lista, use:
> http://www.firebase.com.br/fb/artigo.php?id=1107
> Para consultar mensagens antigas:
> http://www.firebase.com.br/pesquisa_lista.html
>



-- 
--
B em B@BU     iB em M@B.  B em MBBO   MBBMMB em B@BZLr    E@@@@i      r@@@BU
vB em M@O     E em B@Bu   BBBM em 0   G em MMM@N8MBB em ZP5r  B em B@k      8B@@O
 OB em B@q   2 em BBBM    B em B@BO   BB em B@B,.:,7B em B@@L uB em B@,    OB em B@.
 ,@@@B@   @BBB@,    @BBB em 8   M em M@@@     PB em B@B  @@@BN   iB em B@L
  U em B@B2 LB em B@X     B em MBBO   MBBM em B     i em BBB@. 7 em B@Bi  B em B@E
   B@@@BiM em M@B.     @BBM em G   M em MMB@     v@@M em B,  G em B@Z v em B@B.
   7B em B@O em B@B5      B em B@B8   BBBM em B     Z@@@B@   iB@@@2 em B@Br
    NB em M@B em B8       @B em B@8   M em B@B em i:i75 em B@B em r    E@@B em B@Bq
    . em B@@@B@:       B em B@B@   @B@@@B em B@B@@@ME;     .BB em MBB@
     55.ANOS        OMOGBS   PBZGGOOMOO117,        7 em BBB@r
     ==============================================r@@@@F=====
     Gladiston Santana                             8 em B@B,
     Supervisor de TI                             G em B@B7
     Tel.:+551147873122 R:228                    :@B em B0
     Grupo VIDY - SGQ ISO9001 - 55 ANOS          @B em B@.
     Visite nosso site: www·vidy·com·br         BB@@@u
     Visite também : www·expolabor·com·br      GB em B@N



Mais detalhes sobre a lista de discussão lista