Sintoma

Não está sendo baixado no saldo na fatura da comissão de agente na liquidação.

Solução

Criar variável para guardar o valor a ser liquidado e subtrair da comissão de agente

Informações Complementares

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

Nota Número 06287 Data: 31/03/2008 Hora: 13:12:12

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

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

Nota Número              : 06287

Categoria                : Consultoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00005

Agrupamento              : 00041

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

LIQUIDAÇÃO DE FATURAS COMISSÃO DE AGENTE

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

Palavras Chave:

LIQUIDAÇÃO DE FATURAS COMISSÃO DE AGENTE

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

Objetos da nota:

REPS /PWS/MZYCB004F01

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

Modificações efetuadas em REPS /PWS/MZYCB004F01

...

    REFRESH itab_contabil.

  ENDIF.

  IF NOT itab_erro[] IS INITIAL.

    EXPORT itab_erro TO MEMORY ID '001'.

    SUBMIT /pws/zycbr126 AND RETURN.

    REFRESH itab_erro.

  ENDIF.

ENDFORM.

FORM fill_date_f30_comissao.

  DATA: v_chave(50), v_erro_f28(1), v_aux,

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

        v_status_f30(1) VALUE 'E'.

* << Fim da exclusão

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

        v_status_f30(1) VALUE 'E',

        v_vlslliq  LIKE /pws/zycbt030-vlslliq.

* << Fim da inclusão

  PERFORM clear_date_batch.

  CLEAR: itab_zycbt032a, itab_zycbt036.

  REFRESH: itab_zycbt032a, itab_zycbt036.

  PERFORM get_parameters_comissao.

  IF wa_zycbt007-comis = 'C'.

    READ TABLE itab_zycbt012a WITH KEY chlanc = 'C'.

  ENDIF.

  PERFORM verifica_rateio1.

  LOOP AT itab_aux.

    CLEAR v_chave.

...

...

                    itab_aux-vbeln itab_aux-gsberf

        INTO v_chave.

        READ TABLE itab_zycbt032 WITH KEY tcode  = v_trans

                                          tabela = '/PWS/ZYCET010'

                                          cpochv = v_chave

                                          tpmsg  = 'S'.

        IF sy-subrc = 0.

          itab_zycbt030-belnr6 = itab_zycbt032-belnr.

          READ TABLE itab_zycbe033 WITH KEY cpochv = v_chave.

          itab_zycbt030-budat  = itab_zycbe033-budat.

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

          MODIFY itab_zycbt030 TRANSPORTING belnr6 budat

* << Fim da exclusão

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

          CLEAR v_vlslliq.

          v_vlslliq = itab_zycbt030-vlslliq - /pws/zycbt017-vlcomis.

          itab_zycbt030-vlslliq = v_vlslliq.

          MODIFY itab_zycbt030 TRANSPORTING belnr6 budat vlslliq

* << Fim da inclusão

                 WHERE nrinvoic = itab_aux-nrinvoic

                   AND nrparcf  = itab_aux-nrparcf

                   AND vbeln    = itab_aux-vbeln

                   AND gsberf   = itab_aux-gsberf.

          UPDATE /pws/zycbt030 SET: belnr6 = itab_zycbt032-belnr

                               budat  = itab_zycbe033-budat

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

                               vlslliq = v_vlslliq

* << Fim da inclusão

                      WHERE nrinvoic = itab_aux-nrinvoic

...