Sintoma

No momento da associação de uma RAS/RVS, o match code da Fat. Importação e Comissão de Agente não

está trazendo os registros corretamente

Solução

O match code da Fat. Importação e Comissão de Agente foram ajustados para trazer os registros

correspondentes a RAS/RVS

Informações Complementares

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

Nota Número 12878 Data: 28/03/2013 Hora: 09:59:43

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

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

Nota Número              : 12878

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 9.0

Pacote                   : 00004

Agrupamento              : 00151

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

Referência às notas relacionadas:

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

12480  - 00001 - 9.0    - 00001  - SISCOSERV

12604  - 00002 - 9.0    - 00002  - SISCOSERV

12671  - 00003 - 9.0    - 00002  - ASSOCIAÇÃO SISCOSERV

12842  - 00004 - 9.0    - 00003  - SISCOSERV

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

SISCOSERV - ASSOCIAÇÃO

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

Palavras Chave:

SISCOSERV - ASSOCIAÇÃO - MATCH CODE FAT. IMPORTAÇÃO

MATCH CODE COMISSÃO AGENTE

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

Objetos da nota:

VIED /PWS/ZYCAV009

VIED /PWS/ZYCAV008

SHLD /PWS/ZYCAA172

SHLD /PWS/ZYCAA174

SHLD /PWS/ZYCAA173

FUNC /PWS/ZYCAA173

FUNC /PWS/ZYCAA174

REPS /PWS/MZYCA012I01

REPS /PWS/LZYCAGFO01

REPS /PWS/MZYCA012F01

REPT /PWS/SAPMZYCA012

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

Modificações efetuadas em VIED /PWS/ZYCAV009

Limpar todas as informações da visão /PWS/ZYCAV009 e inserí-las novamente conforme abaixo.

DESCRIÇÃO BREVE: Associação RAS/RVS - Faturas de Importação

TABELAS/CONDIÇÕES JOIN

TABELAS:                            CONDIÇÕES JOIN:

/PWS/ZYCIT006            TABELA       NOME CPO     =    TABELA        NOME CPO

/PWS/ZYCBT119         /PWS/ZYCBT119   MANDT        =   /PWS/ZYCIT006  MANDT

                      /PWS/ZYCBT119   NRSEQ        =   /PWS/ZYCIT006  NRSEQ_PGFAT

CPOS. VISÃO

CAMPO VISÃO:     NOME TAB:       NOME CAMPO:     MOD:

NRPAGTO          /PWS/ZYCBT119   NRPAGTO

BUKRS            /PWS/ZYCBT119   BUKRS

WAERS            /PWS/ZYCBT119   WAERS

VLME             /PWS/ZYCBT119   VLME

DTPAGTO          /PWS/ZYCBT119   DTPAGTO

LIFNR            /PWS/ZYCBT119   LIFNR

CONDIÇÕES DE SELEÇÃO

TABELA:          NOME CPO.:   OPERADOR:       VL COMP:       AND/OR

/PWS/ZYCIT006    TPFATURA        EQ            '02'            OR

/PWS/ZYCIT006    TPFATURA        EQ            '03'            AND

/PWS/ZYCBT119    DTPAGTO         NE           '00000000'

STATUS AT.

ACESSO:

(X) - SÓ LER

(_) - LER E MODIFICAR

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

Modificações efetuadas em VIED /PWS/ZYCAV008

Limpar todas as informações da visão /PWS/ZYCAV008 e inserí-las novamente conforme abaixo.

DESCRIÇÃO BREVE: Associação RAS/RVS - Faturas de Comissão

TABELAS/CONDIÇÕES JOIN

TABELAS:                            CONDIÇÕES JOIN:

/PWS/ZYCBT031          TABELA       NOME CPO     = TABELA      NOME CPO

CPOS. VISÃO

CAMPO VISÃO:     NOME TAB:       NOME CAMPO:     MOD:

MANDT            /PWS/ZYCBT031   MANDT

NRSEQ            /PWS/ZYCBT031   NRCORRESP

LIFNR            /PWS/ZYCBT031   LIFNR

DTVENCTO         /PWS/ZYCBT031   DTVENCTO

BUKRS            /PWS/ZYCBT031   BUKRS

WAERS            /PWS/ZYCBT031   WAERS

