NFE X VEICULO

ANTONIOFCS 13/12/2011 13:02:17
#391238
bom dia pessoal,

estou levando uma sura pra inserir uma tag no xml referente a venda de veiculo.
a tag veicProd, onde coloco os dados do veiculo.
exemplo:
o que tenho
-<det nItem=[Ô]1[Ô]>
-<prod>
</prod>
o que devo ter
-<det nItem=[Ô]1[Ô]>
-<prod>
-<veicProd>

</veicProd>
</prod>

o fonte que estou usando é o do VbMania o qual esta em anexo.
ao colocar os dado do veiculo conforme abaixo.
DtVeic = New veicProd
DtVeic.tpOp = 1
DtVeic.chassi = [Ô]LXYXCBL0790209941[Ô]
DtVeic.cCor = [Ô]PRET[Ô]
DtVeic.xCor = [Ô]PRETA[Ô]
DtVeic.pot = [Ô]32c[Ô]
DtVeic.CM3 = [Ô]49cc[Ô]
DtVeic.pesoL = 70
DtVeic.pesoB = 70
DtVeic.nSerie = 1
DtVeic.tpComb = 2
DtVeic.nMotor = [Ô]1P39FMB 9C052613[Ô]
DtVeic.CMKG = [Ô]2.5Nm[Ô]
DtVeic.dist = [Ô]1.16[Ô]
DtVeic.anoMod = 2009
DtVeic.anoFab = 2009
DtVeic.tpPint = [Ô]N[Ô]
DtVeic.tpVeic = 2
DtVeic.espVeic = 1
DtVeic.VIN = [Ô]N[Ô]
DtVeic.condVeic = 1
DtVeic.cMod = 30717

detalhamento.Prod.VeicProd.Add(DtVeic)
tenho a msg conforme img anexa.
valeu?
KERPLUNK 13/12/2011 13:51:24
#391246
A lista VeicProd da classe Prod, é uma lista de NFref e não de veicProd...
ANTONIOFCS 13/12/2011 14:37:52
#391249
como posso reverter, estou voando?
valeu
KERPLUNK 13/12/2011 14:52:45
#391251
Na classe prod, vc com certeza tem uma propriedade assim:
Public Property VeicProd() As List(Of NFref)
Get
Return m_VeicProd
End Get
Set
m_VeicProd = Value
End Set
End Property
Private m_VeicProd As List(Of NFref)

Veja que ela é uma lista de NFref, deveria ser:
Public Property VeicProd() As List(Of veicProd)
Get
Return m_VeicProd
End Get
Set
m_VeicProd = Value
End Set
End Property
Private m_VeicProd As List(Of veicProd)

Mas por favor, tente primeiro entender o que é isso(essa propriedade), pra depois copiar e colar no seu código...
ANTONIOFCS 13/12/2011 15:20:24
#391254
KERPLUNK,
estou colocando abaixo a Class Prod

[ô][ô][ô] <summary>
[ô][ô][ô] TAG de grupo do detalhamento de Produtos e Serviços da NF-e
[ô][ô][ô] </summary>
[ô][ô][ô]

Public Class prod
Private _med As List(Of med)
Private _VeicProd As List(Of veicProd)

Public Sub New()
[ô]vDesc = null;
_med = New List(Of med)()
_VeicProd = New List(Of veicProd)()
End Sub
[ô][ô][ô] <summary>
[ô][ô][ô] Código de produto ou serviço
[ô][ô][ô] Preencher com CFOP, caso se trate de itens não relacionados com mercadorias/produto e que o
[ô][ô][ô] contribuinte não possua codificação própria.
[ô][ô][ô] Formato ”CFOP9999”
[ô][ô][ô] </summary>
Private _cProd As String
Public Property cProd() As String
Get
Return _cProd
End Get
Set(ByVal value As String)
_cProd = value
End Set
End Property
[ô][ô][ô] <summary>
[ô][ô][ô] GTIN (Global Trade Item Number) do produto, antigo código EAN ou código de barras
[ô][ô][ô]
[ô][ô][ô] Preencher com o código GTIN-8, GTIN-12, GTIN-13 ou GTIN-14
[ô][ô][ô] (antigos códigos EAN, UPC e DUN-14), não informar o conteúdo da TAG em caso de o produto não
[ô][ô][ô] possuir este código.
[ô][ô][ô] </summary>

