CE PLUS - Nota 004606
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 03/09/2007 00:00:00
Data/Hora Última Alteração: 04/03/2010 11:03:33
Descrição da Nota: PAÍS DE DESTINO INDEFINIDO EM EMBARQUE POR PEDIDO DE COMPRA
Sintoma
O país de destino no cabeçalho do embarque por pedido de compra não é carregado.
Solução
o cliente é identificado pelo fornecimento.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04606 Data: 03/09/2007 Hora: 15:57:04
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04606
Categoria : Erro de Programa
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00012
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
PAÍS DE DESTINO INDEFINIDO EM EMBARQUE POR PEDIDO DE COMPRA
----------------------------------------------------------------------------------------------------
Palavras Chave:
PAÍS DESTINO EMBARQUE PEDIDO COMPRA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCE003F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE003F01
...
TRANSPORTING portdest
WHERE nrseq = /pws/zycee001-nrseq.
ENDIF.
ENDDO.
IF /pws/zycee001-paisdest IS INITIAL.
READ TABLE itab_zycet002 INDEX 1.
CHECK sy-subrc EQ 0.
READ TABLE itab_zycet076 WITH KEY codigo_ce = 'CO'.
READ TABLE itab_vbpa WITH KEY vbeln = itab_zycet002-vbeln_va
parvw = itab_zycet076-codigo_r3.
* >> Início da exclusão: FORM CABECALHO_PORTO_PAIS
IF sy-subrc EQ 0.
* << Fim da exclusão
* >> Início da inclusão: FORM CABECALHO_PORTO_PAIS
IF sy-subrc NE 0.
READ TABLE itab_vbpa
WITH KEY vbeln = itab_zycet002-vbeln_vl
parvw = itab_zycet076-codigo_r3
TRANSPORTING kunnr.
ENDIF.
IF NOT itab_vbpa-kunnr IS INITIAL.
* << Fim da inclusão
READ TABLE itab_kna1 WITH KEY kunnr = itab_vbpa-kunnr.
IF sy-subrc NE 0.
PERFORM seleciona_novos_clientes.
READ TABLE itab_kna1 WITH KEY kunnr = itab_vbpa-kunnr.
ENDIF.
/pws/zycee001-paisdest = itab_kna1-land1.
ENDIF.
ENDIF.
IF NOT /pws/zycee001-paisdest IS INITIAL.
READ TABLE itab_t005t WITH KEY land1 = /pws/zycee001-paisdest
...