Sintoma

Ao salvar a liquidação para todos os tipos de contrato, na 3ª F-30 (Documento de performance) no

item 1 do lançamento, o programa não está levando a divisão preenchida, ocorrendo o erro.

O programa deveria levar preenchida a divisão do contrato nesse lançamento.

Solução

Ajustado para que o programa preencha a divisão na 3º F-30

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 01190 Data: 12/04/2006 Hora: 10:40:00

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------

Nota Número              : 01190

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00023

Agrupamento              : 00109

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

----------------------------------------------------------------------------------------------------

VINCULAÇÃO / LIQUIDAÇÃO 3ª F-30 (DOCUMENTO DE PERFORMANCE)

----------------------------------------------------------------------------------------------------

Palavras Chave:

VINCULAÇÃO / LIQUIDAÇÃO 3ª F-30 (DOCUMENTO DE PERFORMANCE)

----------------------------------------------------------------------------------------------------

Objetos da nota:

REPS /PWS/MZYCB004F02

REPS /PWS/MZYCB009F01

REPS /PWS/MZYCB009F08

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCB004F02

...

          itab_zycbe033-zterm = itab_zycbt017-zterm.

        ENDIF.

    ENDCASE.

  ENDLOOP.

  PERFORM get_parameters_003.

* >> Início da exclusão: FORM BAIXA_ACE_PERFORMANCE

  itab_zycbe033-d_gsber = itab_zycbt006-gsberf.

* << Fim da exclusão

* >> Início da inclusão: FORM BAIXA_ACE_PERFORMANCE

  itab_zycbe033-d_gsber = itab_zycbt006-gsber.

  itab_zycbe033-c_gsber = itab_zycbt006-gsber.

* << Fim da inclusão

  IF wa_zycbt007-dtliqcp EQ 'DTCONTR' AND

     /pws/zycbe001-tpcontr(1) EQ 'C'.

    itab_zycbe033-kursf = /pws/zycbe001-txcneg.

  ELSEIF wa_zycbt007-dtliqcp EQ 'TXCONTR' AND

     /pws/zycbe001-tpcontr(1) EQ 'C'.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCB009F01

...

                                    'VLVINC'

                                    text-007.

    CALL CUSTOMER-FUNCTION '001'

       IMPORTING

       v_subrc = v_retexit.

* >> Início da exclusão: FORM FILL_DATE1_F02_PRE

    IF v_retexit = 'X'.

* << Fim da exclusão

* >> Início da inclusão: FORM FILL_DATE1_F02_PRE

    IF v_retexit = 'X'

      or /pws/zycbe005-bukrs ne /pws/zycbe001-bukrs.

* << Fim da inclusão

      itab_zycbe033-d_gsber   = /pws/zycbe001-gsber.

      itab_zycbe033-c_gsber   = /pws/zycbe001-gsber.

    ELSE.

      IF v_ind_invert IS INITIAL.

        itab_zycbe033-d_gsber   = /pws/zycbe001-gsber.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCB009F08

...

                                  'BLART'

                                  text-006.

  CALL CUSTOMER-FUNCTION '001'

     IMPORTING

     v_subrc = v_retexit.

* >> Início da exclusão: FORM VINCULACAO

  IF v_retexit = 'X'.

* << Fim da exclusão

* >> Início da inclusão: FORM VINCULACAO

  IF v_retexit = 'X'

    or itab_zycbt005-bukrs ne /pws/zycbe001-bukrs.

* << Fim da inclusão

    itab_zycbe033-d_gsber   = /pws/zycbe001-gsber.

    itab_zycbe033-c_gsber   = /pws/zycbe001-gsber.

  ELSE.

    itab_zycbe033-d_gsber   = /pws/zycbe001-gsber.

    itab_zycbe033-c_gsber   = itab_zycbt005-gsberf.

...