Sintoma

O sistema não estava baixando o saldo a liquidar da Tabela /PWS/ZYCBT030.

Solução

Inserido código que no form contab_comis_cg que subtrai o valor da comissão do saldo da tabela

/PWS/ZYCBT030 (/PWS/ZYCBT030-VLSLLIQ 'GL - Saldo a Liquidar').

Informações Complementares

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

Nota Número 04170 Data: 13/07/2007 Hora: 11:12:30

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

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

Nota Número              : 04170

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00002

Agrupamento              : 00003

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

PROCESSAR BOLETO - COMISSÃO DE AGENTE

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

Palavras Chave:

PROCESSAR BOLETO - COMISSÃO DE AGENTE

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

Objetos da nota:

REPS /PWS/ZYCBR102

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

Modificações efetuadas em REPS /PWS/ZYCBR102

...

          itab_zycbt030_a-budat  = itab_zycbe033-budat.

          MODIFY itab_zycbt030_a TRANSPORTING belnr6 budat

             WHERE nrinvoic EQ itab_zycbt030_a-nrinvoic

               AND nrparcf  EQ itab_zycbt030_a-nrparcf.

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

                               budat  = itab_zycbe033-budat

                      WHERE nrinvoic  = itab_aux2-nrinvoic

                        AND nrparcf   = itab_aux2-nrparcf

                        AND vbeln     = itab_aux2-vbeln

                        AND gsberf    = itab_aux2-gsberf.

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

        IF ( /pws/zycbt017-parvw = 'CG' OR /pws/zycbt017-parvw = 'DA'

             or /pws/zycbt017-parvw = 'AD' )

            AND /pws/zycbt007-liq_com_cg = 'RP'.

            UPDATE /pws/zycbt030 SET vlslliq = vlslliq -

                                                itab_aux2-valor

              WHERE nrinvoic = itab_aux2-nrinvoic

                AND nrparcf  = itab_aux2-nrparcf

                AND gsberf   = itab_aux2-gsberf.

          ENDIF.

* << Fim da inclusão

          IF /pws/zycet037-comis_provisao = '0'

                   OR /pws/zycet037-comis_provisao IS INITIAL.

            LOOP AT itab_zycet010.

              UPDATE /pws/zycet010 SET status  = 'C'

                                  belnr_p = itab_zycbt032-belnr

                                  dtlanc  = v_datalanc

                            WHERE nrseq    EQ itab_zycet010-nrseq

                              AND lifnr    EQ itab_zycet010-lifnr

                              AND dtvencto EQ itab_zycet010-dtvencto.

            ENDLOOP.

...

...

    ELSE.

      MOVE itab_zycbt030_a-belnr6 TO itab_aux2-belnr6.

    ENDIF.

    APPEND itab_aux2.

  ENDLOOP.

ENDFORM.

FORM seleciona_zycbt030.

  DATA: v_s_kwert LIKE /pws/zycbt030-kwert,

        v_nrfat LIKE /pws/zycbt030-nrinvoic,

        v_nrpf  LIKE /pws/zycbt030-nrparcf.

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

  clear itab_zycbt030_a.

  refresh itab_zycbt030_a.

* << Fim da inclusão

  LOOP AT itab_zycbt017.

    SELECT  /pws/zycbt030~nrinvoic /pws/zycbt030~nrparcf

            /pws/zycbt030~vbeln   /pws/zycbt030~gsberf

            /pws/zycbt030~belnr /pws/zycbt030~kwert /pws/zycbt030~waers

            /pws/zycbt030~kostl /pws/zycbt030~prctr /pws/zycbt030~fipos

            /pws/zycbt030~belnr6 /pws/zycbt030~budat

            /pws/zycbt030~vinc   /pws/zycbt030~liqu /pws/zycbt017~zterm

            APPENDING CORRESPONDING FIELDS OF TABLE itab_zycbt030_a

            FROM /pws/zycbt030

            INNER JOIN /pws/zycbt017

...