CE PLUS - Nota 006166
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Vinculação
Data/Hora da Publicação: 13/03/2008 00:00:00
Data/Hora Última Alteração: 18/02/2011 18:00:00
Descrição da Nota: VINCULAÇÃO - GRAVAR DATA VINCULAÇÃO NA TABELA /PWS/ZYCBT001 - DTVINCUL
Sintoma
Ao gravar vinculação, o campo /pws/zycbt001-dtvincul não esta sendo atualizado.
Solução
Tratar verificando se o campo itab_zycbe033-budat esta preenchido, se não tiver, indica que é ida e
grava como antes com o campo v_docto.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06166 Data: 13/03/2008 Hora: 14:37:03
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06166
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00004
Agrupamento : 00037
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
06165 - 00001 - 7.0 - 00004 - VINCULAÇAO - AJUSTES CHAMADO 432177
----------------------------------------------------------------------------------------------------
VINCULAÇÃO - GRAVAR DATA VINCULAÇÃO NA TABELA /PWS/ZYCBT001 - DTVINCUL
----------------------------------------------------------------------------------------------------
Palavras Chave:
VINCULAÇÃO GRAVAR DATA VINCULAÇÃO NA TABELA /PWS/ZYCBT001 DTVINCUL
/PWS/ZYCBT001-DTVINCUL
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB009F10
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F10
...
MODIFY itab_zycbt017 INDEX v_pos_itab.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
IF /pws/zycbe001-tpcontr(01) = 'D' AND
/pws/zycbt089-f_cont_vinc = 'F'.
/pws/zycbe001-slpagar = /pws/zycbe001-slvinc.
ENDIF.
/pws/zycbe001-belnr2 = v_belnr_001.
* >> Início da inclusão: FORM GRAVA_CONTABILIZACAO
IF NOT itab_zycbe033-budat IS INITIAL.
* << Fim da inclusão
/pws/zycbe001-dtvincul = itab_zycbe033-budat.
* >> Início da inclusão: FORM GRAVA_CONTABILIZACAO
ELSE.
/pws/zycbe001-dtvincul = v_dtdocto.
ENDIF.
* << Fim da inclusão
IF /pws/zycbe001-tpcontr(1) EQ 'C' AND
wa_zycbt007-liq_cp EQ 'X'.
IF itab_zycbt005[] IS INITIAL
AND v_erro_estorno IS INITIAL.
/pws/zycbe001-slpagar = /pws/zycbe001-vlme.
ELSE.
CLEAR /pws/zycbe001-slpagar.
ENDIF.
ENDIF.
IF v_erro_estorno IS INITIAL.
PERFORM atualiza_dados_estorno.
MODIFY /pws/zycbt001 FROM /pws/zycbe001.
* >> Início da exclusão: FORM GRAVA_CONTABILIZACAO
.
* << Fim da exclusão
ELSEIF /pws/zycbe001-tpcontr NE 'DP'.
MODIFY /pws/zycbt001 FROM /pws/zycbe001.
.
ENDIF.
DELETE itab_zycbt005 WHERE nrinvoic EQ ' '.
DELETE itab_zycbt005 WHERE vlvinc EQ ' '.
IF wa_zycbt007-cfm = 'X'.
LOOP AT itab_zycbt005.
SELECT SINGLE *
FROM /pws/zycbt005
...