Sintoma

o programa nao faz a contabilizacao da liquidação corretamente quando o processo é intercompany.

Solução

adicionado código para verificação do processo intercompany.

Informações Complementares

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

Nota Número 06401 Data: 16/04/2008 Hora: 14:44:04

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

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

Nota Número              : 06401

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00005

Agrupamento              : 00043

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

Referência às notas relacionadas:

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

03478  - 00001 - 7.0    - 00001  - VINCULAÇÃO LIQ. AUT. / LIQUIDAÇÃO - CÂMBIO PRONTO - ARBITRAGEM

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

LIQUIDAÇÃO - PROCESSO INTERCOMPANY

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

Palavras Chave:

LIQUIDAÇÃO - PROCESSO INTERCOMPANY PRONTO E DOCTO FATURA

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

Objetos da nota:

FUNC /PWS/ZYCB_TRANSACAO_F_30_W

REPS /PWS/ZYCBR029

REPT /PWS/ZYCBR029

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

Modificações efetuadas em FUNC /PWS/ZYCB_TRANSACAO_F_30_W

...

        IF itab_parts-agkoa EQ 'D'.

          IF itab_parts-agums IS INITIAL.

            v_tela = '0301'.

          ELSE.

            PERFORM define_tela2 USING itab_parts-tcode

                                       t_dados-bukrs

                                       itab_parts-agkoa

                              CHANGING itab_parts-agums

                                       v_tela.

          ENDIF.

* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_W

        AT FIRST.

          PERFORM verifica_empresas USING t_dados-bukrs

                                          'UMBUCHNG'

                                          t_dados-agkon

                                          'D'.

        ENDAT.

* << Fim da inclusão

        ELSEIF itab_parts-agkoa EQ 'K'.

          IF itab_parts-agums IS INITIAL.

            v_tela = '0302'.

          ELSE.

            PERFORM define_tela2 USING itab_parts-tcode

                                       t_dados-bukrs

                                       itab_parts-agkoa

                              CHANGING itab_parts-agums

                                       v_tela.

          ENDIF.

...

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

Modificações efetuadas em REPS /PWS/ZYCBR029

...

        vljur_acc    LIKE  /pws/zycbt006-vljur_acc,

        vljur_ace    LIKE  /pws/zycbt006-vljur_ace,

        v_performance,

      END OF itab_zycbt005.

DATA: BEGIN OF itab_zycbt030 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycbt030.

DATA: END OF itab_zycbt030.

TOP-OF-PAGE.

  ULINE.

  FORMAT COLOR 3 INTENSIFIED.

* >> Início da exclusão:

  WRITE: / text-046,

           text-047,

           text-048,

           text-049.

* << Fim da exclusão

* >> Início da inclusão:

  WRITE: /01 '|', text-046,

          14 '|', text-047,

          30 '|', text-048,

          50 '|', text-049,

          67 '|'.

* << Fim da inclusão

  ULINE.

  FORMAT RESET.

END-OF-PAGE.

  ULINE.

START-OF-SELECTION.

  IMPORT itab_zycbt005 FROM MEMORY ID '010'.

  PERFORM processar_dados.

END-OF-SELECTION.

FORM processar_dados.

  IF NOT itab_zycbt005[] IS INITIAL.

    SELECT * FROM /pws/zycbt030

      INTO TABLE itab_zycbt030

      FOR ALL ENTRIES IN itab_zycbt005

      WHERE nrinvoic = itab_zycbt005-nrinvoic

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

          AND nrparcf  = itab_zycbt005-nrparcf.

* << Fim da exclusão

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

          AND nrparcf  = itab_zycbt005-nrparcf

          AND gsberf   = itab_zycbt005-gsberf.

* << Fim da inclusão

  ENDIF.

  IF sy-subrc NE 0.

    STOP.

  ENDIF.

  FORMAT RESET.

  LOOP AT itab_zycbt030.

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

    WRITE: / '|', itab_zycbt030-nrinvoic(10),

             '|', itab_zycbt030-vbeln,

             '|', itab_zycbt030-kwert CURRENCY itab_zycbt030-waers,

             '|', itab_zycbt030-belnr6,

             '      |'.

* << Fim da exclusão

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

    WRITE: /01 '|', itab_zycbt030-nrinvoic(10),

            14 '|', itab_zycbt030-vbeln,

            30 '|', itab_zycbt030-kwert CURRENCY itab_zycbt030-waers.

    IF NOT itab_zycbt030-belnr6 IS INITIAL.

      WRITE:  50 '|', itab_zycbt030-belnr6.

    ELSE.

      WRITE:  50 '|', itab_zycbt030-belnr.

    ENDIF.

    WRITE:   67 '|'.

* << Fim da inclusão

  ENDLOOP.

  ULINE.

ENDFORM.

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

Modificações efetuadas em REPT /PWS/ZYCBR029

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: 046

Texto: (8 caracteres)

"Embarque"

Comprimento máximo: 8

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: 047

Texto: (13 caracteres)

"Docto. Fatur."

Comprimento máximo: 13

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: 048

Texto: (5 caracteres)

"Valor"

Comprimento máximo: 5

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: 049

Texto: (13 caracteres)

"Docto. Fatura"

Comprimento máximo: 13