Sintoma

Informações do cliente ou fornecedor não são exibidas no detalhe do parceiro.

Solução

Tratamento para selecionar as informações do parceiro quando é solicitado o detalhe do parceiro.

Informações Complementares

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

Nota Número 02721 Data: 18/12/2006 Hora: 11:25:09

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

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

Nota Número              : 02721

Categoria                : Erro de Programa

Prioridade               : Baixa

Versão PW.TP             : 2.0

Pacote                   : 00023

Agrupamento              : 00003

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

RELATÓRIO DIPJ

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

Palavras Chave:

RELATÓRIO DIPJ - DETALHE DO PARCEIRO

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

Objetos da nota:

REPS /PWS/ZYTPR042

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

Modificações efetuadas em REPS /PWS/ZYTPR042

...

         EXCEPTIONS

              program_error           = 1

              OTHERS                  = 2.

  ENDIF.

  IF sy-subrc NE 0.

    MESSAGE i079(/pws/zytpm) WITH text-046 sy-subrc.

  ENDIF.

  CLEAR v_agru.

ENDFORM.

FORM selecionar_parceiros.

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

  IF p_parc = 'X' OR p_ficha = 'X' OR p_conpar = 'X'.

* << Fim da exclusão

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

  IF p_parc = 'X'  OR

     p_ficha = 'X' OR

     p_conpar = 'X' OR

     v_det_parc = 'X'.

* << Fim da inclusão

    IF v_tipoie = 1.

      SELECT * FROM /pws/zytpt006

      INTO TABLE t_006

      WHERE sysid      EQ sy-sysid

        AND bukrs_g    EQ p_bukrsg

        AND valido_de  LE v_data_ini

        AND valido_ate GE v_data_fim.

      SORT t_006 BY lifnr ASCENDING

               valido_ate DESCENDING.

      READ TABLE t_025 WITH KEY zexit = 'INFO_FORN'.

...

...

ENDFORM.

FORM exibir_parceiros USING selfield TYPE slis_selfield.

  REFRESH t_oper_aux.

  IF v_det_parc = space.

    PERFORM:

      preencher_fieldcat_parceiro TABLES t_fieldcat_oper,

      tratar_fieldcat TABLES t_fieldcat_oper.

    IF p_comp = 'X'.

      PERFORM definir_sort.

    ENDIF.

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

    v_det_parc = 'X'.

* << Fim da inclusão

    IF p_parc = space AND p_ficha = space.

      PERFORM: selecionar_parceiros,

               buscar_tipo_vinculo.

    ENDIF.

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

    v_det_parc = 'X'.

* << Fim da exclusão

  ENDIF.

  IF v_agru EQ 'X'.

    READ TABLE t_calc_aux INDEX selfield-tabindex.

...