Sintoma

No momento do pagamento antecipado , quando o pedido estava bloqueado ele não deixava seguir em

frente mostrando uma mensagem de erro.

Solução

Foi criado um parametro em parametros gerais - importação/financeiro - importação para fazer a

consistencia no programa de pagamento antecipado.

Informações Complementares

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

Nota Número 06988 Data: 18/07/2008 Hora: 15:46:06

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

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

Nota Número              : 06988

Categoria                : Melhoria

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00006

Agrupamento              : 00056

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

Referência às notas relacionadas:

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

02983  - 00001 - 6.0    - 00026  - PAGAMENTO ANTECIPADO - PEDIDO DE COMPRA BLOQUEADO - EKKO T16FBPAG

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

PAGAMENTO ANTECIPADO MESMO COM O PEDIDO BLOQUEADO

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

Palavras Chave:

PAGAMENTO ANTECIPADO MESMO COM O PEDIDO BLOQUEADO

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

Objetos da nota:

DTEL /PWS/ZYGLL1401

DYNP /PWS/SAPMZYGL007                        0134

REPS /PWS/MZYCB104I01

REPS /PWS/MZYGL007I01

REPS /PWS/MZYGL007O01

REPS /PWS/MZYGL007TOP

TABD /PWS/ZYGLT009

Modificações efetuadas em DYNP /PWS/SAPMZYGL007                        0134

Solicitar a tela com a modificação. o download da tela está no chamado.

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

Modificações efetuadas em REPS /PWS/MZYCB104I01

...

    ENDIF.

  ENDIF.

ENDMODULE.

MODULE calcula_valor INPUT.

  DATA: v_frgke(1) TYPE c,

        v_kzfre(1) TYPE c.

  CLEAR v_frgke.

  IF /pws/zyglt009 IS INITIAL.

    SELECT SINGLE * FROM /pws/zyglt009 INTO /pws/zyglt009

                    WHERE bukrs EQ /pws/zycbe117-bukrs.

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

  else.

     if /pws/zyglt009-bukrs is initial.

            SELECT SINGLE * FROM /pws/zyglt009 INTO /pws/zyglt009

                    WHERE bukrs EQ /pws/zycbe117-bukrs.

* << Fim da inclusão

  ENDIF.

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

  ENDIF.

* << Fim da inclusão

  SELECT SINGLE frgke FROM ekko

                INTO (v_frgke)

                WHERE ebeln = /pws/zycbe117-ebeln.

  SELECT SINGLE kzfre FROM t16fb

                INTO (v_kzfre)

                WHERE frgke = v_frgke.

IF NOT v_frgke IS INITIAL.

  IF v_kzfre = ' '.

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

    if /pws/zyglt009-FLAG_PED_BLOQ is initial.

* << Fim da inclusão

    MESSAGE e061 WITH text-078 /pws/zycbe117-ebeln text-079.

    EXIT.

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

    ENDIF.

* << Fim da inclusão

  ENDIF.

ENDIF.

  IF /pws/zyglt009-contpa = 'Y' AND NOT /pws/zycbe117-ebeln IS INITIAL.

    CLEAR itab_ekpo.

    REFRESH itab_ekpo.

...

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

Modificações efetuadas em REPS /PWS/MZYGL007I01

...

  IF v_dacc1 = 'X'.

    /pws/zyglt009-dacc = 'X'.

  ELSEIF v_dacc2 = 'X'.

    /pws/zyglt009-dacc = ' '.

  ENDIF.

  IF v_docprov1 = 'X'.

    /pws/zyglt009-docprov = 'X'.

  ELSEIF v_docprov2 = 'X'.

    /pws/zyglt009-docprov = ' '.

  ENDIF.

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

  IF v_ped_bloq1 = 'X'.

    /pws/zyglt009-FLAG_PED_BLOQ = 'X'.

  ELSEIF v_ped_bloq2 = 'X'.

    /pws/zyglt009-FLAG_PED_BLOQ = ' '.

  ENDIF.

* << Fim da inclusão

  IF v_fpredicao1 = 'X'.

    /pws/zycbt007-fpredicao = 'X'.

  ELSEIF v_fpredicao2 = 'X'.

    CLEAR /pws/zycbt007-fpredicao.

  ENDIF.

  IF v_viagemtv1 = 'X'.

    /pws/zyglt009-viagemtv = 'X'.

  ELSEIF v_viagemtv2 = 'X'.

    CLEAR /pws/zyglt009-viagemtv.

  ENDIF.

