Sintoma

Desenvolvimento para criação de Associação de Siscoserv com origem em um documento contábil

Solução

Desenvolvimento para criação de Associação de Siscoserv com origem em um documento contábil

Informações Complementares

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

Nota Número 12671 Data: 14/11/2012 Hora: 14:23:35

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

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

Nota Número              : 12671

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 9.0

Pacote                   : 00002

Agrupamento              : 00137

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

Referência às notas relacionadas:

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

12480  - 00001 - 9.0    - 00001  - SISCOSERV

12650  - 00002 - 9.0    - 00002  - SISCOSERV

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

ASSOCIAÇÃO SISCOSERV

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

Palavras Chave:

ASSOCIAÇÃO SISCOSERV

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

Objetos da nota:

CUAD /PWS/SAPMZYCA012

DYNP /PWS/SAPMZYCA012                        0106

DYNP /PWS/SAPMZYCA012                        0105

REPS /PWS/MZYCA012F01

REPS /PWS/MZYCA012I01

REPS /PWS/MZYCA012O01

REPS /PWS/MZYCA012TOP

REPT /PWS/SAPMZYCA012

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

Modificações efetuadas em CUAD /PWS/SAPMZYCA012

Criação do Tit. GUI 106 com o título "Criação Com Referência"

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

Modificações efetuadas em DYNP /PWS/SAPMZYCA012                        0106

Solicitar o download da tela junto a equipe de produto do pw.CE - Telefone (11)5504.0170

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

Modificações efetuadas em DYNP /PWS/SAPMZYCA012                        0105

Solicitar o download da tela junto a equipe de produto do pw.CE - Telefone (11)5504.0170

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

Modificações efetuadas em REPS /PWS/MZYCA012F01

...

        IF itab_zycat039_o-status = 'EP' OR

           itab_zycat039_o-status = 'EX' OR

           itab_zycat039_o-status = 'ES'.

          MESSAGE i061 WITH text-i06 itab_zycat039_o-fatura

                            text-i07.

        ELSE.

          DELETE itab_zycat039_o.

        ENDIF.

      ENDLOOP.

      CLEAR v_okcode.

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

    WHEN 'ORIG'.

      CALL SCREEN 0106 STARTING AT 25 10.

      CLEAR v_okcode.

* << Fim da inclusão

  ENDCASE.

ENDFORM.

* >> Início da inclusão:

FORM user_command_0106.

  CASE v_okcode.

    WHEN 'ORIG'.

      PERFORM busca_origem.

  ENDCASE.

  CLEAR v_okcode.

ENDFORM.

FORM busca_origem.

  DATA: itab_bseg TYPE TABLE OF bseg,

        wa_bseg   TYPE bseg,

        v_koart   TYPE bseg-koart.

  READ TABLE itab_zycat039_o INTO wa_zycat039o

    WITH KEY fatura+10(10) = bkpf-belnr.

  IF sy-subrc EQ 0.

    MESSAGE i015 WITH text-e18.

    CLEAR bkpf.

    EXIT.

  ELSE.

    CLEAR wa_zycat039o.

  ENDIF.

  SELECT * FROM bseg

    INTO TABLE itab_bseg

    WHERE bukrs = bkpf-bukrs

      AND belnr = bkpf-belnr

      AND gjahr = bkpf-gjahr.

  IF sy-subrc NE 0.

    MESSAGE i015 WITH text-e13.

    CLEAR bkpf.

    EXIT.

  ENDIF.

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

    v_koart = 'K'.

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

    v_koart = 'D'.

  ENDIF.

  DELETE itab_bseg WHERE koart NE v_koart.

  IF itab_bseg[] IS INITIAL.

    MESSAGE i015 WITH text-e14 text-e15.

    CLEAR bkpf.

    EXIT.

  ENDIF.

  DELETE itab_bseg WHERE augbl = '          ' OR

                         augbl = '0000000000'.

  IF itab_bseg[] IS INITIAL.

    MESSAGE i015 WITH text-e16.

    CLEAR bkpf.

    EXIT.

  ENDIF.

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

    DELETE itab_bseg WHERE lifnr NE /pws/zycat030-bukrs_ext.

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

    DELETE itab_bseg WHERE kunnr NE /pws/zycat030-bukrs_ext.

  ENDIF.

  IF itab_bseg[] IS INITIAL.

    MESSAGE i015 WITH text-e17.

    CLEAR bkpf.

    EXIT.

  ENDIF.

  LOOP AT itab_bseg INTO wa_bseg.

    MOVE: wa_bseg-belnr TO wa_zycat039o-fatura,

          wa_bseg-augcp TO wa_zycat039o-dt_pg_rec,

          wa_bseg-pswsl TO wa_zycat039o-moeda,

          wa_bseg-wrbtr TO wa_zycat039o-valor.

    APPEND wa_zycat039o TO itab_zycat039_o.

    CLEAR wa_zycat039o.

  ENDLOOP.

  CLEAR bkpf.

  SET SCREEN 0.

  LEAVE SCREEN.

