Sintoma

Preenchimento do Campo de Sociedade Parceira na Contabilização Remessa Financeira. (/pws/zycbt124).

Solução

Preenchimento do Campo de Sociedade Parceira na Contabilização Remessa Financeira. (/pws/zycbt124).

Informações Complementares

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

Nota Número 10215 Data: 28/05/2010 Hora: 15:45:03

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

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

Nota Número              : 10215

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00003

Agrupamento              : 00023

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

Referência às notas relacionadas:

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

06671  - 00001 - 7.0    - 00005  - REPATRIAÇÃO DE REMESSA

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

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

REMESSA FINANCEIRA, CONTABILIZAÇÃO  SOCIEDADE PARCEIRA

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

Palavras Chave:

REMESSA FINANCEIRA, CONTABILIZAÇÃO, SOCIEDADE PARCEIRA

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

Objetos da nota:

REPS /PWS/MZYCA109F01

REPS /PWS/MZYCA109O01

TABD /PWS/ZYCBE124

TABD /PWS/ZYCBT124

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

***********************************************

*                                             *

*  SOLICITAR DOWNLOAD DE TELAS                *

*                                             *

*  /PWS/SAPMZYCA109             TELA - 0101   *

*                                             *

***********************************************

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

Modificações efetuadas em REPS /PWS/MZYCA109F01

...

    else.

      message w061 with text-123 rbkp-belnr rbkp-gjahr text-124.

    endif.

  endif.

  leave to screen '0002'.

endform.

form call_function_f63

  using p_tpimp

        p_koart

        p_shkzg.

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

  data: aux_rot_mensal(1) type c.

  if p_tpimp = 'PRINCIPAL'.

     aux_rot_mensal = ''.

  else.

     aux_rot_mensal = 'X'.

  endif.

* << Fim da inclusão

  loop at itab_zycbt034.

    perform message_store using

            '/PWS/ZYCBM'

            'E'

            itab_zycbt034-descricao

            space

            space

            space

            '016'.

  endloop.

  if itab_zycbt034[] is initial.

    if v_modo_bi is initial.

      v_modo_bi = 'N'.

    endif.

    call function '/PWS/ZYCA_TRANSACAO_F_63R'

         exporting

              v_modo          = v_modo_bi

              v_vkoart        = p_koart

              v_shkzg         = p_shkzg

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

              rotina_mensal   = aux_rot_mensal

* << Fim da inclusão

         tables

              t_dados         = itab_zycbe033

              t_campo         = itab_zycbt034

              t_zycbt032      = itab_zycbt032

              t_debito        = itab_zycbe035

         exceptions

              campo_em_branco = 1

              periodo_fechado = 2

              others          = 3.

    if sy-subrc = 0.

...

...

      v_shkzg_bi = 'D'.

    endif.

  endif.

  perform verify_null_field using /pws/zycbe124-recrem

                                'D_NEWKO'

                                text-120.

  itab_zycbe033-d_newko = /pws/zycbe124-recrem.

  itab_zycbe033-d_gsber = /pws/zycbe124-gsber.

  itab_zycbe033-c_gsber = /pws/zycbe124-gsber.

  itab_zycbe033-zterm  = /pws/zycbt007-condpgvista.

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

  itab_zycbe033-vbund   = /pws/zycbe124-vbund.

* << Fim da inclusão

  append itab_zycbe033.

  perform preenche_partida_multipla_rec.

  loop at itab_zycbt034.

    perform message_store using

            '/PWS/ZYCBM'

            'E'

            itab_zycbt034-descricao

            space

            space

            space

...

...

      read table itab_zycat027

           with key koart = 'C'

                    shkzg = 'C'.

      itab_zycbe033-newbs     = itab_zycat027-bschl.

      v_koart_bi              = 'C'.

      v_shkzg_bi              = 'C'.

      itab_zycbe033-agkoa = 'D'.

    endif.

  endif.

  itab_zycbe033-belnr = /pws/zycbe124-belnr.

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

  itab_zycbe033-vbund     = /pws/zycbe124-vbund.

