CE PLUS - Nota 009926
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: BL
Data/Hora da Publicação: 09/03/2010 00:00:00
Data/Hora Última Alteração: 11/03/2010 14:46:41
Descrição da Nota: PERMITE CRIAR DI PARA GRANEL SEM INFORMAR PESO BRUTO DESEMBARCADO
Sintoma
O embarque é a granel e eu não preenchi o peso bruto desembarcado no B/L (/PWS/ZYCIE093-BRGEWD). Se
eu tentar criar a DI por dentro do embarque, aparece uma mensagem de erro informando que o peso
bruto desembarcado não está preenchido. Porém, consigo criar a DI por dentro do B/L e por fora do
embarque. Favor colocar a mesma mensagem de preenchimento do peso bruto desembarcado para todas as
maneiras de criar a DI (dentro do B/L e por fora do embarque).
Solução
Verificar se o Peso Bruto Desembarcado esta preenchido para permitir criar a DI
Versões Tratadas
8.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09926 Data: 09/03/2010 Hora: 14:34:53
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09926
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00002
Agrupamento : 00012
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
PERMITE CRIAR DI PARA GRANEL SEM INFORMAR PESO BRUTO DESEMBARCADO
----------------------------------------------------------------------------------------------------
Palavras Chave:
DI - BL - GRANEL - CRIAR - PESO - BRUTO - DESEMBARCADO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI002F02
REPS /PWS/MZYCI023F01
REPT /PWS/SAPMZYCI002
REPT /PWS/SAPMZYCI023
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI002F02
...
MODIFY itab_zycit014 INDEX v_pos.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
ENDFORM.
FORM trata_botao_ddsi.
DATA: v_nrseqdi LIKE /pws/zycie085-nrseqdi VALUE space,
v_tpdi LIKE /pws/zycie085-tpdi VALUE space,
v_tpdecl LIKE /pws/zycie001-tpdecl VALUE space.
* >> Início da inclusão: FORM TRATA_BOTAO_DDSI
DATA: v_pesotd TYPE /pws/zycie003-ntgewd.
* << Fim da inclusão
PERFORM trata_botao_save.
IF v_changed EQ '1'.
SELECT nrseqdi tpdi UP TO 1 ROWS FROM /pws/zycit085
INTO (v_nrseqdi,v_tpdi)
WHERE nrbl EQ /pws/zycie093-nrseqce. "#EC CI_NOFIELD
ENDSELECT.
IF sy-subrc EQ 0.
IF v_tpdi EQ 'N'.
CASE v_tcode.
WHEN '/PWS/ZYCI002_A'.
...
...
EXPORT v_nrseqdi TO MEMORY ID rimc1.
CALL TRANSACTION '/PWS/ZYCI058_E'
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
IF sy-subrc NE 0.
MESSAGE i015 WITH text-019.
EXIT.
ENDIF.
ENDCASE.
ENDIF.
ELSE.
* >> Início da inclusão: FORM TRATA_BOTAO_DDSI
IF v_tcode <> '/PWS/ZYCI002_E'.
CLEAR v_pesotd.
SELECT * FROM /pws/zycit003_aux
INTO TABLE itab_zycit003
WHERE nrseq EQ /pws/zycit001-nrseq.
LOOP AT itab_zycit003.
v_pesotd = v_pesotd + itab_zycit003-ntgewd.
ENDLOOP.
IF NOT v_pesotd IS INITIAL .
IF /pws/zycit093-brgewd IS INITIAL.
MESSAGE i015 WITH text-231.
EXIT.
ELSEIF /pws/zycit093-brgewd < v_pesotd.
MESSAGE i015 WITH text-299 text-230.
EXIT.
ENDIF.
ENDIF .
ENDIF.
* << Fim da inclusão
SELECT SINGLE * FROM /pws/zycit006 INTO /pws/zycit006
WHERE nrseqce = /pws/zycie093-nrseqce AND
eliminado NE 'X'. "#EC CI_NOFIELD
IF sy-subrc = 0.
IF ( v_tcode EQ '/PWS/ZYCI002_C' OR
v_tcode EQ '/PWS/ZYCI002_A' ).
LOOP AT itab_zycit094s.
SELECT tpdecl UP TO 1 ROWS FROM /pws/zycit001
INTO v_tpdecl
WHERE nrseq EQ itab_zycit094s-nrseq
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
v_nrseqc LIKE /pws/zycit085-nrseqdi,
v_count(7) TYPE n,
v_ano(4).
CONCATENATE '%' 'I' sy-datlo+2(2) INTO v_ano.
SELECT MAX( nrseqdi ) INTO (v_nrseqc) FROM /pws/zycit085
WHERE nrseqdi LIKE v_ano.
v_count = v_nrseqc+0(7) + 1.
CONCATENATE v_count+0(7) 'I' sy-datlo+2(2) INTO /pws/zycie085-nrseqdi.
ENDFORM.
FORM save_data.
* >> Início da inclusão: FORM SAVE_DATA
DATA: v_pesotd TYPE /pws/zycie003-ntgewd.
* << Fim da inclusão
DATA v_ex TYPE c.
LOOP AT itab_it.
CHECK NOT itab_it-tipo_al IS INITIAL OR
NOT itab_it-extarif_al IS INITIAL OR
NOT itab_it-orgemiss_al IS INITIAL OR
NOT itab_it-numero_al IS INITIAL OR
NOT itab_it-anoemiss_al IS INITIAL .
IF itab_it-tipo_al IS INITIAL OR
itab_it-extarif_al IS INITIAL OR
itab_it-orgemiss_al IS INITIAL OR
...
...
EXIT.
ENDIF.
ENDIF.
IF NOT /pws/zycie085-dtdesemb IS INITIAL AND
NOT /pws/zycie085-dataci IS INITIAL.
IF /pws/zycie085-dtdesemb GT /pws/zycie085-dataci.
MESSAGE i015 WITH text-255 text-257.
EXIT.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM SAVE_DATA
CLEAR v_pesotd.
LOOP AT itab_it.
v_pesotd = v_pesotd + itab_it-ntgewd.
ENDLOOP.
IF NOT v_pesotd IS INITIAL .
IF /pws/zycie093-brgewd IS INITIAL.
MESSAGE i015 WITH text-284.
EXIT.
ELSEIF /pws/zycie093-brgewd < v_pesotd.
MESSAGE i015 WITH text-282 text-283.
EXIT.
ENDIF.
ENDIF .
* << Fim da inclusão
IF v_required EQ '1'.
CHECK NOT /pws/zycie085-dttax IS INITIAL.
ENDIF.
IF NOT /pws/zycie085-dttax IS INITIAL AND NOT v_nottax IS INITIAL.
MESSAGE i013 WITH text-231 text-232.
EXIT.
ENDIF.
PERFORM verifica_nrdi.
IF v_grava_ok = 'F'.
EXIT.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI002
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 229
Texto: (44 caracteres)
"Total do peso líquido desembarcado dos itens"
Comprimento máximo: 44
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 230
Texto: (44 caracteres)
"é superior ao peso bruto desembarcado do BL!"
Comprimento máximo: 44
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 231
Texto: (33 caracteres)
"Preencher peso bruto desembarcado"
Comprimento máximo: 33
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI023
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 282
Texto: (44 caracteres)
"Total do peso líquido desembarcado dos itens"
Comprimento máximo: 44
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 283
Texto: (44 caracteres)
"é superior ao peso bruto desembarcado do BL!"
Comprimento máximo: 44
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 284
Texto: (40 caracteres)
"Preencher peso bruto desembarcado do BL!"
Comprimento máximo: 40