DTPAGTO          /PWS/ZYCBT031   DTCREDPR

VLCOMIS          /PWS/ZYCBT031   VLME

CONDIÇÕES DE SELEÇÃO

TABELA:          NOME CPO.:   OPERADOR:       VL COMP:       AND/OR

/PWS/ZYCBT031    MDCORRESP       EQ             'EL'           AND

/PWS/ZYCBT031    STATUSP         EQ             'P'

STATUS AT.

ACESSO:

(X) - SÓ LER

(_) - LER E MODIFICAR

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

Modificações efetuadas em SHLD /PWS/ZYCAA172

Limpar todas as informações da Ajuda de Pesquisa /PWS/ZYCAA172 e inserí-las novamente conforme

abaixo.

DESCRIÇÃO BREVE: Associação Remessas / RAS / RVS - SISCOSERV

DEFINIÇÃO

OBTENÇÃO DE DADOS

MÉTODO DE SELEÇÃO: /PWS/ZYCBT124

COMPORTAMENTO DE DIÁLOGO:

TIPO DE DIÁLOGO: Exibição de Valores Imediata

HOT KEY: X

EXIT AJUD. PESQUISA: /PWS/ZYCAA172

PARÂMETROS:

PARAM.    IMP EXP POSL ISEL EXAJ ELEM. DADOS      MOD  VALOR PROPOSTO

NRSEQ          X    1    1       /PWS/ZYCBL222

NRFECH              2    2       /PWS/ZYCBL246

BUKRS      X        3    3   X   BUKRS                 BUK

VLME                4    4       WRBTR

WAERS      X        5    5   X   WAERS                 FWS

RECREM     X        6    6   X   /PWS/ZYCBL255         KUN

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

Modificações efetuadas em SHLD /PWS/ZYCAA174

Limpar todas as informações da Ajuda de Pesquisa /PWS/ZYCAA174 e inserí-las novamente conforme

abaixo.

DESCRIÇÃO BREVE: Associação Fat. Importação / RAS/RVS - SISCOSERV

DEFINIÇÃO

OBTENÇÃO DE DADOS

MÉTODO DE SELEÇÃO: /PWS/ZYCAV009

COMPORTAMENTO DE DIÁLOGO:

TIPO DE DIÁLOGO: Exibição de Valores Imediata

HOT KEY: X

EXIT AJUD. PESQUISA: /PWS/ZYCAA174

PARÂMETROS:

PARAM.    IMP EXP POSL ISEL EXAJ ELEM. DADOS     MOD  VALOR PROPOSTO

NRPAGTO        X   1    1        /PWS/ZYCBL244

BUKRS      X       2    2    X   BUKRS                BUK

WAERS      X       3    3    X   WAERS                FWS

VLME               4    4        WRBTR

DTPAGTO            5    5        /PWS/ZYCBL036

LIFNR      X       6    6    X   LIFRE                KUN

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

Modificações efetuadas em SHLD /PWS/ZYCAA173

Limpar todas as informações da Ajuda de Pesquisa /PWS/ZYCAA173 e inserí-las novamente conforme

abaixo.

DESCRIÇÃO BREVE: Associação Comissão Agente / RAS/RVS - SISCOSERV

DEFINIÇÃO

OBTENÇÃO DE DADOS

MÉTODO DE SELEÇÃO: /PWS/ZYCAV008

COMPORTAMENTO DE DIÁLOGO:

TIPO DE DIÁLOGO: Exibição de Valores Imediata

HOT KEY: X

EXIT AJUD. PESQUISA: /PWS/ZYCAA173

PARÂMETROS:

PARAM.    IMP EXP POSL ISEL EXAJ ELEM. DADOS     MOD  VALOR PROPOSTO

NRSEQ          X   1     1       /PWS/ZYCBL204

LIFNR      X       2     2   X   LIFRE                KUN

DTVENCTO           3     3       /PWS/ZYCBL034

BUKRS      X       4     4   X   BUKRS                BUK

WAERS      X       5     5   X   WAERS                FWS

VLCOMIS            6     6       WRBTR

DTPAGTO            7     7       /PWS/ZYCBL305

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

Modificações efetuadas em FUNC /PWS/ZYCAA173

