Sintoma

Ao executar o programa de nota fiscal em modo de exibição não está sendo exibido os valores de

fundap.

Solução

Atualização do programa de nota fiscal para quando entrarmos na nota fiscal pelo modo exibir o

sistema demonstre todos os cálculos da tela de Operação Fundap.

Informações Complementares

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

Nota Número 05762 Data: 25/01/2008 Hora: 16:36:37

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

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

Nota Número              : 05762

Categoria                : Erro de Programa

Prioridade               : Baixa

Versão PW.CE             : 7.0

Pacote                   : 00004

Agrupamento              : 00031

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

Referência às notas relacionadas:

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

04831  - 00001 - 7.0    - 00003  - DESENVOLVER FUNCIONALIDADE FUNDAP NA NF E NA DI

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

SELECIONAR VALORES FUNDAP QUANDO A NOTA FISCAL É EXIBIDA

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

Palavras Chave:

SELECIONAR - VALORES - FUNDAP - NOTA - FISCAL

/PWS/SAPMZYCI016

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

Objetos da nota:

REPS /PWS/MZYCI016I01

REPS /PWS/MZYCI016O01

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

Modificações efetuadas em REPS /PWS/MZYCI016I01

...

          EXPORT /pws/zycie041-nrseq TO MEMORY ID '001'.

          IF v_campo EQ '/PWS/ZYCIE042-DOCNUM'.

            SUBMIT /pws/zycir005

            WITH pa_nrnot = v_valor AND RETURN.          "#EC CI_SUBMIT

          ELSE.

            MESSAGE i015 WITH text-052 text-053.

          ENDIF.

        WHEN 'FUNDAP' .

          IF /pws/zycie001-modalidade EQ '05' AND

             /pws/zycie001-tpdecl EQ 'DI'.

* >> Início da inclusão: MODULE USER_COMMAND_0050

            CLEAR /pws/zycit480.

            LOOP AT itab_zycit480.

              /pws/zycit480-vl_nf_ent     =

                itab_zycit480-vl_nf_ent + /pws/zycit480-vl_nf_ent .

              /pws/zycit480-vl_custo_merc =

              itab_zycit480-vl_custo_merc + /pws/zycit480-vl_custo_merc.

              /pws/zycit480-vl_desp_acess =

              itab_zycit480-vl_desp_acess + /pws/zycit480-vl_desp_acess.

              /pws/zycit480-vl_base_ipi   =

                itab_zycit480-vl_base_ipi + /pws/zycit480-vl_base_ipi.

              /pws/zycit480-vl_ipi   =

                itab_zycit480-vl_ipi  +   /pws/zycit480-vl_ipi  .

              /pws/zycit480-vl_base_icms  =

               itab_zycit480-vl_base_icms + /pws/zycit480-vl_base_icms .

              /pws/zycit480-vl_icms =

                itab_zycit480-vl_icms  + /pws/zycit480-vl_icms.

              /pws/zycit480-vl_unit  =

                 itab_zycit480-vl_unit + /pws/zycit480-vl_unit.

              /pws/zycit480-vl_nf_transf =

              itab_zycit480-vl_nf_transf + /pws/zycit480-vl_nf_transf  .

              /pws/zycit480-desconto =

                itab_zycit480-desconto + /pws/zycit480-desconto .

            ENDLOOP.

* << Fim da inclusão

            CALL SCREEN '0130' STARTING AT 5 2.

          ENDIF.

      ENDCASE.

    ENDIF.

  ENDIF.

  CLEAR: okcode.

ENDMODULE.

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

Modificações efetuadas em REPS /PWS/MZYCI016O01

...

      CLEAR itab_zycit042.

      SELECT * FROM /pws/zycit042

        INTO TABLE itab_zycit042

        WHERE nrseqnf   = /pws/zycit041-nrseq

          AND nfglobal = /pws/zycit041-nfglobal.

      LOOP AT itab_zycit042 WHERE NOT docnum IS initial.

      ENDLOOP.

      IF sy-subrc NE 0.

        MESSAGE s015 WITH text-063. LEAVE PROGRAM.

      ENDIF.

* >> Início da inclusão: MODULE LOAD_DATA_0100

      IF NOT itab_zycit042[] IS INITIAL.

        SELECT * FROM /pws/zycit480

        INTO TABLE itab_zycit480

        FOR ALL ENTRIES IN itab_zycit042

        WHERE nrseq EQ itab_zycit042-nrseq

        AND   ebeln EQ itab_zycit042-ebeln

        AND   ebelp EQ itab_zycit042-ebelp.

      ENDIF.

* << Fim da inclusão

      CLEAR wa_zycit048.

      SELECT SINGLE * FROM /pws/zyglt369

        INTO wa_zyglt369

        WHERE bukrs   EQ /pws/zycit085-bukrs

         AND  branch  EQ /pws/zycit085-j_1bbranch

         AND  urfdesp EQ /pws/zycit085-urfdesp.

      IF sy-subrc EQ 0.

        SELECT SINGLE * FROM /pws/zycit048

          INTO wa_zycit048

          WHERE bukrs  EQ wa_zyglt369-bukrs

...