Sintoma

Criação de ponto de exit VNC029 para permitir alterar dados Batch input, itab_zycbe033 e F-30.

Solução

Criação de ponto de exit VNC029 para permitir alterar dados Batch input, itab_zycbe033 e F-30.

Informações Complementares

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

Nota Número 04150 Data: 11/07/2007 Hora: 11:37:22

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

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

Nota Número              : 04150

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00002

Agrupamento              : 00003

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

Referência às notas relacionadas:

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

00570  - 00001 - 6.0    - 00022  - EXITS VNC003 VNC004 LIQ006 LIQ007 NOS PROGRAMAS LIQUIDAÇÃO E VINC

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

VINCULAÇÃO - PONTO DE EXIT VNC029

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

Palavras Chave:

VINCULAÇÃO PONTO DE EXIT VNC029 F-30 ITAB_ZYCBE033

DESMEMBRA CLIENTE

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

Objetos da nota:

REPS /PWS/MZYCB009F08

REPS /PWS/MZYCB009X01

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

Modificações efetuadas em REPS /PWS/MZYCB009F08

...

ENDFORM.

FORM desmembra_ace.

  DATA: v_subrc LIKE sy-subrc.

  DATA: v_nrdias TYPE i,

        v_prazo,

        v_wrbtr   TYPE wrbtr,

        v_wrbtr1  TYPE wrbtr,

        v_wrbtr2  TYPE wrbtr,

        v_shkzg   TYPE shkzg,

        v_data    TYPE datum,

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

        v_codaux1 LIKE /pws/zyglt316-codaux1,

        v_vinc_tot TYPE c.

* << Fim da exclusão

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

        v_codaux1 LIKE /pws/zyglt316-codaux1.

* << Fim da inclusão

  PERFORM clear_date_batch.

  PERFORM get_parameters_cp.

  CLEAR: v_data.

  itab_zycbe033-tcode  = 'F-30'.

  itab_zycbe033-tabela = 'ZYCBT005'.

  CONCATENATE itab_zycbt005-nrseqc

              itab_zycbt005-dtvincul

              itab_zycbt005-nrinvoic

              itab_zycbt005-dtvincul

         INTO v_cpochv.

...

...

  READ TABLE itab_zyglt100 WITH KEY zexit = 'VNC006' BINARY SEARCH.

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

    PERFORM (itab_zyglt100-formulario)

            IN PROGRAM (itab_zyglt100-programa).

  ENDIF.

  APPEND itab_zycbe033.

  LOOP AT itab_zycbt034.

    MESSAGE i016 WITH itab_zycbt034-descricao.

  ENDLOOP.

  IF itab_zycbt034 IS INITIAL.

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

    READ TABLE itab_zyglt100 WITH KEY zexit = 'VNC029' BINARY SEARCH.

    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

    CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_30_P'

         EXPORTING

              v_modo          = v_modo_bi

              v_vinc_tot      = v_vinc_tot

         TABLES

              t_dados         = itab_zycbe033

              t_campo         = itab_zycbt034

              t_zycbt032      = itab_zycbt032

              t_zycbt036      = itab_zycbt036

         EXCEPTIONS

              campo_em_branco = 1

              periodo_fechado = 2

              OTHERS          = 3.

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

    ENDIF.

* << Fim da inclusão

    IF sy-subrc = 0.

      READ TABLE itab_zycbt032 WITH KEY tcode  = 'F-30'

                                        tabela = 'ZYCBT005'

                                        cpochv = itab_zycbe033-cpochv

                                        tpmsg  = 'S'.

      IF sy-subrc EQ 0.

        itab_zycbt005-belnr_d = itab_zycbt032-belnr.

        MODIFY itab_zycbt005.

        ADD 1 TO v_f30_vinc.

        /pws/zycbe001-belnr2 = itab_zycbt032-belnr.

...

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

Modificações efetuadas em REPS /PWS/MZYCB009X01

...

        vlbaixa LIKE /pws/zycbt209-vlme,

        baixa   TYPE c.

DATA: END OF itab_zycbt209.

DATA: itab_zycbt069 LIKE /pws/zycbt069 OCCURS 10 WITH HEADER LINE.

DATA: wa_zycbt051 LIKE /pws/zycbt051,

      wa_zycbt005 LIKE itab_zycbt005.

DATA: v_retorno     TYPE sy-subrc,

      v_modo_bi(1)  TYPE c,

      v_dtdocto   LIKE /pws/zycbt005-dtvincul,

      v_belnr_001 LIKE /pws/zycbt001-belnr,

* >> Início da exclusão:

      v_vnc014(1) type c.

* << Fim da exclusão

* >> Início da inclusão:

      v_vnc014(1) type c,

      v_vinc_tot  TYPE c.

* << Fim da inclusão

DATA: v_belnr002 TYPE /pws/zycbt002-belnr2,

      v_vinc002  TYPE /pws/zycbt002-dtvincul,

      v_saldo002 TYPE /pws/zycbt002-slvinc,

      v_slvinc   TYPE /pws/zycbt002-slvinc.

DATA: wa_zycbt007 LIKE /pws/zycbt007,

      wa_zycbt011 LIKE /pws/zycbt011,

      wa_zycbt089 LIKE /pws/zycbt089.

DATA: itab_zycbt032_aux LIKE /pws/zycbt032 OCCURS 0 WITH HEADER LINE,

      itab_zycbt032b    LIKE /pws/zycbt032 OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF itab_zycbt032a OCCURS 0.

...