Sintoma

Crio um contrato de ACE e coloco um flag no campo desconto de recebiveis.

Na Vinculação com proc.visível percebe-se que a chv 40(F-30 nr.1/Desm.Desc.Receb.) não tem o campo

GSBER(Divisão)preenchido e por isso gera a msg:Divisão informada, não pertencente a Empresa.

Solução

Ajuste efetuado onde o programa começou a passar o campo divisão para o BI.

Informações Complementares

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

Nota Número 04148 Data: 11/07/2007 Hora: 09:53:27

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

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

Nota Número              : 04148

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

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

VINCULAÇÃO - ACE DESCONTO DE RECEBIVEIS - CAMPO DIVISÃO GSBERF

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

Palavras Chave:

VINCULAÇÃO - ACE DESCONTO DE RECEBIVEIS - CAMPO DIVISÃO GSBERF

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

Objetos da nota:

REPS /PWS/MZYCB009F09

REPS /PWS/MZYCB004F03

REPS /PWS/MZYCB004TOP

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

Modificações efetuadas em REPS /PWS/MZYCB004F03

...

  FIELD-SYMBOLS:

    <fs_documento>  TYPE t_documento,

    <fs_vinculacao> TYPE t_vinculacao.

  DATA:

    wa_vinculacao       TYPE t_vinculacao,

    itab_documento_erro TYPE t_itab_documento,

    itab_vinculacao     TYPE t_itab_vinculacao,

    itab_zycbt017       TYPE t_itab_zycbt017,

    itab_zycbt030       TYPE t_itab_zycbt030,

    itab_zycbt069       TYPE t_itab_zycbt069,

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

    itab_zycbt219       TYPE t_itab_zycbt219,

* << Fim da inclusão

    itab_zycbt209       TYPE t_itab_zycbt209.

  CHECK NOT itab_zycbt005[] IS INITIAL.

  REFRESH itab_documento.

  LOOP AT itab_zycbt005.

    READ TABLE itab_zycbt006

      WITH KEY

        nrinvoic = itab_zycbt005-nrinvoic

        nrparcf  = itab_zycbt005-nrparcf

        gsberf   = itab_zycbt005-gsberf

        status   = 'I'

...

...

    USING

      itab_vinculacao

    CHANGING

      itab_zycbt017

      itab_zycbt030.

  PERFORM seleciona_liquidacao_andamento

    USING

      itab_vinculacao

    CHANGING

      itab_zycbt209.

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

  PERFORM seleciona_desconto_recebiveis

    USING

      itab_vinculacao

    CHANGING

      itab_zycbt219.

* << Fim da inclusão

  LOOP AT itab_vinculacao ASSIGNING <fs_vinculacao>.

    PERFORM documento_vinculacao

      USING

        <fs_vinculacao>

        itab_zycbt069.

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

    PERFORM documento_desconto_recebiveis

      USING

        <fs_vinculacao>

        itab_zycbt219.

* << Fim da inclusão

    PERFORM documento_liquidacao_andamento

      USING

        <fs_vinculacao>

        itab_zycbt209

      CHANGING

        <fs_vinculacao>-saldo.

    IF <fs_vinculacao>-saldo GT 0.

      PERFORM documento_fatura

        USING

          <fs_vinculacao>

...

...

  ENDIF.

ENDFORM.

FORM documento_vinculacao

  USING

    value(p_vinculacao) TYPE t_vinculacao

    value(p_zycbt069)   TYPE t_itab_zycbt069.

  FIELD-SYMBOLS:

    <fs_belnr>    TYPE bseg-belnr,

    <fs_dtdocto>  TYPE bseg-augdt,

    <fs_zycbt069> TYPE t_zycbt069.

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

  CHECK NOT p_vinculacao IS INITIAL

* << Fim da inclusão

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

  CHECK NOT p_vinculacao IS INITIAL.

* << Fim da exclusão

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

    AND /pws/zycbe001-desc_receb IS INITIAL.

