Sintoma

Ao fazer uma captação de Dow Payment onde esta flegando na tabela de parâmetros gerais/PWS/ZYGL007

em exportação - Dow Payment o campo Ordem de Venda Obrigatório - SIM, ao fazer uma vinculação no

campo selecionar a faturas para vinculação, não deverá deixar aparecer ou colocar o número da fatura

no campo número invoice.

Solução

Incluído tratamento no botão Selecionar Faturas, para quando o Parâmetro estiver como SIM, não

permitir que o usuário insira "manualmente" as faturas, pois somente é permitido as faturas que

foram selecionadas no match-code.

Informações Complementares

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

Nota Número 10522 Data: 20/08/2010 Hora: 09:58:20

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

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

Nota Número              : 10522

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00004

Agrupamento              : 00035

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

Referência às notas relacionadas:

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

08269  - 00001 - 7.0    - 00009  - TRATAMENTO DE PROCESSOS DE EXPORTAÇÃO EM BRL-CAPTAÇAO,VINCULAÇAO

08831  - 00002 - 7.0    - 00010  - VINCULAÇÃO DE FATURAS EXPORTAÇÃO

10429  - 00003 - 8.0    - 00004  - VINCULAÇÃO - RATEIO CENTRO DE LUCRO INCORRETO E ERRO F-30(PERDE O

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

VINCULAÇÃO DE CONTRATOS DE CAPTAÇÃO DE DP, ORDEM DE VENDA

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

Palavras Chave:

VINCULAÇÃO DE CONTRATOS,   CAPTAÇÃO DE DP, ORDEM DE VENDA

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

Objetos da nota:

REPS /PWS/MZYCB009F01

REPS /PWS/MZYCB009F05

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

Modificações efetuadas em REPS /PWS/MZYCB009F01

...

  perform busca_dados_bi using itab_zycbe033-bukrs

                               v_tpcontabil.

  loop at itab_zycbt034.

    message i016 with itab_zycbt034-descricao.

  endloop.

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

       wa_zycbt089-rateio_cl   = 'X'

       and not itab_zycbt221[] is initial.

    describe table itab_zycbt221 lines v_num_ov.

    describe table itab_vinc     lines v_num_vinc.

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

    if v_num_vinc = 0.

       v_num_vinc = 1.

    endif.

* << Fim da inclusão

    v_ace = v_num_ov / v_num_vinc.

  endif.

  if itab_zycbt034 is initial.

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

         wa_zycbt089-f_cont_vinc = 'A' and

       ( wa_zycbt089-rateio_cl  = ''  or

         itab_zycbt221[] is initial ).

      call function '/PWS/ZYCB_TRANSACAO_F_02H'

           exporting

                v_modo          = v_modo_bi

...

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

Modificações efetuadas em REPS /PWS/MZYCB009F05

...

  check not v_index_sl is initial.

  v_index_sl = tc_faturas-top_line + v_index_sl - 1.

  if v_index eq v_index_sl.

    if v_campo eq '/PWS/ZYCBE005-VLSLF' and /pws/zycbe005-vlme_p eq 0.

      perform move_saldo.

    endif.

  endif.

endform.

form selecionar_zycbt017.

  data: v_nlin type i value is initial.

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

  data: v_tabix like sy-tabix.

* << Fim da inclusão

  if sy-ucomm eq 'CRET'.

    free:   itab_zycbt017_aux, itab_nrinvoic, itab_gsberf  , itab_fkdat,

            itab_kunag       , itab_dtvencto, itab_dtbl    , itab_inco1,

            itab_nrre        , itab_nrsd.

    free:   itab_zycbt209_aux.

    if not refe[] is initial.

       select *

          into table itab_zycbt209_aux

          from /pws/zycbt209

         where ref_ordem in refe. "#EC CI_NOFIELD

...

...

    refresh: refe,

             nrin,

             gsbe,

             fkda,

             kuna,

             dtve,

             dtbl,

             inco,

             nrre,

             nrsd.

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

    select single * from /pws/zycbt089 into wa_zycbt089

     where bukrs eq /pws/zycbe001-bukrs.

    if not wa_zycbt089-controle_ov is initial.

       select * from /pws/zycbt221 into table itab_zycbt221

        where nrseqc = /pws/zycbe001-nrseqc.

       if not itab_zycbt221[] is initial.

          select * from /pws/zycet002 into table itab_zycet002

           for all entries in itab_zycbt221

           where vbeln_va = itab_zycbt221-ordem.

          loop at itab_zycbt017_aux.

             v_tabix = sy-tabix.

             read table itab_zycet002 with key

                nrseq = itab_zycbt017_aux-nrinvoic.

             if sy-subrc ne 0.

                delete itab_zycbt017_aux index v_tabix.

             endif.

          endloop.

       endif.

    endif.

    describe table itab_zycbt017_aux lines v_nlin.

* << Fim da inclusão

    if v_nlin is initial.

      message w015 with text-058.

    else.

      leave to screen '0100'.

    endif.

  endif.

endform.

form set_screen_0301.

  set pf-status '0300'.

  set titlebar '300'.

...