Sintoma

Para RAS/RVS com origem em Embarque de Exportação, o sistema não está buscando o valor e a moeda no

processo de origem

Solução

O programa foi ajustado para considerar a condição corretamente para buscar as informações

Informações Complementares

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

Nota Número 13327 Data: 17/10/2013 Hora: 09:31:26

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

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

Nota Número              : 13327

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 9.0

Pacote                   : 00006

Agrupamento              : 00166

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

Referência às notas relacionadas:

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

13310  - 00001 - 9.0    - 00006 - SISCOSERV - ASSOCIAÇÃO - AUTOMATIZAR PAGAMENTO DO PEDIDO DE COMPRA

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

Texto Rápido:

SISCOSERV

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

Palavras Chave:

SISCOSERV - RAS/RVS

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

Objetos da nota:

REPS /PWS/MZYCA011F01

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

Modificações efetuadas em REPS /PWS/MZYCA011F01

...

  endif.

endform.

form busca_frete_seg_exp changing p_erro.

  data: wa_zycet001 type ty_zycet001,

        wa_zycet003 type ty_zycet003,

        wa_zycet008 type ty_zycet008,

        wa_zycet116 type ty_zycet116,

        wa_zycet156 type /pws/zycet156,

        wa_zycat030 type /pws/zycat030,

        wa_zycat046 type /pws/zycat046,

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

        itab_zycet156 type table of /pws/zycet156,

        v_vlme_f    type /pws/zycet008-vlme_f,

* << Fim da inclusão

        v_tp_origem type /pws/zycat030-tp_origem,

        v_kschl     type /pws/zycet156-kschl,

        v_matnr     type /pws/zycat046-matnr.

  if not v_freteexp is initial.

    v_tp_origem = 'FE'.

    v_kschl     = 'ZFTE'.

    v_matnr     = 'FRT'.

  elseif not v_segexp is initial.

    v_tp_origem = 'SE'.

    v_kschl     = 'ZSEG'.

...

...

    message i015 with text-e27.

    exit.

  endif.

  select nrseq nrseqre

    up to 1 rows

    from /pws/zycet003

    into wa_zycet003

    where nrseq = wa_zycet001-nrseq.

  endselect.

  select * from /pws/zycet156

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

    up to 1 rows

    into wa_zycet156

    where bukrs  = wa_zycet001-bukrs

      and codmod = 'X'

      and kschl  = v_kschl.

  endselect.

* << Fim da exclusão

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

    into table itab_zycet156

    where bukrs     = wa_zycet001-bukrs

      and codmod    = 'X'

      and proccond  = v_matnr.

* << Fim da inclusão

  if sy-subrc eq 0.

    select nrseq vlme_f waers

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

      up to 1 rows

* << Fim da exclusão

      from /pws/zycet008

      into wa_zycet008

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

      for all entries in itab_zycet156

* << Fim da inclusão

      where nrseq  = wa_zycet001-nrseq

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

        and codigo = wa_zycet156-codigo.

* << Fim da exclusão

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

        and codigo = itab_zycet156-codigo.

      v_vlme_f = v_vlme_f + wa_zycet008-vlme_f.

* << Fim da inclusão

    endselect.

  endif.

...

...

    from /pws/zycat046

    into wa_zycat046

    where matnr      = v_matnr

      and tpprocesso = 'V'.

  move:

    wa_zycet001-bukrs      to /pws/zycat030-bukrs,

    wa_zycet116-j_1bbranch to /pws/zycat030-j_1bbranch,

    'V'                    to /pws/zycat030-tp_processo,

    wa_zycet001-codportd   to /pws/zycat030-bukrs_ext,

    wa_zycet008-waers      to /pws/zycat030-waers,

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

    wa_zycet008-vlme_f     to /pws/zycat030-valor,

    wa_zycet008-vlme_f     to /pws/zycat030-saldo,

* << Fim da exclusão

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

    v_vlme_f               to /pws/zycat030-valor,

    v_vlme_f               to /pws/zycat030-saldo,

* << Fim da inclusão

    wa_zycet001-nrseq      to /pws/zycat030-origem,

    v_tp_origem            to /pws/zycat030-tp_origem.

  perform informacoes_cabecalho.

  move:

    '01'                   to wa_zycat031-operacao,

    /pws/zycat030-cod_pais to wa_zycat031-cod_pais,

    wa_zycet001-dtemb      to wa_zycat031-data_ini,

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

    wa_zycet008-vlme_f     to wa_zycat031-valor,

* << Fim da exclusão

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

    v_vlme_f     to wa_zycat031-valor,

