GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV
,
WEBDEV
e
WINDEV Mobile
Inicio
|
Mensagens recentes
|
Conecte-se...
|
Disconnect
|
Português
Inicio
→
WINDEV 25
→
Erro ao criar XML via XSD
Erro ao criar XML via XSD
Iniciado por ANGELOREIS, ago., 18 2015 5:38 PM - 1 resposta
Conecte-se…
ANGELOREIS
#1
Membro registado
44 mensagems
Popularité : +7 (7 votes)
Publicado em agosto, 18 2015 - 5:38 PM
Olá amigos!
Estou com uma rotina para NFeS é quando vou gerar o XML da RPS ele me dá o seguinte erro!
Error
at line
55
of
GLOBAL Procedure
GerarXmlLoteRps
Process
.
XMLSave
FUNCTION
called
.
The XML document has several roots
,
it cannot be saved
.
----- Technical Information -----
Project
:
NFES_WS_CLIENT
WL call
:
Process
of
'
GLOBAL Procedure
GerarXmlLoteRps
' (
COL_
GlobalProcedures.GerarXmlLoteRps
)
,
line
55
,
thread
0
'
XMLSave
'
FUNCTION
,
syntax
1
What happened
?
The XML document has several roots
,
it cannot be saved
.
Error
code
:
40074
Level
:
fatal
Error
(
EL_FATAL
)
Dump of the
Error
of
'
wd200xml.dll
'
module
(
20.0
.
31.0
)
.
Debugging information
:
FONCTION
(
4
,
44
)
Additional Information
:
EIT_PILEWL
:
GLOBAL Procedure
GerarXmlLoteRps
(
COL_
GlobalProcedures.GerarXmlLoteRps
)
,
line
55
EIT_DATEHEURE
:
18
/
08
/
2015 12
:
36
:
10
o principal é isto aqui que ainda não entendi muito bem
olhe como fica meu trecho de código
XMLRPS is
XMLDocument
<
Description
=
"ReqEnvioLoteRPS.ReqEnvioLoteRPS"
>
NameRPS is
XMLNamespace
n
NodeRPS is dynamic
xmlNode
n
NodeRPS
=
XMLRPS.Lote
XMLRPS
..
Encoding
=
"UTF-8"
XMLRPS
..
Version
=
"1.0"
NameRPS
..
Name
=
"xsi"
NameRPS
..
URI
=
"http://www.issdigitalbel.com.br/WsNFe2/LoteRps.jws?wsdl"
Add
(
n
NodeRPS
..
NamespaceDeclared
,
NameRPS
)
n
NodeRPS
:
noNamespaceSchemaLocation
..
Value
=
"ReqEnvioLoteRPS.xsd"
n
NodeRPS
:
noNamespaceSchemaLocation
..
Namespace
=
NameRPS
HReadSeek
(
rps
,
CodRps
,
n
Rps
)
IF
HFound
(
rps
) =
True
THEN
// cabeçalho do XML
XMLRPS.Cabecalho.CodCidade
=
rps.CidadeTomador
XMLRPS.Cabecalho.CPFCNPJRemetente
=
rps.CpfCnpjTomador
XMLRPS.Cabecalho.RazaoSocialRemetente
=
rps.RazaoSocialTomador
XMLRPS.Cabecalho.transacao
=
"true"
XMLRPS.Cabecalho.dtInicio
=
DateToString
(
DateSys
(
)
,
"YYYY-MM-DD"
)
XMLRPS.Cabecalho.dtFim
=
DateToString
(
DateSys
(
)
,
"YYYY-MM-DD"
)
XMLRPS.Cabecalho.QtdRPS
=
""
XMLRPS.Cabecalho.ValorTotalServicos
=
Val
(
rps.ValorINSS
)
XMLRPS.Cabecalho.ValorTotalDeducoes
=
Val
(
rps.ValorPis
)
XMLRPS.Cabecalho.Versao
=
1
XMLRPS.Cabecalho.MetodoEnvio
=
"WS"
//corpo do XML
XMLRPS.Lote
:
Id
=
rps.NumeroLote
XMLRPS.Lote.RPS
:
Id
=
rps.NumeroRps
XMLRPS.Lote.RPS.Assinatura
=
rps.Assinatura
XMLRPS.Lote.RPS.InscricaoMunicipalPrestador
=
rps.InscricaoMunicipalPrestador
XMLRPS.Lote.RPS.RazaoSocialPrestador
=
rps.RazaoSocialPrestador
XMLRPS.Lote.RPS.TipoRPS
=
rps.TipoRps
XMLRPS.Lote.RPS.SerieRPS
=
rps.SerieRps
XMLRPS.Lote.RPS.NumeroRPS
=
rps.NumeroRps
XMLRPS.Lote.RPS.DataEmissaoRPS
=
rps.DataEmissaoRps
XMLSave
(
XMLRPS
,
gPastaEnvio
+
[
fSep
(
)
]
+
n
Rps
+
"_assinc.xml"
)
ShellExecute
(
gPastaEnvio
+
[
fSep
(
)
]
+
n
Rps
+
"_assinc.xml"
)
END
agradeço a atenção de todos!
--
Analista de Sistemas Jr
Assessor de Comunicação
Fotografo nas horas Vagas
Pai da Alícia e Marido da Andréa <3
Denunciar
0
0
ANGELOREIS
#2
Membro registado
44 mensagems
Popularité : +7 (7 votes)
Publicado em agosto, 27 2015 - 10:15 PM
UP!
--
Analista de Sistemas Jr
Assessor de Comunicação
Fotografo nas horas Vagas
Pai da Alícia e Marido da Andréa <3
Denunciar
0
0
→ Voltar para WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Tipo de Pesquisa
Apenas tópicos
Todas as mensagens
Período de pesquisa
Qualquer momento
Última hora
Últimas 24 horas
Semana passada
Mês passado
Ano passado
Cancelar
Pré-visualização da sua mensagem
Adicionar imagem
Importar uma imagem de uma URL
Enviar uma imagem a partir do seu disco
Deixe um ficheiro ou clique em "Procurar ..."
ou
Cancelar
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Texto