Sintoma

Necessidade de tratamento sociedade parceira na funcionalidade de importação.

Solução

Tratamento sociedade parceira na funcionalidade de importação.

Informações Complementares

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

Nota Número 10210 Data: 28/05/2010 Hora: 10:28:48

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

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

Nota Número              : 10210

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

00535  - 00001 - 6.0    - 00022  - DESABILITAÇÃO DO BOTÃO DE DESPESAS NO FINANCIAMENTO

01156  - 00002 - 6.0    - 00023  - CAMPO TEXTO INFORMATIVO - PARAMETRO /PWS/ZYGL007

03318  - 00003 - 6.0    - 00026  - FINANCIAMENTO - SELEÇÃO TAXA DE CAMBIO

09943  - 00004 - 8.0    - 00002  - AJUSTES NO PRINCIPAL E NO JUROS DO FINANCIAMENTO BOTÃO ELIMINAR L

09968  - 00005 - 8.0    - 00003  - FINANCIAMENTO DE IMPORTAÇÃO - PROCESSAR BOLETO DE COMISSÃO

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

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

SOCIEDADE PARCEIRA FINANCIAMENTO

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

Palavras Chave:

SOCIEDADE PARCEIRA FINANCIAMENTO

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

Objetos da nota:

DYNP /PWS/SAPMZYCM101                        0108

REPS /PWS/MZYCM101F01

REPS /PWS/MZYCM101O01

TABD /PWS/ZYCBE112

TABD /PWS/ZYCBT112

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

Modificações efetuadas em DYNP /PWS/SAPMZYCM101                        0108

MODIFICAR CAMPO TEXTO "/PWS/ZYCBE112-AUFNR"

Linha                    8

MODIFICAR TEXTO "/PWS/ZYCBE112-AUFNR"

Linha                    8

MODIFICAR CAMPO TEXTO "/PWS/ZYCBE112-EBELN"

Linha                    7

MODIFICAR TEXTO "/PWS/ZYCBE112-EBELN"

Linha                    7

MODIFICAR CAMPO TEXTO "/PWS/ZYCBE112-FICTR"

Linha                    6

MODIFICAR TEXTO "/PWS/ZYCBE112-FICTR"

Linha                    6

MODIFICAR CAMPO TEXTO "/PWS/ZYCBE112-FIPOS"

Linha                    5

MODIFICAR TEXTO "/PWS/ZYCBE112-FIPOS"

Linha                    5

MODIFICAR CAMPO TEXTO "/PWS/ZYCBE112-KOSTL"

Linha                    3

MODIFICAR TEXTO "/PWS/ZYCBE112-KOSTL"

Linha                    3

MODIFICAR CAMPO TEXTO "/PWS/ZYCBE112-PRCTR"

Linha                    4

MODIFICAR TEXTO "/PWS/ZYCBE112-PRCTR"

Linha                    4

MODIFICAR CAMPO TEXTO "/PWS/ZYCBE112-PS_POSID"

Linha                    9

MODIFICAR TEXTO "/PWS/ZYCBE112-PS_POSID"

Linha                    9

INCLUIR CAMPO TEXTO "/PWS/ZYCBE112-VBUND"

Comprimento Visível      6

Linha                    2

Coluna                   19

Formato                  CHAR

Linhas mínimas           6

Texto                    ______

Código função

INCLUIR TEXTO "/PWS/ZYCBE112-VBUND"

Comprimento Visível      15

Linha                    2

Coluna                   3

Formato                  CHAR

Texto                    Socied.parceira

Código função

MODIFICAR BOTÃO "OBJRES"

Linha                    10

MODIFICAR TEXTO "TEXT001"

Linha                    10

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

Modificações efetuadas em REPS /PWS/MZYCM101F01

...

  endif.

  move /pws/zycbe112 to /pws/zycbt112.

  clear : itab_zycbt113pa.

  refresh : itab_zycbt113pa.

  select *

         from /pws/zycbt113

         into table itab_zycbt113pa

         where nrseq eq /pws/zycbe112-nrseq

           and tpparc eq 'P'.

  clear : v_modifp, v_mdparc.

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

  clear /pws/zyglt009.

  select single *

    from /pws/zyglt009

   where bukrs eq /pws/zycbe112-bukrs.

