CE PLUS - Nota 005974
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Vinculação
Data/Hora da Publicação: 20/02/2008 00:00:00
Data/Hora Última Alteração: 10/03/2010 18:04:22
Descrição da Nota: VINCULAÇÃO
Sintoma
Não preenche campo atribuição no cancelamento, devolução do ACE na Vinculação Modificar.
Solução
Não verificar se o campo itab_zycbt012-zuonr é vazio.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05974 Data: 20/02/2008 Hora: 10:24:44
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05974
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00004
Agrupamento : 00035
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
VINCULAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
VINCULAÇÃO - PREENCHE ATRIBUIÇÃO CANCEL E DEVOLUÇÃO ACE
----------------------------------------------------------------------------------------------------
Objetos da nota:
RELE F6DK958159 20080220 102111 PWSCB
REPS /PWS/MZYCB009F06
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F06
...
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
ENDIF.
WHEN 'ZTERM'.
IF itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
ENDIF.
ENDCASE.
ENDLOOP.
* >> Início da exclusão: FORM DESMEMBRA_DEV
IF itab_zycbt012-zuonr IS INITIAL .
itab_zycbe033-d_zuonr = itab_zycbe033-c_zuonr.
ENDIF.
* << Fim da exclusão
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
PERFORM verify_null_field USING /pws/zycbe001-bukrs
'BUKRS'
text-004.
itab_zycbe033-bukrs = /pws/zycbe001-bukrs.
PERFORM verify_null_field USING /pws/zycbe050-waers
'WAERS'
text-005.
itab_zycbe033-waers = /pws/zycbe050-waers.
itab_zycbe033-kursf = v_taxa.
...
...
WHERE nrseq = itab_zycbt005-nrinvoic.
itab_zycbe033-c_valut = itab_zycbe033-d_valut.
ELSEIF itab_zyglt321-cpocb = 'DTVINCUL'.
itab_zycbe033-d_valut = itab_zycbt005-dtvincul.
itab_zycbe033-c_valut = itab_zycbt005-dtvincul.
ENDIF.
WHEN 'ZUONR'.
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrseqc.
* >> Início da inclusão: FORM GRAVA_DEVOLUCAO_VAR
itab_zycbe033-c_zuonr = /pws/zycbe001-nrseqc.
* << Fim da inclusão
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
IF NOT /pws/zycbe001-txtinf IS INITIAL.
itab_zycbe033-d_zuonr = /pws/zycbe001-txtinf.
* >> Início da inclusão: FORM GRAVA_DEVOLUCAO_VAR
itab_zycbe033-c_zuonr = /pws/zycbe001-txtinf.
* << Fim da inclusão
ELSE.
IF NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
* >> Início da inclusão: FORM GRAVA_DEVOLUCAO_VAR
itab_zycbe033-c_zuonr = itab_zyglt321-descr.
* << Fim da inclusão
ELSE.
itab_zycbe033-d_zuonr = wa_zycbt011-txtdesc.
* >> Início da inclusão: FORM GRAVA_DEVOLUCAO_VAR
itab_zycbe033-c_zuonr = wa_zycbt011-txtdesc.
* << Fim da inclusão
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb = 'TXTINF5'.
IF NOT /pws/zycbe005-txtinf IS INITIAL.
itab_zycbe033-d_zuonr = /pws/zycbe005-txtinf.
* >> Início da inclusão: FORM GRAVA_DEVOLUCAO_VAR
itab_zycbe033-c_zuonr = /pws/zycbe005-txtinf.
* << Fim da inclusão
ELSE.
IF NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
* >> Início da inclusão: FORM GRAVA_DEVOLUCAO_VAR
itab_zycbe033-c_zuonr = itab_zyglt321-descr.
* << Fim da inclusão
ELSE.
itab_zycbe033-d_zuonr = wa_zycbt011-txtdesc.
* >> Início da inclusão: FORM GRAVA_DEVOLUCAO_VAR
itab_zycbe033-c_zuonr = wa_zycbt011-txtdesc.
* << Fim da inclusão
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrcontr.
* >> Início da inclusão: FORM GRAVA_DEVOLUCAO_VAR
itab_zycbe033-c_zuonr = /pws/zycbe001-nrcontr.
* << Fim da inclusão
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
* >> Início da inclusão: FORM GRAVA_DEVOLUCAO_VAR
itab_zycbe033-c_zuonr = itab_zyglt321-descr.
* << Fim da inclusão
ENDIF.
WHEN 'ZTERM'.
IF itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
ENDIF.
ENDCASE.
ENDLOOP.
IF NOT itab_zycbt012-zuonr IS INITIAL .
itab_zycbe033-d_zuonr = itab_zycbt012-zuonr.
ENDIF.
...