CE PLUS - Nota 010886
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: LI
Data/Hora da Publicação: 13/01/2011 00:00:00
Data/Hora Última Alteração: 23/02/2011 10:11:30
Descrição da Nota: TRATAMENTO PARA UTILIZAR LI COM GRANEL
Sintoma
Tratamento para utilizar LI com Granel
Solução
Fazer tratamento para utilizar LI com Granel, vinculando pelo embarque ou pela LI.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10886 Data: 13/01/2011 Hora: 10:06:24
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10886
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00006
Agrupamento : 00054
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
08902 - 00001 - 7.0 - 00010 - IMPLEMENTAÇÃO PARA FECHAR CAMPOS APÓS VINCULAR LI NO EMBARQUE
09175 - 00002 - 8.0 - 00001 - AO CRIAR UMA LI COM O NRSEQ DO EMBARQUE ESTA COM PROBLEMA NA QUAN
09710 - 00003 - 8.0 - 00002 - AO VINCULAR LI E CRIAR FATURA, VERIFICAR PESO LÍQUIDO DOS ITENS.
----------------------------------------------------------------------------------------------------
TRATAMENTO PARA UTILIZAR LI COM GRANEL
----------------------------------------------------------------------------------------------------
Palavras Chave:
LI - GRANEL - VINCULAÇÃO - EMBARQUE - QUANTIDADE
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI001F01
REPS /PWS/MZYCI020F01
REPS /PWS/MZYCI020F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F01
...
IF NOT itab_zycit003-nrseqli IS INITIAL.
SELECT SINGLE * FROM /pws/zycit079
WHERE nrseqli EQ itab_zycit003-nrseqli
AND ebeln EQ itab_zycit003-ebeln
AND ebelp EQ itab_zycit003-ebelp.
* >> Início da inclusão: FORM GRAVA_TABELAS
IF itab_zycit003-qtd_itend IS INITIAL.
* << Fim da inclusão
IF /pws/zycit079-qtd_iten < itab_zycit003-qtd_iten.
v_sair = 'X'.
MESSAGE i015 WITH text-496 text-497.
ENDIF.
* >> Início da inclusão: FORM GRAVA_TABELAS
ELSE.
IF /pws/zycit079-qtd_iten < itab_zycit003-qtd_itend.
v_sair = 'X'.
MESSAGE i015 WITH text-496 text-497.
ENDIF.
ENDIF.
* << Fim da inclusão
ENDIF.
IF /pws/zycie001-regime EQ '12'.
IF itab_zycit003-adm_temp EQ 'X' .
v_adm_temp = 'X'.
ENDIF.
ENDIF.
ENDLOOP.
...
...
APPEND itab_log.
ENDIF.
ENDIF.
ENDIF.
CLEAR: v_descrlog.
* >> Início da inclusão: FORM VINCULACAO_LI
IF NOT itab_zycit003-qtd_itend IS INITIAL.
IF itab_zycit079-ntgew NE itab_zycit003-ntgewd.
IF /pws/zycit006 IS INITIAL.
CONCATENATE text-087 itab_zycit003-ebeln text-081
itab_zycit003-ebelp text-082
INTO v_descrlog SEPARATED BY space.
ELSE .
CONCATENATE text-087 itab_zycit003-ebeln text-081
itab_zycit003-ebelp text-091
INTO v_descrlog SEPARATED BY space.
ENDIF.
MOVE: itab_zycit003-ebeln TO itab_log-ebeln ,
itab_zycit003-ebelp TO itab_log-ebelp ,
itab_zycit078-nrseqli TO itab_log-nrseqli,
v_descrlog TO itab_log-descr .
v_pos = v_pos + 1.
itab_log-pos = v_pos.
APPEND itab_log.
v_char1 = itab_zycit079-ntgew .
v_char2 = itab_zycit003-ntgewd .
CLEAR v_descrlog.
CONCATENATE text-483 v_char1
text-484 v_char2
INTO v_descrlog SEPARATED BY space.
MOVE v_descrlog TO itab_log-descr.
itab_log-pos = v_pos.
APPEND itab_log.
ENDIF.
ELSE.
* << Fim da inclusão
IF itab_zycit079-ntgew NE itab_zycit003-ntgew.
IF /pws/zycit006 IS INITIAL.
CONCATENATE text-087 itab_zycit003-ebeln text-081
itab_zycit003-ebelp text-082
INTO v_descrlog SEPARATED BY space.
ELSE .
...
...
APPEND itab_log.
v_char1 = itab_zycit079-ntgew .
v_char2 = itab_zycit003-ntgew .
CLEAR v_descrlog.
CONCATENATE text-483 v_char1
text-484 v_char2
INTO v_descrlog SEPARATED BY space.
MOVE v_descrlog TO itab_log-descr.
itab_log-pos = v_pos.
APPEND itab_log.
* >> Início da inclusão: FORM VINCULACAO_LI
ENDIF.
* << Fim da inclusão
ENDIF.
SELECT SINGLE * FROM /pws/zycit100 "#EC CI_NOFIRST
WHERE nrseq EQ /pws/zycie001-nrseq
AND ebeln EQ itab_zycit003-ebeln
AND ebelp EQ itab_zycit003-ebelp.
IF sy-subrc EQ 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F01
...
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' ).
SELECT SINGLE * FROM /pws/zycit003
WHERE nrseq EQ it_zycit079-nrseq
AND ebeln EQ it_zycit079-ebeln
AND ebelp EQ it_zycit079-ebelp.
* >> Início da inclusão: FORM SAVE
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.
* << Fim da inclusão
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.
ENDLOOP.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F02
...
LOOP AT it_zycit079.
READ TABLE it_zycit003_aux WITH KEY ebeln = it_zycit079-ebeln
ebelp = it_zycit079-ebelp.
* >> Início da inclusão: FORM VERIFICA_ADICAO
IF NOT it_zycit003_aux-qtd_itend IS INITIAL.
MOVE: it_zycit003_aux-qtd_itend TO it_zycit079-qtd_iten.
ELSE.
* << Fim da inclusão
MOVE: it_zycit003_aux-qtd_iten TO it_zycit079-qtd_iten.
* >> Início da inclusão: FORM VERIFICA_ADICAO
ENDIF.
* << Fim da inclusão
it_zycit079-slqtde = it_zycit079-slqtde - it_zycit079-qtd_iten.
MODIFY it_zycit079 TRANSPORTING qtd_iten
slqtde.
ENDLOOP.
PERFORM vinculacao.
ENDFORM.
...
...
IF /pws/zycie078-j_1bbranch NE wa_zycit001-j_1bbranch.
MOVE: it_zycit079-ebeln TO it_log-ebeln,
it_zycit079-ebelp TO it_log-ebelp,
wa_zycit001-nrseq TO it_log-nrseq,
text-108 TO it_log-descr.
APPEND it_log.
ENDIF.
CLEAR: v_descrlog.
IF it_zycit079-qtd_iten IS INITIAL.
* >> Início da inclusão: FORM VINCULACAO
IF NOT it_zycit003_aux-qtd_itend IS INITIAL.
MOVE it_zycit003_aux-qtd_itend TO it_zycit079-qtd_iten.
ELSE.
* << Fim da inclusão
MOVE it_zycit003_aux-qtd_iten TO it_zycit079-qtd_iten.
* >> Início da inclusão: FORM VINCULACAO
ENDIF.
ENDIF.
IF NOT it_zycit003_aux-qtd_itend IS INITIAL.
IF it_zycit079-qtd_iten NE it_zycit003_aux-qtd_itend.
CONCATENATE text-120 it_zycit079-ebeln text-121
it_zycit079-ebelp text-107 INTO v_descrlog
SEPARATED BY space.
MOVE: it_zycit079-ebeln TO it_log-ebeln,
it_zycit079-ebelp TO it_log-ebelp,
wa_zycit001-nrseq TO it_log-nrseq,
v_descrlog TO it_log-descr.
APPEND it_log.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM VINCULACAO
ELSE.
* << Fim da inclusão
IF it_zycit079-qtd_iten NE it_zycit003_aux-qtd_iten.
CONCATENATE text-120 it_zycit079-ebeln text-121
it_zycit079-ebelp text-107 INTO v_descrlog
SEPARATED BY space.
MOVE: it_zycit079-ebeln TO it_log-ebeln,
it_zycit079-ebelp TO it_log-ebelp,
wa_zycit001-nrseq TO it_log-nrseq,
v_descrlog TO it_log-descr.
APPEND it_log.
* >> Início da inclusão: FORM VINCULACAO
ENDIF.
* << Fim da inclusão
ENDIF.
IF /pws/zycie078-tpli EQ 'N'.
CLEAR: v_descrlog.
IF /pws/zycie078-condmerc IS INITIAL.
MOVE it_zycit003_aux-condmerc TO /pws/zycie078-condmerc.
ENDIF.
IF /pws/zycie078-condmerc NE it_zycit003_aux-condmerc.
...
...
CLEAR v_fat.
SELECT SINGLE * FROM /pws/zycit006
WHERE nrseq_pgfat EQ itab_zycit263-nrseq_pgfat
AND nrseq_pgfat NE space. "#EC CI_NOFIELD
IF sy-subrc EQ 0.
CLEAR: v_descrlog.
* >> Início da inclusão: FORM VINCULACAO
IF NOT it_zycit003_aux-qtd_itend IS INITIAL.
MOVE it_zycit003_aux-ntgewd TO it_zycit079-ntgew.
ELSE.
* << Fim da inclusão
MOVE it_zycit003_aux-ntgew TO it_zycit079-ntgew.
* >> Início da inclusão: FORM VINCULACAO
ENDIF.
* << Fim da inclusão
IF it_zycit079-ntgew NE it_zycit003_aux-ntgew.
CONCATENATE text-127 it_zycit079-ebeln text-121
it_zycit079-ebelp text-128 INTO v_descrlog
SEPARATED BY space.
MOVE: it_zycit079-ebeln TO it_log-ebeln,
it_zycit079-ebelp TO it_log-ebelp,
...