Sintoma

Ajustar a DI e a NF para ver o flag exibir rateio da tabela zycit000, se estiver desflegado não deve

aparece o icone visualiza rateio. Se estiver flegado deve aparecer.

Solução

Verifdicar o Parâmetro para Exibir o Botão

Informações Complementares

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

Nota Número 10126 Data: 05/05/2010 Hora: 11:23:40

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

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

Nota Número              : 10126

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00003

Agrupamento              : 00020

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

IMPLEMENTADO PARÂMETRO PARA VISUALIZAR O RATEIO NA DI E NA NF

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

Palavras Chave:

PARÂMETRO - /PWS/ZYCIT000-FLAG_RATEIO - NOTA - FISCAL - DI

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

Objetos da nota:

REPS /PWS/MZYCI016O01

REPS /PWS/MZYCI023O01

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

Modificações efetuadas em REPS /PWS/MZYCI016O01

...

     OR v_status_s = 1.

    IF v_nfe = ' '.

      itab_pf_status-fcode = 'CONT' .

      APPEND itab_pf_status.

    ENDIF.

    IF ( /pws/zycie001-modalidade NE '05' OR

       /pws/zycie001-tpdecl NE 'DI' )  .

      itab_pf_status-fcode = 'FUNDAP'.

      APPEND itab_pf_status.

    ENDIF.

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

    IF t001 IS INITIAL OR /pws/zycit000 IS INITIAL.

      SELECT SINGLE * FROM t001 WHERE bukrs = /pws/zycie001-bukrs.

      SELECT SINGLE * FROM /pws/zycit000 WHERE land1 EQ t001-land1.

    ENDIF.

    IF /pws/zycit000-flag_rateio IS INITIAL.

      MOVE 'VISUA'   TO itab_pf_status-fcode.

      APPEND itab_pf_status.

    ENDIF.

* << Fim da inclusão

    SET PF-STATUS '0100' EXCLUDING itab_pf_status.

    SET TITLEBAR '100C'.

  ELSEIF sy-tcode EQ '/PWS/ZYCI016_E' OR v_status_s = 0.

    v_status_s = 0.

    IF ( /pws/zycie001-modalidade NE '05' OR

       /pws/zycie001-tpdecl NE 'DI' )  .

      itab_pf_status-fcode = 'FUNDAP'.

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

      APPEND itab_pf_status.

    ENDIF.

    IF t001 IS INITIAL OR /pws/zycit000 IS INITIAL.

      SELECT SINGLE * FROM t001 WHERE bukrs = /pws/zycie001-bukrs.

      SELECT SINGLE * FROM /pws/zycit000 WHERE land1 EQ t001-land1.

    ENDIF.

    IF /pws/zycit000-flag_rateio IS INITIAL.

      MOVE 'VISUA'   TO itab_pf_status-fcode.

* << Fim da inclusão

      APPEND itab_pf_status.

    ENDIF.

    itab_pf_status-fcode = 'SAVE'.

    APPEND itab_pf_status.

    itab_pf_status-fcode = 'CANCG'.

    APPEND itab_pf_status.

    itab_pf_status-fcode = 'CRIARNF'.

    APPEND itab_pf_status.

    itab_pf_status-fcode = 'MARC'.

    APPEND itab_pf_status.

...

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

Modificações efetuadas em REPS /PWS/MZYCI023O01

...

  WHERE land1 EQ t001-land1.

  IF sy-tcode = '/PWS/ZYCI023_E' OR

     /pws/zycie085-nrdi IS INITIAL OR

     /pws/zycie085-dtreg IS INITIAL OR

     /pws/zycit494-retif NE 'X'.

    MOVE 'RETI' TO it_statu4-fcode.

    APPEND it_statu4.

    MOVE 'RETI' TO it_statu2-fcode.

    APPEND it_statu2.

  ENDIF.

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

  IF /pws/zycit000-flag_rateio IS INITIAL.

    MOVE 'VISUA' TO it_statu4-fcode.

    APPEND it_statu4.

    MOVE 'VISUA' TO it_statu2-fcode.

    APPEND it_statu2.

  ENDIF.

* << Fim da inclusão

  IF gc_subscreen-prog NE '0200'.

    IF /pws/zycie085-retif IS INITIAL

      OR itab_zycit100a[] IS INITIAL.

      MOVE: 'REL_RET' TO it_statu4-fcode,

            'REL_RET' TO it_statu2-fcode.

      APPEND: it_statu2,

              it_statu4.

    ENDIF.

    IF v_acto = 'A'.

      SET PF-STATUS '0100' EXCLUDING it_statu4.

...