ENDFORM.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCA012I01

...

  CASE sy-dynnr.

    WHEN '0001' OR '0002'.

      LEAVE PROGRAM.

    WHEN '0100'.

      SET SCREEN v_screen.

      LEAVE SCREEN.

    WHEN '0104'.

      CLEAR v_path.

      SET SCREEN 0.

      LEAVE SCREEN.

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

    WHEN '0106'.

      SET SCREEN 0.

      LEAVE SCREEN.

* << Fim da inclusão

  ENDCASE.

ENDMODULE.

MODULE user_command INPUT.

  CASE sy-dynnr.

    WHEN '0001'.

      PERFORM user_command_001.

    WHEN '0002'.

      PERFORM user_command_002.

    WHEN '0100'.

      PERFORM user_command_0100.

    WHEN '0101'.

      PERFORM user_command_0101.

    WHEN '0102'.

      PERFORM user_command_0102.

    WHEN '0103'.

      PERFORM user_command_0103.

    WHEN '0104'.

      PERFORM user_command_0104.

    WHEN '0105'.

      PERFORM user_command_0105.

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

    WHEN '0106'.

      PERFORM user_command_0106.

* << Fim da inclusão

  ENDCASE.

ENDMODULE.

MODULE atualiza_itab_remessa INPUT.

  PERFORM atualiza_itab TABLES  itab_zycat039_r

                        USING   wa_zycat039r

                                tc_remessa.

ENDMODULE.

MODULE calcula_saldo INPUT.

  PERFORM calcula_saldo.

ENDMODULE.

...

...

       EXPORTING

            tabname    = v_tabname

            fieldname  = v_fieldname

            searchhelp = v_searchhelp

            shlpparam  = v_shlpparam

            display    = l_display

       TABLES

            return_tab = itab_result

       EXCEPTIONS

            OTHERS     = 5.

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

  IF sy-subrc EQ 0.

  ENDIF.

* << Fim da inclusão

  READ TABLE itab_result INTO wa_result INDEX 1.

  IF sy-subrc EQ 0.

    CONCATENATE v_tabname v_fieldname INTO wa_tdynpread-fieldname

      SEPARATED BY '-'.

    wa_tdynpread-fieldvalue = wa_result-fieldval.

    wa_tdynpread-stepl      = v_line.

    APPEND wa_tdynpread TO itab_tdynpread.

    IF sy-dynnr = '0102'.

      IMPORT v_lifnr    FROM MEMORY ID 'LIFNR'.

      IMPORT v_dtvencto FROM MEMORY ID 'DTVENCTO'.

...

...

      APPEND wa_tdynpread TO itab_tdynpread.

    ENDIF.

    CALL FUNCTION 'DYNP_VALUES_UPDATE'

         EXPORTING

              dyname     = sy-cprog

              dynumb     = sy-dynnr

         TABLES

              dynpfields = itab_tdynpread

         EXCEPTIONS

              OTHERS     = 8.

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

    IF sy-subrc EQ 0.

* << Fim da inclusão

  ENDIF.

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

  ENDIF.

* << Fim da inclusão

ENDMODULE.

MODULE match_code_nrseq INPUT.

  CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'

       EXPORTING

            tabname    = '/PWS/ZYCAT039'

            fieldname  = 'NRSEQ'

            searchhelp = '/PWS/ZYCAA170'

            shlpparam  = 'NRSEQ'

            display    = l_display

       TABLES

            return_tab = itab_result

       EXCEPTIONS

            OTHERS     = 5.

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

  IF sy-subrc EQ 0.

* << Fim da inclusão

  READ TABLE itab_result INTO wa_result INDEX 1.

  IF sy-subrc EQ 0.

    /pws/zycat039-nrseq = wa_result-fieldval.

    IMPORT v_operacao FROM MEMORY ID 'OPER'.

    REFRESH itab_tdynpread.

    CLEAR wa_tdynpread.

    wa_tdynpread-fieldname  = '/PWS/ZYCAT039-OPERACAO'.

    wa_tdynpread-fieldvalue = v_operacao.

    APPEND wa_tdynpread TO itab_tdynpread.

    CALL FUNCTION 'DYNP_VALUES_UPDATE'

         EXPORTING

              dyname     = sy-cprog

              dynumb     = sy-dynnr

         TABLES

              dynpfields = itab_tdynpread

         EXCEPTIONS

              OTHERS     = 8.

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

      IF sy-subrc EQ 0.

      ENDIF.

    ENDIF.

* << Fim da inclusão

  ENDIF.

ENDMODULE.

MODULE match_code_operacao INPUT.

  REFRESH: itab_tdynpread, itab_result.

  CLEAR: wa_tdynpread, wa_result.

  wa_tdynpread-fieldname = '/PWS/ZYCAT039-NRSEQ'.

  APPEND wa_tdynpread TO itab_tdynpread.

  CALL FUNCTION 'DYNP_VALUES_READ'

       EXPORTING

            dyname     = '/PWS/SAPMZYCA012'