* << Fim da inclusão

  loop at itab_zycbt113pa where belnr ne ' '.

    read table itab_zycbt113p with key nrparc = itab_zycbt113pa-nrparc.

    v_tabix = sy-tabix.

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

    if sy-subrc eq 0 and

       ( itab_zycbt113pa-vlme ne itab_zycbt113p-vlme or

         itab_zycbt113pa-dtvecto ne itab_zycbt113p-dtvecto ).

* << Fim da exclusão

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

    if sy-subrc eq 0

   and ( itab_zycbt113pa-vlme ne itab_zycbt113p-vlme

      or itab_zycbt113pa-dtvecto ne itab_zycbt113p-dtvecto

      or ( /pws/zycbe112-vbund ne wa_zycbt112-vbund

       and /pws/zyglt009-flag_soc_parceir eq 'X' ) ).

* << Fim da inclusão

      v_modifp = 'X'.

    endif.

    if sy-subrc eq 0

   and v_modifp is initial.

      read table itab_excluidos

      with key nrparc = itab_zycbt113p-nrparc.

      if sy-subrc eq 0.

        if not itab_excluidos-belnr is initial.

          move itab_excluidos-belnr

            to itab_zycbt113p-belnr.

...

...

         not /pws/zycbe112-lifnr ne wa_zycbt112-lifnr.

        loop at itab_zycbt113p.

          read table itab_zycbt113pa

               with key nrseq  = itab_zycbt113p-nrseq

                      tpparc = itab_zycbt113p-tpparc

                      nrparc = itab_zycbt113p-nrparc.

          if itab_zycbt113p-vlme eq itab_zycbt113pa-vlme.

            if itab_zycbt113p-dtfinal ne itab_zycbt113pa-dtfinal and

               itab_zycbt113p-ftransf eq itab_zycbt113pa-ftransf.

              perform fill_date_fb02.

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

            endif.

* << Fim da inclusão

              modify /pws/zycbt112 from /pws/zycbe112.

              commit work.

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

            endif.

* << Fim da exclusão

          endif.

        endloop.

      endif.

      perform modify_zycbt112.

      read table itab_zycbt113p with key belnr = ' '.

...

...

        loop at itab_zycbt113p.

          read table itab_zycbt113pa

               with key nrseq  = itab_zycbt113p-nrseq

                      tpparc = itab_zycbt113p-tpparc

                      nrparc = itab_zycbt113p-nrparc.

          if itab_zycbt113p-vlme eq itab_zycbt113pa-vlme

         and itab_zycbt113p-nrdias eq itab_zycbt113pa-nrdias.

            if itab_zycbt113p-dtfinal ne itab_zycbt113pa-dtfinal and

               itab_zycbt113p-ftransf eq itab_zycbt113pa-ftransf.

              perform fill_date_fb02.

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

            endif.

* << Fim da inclusão

              modify /pws/zycbt112 from /pws/zycbe112.

              commit work.

            endif.

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

          endif.

* << Fim da exclusão

        endloop.

        perform reverse_document_zycbt112.

        perform save_zycbt113.

      endif.

...

...

    perform recontabiliza_parcelas.

    exit.

  endif.

  if not itab_excluidos[] is initial.

    perform estorna_parcelas_excluidas.

  endif.

  loop at itab_zycbt113p where ftransf ne 'C'

                           and belnr ne ' '

                           and ( dtpagto eq ' ' or

                                 dtpagto eq '00000000' ).

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

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

      clear: /pws/zycbe112-vbund,

             wa_zycbt112-vbund.

    endif.

* << Fim da inclusão

    if not /pws/zycbe112-dtdesem ne wa_zycbt112-dtdesem and

       not /pws/zycbe112-lifnr ne wa_zycbt112-lifnr     and

       not /pws/zycbe112-waers ne wa_zycbt112-waers.

     read table itab_zycbt113pa with key nrparc = itab_zycbt113p-nrparc.

      if itab_zycbt113p-vlme eq itab_zycbt113pa-vlme and

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

         itab_zycbt113p-ftransf eq itab_zycbt113pa-ftransf.

* << Fim da exclusão

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

         itab_zycbt113p-ftransf eq itab_zycbt113pa-ftransf

     and /pws/zycbe112-vbund eq wa_zycbt112-vbund.