...

      nrseq    TYPE /pws/zycet010-nrseq,

      lifnr    TYPE /pws/zycet010-lifnr,

      dtvencto TYPE /pws/zycet010-dtvencto,

      bukrs    TYPE /pws/zycet001-bukrs,

      waers    TYPE /pws/zycet002-waers,

      vlcomis  TYPE /pws/zycet010-vlcomis,

      dtpagto  TYPE /pws/zycet010-dtpagto,

    END OF ty_dados.

  DATA: itab_dados    TYPE STANDARD TABLE OF ty_dados,

        wa_dados      TYPE ty_dados,

* >> Início da exclusão: FUNCTION /PWS/ZYCAA173

        itab_zycet013 TYPE STANDARD TABLE OF /pws/zycet013,

* << Fim da exclusão

        itab_zycat039 TYPE STANDARD TABLE OF /pws/zycat039,

        wa_zycet013   TYPE /pws/zycet013,

        v_fieldname   TYPE dfies-lfieldname,

        v_tabix       TYPE sy-tabix,

        v_lines       TYPE i,

        v_lifnr       TYPE /pws/zycet010-lifnr,

        v_dtvencto    TYPE /pws/zycet010-dtvencto.

  FIELD-SYMBOLS:

    <fs_shlp>       LIKE LINE OF shlp_tab,

    <fs_fielddescr> LIKE LINE OF shlp_tab-fielddescr,

...

...

                callcontrol       = callcontrol

           EXCEPTIONS

                parameter_unknown = 1

                OTHERS            = 2.

      IF sy-subrc <> 0.

        EXIT.

      ENDIF.

    ENDLOOP.

    UNASSIGN: <fs_shlp>, <fs_fielddescr>.

    IF NOT itab_dados[] IS INITIAL.

* >> Início da exclusão: FUNCTION /PWS/ZYCAA173

      SELECT * FROM /pws/zycet013

        INTO TABLE itab_zycet013

        FOR ALL ENTRIES IN itab_dados

        WHERE nrseq = itab_dados-nrseq

          AND lifnr = itab_dados-lifnr.

* << Fim da exclusão

      SELECT * FROM /pws/zycat039

        INTO TABLE itab_zycat039

        FOR ALL ENTRIES IN itab_dados

        WHERE fat_comis = itab_dados-nrseq

          AND lifnr     = itab_dados-lifnr

          AND dtvencto  = itab_dados-dtvencto.          "#EC CI_NOFIRST

      LOOP AT itab_dados ASSIGNING <fs_dados>.

        v_tabix = sy-tabix.

        CLEAR v_lines.

        LOOP AT itab_dados INTO wa_dados

...

...

        ELSE.

          READ TABLE itab_zycat039 ASSIGNING <fs_zycat039>

            WITH KEY fat_comis = <fs_dados>-nrseq

                     lifnr     = <fs_dados>-lifnr

                     dtvencto  = <fs_dados>-dtvencto.

          IF sy-subrc EQ 0.

            DELETE record_tab INDEX v_tabix.

            DELETE itab_dados.

            UNASSIGN <fs_zycat039>.

            CONTINUE.

* >> Início da exclusão: FUNCTION /PWS/ZYCAA173

          ENDIF.

          IF <fs_dados>-dtpagto IS INITIAL.

            READ TABLE itab_zycet013 INTO wa_zycet013

              WITH KEY nrseq = <fs_dados>-nrseq

                       lifnr = <fs_dados>-lifnr.

            IF sy-subrc EQ 0 AND

              NOT wa_zycet013-dtpagto IS INITIAL AND

                  wa_zycet013-dtpagto NE '        '.

              READ TABLE record_tab ASSIGNING <fs_record_tab>

                INDEX v_tabix.

              IF <fs_record_tab> IS ASSIGNED.

                MOVE wa_zycet013-dtpagto TO <fs_dados>-dtpagto.

                MODIFY itab_dados FROM <fs_dados> INDEX v_tabix.

                MOVE <fs_dados>-dtpagto TO <fs_record_tab>+40(8).

                MODIFY record_tab FROM <fs_record_tab> INDEX v_tabix.

              ENDIF.

            ELSE.

              DELETE record_tab INDEX v_tabix.

              DELETE itab_dados.

            ENDIF.