* << Fim da inclusão

  perform determina_ano using /pws/zycbe124-dtdocto

                              /pws/zycbe124-bukrs

                                changing v_ano.

  select single budat kursf awkey from bkpf

                      into (itab_zycbe033-dtdocto,itab_zycbe033-kursf,

                            itab_zycbe033-awkey)

                      where bukrs eq /pws/zycbe124-bukrs

                        and belnr eq /pws/zycbe124-belnr

                        and gjahr eq v_ano.

  clear:   itab_zyglt100.

...

...

                                  'WAERS'

                                  text-091.

  itab_zycbe033-waers  = /pws/zycbe124-waers.

  if sy-index <= 1.

    itab_zycbe033-wrbtr = /pws/zycbe124-vlme - itab_zycat025-vlimpme.

    v_processo = 'P'.

  elseif sy-index = 2.

    itab_zycbe033-wrbtr = itab_zycat025-vlimpme.

    v_processo = 'I'.

  endif.

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

  itab_zycbe033-vbund   = /pws/zycbe124-vbund.

* << Fim da inclusão

  clear:   itab_zyglt100.

  refresh: itab_zyglt100.

  if itab_zyglt100[] is initial.

    v_syrepid = sy-repid.

    call function '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'

         exporting

              i_codmod                = 'F'

              i_func                  = v_syrepid

         tables

              itab_zyglt100           = itab_zyglt100

...

...

      if sy-subrc = 0.

        read table itab_zyglt316 index 1.

        itab_zycbe033-c_newko = itab_zyglt316-konth.

      endif.

      itab_zycbe033-newbs   = '50'.

      clear: v_koart_bi, v_shkzg_bi.

    endif.

  endif.

  itab_zycbe033-d_gsber   = /pws/zycbe124-gsber.

  itab_zycbe033-c_gsber   = /pws/zycbe124-gsber.

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

  itab_zycbe033-vbund     = /pws/zycbe124-vbund.

* << Fim da inclusão

  append itab_zycbe033.

  perform preenche_partida_multipla using p_tpimp.

  clear:   itab_zyglt100.

  refresh: itab_zyglt100.

  if itab_zyglt100[] is initial.

    v_syrepid = sy-repid.

    call function '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'

         exporting

              i_codmod                = 'F'

              i_func                  = v_syrepid

...

...

    endif.

    loop at itab_zycbt141_i_aux where tpimp(4) = 'IRRF'.

      move itab_zycbt141_i_aux to itab_zycbt141_i_aux2.

      append itab_zycbt141_i_aux2.

    endloop.

    loop at itab_zycbt141_i where tpimp(4) = 'IRRF'.

      move itab_zycbt141_i to itab_zycbt141_i2.

      append itab_zycbt141_i2.

    endloop.

    if itab_zycbt141_i_aux2[] ne itab_zycbt141_i2[].

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

      p_estorna = 'X'.

      exit.

    endif.

    if /pws/zycbe124-vbund    ne wa_zycbt124-vbund.

* << Fim da inclusão

      p_estorna = 'X'.

      exit.

    endif.

  elseif ( p_tpimp                   ne 'PRINCIPAL'  and

           p_tpimp(4)                ne 'IRRF'       and

           p_criacao                 ne 'S'          and

           itab_zycat025_aux-dedfat  eq 'X' )        or

         ( p_tpimp   ne 'PRINCIPAL'  and

           p_criacao ne 'S'          and

           itab_zycat025_aux-dedfat  eq ' ' )        or

...

