Sintoma

Nas contabilizações de despesas e remessas o campo condição de pagamento não está sendo preenchido.

Solução

Mapeamento do campo condição de pagamento e alimentação da tabela de parâmetros 007.

Informações Complementares

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

Nota Número 09651 Data: 30/12/2009 Hora: 16:21:14

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

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

Nota Número              : 09651

Categoria                : Melhoria

Prioridade               : Alta

Versão PW.CE             : 8.0

Pacote                   : 00002

Agrupamento              : 00002

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

Referência às notas relacionadas:

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

00093  - 00058 - 6.0    - 00021  - ENVIO DE BOLETOS GERADOS NO PROCESSAR BOLETO VIA BATCH INPUT

00432  - 00057 - 6.0    - 00022  - CAMPO REFERÊNCIA/ATRIBUIÇÃO NÃO PREENCHIDO COMPLEMENTO DO BOLETO

00640  - 00056 - 6.0    - 00022  - COMPLEMENTO BOLETO DE REMESSA VALORES IMPOSTOS E TIME OUT

00797  - 00055 - 6.0    - 00023  - COMPLEMENTO DO BOLETO -ESTORNO DO PAGAMENTO DO SALDO DE FATURA AS

00833  - 00054 - 6.0    - 00022  - DESPESA DE IMPORTAÇÃO - CENTRO DE CUSTO PARAMETRIZADO NA OKB9

01124  - 00053 - 6.0    - 00023  - COMPLEMENTO DO BOLETO - ERRO AO EXECUTAR EXIT

01158  - 00052 - 6.0    - 00023  - TEXTO INFORMATIVO - PARAMETRIZAR /PWS/ZYGL007

01299  - 00051 - 6.0    - 00023  - REMESSA/BOLETO CAMPO "MATERIAL - MATNR"

01433  - 00050 - 6.0    - 00023  - PADRONIZAÇÃO E TRADUÇÃO DA CLASSE /PWS/ZYGL.

01814  - 00049 - 6.0    - 00024  - RETIRAR O TRATAMENTO DO CAMPO SBU (TABELA /PWS/ZYCBT124)

01858  - 00048 - 6.0    - 00024  - REMESSA - GRAVAÇÃO DA ESTRATÉGIA DE LIBERAÇÃO

01894  - 00047 - 6.0    - 00024  - AUTORIZAÇÃO EXIBIR/MODIFICAR

01909  - 00046 - 6.0    - 00024  - DESPESAS - PERMISSÃO BOLETO

01951  - 00045 - 6.0    - 00024  - FATOR DE CONVERSÃO NO PROCESSAR BOLETO DESPESAS FECHA CÂMBIO NÃO

02031  - 00044 - 6.0    - 00024  - CORREÇÃO DA VERSÃO 6.0

02172  - 00043 - 6.0    - 00025  - COMPLEMENTO DO BOLETO FB08 E F51 - AJUSTE DE PERIODO

02243  - 00042 - 6.0    - 00025  - COMPLEMENTO DO BOLETO - REMESSA - DATA DE VENCIMENTO

02250  - 00041 - 6.0    - 00025  - COMPLEMENTO DO BOLETO - REMESSA - TIME-OUT

02466  - 00040 - 6.0    - 00025  - SAÍDA DE PAGAMENTO/BOLETO - REMESSA - DATA DE LANÇAMENTO

02775  - 00039 - 6.0    - 00026  - COMPLEMENTO BOLETO REMESSA C/ CIDE:ZFBDT DEVE SER /PWS/ZYCBT031-D

03007  - 00038 - 6.0    - 00026  - COMPL. DO BOLETO ESTORNO AUTOMATICO QDO OCORRER ERRO NA CONTABILI

03121  - 00037 - 6.0    - 00026  - COMPLEMENTO DO BOLETO EXIT¿S CMP006 E CMP005

03454  - 00036 - 7.0    - 00001  - COMP. BOLETO PAGTO. ANTECIP. - PREENCHIMENTO CAMPO ZUONR PARTIDA