* << Fim da inclusão

        if not itab_zycbt113pa-belnr is initial.

          continue.

        endif.

      endif.

    endif.

    if itab_zycbt113p-belnr is initial.

      continue.

    endif.

    itab_zycbe033-mandt  = sy-mandt.

    itab_zycbe033-tcode  = 'FB08'.

...

...

    itab_zycbe033-d_gsber = /pws/zycbe112-gsber.

    itab_zycbe033-d_kostl = /pws/zycbe112-kostl.

    itab_zycbe033-d_prctr = /pws/zycbe112-prctr.

    itab_zycbe033-d_fipos = /pws/zycbe112-fipos.

    itab_zycbe033-d_fictr = /pws/zycbe112-fictr.

    itab_zycbe033-c_gsber = /pws/zycbe112-gsber.

    itab_zycbe033-c_kostl = /pws/zycbe112-kostl.

    itab_zycbe033-c_prctr = /pws/zycbe112-prctr.

    itab_zycbe033-c_fipos = /pws/zycbe112-fipos.

    itab_zycbe033-c_fictr = /pws/zycbe112-fictr.

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

    itab_zycbe033-vbund   = /pws/zycbe112-vbund.

* << Fim da inclusão

    perform ativa_pedido.

    if v_pedido eq 'X'.

      perform verify_null_field using /pws/zycbe112-ebeln

                                      'EBELN'

                                      text-190.

      itab_zycbe033-ebeln = /pws/zycbe112-ebeln.

      perform verify_null_field using /pws/zycbe112-ebelp

                                      'EBELP'

                                      text-191.

      itab_zycbe033-ebelp = /pws/zycbe112-ebelp.

...

...

    v_nparc = 0.

    loop at itab_zycbt113_ant.

      v_nparc = v_nparc + 1.

      itab_zycbt113_ant-nrparc = v_nparc.

      modify itab_zycbt113_ant.

    endloop.

    clear : itab_zycbt113c, itab_zycbt113_aux.

    refresh : itab_zycbt113_aux.

    move : itab_zycbt113c[] to itab_zycbt113_aux[].

    read table itab_zycbt113_ant index 1.

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

    clear /pws/zyglt009.

    select single *

      from /pws/zyglt009

     where bukrs eq /pws/zycbe112-bukrs.

* << Fim da inclusão

    if ( ( itab_zycbt113_aux[]         ne itab_zycbt113_ant[]  or

         /pws/zycbe112-fpagto_c      ne wa_zycbt112-fpagto_c or

         ( /pws/zycbe112-fpagto_c    eq 'P'                  and

           itab_zycbt113_ant-belnr_c ne ' ' ) )              and

        itab_zycbt113c_exc[] is initial )

       or /pws/zycbe112-dtdesem  ne wa_zycbt112-dtdesem

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

       or /pws/zycbe112-waers ne wa_zycbt112-waers.

* << Fim da exclusão

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

       or /pws/zycbe112-waers ne wa_zycbt112-waers

       or ( /pws/zycbe112-vbund ne wa_zycbt112-vbund

        and /pws/zyglt009-flag_soc_parceir eq 'X').

* << Fim da inclusão

      move: itab_zycbt113_aux[] to itab_zycbt113_ant[].

      describe table itab_zycbt113_ant lines v_nrlines.

      if not v_nrlines is initial.

        perform reverse_document_zycbt113.

        if /pws/zycbe112-fpagto_c <> 'P' and

           /pws/zycbe112-fpagto_c ne 'D'.

          perform fill_date_f02.

        endif.

      else.

        if /pws/zycbe112-fpagto_c <> 'P' and

...

...

    itab_zycbe033-d_gsber = /pws/zycbe112-gsber.

    itab_zycbe033-d_kostl = itab_zycbt113c-kostl.

    itab_zycbe033-d_prctr = /pws/zycbe112-prctr.

    itab_zycbe033-d_fipos = /pws/zycbe112-fipos.

    itab_zycbe033-d_fictr = /pws/zycbe112-fictr.

    itab_zycbe033-c_gsber = /pws/zycbe112-gsber.

    itab_zycbe033-c_kostl = itab_zycbt113c-kostl.

    itab_zycbe033-c_prctr = /pws/zycbe112-prctr.

    itab_zycbe033-c_fipos = /pws/zycbe112-fipos.

    itab_zycbe033-c_fictr = /pws/zycbe112-fictr.

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

    itab_zycbe033-vbund   = /pws/zycbe112-vbund.