...

         /pws/zycbe124-kursf    is initial ).

        p_estorna = 'X'.

        exit.

      endif.

    endif.

    if /pws/zycbe124-bukrs      ne wa_zycbt124-bukrs      or

       /pws/zycbe124-waers      ne wa_zycbt124-waers      or

       /pws/zycbe124-vlme       ne wa_zycbt124-vlme       or

       /pws/zycbe124-j_1bbranch ne wa_zycbt124-j_1bbranch or

       /pws/zycbe124-gsber      ne wa_zycbt124-gsber      or

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

       /pws/zycbe124-tpcliente  ne wa_zycbt124-tpcliente.

* << Fim da exclusão

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

       /pws/zycbe124-tpcliente  ne wa_zycbt124-tpcliente  or

       /pws/zycbe124-vbund      ne wa_zycbt124-vbund.

* << Fim da inclusão

      p_estorna = 'X'.

      exit.

    endif.

    if not itab_zycat024-credito_imp is initial.

      v_cred_imp = itab_zycat024-credito_imp.

    else.

      v_cred_imp = /pws/zyglt009-cont_impostos.

    endif.

    if v_cred_imp = '2'.

      if /pws/zycbe124-recrem ne wa_zycbt124-recrem.

...

...

      if sy-subrc = 0.

        read table itab_zyglt316 index 1.

        itab_zycbe033-c_newko = itab_zyglt316-konth.

      endif.

      itab_zycbe033-newbs   = '50'.

      clear: v_koart_bi, v_shkzg_bi.

    endif.

  endif.

  itab_zycbe033-d_gsber   = /pws/zycbe124-gsber.

  itab_zycbe033-c_gsber   = /pws/zycbe124-gsber.

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

  itab_zycbe033-vbund     = /pws/zycbe124-vbund.

* << Fim da inclusão

  append itab_zycbe033.

  perform preenche_partida_multipla using p_tpimp.

  clear:   itab_zyglt100.

  refresh: itab_zyglt100.

  if itab_zyglt100[] is initial.

    v_syrepid = sy-repid.

    call function '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'

         exporting

              i_codmod                = 'F'

              i_func                  = v_syrepid

...

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

Modificações efetuadas em REPS /PWS/MZYCA109O01

...

               screen-name = '/PWS/ZYCBE124-BASECOFINS'    OR

               screen-name = '/PWS/ZYCBE124-ALIQCOFINS'    OR

               screen-name = '/PWS/ZYCBE124-VLCOFINS'      OR

               screen-name = '/PWS/ZYCBE124-ALIQISS'       ).

            screen-input = 1.

          ENDIF.

          IF screen-name = '/PWS/ZYCBE124-FRPAGTO'

                     AND /pws/zycbt125-tprem EQ '2'.

            screen-input = 0.

          ENDIF.

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

          IF screen-name EQ  '/PWS/ZYCBE124-DTDOCTO'.

            IF /pws/zycbe124-criacao = 'S'.

              screen-required = '1'.

            ENDIF.

          ENDIF.

* << Fim da inclusão

          IF ( screen-name = '/PWS/ZYCBE124-XBLNR' OR

               screen-name = '/PWS/ZYCBE124-BELNR_RE' OR

               screen-name = '/PWS/ZYCBE124-NRINVOIC' )

               AND /pws/zycbt125-tprem NE '2'.

            screen-invisible = 1.

            screen-input = 0.

          ELSEIF ( screen-name = '/PWS/ZYCBE124-XBLNR' OR

               screen-name = '/PWS/ZYCBE124-BELNR_RE' OR

               screen-name = '/PWS/ZYCBE124-NRINVOIC' )

               AND /pws/zycbt125-tprem EQ '2'.

...

