CE PLUS - Nota 007452
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Vinculação
Data/Hora da Publicação: 20/10/2008 00:00:00
Data/Hora Última Alteração: 18/02/2011 17:58:40
Descrição da Nota: VINCULAÇÃO-ATUALIZAR CAMPO /PWS/ZYCBT001-FRANSF E /PWS/ZYCBT002-FTRANSF
Sintoma
Ao vincular um contrato total, o campo SLVINC das tabelas /PWS/ZYCBT001 ou /PWS/ZYCBT002 é
atualizado com zero, mas o campo FTRANSF fica vazio, com isso permite efetuar transferência de LP/CP
na rotina mensal.
Solução
Atualizar o campo FTRANSF após vincular total.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07452 Data: 20/10/2008 Hora: 13:43:20
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07452
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00070
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04507 - 00001 - 7.0 - 00002 - VINCULAÇÃO - ESTORNO - ATUALIZAÇÃO TABELA /PWS/ZYCBT005
----------------------------------------------------------------------------------------------------
VINCULAÇÃO-ATUALIZAR CAMPO /PWS/ZYCBT001-FRANSF E /PWS/ZYCBT002-FTRANSF
----------------------------------------------------------------------------------------------------
Palavras Chave:
VINCULAÇÃO ATUALIZAR CAMPO /PWS/ZYCBT001-FRANSF E /PWS/ZYCBT002-FTRANSF
ROTINA MENSAL EXPORTAÇÃO /PWS/ZYCBR003
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB009F10
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F10
...
ENDIF.
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.
* >> Início da inclusão: FORM GRAVA_CONTABILIZACAO
IF /pws/zycbe001-tpcontr(1) NE 'P' AND
/pws/zycbe001-tpcontr(1) NE 'S'.
IF /pws/zycbe001-slvinc = 0.
/pws/zycbe001-ftransf = 'X'.
ELSE.
CLEAR /pws/zycbe001-ftransf.
ENDIF.
ENDIF.
* << Fim da inclusão
IF v_erro_estorno IS INITIAL.
PERFORM atualiza_dados_estorno.
MODIFY /pws/zycbt001 FROM /pws/zycbe001.
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'.
...
...
IF /pws/zycbe001-tpcontr EQ 'DP' AND
v_erro_estorno IS INITIAL.
MODIFY /pws/zycbt005 FROM TABLE itab_zycbt005.
MODIFY /pws/zycbt017 FROM TABLE itab_zycbt017.
ELSEIF /pws/zycbe001-tpcontr NE 'DP'.
MODIFY /pws/zycbt005 FROM TABLE itab_zycbt005.
MODIFY /pws/zycbt017 FROM TABLE itab_zycbt017.
ENDIF.
IF /pws/zycbe001-tpcontr(1) = 'P' OR
/pws/zycbe001-tpcontr(1) = 'S'.
* >> Início da inclusão: FORM GRAVA_CONTABILIZACAO
itab_zycbt002p-ftransf = 'X'.
modify itab_zycbt002p transporting ftransf
where slvinc = 0.
itab_zycbt002p-ftransf = ' '.
modify itab_zycbt002p transporting ftransf
where slvinc > 0.
* << Fim da inclusão
MODIFY /pws/zycbt002 FROM TABLE itab_zycbt002p.
MODIFY /pws/zycbt069 FROM TABLE itab_zycbt069.
ENDIF.
COMMIT WORK.
ENDFORM.
FORM monta_log_cfm USING p_dados
p_tabela
CHANGING p_wa_log.
DATA: t_prog(72) TYPE c OCCURS 1000 WITH HEADER LINE,
w_prog LIKE trdir-name.
...