CE PLUS - Nota 003370
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 30/03/2007 00:00:00
Data/Hora Última Alteração: 03/03/2010 13:15:39
Descrição da Nota: EMBARQUE NÃO É ATUALIZADO COM INFORMAÇÕES QUANDO HÁ PARTIÇÃO DE REMESSA
Sintoma
O embarque de exportação não é atualizado com as informações quando existe a Partição de Remessas
(VLSP).
Solução
Incluído tratamento no programa do embarque (/PWS/SAPMZYCE003) para identificação das remessas que
foram eliminadas (partição). Ao efetuar o refresh dos dados ou inicializar o programa do embarque,
após identificação das remessas eliminadas, o fluxo de documentos é atualizado a partir da ordem de
venda.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03370 Data: 30/03/2007 Hora: 17:00:12
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03370
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00026
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
Texto Rápido:
EMBARQUE NÃO É ATUALIZADO COM INFORMAÇÕES QUANDO HÁ PARTIÇÃO DE REMESSA
----------------------------------------------------------------------------------------------------
Palavras Chave:
PARTIÇÃO, REMESSA, FORNECIMENTO, DOCUMENTO, FLUXO, ATUALIZAR, EMBARQUE
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCE003F01
REPS /PWS/MZYCE003F02
REPS /PWS/MZYCE003TCD
REPS /PWS/MZYCE003TIA
REPS /PWS/MZYCE003TOP
REPT /PWS/SAPMZYCE003
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE003F01
...
READ TABLE itab_likp WITH KEY vbeln = itab_zycet002-vbeln_vl
BINARY SEARCH.
IF sy-subrc NE 0.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = 'VL'
msgty = 'W'
msgv1 = itab_zycet002-vbeln_vl
txtnr = 302
zeile = 'REM_NOT_FOUND'.
* >> Início da inclusão: FORM MOVE_DADOS_SAP_PARA_ITENS
v_flag = 'X'.
itab_fluxo-nrseq = /pws/zycee001-nrseq.
itab_fluxo-vbeln_va = itab_zycet002-vbeln_va.
itab_fluxo-aupos = itab_zycet002-aupos.
COLLECT itab_fluxo.
* << Fim da inclusão
CLEAR: itab_zycet002-vbeln_vl,
itab_zycet002-posnl,
itab_zycet002-vbeln_vf,
itab_zycet002-posnr.
MODIFY itab_zycet002 INDEX v_index TRANSPORTING vbeln_vl
posnl
vbeln_vf
posnr.
wa_controle-refresh = 'X'.
EXIT.
...
...
posnr = itab_zycet002-posnl
BINARY SEARCH.
IF sy-subrc NE 0.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = 'VL'
msgty = 'W'
msgv1 = itab_zycet002-vbeln_vl
txtnr = 302
zeile = 'REM_NOT_FOUND'.
* >> Início da inclusão: FORM MOVE_DADOS_SAP_PARA_ITENS
v_flag = 'X'.
itab_fluxo-nrseq = /pws/zycee001-nrseq.
itab_fluxo-vbeln_va = itab_zycet002-vbeln_va.
itab_fluxo-aupos = itab_zycet002-aupos.
COLLECT itab_fluxo.
* << Fim da inclusão
CLEAR: itab_zycet002-vbeln_vl,
itab_zycet002-posnl,
itab_zycet002-vbeln_vf,
itab_zycet002-posnr.
MODIFY itab_zycet002 INDEX v_index TRANSPORTING vbeln_vl
posnl
vbeln_vf
posnr.
wa_controle-refresh = 'X'.
EXIT.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE003F02
...
endif.
END-OF-DEFINITION.
add_campo_alternativo '/PWS/ZYCEE001-NAME1' '/PWS/ZYCEE001-CODPORTD'.
ENDFORM.
FORM verifica_mensagens.
CHECK wa_controle-mensagem_carregada IS INITIAL.
wa_controle-mensagem_carregada = 'X'.
CALL FUNCTION 'MESSAGES_INITIALIZE'.
ENDFORM.
FORM emite_mensagem.
* >> Início da exclusão: FORM EMITE_MENSAGEM
DATA: v_num_messages TYPE sy-tabix.
* << Fim da exclusão
* >> Início da inclusão: FORM EMITE_MENSAGEM
DATA: v_num_messages TYPE sy-tabix,
v_resp(1) TYPE c.
* << Fim da inclusão
CALL FUNCTION 'MESSAGES_COUNT'
IMPORTING
count = v_num_messages.
CHECK v_num_messages GT 0.
CALL FUNCTION 'MESSAGES_SHOW'
EXPORTING
object = text-520
send_if_one = ' '
show_linno = ' '.
* >> Início da inclusão: FORM EMITE_MENSAGEM
IF NOT v_flag IS INITIAL.
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
EXPORTING
defaultoption = 'N'
cancel_display = ' '
textline1 = text-622
textline2 = text-623
titel = text-530
IMPORTING
answer = v_resp
EXCEPTIONS
OTHERS = 1.
IF v_resp CA 'YJ'.
LOOP AT itab_fluxo.
CHECK NOT itab_fluxo-vbeln_va IS INITIAL OR
NOT itab_fluxo-ebeln IS INITIAL.
CLEAR itab_zycet002.
itab_zycet002-nrseq = /pws/zycee001-nrseq.
itab_zycet002-vbeln_va = itab_fluxo-vbeln_va.
itab_zycet002-aupos = itab_fluxo-aupos.
itab_zycet002-ebeln = itab_fluxo-ebeln.
itab_zycet002-novo = 'X'.
COLLECT itab_zycet002.
ENDLOOP.
PERFORM refresh_embarque USING 'X'.
ENDIF.
CLEAR: v_flag.
ENDIF.
* << Fim da inclusão
CALL FUNCTION 'MESSAGES_INITIALIZE'.
CLEAR wa_controle-mensagem_carregada.
ENDFORM.
FORM okcode_0001.
CASE okcode.
WHEN 'BACK'.
LEAVE PROGRAM.
WHEN 'ENTE'.
PERFORM seleciona_embarque.
ENDCASE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE003TCD
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE003TIA
...
land1 TYPE /pws/zycet002-land1,
kunag TYPE /pws/zycet002-kunag,
gsber TYPE /pws/zycet002-gsber,
matnr TYPE /pws/zycet002-matnr,
werks TYPE /pws/zycet002-werks,
nfnum TYPE /pws/zycet002-nfnum,
nrseq_consig TYPE /pws/zycet002-nrseq_consig,
vbeln_consig TYPE /pws/zycet002-vbeln_consig,
posnr_consig TYPE /pws/zycet002-posnr_consig,
END OF itab_zycet002_off_shore.
* >> Início da inclusão:
DATA: BEGIN OF itab_fluxo OCCURS 0,
nrseq TYPE /pws/zycet002-nrseq,
vbeln_va TYPE /pws/zycet002-vbeln_va,
aupos TYPE /pws/zycet002-aupos,
ebeln TYPE /pws/zycet002-ebeln,
END OF itab_fluxo.
* << Fim da inclusão
DATA: wa_thead TYPE thead,
wa_thead2 TYPE thead.
TYPES: BEGIN OF ty_tline.
INCLUDE STRUCTURE tline.
TYPES: END OF ty_tline.
TYPES: tf_tline TYPE TABLE OF ty_tline.
DATA: itab_tline TYPE STANDARD TABLE OF ty_tline,
itab_tline2 TYPE STANDARD TABLE OF ty_tline.
TYPES r_kschl TYPE RANGE OF kschl.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE003TOP
...
tc_resumo TYPE TABLEVIEW USING SCREEN '0106',
tc_permiso TYPE TABLEVIEW USING SCREEN '0108',
tc_docrel TYPE TABLEVIEW USING SCREEN '0204',
tc_drawback TYPE TABLEVIEW USING SCREEN '0205',
tc_pricing TYPE TABLEVIEW USING SCREEN '0211',
tc_outdados TYPE TABLEVIEW USING SCREEN '4004',
tc_off_shore TYPE TABLEVIEW USING SCREEN '0109'.
DATA: okcode TYPE sy-ucomm,
v_modo TYPE /pws/zycbt039-modo,
v_rec_cont TYPE flag,
* >> Início da exclusão:
i_sytcode TYPE sy-tcode.
* << Fim da exclusão
* >> Início da inclusão:
i_sytcode TYPE sy-tcode,
v_flag(1) TYPE c.
* << Fim da inclusão
SELECTION-SCREEN BEGIN OF SCREEN 5001 AS WINDOW TITLE text-t01.
SELECTION-SCREEN BEGIN OF BLOCK s5001_a WITH FRAME TITLE text-t16.
SELECT-OPTIONS: s_vbelnv FOR vbak-vbeln,
s_vbelnl FOR likp-vbeln,
s_vbelnf FOR vbrk-vbeln,
s_tknum FOR vttk-tknum.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 5(50) text-t18.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCE003
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 622
Texto: (38 caracteres)
"Deseja atualizar o Fluxo de Documentos"
Comprimento máximo: 38
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 623
Texto: (32 caracteres)
"a partir da Ordem de Venda/Item?"
Comprimento máximo: 32