...

          CLEAR /pws/zyglt214.

          SELECT SINGLE * FROM /pws/zyglt214

                 INTO /pws/zyglt214

                 WHERE codnorma = /pws/zycbe124-codnorma.

          IF sy-subrc EQ 0.

            norma = /pws/zyglt214-norma.

          ELSE.

            CLEAR norma.

          ENDIF.

      ENDCASE.

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

      IF ( v_trans EQ 'I' OR v_trans EQ 'A' )          AND

             /pws/zycat028-tp_processo      EQ 'FI'    AND

         NOT /pws/zycat028-nr_processo      IS INITIAL AND

         NOT /pws/zyglt009-flag_soc_parceir IS INITIAL.

        IF v_trans EQ 'I'.

          MOVE /pws/zycbt112-vbund TO /pws/zycbe124-vbund.

        ENDIF.

        LOOP AT SCREEN.

          IF screen-name EQ '/PWS/ZYCBE124-VBUND'.

            screen-input = '0'.

          ENDIF.

          MODIFY SCREEN.

        ENDLOOP.

      ELSE.

        IF v_status_s NE '0' AND v_trans NE 'E'.

          SELECT SINGLE * FROM /pws/zyglt009

          WHERE bukrs EQ /pws/zycbe124-bukrs.

          LOOP AT SCREEN.

            IF screen-name EQ '/PWS/ZYCBE124-VBUND'.

              IF NOT /pws/zyglt009-flag_soc_parceir IS INITIAL.

                screen-input = '1'.

              ELSE.

                CLEAR /pws/zycbe124-vbund.

                screen-input = '0'.

              ENDIF.

            ENDIF.

            MODIFY SCREEN.

          ENDLOOP.

        ENDIF.

      ENDIF.

* << Fim da inclusão

  ENDCASE.

ENDMODULE.

MODULE load_data OUTPUT.

  IF /pws/zycbe124-nrseq IS INITIAL AND v_status_s NE '0'.

    CLEAR: /pws/zycbt007.

    PERFORM find_nrseq.

    v_nrseq = /pws/zycbe124-nrseq.

    v_trans = 'I'.

    optnao = 'X'.

    optsim = ' '.

...

...

             v_nome_campo,

             v_comp.

  IF sy-dynnr EQ '0102'.

    v_cod_grupo = 'CCO'.

  ENDIF.

  SELECT campo flag

     FROM /pws/zyglt320

     INTO TABLE itab_t320

      WHERE programa = sy-repid AND

            tela     = sy-dynnr AND

* >> Início da exclusão: MODULE TRATA_TBCONTROL

            cod_grupo = v_cod_grupo."#EC CI_NOFIRST

* << Fim da exclusão

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

            cod_grupo = v_cod_grupo.                    "#EC CI_NOFIRST

* << Fim da inclusão

  SORT itab_t320 BY campo.

  LOOP AT SCREEN.

    itab_nome_campo-nome_campo_tela = screen-name.

    APPEND itab_nome_campo.

  ENDLOOP.

  SORT itab_nome_campo.

  LOOP AT itab_t320.

    CONCATENATE '.' itab_t320-campo '.' INTO v_comp.

    SEARCH itab_nome_campo FOR v_comp STARTING AT 1.

    IF sy-subrc EQ 0.

...

...

              v_comp.

  IF sy-dynnr EQ '0104' .

    v_cod_grupo = 'CCR'.

  ENDIF.

  IF sy-dynnr = '0104' AND /pws/zycbe124-tpoper = 'R'.

    SELECT campo flag

       FROM /pws/zyglt320

       INTO TABLE itab_t320

        WHERE programa  EQ sy-repid AND

              tela      EQ '0108'   AND

* >> Início da exclusão: MODULE TRATA_CAMPOS

              cod_grupo EQ v_cod_grupo."#EC CI_NOFIRST

* << Fim da exclusão

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

              cod_grupo EQ v_cod_grupo.                 "#EC CI_NOFIRST

* << Fim da inclusão

  ELSE.

    SELECT campo flag

       FROM /pws/zyglt320

       INTO TABLE itab_t320

        WHERE programa = sy-repid AND

              tela     = sy-dynnr AND

* >> Início da exclusão: MODULE TRATA_CAMPOS

              cod_grupo = v_cod_grupo."#EC CI_NOFIRST

* << Fim da exclusão

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

              cod_grupo = v_cod_grupo.                  "#EC CI_NOFIRST