* << Fim da inclusão

  CASE /pws/zycbe001-tpcontr(01).

    WHEN 'P' OR 'S'.

      LOOP AT p_zycbt069 ASSIGNING <fs_zycbt069>

        WHERE nrseqc   EQ p_vinculacao-nrseqc

        AND   nrinvoic EQ p_vinculacao-nrinvoic

        AND   nrparcf  EQ p_vinculacao-nrparcf

        AND   gsberf   EQ p_vinculacao-gsberf

        AND   dtvincul EQ p_vinculacao-dtvincul.

        ASSIGN:

          <fs_zycbt069>-belnr    TO <fs_belnr>,

...

...

                             AND dtincl   = /pws/zycbt006-dtincl

                             AND nrinvoic = /pws/zycbt006-nrinvoic

                             AND nrparcf  = /pws/zycbt006-nrparcf

                             AND gsberf   = /pws/zycbt006-gsberf

                             AND dtvincul = /pws/zycbt006-dtvincul

                             AND dtvencto = /pws/zycbt006-dtvencto

                             AND dtpagext = v_dtpagext

                             AND dtpagto  = v_dtpagto.

  ENDIF.

endform.

* >> Início da inclusão:

form seleciona_desconto_recebiveis

  using

    p_itab_vinculacao type t_itab_vinculacao

  changing

    p_itab_zycbt219 type t_itab_zycbt219.

  CHECK NOT p_itab_vinculacao IS INITIAL.

  SELECT

    bukrs nrinvoic belnr dtincl gsberf nrparcf belnr2

    FROM /pws/zycbt219

    INTO TABLE p_itab_zycbt219

    FOR ALL ENTRIES IN p_itab_vinculacao

    WHERE

      nrinvoic EQ p_itab_vinculacao-nrinvoic AND

      gsberf   EQ p_itab_vinculacao-gsberf   AND

      nrparcf  EQ p_itab_vinculacao-nrparcf  AND

      saldo    GT 0.

endform.

form documento_desconto_recebiveis

  using

    p_vinculacao    type t_vinculacao

    p_itab_zycbt219 type t_itab_zycbt219.

  FIELD-SYMBOLS:

    <fs_belnr>    TYPE bseg-belnr,

    <fs_zycbt219> TYPE t_zycbt219.

  CHECK NOT /pws/zycbe001-desc_receb IS INITIAL.

  LOOP AT p_itab_zycbt219

    ASSIGNING <fs_zycbt219>

    WHERE

      nrinvoic EQ p_vinculacao-nrinvoic AND

      nrparcf  EQ p_vinculacao-nrparcf  AND

      gsberf   EQ p_vinculacao-gsberf.

      IF <fs_zycbt219>-belnr2 IS INITIAL.

        ASSIGN <fs_zycbt219>-belnr TO <fs_belnr>.

      ELSE.

        ASSIGN <fs_zycbt219>-belnr2 TO <fs_belnr>.

      ENDIF.

      PERFORM adiciona_documentos

        USING

          <fs_zycbt219>-bukrs

          <fs_belnr>

          <fs_zycbt219>-dtincl

          'S'.

  ENDLOOP.

endform.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCB004TOP

...

    dtincl      TYPE /pws/zycbt069-dtincl,

    nrinvoic    TYPE /pws/zycbt069-nrinvoic,

    nrparcf     TYPE /pws/zycbt069-nrparcf,

    gsberf      TYPE /pws/zycbt069-gsberf,

    dtvincul    TYPE /pws/zycbt069-dtvincul,

    dtvencto    TYPE /pws/zycbt069-dtvencto,

    nrparcp     TYPE /pws/zycbt069-nrparcp,

    belnr       TYPE /pws/zycbt069-belnr,

    belnr_vinc  TYPE /pws/zycbt069-belnr_vinc,

  END OF t_zycbt069,