03580  - 00035 - 7.0    - 00001  - COMPLEMENTO DO BOLETO - CAMPO CENTRO - CAMPO LOCAL DE NEGOCIO.

03694  - 00034 - 7.0    - 00001  - COMPLEMENTO DO BOLETO - CONTABILIZAÇÃO IR

03868  - 00033 - 7.0    - 00001  - COMPLEMENTO DO BOLETO - CAMPO CENTRO DE CUSTO

03943  - 00032 - 7.0    - 00001  - DESPESAS - CAMPO NUMERO DESPESA

03948  - 00031 - 7.0    - 00002  - COMPLEMENTO DO BOLETO - REMESSA - CONDIÇÃO DE PAGAMENTO

04054  - 00030 - 7.0    - 00002  - DESPESA EXPORTAÇÃO/COMPLEMENTO DO BOLETO-INVOICE E DADOS DESPESA

04170  - 00029 - 7.0    - 00002  - PROCESSAR BOLETO - COMISSÃO DE AGENTE

04199  - 00028 - 7.0    - 00002  - COMPLEMENTO DO BOLETO - PONTO DE EXIT CBI005

04792  - 00027 - 7.0    - 00003  - COMPLEMENTO DO BOLETO

04797  - 00026 - 7.0    - 00003  - SAÍDA DE PAGAMENTO - BOLETO

05135  - 00025 - 7.0    - 00003  - COMPLEMENTO DO BOLETO - TIPO DOC.

05160  - 00024 - 7.0    - 00003  - COMPLEMENTO DO BOLETO

05287  - 00023 - 7.0    - 00003  - COMPLEMENTO DO BOLETO - REMESSAS AGRUPADAS-IMPOSTOS - F-51 - ATRI

05363  - 00022 - 7.0    - 00003  - COMPLEMENTO DO BOLETO - REMESSA COM ORIGEM - PONTO DE EXIT CBF003

05703  - 00021 - 7.0    - 00004  - COMPLEMENTO DO BOLETO REMESSA RECEBIMENTO REGIME COMPETÊNCIA ATRI

05759  - 00020 - 7.0    - 00004  - COMPLEMENTO DO BOLETO - REMESSA RECEBIMENTO - REGIME CAIXA - F-02

06089  - 00019 - 7.0    - 00004  - CB - 444298 - CODE INSPECTOR E VERIFICAÇÃO AMPLIADA

06118  - 00018 - 7.0    - 00004  - CB - 445631 - CODE INSPECTOR E VERIFICAÇÃO AMPLIADA.

06158  - 00017 - 7.0    - 00004  - PROCESSAR BOLETO

06168  - 00016 - 7.0    - 00004  - SAÍDA DE PAGAMENTO

06868  - 00015 - 7.0    - 00006  - COMPLEMENTO DO BOLETO - COMISSAO EMPRESTIMO/FINANCIAMENTO

06953  - 00014 - 7.0    - 00006  - COMPLEMENTO DO BOLETO - PONTO DE EXIT CBF005

07196  - 00013 - 7.0    - 00006  - COMPLEMENTO DO BOLETO - REMESSA - REPATRIAÇÃO - FBRA / FB08

07197  - 00012 - 7.0    - 00006  - NA GERAÇAO DO BOLETO APOS DESPESA , A DATA É GRAVADA INCORRETAMEN

07253  - 00011 - 7.0    - 00006  - NO COMPLEMENTO DO BOLETO, NA REMESSA NÃO FIXAR O NUMERO DE DIAS

07287  - 00010 - 7.0    - 00006  - PROGRAMA DE DESPESA EM ESPANHOL NÃO RECONHECE TIPO DE DOC.

07410  - 00009 - 7.0    - 00007  - COMPLEMENTO DO BOLETO - PONTO DE EXIT CBF006

07709  - 00008 - 7.0    - 00007  - DESPESA - CONTRATO DE EXPORTAÇÃO -CAMBIO FECHADO - TX INCORRETA

07845  - 00007 - 7.0    - 00008  - COMPLEMENTO DO BOLETO - SGTXT - OPÇÕES TXTINF TXINF