* << Fim da inclusão

  ENDIF.

  SORT itab_t320 BY campo.

  LOOP AT SCREEN.

    itab_nome_campo-nome_campo_tela = screen-name.

    APPEND itab_nome_campo.

  ENDLOOP.

  SORT itab_nome_campo.

  LOOP AT itab_t320.

    CONCATENATE '.' itab_t320-campo '.' INTO v_comp.

    SEARCH itab_nome_campo FOR v_comp STARTING AT 1.

...

...

MODULE load_html_help OUTPUT.

  IF my_container IS INITIAL.

    CREATE OBJECT my_container

        EXPORTING

            container_name = 'CC_HTML_HELP'

        EXCEPTIONS

            others = 1.

    CASE sy-subrc.

      WHEN 0.

      WHEN OTHERS.

* >> Início da exclusão: MODULE LOAD_HTML_HELP

        RAISE cntl_error."#EC *

* << Fim da exclusão

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

        RAISE cntl_error.                                   "#EC *

* << Fim da inclusão

    ENDCASE.

  ENDIF.

  IF html_control IS INITIAL.

    CREATE OBJECT html_control

         EXPORTING

              parent    = my_container.

    IF sy-subrc NE 0.

* >> Início da exclusão: MODULE LOAD_HTML_HELP

      RAISE cntl_error."#EC *

* << Fim da exclusão

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

      RAISE cntl_error.                                     "#EC *

* << Fim da inclusão

    ENDIF.

    alignment = html_control->align_at_left +

                html_control->align_at_right +

                html_control->align_at_top +

                html_control->align_at_bottom.

    CALL METHOD html_control->set_alignment

       EXPORTING

         alignment = alignment.

    myevent-eventid = html_control->m_id_sapevent.

    myevent-appl_event = 'X'.

    APPEND myevent TO myevent_tab.

    CALL METHOD html_control->set_registered_events

        EXPORTING

           events = myevent_tab.

    CREATE OBJECT evt_receiver.

    SET HANDLER evt_receiver->on_sapevent

                FOR html_control.

    PERFORM load_home_page.

  ENDIF.

ENDMODULE.

* >> Início da exclusão: MODULE STATUS_0004

MODULE status_0004 OUTPUT."#EC *

* << Fim da exclusão

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

MODULE status_0004 OUTPUT.                                  "#EC *

* << Fim da inclusão

  SET PF-STATUS '0004'.

* >> Início da exclusão: MODULE STATUS_0004

  SET TITLEBAR '004'."#EC *

* << Fim da exclusão

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

  SET TITLEBAR '004'.                                       "#EC *

* << Fim da inclusão

ENDMODULE.

module screen_0002_out output.

   IF v_habilitar_sequencial = 'X'.

...

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

Modificações efetuadas em TABD /PWS/ZYCBT124

MODIFICAR TABELA TRANSPARENTE: /PWS/ZYCBT124

DESCRIÇÃO BREVE: GL - Pagamentos e Recebimentos (Remessas)

CARACTERÍSTICAS

* INCLUIR O NOVO CAMPO NO FINAL DA TABELA

CAMPOS NOVOS

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

...

TPCLIENTE  /PWS/ZYGLL1392

* >> Início da inclusão:

VBUND         RASSC           ''  ''    T880           ''            ''         T880

* << Fim da inclusão

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

Modificações efetuadas em TABD /PWS/ZYCBE124

MODIFICAR ESTRUTURA: /PWS/ZYCBE124

DESCRIÇÃO BREVE: GL - Pagamentos e Recebimentos (Remessas)

COMPONENTES NOVOS

COMPONENTE:     TP. COMP:      TAB.VERIF.:       CPO.REF.:    AJUD. PESQU.

...

TPCLIENTE       /PWS/ZYGLL1392

* >> Início da inclusão:

VBUND           RASSC          T880                           CSH_T880

* << Fim da inclusão

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