CE PLUS - Nota 000443

Módulo: DOC. EXPORTAÇÃO

Funcionalidade: Comissão de Agente

Data/Hora da Publicação: 12/12/2005 00:00:00

Data/Hora Última Alteração: 21/02/2011 15:21:44

Descrição da Nota: CAMPO DIVISÃO OCULTO NA CONTABILIZAÇÃO DA COMISSÃO DE AGENTE

Sintoma

Na contabilização da comissão de agente, o programa não identificava quando o campo divisão estava

oculto na tela, causando parada na contabilização em background.

 

 

Solução

Passagem do nº da chave de lançamento correta para que o programa consiga identificar a situação

correta do campo divisão na partida de crédito.

 

Versões Tratadas

6.0

Pré-Requisitos

Produto:

Nota

Descrição

Nota 394
CAMPO DIVISÃO OCULTO NA TELA DA COMPENSAÇÃO DA COMISSÃO DE AGENTE

Nota 409
RATEIO INCORRETO EM COMISSÃO DE AGENTE AR E AT

Nota 245
CAMPOS PARAMETRIZÁVEIS NA CONTABILIZAÇÃO DA COMISSÃO DE AGENTE

Informações Complementares

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

Nota Número 00443 Data: 12/12/2005 Hora: 16:53:17

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

 

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

Nota Número              : 00443

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 6.0

Pacote                   : 00022

Agrupamento              : 00094

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

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

 

00245  - 00001 - 6.0    - 00021  - CAMPOS PARAMETRIZÁVEIS NA CONTABILIZAÇÃO DA COMISSÃO DE AGENTE

00394  - 00002 - 6.0    - 00022  - CAMPO DIVISÃO OCULTO NA TELA DA COMPENSAÇÃO DA COMISSÃO DE AGENTE

00409  - 00003 - 6.0    - 00022  - RATEIO INCORRETO EM COMISSÃO DE AGENTE AR E AT

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

CAMPO DIVISÃO OCULTO NA CONTABILIZAÇÃO DA COMISSÃO DE AGENTE

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

Palavras Chave:

EXPORTAÇÃO DIVISÃO COMISSÃO DE AGENTE CONTABILIZAÇÃO OCULTO

 

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

Objetos da nota:

FUNC /PWS/ZYCE_TRANSACAO_F_43A

FUNC /PWS/ZYCE_TRANSACAO_F_51B

REPS /PWS/MZYCE017F01

 

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

Modificações efetuadas em FUNC /PWS/ZYCE_TRANSACAO_F_51B

 

...

 

       READ TABLE itab_oculto WITH KEY campo = 'BSEG-ZUONR' chave = 'C'.

       IF sy-subrc <> 0.                  "Não está oculto

         PERFORM bdc_field USING 'BSEG-ZUONR' t_dados-d_zuonr.

       ENDIF.

       "Texto item

       READ TABLE itab_oculto WITH KEY campo = 'BSEG-SGTXT' chave = 'C'.

       IF sy-subrc <> 0.                  "Não está oculto

         PERFORM bdc_field USING 'BSEG-SGTXT' t_dados-d_sgtxt.

       ENDIF.

 

* >> Início da exclusão: /PWS/ZYCE_TRANSACAO_F_51B

      READ TABLE itab_oculto WITH KEY campo = 'BSEG-GSBER' chave = 'C'.

* << Fim da exclusão

 

* >> Início da inclusão: /PWS/ZYCE_TRANSACAO_F_51B

       READ TABLE itab_oculto WITH KEY campo = 'BSEG-GSBER' chave = 'D'.

* << Fim da inclusão

 

       IF sy-subrc <> 0.                  "Não está oculto

         PERFORM bdc_field USING 'BSEG-GSBER' t_dados-d_gsber.

       ENDIF.

 

       READ TABLE t_contas INDEX 1.

       IF NOT t_contas-wrbtr1 IS INITIAL.

         PERFORM bdc_field  USING:

           'RF05A-NEWBS'  t_contas-bschl,      "Chav Lancto

           'RF05A-NEWKO'  t_contas-d_newko.    "Conta

         PERFORM bdc_field USING 'BDC_OKCODE' '/00'.         "/00'.

       ELSE.

         PERFORM bdc_field USING 'BDC_OKCODE' '=PA'.

 

...

 

     PERFORM trata_string_debito1 TABLES t_dados

                                        t_campo

                                        itab_oculto

                                 USING  v_string_debito.

 Tela 0700

     PERFORM bdc_screen USING 'SAPMF05A' v_tela.

     PERFORM bdc_field  USING 'BDC_OKCODE'    '=S++'.

 Tela 0300

     PERFORM bdc_screen USING 'SAPMF05A' '0300'.

 