* << Fim da exclusão

          ENDIF.

        ENDIF.

      ENDLOOP.

    ENDIF.

  ELSEIF callcontrol-step = 'RETURN'.

    READ TABLE shlp_tab INDEX 1 ASSIGNING <fs_shlp>.

    CHECK <fs_shlp> IS ASSIGNED.

    LOOP AT <fs_shlp>-fielddescr ASSIGNING <fs_fielddescr>

      WHERE fieldname = 'LIFNR'

* >> Início da exclusão: FUNCTION /PWS/ZYCAA173

         OR fieldname = 'DTVENCTO'.

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCAA173

         OR fieldname = 'DTVENCTO'

         OR fieldname = 'DTPAGTO'.

* << Fim da inclusão

      v_fieldname = <fs_fielddescr>-fieldname.

      CALL FUNCTION 'F4UT_PARAMETER_VALUE_GET'

           EXPORTING

                parameter         = <fs_fielddescr>-fieldname

                fieldname         = v_fieldname

           TABLES

                shlp_tab          = shlp_tab

                record_tab        = record_tab

                results_tab       = itab_dados

           CHANGING

...

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

Modificações efetuadas em FUNC /PWS/ZYCAA174

...

    <fs_shlp>       LIKE LINE OF shlp_tab,

    <fs_fielddescr> LIKE LINE OF shlp_tab-fielddescr,

    <fs_dados>      TYPE ty_dados,

    <fs_zycat039>   TYPE /pws/zycat039.

  CLEAR callcontrol-maxrecords.

  IF callcontrol-step = 'DISP'

     OR callcontrol-step = 'PRESEL'.

    READ TABLE shlp_tab INDEX 1 ASSIGNING <fs_shlp>.

    CHECK <fs_shlp> IS ASSIGNED.

    LOOP AT <fs_shlp>-fielddescr ASSIGNING <fs_fielddescr>.

* >> Início da exclusão: FUNCTION /PWS/ZYCAA174

      CHECK <fs_fielddescr>-fieldname = 'NRSEQ'    OR

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCAA174

      CHECK <fs_fielddescr>-fieldname = 'NRPAGTO'    OR

* << Fim da inclusão

            <fs_fielddescr>-fieldname = 'LIFNR'    OR

            <fs_fielddescr>-fieldname = 'DTVENCTO' OR

            <fs_fielddescr>-fieldname = 'BUKRS'    OR

            <fs_fielddescr>-fieldname = 'WAERS'    OR

            <fs_fielddescr>-fieldname = 'VLCOMIS'  OR

            <fs_fielddescr>-fieldname = 'DTPAGTO' .

      v_fieldname = <fs_fielddescr>-fieldname.

      CALL FUNCTION 'F4UT_PARAMETER_VALUE_GET'

           EXPORTING

                parameter         = <fs_fielddescr>-fieldname

...

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

Modificações efetuadas em REPS /PWS/LZYCAGFO01

...

                for html_viewer.

    if sy-saprl(2) eq '46'.                               "#EC PORTABLE

      refresh it_xml_aux.

      describe table it_xml lines v_lines.

      assign v_null to <fs_null> casting.

      loop at it_xml into wa_xml.

        if sy-tabix < v_lines.

          assign wa_xml to <fs_xml> casting.

          append <fs_xml> to it_xml_aux.

        else.

* >> Início da inclusão: MODULE CRIA_HTML

          assign wa_xml to <fs_xml> casting.

* << Fim da inclusão

          split <fs_xml> at <fs_null>(1) into v_split1 v_split2.

          append v_split1 to it_xml_aux.

        endif.

      endloop.

      call method html_viewer->load_data

          exporting

            type    = 'HTML'

            subtype = 'XML'

          importing

            assigned_url = v_url

...

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

Modificações efetuadas em REPS /PWS/MZYCA012F01

...

         ( screen-name = 'WA_ZYCAT039F-FAT_IMP' AND

           NOT p_wa_zycat039-fat_imp IS INITIAL ).

        screen-input = 0.

        MODIFY SCREEN.

      ENDIF.

    ENDLOOP.

  ENDIF.

ENDFORM.

FORM verifica_associacao CHANGING p_wa_zycat039 STRUCTURE /pws/zycat039

                                  p_pago.

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

  DATA: v_bukrs   TYPE /pws/zycat030-bukrs.

