CE PLUS - Nota 003922
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Vinculação
Data/Hora da Publicação: 14/06/2007 00:00:00
Data/Hora Última Alteração: 10/03/2010 15:42:11
Descrição da Nota: VINCULAÇÃO - DOWN PAYMENT CONTABILIZAÇÃO
Sintoma
Programa de vinculação não faz a contabilização de contrato de down payment quando os parametros
'Baixa Razão Especial contra conta de ACE' e 'Rateio por Centro de Lucro' estão ativados.
Solução
alterado a maneira que o programa trata o cenario.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03922 Data: 14/06/2007 Hora: 14:29:19
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03922
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00001
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
VINCULAÇÃO - DOWN PAYMENT CONTABILIZAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
VINCULAÇÃO - DOWN PAYMENT CONTABILIZAÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB009F05
REPS /PWS/MZYCB009F08
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F05
...
ENDIF.
ENDIF.
ELSEIF wa_zycbt089-f_cont_vinc = 'A'
AND wa_zycbt089-rateio_cl = 'X'.
IF NOT /pws/zycbt089-bx_cli_vinc IS INITIAL AND
/pws/zycbe001-tpcontr(1) NE 'T'.
MOVE text-038 TO v_flag_mod.
PERFORM baixa_cliente_vinc USING v_flag_mod.
ENDIF.
MOVE text-038 TO v_flag_mod.
* >> Início da exclusão: FORM CONTABILIZACAO
READ TABLE itab_zycbt005 WITH KEY status = 'I'.
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZACAO
READ TABLE itab_zycbt005 WITH KEY flag = 'I'.
* << Fim da inclusão
IF sy-subrc EQ 0.
PERFORM fill_date1_f30_desm USING v_flag_mod .
ENDIF.
ENDIF.
ENDIF.
ELSEIF /pws/zycbe001-tpcontr(1) = 'P' OR
/pws/zycbe001-tpcontr(1) = 'S'.
IF wa_zycbt089-est_variacao IS INITIAL.
PERFORM fill_date1_f07_pre.
ELSE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F08
...
ENDLOOP.
CLEAR v_linha.
DESCRIBE TABLE itab_zycbt221 LINES v_linha.
v_total_contrato = v_total_contrato - itab_zycbt005-vlvinc.
IF v_soma NE itab_zycbt005-vlvinc.
v_soma = v_soma - itab_zycbt005-vlvinc .
READ TABLE itab_zycbt036 INDEX 1.
itab_zycbt036-residuo = itab_zycbt036-residuo - v_soma.
MODIFY itab_zycbt036 INDEX 1.
ENDIF.
* >> Início da inclusão: FORM FILL_DATE1_F30_DESM
IF NOT itab_zycbt221[] is initial.
* << Fim da inclusão
IF v_soma2 NE v_total_contrato.
v_soma2 = v_soma2 - v_total_contrato .
READ TABLE itab_zycbt036 INDEX v_linha.
itab_zycbt036-residuo = itab_zycbt036-residuo - v_soma2.
MODIFY itab_zycbt036 INDEX v_linha.
READ TABLE itab_zycbt221 INDEX 1.
itab_zycbt221-saldo_ov = itab_zycbt221-saldo_ov - v_soma2.
MODIFY itab_zycbt221 INDEX 1.
* >> Início da inclusão: FORM FILL_DATE1_F30_DESM
ENDIF.
* << Fim da inclusão
ENDIF.
CLEAR: v_soma,
v_soma2.
ELSE.
PERFORM verify_null_field USING itab_zycbt005-vlvinc
'VLVINC'
text-007.
itab_zycbt036-residuo = itab_zycbt005-vlvinc.
CONCATENATE itab_zycbt005-gsberf itab_zycbt005-nrparcf
itab_zycbt005-nrinvoic
...