CE PLUS - Nota 012933

Módulo: CÂMBIO FINANCEIRO

Funcionalidade: SISCOSERV

Data/Hora da Publicação: 25/04/2013 10:51:30

Data/Hora Última Alteração: 25/04/2013 10:51:30

Descrição da Nota: SISCOSERV - ASSOCIAÇÃO

Sintoma

O programa de Associação de RAS/RVS está gerando o XML de Faturamento e Pagamento com problemas nas

TAG'S abaixo:

- TAG Data fora do formato solicitado pela MDIC;

- TAG VME sendo carregado sem valor preenchido;

- TAG RE sendo carregado sem valor preenchido;

- TAG DI sendo carregada sem valor preenchido

 

 

Solução

A geração do XML foi ajustada para se adequar corretamente ao XSD da MDIC

 

Versões Tratadas

9.0


Pré-Requisitos

Produto:

Nota

Descrição

SISCOSERV - GERAÇÃO XML

Informações Complementares

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

Nota Número 12933 Data: 25/04/2013 Hora: 10:27:42

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

 

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

Nota Número              : 12933

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 9.0

Pacote                   : 00004

Agrupamento              : 00153

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

Referência às notas relacionadas:

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

 

12855  - 00001 - 9.0    - 00004 - SISCOSERV - GERAÇÃO XML

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

Texto Rápido:

SISCOSERV - ASSOCIAÇÃO

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

Palavras Chave:

SISCOSERV - ASSOCIAÇÃO

 

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

Objetos da nota:

REPS /PWS/LZYCAGFF01

 

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

Modificações efetuadas em REPS /PWS/LZYCAGFF01

 

...

         exporting

            name      = 'IdFaturaEmpresa'

            value     = attrib_value

            parent    = element_principal.

    call method document->create_simple_element

         exporting

            name      = 'NumeroFatura'

            value     = attrib_value

            parent    = element_principal.

  endif.

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

  concatenate p_zycat039-dt_pg_rec+6(2) p_zycat039-dt_pg_rec+4(2)

    p_zycat039-dt_pg_rec(4) into attrib_value separated by '-'.

* << Fim da exclusão

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

  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 '-'.

* << Fim da inclusão

  condense attrib_value.

  if p_processo = 'IRP'.

    call method document->create_simple_element

         exporting

            name      = 'DataPagamento'

            value     = attrib_value

            parent    = element_principal.

    call method document->create_simple_element

         exporting

            name      = 'ItemPagamento'

...

 

...

            name      = 'ValorPago'

            value     = attrib_value

            parent    = element_operacao.

  elseif p_processo = 'IRF'.

    call method document->create_simple_element

         exporting

            name      = 'ValorFaturado'

            value     = attrib_value

            parent    = element_operacao.

  endif.

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

  IF NOT p_zycat039-vme IS INITIAL.

* << Fim da inclusão

  attrib_value = p_zycat039-vme.

  condense attrib_value.

  if p_processo = 'IRP'.

    call method document->create_simple_element

         exporting

            name      = 'ValorPagoRecMantidoExt'

            value     = attrib_value

            parent    = element_operacao.

  elseif p_processo = 'IRF'.

    call method document->create_simple_element

         exporting

            name      = 'ValorMantidoExterior'

            value     = attrib_value

            parent    = element_operacao.

  endif.

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

  ENDIF.

  IF NOT p_zycat039-re IS INITIAL.

* << Fim da inclusão

  attrib_value = p_zycat039-re.

  condense attrib_value.

  call method document->create_simple_element

       exporting

          name      = 'VinculacaoNumRE'

          value     = attrib_value

          parent    = element_principal.

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

  ENDIF.

  IF NOT p_zycat039-di IS INITIAL.

* << Fim da inclusão

  attrib_value = p_zycat039-di.

  condense attrib_value.

  call method document->create_simple_element

       exporting

          name      = 'VinculacaoNumDI'

          value     = attrib_value

          parent    = element_principal.

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

  ENDIF.

* << Fim da inclusão

endform.

form xml_cancela_fatura_pgto

  using    p_zycat030 structure /pws/zycat030

           p_zycat039 structure /pws/zycat039

           p_processo

  changing document           type ref to if_ixml_document

           element_principal  type ref to if_ixml_element.

  data: itab_zycat034    type standard table of /pws/zycat034,

        itab_zycat038    type standard table of /pws/zycat038,

        wa_zycat038      type /pws/zycat038.

...