CE PLUS - Nota 011761
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: LI
Data/Hora da Publicação: 16/12/2011 10:07:10
Data/Hora Última Alteração: 16/12/2011 10:07:10
Descrição da Nota: NÃO DEIXAR ALTERAR PESO LÍQUIDO APÓS A CRIAÇÃO DA FATURA VINCULADA
Sintoma
Não deixar alterar peso líquido após a criação da fatura do embarque vinculado
Solução
Fechar campo para alteração após a criação da fatura do embarque vinculado a LI.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11761 Data: 09/12/2011 Hora: 16:06:12
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11761
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00009
Agrupamento : 00098
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00174 - 00001 - 6.0 - 00021 - EXIBE MSG "EXISTEM NCMS DIFERENTES" SENDO QUE SÓ HÁ UM ITEM NA LI
04815 - 00002 - 7.0 - 00003 - QUANDO USAMOS OPÇÃO 2 - FABRICANTE NA LI,DEVEMOS TÊ-LO CADASTRADO
08318 - 00003 - 7.0 - 00009 - DESENVOLVIMENTO NACIONALIZAÇÃO DE ADMISSÃO TEMPORÁRIA
11209 - 00004 - 8.0 - 00007 - A LI DEIXAVA VINCULAR COM NCMS DIFERENTES.
----------------------------------------------------------------------------------------------------
NÃO DEIXAR ALTERAR PESO LÍQUIDO APÓS A CRIAÇÃO DA FATURA VINCULADA
----------------------------------------------------------------------------------------------------
Palavras Chave:
LI - PESO LÍQUIDO - FATURA - VINCULAÇÃO EMBARQUE
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020F01
REPS /PWS/MZYCI020F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F01
...
IF NOT v_flagsub IS INITIAL.
IF NOT /pws/zycie078-nrli IS INITIAL.
PERFORM verificacao_sub.
CLEAR v_flagsub.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM SAVE
IF NOT it_zycit079[] IS INITIAL.
SELECT * FROM /pws/zycit003
INTO TABLE it_zycit003
FOR ALL ENTRIES IN it_zycit079
WHERE nrseq EQ it_zycit079-nrseq
AND ebeln EQ it_zycit079-ebeln
AND ebelp EQ it_zycit079-ebelp.
ENDIF.
* << Fim da inclusão
LOOP AT it_zycit079.
IF NOT it_zycit079-nrseq IS INITIAL AND
( v_tcode EQ '/PWS/ZYCI020_C' OR
v_tcode EQ '/PWS/ZYCI020_A' ).
* >> Início da exclusão: FORM SAVE
SELECT SINGLE * FROM /pws/zycit003
WHERE nrseq EQ it_zycit079-nrseq
AND ebeln EQ it_zycit079-ebeln
AND ebelp EQ it_zycit079-ebelp.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE
READ TABLE it_zycit003 WITH KEY
nrseq = it_zycit079-nrseq
ebeln = it_zycit079-ebeln
ebelp = it_zycit079-ebelp.
IF sy-subrc EQ 0.
* << Fim da inclusão
IF NOT /pws/zycit003-qtd_itend IS INITIAL.
IF it_zycit079-qtd_iten < /pws/zycit003-qtd_itend.
MESSAGE i015 WITH text-467 text-468.
v_exit = 'S'.
ENDIF.
ELSE.
IF it_zycit079-qtd_iten < /pws/zycit003-qtd_iten.
MESSAGE i015 WITH text-467 text-468.
v_exit = 'S'.
* >> Início da inclusão: FORM SAVE
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
...
...
IF screen-group1 EQ 'FAB'.
IF v_tcode EQ '/PWS/ZYCI020_A' OR
v_tcode EQ '/PWS/ZYCI020_C' .
IF /pws/zycie078-fabric EQ '2'.
screen-input = '1' .
ENDIF.
ELSE.
screen-input = '0'.
* >> Início da inclusão: FORM MODO_EXIB
ENDIF.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE079-NTGEW'.
IF NOT /pws/zycie079-ebeln IS INITIAL AND
NOT /pws/zycie079-ebelp IS INITIAL.
READ TABLE itab_zycit263 WITH KEY
ebeln = /pws/zycie079-ebeln
ebelp = /pws/zycie079-ebelp.
IF sy-subrc EQ 0.
screen-input = '0' .
ELSE.
screen-input = '1' .
* << Fim da inclusão
ENDIF.
ENDIF.
* >> Início da inclusão: FORM MODO_EXIB
ENDIF.
* << Fim da inclusão
MODIFY SCREEN.
ENDLOOP.
CASE sy-dynnr.
WHEN '0109'.
CLEAR v_ncm.
LOOP AT tc_item-cols INTO wa_cols.
IF wa_cols-screen-name EQ '/PWS/ZYCIE376-NRSEQD'.
IF v_nvinc NE 'X'.
wa_cols-invisible = 1.
ELSE.
wa_cols-invisible = 0.
ENDIF.
MODIFY tc_item-cols FROM wa_cols.
* >> Início da exclusão: FORM MODO_EXIB
ENDIF.
IF wa_cols-screen-name EQ '/PWS/ZYCIE079-STEUC1'.
* << Fim da exclusão
* >> Início da inclusão: FORM MODO_EXIB
ELSEIF wa_cols-screen-name EQ '/PWS/ZYCIE079-STEUC1'.
* << Fim da inclusão
IF v_ncmdf NE 'X'.
wa_cols-invisible = 1.
ELSE.
wa_cols-invisible = 0.
ENDIF.
MODIFY tc_item-cols FROM wa_cols.
ENDIF.
ENDLOOP.
ENDCASE.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F02
...
IF v_flag3 IS INITIAL.
PERFORM atualiza_variaveis.
IF /pws/zycie078-nacion EQ 'X'.
CALL SELECTION-SCREEN '0117'.
ELSE.
* >> Início da exclusão: FORM COMM_SELECITEM
CALL SELECTION-SCREEN '0300'.
* << Fim da exclusão
* >> Início da inclusão: FORM COMM_SELECITEM
CALL SELECTION-SCREEN '0300' STARTING AT 1 1 .
* << Fim da inclusão
ENDIF.
ENDIF.
ENDFORM.
...
...
ELSEIF /pws/zycie078-fabric EQ '3'.
SELECT SINGLE * FROM /pws/zycit080
INTO /pws/zycie080b
WHERE nrseqli = /pws/zycie078-nrseqli
AND tipoforn = 'E'.
IF sy-subrc EQ 0.
MOVE: /pws/zycie080b TO wa_zycit080_aux3,
/pws/zycie080b-lifnr TO v_forn.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM CARREGA_DADOS
PERFORM carrega_dados_fatura.
* << Fim da inclusão
SELECT * FROM /pws/zycit081
INTO TABLE it_zycit081
WHERE nrseqli EQ /pws/zycie078-nrseqli
AND tpli EQ 'N'.
MOVE it_zycit081[] TO it_zycit081_aux[].
...
...
* >> Início da inclusão:
FORM carrega_dados_fatura.
DATA: itab_zycit006 TYPE /pws/zycit006 OCCURS 0 .
IF it_zycit003[] IS INITIAL.
SELECT * FROM /pws/zycit003
INTO TABLE it_zycit003
WHERE nrseqli EQ /pws/zycie078-nrseqli.
IF sy-subrc EQ 0.
SELECT * FROM /pws/zycit263
INTO TABLE itab_zycit263
FOR ALL ENTRIES IN it_zycit003
WHERE nrseq EQ it_zycit003-nrseq
AND ebeln EQ it_zycit003-ebeln
AND ebelp EQ it_zycit003-ebelp
AND eliminado EQ space.
IF sy-subrc EQ 0.
SELECT * FROM /pws/zycit006
INTO TABLE itab_zycit006
FOR ALL ENTRIES IN itab_zycit263
WHERE nrseq_pgfat EQ itab_zycit263-nrseq_pgfat
AND eliminado EQ space.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
* << Fim da inclusão