08234  - 00006 - 7.0    - 00009  - REMESSA FINANCEIRA - COMPLEMENTO DO BOLETO - CONTABILIZAÇÃO

08323  - 00005 - 7.0    - 00009  - CRIA REMESSA, CÂMBIO FINANCEIRO, TIPO DE IMPOSTO ISS

08896  - 00004 - 7.0    - 00010  - COMPLEMENTO DO BOLETO - ARMAZENAMENTO DE MENSAGENS

09173  - 00003 - 8.0    - 00001  - COMPLEMENTO DO BOLETO, PREENCHIMENTO CAMPO LOCAL NEGÓCIO

09221  - 00002 - 8.0    - 00001  - CODE INSPECTOR CÂMBIO

09254  - 00001 - 8.0    - 00001  - CODE INSPECTOR - CAMBIO

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

CONTABILIZAÇÃO DE DESPESAS E REMESSAS CAMPO CONDIÇÃO DE PAGAMENTO

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

Palavras Chave:

CONTABILIZA DESPESA REMESSA CAMPO CONDICAO PAGAMENTO

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

Objetos da nota:

FUNC /PWS/ZYGL_TRANSACAO_F_02

REPS /PWS/MZYCA110F01

REPS /PWS/MZYCB105F01

REPS /PWS/MZYCM110F01

REPS /PWS/ZYCBN102

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

Modificações efetuadas em FUNC /PWS/ZYGL_TRANSACAO_F_02

...

    WRITE: t_dados-c_valut TO v_data_val_char.

    PERFORM bdc_screen USING 'SAPMF05A' v_tela.

    IF NOT t_dados-dmbtr IS INITIAL AND

           t_dados-waers NE /pws/zycbt007-waersb.

      WRITE : t_dados-dmbtr TO v_dmbtr CURRENCY t_dados-waersb.

      PERFORM bdc_field  USING:

        'BSEG-DMBTR' v_dmbtr.

    ENDIF.

    PERFORM bdc_field  USING:

           'BSEG-WRBTR' '*'.

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

    perform bdc_field  using:

           'BSEG-ZTERM' t_dados-zterm.

* << Fim da inclusão

    IF t_dados-agkoa <> 'D' AND t_dados-agkoa <> 'K'.

      IF NOT t_dados-c_valut IS INITIAL.

       READ TABLE itab_oculto WITH KEY campo = 'BSEG-VALUT' chave = 'C'.

        IF sy-subrc <> 0.

          PERFORM bdc_field USING 'BSEG-VALUT' v_data_val_char.

        ENDIF.

      ENDIF.

    ENDIF.

    IF NOT t_dados-zfbdt IS INITIAL.

      WRITE: t_dados-zfbdt TO v_data_val_char.

...

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

Modificações efetuadas em REPS /PWS/MZYCA110F01

...

    if sy-subrc = 0 and not t001w-j_1bbranch is initial.

      perform verifica_pais_filial using /pws/zycbe031-bukrs

                                         t001w-j_1bbranch.

      itab_zycbe033-brnch = t001w-j_1bbranch.

    endif.

  endif.

  itab_zycbe033-c_kostl = wa_zycbt118-kostl.

  itab_zycbe033-c_prctr = wa_zycbt118-prctr.

  itab_zycbe033-c_fipos = wa_zycbt118-fipos.

  itab_zycbe033-c_fictr = wa_zycbt118-fictr.

* >> Início da inclusão: FORM FILL_DATE_F-63OUF-02_CD

  move /pws/zycbt007-condpgvista to itab_zycbe033-zterm.

* << 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                = 'E'

              i_func                  = v_syrepid

         tables

              itab_zyglt100           = itab_zyglt100

...

...

                  where nrseq = /pws/zycbe031-nrcorresp.

  select *

      up to 1 rows

    from /pws/zycat028

    into wa_zycat028

   where nrseq = /pws/zycbe031-nrcorresp.

  endselect.

  if sy-subrc = 0.

    select *

       from /pws/zycat027

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

       into table itab_zycat027. "#EC CI_NOWHERE

* << Fim da exclusão

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

       into table itab_zycat027.                        "#EC CI_NOWHERE