* >> Início da inclusão:

  BEGIN OF t_zycbt219,

    bukrs    TYPE /pws/zycbt219-bukrs,

    nrinvoic TYPE /pws/zycbt219-nrinvoic,

    belnr    TYPE /pws/zycbt219-belnr,

    dtincl   TYPE /pws/zycbt219-dtincl,

    gsberf   TYPE /pws/zycbt219-gsberf,

    nrparcf  TYPE /pws/zycbt219-nrparcf,

    belnr2   TYPE /pws/zycbt219-belnr2,

  END OF t_zycbt219,

* << Fim da inclusão

  BEGIN OF t_zycbt209,

    bukrs    TYPE /pws/zycbt209-bukrs,

    nrinvoic TYPE /pws/zycbt209-nrinvoic,

    belnr    TYPE /pws/zycbt209-belnr,

    dtincl   TYPE /pws/zycbt209-dtincl,

    gsberf   TYPE /pws/zycbt209-gsberf,

    nrparcf  TYPE /pws/zycbt209-nrparcf,

    saldo    TYPE /pws/zycbt209-saldo,

    belnr2   TYPE /pws/zycbt209-belnr2,

    dtbelnr  TYPE /pws/zycbt209-dtbelnr,

...

...

  t_itab_documento TYPE SORTED TABLE OF t_documento

    WITH UNIQUE KEY bukrs belnr gjahr,

  t_itab_vinculacao TYPE TABLE OF t_vinculacao

    WITH NON-UNIQUE KEY nrseqc nrinvoic nrparcf gsberf dtvincul nrparc,

  t_itab_zycbt017 TYPE SORTED TABLE OF t_zycbt017

    WITH UNIQUE KEY nrinvoic nrparcf gsberf,

  t_itab_zycbt030 TYPE SORTED TABLE OF t_zycbt030

    WITH UNIQUE KEY nrinvoic nrparcf vbeln gsberf,

  t_itab_zycbt069 TYPE SORTED TABLE OF t_zycbt069

    WITH UNIQUE KEY nrseqc nrinvoic nrparcf gsberf dtvincul nrparcp,

* >> Início da inclusão:

  t_itab_zycbt219 TYPE SORTED TABLE OF t_zycbt219

    WITH UNIQUE KEY BUKRS NRINVOIC BELNR DTINCL GSBERF NRPARCF,

* << Fim da inclusão

  t_itab_zycbt209 TYPE SORTED TABLE OF t_zycbt209

    WITH UNIQUE KEY bukrs nrinvoic belnr dtincl.

DATA:

  itab_documento       TYPE t_itab_documento,

  v_erro_documento(01) TYPE c VALUE space.

DATA: BEGIN OF itab_zycbt209s OCCURS 0.

      INCLUDE STRUCTURE /pws/zycbt209.

DATA: END OF itab_zycbt209s.

DATA: BEGIN OF itab_zycbt231 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycbt231.

...

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

Modificações efetuadas em REPS /PWS/MZYCB009F09

...

              itab_zycbt219-belnr

              itab_zycbt219-gsberf

              itab_zycbt219-nrparcf

         INTO v_cpochv.

  itab_zycbe033-cpochv = v_cpochv.

  PERFORM verify_null_field USING itab_zycbt005-dtvincul

                                  'DTPAGTO'

                                  text-003.

  itab_zycbe033-budat = itab_zycbt005-dtvincul.

  itab_zycbe033-bldat = itab_zycbt005-dtvincul.

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

  itab_zycbe033-d_gsber = itab_zycbt005-gsberf.

  itab_zycbe033-c_gsber = itab_zycbt005-gsberf.

* << Fim da inclusão

  REFRESH itab_zyglt321.

  SELECT * FROM /pws/zyglt321

           INTO TABLE itab_zyglt321

           WHERE ktosl   = 'CPT'

             AND codeven = v_codeven.

  READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic

                                    gsberf   = itab_zycbt005-gsberf.

  LOOP AT itab_zyglt321.

    CASE itab_zyglt321-cpor3.

      WHEN 'SGTXT'.

...