CE PLUS - Nota 013098
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 04/07/2013 00:00:00
Data/Hora Última Alteração: 19/08/2013 13:55:55
Descrição da Nota: GRAVA DADOS DE CONTRATO COM INFORMAÇÕES INCOMPLETAS
Sintoma
Grava dados de contrato com informações de câmbio incompletas
Solução
Atualizado programa para verificar se tudo está preenchido antes de gravar registro nas Adições da
DI, Aba Cambio.
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 13098 Data: 04/07/2013 Hora: 15:13:33
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 13098
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 9.0
Pacote : 00005
Agrupamento : 00158
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
10673 - 00001 - 8.0 - 00005 - AO CRIAR AS ADIÇÕES DA DI,NÃO LEVA DADOS DA PASTA CÂMBIO AUTOMATI
13153 - 00002 - 9.0 - 00005 - VERIFICAR SE O PROCESSO ESTÁ SENDO ALTERADO POR ALGUM USUÁRIO E B
----------------------------------------------------------------------------------------------------
GRAVA DADOS DE CONTRATO COM INFORMAÇÕES INCOMPLETAS
----------------------------------------------------------------------------------------------------
Palavras Chave:
DI - ADIÇÃO - CAMBIO - CONTRATO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F05
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F05
...
ENDIF.
itab_zycit121-mandt = sy-mandt.
itab_zycit121-nrseqdi = /pws/zycie085-nrseqdi.
itab_zycit121-adicao = wa_it-adicao.
itab_zycit121-banco = /pws/zycbt031-bcooper+5(5).
itab_zycit121-praca = /pws/zycbt048-praca+1(4).
itab_zycit121-contrato = /pws/zycbt048-nrcontr .
itab_zycit121-valor = /pws/zycbt031-vlme.
itab_zycit121-waers = /pws/zycbt117-waers.
itab_zycit121-tipo = 'V'.
* >> Início da exclusão: FORM LOAD_CAMBIO
IF NOT itab_zycit121-moedanac IS INITIAL OR
itab_zycit121-contrato IS INITIAL OR
itab_zycit121-banco IS INITIAL OR
itab_zycit121-praca IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_CAMBIO
IF NOT itab_zycit121-moedanac IS INITIAL and
not itab_zycit121-contrato IS INITIAL and
not itab_zycit121-banco IS INITIAL and
not itab_zycit121-praca IS INITIAL.
* << Fim da inclusão
MODIFY itab_zycit121 TRANSPORTING mandt nrseqdi
adicao banco praca contrato valor waers tipo
WHERE nrseqdi = /pws/zycie085-nrseqdi
AND adicao = wa_it-adicao
AND tipo = itab_zycit121-tipo
AND moedanac = itab_zycit121-moedanac
AND contrato = itab_zycit121-contrato
AND banco = itab_zycit121-banco
AND praca = itab_zycit121-praca .
IF sy-subrc NE 0.
...
...
ENDIF.
itab_zycit121-mandt = sy-mandt.
itab_zycit121-nrseqdi = /pws/zycie085-nrseqdi.
itab_zycit121-adicao = wa_it-adicao.
itab_zycit121-banco = /pws/zycbt031-bcooper+5(5).
itab_zycit121-praca = /pws/zycbt048-praca+1(4).
itab_zycit121-contrato = /pws/zycbt048-nrcontr .
itab_zycit121-valor = /pws/zycbt031-vlme.
itab_zycit121-waers = /pws/zycbt117-waers.
itab_zycit121-tipo = 'A'.
* >> Início da exclusão: FORM LOAD_CAMBIO
IF NOT itab_zycit121-moedanac IS INITIAL OR
itab_zycit121-contrato IS INITIAL OR
itab_zycit121-banco IS INITIAL OR
itab_zycit121-praca IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_CAMBIO
IF NOT itab_zycit121-moedanac IS INITIAL and
not itab_zycit121-contrato IS INITIAL and
not itab_zycit121-banco IS INITIAL and
not itab_zycit121-praca IS INITIAL.
* << Fim da inclusão
MODIFY itab_zycit121 TRANSPORTING mandt nrseqdi
adicao banco praca contrato valor waers tipo
WHERE nrseqdi = /pws/zycie085-nrseqdi
AND adicao = wa_it-adicao
AND tipo = itab_zycit121-tipo
AND moedanac = itab_zycit121-moedanac
AND contrato = itab_zycit121-contrato
AND banco = itab_zycit121-banco
AND praca = itab_zycit121-praca .
IF sy-subrc NE 0.
...