Sintoma

Na DI relativa a um processo de Admissão Temporaria verificou-se que na Adição, Pasta Cálculo,

deveria aparecer os valores calculados e devidos. E somente o recolhido que deveria estar zerado.

Mas todos os campos estão zerados.

Solução

Realizada a manutenção para mostrar os valores calculados e devidos na Adição da DI para os

processos de Admissão Temporária.

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 08725 Data: 24/07/2009 Hora: 11:09:26

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------

Nota Número              : 08725

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00010

Agrupamento              : 00106

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

08356  - 00001 - 7.0    - 00009  - ADMISSÃO TEMPORÁRIA ARTIGO 373

----------------------------------------------------------------------------------------------------

ADMISSÃO TEMPORÁRIO NA MOSTRA VALORES CALCULADOS/DEVIDOS NA ADIÇÃO

----------------------------------------------------------------------------------------------------

Palavras Chave:

DI - DA - ADMISSÃO - TEMPORÁRIA

----------------------------------------------------------------------------------------------------

Objetos da nota:

REPS /PWS/MZYCI023F01

REPS /PWS/MZYCI023F04

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI023F01

...

  itab_it-vlmerc_ad = t_vmle2.

ENDFORM.

FORM load_iii USING p_tipo.

  IF /pws/zycie093-meiotransp = 'PS'

      AND /pws/zycie085-tpdi EQ 'S'

      AND /pws/zycie003-advalii IS INITIAL.

    /pws/zycie003-advalii = '60'.

  ENDIF.

  t_iibas = t_ivadu.

  a_iicalc  = ( ( /pws/zycie003-advalii  / 100 ) * t_iibas ).

* >> Início da exclusão: FORM LOAD_III

  IF itab_zycit001-regime EQ '05' OR

     itab_zycit001-regime EQ '12'.

* << Fim da exclusão

* >> Início da inclusão: FORM LOAD_III

  IF ( itab_zycit001-regime EQ '05' OR

     itab_zycit001-regime EQ '12' ) AND

     NOT itab_zycit374-tp_perman IS INITIAL.

* << Fim da inclusão

    READ TABLE itab_zycit374 WITH KEY

           nrseq = itab_it-nrseq

           ebeln = itab_it-ebeln

           ebelp = itab_it-ebelp.

    v_iiadm = a_iicalc  = ( a_iicalc * ( 1 / 100 ) ) *

    itab_zycit374-tp_perman.

  ENDIF.

  IF NOT /pws/zycie100a-reduzida IS INITIAL.

    a_iiredu  = ( ( /pws/zycie100a-reduzida / 100 ) * t_iibas ).

  ELSE.

...

...

    ENDIF.

    t_ipibas  = ( v_ivadud + v_casasd ).

  ELSE.

    IF '56' CA itab_it-codregtri .

      t_ipibas  = ( t_ivadu + itab_it-ii_calculado ).

    ELSE.

      t_ipibas  = ( t_ivadu + t_iirec ).

    ENDIF.

  ENDIF.

  a_ipidevi = ( ( /pws/zycie003-advalipi / 100 ) * t_ipibas ).

* >> Início da exclusão: FORM LOAD_IIPI

  IF itab_zycit001-regime EQ '05' OR

     itab_zycit001-regime EQ '12'.

* << Fim da exclusão

* >> Início da inclusão: FORM LOAD_IIPI

  IF ( itab_zycit001-regime EQ '05' OR

     itab_zycit001-regime EQ '12' ) AND

     NOT itab_zycit374-tp_perman IS INITIAL.

* << Fim da inclusão

    v_ipiadm = a_ipidevi = ( a_ipidevi * ( 1 / 100 ) ) *

           itab_zycit374-tp_perman .

  ENDIF.

  IF v_dit = 'N'.

    IF /pws/zycie100a-codregtriipi NE '1' AND

       /pws/zycie003-advalipi IS INITIAL.

      a_ipidevi = ( /pws/zycie100a-unit_valor *

     /pws/zycie100a-unit_qtde ).

    ENDIF.

    IF /pws/zycie100a-codregtriipi EQ '4'.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI023F04

...

            /pws/zycie100a-basepis ).

      ENDIF.

      IF /pws/zycie100a-advalpis IS INITIAL AND

         NOT /pws/zycie100a-aliqpis IS INITIAL.

        a_cofcalc = a_cofdevi =  ( ( /pws/zycie100a-aliqcof  / 100 )

                 * /pws/zycie100a-basecofins ) .

      ELSE.

       a_cofcalc = a_cofdevi =  ( ( /pws/zycie100a-advalcofins  / 100 )

                               * /pws/zycie100a-basecofins ) .

      ENDIF.

* >> Início da exclusão: FORM CALC_PISCOFINS

      IF itab_zycit001-regime EQ '05' OR

         itab_zycit001-regime EQ '12'.

* << Fim da exclusão

* >> Início da inclusão: FORM CALC_PISCOFINS

      IF ( itab_zycit001-regime EQ '05' OR

         itab_zycit001-regime EQ '12' ) and not

         itab_zycit374-tp_perman is initial.

* << Fim da inclusão

        a_piscalc = a_pisdevi = ( a_pisdevi * ( 1 / 100 ) ) *

             itab_zycit374-tp_perman.

        a_cofcalc = a_cofdevi =  ( a_cofdevi * ( 1 / 100 ) ) *

             itab_zycit374-tp_perman.

      ENDIF.

      CLEAR : t_pis, a_pisredu , t_cofins , a_cofredu.

    WHEN '4'.

      IF /pws/zycie100a-basredpis IS INITIAL OR

         /pws/zycie100a-basredpis GT '100' .

        IF itab_zycit001-regime EQ '05' OR

...