Sintoma

1) RVS foi transmitido o status alterou para "Em Processamento".

Foi Solicitado o cancelamento do RVS e o status alterou para "Exclusão solicitada" porem após o

processamento o status do log de processamento altera para "Registro Excluído" mas o Status do RVS

fica o mesmo.

2) RVS criada e alterada antes de entrar "Em Processamento" o sistema criou um segundo XML de

criação da RVS

3) Na tela de Log de Processamentos, está sendo selecionado XML de Inclusão de RVS e está sendo

exibido o XML da Inclusão do Faturamento

4) Para XML de Faturamento e Pagamento, as TAG's IdPagamentoEmpresa / IdFaturaEmpresa estão ficando

com o mesmo valor das TAG's NumeroPagamento / Número Fatura

5) As TAG's  TAG's IdPagamentoEmpresa  IdFaturaEmpresa estavam sendo preenchidas com zeros a

esquerda em exceço, invalidando o XML

Solução

1) A função de retorno para o SAP foi ajustada para atualizar também a RAS/RVS;

2) O programa foi ajustado para eliminar o lote anterior e gerar um novo lote;

3) A captura da linha selecionada no Log de Processamento foi ajustada;

4) O preenchimento do XML foi ajustado;

4) O preenchimento do XML foi ajustado;

Informações Complementares

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

Nota Número 13149 Data: 02/08/2013 Hora: 14:08:01

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

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

Nota Número              : 13149

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 9.0

Pacote                   : 00005

Agrupamento              : 00160

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

Referência às notas relacionadas:

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

12480  - 00001 - 9.0    - 00001  - SISCOSERV

12508  - 00002 - 9.0    - 00001  - TRADUÇÃO PW.CE, PT P/ EN E ES, AJUSTE TRILHA

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

12697  - 00004 - 9.0    - 00002  - SISCOSERV - AJUDA DE PESQUISA CODIGO ENQUADRAMENTO / BOTÃO ANEXAR

12799  - 00005 - 9.0    - 00003  - VERIFICAÇÃO CODE INSPECTOR

12878  - 00006 - 9.0    - 00004  - SISCOSERV - ASSOCIAÇÃO

12933  - 00007 - 9.0    - 00004  - SISCOSERV - ASSOCIAÇÃO

12943  - 00008 - 9.0    - 00004  - CB - 999999 - SISCOSERV - REQUEST COMPLETA

13028  - 00009 - 9.0    - 00004  - SISCOSERV - ORIGEM PROCESSOS PW.CE

13068  - 00010 - 9.0    - 00005  - REQUEST COMPLETA SISCOSERV

13077  - 00011 - 9.0    - 00005  - SISCOSERV

13109  - 00012 - 9.0    - 00005  - SISCOSERV - NBS

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

SISCOERV - ASSOCIAÇÃO SISCOSERV

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

Palavras Chave:

SISCOERV - ASSOCIAÇÃO SISCOSERV

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

Objetos da nota:

DOMD /PWS/ZYCAD026

DOMD /PWS/ZYCAD024

FUNC /PWS/ZYCA_RETORNO_SISCOSERV

DYNP /PWS/SAPMZYCA012                        0105

DYNP /PWS/SAPMZYCA012                        0103

DYNP /PWS/SAPMZYCA012                        0101

DYNP /PWS/SAPMZYCA012                        0102

DYNP /PWS/SAPMZYCA012                        0107

REPS /PWS/MZYCA011TOP

REPS /PWS/LZYCAGFF01

REPS /PWS/LZYCAGFO01

REPS /PWS/MZYCA011F01

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

Modificações efetuadas em DOMD /PWS/ZYCAD026

Alterar Número de posições: 10

Alterar Comprimento de saída: 10

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

Modificações efetuadas em DOMD /PWS/ZYCAD024

Alterar Número de posições: 10

Alterar Comprimento de saída: 10

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

Modificações efetuadas em FUNC /PWS/ZYCA_RETORNO_SISCOSERV

