Erro na validação de XML de serviço
Enviado: 25 Abr 2019 12:35
O erro ocorre nesta linha:
oSchema:Add( "http://www.abrasf.org.br/nfse", cSchemaFilename )
Error: 1001
SubC: 3
OSCode: 0
Subsystem: MSXML2.ServerXMLHTTP.6.0
DISP_E_MEMBERNOTFOUND
Estou a dois dias procurando uma solução, mais não acho!
Alguém tem ideia de como posso resolver isso?
Desde já agradeço.
oSchema:Add( "http://www.abrasf.org.br/nfse", cSchemaFilename )
Error: 1001
SubC: 3
OSCode: 0
Subsystem: MSXML2.ServerXMLHTTP.6.0
DISP_E_MEMBERNOTFOUND
Estou a dois dias procurando uma solução, mais não acho!
Alguém tem ideia de como posso resolver isso?
Desde já agradeço.
Código: Selecionar todos
oSchema:= CreateObject( "MSXML2.ServerXMLHTTP.6.0" )
cSchemaFilename := diskName() + ":\" + CurDir() + "\Schemas\nfsev202.xsd"
IF ! File( cSchemaFilename )
RETURN msgErro( "Schema não encontrado " + cSchemaFilename )
ENDIF
TRY
oSchema:Add( "http://www.abrasf.org.br/nfse", cSchemaFilename )
CATCH oError
cMsgErro := "Falha " + CRLF + ;
"Error: " + Transform(oError:GenCode, nil) + ";" +CRLF+ ;
"SubC: " + Transform(oError:SubCode, nil) + ";" +CRLF+ ;
"OSCode: " + Transform(oError:OsCode, nil) + ";" +CRLF+ ;
"SubSystem: " + Transform(oError:SubSystem, nil) + ";" +CRLF+ ;
"Mensangem: " + oError:Description
RETURN msgErro(cMsgErro)
END