CE PLUS - Nota 000390
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 02/12/2005 00:00:00
Data/Hora Última Alteração: 21/02/2011 15:18:06
Descrição da Nota: ALTERAÇÃO DO CAMPOS PAÍS E DOS DADOS DA CARTA DE CRÉDITO
Sintoma
Quando entramos na Carta de Credito est[a aparecendo o endereco do Exportador com endereco correto
porem com o PAIS DO IMPORTADOR. / O campo PAÍS deverá ter a opção de mudança.
Solução
O campo país foi aberto para alteração e foi alterada a busca dos dados do endereco do Exportador .
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00390 Data: 02/12/2005 Hora: 17:47:15
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00390
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00022
Agrupamento : 00093
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00372 - 00001 - 6.0 - 00021 - ERRO EM VALORES DE SALDO À VINCULAR NO CÂMBIO
----------------------------------------------------------------------------------------------------
ALTERAÇÃO DO CAMPOS PAÍS E DOS DADOS DA CARTA DE CRÉDITO
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXPORTAÇÃO - EMBARQUE - CAMPO PAÍS - CARTA DE CRÉDITO
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCE003 0101
REPS /PWS/MZYCE003F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCE003 0101
MODIFICAR CAMPO: /PWS/ZYCEE001-PAISDEST
"GRUPOS: DE: F ; 74 ; 010 ; 001 PARA: _____; 74 ;_____; 001
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE003F01
...
(itab_dados_cc-cida) TO <cida>,
(itab_dados_cc-zona) TO <zona>,
(itab_dados_cc-cpos) TO <cpos>,
(itab_dados_cc-pais) TO <pais>.
READ TABLE itab_t001 WITH KEY bukrs = /pws/zycee001-bukrs.
* >> Início da exclusão: FORM ATUALIZA_DADOS_CARTA_CREDITO
READ TABLE itab_t005t WITH KEY land1 = itab_kna1-land1
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_DADOS_CARTA_CREDITO
READ TABLE itab_t005t WITH KEY land1 = itab_t001-land1
* << Fim da inclusão
spras = sy-langu.
IF sy-subrc NE 0.
* >> Início da exclusão: FORM ATUALIZA_DADOS_CARTA_CREDITO
READ TABLE itab_t005t WITH KEY land1 = itab_kna1-land1.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_DADOS_CARTA_CREDITO
READ TABLE itab_t005t WITH KEY land1 = itab_t001-land1.
* << Fim da inclusão
ENDIF.
CLEAR itab_t001w.
CLEAR itab_vbadr.
IF NOT /pws/zycee001-werks IS INITIAL.
READ TABLE itab_t001w WITH KEY werks = /pws/zycee001-werks.
...
...
IF /pws/zycee001-navio IS INITIAL.
CLEAR: /pws/zycee001-dtvencto,
/pws/zycee001-modo_venc,
/pws/zycee001-kurrf_bl,
/pws/zycee001-viatrans.
* >> Início da inclusão: FORM TRANSFERE_VALORES
ENDIF.
if /pws/zycee001-paisdest IS INITIAL.
CLEAR wa_valores-pais_dest.
else.
read table itab_t005t with key land1 = /pws/zycee001-paisdest
spras = sy-langu.
if sy-subrc eq 0.
wa_valores-pais_dest = itab_t005t-landx.
else.
read table itab_t005t
with key land1 = /pws/zycee001-paisdest.
if sy-subrc eq 0.
wa_valores-pais_dest = itab_t005t-landx.
else.
CLEAR wa_valores-pais_dest.
endif.
endif.
* << Fim da inclusão
ENDIF.
WHEN OTHERS.
ENDCASE.
IF wa_controle-refresh EQ 'X'.
PERFORM refresh_embarque USING space.
...