Sintoma

Ao entrar no complemento do boleto de comissão de contrato, o campo Centro não esta sendo carregado

e o local de negócio não é enviado ao Batch-input

Solução

Passar ao campo werks e j_1bbranch os valores da origem e tratar corretamente a busca do local de

negócio quando o mesmo não esta preenchido na origem.

Informações Complementares

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

Nota Número 03957 Data: 18/06/2007 Hora: 14:06:45

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

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

Nota Número              : 03957

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 - Versão - Pacote - Descrição Breve

03661  - 00001 - 7.0    - 00001  - COMPLEMENTO DO BOLETO - COMISSAO

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

COMPLEMENTO DO BOLETO - COMISSÃO CONTRATO - CENTRO

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

Palavras Chave:

COMPLEMENTO DO BOLETO COMISSÃO CONTRATO CENTRO

WERKS J_1BBRANCH LOCAL DE NEGÓCIO

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

Objetos da nota:

REPS /PWS/MZYCB110F01

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

Modificações efetuadas em REPS /PWS/MZYCB110F01

...

    CLEAR itab_zycbt031_tc.

    SELECT SINGLE * FROM /pws/zycbt002

      WHERE nrseqc   = itab_zycbt064-nrchave

        AND tpparc   = itab_zycbt064-tpparc

        AND nrparc   = itab_zycbt064-nrparc.

    IF sy-subrc = 0.

      itab_zycbt031_tc-dtvencto       = /pws/zycbt002-dtvencto.

      itab_zycbt031_tc-tpparc         = /pws/zycbt002-tpparc.

      itab_zycbt031_tc-nrparc         = /pws/zycbt002-nrparc.

      itab_zycbt031_tc-dtincl         = /pws/zycbt002-dtinicio.

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

      itab_zycbt031_tc-werks          = /pws/zycbt002-kostl.

* << Fim da exclusão

      SELECT SINGLE * FROM /pws/zycbt001 INTO /pws/zycbt001

                     WHERE nrseqc   = /pws/zycbt002-nrseqc.

      IF sy-subrc EQ 0.

        itab_zycbt031_tc-gsber          = /pws/zycbt001-gsber.

        itab_zycbt031_tc-nrpagto        = /pws/zycbt001-nrcontr.

        itab_zycbt031_tc-bukrs          = /pws/zycbt001-bukrs.

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

        itab_zycbt031_tc-werks          = /pws/zycbt001-werks.

        itab_zycbt031_tc-j_1bbranch     = /pws/zycbt001-j_1bbranch.

* << Fim da inclusão

      ENDIF.

      IF itab_zycbt064-vlmi GT 0.

        itab_zycbt031_tc-v_vlmi       = itab_zycbt064-vlmi.

      ELSE.

        v_vlmeaux =

          itab_zycbt064-vlme / ( 10 ** ( tcurx-currdec - 2 ) ).

        itab_zycbt031_tc-v_vlmi =

            ( ( /pws/zycbe031-kursf / v_dfact ) * v_pfact ) * v_vlmeaux.

        IF wa_tcurx-currdec = 0.

          itab_zycbt031_tc-v_vlmi =

...

...

    itab_zycbe033-d_kostl = itab_zycbt002-kostl.

    itab_zycbe033-c_kostl = itab_zycbt002-kostl.

    itab_zycbe033-d_prctr = itab_zycbt002-prctr.

    itab_zycbe033-c_prctr = itab_zycbt002-prctr.

    itab_zycbe033-d_fipos = itab_zycbt002-fipos.

    itab_zycbe033-c_fipos = itab_zycbt002-fipos.

    itab_zycbe033-d_fictr = itab_zycbt002-fictr.

    itab_zycbe033-c_fictr = itab_zycbt002-fictr.

  ENDIF.

  PERFORM preenche_dados_batch.

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

  IF itab_zycbe033-brnch IS INITIAL.

    SELECT SINGLE * FROM t001w WHERE werks = itab_zycbt002-kostl.

    IF sy-subrc EQ 0.

* << Fim da exclusão

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

  IF NOT /pws/zycbt001-j_1bbranch IS INITIAL.

    PERFORM verifica_pais_filial USING /pws/zycbt001-bukrs

                                       /pws/zycbt001-j_1bbranch.

    itab_zycbe033-brnch = /pws/zycbt001-j_1bbranch.

  ELSEIF NOT wa_t001w-j_1bbranch IS INITIAL.

* << Fim da inclusão

      PERFORM verifica_pais_filial USING /pws/zycbt001-bukrs

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

                                         t001w-j_1bbranch.

      itab_zycbe033-brnch = t001w-j_1bbranch.

    ENDIF.

* << Fim da exclusão

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

                                       wa_t001w-j_1bbranch.

    itab_zycbe033-brnch = wa_t001w-j_1bbranch.

* << Fim da inclusão

  ENDIF.

  IF sy-index EQ 1.

    PERFORM verify_null_field USING /pws/zycbe031-vlme

                                    'VLME'

                                    text-013.

    itab_zycbe033-wrbtr  = /pws/zycbe031-vlme.

    PERFORM verify_null_field USING /pws/zycbe031-vlmi

                                    'VLMI'

                                    text-013.

    itab_zycbe033-dmbtr  = /pws/zycbe031-vlmi.

...