Sintoma

O programa está enviando zeros a esquerda na tag de XML

Solução

O programa foi ajustado para desconsiderar os zeros a esquerda com os mesmos estiverem presentes no

cadastro

Informações Complementares

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

Nota Número 13483 Data: 02/12/2013 Hora: 15:28:20

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

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

Nota Número              : 13483

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 9.0

Pacote                   : 00006

Agrupamento              : 00166

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

Referência às notas relacionadas:

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

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

SISCOSERV - XML

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

Palavras Chave:

SISCOSERV - XML

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

Objetos da nota:

REPS /PWS/LZYCAGFF01

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

Modificações efetuadas em REPS /PWS/LZYCAGFF01

...

FORM xml_operacao TABLES   p_zycat032 STRUCTURE /pws/zycat032

                  USING    p_zycat031 STRUCTURE /pws/zycat031

                           p_processo

                 CHANGING document          TYPE REF TO if_ixml_document

                          element_principal TYPE REF TO if_ixml_element

                          element_operacao TYPE REF TO if_ixml_element

                          element_enquad   TYPE REF TO if_ixml_element

                          element_re_di    TYPE REF TO if_ixml_element.

  DATA: v_data(10) TYPE c,

        v_subrc    TYPE sy-subrc.

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

  data: v_nbs(9) type c.

* << Fim da inclusão

  CALL METHOD document->create_simple_element

       EXPORTING

          name      = 'Operacao'

          parent    = element_principal

       RECEIVING

          rval      = element_operacao.

  attrib_value = p_zycat031-operacao.

  CONDENSE attrib_value.

  IF p_processo = 'IRVS' OR

     p_processo = 'IARVS'.

...

...

         EXPORTING

            name      = 'NumeroServAdqEmpresa'

            value     = attrib_value

            parent    = element_operacao.

  ENDIF.

  WHILE v_subrc IS INITIAL.

    REPLACE '.' WITH space INTO p_zycat031-nbs.

    v_subrc = sy-subrc.

  ENDWHILE.

  CONDENSE p_zycat031-nbs NO-GAPS.

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

  attrib_value = p_zycat031-nbs.

* << Fim da exclusão

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

  shift p_zycat031-nbs right deleting trailing space.

  v_nbs = p_zycat031-nbs+11(9).

  attrib_value = v_nbs.

* << Fim da inclusão

  CONDENSE attrib_value.

  CALL METHOD document->create_simple_element

       EXPORTING

          name      = 'CodigoNbs'

          value     = attrib_value

          parent    = element_operacao.

  attrib_value = p_zycat031-cod_pais.

  CONDENSE attrib_value.

  CALL METHOD document->create_simple_element

       EXPORTING

...

...

               p_zycat032_ant STRUCTURE /pws/zycat032

      USING    p_zycat031     STRUCTURE /pws/zycat031

               p_processo

      CHANGING document          TYPE REF TO if_ixml_document

               element_principal TYPE REF TO if_ixml_element

               element_operacao TYPE REF TO if_ixml_element

               element_enquad   TYPE REF TO if_ixml_element

               element_re_di    TYPE REF TO if_ixml_element.

  DATA: v_data(10) TYPE c,

        v_subrc    TYPE sy-subrc.

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

  data: v_nbs(9) type c.

* << Fim da inclusão

  READ TABLE p_zycat031_ant WITH KEY operacao = p_zycat031-operacao.

  IF p_zycat031_ant NE p_zycat031.

    CALL METHOD document->create_simple_element

         EXPORTING

            name      = 'Operacao'

            parent    = element_principal

         RECEIVING

            rval      = element_operacao.

    attrib_value = p_zycat031-operacao.

    CONDENSE attrib_value.

...

...

              name      = 'NumeroServAdqEmpresa'

              value     = attrib_value

              parent    = element_operacao.

    ENDIF.

    IF p_zycat031_ant-nbs NE p_zycat031-nbs.

      WHILE v_subrc IS INITIAL.

        REPLACE '.' WITH space INTO p_zycat031-nbs.

        v_subrc = sy-subrc.

      ENDWHILE.

      CONDENSE p_zycat031-nbs NO-GAPS.

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

      attrib_value = p_zycat031-nbs.

* << Fim da exclusão

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

      shift p_zycat031-nbs right deleting trailing space.

      v_nbs = p_zycat031-nbs+11(9).

      attrib_value = v_nbs.

* << Fim da inclusão

      CONDENSE attrib_value.

      CALL METHOD document->create_simple_element

           EXPORTING

              name      = 'CodigoNbs'

              value     = attrib_value

              parent    = element_operacao.

    ENDIF.

    IF p_zycat031_ant-cod_pais NE p_zycat031-cod_pais.

      attrib_value = p_zycat031-cod_pais.

      CONDENSE attrib_value.

...