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