* << Fim da inclusão

    itab_zycbe033-ps_posid = itab_zycbt113c-ps_posid.

    append itab_zycbe033.

    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                = 'I'

                i_func                  = v_syrepid

...

...

    perform verify_null_field using v_txc_f02

                                    'KURSF'

                                    text-082.

  endif.

  perform verify_null_field using wa_zycbt011_rd-blart

                                  'BLART'

                                  text-014.

  itab_zycbe033-blart  = wa_zycbt011_rd-blart.

  itab_zycbe033-d_prctr  = /pws/zycbe112-prctr.

  itab_zycbe033-c_prctr  = /pws/zycbe112-prctr.

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

  itab_zycbe033-vbund   = /pws/zycbe112-vbund.

* << Fim da inclusão

  append itab_zycbe033.

  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                = 'I'

              i_func                  = v_syrepid

         tables

...

...

                          - itab_zycbt035-wrbtr1.

    itab_zycbe033-waers  = itab_zycbt112-waers.

    perform verify_null_field using wa_zycbt011_rd-blart

                                    'BLART'

                                    text-014.

    itab_zycbe033-blart  = wa_zycbt011_rd-blart.

    itab_zycbe033-d_zuonr = itab_zycbt035-d_zuonr.

    itab_zycbe033-c_zuonr = itab_zycbt035-d_zuonr.

    itab_zycbe033-d_gsber = /pws/zycbe112-gsber.

    itab_zycbe033-c_gsber = /pws/zycbe112-gsber.

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

    itab_zycbe033-vbund   = /pws/zycbe112-vbund.

* << Fim da inclusão

    append itab_zycbe033.

    loop at itab_zycbt034.

      if itab_zycbt034-campo eq 'AGKON'.

        wa_mensagem-tpmsg = c_erro.

        concatenate text-246

                    itab_zycbt034-descricao

                    text-247

                    text-248

                    v_codeven_r

                    text-249

...

...

    itab_zycbe033-d_gsber = /pws/zycbe112-gsber.

    itab_zycbe033-d_kostl = /pws/zycbe112-kostl.

    itab_zycbe033-d_prctr = /pws/zycbe112-prctr.

    itab_zycbe033-d_fipos = /pws/zycbe112-fipos.

    itab_zycbe033-d_fictr = /pws/zycbe112-fictr.

    itab_zycbe033-c_gsber = /pws/zycbe112-gsber.

    itab_zycbe033-c_kostl = /pws/zycbe112-kostl.

    itab_zycbe033-c_prctr = /pws/zycbe112-prctr.

    itab_zycbe033-c_fipos = /pws/zycbe112-fipos.

    itab_zycbe033-c_fictr = /pws/zycbe112-fictr.

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

    itab_zycbe033-vbund   = /pws/zycbe112-vbund.

* << Fim da inclusão

    append itab_zycbe033.

    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                = 'I'

                i_func                  = v_syrepid

           tables

...

...

    itab_zycbe033-d_gsber = /pws/zycbe112-gsber.

    itab_zycbe033-d_kostl = /pws/zycbe112-kostl.

    itab_zycbe033-d_prctr = /pws/zycbe112-prctr.

    itab_zycbe033-d_fipos = /pws/zycbe112-fipos.

    itab_zycbe033-d_fictr = /pws/zycbe112-fictr.

    itab_zycbe033-c_gsber = /pws/zycbe112-gsber.

    itab_zycbe033-c_kostl = /pws/zycbe112-kostl.

    itab_zycbe033-c_prctr = /pws/zycbe112-prctr.

    itab_zycbe033-c_fipos = /pws/zycbe112-fipos.

    itab_zycbe033-c_fictr = /pws/zycbe112-fictr.

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

    itab_zycbe033-vbund   = /pws/zycbe112-vbund.

* << Fim da inclusão

    append itab_zycbe033.

    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                = 'I'

                i_func                  = v_syrepid

           tables

...