* << Fim da exclusão

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

  DATA: v_bukrs   TYPE /pws/zycat030-bukrs,

        v_bukext  TYPE /pws/zycat030-bukrs_ext.

* << Fim da inclusão

  IF NOT p_wa_zycat039-remessa IS INITIAL AND

         p_wa_zycat039-dt_pg_rec IS INITIAL.

    PERFORM valida_remessa CHANGING p_wa_zycat039

                                    p_pago

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

                                    v_bukext

* << Fim da inclusão

                                    v_bukrs.

  ENDIF.

  IF NOT p_wa_zycat039-fat_comis IS INITIAL AND

         p_wa_zycat039-dt_pg_rec IS INITIAL.

    PERFORM valida_comissao CHANGING p_wa_zycat039

                                     p_pago

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

                                     v_bukext

* << Fim da inclusão

                                     v_bukrs.

  ENDIF.

  IF NOT p_wa_zycat039-fat_imp IS INITIAL AND

         p_wa_zycat039-dt_pg_rec IS INITIAL.

    PERFORM valida_fatimp CHANGING p_wa_zycat039

                                     p_pago

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

                                     v_bukext

* << Fim da inclusão

                                     v_bukrs.

...

...

                                   v_bukrs.

  ENDIF.

  IF ( NOT v_bukrs IS INITIAL AND

     v_bukrs NE /pws/zycat030-bukrs ) OR

     ( NOT p_wa_zycat039-moeda IS INITIAL AND

     p_wa_zycat039-moeda NE /pws/zycat030-waers ).

    MESSAGE i015 WITH text-i10 text-i11.

    CLEAR p_pago.

    EXIT.

  ENDIF.

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

  IF ( NOT v_bukext IS INITIAL AND

     v_bukext NE /pws/zycat030-bukrs_ext ).

    MESSAGE i015 WITH text-i21 text-i22.

    CLEAR p_pago.

    EXIT.

  ENDIF.

* << Fim da inclusão

ENDFORM.

FORM user_command_0102.

  CASE v_okcode.

    WHEN 'MALL'.

      LOOP AT itab_zycat039_c.

        itab_zycat039_c-mark = 'X'.

        MODIFY itab_zycat039_c.

      ENDLOOP.

      CLEAR v_okcode.

    WHEN 'DMALL'.

...

...

    wa_zycat039-mandt = sy-mandt.

    APPEND wa_zycat039 TO itab_zycat039.

  ENDLOOP.

  LOOP AT itab_zycat039_o INTO wa_zycat039.

    wa_zycat039-mandt = sy-mandt.

    APPEND wa_zycat039 TO itab_zycat039.

  ENDLOOP.

ENDFORM.

FORM valida_remessa CHANGING p_wa_zycat039 STRUCTURE /pws/zycat039

                                  p_pago

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

                                  p_bukext

* << Fim da inclusão

                                  p_bukrs.

  DATA: v_nrseq   TYPE /pws/zycbt031-nrseq,

        v_bcoccme TYPE /pws/zycbt134-bco_ccme.

  SELECT SINGLE * FROM /pws/zycat039

    INTO wa_zycat039

    WHERE nrseq   NE /pws/zycat039-nrseq

      AND remessa = p_wa_zycat039-remessa.              "#EC CI_NOFIRST

  IF sy-subrc EQ 0.

    MESSAGE i015 WITH text-e07 text-i11.

    CLEAR p_pago.

    EXIT.

  ENDIF.

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

  SELECT SINGLE bukrs nrfat waers vlme

* << Fim da exclusão

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

  SELECT SINGLE bukrs recrem nrfat waers vlme

