Sintoma

Criar ponto de exit que permita efetuar tratamento específico na verificação dos documentos

compensados ou não existentes.

Solução

Criar ponto de exit LIQ033 para permitir tratamento específico na verificação dos documentos

compensados ou não existentes.

Informações Complementares

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

Nota Número 10387 Data: 12/07/2010 Hora: 14:46:06

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

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

Nota Número              : 10387

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00004

Agrupamento              : 00030

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

Referência às notas relacionadas:

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

01499  - 00001 - 6.0    - 00023  - EXIT VINCULAÇÃO / LIQUIDAÇÃO - ALTERAÇÃO DOCUMENTOS CONTÁBEIS

03562  - 00002 - 7.0    - 00001  - LIQUIDAÇÃO DE FATURAS - TABELA PARA EXIT LIQ019

03678  - 00003 - 7.0    - 00001  - LIQUIDAÇÃO - DA - CHECK DOS DOCUMENTOS - ESTORNO DAS FATURAS

04148  - 00004 - 7.0    - 00002  - VINCULAÇÃO - ACE DESCONTO DE RECEBIVEIS - CAMPO DIVISÃO GSBERF

07760  - 00005 - 7.0    - 00007  - DA-LIQUIDAÇÃO E VINCULAÇÃO LIQ. AUTOMÁT - NORMAL/ARBITRAGEM/PERFO

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

LIQUIDAÇÃO DE FATURAS - PONTO DE EXIT LIQ033 - MSG DOCTOS COMPENSADOS

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

Palavras Chave:

LIQUIDAÇÃO DE FATURAS PONTO DE EXIT LIQ033 MSG DOCTOS COMPENSADOS

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

Objetos da nota:

REPS /PWS/MZYCB004F03

REPS /PWS/MZYCB004TOP

REPS /PWS/MZYCB004X01

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

Modificações efetuadas em REPS /PWS/MZYCB004F03

...

    NOT itab_zyglt100-programa IS INITIAL.

  PERFORM (itab_zyglt100-formulario)

    IN PROGRAM (itab_zyglt100-programa)

    IF FOUND.

ENDFORM.

FORM verifica_documentos.

  FIELD-SYMBOLS:

    <fs_documento>  TYPE t_documento,

    <fs_vinculacao> TYPE t_vinculacao.

  DATA:

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

    wa_vinculacao       TYPE t_vinculacao,

    itab_documento_erro TYPE t_itab_documento,

    itab_vinculacao     TYPE t_itab_vinculacao,

* << Fim da exclusão

    itab_zycbt017       TYPE t_itab_zycbt017,

    itab_zycbt030       TYPE t_itab_zycbt030,

    itab_zycbt069       TYPE t_itab_zycbt069,

    itab_zycbt219       TYPE t_itab_zycbt219,

    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

...

...

      CHANGING

        <fs_vinculacao>-saldo.

    IF <fs_vinculacao>-saldo GT 0.

      PERFORM documento_fatura

        USING

          <fs_vinculacao>

          itab_zycbt017

          itab_zycbt030.

    ENDIF.

  ENDLOOP.

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

  PERFORM busca_exit.

  READ TABLE itab_zyglt100 WITH KEY zexit = 'LIQ033'.

  IF sy-subrc EQ 0 AND NOT itab_zyglt100-zexit_ativa IS INITIAL.

    PERFORM (itab_zyglt100-formulario)

            IN PROGRAM (itab_zyglt100-programa).

  ELSE.

* << Fim da inclusão

  PERFORM verifica_documentos_sap

    USING

      itab_documento

    CHANGING

      itab_documento_erro.

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

  ENDIF.

* << Fim da inclusão

  IF NOT itab_documento_erro[] IS INITIAL.

    LOOP AT itab_documento_erro ASSIGNING <fs_documento>.

...

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

Modificações efetuadas em REPS /PWS/MZYCB004TOP

...

    wa_contabil-vbeln = <fs_vbeln>.

  else.

    clear wa_contabil-vbeln.

  endif.

  insert wa_contabil into table itab_contabil.

end-of-definition.

field-symbols:

  <fs_zycbt006> like line of itab_zycbt006[],

  <fs_vbeln>    type any.

data wa_zycbe033 like line of itab_zycbe033[].

* >> Início da exclusão:

types:

  begin of t_documento,

    bukrs type bseg-bukrs,

    belnr type bseg-belnr,

    gjahr type bseg-gjahr,

    koart type bseg-koart,

    umskz type bseg-umskz,

    shkzg type bseg-shkzg,

    hkont type bseg-hkont,

  end of t_documento,

  begin of t_vinculacao,

    nrseqc   type /pws/zycbt005-nrseqc,

    nrparc   type /pws/zycbt005-nrparc,

    nrinvoic type /pws/zycbt005-nrinvoic,

    nrparcf  type /pws/zycbt005-nrparcf,

    gsberf   type /pws/zycbt005-gsberf,

    dtvincul type /pws/zycbt005-dtvincul,

    dtbelnr  type /pws/zycbt005-dtbelnr,

    bukrs    type /pws/zycbt005-bukrs,

    bukrs_c  type /pws/zycbt005-bukrs,

    saldo    type /pws/zycbt005-vlme_p,

    belnr    type /pws/zycbt005-belnr,

  end of t_vinculacao,

  begin of t_zycbt017,

    nrinvoic type /pws/zycbt017-nrinvoic,

    nrparcf  type /pws/zycbt017-nrparcf,

    gsberf   type /pws/zycbt017-gsberf,

    bukrs    type /pws/zycbt017-bukrs,

    kunag    type /pws/zycbt017-kunag,

  end of t_zycbt017,

  begin of t_zycbt030,

    nrinvoic type /pws/zycbt030-nrinvoic,

    nrparcf  type /pws/zycbt030-nrparcf,

    vbeln    type /pws/zycbt030-vbeln,

    gsberf   type /pws/zycbt030-gsberf,

    belnr    type /pws/zycbt030-belnr,

    belnr6   type /pws/zycbt030-belnr6,

    budat    type /pws/zycbt030-budat,

    belnr_t  type /pws/zycbt030-belnr_t,

    budat_t  type /pws/zycbt030-budat_t,

  end of t_zycbt030,

  begin of t_zycbt069,

    nrseqc      type /pws/zycbt069-nrseqc,

    tpdesp      type /pws/zycbt069-tpdesp,

    nrparc      type /pws/zycbt069-nrparc,

    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,

  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,

  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,

    koart    type /pws/zycbt209-koart,

    umskz    type /pws/zycbt209-umskz,

    hkont    type /pws/zycbt209-hkont,

  end of t_zycbt209,

  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,

  t_itab_zycbt219 type sorted table of t_zycbt219

    with unique key bukrs nrinvoic belnr dtincl gsberf nrparcf,

  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.

