CE PLUS - Nota 007754

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: Fatura Mercadoria

Data/Hora da Publicação: 11/12/2008 00:00:00

Data/Hora Última Alteração: 03/02/2010 17:09:30

Descrição da Nota: AO CRIAR FATURA E ELIMINAR ITEM DENTRO DA FATURA O SISTEMA PERDE O SALDO

Sintoma

 

Ao marcar dois itens do embarque e cliquei para criar a fatura comercial.Porém, dentro da fatura, eu

eliminei um item e inseri novamente.O sistema se perdeu com relação a quantidade.

 

Solução

 

Não permitir vincular e eliminar item na Fatura caso esta fatura seja criada por dentro

Versões Tratadas

7.0

Informações Complementares

 

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

Nota Número 07754 Data: 11/12/2008 Hora: 13:23:11

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

 

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

Nota Número              : 07754

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00007

Agrupamento              : 00078

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

 

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

AO CRIAR FATURA E ELIMINAR ITEM DENTRO DA FATURA O SISTEMA PERDE O SALDO

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

Palavras Chave:

SALDO - FATURA - ELIMINAR - ITEM - QUANTIDADE

 

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

Objetos da nota:

REPS /PWS/MZYCI003O01

REPS /PWS/MZYCI003X01

 

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

Modificações efetuadas em REPS /PWS/MZYCI003O01

 

...

  DATA v_peso.

  DATA: BEGIN OF itab_lfa1b OCCURS 0.

  DATA: lifnr TYPE lfa1-lifnr.

  DATA: END OF itab_lfa1b.

  SET PARAMETER ID 'LRE' FIELD ' ' .

  IF itab_sele[] IS INITIAL.

    IMPORT itab_sele[]

      FROM MEMORY ID 'IP003B'.

    IF sy-subrc = 0.

      v_importou = 'X'.

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

      v_importou2 = 'X'.

* << Fim da inclusão

    ENDIF.

  ENDIF.

  IMPORT /pws/zycie001-embarca

         /pws/zycie001-nrseq

         /pws/zycie001-bukrs

         /pws/zycie001-werks

         /pws/zycie001-waers

         /pws/zycie001-inco1

         /pws/zycie001-j_1bbranch

         v_lifnr

...

 

...

        IF screen-name = 'BTNT0106_08'.

          IF NOT /pws/zycie006-belnr_p IS INITIAL OR

             v_status_s = '0' OR sy-tcode = '/PWS/ZYCI003_M'.

            screen-invisible = '1'.

            MODIFY SCREEN.

          ELSE.

            screen-invisible = '0'.

            MODIFY SCREEN.

          ENDIF.

        ENDIF.

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

        IF screen-name = 'BTNT0108_03'.

          IF v_importou2 = 'X'.

            screen-invisible = '1'.

            MODIFY SCREEN.

          ELSE.

            screen-invisible = '0'.

            MODIFY SCREEN.

          ENDIF.

        ENDIF.

        IF screen-name = 'BTNT0108_04'.

          IF v_importou2 = 'X'.

            screen-invisible = '1'.

            MODIFY SCREEN.

          ELSE.

            screen-invisible = '0'.

            MODIFY SCREEN.

          ENDIF.

        ENDIF.

* << Fim da inclusão

      ENDLOOP.

      IF v_status_s = 0 OR sy-tcode = '/PWS/ZYCI003_M'.

        LOOP AT tc_itens-cols INTO wa_cols.

          wa_cols-screen-input = '0'.

          MODIFY tc_itens-cols FROM wa_cols.

        ENDLOOP.

      ELSEIF v_status_s = 1.

        LOOP AT tc_itens-cols INTO wa_cols.

          IF wa_cols-screen-group1 NE 'OUT'   .

            wa_cols-screen-input = '1'.

...

 

...

      LOOP AT SCREEN.

        IF screen-name = '/PWS/ZYCIE006-BCOFAV' AND

           /pws/zycie006-flagdesc = 'X'.

          screen-input = 0.

        ENDIF.

        IF v_status_s = 0.

          screen-input = 0.

        ENDIF.

        IF v_existe_bol = 'X' AND screen-group4 = 'BOL'.

          screen-input = 0.

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

        ENDIF.

        IF screen-name = 'BTNT0108_03'.

          IF v_importou2 = 'X'.

            screen-invisible = '1'.

            MODIFY SCREEN.

          ELSE.

            screen-invisible = '0'.

            MODIFY SCREEN.

          ENDIF.

        ENDIF.

        IF screen-name = 'BTNT0108_04'.

          IF v_importou2 = 'X'.

            screen-invisible = '1'.

            MODIFY SCREEN.

          ELSE.

            screen-invisible = '0'.

            MODIFY SCREEN.

          ENDIF.

* << Fim da inclusão

        ENDIF.

        MODIFY SCREEN.

      ENDLOOP.

      IF v_status_s = 0.

        LOOP AT tc_banco-cols INTO wa_cols.

          wa_cols-screen-input = '0'.

          MODIFY tc_banco-cols FROM wa_cols.

        ENDLOOP.

      ELSEIF v_status_s = 1.

        LOOP AT tc_banco-cols INTO wa_cols.

...

 

 

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

Modificações efetuadas em REPS /PWS/MZYCI003X01

 

...

  v_flag_sele,

  e_status,

  v_sele_zycit003,

  v_tot_deducoes LIKE /pws/zycie006-vltotal,

  v_banco(3),

  v_agencia(12),

  v_index_det LIKE sy-tabix,

  v_cont LIKE sy-tabix,

  v_irrf,

  v_importou,

* >> Início da inclusão:

  v_importou2,

* << Fim da inclusão

  v_val_plan_tot LIKE /pws/zycit003-netpr,

  v_vlreal LIKE /pws/zycit001-netpr,

  v_plan LIKE /pws/zycit001-netpr,

  v_codint LIKE /pws/zycit129-codint,

  v_existe_bol,

  v_tot LIKE /pws/zycie003-netpr,

  v_tot_ntgew LIKE /pws/zycit006-ntgew,

  v_tot_frete LIKE /pws/zycit036-vlmov,

  v_tot_vlseg LIKE /pws/zycit036-vlmov,

  v_frcob(20),

...