Sintoma

Ao criar uma vinculação de uma captação tipo "Dow Payment" a uma fatura de exportação, na table

control de seleção das invoices de exportação, ao clicar no matchcode todas as faturas de exportação

são listadas, mesmo a de outros clientes. O correto é somente abrir faturas do mesmo cliente que foi

contratada a captação Dow Payment.

Solução

Realizado ajuste para quando for uma captação tipo Dow Payment trazer no Match Code das Faturas,

somente referente aos Clientes do contrato.

Informações Complementares

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

Nota Número 09170 Data: 09/10/2009 Hora: 10:06:55

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

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

Nota Número              : 09170

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00001

Agrupamento              : 00001

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

VINCULAÇÃO - CAPTAÇÃO TIPO DOW PAYMENT, NO MATCH CODE ABRE TODAS FATURAS

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

Palavras Chave:

VINCULAÇÃO - CAPTAÇÃO TIPO DOW PAYMENT, NO MATCH CODE ABRE TODAS FATURAS

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

Objetos da nota:

REPS /PWS/MZYCB009I01

REPS /PWS/ZZYCBGF3U01

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

Modificações efetuadas em REPS /PWS/MZYCB009I01

...

  data: end of itab_result.

  data: begin of record_tab occurs 0.

          include structure seahlpres.

  data: end of record_tab.

  data: v_line2      like sy-lilli,

        l_display(1) type c,

        v_searchhelp type shlpname,

        shlp_struc   like /pws/zycbv204,

        shlp_curr    type shlp_descr_t,

        tdynpread    like dynpread occurs 0 with header line.

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

  data: v_cliente    type /pws/zycbt001-kunnr.

* << Fim da inclusão

  clear tdynpread.

  refresh tdynpread.

  call function 'DYNP_GET_STEPL'

       importing

            povstepl = v_line.

  tdynpread-fieldname = '/PWS/ZYCBE005-NRINVOIC'.

  tdynpread-stepl     = v_line.

  append tdynpread.

  call function 'DYNP_VALUES_READ'

       exporting

...

...

      v_nrseqc = /pws/zycbe001-nrseqc.

    else.

      clear v_nrseqc.

      v_searchhelp = '/PWS/ZYCBA068'.

    endif.

  else.

    clear v_nrseqc.

    v_searchhelp = '/PWS/ZYCBA266'.

  endif.

  export v_nrseqc to memory id '111'.

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

  v_cliente = ''.

  if /pws/zycbe001-tpcontr(1) = 'D'.

     v_cliente = /pws/zycbe001-kunnr.

  endif.

  export v_cliente to memory id '222'.

* << Fim da inclusão

  set parameter id '/PWS/ZYCBP019' field /pws/zycbe001-nrseqc.

  call function 'F4IF_FIELD_VALUE_REQUEST'

       exporting

            tabname    = '/PWS/ZYCBE005'

            fieldname  = 'NRINVOIC'

            searchhelp = v_searchhelp

            shlpparam  = 'NRINVOIC'

            multiple_choice = 'X'

            display    = l_display

       tables

...

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

Modificações efetuadas em REPS /PWS/ZZYCBGF3U01

...

        end of itab_bukrs.

  data: v_string     like record_tab-string,

        v_zterm      like /pws/zycbt017-zterm,

        v_desc_receb like /pws/zycbt001-desc_receb,

        v_tabix      like sy-tabix,

        v_agrup_fat(1) type c,

        v_nrinvoic   like /pws/zycbt017-nrinvoic,

        v_nrinvoic1  like /pws/zycbt017-nrinvoic,

        ask_activex(10) type c,

        shlp_curr    type shlp_descr_t,

* >> Início da exclusão:

        v_nrseqc2    like /pws/zycbt001-nrseqc.

* << Fim da exclusão

* >> Início da inclusão:

        v_nrseqc2    like /pws/zycbt001-nrseqc,

        v_cliente    type /pws/zycbt001-kunnr.

  import v_cliente    from memory id '222'.

* << Fim da inclusão

  import v_zterm      from memory id '009'.

  import v_desc_receb from memory id '010'.

  import v_nrseqc     from memory id '111'.

  import v_agrup_fat  from memory id 'agrup_fatura'.

  clear: v_nrinvoic, callcontrol-maxrecords.

  get parameter id '/PWS/ZYCBP019' field v_nrseqc2.

  if not record_tab[] is initial and not v_nrseqc2 is initial.

    if v_agrup_fat = 'X'.

      clear: v_nrseqc2.

    endif.

...

...

        exit.

      endif.

    endloop.

    unassign: <fs_shlp>, <fs_fielddescr>.

    loop at itab_dados assigning <fs_dados>.

      if not <fs_dados>-vlslf > 0.

        delete record_tab index sy-tabix.

        delete itab_dados.

      endif.

    endloop.

* >> Início da inclusão:

    if not v_cliente is initial.

      loop at itab_dados assigning <fs_dados>.

         if <fs_dados>-kunnr ne v_cliente.

            delete record_tab index sy-tabix.

            delete itab_dados.

         endif.

      endloop.

    endif.

* << Fim da inclusão

  endif.

  loop at record_tab.

    v_tabix = sy-tabix.

    read table itab_dados index v_tabix into wa_dados.

    if not v_nrseqc2 is initial and sy-subrc eq 0.

      read table itab_bukrs with key bukrs = wa_dados-bukrs.

      if sy-subrc ne 0.

        delete record_tab index v_tabix.

        delete itab_dados index v_tabix.

        continue.

...