* << Fim da inclusão

  endif.

  select single * from /pws/zycbt127

                  where nrseq = wa_zycbt124-nrseq.

  select single tprem from /pws/zycbt125

                      into /pws/zycbt125-tprem

                      where codpagto eq wa_zycbt124-codpagto

                        and tpoper eq 'R'.

  if not itab_zycbt064[] is initial.

    select * from /pws/zycbt141 into table itab_zycbt141

             for all entries in itab_zycbt064

...

...

            clear: wa_zycbt117-belnr_p,

                   wa_zycbt117-dtpagto.

            modify /pws/zycbt117 from wa_zycbt117.

          when 'IF'.

            clear itab_zycbt064.

            refresh itab_zycbt064.

            select *

                from /pws/zycbt064

                into table itab_zycbt064

               where nrboleto eq /pws/zycbe031-nrseq and

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

                     dtboleto eq /pws/zycbe031-dtboleto. "#EC CI_NOFIRST

* << Fim da exclusão

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

                     dtboleto eq /pws/zycbe031-dtboleto."#EC CI_NOFIRST

* << Fim da inclusão

            loop at itab_zycbt064.

              clear wa_zycbt113.

              select single * from /pws/zycbt113

                              into wa_zycbt113

                              where nrseq eq itab_zycbt064-nrchave

                                and nrparc eq itab_zycbt064-nrparc

                                and tpparc eq itab_zycbt064-tpparc.

              clear wa_zycbt112.

              select single * from /pws/zycbt112

                              into wa_zycbt112

...

...

                           and codmod  = 'F'

                           and bukrs   = /pws/zycbe031-bukrs.

    select * from /pws/zyglt321

             into table itab_zyglt321

             where ktosl   = 'RCF'

               and codeven = '003R'.

  endif.

  if itab_zycat027[] is initial.

    select *

      from /pws/zycat027

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

      into table itab_zycat027."#EC CI_NOWHERE

* << Fim da exclusão

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

      into table itab_zycat027.                         "#EC CI_NOWHERE

* << Fim da inclusão

  endif.

endform.

form contabiliza_docto_cp using p_tpimp

                                p_recontabiliza

                                p_recuperar.

  data: v_fornec   type /pws/zycat024-fornecedor.

  if not p_recontabiliza is initial.

    read table itab_zycbt124_aux with key nrseq = itab_zycat025-nrseq.

  else.

    read table itab_zycbt124_aux with key nrseq = wa_zycbt124-nrseq.

...

...

    perform verify_null_field using itab_zycbe033-c_newko

                                    'NEWKO'

                                    text-018.

  else.

    perform verify_null_field using itab_zycbe033-d_newko

                                    'NEWKO'

                                    text-016.

  endif.

  itab_zycbe033-d_gsber = itab_zycbt124_aux-gsber.

  itab_zycbe033-c_gsber = itab_zycbt124_aux-gsber.

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

  move /pws/zycbt007-condpgvista to itab_zycbe033-zterm.

* << Fim da inclusão

  move sy-repid to v_repid.

  call function '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'

       exporting

            i_codmod                = 'F'

            i_func                  = v_repid

       tables

            itab_zyglt100           = itab_zyglt100

       exceptions

            i_codmod_nao_encontrado = 1

            i_func_nao_encontrado   = 2

...

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

Modificações efetuadas em REPS /PWS/MZYCB105F01

...

                                       /pws/zycbe118-j_1bbranch.

    itab_zycbe033-brnch = /pws/zycbe118-j_1bbranch.

  else.

    select single * from t001w where werks = /pws/zycbe118-werks.

    if sy-subrc = 0 and not t001w-j_1bbranch is initial.

      perform verifica_pais_filial using /pws/zycbe118-bukrs

                                         t001w-j_1bbranch.

      itab_zycbe033-brnch = t001w-j_1bbranch.

    endif.

  endif.

* >> Início da inclusão: FORM CONTABILIZA_F-63

  move /pws/zycbt007-condpgvista to itab_zycbe033-zterm.

* << 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                = /pws/zycbe118-codmod

              i_func                  = v_syrepid

         tables

              itab_zyglt100           = itab_zyglt100

...

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

Modificações efetuadas em REPS /PWS/MZYCM110F01

...

      itab_zycbe033-brnch = t001w-j_1bbranch.

    endif.

  endif.

  if itab_zycbe033-c_gsber is initial.

    itab_zycbe033-c_gsber = wa_zycbt118-gsber.

  endif.

  itab_zycbe033-c_kostl = wa_zycbt118-kostl.

  itab_zycbe033-c_prctr = wa_zycbt118-prctr.

  itab_zycbe033-c_fipos = wa_zycbt118-fipos.

  itab_zycbe033-c_fictr = wa_zycbt118-fictr.

* >> Início da inclusão: FORM FILL_DATE_F-63OUF-02_ID

  move /pws/zycbt007-condpgvista to itab_zycbe033-zterm.

* << Fim da inclusão

  append itab_zycbe033.

  clear t021r.

  select single * from t021r into t021r

                  where event = 'SU-AG'

                    and feldn = 'AWKEY'.

  if wa_zycbt118-frpagto eq 'C'.

    itab_zycbt036-tcode  = 'F-51'.

    itab_zycbt036-tabela = '/PWS/ZYCBT031'.

    itab_zycbt036-cpochv = /pws/zycbe031-nrseq.

    itab_zycbt036-belnr  = wa_zycbt118-belnrdesp.

...

...

  select * from ekpo

           into table itab_ekpo

           where ebeln eq wa_zycbt117-ebeln

             and loekz eq ' '.

  select * from ekkn

           into table itab_ekkn

           where ebeln eq wa_zycbt117-ebeln.

  select * from /pws/zycit030

           into table itab_zycit030

           where codmod = 'D'

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

             and codigo = 'FOB'.      "#EC CI_NOFIRST

* << Fim da exclusão

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

             and codigo = 'FOB'.                        "#EC CI_NOFIRST

* << Fim da inclusão

  if not itab_zycit030[] is initial.

    select * from konv

             into table itab_konv

             for all entries in itab_zycit030

             where knumv = ekko-knumv

               and kschl = itab_zycit030-kschl.

  endif.

  describe table itab_ekpo lines v_linhas.

  clear: v_valor2, v_acm, v_acm2, v_dif, v_total_pedido.

  loop at itab_ekpo.

...

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

Modificações efetuadas em REPS /PWS/ZYCBN102

...

  endif.

  if wa_despesa-frpagto = 'C'.

    v_transacao = 'F-63'.

  elseif wa_despesa-frpagto = 'R'.

    v_transacao = 'F-02'.

  endif.

  refresh itab_zyglt321.

  select *

    from /pws/zyglt321

    into table itab_zyglt321

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

   where codeven = wa_despesa-codeven.   "#EC CI_NOFIRST

* << Fim da exclusão

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

   where codeven = wa_despesa-codeven.                  "#EC CI_NOFIRST

* << Fim da inclusão

  if itab_selreg_aux-codp eq 'G' or

     itab_selreg_aux-codp eq 'D'.

    perform contab_comis_cg.

  else.

    perform dados_batch_despesa using wa_despesa.

  endif.

endform.

form executa_batch_js.

  clear:   itab_zycbt032, itab_zycbe033, itab_zycbt034.

  refresh: itab_zycbt032, itab_zycbe033, itab_zycbt034.

...

...

    endif.

    perform calcula_vlmi

      using

        itab_zycbe033-wrbtr

        itab_zycbe033-waers

        itab_zycbe033-kursf

        v_ftaxa

        v_datalanc

      changing

        itab_zycbe033-dmbtr.

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

    move /pws/zycbt007-condpgvista to itab_zycbe033-zterm.

* << Fim da inclusão

    append itab_zycbe033.

    if itab_selreg_aux-frpagto = 'C'.

      clear itab_zycbt034.

    endif.

    if /pws/zycbt031-frgzu = '2'.

      loop at itab_zycbt034.

        message i016 with itab_zycbt034-descricao.

        perform limpa_selreg.

        perform retorna_flag.

      endloop.

...