Private _cEAN As String
<Obrigatorio()> _
Public Property cEAN() As String
Get
Return _cEAN
End Get
Set(ByVal value As String)
_cEAN = value
End Set
End Property
[ô][ô][ô] <summary>
[ô][ô][ô] Descrição do produto ou serviço
[ô][ô][ô] </summary>
Private _xProd As String
Public Property xProd() As String
Get
Return _xProd
End Get
Set(ByVal value As String)
_xProd = value
End Set
End Property
[ô][ô][ô] <summary>
[ô][ô][ô] Preencher de acordo com a Tabela de Capítulos da NCM. Em caso deserviço, não incluir a TAG.
[ô][ô][ô] </summary>
Private _NCM As String
Public Property NCM() As String
Get
Return _NCM
End Get
Set(ByVal value As String)
_NCM = value
End Set
End Property
[ô][ô][ô] <summary>
[ô][ô][ô] Preencher de acordo com o código EX da TIPI. Em caso de serviço,não incluir a TAG
[ô][ô][ô] </summary>
Private _EXTIPI As String
Public Property EXTIPI() As String
Get
Return _EXTIPI
End Get
Set(ByVal value As String)
_EXTIPI = value
End Set
End Property
[ô][ô][ô] <summary>
[ô][ô][ô] Gênero do produto ou serviço. Preencher de acordo com a Tabela de Capítulos da NCM. Em caso de serviço, não incluir a TAG.
[ô][ô][ô] </summary>
Private _genero As String
Public Property genero() As String
Get
Return _genero
End Get
Set(ByVal value As String)
_genero = value
End Set
End Property
[ô][ô][ô] <summary>
[ô][ô][ô] Utilizar Tabela de CFOP.
[ô][ô][ô] </summary>
Private _CFOP As String
Public Property CFOP() As String
Get
Return _CFOP
End Get
Set(ByVal value As String)
_CFOP = value
End Set
End Property
[ô][ô][ô] <summary>
[ô][ô][ô] Informar a unidade de comercialização do produto.
[ô][ô][ô] </summary>
Private _uCom As String
Public Property uCom() As String
Get
Return _uCom
End Get
Set(ByVal value As String)
_uCom = value
End Set
End Property
[ô][ô][ô] <summary>
[ô][ô][ô] Informar a quantidade de comercialização do produto
[ô][ô][ô] </summary>
[ô][Formato([Ô]N4[Ô], [Ô]pt-BR[Ô])]
Private _qCom As Decimal
<Formato([Ô]#####0.0000[Ô], [Ô]en-US[Ô])> _
Public Property qCom() As Decimal
Get
Return _qCom
End Get
Set(ByVal value As Decimal)
_qCom = value
End Set
End Property
[ô][ô][ô] <summary>
[ô][ô][ô] Informar o valor unitário de comercialização do produto
[ô][ô][ô] </summary>
[ô][Formato([Ô]N4[Ô], [Ô]pt-BR[Ô])]
Private _vUnCom As Double
<Formato([Ô]#####0.0000[Ô], [Ô]en-US[Ô])> _
Public Property vUnCom() As Double
Get
Return _vUnCom
End Get
Set(ByVal value As Double)
_vUnCom = value
End Set
End Property
[ô][ô][ô] <summary>
[ô][ô][ô] Valor Total Bruto dos Produtos ou Serviços
[ô][ô][ô] </summary>
Private _vProd As Double
Public Property vProd() As Double
Get
Return _vProd
End Get
Set(ByVal value As Double)
_vProd = value
End Set
End Property
[ô][ô][ô] <summary>
[ô][ô][ô] GTIN (Global Trade Item Number) da unidade tributável,antigo código EAN ou código de barras
[ô][ô][ô]
[ô][ô][ô] Preencher com o código GTIN-8, GTIN-12, GTIN-13 ou GTIN-14 (antigos códigos EAN, UPC e DUN-14) da unidade tributável do
[ô][ô][ô] produto, não informar o conteúdo da TAG em caso de o produto não possuir este código.
[ô][ô][ô] </summary>
Private _cEANTrib As String
<Obrigatorio()> _
Public Property cEANTrib() As String
Get
Return _cEANTrib
End Get
Set(ByVal value As String)
_cEANTrib = value
End Set
End Property
[ô][ô][ô] <summary>
[ô][ô][ô] Unidade Tributável
[ô][ô][ô] </summary>
Private _uTrib As String
Public Property uTrib() As String
Get
Return _uTrib
End Get
Set(ByVal value As String)
_uTrib = value
End Set
End Property
[ô][ô][ô] <summary>
[ô][ô][ô] Quantidade Tributável
[ô][ô][ô] </summary>
Private _qTrib As System.Nullable(Of Decimal)
<Formato([Ô]#####0.0000[Ô], [Ô]en-US[Ô])> _
Public Property qTrib() As System.Nullable(Of Decimal)
Get
Return _qTrib
End Get
Set(ByVal value As System.Nullable(Of Decimal))
_qTrib = value
End Set
End Property
[ô][ô][ô] <summary>
[ô][ô][ô] Valor Unitário de tributação
[ô][ô][ô]
[ô][ô][ô] Informar o valor unitário de tributação do produto
[ô][ô][ô] </summary>
Private _vUnTrib As System.Nullable(Of Double)
<Formato([Ô]#####0.0000[Ô], [Ô]en-US[Ô])> _
Public Property vUnTrib() As System.Nullable(Of Double)
Get
Return _vUnTrib
End Get
Set(ByVal value As System.Nullable(Of Double))
_vUnTrib = value
End Set
End Property
[ô][ô][ô] <summary>
[ô][ô][ô] Valor total do frete
[ô][ô][ô] </summary>
Private _vFrete As System.Nullable(Of Double)
Public Property vFrete() As System.Nullable(Of Double)
Get
Return _vFrete
End Get
Set(ByVal value As System.Nullable(Of Double))
_vFrete = value
End Set
End Property
[ô][ô][ô] <summary>
[ô][ô][ô] Valor total do seguro
[ô][ô][ô] </summary>
Private _vSeg As System.Nullable(Of Double)
Public Property vSeg() As System.Nullable(Of Double)
Get
Return _vSeg
End Get
Set(ByVal value As System.Nullable(Of Double))
_vSeg = value
End Set
End Property
[ô][ô][ô] <summary>
[ô][ô][ô] Valor do desconto
[ô][ô][ô] </summary>
Private _vDesc As System.Nullable(Of Double)
Public Property vDesc() As System.Nullable(Of Double)
Get
Return _vDesc
End Get
Set(ByVal value As System.Nullable(Of Double))
_vDesc = value
End Set
End Property

[ô][ô][ô] <summary>
[ô][ô][ô] Valor outros V2.0
[ô][ô][ô] </summary>

Private _vOutro As System.Nullable(Of Double)
<Formato([Ô]#####0.0000[Ô], [Ô]en-US[Ô])> _
Public Property vOutro() As System.Nullable(Of Double)
Get
Return _vOutro
End Get
Set(ByVal value As System.Nullable(Of Double))
_vOutro = value
End Set
End Property

[ô][ô][ô] <summary>
[ô][ô][ô] Este campo deverá ser preenchido com:
[ô][ô][ô]0 – o valor do item (vProd) não compõe o valor total da NF-e (vProd)
[ô][ô][ô]1 – o valor do item (vProd) compõe o valor total da NF-e (vProd) (v2.0)
[ô][ô][ô] </summary>
Private _indTot As Integer
Public Property indTot() As Integer
Get
Return _indTot
End Get
Set(ByVal value As Integer)
_indTot = value
End Set
End Property

Private _Di As DI
Public Property Di() As DI
Get
Return _Di
End Get
Set(ByVal value As DI)
_Di = value
End Set
End Property

Public Property VeicProd() As List(Of veicProd)
Get
Return _VeicProd
End Get
Set(ByVal value As List(Of veicProd))
_VeicProd = value
End Set
End Property

Public Property Med() As List(Of med)
Get
Return _med
End Get
Set(ByVal value As List(Of med))
_med = value
End Set
End Property
Private _Arma As arma
Public Property Arma() As arma
Get
Return _Arma
End Get
Set(ByVal value As arma)
_Arma = value
End Set
End Property
Private _Comb As comb
Public Property Comb() As comb
Get
Return _Comb
End Get
Set(ByVal value As comb)
_Comb = value
End Set
End Property

End Class

da um olhada, o que falta?
value
KERPLUNK 13/12/2011 15:37:12
#391256
Já experimentou depurar o código?
ANTONIOFCS 13/12/2011 15:41:20
#391257
já, só que estou perdido?
KERPLUNK 13/12/2011 16:32:48
#391259
Em qual linha ocorre o erro?
ANTONIOFCS 13/12/2011 17:11:03
#391261


For Each detalhe As det In infNFE.Det
oXmlGravar.WriteStartElement([Ô]det[Ô])
oXmlGravar.WriteAttributeString([Ô]nItem[Ô], detalhe.nItem.ToString())

estea é a linha do erro
objetoParaXML(oXmlGravar, detalhe.Prod, False)

oXmlGravar.WriteStartElement([Ô]imposto[Ô])
objetoParaXML(oXmlGravar, detalhe.Imposto.Icms, False)
objetoParaXML(oXmlGravar, detalhe.Imposto.Ii, False)
objetoParaXML(oXmlGravar, detalhe.Imposto.Ipi, False)
objetoParaXML(oXmlGravar, detalhe.Imposto.Pis, False)
objetoParaXML(oXmlGravar, detalhe.Imposto.Cofins, False)

[ô]fecha TAG imposto...
oXmlGravar.WriteEndElement()
[ô]oXmlGravar.WriteStartElement([Ô]infAdProd[Ô])
[ô]oXmlGravar.WriteString(detalhe.infAdProd)
[ô]oXmlGravar.WriteEndElement()
[ô]fecha TAG det...
oXmlGravar.WriteEndElement()
Next
valeu
KERPLUNK 13/12/2011 17:18:33
#391263
objetoParaXML é muito provavelmente uma function/sub, depure o código nela e veja exatamente em qual linha o erro ocorre...
ANTONIOFCS 13/12/2011 20:06:44
#391280
COLOQUEI ANEXO O PROJETO.
Página 1 de 2 [12 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar