Erro na validação de XML de serviço

[marcio.cezar]

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.

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

[Kapiaba]

Veja se ajuda:

https://pctoledo.org/forum/viewto ... 5&start=30

[marcio.cezar]

Infelizmente não... erros diferentes!

[JoséQuintas]

Estou a dois dias procurando uma solução, mais não acho!
Alguém tem ideia de como posso resolver isso?

Sim, fazendo certo.

LEIA a linha e a mensagem de erro.

Ao que parece, tá tentando validar um XML, mas está usando um componente de comunicação.

A solução: sei lá, não sei se quer validar, se quer transmitir, ou se de repente quer outra coisa que não tem nada a ver com as duas.

[marcio.cezar]

Como o tópico diz... estou querendo realizar a validação do XML.

Se não for desta forma, gostaria da ajuda dos colegas pra solucionar este problema.

Desde já, agradeço!

[JoséQuintas]

Dá uma olhada na função DomDocValida()

https://github.com/JoseQuintas/sefazcla ... zclass.prg