Sintoma

ao criar uma fatura com a condição 0002 fica com a data em branco , porém se eu seleciono a data

base o sistema deveria colocá-la, mas eu seleciono e não faz nada.

Solução

Calcular vencimento ao selecionar data base.

Informações Complementares

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

Nota Número 09165 Data: 08/10/2009 Hora: 11:37:57

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

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

Nota Número              : 09165

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 8.0

Pacote                   : 00001

Agrupamento              : 00001

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

Referência às notas relacionadas:

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

00001  - 09164 - 6.0    - 00021  - DI - SUSPENSÃO DE ICMS

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

AO SELECIONAR A DATA BASE, FATURA NAO CALCULA VENCIMENTO

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

Palavras Chave:

DATA BASE - VENCIMENTO - FATURA

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

Objetos da nota:

REPS /PWS/MZYCI003F02

REPS /PWS/MZYCI003O01

REPS /PWS/MZYCI003X01

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

Modificações efetuadas em REPS /PWS/MZYCI003F02

...

FORM alt_dt_venc_fat.

  DATA: v_exibir(01) TYPE c,

        v_cursor LIKE sy-lilli.

  CLEAR: itab_venc_fatura, v_res_dt_fat. FREE itab_venc_fatura.

  CLEAR v_exibir.

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

  CLEAR: v_res_dt_fat2.

* << Fim da inclusão

  IF sy-tcode EQ '/PWS/ZYCI003_E' OR v_status_s EQ 0.

    v_exibir = 'X'.

  ENDIF.

  itab_venc_fatura-varoption = text-140.

  IF /pws/zycie006-flag_dt = '1'.

    itab_venc_fatura-selflag = 'X'.

    v_cursor = '1'.

  ENDIF.

  APPEND itab_venc_fatura.

  CLEAR itab_venc_fatura.

...

...

  ENDIF.

  APPEND itab_venc_fatura.

  CLEAR itab_venc_fatura.

  itab_venc_fatura-varoption = text-143.

  IF /pws/zycie006-flag_dt = '4'.

    itab_venc_fatura-selflag = 'X'.

    v_cursor = '4'.

  ENDIF.

  APPEND itab_venc_fatura.

  CLEAR itab_venc_fatura.

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

  CLEAR: v_res_dt_fat2.

* << Fim da inclusão

  CALL FUNCTION 'POPUP_TO_DECIDE_LIST'

    EXPORTING

      cursorline               = v_cursor

      mark_flag                = /pws/zycie006-flag_dt

      textline1                = text-139

      titel                    = text-138

      display_only             = v_exibir

   IMPORTING

     answer                   = v_res_dt_fat

    TABLES

      t_spopli                 = itab_venc_fatura

   EXCEPTIONS

     not_enough_answers       = 1

     too_much_answers         = 2

     too_much_marks           = 3

     OTHERS                   = 4

          .

  IF v_res_dt_fat NE 'A'.

    READ TABLE itab_venc_fatura WITH KEY selflag = 'X'.

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

    v_res_dt_fat2 = v_res_dt_fat.

* << Fim da inclusão

    CASE v_res_dt_fat.

      WHEN '1'.

        /pws/zycie006-dtbase = /pws/zycie001-dt_retmerc.

      WHEN '2'.

        /pws/zycie006-dtbase = /pws/zycit093-dtemiss.

      WHEN '3'.

        /pws/zycie006-dtbase = /pws/zycit093-dtlanc.

      WHEN '4'.

        /pws/zycie006-dtbase = /pws/zycie006-dtincl.

    ENDCASE.

...

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

Modificações efetuadas em REPS /PWS/MZYCI003O01

...

    ENDIF.

    IF /pws/zycie006-fabricante EQ '0'.

      itab_zycit003-fabric = 2.

    ELSE.

      itab_zycit003-fabric = /pws/zycie006-fabricante.

    ENDIF.

    MODIFY itab_zycit003 TRANSPORTING fabric

          WHERE fabric NE itab_zycit003-fabric.

  ENDIF.

  IF SY-TCODE = '/PWS/ZYCI003_C' AND

* >> Início da exclusão: MODULE LOAD_PARAM

     NOT /pws/zycie006-dtbase IS INITIAL.

* << Fim da exclusão

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

     NOT /pws/zycie006-dtbase IS INITIAL AND

     v_res_dt_fat2 IS INITIAL.

* << Fim da inclusão

    CLEAR: t052-ztag1, t052-zdart.

    SELECT SINGLE ztag1 zdart FROM t052

    INTO (t052-ztag1, t052-zdart)

      WHERE zterm EQ /pws/zycie006-zterm.

    IF t052-zdart IS INITIAL.

      CLEAR: /pws/zycie006-dtbase.

      CLEAR: /pws/zycie006-dtvencto.

    ENDIF.

  ENDIF.

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

  CLEAR v_res_dt_fat2.

* << Fim da inclusão

  IF /pws/zycie006-dtbase IS INITIAL.

    SELECT SINGLE dtemiss dtlanc FROM /pws/zycit093

    INTO (/pws/zycit093-dtemiss, /pws/zycit093-dtlanc)

      WHERE nrseqce EQ /pws/zycie006-nrseqce.

    SELECT SINGLE ztag1 zdart FROM t052

    INTO (t052-ztag1, t052-zdart)

      WHERE zterm EQ /pws/zycie006-zterm.

    IF t052-zdart EQ 'B'    .

      /pws/zycie006-dtbase    = /pws/zycit093-dtemiss .

    ELSEIF t052-zdart EQ 'D'.

...

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

Modificações efetuadas em REPS /PWS/MZYCI003X01

...

* >> Início da inclusão:

 data v_res_dt_fat2(01).

* << Fim da inclusão

 end of common part.

...