Sintoma

Necessário selecionar parâmetro de data de conversão da fatura por país.

Solução

Criar um campo país para parametrizar a /PWS/ZYCIT286

Informações Complementares

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

Nota Número 12287 Data: 13/06/2012 Hora: 16:55:51

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

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

Nota Número              : 12287

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 9.0

Pacote                   : 00001

Agrupamento              : 00116

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

Referência às notas relacionadas:

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

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

PERMITIR PARAMETRIZAR DATA DE CONVERSÃO DE FATURA POR PAÍS.

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

Palavras Chave:

ZYCIT286 - DATA DE CONVERSÃO DE FATURA

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

Objetos da nota:

REPS /PWS/MZYCI003F01

REPS /PWS/MZYCI003F02

TABD /PWS/ZYCIT286

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

Modificações efetuadas em TABD /PWS/ZYCIT286

Incluir campo na tabela /PWS/ZYCIT286

Nome campo Chv Elem.dados    Tab.verif.    N CtDt Comp. Grupo

MANDT          MANDT                         CLNT     3

*<<Inicio Inclusão

LAND           LAND1                         CHAR     3

*<<Fim Inclusão

TPFATURA       /PWS/ZYCIL078 /PWS/ZYCIT009   CHAR     2

CONVERSAO      /PWS/ZYCIL455                 CHAR     6

...

*Gerar a visão de atualização da tabela /PWS/ZYCIT286 novamente

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

Modificações efetuadas em REPS /PWS/MZYCI003F01

...

    itab_zycbe033-d_valut = /pws/zycie006-dtincl.

    itab_zycbe033-c_valut = /pws/zycie006-dtincl.

  ENDIF.

  itab_zycbe033-budat   = sy-datlo.

  IF /pws/zycit477 IS INITIAL OR /pws/zycie006-dtlanc IS INITIAL.

    /pws/zycie006-dtlanc       = sy-datlo.

  ENDIF.

* >> Início da inclusão: FORM FILL_DATE_F-43_F-02

  if t001-land1 is initial.

    SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie006-bukrs.

  endif.

  SELECT SINGLE * FROM /pws/zycit286

  WHERE tpfatura = /pws/zycie006-tpfatura

  AND   land     = t001-land1 .

  IF sy-subrc NE 0.

* << Fim da inclusão

  SELECT SINGLE * FROM /pws/zycit286 WHERE tpfatura =

 /pws/zycie006-tpfatura.

* >> Início da inclusão: FORM FILL_DATE_F-43_F-02

  ENDIF.

* << Fim da inclusão

  IF /pws/zycit286-conversao = 'DTDOC'.

    itab_zycbe033-wwert = /pws/zycie006-dtincl.

  ELSE.

    itab_zycbe033-wwert = sy-datlo.

  ENDIF.

...

...

  IF /pws/zycit000-kurst IS INITIAL.

    v_kurst = 'M'.

  ELSE.

    v_kurst = /pws/zycit000-kurst.

  ENDIF.

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

  if t001-land1 is initial.

    SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie006-bukrs.

  endif.

  SELECT SINGLE * FROM /pws/zycit286

  WHERE tpfatura = /pws/zycie006-tpfatura

  AND   land     = t001-land1 .

  IF sy-subrc NE 0.

* << Fim da inclusão

  SELECT SINGLE * FROM /pws/zycit286 WHERE tpfatura =

 /pws/zycie006-tpfatura.

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

  ENDIF.

* << Fim da inclusão

  IF /pws/zycit286-conversao = 'DTDOC'.

    v_data_conv = /pws/zycie006-dtincl.

  ELSE.

    v_data_conv = sy-datum.

  ENDIF.

...

FORM busca_taxa USING    p_waers

                CHANGING p_taxa.

  SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie006-bukrs.

  SELECT SINGLE * FROM /pws/zycit000  WHERE land1 EQ t001-land1.

  IF /pws/zycit000-kurst IS INITIAL.

    v_kurst = 'M'.

  ELSE.

    v_kurst = /pws/zycit000-kurst.

  ENDIF.

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

  SELECT SINGLE * FROM /pws/zycit286

  WHERE tpfatura = /pws/zycie006-tpfatura

  AND   land     = t001-land1 .

  IF sy-subrc NE 0.

* << Fim da inclusão

  SELECT SINGLE * FROM /pws/zycit286 WHERE tpfatura =

 /pws/zycie006-tpfatura.

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

  ENDIF.

* << Fim da inclusão

  IF /pws/zycit286-conversao = 'DTDOC'.

    v_data_conv = /pws/zycie006-dtincl.

  ELSE.

    v_data_conv = sy-datum.

  ENDIF.

...

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

Modificações efetuadas em REPS /PWS/MZYCI003F02

...

  wa_headerdata-pmnt_block = /pws/zycie006-zlspr.

  wa_headerdata-partner_bk = /pws/zycie006-bcofav.

  wa_headerdata-doc_date     = itab_zycie033-bldat.

  IF /pws/zycit286-tpfatura NE /pws/zycie006-tpfatura.

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

  if t001-land1 is initial.

    SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie006-bukrs.

  endif.

* << Fim da inclusão

    SELECT SINGLE * FROM /pws/zycit286

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

        WHERE tpfatura = /pws/zycie006-tpfatura.

* << Fim da exclusão

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

  WHERE tpfatura = /pws/zycie006-tpfatura

  AND   land     = t001-land1 .

  IF sy-subrc NE 0.

    SELECT SINGLE * FROM /pws/zycit286 WHERE tpfatura =

   /pws/zycie006-tpfatura.

  ENDIF.

* << Fim da inclusão

  ENDIF.

  IF /pws/zycit286-conversao = 'DTDOC'.

    wa_headerdata-pstng_date = /pws/zycie006-dtincl.

  ELSE.

    wa_headerdata-pstng_date = /pws/zycie006-dtlanc.

  ENDIF.

...