Sintoma

Necessidade de tratamento de sociedade parceira para a funcionalidade de desconto de recebíveis.

Solução

Tratamento de sociedade parceira para a funcionalidade de desconto de recebíveis.

Informações Complementares

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

Nota Número 10206 Data: 27/05/2010 Hora: 14:56:16

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

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

Nota Número              : 10206

Categoria                : Melhoria

Prioridade               : Alta

Versão PW.CE             : 8.0

Pacote                   : 00003

Agrupamento              : 00023

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

Referência às notas relacionadas:

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

07169  - 00001 - 7.0    - 00006  - TRAZER OS AJUSTES DO CHAMADO 392344 PARA O PRODUTO

09932  - 00002 - 8.0    - 00002  - DESCONTO DE RECEBÍVEIS MELHORIA MENSAGENS

10188  - 00003 - 8.0    - 00003  - MAPEAMENTO SOCIEDADE PARCEIRA NAS CONTABILIZAÇÕES

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

SOCIEDADE PARCEIRA DESCONTO DE RECEBÍVEIS

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

Palavras Chave:

SOCIEDADE PARCEIRA DESCONTO RECEBIVEIS

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

Objetos da nota:

DYNP /PWS/SAPMZYCB033                        0100

REPS /PWS/MZYCB033F01

REPS /PWS/MZYCB033TOP

TABD /PWS/ZYCBE219

TABD /PWS/ZYCBT219

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

Modificações efetuadas em DYNP /PWS/SAPMZYCB033                        0100

"Favor solicitar a equipe de produto - pw.CE - Câmbio, arquivo para efetuar upload das alterações

desta tela. Tel.: 11 5504 0170."

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

Modificações efetuadas em REPS /PWS/MZYCB033F01

...

  endcase.

endform.

form exit_command.

  if sy-tcode eq c_transacao_c.

    leave program.

  else.

    leave to screen '0001'.

  endif.

endform.

form set_screen_tc.

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

  clear /pws/zyglt009.

  select single *

    from /pws/zyglt009

   where bukrs eq /pws/zycbe219-bukrs.

* << Fim da inclusão

  loop at screen.

    if screen-group1 eq 'FEC'.

      screen-input = '0'.

      screen-required = '0'.

    elseif screen-group1 eq 'ALT'.

      if /pws/zycbe219-liquid eq 'X'.

        screen-input = '0'.

      else.

        screen-input = v_status.

        if c_no_modify eq 'X' and

...

...

          screen-required = v_status.

        else.

          screen-required = '0'.

        endif.

      endif.

    endif.

    if screen-group3 eq 'CLI'.

      screen-intensified = '1'.

    else.

      screen-intensified = '0'.

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

    endif.

    if screen-name eq '/PWS/ZYCBE219-VBUND'.

      if /pws/zyglt009-flag_soc_parceir eq 'X'.

        if /pws/zycbe219-belnr is initial..

          screen-input = '1'.

        else.

          screen-input = '0'.

        endif.

      else.

        screen-input = '0'.

        clear: /pws/zycbe219-vbund,

               /pws/zycbt219-vbund.

      endif.

* << Fim da inclusão

    endif.

    modify screen.

  endloop.

endform.

form ask_exclusion using    p_texto

                   changing p_answer.

  data: v_text1(35),

        v_text2(35).

  concatenate text-020 itab_zycbt219-nrinvoic

              into v_text1

...

...

             where belnr  = itab_zycbt030-belnr_d

             and   gjahr  = v_gjahr

             and   kunnr  = itab_zycbt219-kunnr

             and   bukrs  = itab_zycbt219-bukrs.

      endselect.

    else.

      itab_zycbt036-dtdocto = itab_zycbt219-dtcredext.

    endif.

    append itab_zycbt036.

  endloop.

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

  itab_zycbe033-vbund = itab_zycbt219-vbund.

* << Fim da inclusão

  itab_zycbe033-brnch = itab_zycbt030-j_1bbranch.

  itab_zycbe033-werks = itab_zycbt030-werks.

  if sy-subrc eq 0.

    append itab_zycbe033.

  endif.

  loop at itab_zycbt034.

    call function 'MESSAGE_STORE'

         exporting

              arbgb = '/PWS/ZYCBM'

              msgty = 'E'

...

...

    itab_partidas-agkoa   = 'D'.

    itab_partidas-agums   = /pws/zycbt011-agums.

    itab_partidas-bukrs   = itab_zycbt219-bukrs.

  else.

    itab_partidas-agkon   = itab_contas-konts.

    itab_partidas-agkoa   = 'S'.

    clear itab_partidas-agums.

    itab_partidas-bukrs   = itab_zycbt219-bukrs.

  endif.

  itab_zycbe033-flag_nc = 'X'.

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

  itab_zycbe033-vbund = itab_zycbt219-vbund.

* << Fim da inclusão

  clear itab_zycbe033-c_zuonr.

  append itab_zycbe033.

  itab_partidas-v_sinal = '+'.

  itab_partidas-shkzg   = 'H'.

  itab_partidas-tcode  = itab_zycbe033-tcode.

  itab_partidas-tabela = itab_zycbe033-tabela.

  itab_partidas-cpochv  = v_cpochv.

  itab_partidas-belnr   = v_belnr_inv.

  itab_partidas-dtdocto = sy-datum.

  append itab_partidas.

