CE PLUS - Nota 000355
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 26/11/2005 00:00:00
Data/Hora Última Alteração: 21/02/2011 13:51:01
Descrição da Nota: DADOS DA NOMEAÇÃO NO EMBARQUE DE EXPORTAÇÃO
Sintoma
O Embarque de exportação não busca os dados automaticamente da Nomeação.
Solução
Tratar os demais campos (Portos e Datas).
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00355 Data: 26/11/2005 Hora: 16:42:50
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00355
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00021
Agrupamento : 00089
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00308 - 00001 - 6.0 - 00021 - ERRO AO GRAVAR OS DADOS REFERENTES AO ATO CONCESSÓRIO DE EXPORTAÇ
00353 - 00002 - 6.0 - 00021 - EMBARQUE DE AMOSTRA
----------------------------------------------------------------------------------------------------
DADOS DA NOMEAÇÃO NO EMBARQUE DE EXPORTAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXPORTAÇÃO NOMEAÇÃO EMBARQUE ETA ETD TRANSPORTE PORTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCE003F01
REPS /PWS/MZYCE003TCD
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE003F01
...
INTO TABLE itab_zycet106
FOR ALL ENTRIES IN itab_zycet108
WHERE nrseqno = itab_zycet108-nrseqno.
IF sy-subrc EQ 0.
SELECT nrseqtr
* >> Início da inclusão: FORM SELECIONA_DADOS_ADICIONAIS_PW
nrrota_tr
codprt
tpemb
descprt
dteta
dtetd
FROM /pws/zycet103
INTO TABLE itab_zycet103
FOR ALL ENTRIES IN itab_zycet106
WHERE nrseqtr EQ itab_zycet106-nrseqtr AND
nrrota_tr EQ itab_zycet106-nrrota_tr.
SELECT nrseqtr
* << Fim da inclusão
nome_tr
viatrans
dataentr
FROM /pws/zycet101
INTO TABLE itab_zycet101
...
...
READ TABLE itab_zycet101
WITH KEY nrseqtr = itab_zycet106-nrseqtr.
IF sy-subrc EQ 0.
MOVE: itab_zycet101-nome_tr TO /pws/zycee001-navio,
itab_zycet101-viatrans TO /pws/zycee001-viatrans.
* >> Início da inclusão: FORM CABECALHO_OUTROS_DADOS
ENDIF.
READ TABLE itab_zycet103
WITH KEY nrseqtr = itab_zycet106-nrseqtr
nrrota_tr = itab_zycet106-nrrota_tr
tpemb = 'D'.
IF sy-subrc EQ 0.
MOVE: itab_zycet103-descprt TO /pws/zycee001-portdest,
itab_zycet103-codprt TO /pws/zycee001-zolla_d.
ENDIF.
READ TABLE itab_zycet103
WITH KEY nrseqtr = itab_zycet106-nrseqtr
nrrota_tr = itab_zycet106-nrrota_tr
tpemb = 'E'.
IF sy-subrc EQ 0.
MOVE: itab_zycet103-dteta TO /pws/zycee001-dteta,
itab_zycet103-descprt TO /pws/zycee001-portemb,
itab_zycet103-codprt TO /pws/zycee001-zolla_e,
itab_zycet103-dtetd TO /pws/zycee001-dtprev.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE003TCD
...
nrseqtr LIKE /pws/zycet101-nrseqtr,
nome_tr LIKE /pws/zycet101-nome_tr,
viatrans LIKE /pws/zycet101-viatrans,
dataentr LIKE /pws/zycet101-dataentr,
END OF itab_zycet101.
* >> Início da inclusão:
DATA: BEGIN OF itab_zycet103 OCCURS 0,
nrseqtr LIKE /pws/zycet103-nrseqtr,
nrrota_tr LIKE /pws/zycet103-nrrota_tr,
codprt LIKE /pws/zycet103-codprt,
tpemb LIKE /pws/zycet103-tpemb,
descprt LIKE /pws/zycet103-descprt,
dteta LIKE /pws/zycet103-dteta,
dtetd LIKE /pws/zycet103-dtetd,
END OF itab_zycet103.
* << Fim da inclusão
DATA: BEGIN OF itab_zycet106 OCCURS 0,
nrseqno LIKE /pws/zycet106-nrseqno,
nrseqtr LIKE /pws/zycet106-nrseqtr,
nrrota_tr LIKE /pws/zycet106-nrrota_tr,
nome_tr LIKE /pws/zycet106-nome_tr,
...