Sintoma

Ao criar uma despesa de exportação em regime de competência, se o campo filial não estiver

preenchido, tem que considerar o campo centro para buscar o local de negócio ao gerar a F-02 na

captação-despesa.

Ao criar uma despesa de exportação em regime de caixa, se o campo filial não estiver preenchido, tem

que considerar o campo centro para buscar o local de negócio ao gerar a F-63 no complemento do

boleto.

Solução

Se o campo filial não estiver preenchido, buscar o local de negócio através do centro da despesa, na

tabela t001w.

Informações Complementares

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

Nota Número 03537 Data: 25/04/2007 Hora: 10:34:28

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

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

Nota Número              : 03537

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00027

Agrupamento              : 00163

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

DESPESA EXPORTAÇÃO - LOCAL DE NEGÓCIO - REGIME CAIXA E COMPETÊNCIA

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

Palavras Chave:

DESPESA EXPORTAÇÃO LOCAL DE NEGÓCIO REGIME CAIXA REGIME DE COMPETÊNCIA

CAPTAÇÃO COMPLEMENTO DO BOLETO F-02 F-63 J_1BBRANCH T001W WERKS CENTRO

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

Objetos da nota:

REPS /PWS/MZYCB001F04

REPS /PWS/MZYCB110F01

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

Modificações efetuadas em REPS /PWS/MZYCB001F04

...

  itab_zycbe033-d_kostl = /pws/zycbe004-kostl.

  itab_zycbe033-d_prctr = /pws/zycbe004-prctr.

  itab_zycbe033-d_fipos = /pws/zycbe004-fipos.

  itab_zycbe033-d_fictr = /pws/zycbe004-fictr.

  itab_zycbe033-c_gsber = /pws/zycbe004-gsber.

  itab_zycbe033-c_kostl = /pws/zycbe004-kostl.

  itab_zycbe033-c_prctr = /pws/zycbe004-prctr.

  itab_zycbe033-c_fipos = /pws/zycbe004-fipos.

  itab_zycbe033-c_fictr = /pws/zycbe004-fictr.

  itab_zycbe033-werks   = /pws/zycbe004-werks.

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

  IF NOT /pws/zycbt004-j_1bbranch IS INITIAL.

    PERFORM verifica_pais_filial USING /pws/zycbe001-bukrs

                                       /pws/zycbt004-j_1bbranch.

* << Fim da inclusão

  itab_zycbe033-brnch   = /pws/zycbt004-j_1bbranch.

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

  ELSE.

    SELECT SINGLE * FROM t001w

      WHERE werks = /pws/zycbe004-werks.

    IF sy-subrc EQ 0.

      PERFORM verifica_pais_filial USING /pws/zycbe001-bukrs

                                         t001w-j_1bbranch.

      itab_zycbe033-brnch = t001w-j_1bbranch.

    ENDIF.

  ENDIF.

* << Fim da inclusão

  CLEAR:   itab_zyglt100.

  REFRESH: itab_zyglt100.

  IF itab_zyglt100[] IS INITIAL.

    v_repid = sy-repid.

    CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'

         EXPORTING

              i_codmod                = 'E'

              i_func                  = v_repid

         TABLES

              itab_zyglt100           = itab_zyglt100

...

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

Modificações efetuadas em REPS /PWS/MZYCB110F01

...

      ENDIF.

    ELSE.

      PERFORM verifica_estrategia_liberacao.

    ENDIF.

  ENDIF.

  CHECK erro_bi IS INITIAL.

  IF /pws/zycbe031-mdcorresp EQ 'ED'.

    SELECT SINGLE * FROM /pws/zycbt001

           WHERE nrseqc EQ /pws/zycbe031-nrcorresp.

  ENDIF.

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

  PERFORM local_negocio USING /pws/zycet001-werks.

* << Fim da exclusão

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

  PERFORM local_negocio USING /pws/zycbt004-werks.

* << Fim da inclusão

  IF /pws/zycbt001-fvincjur = 'S'.

    SELECT nrinvoic gsberf vlvinc

      INTO TABLE itab_zycbt005

      FROM /pws/zycbt005

      WHERE nrseqc EQ /pws/zycbe031-nrcorresp

        AND tpdesp EQ /pws/zycbe031-tpdesp

        AND nrparc EQ /pws/zycbe031-nrparc

        AND dtincl EQ /pws/zycbe031-dtincl.

    IF sy-subrc EQ 0.

      IF /pws/zycbe031-frgzu = '2'.

...

...

      itab_zycbt031_tc-gsber          = /pws/zycbt004-gsber.

      itab_zycbt031_tc-nrpagto        = /pws/zycbt004-nrcontr.

      itab_zycbt031_tc-dtvencto       = /pws/zycbt004-dtvencto.

      itab_zycbt031_tc-lifnr          = /pws/zycbt004-benefic.

      itab_zycbt031_tc-nrfat          = /pws/zycbt004-nrinvoic.

      itab_zycbt031_tc-tpdesp         = /pws/zycbt004-tpdesp.

      itab_zycbt031_tc-nrparc         = /pws/zycbt004-nrparc.

      itab_zycbt031_tc-dtincl         = /pws/zycbt004-dtincl.

      itab_zycbt031_tc-dtliquid       = /pws/zycbt004-dtliquid.

      itab_zycbt031_tc-tpjuros        = /pws/zycbt004-tpjuros.

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

      itab_zycbt031_tc-werks          = /pws/zycbt004-werks.

* << Fim da inclusão

      IF itab_zycbt064-vlmi > 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_zycbt031_tc-v_vlmi *

                                     ( 10 ** ( wa_tcurx-currdec - 2 ) ).

...