* >> Início da exclusão:FUNÇÃO /PWS/ZYCE_TRANSACAO_F_51B

      READ TABLE itab_oculto WITH KEY campo = 'BSEG-ZUONR' chave = 'C'.

* << Fim da exclusão

 

* >> Início da inclusão: FUNÇÃO /PWS/ZYCE_TRANSACAO_F_51B

      READ TABLE itab_oculto WITH KEY campo = 'BSEG-ZUONR' chave = 'D'.

* << Fim da inclusão

 

      IF sy-subrc <> 0.

        PERFORM bdc_field USING 'BSEG-ZUONR' t_dados-d_zuonr.

      ENDIF.

      PERFORM bdc_field  USING:

            'BDC_OKCODE'       '=RW'.

 

      PERFORM bdc_screen USING 'SAPLKACB' '0002'.

 

* >> Início da exclusão: FUNÇÃO /PWS/ZYCE_TRANSACAO_F_51B

      READ TABLE itab_oculto WITH KEY campo = 'COBL-GSBER' chave = 'C'.

* << Fim da exclusão

 

* >> Início da inclusão: FUNÇÃO /PWS/ZYCE_TRANSACAO_F_51B

      READ TABLE itab_oculto WITH KEY campo = 'COBL-GSBER' chave = 'D'.

* << Fim da inclusão

 

      IF sy-subrc <> 0.

        PERFORM bdc_field USING 'COBL-GSBER' t_dados-d_gsber.

      ENDIF.

 

* >> Início da exclusão: FUNÇÃO /PWS/ZYCE_TRANSACAO_F_51B

      READ TABLE itab_oculto WITH KEY campo = 'COBL-KOSTL' chave = 'C'.

* << Fim da exclusão

 

* >> Início da inclusão: FUNÇÃO /PWS/ZYCE_TRANSACAO_F_51B

      READ TABLE itab_oculto WITH KEY campo = 'COBL-KOSTL' chave = 'D'.

* << Fim da inclusão

 

      IF sy-subrc <> 0.

        PERFORM bdc_field USING 'COBL-KOSTL' t_dados-d_kostl.

      ENDIF.

 

      READ TABLE itab_oculto WITH KEY campo = 'COBL-PRCTR' chave = 'D'.

      IF sy-subrc <> 0.

        PERFORM bdc_field USING 'COBL-PRCTR' t_dados-d_prctr.

      ENDIF.

      IF NOT t_dados-werks IS INITIAL.

 

* >> Início da exclusão: FUNÇÃO /PWS/ZYCE_TRANSACAO_F_51B

      READ TABLE itab_oculto WITH KEY campo = 'COBL-WERKS' chave = 'C'.

* << Fim da exclusão

 

* >> Início da inclusão: FUNÇÃO /PWS/ZYCE_TRANSACAO_F_51B

       READ TABLE itab_oculto WITH KEY campo = 'COBL-WERKS' chave = 'D'.

* << Fim da inclusão

 

        IF sy-subrc <> 0.

          PERFORM bdc_field USING 'COBL-WERKS' t_dados-werks.

        ENDIF.

      ENDIF.

 

      READ TABLE itab_oculto WITH KEY campo = 'COBL-FIPOS' chave = 'D'.

 

...

 

                              CHANGING v_nrmsg.

  ENDLOOP.

  FREE:

    itab_bdc,

    itab_msg.

ENDFUNCTION.

 

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

Modificações efetuadas em REPS /PWS/MZYCE017F01

 

...

  CLEAR  itab_zycbe033.

  PERFORM get_param_001.

  itab_zycbe035-mandt   = sy-mandt.

  itab_zycbe035-tcode   = 'F-43'.

  itab_zycbe035-tabela  = '/PWS/ZYCET010'.

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

  itab_zycbe035-bschl   = 40.

* << Fim da exclusão

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

  itab_zycbe035-bschl   = 31.

* << Fim da inclusão

  IF itab_zycet010-trata_ir = '1'.

    itab_zycbe035-wrbtr   = itab_zycet010-vlcomicalc.

  ELSE.

    itab_zycbe035-wrbtr   = itab_zycet010-vlcomis.

  ENDIF.

...

 

...

  PERFORM verify_null_field USING itab_zycet010-dtvencto

                                  'VALUT'

                                   text-093.

  itab_zycbe035-d_valut = itab_zycet010-dtvencto.

  itab_zycbe035-d_gsber = /pws/zycee001-gsber.

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

  itab_zycbe035-d_newko = v_conta1.

* << Fim da exclusão

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

  itab_zycbe035-d_newko = itab_zycet010-lifnr.

* << Fim da inclusão

  itab_zycbe035-d_kostl = v_kostl.

  CALL CUSTOMER-FUNCTION '021'

      TABLES

        t_dados = itab_zycbe035.

  APPEND itab_zycbe035.

...