...

    IF sy-subrc EQ 0.

      MOVE-CORRESPONDING wa_zycat038 TO /pws/zycat038.

      MOVE wa_zycat034-nrseq TO v_identificador.

      PERFORM carrega_log USING '/PWS/ZYCAT038'

                                'U'

                                sy-tcode

                                v_funcionalidade

                                v_identificador.

    ENDIF.

    CASE i_processo.

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

      WHEN 'IRAS' OR 'IRVS'.

* << Fim da exclusão

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

      WHEN 'IRAS' OR 'IRVS' OR 'ERAS' OR 'ERVS'.

* << Fim da inclusão

        READ TABLE itab_zycat034 INTO wa_zycat034

          WITH KEY nrseq_arq = i_nrseq_arq.

        IF sy-subrc EQ 0.

          SELECT SINGLE * FROM /pws/zycat030

            INTO wa_zycat030

            WHERE nrseq = wa_zycat034-nrseq.

          IF sy-subrc EQ 0.

            IF NOT i_status IS INITIAL.

              wa_zycat030-status = i_status.

              SELECT * FROM /pws/zycat031

...

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

Modificações efetuadas em REPS /PWS/MZYCA011TOP

program  /pws/sapmzyca011 message-id /pws/zycbm.

type-pools:cxtab.

tables: /pws/zycat030,

        /pws/zycat031,

        /pws/zycat032,

        /pws/zycat033,

* >> Início da inclusão:

        /pws/zycat034,

* << Fim da inclusão

        /pws/zycat037,

        /pws/zycat038,

        /pws/zycat039,

        /pws/zycat044,

        /pws/zycit001,

        /pws/zycet001,

        ekpo.

types:

  begin of ty_zycat031t.

        include structure /pws/zycat031.

...

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

Modificações efetuadas em REPS /PWS/LZYCAGFF01

...

  ELSEIF NOT p_zycat039-fat_exp IS INITIAL.

    attrib_value = p_zycat039-fat_exp.

  ENDIF.

  CONDENSE attrib_value.

  IF p_processo = 'IRP'.

    CALL METHOD document->create_simple_element

         EXPORTING

            name      = 'IdPagamentoEmpresa'

            value     = attrib_value

            parent    = element_principal.

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

  elseif p_processo = 'IRF'.

* << Fim da inclusão

    CALL METHOD document->create_simple_element

         EXPORTING

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

            name      = 'NumeroPagamento'

* << Fim da exclusão

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

            name      = 'IdFaturaEmpresa'

* << Fim da inclusão

            value     = attrib_value

            parent    = element_principal.

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

  ELSEIF p_processo = 'IRF'.

* << Fim da exclusão

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

  endif.

  clear attrib_value.

  attrib_value = p_zycat039-num_nf.

  condense attrib_value.

  if p_processo = 'IRP'.

* << Fim da inclusão

    CALL METHOD document->create_simple_element

         EXPORTING

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

            name      = 'IdFaturaEmpresa'

* << Fim da exclusão

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

            name      = 'NumeroPagamento'

* << Fim da inclusão

            value     = attrib_value

            parent    = element_principal.

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

  elseif p_processo = 'IRF'.

* << Fim da inclusão

    CALL METHOD document->create_simple_element

         EXPORTING

            name      = 'NumeroFatura'

            value     = attrib_value

            parent    = element_principal.

  ENDIF.

  CONCATENATE p_zycat039-dt_pg_rec(4) p_zycat039-dt_pg_rec+4(2)

    p_zycat039-dt_pg_rec+6(2) INTO attrib_value SEPARATED BY '-'.

  CONDENSE attrib_value.

  IF p_processo = 'IRP'.

...

...

    CLEAR: wa_zycat038_alv, wa_zycat040.

  ENDLOOP.

ENDFORM.

FORM handle_hotspot_click_log

  USING value(row_id)    LIKE lvc_s_roid-row_id

        value(fieldname) LIKE lvc_s_col-fieldname.

  DATA: wa_zycat038 TYPE /pws/zycat038,

        v_indice    TYPE /pws/zycat038-indice_xml.

  CLEAR wa_zycat038.

  REFRESH it_xml.

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

  sort itab_zycat038 by nrseq_arq ascending.

