ERRO NESTE CODIGO
Public Function VerConsultaCadastroClass(XmlNfeDadosMsg As String) As Object
Dim ArqXMLRetorno As String = ConfiguracaoApp.vPastaXMLRetorno & [Ô]\[Ô] & Me.ExtrairNomeArq(XmlNfeDadosMsg, ExtXml.ConsCad) & [Ô]-ret-cons-cad.xml[Ô]
Dim ArqERRRetorno As String = ConfiguracaoApp.vPastaXMLRetorno & [Ô]\[Ô] & Me.ExtrairNomeArq(XmlNfeDadosMsg, ExtXml.ConsCad) & [Ô]-ret-cons-cad.err[Ô]
Dim vRetorno As Object = Nothing
Try
[ô]vRetorno = ProcessaConsultaCadastroClass(@[Ô]c:\usr
fe\uninfe\modelosetorno-cons-cad.txt[Ô]);
vRetorno = EnviaArquivoERecebeResposta(ArqXMLRetorno, ArqERRRetorno, [txt-color=#e80000]AddressOf ProcessaConsultaCadastroClass[/txt-color])
Finally
Me.DeletarArquivo(ArqERRRetorno)
Me.DeletarArquivo(ArqXMLRetorno)
End Try
Return vRetorno
End Function
Public Function ProcessaConsultaCadastroClass(ByVal msXml As MemoryStream) As RetConsCad
Dim doc As New XmlDocument()
doc.Load(msXml)
Return ProcessaConsultaCadastro(doc)
End Function
Private Shared Function ProcessaConsultaCadastroClass(ByVal cArquivoXML As String) As RetConsCad
Dim doc As New XmlDocument()
doc.Load(cArquivoXML)
Return ProcessaConsultaCadastro(doc)
End Function
Private Delegate Function Processa(ByVal cArquivoXML As String) As Object
ERRO
Error 2 No accessible method [ô]ProcessaConsultaCadastroClass[ô] matches the signature of delegate [ô]Delegate Function Processa(cArquivoXML As String) As Object[ô]:
[ô]Public Function ProcessaConsultaCadastroClass(msXml As System.IO.MemoryStream) As UniNFeLibrary.RetConsCad[ô]: Method [ô]Public Function ProcessaConsultaCadastroClass(msXml As System.IO.MemoryStream) As UniNFeLibrary.RetConsCad[ô] does not have the same signature as delegate [ô]Delegate Function Processa(cArquivoXML As String) As Object[ô].
[ô]Private Shared Function ProcessaConsultaCadastroClass(cArquivoXML As String) As UniNFeLibrary.RetConsCad[ô]: Method [ô]Private Shared Function ProcessaConsultaCadastroClass(cArquivoXML As String) As UniNFeLibrary.RetConsCad[ô] does not have the same signature as delegate [ô]Delegate Function Processa(cArquivoXML As String) As Object[ô]. E:\Consulta Status WS Cte\UniNFeLibrary\Classes\Auxiliar.vb 851 92 UniNFeLibrary.Converted
AGRADEÇO DESDE JA A AJUDA
Dim ArqXMLRetorno As String = ConfiguracaoApp.vPastaXMLRetorno & [Ô]\[Ô] & Me.ExtrairNomeArq(XmlNfeDadosMsg, ExtXml.ConsCad) & [Ô]-ret-cons-cad.xml[Ô]
Dim ArqERRRetorno As String = ConfiguracaoApp.vPastaXMLRetorno & [Ô]\[Ô] & Me.ExtrairNomeArq(XmlNfeDadosMsg, ExtXml.ConsCad) & [Ô]-ret-cons-cad.err[Ô]
Dim vRetorno As Object = Nothing
Try
[ô]vRetorno = ProcessaConsultaCadastroClass(@[Ô]c:\usr
fe\uninfe\modelosetorno-cons-cad.txt[Ô]);
vRetorno = EnviaArquivoERecebeResposta(ArqXMLRetorno, ArqERRRetorno, [txt-color=#e80000]AddressOf ProcessaConsultaCadastroClass[/txt-color])
Finally
Me.DeletarArquivo(ArqERRRetorno)
Me.DeletarArquivo(ArqXMLRetorno)
End Try
Return vRetorno
End Function
Public Function ProcessaConsultaCadastroClass(ByVal msXml As MemoryStream) As RetConsCad
Dim doc As New XmlDocument()
doc.Load(msXml)
Return ProcessaConsultaCadastro(doc)
End Function
Private Shared Function ProcessaConsultaCadastroClass(ByVal cArquivoXML As String) As RetConsCad
Dim doc As New XmlDocument()
doc.Load(cArquivoXML)
Return ProcessaConsultaCadastro(doc)
End Function
Private Delegate Function Processa(ByVal cArquivoXML As String) As Object
ERRO
Error 2 No accessible method [ô]ProcessaConsultaCadastroClass[ô] matches the signature of delegate [ô]Delegate Function Processa(cArquivoXML As String) As Object[ô]:
[ô]Public Function ProcessaConsultaCadastroClass(msXml As System.IO.MemoryStream) As UniNFeLibrary.RetConsCad[ô]: Method [ô]Public Function ProcessaConsultaCadastroClass(msXml As System.IO.MemoryStream) As UniNFeLibrary.RetConsCad[ô] does not have the same signature as delegate [ô]Delegate Function Processa(cArquivoXML As String) As Object[ô].
[ô]Private Shared Function ProcessaConsultaCadastroClass(cArquivoXML As String) As UniNFeLibrary.RetConsCad[ô]: Method [ô]Private Shared Function ProcessaConsultaCadastroClass(cArquivoXML As String) As UniNFeLibrary.RetConsCad[ô] does not have the same signature as delegate [ô]Delegate Function Processa(cArquivoXML As String) As Object[ô]. E:\Consulta Status WS Cte\UniNFeLibrary\Classes\Auxiliar.vb 851 92 UniNFeLibrary.Converted
AGRADEÇO DESDE JA A AJUDA
Mala....
Pelo que entendi esta faltando vc passar o parametro para a funcao....
Pelo que entendi esta faltando vc passar o parametro para a funcao....
Mais uma coisa....
é possivel passar uma função como parametro para outra???? eu acredito que nao...
Entendo que vc teria que armazenar o resultado da funcao em uma varialvel e depois passa-la como parametro para a outra...
é possivel passar uma função como parametro para outra???? eu acredito que nao...
Entendo que vc teria que armazenar o resultado da funcao em uma varialvel e depois passa-la como parametro para a outra...
Tópico encerrado , respostas não são mais permitidas