...

...

       EXPORTING

            tabname    = '/PWS/ZYCAT039'

            fieldname  = 'OPERACAO'

            searchhelp = '/PWS/ZYCAA170'

            shlpparam  = 'OPERACAO'

            display    = l_display

       TABLES

            return_tab = itab_result

       EXCEPTIONS

            OTHERS     = 5.

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

  IF sy-subrc EQ 0.

  ENDIF.

* << Fim da inclusão

  READ TABLE itab_result INTO wa_result INDEX 1.

  IF sy-subrc EQ 0.

    /pws/zycat039-operacao = wa_result-fieldval.

  ENDIF.

ENDMODULE.

MODULE atualiza_itab_comissao INPUT.

  PERFORM atualiza_itab TABLES  itab_zycat039_c

                        USING   wa_zycat039c

                                tc_comag.

ENDMODULE.

...

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

Modificações efetuadas em REPS /PWS/MZYCA012O01

...

        wa_cols-screen-input = '1'.

      endif.

      modify tc_outros-cols from wa_cols.

    endloop.

  endif.

endmodule.

module atualiza_tela_outros output.

  perform atualiza_tela using itab_zycat039_o

                               wa_zycat039o.

endmodule.

* >> Início da inclusão:

module STATUS_0106 output.

  SET PF-STATUS '0106'.

  SET TITLEBAR '106'.

  bkpf-bukrs = /pws/zycat030-bukrs.

endmodule.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCA012TOP

...

  prot_transm    type /pws/zycat038-prot_transm,

  status         type /pws/zycat038-status,

  status_t(25)   type c,

  cod_erro       type /pws/zycat038-cod_erro,

  cod_erro_t     type /pws/zycat040-mensagem,

end of ty_zycat038_alv.

tables: /pws/zycat030,

        /pws/zycat031,

        /pws/zycat037,

        /pws/zycat038,

* >> Início da exclusão:

        /pws/zycat039.

* << Fim da exclusão

* >> Início da inclusão:

        /pws/zycat039,

        bkpf.

* << Fim da inclusão

data: itab_zycat039     type table of /pws/zycat039,

      itab_zycat039_ant type table of /pws/zycat039,

      itab_zycat039_c   type table of ty_zycat039t with header line,

      itab_zycat039_r   type table of ty_zycat039t with header line,

      itab_zycat039_f   type table of ty_zycat039t with header line,

      itab_zycat039_o   type table of ty_zycat039t with header line,

      itab_tdynpread    type standard table of dynpread,

      itab_result       type standard table of ddshretval,

      itab_fcode        type standard table of ty_fcode.

data: wa_zycat039      type /pws/zycat039,

...

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

Modificações efetuadas em REPT /PWS/SAPMZYCA012

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: 015

Texto: (29 caracteres)

"the necessary characteristics"

Comprimento máximo: 30

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: 015

Texto: (30 caracteres)

"las características necesarias"

Comprimento máximo: 30

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: E12

Texto: (38 caracteres)

"Processo já associado em outra RAS/RVS"

Comprimento máximo: 38

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: E13

Texto: (18 caracteres)

"Document not found"

Comprimento máximo: 24

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: E13

Texto: (24 caracteres)

"Documento não encontrado"

Comprimento máximo: 24

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: E13

Texto: (23 caracteres)

"Documento no encontrado"

Comprimento máximo: 24

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: E14

Texto: (15 caracteres)

"Document has no"

Comprimento máximo: 27

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: E14

Texto: (27 caracteres)

"Documento Informado não tem"

Comprimento máximo: 27

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: E14

Texto: (18 caracteres)

"Documento no tiene"

Comprimento máximo: 27

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: E15

Texto: (29 caracteres)

"the necessary characteristics"

Comprimento máximo: 31

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: E15

Texto: (31 caracteres)

"as características necessárias."

Comprimento máximo: 31

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: E15

Texto: (30 caracteres)

"las características necesarias"

Comprimento máximo: 31

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: E16

Texto: (47 caracteres)

"Document has not been paid.Assoc. not permitted"

Comprimento máximo: 48

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: E16

Texto: (48 caracteres)

"Documento não foi pago. Associação não permitida"

Comprimento máximo: 48

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: E16

Texto: (48 caracteres)

"El documento no ha sido pagada. Asoci. no permit"

Comprimento máximo: 48

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: E17

Texto: (39 caracteres)

"Company Abroad different from Operation"

Comprimento máximo: 41

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: E17

Texto: (41 caracteres)

"Empresa no Exterior diferente da Operação"

Comprimento máximo: 41

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: E17

Texto: (41 caracteres)

"Empresa en el extranjero dif. de la Oper."

Comprimento máximo: 41

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: E18

Texto: (22 caracteres)

"document already assoc"

Comprimento máximo: 22

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: E18

Texto: (22 caracteres)

"Documento já associado"

Comprimento máximo: 22

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: E18

Texto: (21 caracteres)

"Documento ya asociado"

Comprimento máximo: 22