* << Fim da inclusão

  READ TABLE itab_zycat038 INDEX row_id INTO wa_zycat038.

  v_indice = wa_zycat038-indice_xml.

  IMPORT it_xml TO it_xml

       FROM DATABASE /pws/zycat035(ca)

       ID v_indice.

  IF NOT it_xml[] IS INITIAL.

    CALL SCREEN 0002 STARTING AT 01 01.

  ELSE.

    MESSAGE i015(/pws/zycbm) WITH text-003.

  ENDIF.

...

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

Modificações efetuadas em REPS /PWS/LZYCAGFO01

...

      where nrseq = wa_zycat030-nrseq.                  "#EC CI_NOFIRST

    if sy-subrc eq 0.

      select * from /pws/zycat038

        into table itab_zycat038

        for all entries in itab_zycat034

        where nrseq_arq = itab_zycat034-nrseq_arq.

    endif.

    perform monta_fieldcat

      tables itab_fieldcatalog

      using  wa_zycat030.

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

    sort itab_zycat038 by nrseq_arq ascending.

* << Fim da inclusão

    perform monta_dados

      tables itab_zycat038

             itab_zycat038_alv

      using  wa_zycat030-tp_processo.

    refresh itab_zycat038_ant.

    itab_zycat038_ant[] = itab_zycat038_alv[].

    wa_layout-zebra      = 'X'.

    wa_layout-sel_mode   = ''.

    wa_layout-cwidth_opt = 'X'.

    wa_layout-grid_title = text-005.

...

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

Modificações efetuadas em REPS /PWS/MZYCA011F01

...

                                    'U'

                                    sy-tcode

                                    v_funcionalidade

                                    v_identificador.

        ENDIF.

      ENDIF.

    ENDLOOP.

  ENDIF.

ENDFORM.

FORM grava_xml_criacao_ras_rvs.

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

  data: itab_zycat034 type table of /pws/zycat034,

        itab_zycat038 type table of /pws/zycat038.

  select * from /pws/zycat034

    into table itab_zycat034

    where nrseq = /pws/zycat030-nrseq.

  if sy-subrc eq 0.

    select * from /pws/zycat038

      into table itab_zycat038

      for all entries in itab_zycat034

      where nrseq_arq = itab_zycat034-nrseq_arq.

    delete itab_zycat038

      where processo ne 'IRAS' and processo ne 'IRVS'.

    delete itab_zycat038 where not prot_transm is initial.

    delete itab_zycat038 where not status      is initial.

    v_identificador = /pws/zycat030-nrseq.

    loop at itab_zycat038 into /pws/zycat038.

      read table itab_zycat034 into /pws/zycat034

        with key nrseq_arq = /pws/zycat038-nrseq_arq.

      perform carrega_log using '/PWS/ZYCAT034'

                                'D'

                                sy-tcode

                                v_funcionalidade

                                v_identificador.

      delete /pws/zycat034 from /pws/zycat034.

      perform carrega_log using '/PWS/ZYCAT038'

                                'D'

                                sy-tcode

                                v_funcionalidade

                                v_identificador.

      delete /pws/zycat038 from /pws/zycat038.

    endloop.

  endif.

* << Fim da inclusão

  CLEAR: v_processo.

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

    v_processo = 'IRVS'.

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

    v_processo = 'IRAS'.

  ENDIF.

  CALL FUNCTION '/PWS/ZYCA_GERA_XML_SISCOSERV'

       EXPORTING

            i_processo = v_processo

            i_zycat030 = /pws/zycat030

...

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

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

Solicitar o download da tela junto a equipe de produtos do pw.CE - Câmbio

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

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

Solicitar o download da tela junto a equipe de produtos do pw.CE - Câmbio

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

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

Solicitar o download da tela junto a equipe de produtos do pw.CE - Câmbio

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

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

Solicitar o download da tela junto a equipe de produtos do pw.CE - Câmbio

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

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

Solicitar o download da tela junto a equipe de produtos do pw.CE - Câmbio