DESSERIALIZANDO - XML - CLASSES

Citação:

:
:
Como diria Jack, o estripador: Vamos por partes.
Você entende o que esse código faz?

hsuhsushuashas,
entendo, ele armazena todas os dados do XML. qnd faz a desserialização.
porem, não consegui adaptar ao meu codigo conforme seu video.

agora, tava pensando se eu achasse um XML Completaço, eu resolveria tudo. pq eu criaria no VIsual Studio todas as classe no Cole Special.

oq vc me surgere Kerplunk?

Citação:

:
Então, eu aprendi com o KERPLUNK,
Tive esse mesmo problema mas criei as classes que faltavam tudo na unha mesmo, peguei o manual da Nfe e observei as que faltavam e criei, alguma coisa deve ter ficado de fora.
Disponibilizei um arquivo aqui no vbmania com essa classe que criei.
KERPLUNK,
Onde encontrou essa classe, se na época eu tivesse, teria sido mais fácil, Obrigado.
olhando assim por cima, percebi que a unica diferença esta no nome dados as classes, exemplo: TNFeInfNFeTranspTransporta e eu tenho NFeInfNFeTranspTransporta.

Classe que disponibilizei

public class Cliente
{
    public int Codigo {get; set;}
    public string Nome {get; set;}
    public DateTime? DataCadastro {get; set;}
    public bool Ativo {get;set;}
}

<Cliente>
    <Codigo>99</Codigo>
    <Nome>Paulinho da Silva</Nome>
    <DataCadastro>2002-09-24+06:00</DataCadastro>
    <Ativo>true</Ativo>
</Cliente>

<xs:schema attributeFormDefault=[Ô]unqualified[Ô] elementFormDefault=[Ô]qualified[Ô] xmlns:xs=[Ô]http://www.w3.org/2001/XMLSchema[Ô]>
  <xs:element name=[Ô]Cliente[Ô] type=[Ô]ClienteType[Ô]/>
  <xs:complexType name=[Ô]ClienteType[Ô]>
    <xs:sequence>
      <xs:element type=[Ô]xs:byte[Ô] name=[Ô]Codigo[Ô]/>
      <xs:element type=[Ô]xs:string[Ô] name=[Ô]Nome[Ô]/>
      <xs:element type=[Ô]xs:date[Ô] name=[Ô]DataCadastro[Ô]/>
      <xs:element type=[Ô]xs:boolean[Ô] name=[Ô]Ativo[Ô]/>
    </xs:sequence>
  </xs:complexType>
</xs:schema>

//------------------------------------------------------------------------------
// <auto-generated>
//     O código foi gerado por uma ferramenta.
//     Versão de Tempo de Execução:4.0.30319.42000
//
//     As alterações ao arquivo poderão causar comportamento incorreto e serão perdidas se
//     o código for gerado novamente.
// </auto-generated>
//------------------------------------------------------------------------------

using System.Xml.Serialization;

// 
// This source code was auto-generated by xsd, Version=4.6.1055.0.
// 


/// <remarks/>
[System.CodeDom.Compiler.GeneratedCodeAttribute([Ô]xsd[Ô], [Ô]4.6.1055.0[Ô])]
[System.SerializableAttribute()]
[System.Diagnostics.DebuggerStepThroughAttribute()]
[System.ComponentModel.DesignerCategoryAttribute([Ô]code[Ô])]
[System.Xml.Serialization.XmlRootAttribute([Ô]Cliente[Ô], Namespace=[Ô][Ô], IsNullable=false)]
public partial class ClienteType {
    
    private sbyte codigoField;
    
    private string nomeField;
    
    private System.DateTime dataCadastroField;
    
    private bool ativoField;
    
    /// <remarks/>
    public sbyte Codigo {
        get {
            return this.codigoField;
        }
        set {
            this.codigoField = value;
        }
    }
    
    /// <remarks/>
    public string Nome {
        get {
            return this.nomeField;
        }
        set {
            this.nomeField = value;
        }
    }
    
    /// <remarks/>
    [System.Xml.Serialization.XmlElementAttribute(DataType=[Ô]date[Ô])]
    public System.DateTime DataCadastro {
        get {
            return this.dataCadastroField;
        }
        set {
            this.dataCadastroField = value;
        }
    }
    
    /// <remarks/>
    public bool Ativo {
        get {
            return this.ativoField;
        }
        set {
            this.ativoField = value;
        }
    }
}

   Dim ser As New XmlSerializer(GetType(cls_Kerplunk.TNFe))
        Dim textReader As TextReader = DirectCast(New StreamReader(txtArquivo.Text), TextReader)
        Dim reader As New XmlTextReader(textReader)
        reader.Read()

        Dim nota As cls_Kerplunk.TNFe = DirectCast(ser.Deserialize(reader), cls_Kerplunk.TNFe) 

Citação:

:
A chave para entender é nessa linha: GetType(Ler_XML_NFe.nfeProc)
Esse tipo [Ô]nfeProc[Ô], não parece ser o tipo correto...

   Dim ser As New XmlSerializer(GetType(cls_Kerplunk.TNFe))
        Dim textReader As TextReader = DirectCast(New StreamReader(txtArquivo.Text), TextReader)
        Dim reader As New XmlTextReader(textReader)
        reader.Read()

        Dim nota As cls_Kerplunk.TNFe = DirectCast(ser.Deserialize(reader), cls_Kerplunk.TNFe)