...

    itab_zycbe033-d_gsber = wa_zycbt112r-gsber.

    itab_zycbe033-d_kostl = wa_zycbt112r-kostl.

    itab_zycbe033-d_prctr = wa_zycbt112r-prctr.

    itab_zycbe033-d_fipos = wa_zycbt112r-fipos.

    itab_zycbe033-d_fictr = wa_zycbt112r-fictr.

    itab_zycbe033-c_gsber = wa_zycbt112r-gsber.

    itab_zycbe033-c_kostl = wa_zycbt112r-kostl.

    itab_zycbe033-c_prctr = wa_zycbt112r-prctr.

    itab_zycbe033-c_fipos = wa_zycbt112r-fipos.

    itab_zycbe033-c_fictr = wa_zycbt112r-fictr.

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

    itab_zycbe033-vbund   = /pws/zycbe112-vbund.

* << Fim da inclusão

    append itab_zycbe033.

    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                = 'I'

                i_func                  = v_syrepid

           tables

...

...

  if v_resp eq '1'.

    v_processa = 'X'.

    perform gera_boleto.

  else.

    exit.

  endif.

endform.

form gera_boleto.

  data:     v_finan  type c,

            v_dtvencto like /pws/zycbe112-dtvencto.

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

  data:  begin of empresa occurs 0,

         sign(1)   type c,

         option(2) type c,

         low(4)    type c,

         high(4)   type c,

  end of empresa.

  move itab_zycbt113c-dtvecto to v_dtvencto.

  if sy-dynnr eq 102.

     read table itab_zycbt113p with key mark = 'X'.

     if sy-subrc eq 0.

        if not itab_zycbt113p-dtvecto is initial.

           move itab_zycbt113p-dtvecto to v_dtvencto.

        else.

           move itab_zycbt113p-dtfinal to v_dtvencto.

        endif.

     endif.

  elseif sy-dynnr eq 103.

         read table itab_zycbt113j with key mark = 'X'.

         if sy-subrc eq 0.

            if not itab_zycbt113j-dtvecto is initial.

               move itab_zycbt113j-dtvecto to v_dtvencto.

            else.

               move itab_zycbt113j-dtfinal to v_dtvencto.

            endif.

         endif.

  elseif sy-dynnr eq 104.

         read table itab_zycbt113c with key mark = 'X'.

         if sy-subrc eq 0.

            if not itab_zycbt113c-dtvecto is initial.

* << Fim da inclusão

  move itab_zycbt113c-dtvecto to v_dtvencto.

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

            else.

               move itab_zycbt113c-dtfinal to v_dtvencto.

            endif.

         endif.

  endif.

  empresa-sign   = 'I'.

  empresa-option = 'EQ'.

  empresa-low    = /pws/zycbe112-bukrs.

  append empresa.

  export empresa to memory id 'E001'.

* << Fim da inclusão

  v_finan = 'X'.

  export v_finan to memory id '001F'.

  set parameter id '/PWS/ZYCBP361' field i_boleto-nrseq.

  submit /pws/zycbr102 with import eq 'X' with data eq v_dtvencto

  and return.

endform.

form checa_boleto.

  clear v_dele.

  case sy-dynnr.

    when '0102'.

...

...

    itab_zycbe033-d_gsber = /pws/zycbe112-gsber.

    itab_zycbe033-d_kostl = /pws/zycbe112-kostl.

    itab_zycbe033-d_prctr = /pws/zycbe112-prctr.

    itab_zycbe033-d_fipos = /pws/zycbe112-fipos.

    itab_zycbe033-d_fictr = /pws/zycbe112-fictr.

    itab_zycbe033-c_gsber = /pws/zycbe112-gsber.

    itab_zycbe033-c_kostl = /pws/zycbe112-kostl.

    itab_zycbe033-c_prctr = /pws/zycbe112-prctr.

    itab_zycbe033-c_fipos = /pws/zycbe112-fipos.

    itab_zycbe033-c_fictr = /pws/zycbe112-fictr.

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

    itab_zycbe033-vbund   = /pws/zycbe112-vbund.

* << Fim da inclusão

    append itab_zycbe033.

    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                = 'I'

                i_func                  = v_syrepid

           tables

...

...

  else.

  endif.

endform.

form ativa_pedido.

  clear v_pedido.

  call customer-function '002'

        importing

            v_subrc = v_pedido.

endform.

form verifica_relevantes.

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

  clear /pws/zyglt009.

  select single *

    from /pws/zyglt009

   where bukrs eq /pws/zycbe112-bukrs.

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

    clear: /pws/zycbe112-vbund,

           wa_zycbt112-vbund.

  endif.