...

...

      itab_doctos-newbs = v_newbs.

      modify itab_doctos index v_line transporting newbs.

    endif.

  endloop.

  itab_zycbe033-augtx   = /pws/zycbt011-txtdesc.

  itab_zycbe033-d_sgtxt = /pws/zycbt011-txtdesc.

  itab_zycbe033-c_sgtxt = itab_zycbt030-nrinvoic.

  itab_zycbe033-zumsk   = itab_zycbt219-umskz.

  itab_zycbe033-agkon   = itab_zycbt219-hkont.

  itab_zycbe033-agkoa   = itab_zycbt219-koart.

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

  itab_zycbe033-vbund = itab_zycbt219-vbund.

* << Fim da inclusão

  clear itab_zycbe033-c_zuonr.

  append itab_zycbe033.

  if p_flag is initial.

    itab_zycbt036-tabela  = itab_zycbe033-tabela.

    itab_zycbt036-tcode   = itab_zycbe033-tcode.

    itab_zycbt036-cpochv  = itab_zycbe033-cpochv.

    if itab_zycbt219-belnr_cli is initial.

      itab_zycbt036-belnr = itab_zycbt219-belnr.

      itab_zycbt036-dtdocto = itab_zycbt219-dtincl.

    else.

...

...

             and   gjahr  = v_gjahr

             and   kunnr  = itab_zycbt219-kunnr

             and   bukrs  = itab_zycbt219-bukrs.

    else.

      itab_zycbt036-dtdocto = itab_zycbt219-dtcredext.

    endif.

    append itab_zycbt036.

  endloop.

  itab_zycbe033-brnch = itab_zycbt030-j_1bbranch.

  itab_zycbe033-werks = itab_zycbt030-werks.

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

  itab_zycbe033-vbund = itab_zycbt219-vbund.

* << Fim da inclusão

  itab_zycbe033-zfbdt = sy-datum.

  if sy-subrc eq 0.

    append itab_zycbe033.

  endif.

  loop at itab_zycbt034.

    call function 'MESSAGE_STORE'

         exporting

              arbgb = '/PWS/ZYCBM'

              msgty = 'I'

              msgv1 = itab_zycbt034-descricao

...

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

Modificações efetuadas em REPS /PWS/MZYCB033TOP

PROGRAM /pws/sapmzycb031 MESSAGE-ID /pws/zycbm.

INCLUDE <icon>.

INCLUDE /pws/mzycb033x01.

INCLUDE /pws/zygli100.

INCLUDE /pws/zygli101.

DATA: itab_zyglt100 LIKE /pws/zyglt100 OCCURS 0 WITH HEADER LINE.

* >> Início da exclusão:

DATA  v_tela_help   LIKE sy-dynnr VALUE '0052'."#EC *

* << Fim da exclusão

* >> Início da inclusão:

data  v_tela_help   like sy-dynnr value '0052'.             "#EC *

* << Fim da inclusão

TABLES:

        /pws/zycbt007,

* >> Início da inclusão:

        /pws/zyglt009,

* << Fim da inclusão

        /pws/zycbt089,

        /pws/zycbt011,

        /pws/zycbt017,

        /pws/zycbt030,

* >> Início da exclusão:

        /pws/zyglt364,"#EC *

        /pws/zycbt006,"#EC *

        /pws/zycbt005."#EC *

* << Fim da exclusão

* >> Início da inclusão:

        /pws/zyglt364,                                      "#EC *

        /pws/zycbt006,                                      "#EC *

        /pws/zycbt005.                                      "#EC *

* << Fim da inclusão

DATA: BEGIN OF itab_zycbt219_ant OCCURS 0.

        INCLUDE STRUCTURE /pws/zycbt219.

DATA: vlsltrans LIKE /pws/zycbt030-vlsltrans,

      oper(1)   TYPE c,

      mark(1)   TYPE c,

      v_name1   TYPE kna1-name1,

      vlavinc   TYPE /pws/zycbt017-vlavinc.

DATA: END OF itab_zycbt219_ant.

DATA: BEGIN OF itab_zycbt030 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycbt030.

...

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

Modificações efetuadas em TABD /PWS/ZYCBE219

CAMPOS NOVOS

CAMPOS:         TP. CAMPO   CH: INI: TAB.VERIF.:    TAB.REF.:     CPO.RE

VBUND RASSC CHAR 6 0 Nº sociedade parceira

Deverá ser criado entre os campos waers e vlme.

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

Modificações efetuadas em TABD /PWS/ZYCBT219

CAMPOS NOVOS

CAMPOS:         TP. CAMPO   CH: INI: TAB.VERIF.:    TAB.REF.:     CPO.RE

VBUND RASSC CHAR 6 0 Nº sociedade parceira

Deverá ser criado entre os campos waers e vlme.

Deverá ser criado entre os campos waers e vlme.

Deverá ser criado entre os campos waers e vlme.

Deverá ser criado entre os campos waers e vlme.