CE PLUS - Nota 000395
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 05/12/2005 00:00:00
Data/Hora Última Alteração: 21/02/2011 15:25:29
Descrição da Nota: CONDIÇÃO DE PAGAMENTO NO EMBARQUE DE EXPORTAÇÃO
Sintoma
Ao alterar uma condição de pagamento dentro do embarque, depois de salvar o processo, a alteração é
perdida.
Solução
Atualizar corretamente o registro na tabela /PWS/ZYCET046
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00395 Data: 05/12/2005 Hora: 11:55:53
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00395
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
00353 - 00001 - 6.0 - 00021 - EMBARQUE DE AMOSTRA
00392 - 00002 - 6.0 - 00022 - UNIDADE DE MEDIDA INCORRETA NO EMBARQUE DE EXPORTAÇÃO
----------------------------------------------------------------------------------------------------
CONDIÇÃO DE PAGAMENTO NO EMBARQUE DE EXPORTAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXPORTAÇÃO EMBARQUE CONDIÇÃO DE PAGAMENTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCE003F01
REPS /PWS/MZYCE003F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE003F01
...
IF itab_003-dtlibanu NE itab_zycet003-dtlibanu.
itab_zycet003-dtlibanu = itab_003-dtlibanu.
ENDIF.
MODIFY itab_zycet003 TRANSPORTING dtlibanu.
ENDLOOP.
* >> Início da inclusão: FORM SELECIONA_DADOS_ADICIONAIS_PW
IF okcode NE 'SALVA'.
* << Fim da inclusão
SELECT SINGLE *
FROM /pws/zycet046
INTO /pws/zycee046
WHERE nrseq = /pws/zycee001-nrseq.
wa_zycet046 = /pws/zycee046.
* >> Início da inclusão: FORM SELECIONA_DADOS_ADICIONAIS_PW
ENDIF.
* << Fim da inclusão
SELECT *
FROM /pws/zycet047
INTO TABLE itab_zycet047
WHERE nrseq = /pws/zycee001-nrseq.
SELECT *
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE003F02
...
ENDIF.
COMMIT WORK.
PERFORM salva_texto USING 'CE01' /pws/zycee001-txtobs.
PERFORM salva_texto USING 'CE02' /pws/zycee001-txtobs2.
* >> Início da inclusão: FORM SALVA_EMBARQUE
UPDATE /pws/zycet046 SET zterm = /pws/zycee046-zterm
WHERE nrseq = /pws/zycee001-nrseq.
IF sy-subrc ne 0.
/pws/zycee046-nrseq = /pws/zycee001-nrseq.
INSERT INTO /pws/zycet046 VALUES /pws/zycee046.
ENDIF.
* << Fim da inclusão
ENDIF.
COMMIT WORK.
PERFORM gera_doc_modificacao USING space.
*/pws/zycee001 = /pws/zycee001.
*/pws/zycee014 = /pws/zycee014.
...