CE PLUS - Nota 001552
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Vinculação
Data/Hora da Publicação: 09/06/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 15:14:57
Descrição da Nota: VINCULAÇÃO/LIQUIDAÇÃO DE DP NÃO PREENCHE ATRIBUIÇÃO ZUONR
Sintoma
Na geração do documento contábil de desmembramento do ACE e documento da liquidação, o campo
atribuição (ZUNOR) não está sendo levado para o batch input. Ele deve ser preenchido conforme
parametrizado na tabela /PWS/ZYGLT321.
Solução
Aplicar alterações contidas nessa nota.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01552 Data: 09/06/2006 Hora: 14:06:26
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01552
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00024
Agrupamento : 00117
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
VINCULAÇÃO/LIQUIDAÇÃO DE DP NÃO PREENCHE ATRIBUIÇÃO ZUONR
----------------------------------------------------------------------------------------------------
Palavras Chave:
VINCULAÇÃO/LIQUIDAÇÃO DE DP,DESMEMBRAMENTO DO ACE, DOCUMENTO LIQUIDAÇÃO
CAMPO ATRIBUIÇÃO (ZUNOR) NÃO É PREENCHIDO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB009F08
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F08
...
ENDIF.
WHEN 'ZTERM'.
IF itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
ENDIF.
* >> Início da inclusão: FORM CLEARING
WHEN 'ZUONR'.
IF /pws/zycbe001-tpcontr(1) = 'D'.
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrseqc.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
IF NOT /pws/zycbe001-txtinf IS INITIAL.
itab_zycbe033-d_zuonr = /pws/zycbe001-txtinf.
ELSE.
IF NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
ELSE.
itab_zycbe033-d_zuonr = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb = 'TXTINF5'.
IF NOT /pws/zycbe005-txtinf IS INITIAL.
itab_zycbe033-d_zuonr = /pws/zycbe005-txtinf.
ELSE.
IF NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
ELSE.
itab_zycbe033-d_zuonr = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
ENDIF.
itab_zycbe033-c_zuonr = itab_zycbe033-d_zuonr.
ENDIF.
* << Fim da inclusão
ENDCASE.
ENDLOOP.
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
PERFORM verify_null_field USING itab_vinc-bukrs
'BUKRS'
...
...
itab_zycbe033-newbs = '19'.
itab_zycbe033-agums = p_agums.
ENDIF.
itab_zycbe033-belnr = p_belnr_ref.
itab_zycbe033-dtdocto = p_budat_ref.
* >> Início da inclusão: FORM CLEARING
IF /pws/zycbe001-tpcontr(1) NE 'D'.
* << Fim da inclusão
itab_zycbe033-d_zuonr = itab_vinc-nrinvoic.
itab_zycbe033-c_zuonr = itab_vinc-nrinvoic.
* >> Início da inclusão: FORM CLEARING
ENDIF.
* << Fim da inclusão
IF NOT /pws/zycbe005-j_1bbranch IS INITIAL.
PERFORM verifica_pais_filial USING /pws/zycbe005-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
ELSE.
...
...
itab_zycbe033-d_zuonr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
ENDIF.
* >> Início da inclusão: FORM DESMEMBRA_ACE
IF /pws/zycbe001-tpcontr(1) = 'D'.
itab_zycbe033-c_zuonr = itab_zycbe033-d_zuonr.
ENDIF.
* << Fim da inclusão
WHEN 'ZTERM'.
IF itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
ENDIF.
ENDCASE.
...
...
itab_zycbe033-c_valut = itab_zycbt005-dtvincul.
ENDIF.
WHEN 'ZTERM'.
IF itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
* >> Início da inclusão: FORM BAIXA_CLIENTE_ACE
ENDIF.
WHEN 'ZUONR'.
IF /pws/zycbe001-tpcontr(1) = 'D'.
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrseqc.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
IF NOT /pws/zycbe001-txtinf IS INITIAL.
itab_zycbe033-d_zuonr = /pws/zycbe001-txtinf.
ELSE.
IF NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
ELSE.
itab_zycbe033-d_zuonr = wa_zycbt011-txtdesc.
ENDIF.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM BAIXA_CLIENTE_ACE
ELSEIF itab_zyglt321-cpocb = 'TXTINF5'.
IF NOT /pws/zycbe005-txtinf IS INITIAL.
itab_zycbe033-d_zuonr = /pws/zycbe005-txtinf.
ELSE.
IF NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
ELSE.
itab_zycbe033-d_zuonr = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
ENDIF.
ENDIF.
* << Fim da inclusão
ENDCASE.
ENDLOOP.
CONCATENATE text-376 itab_zycbt005-nrinvoic
INTO itab_zycbe033-c_zuonr
SEPARATED BY space.
...