...

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

Modificações efetuadas em REPS /PWS/MZYGL007O01

...

    v_dacc2 = 'X'.

    CLEAR v_dacc1.

  ENDIF.

  IF /pws/zyglt009-docprov = 'X'.

    v_docprov1 = 'X'.

    CLEAR v_docprov2.

  ELSEIF /pws/zyglt009-docprov = ' '.

    v_docprov2 = 'X'.

    CLEAR v_docprov1.

  ENDIF.

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

  IF /pws/zyglt009-FLAG_PED_BLOQ = 'X'.

    v_ped_bloq1 = 'X'.

    CLEAR v_ped_bloq2.

  ELSEIF /pws/zyglt009-FLAG_PED_BLOQ = ' '.

   v_ped_bloq2 = 'X'.

    CLEAR v_ped_bloq1.

  ENDIF.

* << Fim da inclusão

  IF /pws/zycbt007-fpredicao = 'X'.

    v_fpredicao1 = 'X'.

    CLEAR v_fpredicao2.

  ELSEIF /pws/zycbt007-fpredicao = ' '.

    v_fpredicao2 = 'X'.

    CLEAR v_fpredicao1.

  ENDIF.

  IF /pws/zyglt009-viagemtv = 'X'.

    v_viagemtv1 = 'X'.

    CLEAR v_viagemtv2.

...

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

Modificações efetuadas em REPS /PWS/MZYGL007TOP

...

      v_liq_cp2          TYPE c,

      v_dtefet1          TYPE c,

      v_dtefet2          TYPE c,

      v_dtefet3          TYPE c,

      v_fdivisao1        TYPE c,

      v_fdivisao2        TYPE c,

      v_dacc1            TYPE c,

      v_dacc2            TYPE c,

      v_docprov1         TYPE c,

      v_docprov2         TYPE c,

* >> Início da inclusão:

      v_ped_bloq1        TYPE c,

      v_ped_bloq2        TYPE C,

* << Fim da inclusão

      modul(30)          TYPE c VALUE '/PWS/SAPMZYGL007', "#EC *

      ok_code            LIKE sy-ucomm,

      v_resposta(1)      TYPE c,

      v_ftransf1         TYPE c,

      v_ftransf2         TYPE c,

      v_fltxt1           TYPE c,

      v_fltxt2           TYPE c,

      v_fpredicao1       TYPE c,

      v_fpredicao2       TYPE c,

      v_cont_canc1       TYPE c,

...

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

MODIFICAR TABELA TRANSPARENTE: /PWS/ZYGLT009

DESCRIÇÃO BREVE:GL - Parâm Gerais Câmbio -  continuação da ZYCBT007

CAMPOS NOVOS

TP. CAMPO   CH: INI: tipo de campo .: CAT.  COMP.  DESCR. BREVE

FLAG_PED_BLOQ        /PWS/ZYGLL1401   CHAR   1     GL - Pagamento Antecipado para Pedido Bloqueado

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

MODIFICAR ELEMENTO DE DADOS: /PWS/ZYGLL1401

DESCRIÇÃO BREVE:GL - Pagamento Antecipado para Pedido Bloqueado

DEFINIÇÃO

CATEGORIA DE DADOS:

(x) - CATEGORIA ELEMENTAR

   (x) - DOMÍNIO            XFELD

   (_) - TIPO INSTALADO     CTG. DADOS: ________________

         CUMPRIMEN.________ DECIMAIS.________

(_) - TIPO DE REFERÊNCIA

      REFERÊNCIA A:_____________________________________

CARACTERÍSTICAS:

ID PARÂMETRO: ____________________

NOME COMPENENTE DEFAULT: ________________________

(_) DOC. MODIFICAÇÃO

AJUDA PARA PESQUISA

NOME: __________________________

PARÂMETROS: __________________________

DENOM. DE CAMPO:

 Breve             10      Ped.Bloq

 Médio             16      Pedido Bloqueado

 longa             38      Pagamento Antecipado  Pedido Bloqueado

 Título            42      Pagamento Antecipado para Pedido Bloquead