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
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),
...