* << Fim da inclusão

  if v_pedido eq 'X'.

    if /pws/zycbe112-nrfinanc eq wa_zycbt112-nrfinanc and

       /pws/zycbe112-dtdesem  eq wa_zycbt112-dtdesem  and

       /pws/zycbe112-bukrs    eq wa_zycbt112-bukrs    and

       /pws/zycbe112-waers    eq wa_zycbt112-waers    and

       /pws/zycbe112-kursf    eq wa_zycbt112-kursf    and

       /pws/zycbe112-ftaxa    eq wa_zycbt112-ftaxa    and

       /pws/zycbe112-vlme     eq wa_zycbt112-vlme     and

       /pws/zycbe112-lifnr    eq wa_zycbt112-lifnr    and

       /pws/zycbe112-gsber    eq wa_zycbt112-gsber    and

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

       /pws/zycbe112-vbund    eq wa_zycbt112-vbund    and

* << Fim da inclusão

       /pws/zycbe112-kostl    eq wa_zycbt112-kostl    and

       /pws/zycbe112-prctr    eq wa_zycbt112-prctr    and

       /pws/zycbe112-fictr    eq wa_zycbt112-fictr    and

       /pws/zycbe112-fipos    eq wa_zycbt112-fipos    and

       /pws/zycbe112-codint   eq wa_zycbt112-codint   and

       /pws/zycbe112-statusp  eq text-007             and

       v_modifp          ne 'X' and

       /pws/zycbe112-bco_forn eq wa_zycbt112-bco_forn and

       /pws/zycbe112-ebeln    eq wa_zycbt112-ebeln    and

       /pws/zycbe112-ebelp    eq wa_zycbt112-ebelp.

...

...

  else.

    if /pws/zycbe112-nrfinanc eq wa_zycbt112-nrfinanc and

       /pws/zycbe112-dtdesem  eq wa_zycbt112-dtdesem  and

       /pws/zycbe112-bukrs    eq wa_zycbt112-bukrs    and

       /pws/zycbe112-waers    eq wa_zycbt112-waers    and

       /pws/zycbe112-kursf    eq wa_zycbt112-kursf    and

       /pws/zycbe112-ftaxa    eq wa_zycbt112-ftaxa    and

       /pws/zycbe112-vlme     eq wa_zycbt112-vlme     and

       /pws/zycbe112-lifnr    eq wa_zycbt112-lifnr    and

       /pws/zycbe112-gsber    eq wa_zycbt112-gsber    and

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

       /pws/zycbe112-vbund    eq wa_zycbt112-vbund    and

* << Fim da inclusão

       /pws/zycbe112-kostl    eq wa_zycbt112-kostl    and

       /pws/zycbe112-prctr    eq wa_zycbt112-prctr    and

       /pws/zycbe112-fictr    eq wa_zycbt112-fictr    and

       /pws/zycbe112-fipos    eq wa_zycbt112-fipos    and

       /pws/zycbe112-codint   eq wa_zycbt112-codint   and

       /pws/zycbe112-statusp  eq text-007             and

       v_modifp          ne 'X' and

       /pws/zycbe112-bco_forn eq wa_zycbt112-bco_forn and

       itab_zycmt020[]        eq itab_zycmt020_cp[].

      v_mdparc = 'X'.

...

...

    else.

      if not /pws/zycbe112-bco_forn is initial.

        if /pws/zycbe112-nrfinanc eq wa_zycbt112-nrfinanc and

           /pws/zycbe112-dtdesem  eq wa_zycbt112-dtdesem  and

           /pws/zycbe112-bukrs    eq wa_zycbt112-bukrs    and

           /pws/zycbe112-waers    eq wa_zycbt112-waers    and

           /pws/zycbe112-kursf    eq wa_zycbt112-kursf    and

           /pws/zycbe112-ftaxa    eq wa_zycbt112-ftaxa    and

           /pws/zycbe112-vlme     eq wa_zycbt112-vlme     and

           /pws/zycbe112-gsber    eq wa_zycbt112-gsber    and

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

           /pws/zycbe112-vbund    eq wa_zycbt112-vbund    and