* << Fim da inclusão

    FROM /pws/zycbt124

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

    INTO (p_bukrs, p_wa_zycat039-num_nf,

* << Fim da exclusão

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

    INTO (p_bukrs, p_bukext, p_wa_zycat039-num_nf,

* << Fim da inclusão

           p_wa_zycat039-moeda, p_wa_zycat039-valor)

    WHERE nrseq = p_wa_zycat039-remessa.

  IF sy-subrc NE 0.

...

...

    FROM /pws/zycbt134

    INTO v_bcoccme

    WHERE nrseq  = v_nrseq

      AND tpproc = 'PRINCIPAL'.

  IF sy-subrc EQ 0 AND NOT v_bcoccme IS INITIAL.

    p_wa_zycat039-vme = p_wa_zycat039-valor.

  ENDIF.

ENDFORM.

FORM valida_comissao CHANGING p_wa_zycat039 STRUCTURE /pws/zycat039

                              p_pago

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

                              p_bukext

* << Fim da inclusão

                              p_bukrs.

  DATA: v_nrseq   TYPE /pws/zycbt031-nrseq,

        v_bcoccme TYPE /pws/zycbt134-bco_ccme.

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

  DATA: wa_zycbt031 TYPE /pws/zycbt031.

* << Fim da inclusão

  SELECT SINGLE * FROM /pws/zycat039

    INTO wa_zycat039

    WHERE nrseq     NE /pws/zycat039-nrseq

      AND fat_comis  = p_wa_zycat039-fat_comis

...

...

  IF sy-subrc EQ 0.

    MESSAGE i015 WITH text-e09 text-i11.

    CLEAR p_pago.

    EXIT.

  ENDIF.

  SELECT SINGLE bukrs nfnum waers

    FROM /pws/zycet002

    INTO (p_bukrs, p_wa_zycat039-num_nf,

           p_wa_zycat039-moeda)

    WHERE nrseq = p_wa_zycat039-fat_comis.

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

  SELECT SINGLE vlcomis dtpagto

    FROM /pws/zycet010

    INTO (p_wa_zycat039-valor, p_wa_zycat039-dt_pg_rec)

    WHERE nrseq    = p_wa_zycat039-fat_comis

      AND lifnr    = p_wa_zycat039-lifnr

      AND dtvencto = p_wa_zycat039-dtvencto.

* << Fim da exclusão

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

  SELECT SINGLE *

    FROM /pws/zycbt031

    INTO wa_zycbt031

    WHERE bukrs     = /pws/zycat030-bukrs

      AND mdcorresp = 'EL'

      AND nrcorresp = p_wa_zycat039-fat_comis

      AND waers     = /pws/zycat030-waers

      AND statusp   = 'P'

      AND lifnr     = p_wa_zycat039-lifnr.

* << Fim da inclusão

  IF sy-subrc NE 0.

    MESSAGE i061 WITH text-i13 p_wa_zycat039-fat_comis

        text-i09.

    CLEAR p_pago.

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

    EXIT.

* << Fim da exclusão

  ELSE.

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

    IF p_wa_zycat039-dt_pg_rec IS INITIAL.

      SELECT SINGLE dtpagto

        FROM /pws/zycet013

        INTO p_wa_zycat039-dt_pg_rec

        WHERE nrseq = p_wa_zycat039-fat_comis

          AND lifnr = p_wa_zycat039-lifnr.

      IF p_wa_zycat039-dt_pg_rec IS INITIAL.

        MESSAGE i061 WITH text-i13 p_wa_zycat039-fat_comis

                 text-i09.

        CLEAR p_pago.

        EXIT.

      ENDIF.

    ENDIF.

  ENDIF.

* << Fim da exclusão

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

    p_wa_zycat039-valor     = wa_zycbt031-vlme.

    p_wa_zycat039-dt_pg_rec = wa_zycbt031-dtcredpr.

    p_bukext = wa_zycbt031-lifnr.

* << Fim da inclusão

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

  SELECT SINGLE nrseq

    FROM /pws/zycbt031

    INTO v_nrseq

    WHERE mdcorresp = 'EL'

      AND nrcorresp = p_wa_zycat039-fat_comis.

  IF sy-subrc EQ 0.

* << Fim da exclusão

    SELECT SINGLE bco_ccme

      FROM /pws/zycbt134

      INTO v_bcoccme

      WHERE nrseq  = v_nrseq.

    IF sy-subrc EQ 0 AND NOT v_bcoccme IS INITIAL.

      p_wa_zycat039-vme = p_wa_zycat039-valor.

    ENDIF.

  ENDIF.

ENDFORM.

FORM valida_fatimp CHANGING p_wa_zycat039 STRUCTURE /pws/zycat039

                              p_pago

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

                              p_bukext

* << Fim da inclusão

                              p_bukrs.

  DATA: v_nrseq      TYPE /pws/zycbt031-nrseq,

        v_bcoccme    TYPE /pws/zycbt134-bco_ccme,

        v_nrseqpgfat TYPE /pws/zycbt108-nrseq_pgfat,

        v_tpfatura   TYPE /pws/zycit006-tpfatura.

  SELECT SINGLE * FROM /pws/zycat039

    INTO wa_zycat039

    WHERE nrseq   NE /pws/zycat039-nrseq

      AND fat_imp  = p_wa_zycat039-fat_imp.             "#EC CI_NOFIRST

  IF sy-subrc EQ 0.

    MESSAGE i015 WITH text-e09 text-i11.

    CLEAR p_pago.

    EXIT.

  ENDIF.

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

  SELECT SINGLE tpfatura nrseq_pgfat

* << Fim da exclusão

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

  SELECT SINGLE tpfatura lifnr nrseq_pgfat

* << Fim da inclusão

    FROM /pws/zycit006

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

    INTO (v_tpfatura, v_nrseqpgfat)

* << Fim da exclusão

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

    INTO (v_tpfatura, p_bukext, v_nrseqpgfat)

* << Fim da inclusão

    WHERE nrseq = p_wa_zycat039-fat_imp.

  IF ( sy-subrc EQ 0      AND

     v_tpfatura NE '02'   AND

...

...

            LOOP AT itab_zycat038 INTO /pws/zycat038.

              MOVE /pws/zycat030-nrseq TO v_identificador.

              PERFORM carrega_log USING '/PWS/ZYCAT038'

                                        'U'

                                        sy-tcode

                                        v_funcionalidade

                                        v_identificador.

            ENDLOOP.

          ENDIF.

        ELSE.

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

          IF /pws/zycat030-processamento IS INITIAL.

* << Fim da inclusão

          wa_zycat039-status = 'ES'.

          APPEND wa_zycat039 TO itab_zycat039.

          IF NOT wa_zycat039-remessa IS INITIAL.

            APPEND wa_zycat039 TO itab_zycat039_r.

          ELSEIF NOT wa_zycat039-fat_comis IS INITIAL.

            APPEND wa_zycat039 TO itab_zycat039_c.

          ELSEIF NOT wa_zycat039-fat_imp IS INITIAL.

            APPEND wa_zycat039 TO itab_zycat039_f.

          ELSEIF NOT wa_zycat039-fatura IS INITIAL.

            APPEND wa_zycat039 TO itab_zycat039_o.

...

...

                     operacao   = wa_zycat039-operacao

                     remessa    = wa_zycat039-remessa

                     fat_comis  = wa_zycat039-fat_comis

                     lifnr      = wa_zycat039-lifnr

                     dtvencto   = wa_zycat039-dtvencto

                     fat_imp    = wa_zycat039-fat_imp

                     fatura     = wa_zycat039-fatura.

          IF sy-subrc EQ 0.

            MODIFY itab_zycat039_ant FROM wa_zycat039

              INDEX sy-tabix.

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

            ENDIF.

          ELSE.

            MOVE /pws/zycat030-nrseq TO v_identificador.

            MOVE-CORRESPONDING wa_zycat039 TO /pws/zycat039.

            PERFORM carrega_log USING '/PWS/ZYCAT039'

                                      'D'

                                      sy-tcode

                                      v_funcionalidade

                                      v_identificador.

            DELETE /pws/zycat039 FROM wa_zycat039.

* << Fim da inclusão

          ENDIF.

          IF /pws/zycat030-tp_processo = 'V'.

            v_processo = 'CRF'.

          ELSEIF /pws/zycat030-tp_processo = 'A'.

            v_processo = 'CRP'.

          ENDIF.

          CALL FUNCTION '/PWS/ZYCA_GERA_XML_SISCOSERV'

               EXPORTING

                    i_processo = v_processo

                    i_zycat030 = /pws/zycat030

...

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

Modificações efetuadas em REPT /PWS/SAPMZYCA012

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: I21

Texto: (37 caracteres)

"Parceiro do processo associado difere"

Comprimento máximo: 37

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: I22

Texto: (33 caracteres)

"da Empresa no exterior da RAS/RVS"

Comprimento máximo: 33