* << Fim da exclusão

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.

data: end of itab_zycbt231.

data: begin of itab_zycbt226i occurs 0.

        include structure /pws/zycbt226.

data: end of itab_zycbt226i.

data: begin of itab_bsid occurs 0.

...

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

Modificações efetuadas em REPS /PWS/MZYCB004X01

...

        v_vlmeant   like /pws/zycbt006-vlme,

        v_armda,

        v_vljur     like /pws/zycbt006-vljur,

        v_vlcomis   like /pws/zycbt006-vlcomis,

        txjtotal2   like /pws/zycbt006-txjtotal,

        mark(1),

        belnr_d     type belnr_d,

        vljur_acc   like  /pws/zycbt006-vljur_acc,

        vljur_ace   like  /pws/zycbt006-vljur_ace,

       end of itab_zycbt005_t.

* >> Início da inclusão:

TYPES:

  BEGIN OF t_documento,

    bukrs TYPE bseg-bukrs,

    belnr TYPE bseg-belnr,

    gjahr TYPE bseg-gjahr,

    koart TYPE bseg-koart,

    umskz TYPE bseg-umskz,

    shkzg TYPE bseg-shkzg,

    hkont TYPE bseg-hkont,

  END OF t_documento,

  BEGIN OF t_vinculacao,

    nrseqc   TYPE /pws/zycbt005-nrseqc,

    nrparc   TYPE /pws/zycbt005-nrparc,

    nrinvoic TYPE /pws/zycbt005-nrinvoic,

    nrparcf  TYPE /pws/zycbt005-nrparcf,

    gsberf   TYPE /pws/zycbt005-gsberf,

    dtvincul TYPE /pws/zycbt005-dtvincul,

    dtbelnr  TYPE /pws/zycbt005-dtbelnr,

    bukrs    TYPE /pws/zycbt005-bukrs,

    bukrs_c  TYPE /pws/zycbt005-bukrs,

    saldo    TYPE /pws/zycbt005-vlme_p,

    belnr    TYPE /pws/zycbt005-belnr,

  END OF t_vinculacao,

  BEGIN OF t_zycbt017,

    nrinvoic TYPE /pws/zycbt017-nrinvoic,

    nrparcf  TYPE /pws/zycbt017-nrparcf,

    gsberf   TYPE /pws/zycbt017-gsberf,

    bukrs    TYPE /pws/zycbt017-bukrs,

    kunag    TYPE /pws/zycbt017-kunag,

  END OF t_zycbt017,

  BEGIN OF t_zycbt030,

    nrinvoic TYPE /pws/zycbt030-nrinvoic,

    nrparcf  TYPE /pws/zycbt030-nrparcf,

    vbeln    TYPE /pws/zycbt030-vbeln,

    gsberf   TYPE /pws/zycbt030-gsberf,

    belnr    TYPE /pws/zycbt030-belnr,

    belnr6   TYPE /pws/zycbt030-belnr6,

    budat    TYPE /pws/zycbt030-budat,

    belnr_t  TYPE /pws/zycbt030-belnr_t,

    budat_t  TYPE /pws/zycbt030-budat_t,

  END OF t_zycbt030,

  BEGIN OF t_zycbt069,

    nrseqc      TYPE /pws/zycbt069-nrseqc,

    tpdesp      TYPE /pws/zycbt069-tpdesp,

    nrparc      TYPE /pws/zycbt069-nrparc,

    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,

  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,

  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,

    koart    TYPE /pws/zycbt209-koart,

    umskz    TYPE /pws/zycbt209-umskz,

    hkont    TYPE /pws/zycbt209-hkont,

  END OF t_zycbt209,

  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,

  t_itab_zycbt219 TYPE SORTED TABLE OF t_zycbt219

    WITH UNIQUE KEY bukrs nrinvoic belnr dtincl gsberf nrparcf,

  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:

   wa_vinculacao       TYPE t_vinculacao,

   itab_documento_erro TYPE t_itab_documento,

   itab_vinculacao     TYPE t_itab_vinculacao.

* << Fim da inclusão

data: begin of itab_erro occurs 0,

         vbeln  like /pws/zycbt030-vbeln,

         msg    like /pws/zycbt032-msg,

       end of itab_erro.

data: begin of itab_partidas occurs 0.

        include structure /pws/zycbe033.

data: end of itab_partidas.

data: v_panormais type c.

data: end of common part.