* << Fim da inclusão

           /pws/zycbe112-kostl    eq wa_zycbt112-kostl    and

           /pws/zycbe112-prctr    eq wa_zycbt112-prctr    and

           /pws/zycbe112-fictr    eq wa_zycbt112-fictr    and

           /pws/zycbe112-fipos    eq wa_zycbt112-fipos    and

           /pws/zycbe112-codint   eq wa_zycbt112-codint   and

           /pws/zycbe112-statusp  eq text-007             and

           v_modifp         ne 'X' and

           /pws/zycbe112-bco_forn eq wa_zycbt112-bco_forn.

          v_mdparc = 'X'.

          clear v_relevante.

...

...

        itab_zycbe033-kursf  = /pws/zycbe112-kursf.

      else.

        perform obtem_taxa_cambial using /pws/zycbe112-dtdesem.

        itab_zycbe033-kursf = v_taxacambial.

      endif.

    endif.

    perform verify_null_field using wa_zycbt011-blart

                                    'BLART'

                                    text-014.

    itab_zycbe033-blart  = wa_zycbt011-blart.

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

    itab_zycbe033-vbund   = /pws/zycbe112-vbund.

* << Fim da inclusão

    append itab_zycbe033.

    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                = 'I'

                i_func                  = v_syrepid

           tables

...

...

        case itab_zyglt321-cpocb.

          when 'NRSEQ'.

            itab_zycbe033-xblnr = itab_zycbt113p-nrseq.

        endcase.

    endcase.

  endloop.

  clear itab_zycbe033-newbs.

  if itab_zycbt113p-belnr = itab_zycbt113p-belnr_ori.

    itab_zycbe033-newbs = '29'.

  endif.

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

  itab_zycbe033-vbund   = /pws/zycbe112-vbund.

* << Fim da inclusão

  append itab_zycbe033.

  loop at itab_zycbt034.

    message i016 with itab_zycbt034-descricao.

  endloop.

  if itab_zycbt034[] is initial.

    call function '/PWS/ZYCB_TRANSACAO_FB02B'

         exporting

              v_modo          = v_modo_bi

         tables

              t_dados         = itab_zycbe033

...

...

       exceptions

            key_not_found   = 1

            rules_not_found = 2

            others          = 3.

  if sy-subrc eq 0 .

    read table itab_zyglt316 index 1.

    itab_zycbe033-d_newko = itab_zyglt316-konts.

  endif.

  itab_zycbe033-agkoa   = 'K'.

  itab_zycbe033-c_newko = /pws/zyglt025-lifnr.

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

  itab_zycbe033-vbund   = /pws/zycbe112-vbund.

* << Fim da inclusão

  append itab_zycbe033.

  loop at itab_zycbt034.

    message i016 with itab_zycbt034-descricao.

  endloop.

  if itab_zycbt034[] is initial.

    call function '/PWS/ZYCB_TRANSACAO_F_02'

         exporting

              v_modo          = v_modo_bi

         importing

              v_budat_docto   = /pws/zycbt243-budat_desp

...

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

Modificações efetuadas em REPS /PWS/MZYCM101O01

...

  if v_status_s = '0' or sy-tcode = '/PWS/ZYCM101_E'.

    loop at screen.

      screen-input = 0.

      modify screen.

    endloop.

  elseif sy-tcode ne '/PWS/ZYCM101_E'.

    loop at screen.

      screen-input = 1.

      modify screen.

    endloop.

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

    clear /pws/zyglt009.

    select single *

      from /pws/zyglt009

     where bukrs eq /pws/zycbe112-bukrs.

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

      loop at screen.

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

          screen-input = 0.

          modify screen.

          clear: /pws/zycbe112-vbund,

                 /pws/zycbt112-vbund.

        endif.

      endloop.

    endif.

* << Fim da inclusão

  endif.

endmodule.

module trata_campos output.

  clear: itab_t320[],

         itab_nome_campo[],

         v_nome_campo,

         v_comp.

  if sy-dynnr eq '0108' .

    v_cod_grupo = 'CCO'.

  elseif sy-dynnr eq '0109' or

...

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

Modificações efetuadas em TABD /PWS/ZYCBE112

CAMPOS NOVOS

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

VBUND RASSC CHAR 6 0 Nº sociedade parceira

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

Modificações efetuadas em TABD /PWS/ZYCBT112

CAMPOS NOVOS

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

VBUND RASSC CHAR 6 0 Nº sociedade parceira

VBUND RASSC CHAR 6 0 Nº sociedade parceira