* << Fim da inclusão

    wa_zycat046-nbs        to wa_zycat031-nbs,

    wa_zycat046-modo_prest to wa_zycat031-modo_prest,

    wa_zycat031-valor      to wa_zycat031-saldo.

  append wa_zycat031 to itab_zycat031t.

  if not wa_zycet116-nrre is initial.

    perform inicializa_texto.

    if not v_freteexp is initial.

      concatenate text-003 wa_zycet116-nrre into wa_src-line

        separated by space.

    elseif not v_segexp is initial.

...

...

    clear wa_src.

   call method editor->set_text_as_r3table exporting table = itab_src[].

  endif.

endform.

form busca_emb_exp changing p_erro.

  data: wa_zycat030 type /pws/zycat030,

        wa_zycat046 type /pws/zycat046,

        wa_zycet001 type ty_zycet001,

        wa_zycet002 type ty_zycet002,

        wa_zycet008 type ty_zycet008,

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

        wa_zycet156 type /pws/zycet156.

* << Fim da exclusão

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

itab_zycet156 type table of /pws/zycet156,

itab-zycet008 type table of /pws/zycet008,

v_vlme_f      type /pws/zycet008-vlme_f.

* << Fim da inclusão

  select single nrseq bukrs dtemb codportd tipo_emb

    from /pws/zycet001

    into wa_zycet001

    where nrseq in r_embexp.

  if sy-subrc ne 0.

    p_erro = 'X'.

    message i015 with text-i25 text-i26.

    exit.

  elseif sy-subrc eq 0 and wa_zycet001-tipo_emb ne 'E'.

    p_erro = 'X'.

...

...

    message i015 with text-e27.

    exit.

  endif.

  select nrseq fkdat matnr

    from /pws/zycet002

    up to 1 rows

    into wa_zycet002

    where nrseq = wa_zycet001-nrseq.

  endselect.

  select * from /pws/zycet156

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

    up to 1 rows

    into wa_zycet156

    where bukrs  = wa_zycet001-bukrs

      and codmod = 'X'

      and kschl  = 'ZPEX'.

  endselect.

* << Fim da exclusão

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

    into table itab_zycet156

    where bukrs    = wa_zycet001-bukrs

      and codmod   = 'X'

      and proccond = 'FOB'.

* << Fim da inclusão

  if sy-subrc eq 0.

    select nrseq vlme_f waers

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

      up to 1 rows

* << Fim da exclusão

      from /pws/zycet008

      into wa_zycet008

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

      for all entries in itab_zycet156

* << Fim da inclusão

      where nrseq  = wa_zycet001-nrseq

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

        and codigo = wa_zycet156-codigo.

* << Fim da exclusão

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

        and codigo = itab_zycet156-codigo.

      v_vlme_f = v_vlme_f + wa_zycet008-vlme_f.

* << Fim da inclusão

    endselect.

  endif.

  select single *

    from /pws/zycat046

    into wa_zycat046

    where matnr      = wa_zycet002-matnr

      and tpprocesso = 'V'.

  move:

    wa_zycet001-bukrs      to /pws/zycat030-bukrs,

    'V'                    to /pws/zycat030-tp_processo,

    wa_zycet001-codportd   to /pws/zycat030-bukrs_ext,

    wa_zycet008-waers      to /pws/zycat030-waers,

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

    wa_zycet008-vlme_f     to /pws/zycat030-valor,

    wa_zycet008-vlme_f     to /pws/zycat030-saldo,

* << Fim da exclusão

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

    v_vlme_f               to /pws/zycat030-valor,

    v_vlme_f               to /pws/zycat030-saldo,

* << Fim da inclusão

    wa_zycet001-nrseq      to /pws/zycat030-origem,

    'EE'                   to /pws/zycat030-tp_origem.

  perform informacoes_cabecalho.

  move:

    '01'                   to wa_zycat031-operacao,

    /pws/zycat030-cod_pais to wa_zycat031-cod_pais,

    wa_zycet002-fkdat      to wa_zycat031-data_ini,

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

    wa_zycet008-vlme_f     to wa_zycat031-valor,

* << Fim da exclusão

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

    v_vlme_f               to wa_zycat031-valor,

* << Fim da inclusão

    wa_zycat046-nbs        to wa_zycat031-nbs,

    wa_zycat046-modo_prest to wa_zycat031-modo_prest,

    wa_zycat031-valor      to wa_zycat031-saldo.

  append wa_zycat031 to itab_zycat031t.

endform.

form busca_pedido_compra changing p_erro.

  data: wa_zycat030   type /pws/zycat030,

        itab_zycat046 type table of /pws/zycat046,

        wa_zycat046   type /pws/zycat046,

        wa_ekko       type ty_ekko,

...