[firebase-br] AJUDA COM PROCEDURE

Hélio Oliveira hpensador em gmail.com
Ter Maio 24 08:55:13 -03 2011


Bom dia Diego !

Testa aí ... verifique que as variaveis devem ser precedidas com (:).

> SET TERM ^ ;
>
> CREATE OR ALTER PROCEDURE PROPORCIONA_PIS (
>      percent_ex decimal(18,4),
>      percent_mi decimal(18,4),
>      percent_nt decimal(18,4))
> as
> declare variable pis decimal(18,2);
> declare variable pis_ex decimal(18,2);
> declare variable pis_mi decimal(18,2);
> declare variable pis_nt decimal(18,2);
   declare variable base_calculo_pis numeric(12,2);
   declare variable aliquota_pis numeric(6,2);
> BEGIN
      select base_calculo_pis, aliquota_pis
      from tb_in_981_4140
      into :base_calculo_pis, :aliquota_pis;
>    PIS = ((:BASE_CALCULO_PIS / 100) * TB_IN_981_4104.ALIQUOTA_PIS);
>    PIS_EX = (((:BASE_CALCULO_PIS  / 100) * :ALIQUOTA_PIS) * :PERCENT_EX / 100);
>    PIS_MI = (((:BASE_CALCULO_PIS  / 100) * :ALIQUOTA_PIS) * :PERCENT_MI / 100);
>    PIS_NT = (((:BASE_CALCULO_PIS  / 100) * :ALIQUOTA_PIS) * :PERCENT_NT / 100);
>
>    IF (:PIS_EX>  0.0000) THEN
>      IF (:PIS_EX<  0.0100) THEN
>        PIS_EX = 0.0100;
>
>    IF (:PIS_MI>  0.0000) THEN
>      IF (:PIS_MI<  0.0100) THEN
>        PIS_MI = 0.0100;
>
>    IF (:PIS_NT>  0.0000) THEN
>      IF (:PIS_NT<  0.0100) THEN
>        PIS_NT = 0.0100;
>
>    UPDATE tb_in_981_4104
>    SET
>      VALOR_PIS = :PIS,
>      VALOR_PIS_EXPORTACAO = :PIS_EX,
>      VALOR_PIS_MERC_INTERNO = :PIS_MI,
>      VALOR_PIS_N_TRIB_INTERNO = :PIS_NT
>    WHERE
>      CNPJ = '00.000.000/0001-91' AND MES = 'Janeiro' AND ANO = 2010 AND
>      CODIGO_SIT_TRIBUTARIA_PIS = '70' AND CODIGO_SIT_TRIBUTARIA_COFINS = '70';
>
>    SUSPEND;
> END^
>
> SET TERM ; ^
>
> GRANT SELECT,UPDATE ON TB_IN_981_4104 TO PROCEDURE NEW_PROCEDURE;
>
>
>
>
> ______________________________________________
> 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://firebase.com.br/pesquisa


-- 
[]'s,

Hélio Oliveira
Bel. Ciência da Computação
Técnico em Contabilidade
e-mail : hpensador em gmail.com
Skype : hpensador
http://hpensador.blogspot.com/
www.hpensador.net
(71) 9975-9176





Mais detalhes sobre a lista de discussão lista