CODIGO FONTE NF ELETRONICA ATUALIZADA 22-02-10
Puts é duro ser novo em um forum.... LOOZE onde encontro o manual ? De acordo com o manual anexo na pag. 94
Desculpa ja sei doque se trata!!!!
[txt-size=2]Amigo LOOZE... é isto que vc precisa que seja feito??[/txt-size]
[txt-size=2]Se não for desculpa a minha ingenuidade pois então não entendi direito[/txt-size]
[ô]TAG de grupo de identificação do Local de retirada - <retirada> - Ocorrência 0-N
[ô]Informar os valores desse grupo somente se o endereço de
[ô]retirada for diferente do endereço do remetente.
[ô]Assim se retirada.xLgr <> [ô][ô] o gerador grava o grupo no XML
Public Function Looze_IDRetirada(Optional CNPJ As String, Optional Logradouro As String, _
Optional Numero As String, Optional Complemento As String, _
Optional Bairro As String, Optional CodMunicipio As String, _
Optional Municipio As String, Optional UF As String)
Print #1, ([Ô] <retirada>[Ô])
Print #1, ([Ô] <CNPJ>[Ô] & CNPJ & [Ô]</CNPJ>[Ô])
Print #1, ([Ô] <xLgr>[Ô] & Mid(Logradouro, 1, 60) & [Ô]</xLgr>[Ô])
Print #1, ([Ô] <nro>[Ô] & Mid(Numero, 1, 60) & [Ô]</nro>[Ô])
Print #1, ([Ô] <xCpl>[Ô] & Mid(Complemento, 1, 60) & [Ô]</xCpl>[Ô])
Print #1, ([Ô] <xBairro>[Ô] & Mid(Bairro, 1, 60) & [Ô]</xBairro>[Ô])
Print #1, ([Ô] <cMun>[Ô] & CodMunicipio & [Ô]</cMun>[Ô])
Print #1, ([Ô] <xMun>[Ô] & Mid(Municipio, 1, 60) & [Ô]</xMun>[Ô])
Print #1, ([Ô] <UF>[Ô] & UF & [Ô]</UF>[Ô])
Print #1, ([Ô] </retirada>[Ô])
[ô]CNPJ = [Ô][Ô] [ô]// F02 - CNPJ
[ô]xLgr = [Ô][Ô] [ô]// F03 - Logradouro
[ô]nro = [Ô][Ô] [ô]// F04 - Número
[ô]xCpl = [Ô][Ô] [ô]// F05 - Complemento
[ô]xBairro = [Ô][Ô] [ô]// F06 - Bairro
[ô]cMun = 0 [ô]// F07 - Código do municÃpio (Tabela do IBGE - [ô]9999999[ô] para operações com o exterior))
[ô]xMun = [Ô][Ô] [ô]// F08 - Nome do municÃpio ([ô]EXTERIOR[ô] para operações com o exterior)
[ô]UF = [Ô][Ô] [ô]// F09 - Sigla da UF ([ô]EX[ô] para operações com o exterior.)
End Function [txt-size=2]Se não for desculpa a minha ingenuidade pois então não entendi direito[/txt-size]
Citação:Faltou o identificador NOTAFISCAL|QTDE DE NF no começo do arquivo.
Citação:
NOTAFISCAL|2
ONDE 2 no meu caso é a quantidade de nfs que serão exportada.
Ve se vai agora
OS ACERTOS QUE VC PASSOU RESOLVEU ESTA ABRINDO AGORA PARA IMPORTACAO SO QUE ESTA DANDO UM ERRO DE [Ô]ARQUIVO REJEITADO[Ô], [Ô]ARQUIVO CONTEM CARACTERES ESPECIAIS[Ô] E NAO APONTA EM QUE LINHA EXISTE O ERRO.[
Citação:RFERREIRA escreveu:
Faltou o identificador NOTAFISCAL|QTDE DE NF no começo do arquivo.
Citação:
NOTAFISCAL|2
ONDE 2 no meu caso é a quantidade de nfs que serão exportada.
Ve se vai agora
OS ACERTOS QUE VC PASSOU RESOLVEU ESTA ABRINDO AGORA PARA IMPORTACAO SO QUE ESTA DANDO UM ERRO DE [Ô]ARQUIVO REJEITADO[Ô], [Ô]ARQUIVO CONTEM CARACTERES ESPECIAIS[Ô] E NAO APONTA EM QUE LINHA EXISTE O ERRO.[
Aparentemente não tem nada de errado, apenas a primeira linha que está em branco e que não poderia.
[txt-size=2] AÃ esta o de veÃculo [/txt-size]
[txt-size=2]LOOZE Queria pedir a vc os códigos completos deste projeto para ver como esta indo.[/txt-size]
envia para ejkohl@hotmail.com
[txt-size=2]LOOZE Queria pedir a vc os códigos completos deste projeto para ver como esta indo.[/txt-size]
[ô]TAG de grupo do detalhamento de VeÃculos novos - <veicProd> - Ocorrência 0-1
[ô]Este grupo será criado no XML somente se o campo <chassi> for informado.
Public Function Looze_Veiculo(Optional tpOP As String, Optional chassi As String, Optional cCor As String, _
Optional xCor As String, Optional pot As String, _
Optional CM3 As String, Optional pesoL As String, _
Optional pesoB As String, Optional nSerie As String, _
Optional tpComb As String, Optional nMotor As String, _
Optional CMKG As String, Optional dist As String, _
Optional RENAVAM As String, Optional anoMod As String, _
Optional anoFab As String, Optional tpPint As String, _
Optional tpVeic As String, Optional espVeic As String, _
Optional VIN As String, Optional condVeic As String, _
Optional cMod As String)
Print #1, ([Ô] <veicProd>[Ô])
Print #1, ([Ô] <tpOP>[Ô] & tpOP & [Ô]</tpOP>[Ô]) [ô]tpOP = toVendaDireta; [ô]// J02 - Tipo da operação
[ô]// (1)=toVendaConcessionaria
[ô]// (2)=toFaturamentoDireto
[ô]// (3)=toVendaDireta
[ô]// (0)=toOutros
Print #1, ([Ô] <chassi>[Ô] & chassi & [Ô]</chassi>[Ô]) [ô]// J03 - Chassi do veÃculo
Print #1, ([Ô] <cCor>[Ô] & cCor & [Ô]</cCor>[Ô]) [ô]// J04 - Cor
Print #1, ([Ô] <xCor>[Ô] & xCor & [Ô]</xCor>[Ô]) [ô]// J05 - Descrição da Cor
Print #1, ([Ô] <pot>[Ô] & pot & [Ô]</pot>[Ô]) [ô]// J06 - Potência Motor
Print #1, ([Ô] <CM3>[Ô] & CM3 & [Ô]</CM3>[Ô]) [ô]// J07 - CM3 (Potência)
Print #1, ([Ô] <pesoL>[Ô] & pesoL & [Ô]</pesoL>[Ô]) [ô]// J08 - Peso LÃquido
Print #1, ([Ô] <pesoB>[Ô] & pesoB & [Ô]</pesoB>[Ô]) [ô]// J09 - Peso Bruto
Print #1, ([Ô] <nSerie>[Ô] & nSerie & [Ô]</nSerie>[Ô]) [ô]// J10 - Serial (série)
Print #1, ([Ô] <tpComb>[Ô] & tpComb & [Ô]</tpComb>[Ô]) [ô]// J11 - Tipo de combustÃvel
Print #1, ([Ô] <nMotor>[Ô] & nMotor & [Ô]</nMotor>[Ô]) [ô]// J12 - Número de Motor
Print #1, ([Ô] <CMKG>[Ô] & CMKG & [Ô]</CMKG>[Ô]) [ô]// J13 - CMKG
Print #1, ([Ô] <dist>[Ô] & dist & [Ô]</dist>[Ô]) [ô]// J14 - Distância entre eixos
Print #1, ([Ô] <RENAVAM>[Ô] & RENAVAM & [Ô]</RENAVAM>[Ô]) [ô]// J15 - RENAVAM (Não informar a TAG na exportação)
Print #1, ([Ô] <anoMod>[Ô] & anoMod & [Ô]</anoMod>[Ô]) [ô]// J16 - Ano Modelo de Fabricação
Print #1, ([Ô] <anoFab>[Ô] & anoFab & [Ô]</anoFab>[Ô]) [ô]// J17 - Ano de Fabricação
Print #1, ([Ô] <tpPint>[Ô] & tpPint & [Ô]</tpPint>[Ô]) [ô]// J18 - Tipo de Pintura
Print #1, ([Ô] <tpVeic>[Ô] & tpVeic & [Ô]</tpVeic>[Ô]) [ô]// J19 - Tipo de VeÃculo (Utilizar Tabela RENAVAM)
Print #1, ([Ô] <espVeic>[Ô] & espVeic & [Ô]</espVeic>[Ô]) [ô]// J20 - Espécie de VeÃculo (Utilizar Tabela RENAVAM)
Print #1, ([Ô] <VIN>[Ô] & VIN & [Ô]</VIN>[Ô]) [ô]// J21 - Condição do VIN
Print #1, ([Ô] <condVeic>[Ô] & condVeic & [Ô]</condVeic>[Ô]) [ô]// J22 - Condição do VeÃculo (1-Acabado; 2-Inacabado; 3-Semi-acabado)
Print #1, ([Ô] <cMod>[Ô] & cMod & [Ô]</cMod>[Ô]) [ô]// J23 - Código Marca Modelo (Utilizar Tabela RENAVAM)
Print #1, ([Ô] </veicProd>[Ô])
End Functionenvia para ejkohl@hotmail.com
[ô]TAG de grupo do detalhamento de Medicamentos - <med> - Ocorrência 0-N
Public Function Looze_Medicamento(Optional nLote As String, Optional qLote As String, _
Optional dFab As String, Optional dVal As String, _
Optional vPMC As String)
Print #1, ([Ô] <med>[Ô])
Print #1, ([Ô] <nLote>[Ô] & nLote & [Ô]</nLote>[Ô]) [ô]// K02 - Número do Lote do medicamento
Print #1, ([Ô] <qLote>[Ô] & qLote & [Ô]</qLote>[Ô]) [ô]// K03 - Quantidade de produto no Lote do medicamento
Print #1, ([Ô] <dFab>[Ô] & dFab & [Ô]</dFab>[Ô]) [ô]// K04 - Data de fabricação
Print #1, ([Ô] <dVal>[Ô] & dVal & [Ô]</dVal>[Ô]) [ô]// K05 - Data de validade
Print #1, ([Ô] <vPMC>[Ô] & vPMC & [Ô]</vPMC>[Ô]) [ô]// K06 - Preço máximo consumidor
Print #1, ([Ô] </med>[Ô])
End Function
[ô]TAG de grupo do detalhamento de Armamento - <arma> - Ocorrência 0-N
Public Function Looze_Armamento(Optional tpArma As String, Optional nSerie As String, _
Optional nCano As String, Optional descr As String)
Print #1, ([Ô] <arma>[Ô])
Print #1, ([Ô] <tpArma>[Ô] & tpArma & [Ô]</tpArma>[Ô]); tpArma = taUsoPermitido; [ô]// L02 - Indicador do tipo de arma de fogo
[ô]// (0)=taUsoPermitido
[ô]// (1)=taUsoRestrito
Print #1, ([Ô] <nSerie>[Ô] & nSerie & [Ô]</nSerie>[Ô]) [ô]// L03 - Número de série da arma
Print #1, ([Ô] <nCano>[Ô] & nCano & [Ô]</nCano>[Ô]) [ô]// L04 - Número de série do cano
Print #1, ([Ô] <descr>[Ô] & descr & [Ô]</descr>[Ô]) [ô]// L05 - Descrição completa da arma, compreendendo: calibre, marca, capacidade, etc)
Print #1, ([Ô] <arma>[Ô])
End Function
[txt-size=2] Amigo LOOZE está aà cara.... e como vai ficar a parte de envio do arquivo... tu esta fazendo aÃ???
cara não esqueça... me envie os codigos por favor... quero ajudar mais.[/txt-size]
cara não esqueça... me envie os codigos por favor... quero ajudar mais.[/txt-size]
[ô]TAG de grupo de informações especÃficas para combustÃveis
Public Function Looze_Combustivel(Optional cProdANP As String, Optional CODIF As String, _
Optional qTemp As String, Optional CqBCProd As String, _
Optional CvAliqProd As String, Optional CvCIDE As String, _
Optional vBCICMS As String, Optional vICMS As String, _
Optional vBCICMSST As String, Optional vICMSST As String, _
Optional vBCICMSSTDest As String, Optional vICMSSTDest As String, _
Optional vBCICMSSTCons As String, Optional vICMSSTCons As String, _
Optional UFcons As String)
Print #1, ([Ô] <comb>[Ô]) [ô]// lÃquidos - <comb> - Ocorrência 0-1
[ô]// Se for informado algum dos valores abaixo:
[ô]// a TAG grava o grupo no XML ********************************************
Print #1, ([Ô] <nSerie>[Ô] & nSerie & [Ô]</nSerie>[Ô]); cProdANP = 0 [ô]// L102 - Código de produto da ANP - codificação de produtos do SIMP
Print #1, ([Ô] <nSerie>[Ô] & nSerie & [Ô]</nSerie>[Ô]); CODIF = [Ô][Ô] [ô]// L103 - Código de autorização / registro do CODIF
Print #1, ([Ô] <nSerie>[Ô] & nSerie & [Ô]</nSerie>[Ô]); qTemp = 0 [ô]// L104 - Quantidade de combustÃvel faturada à temperatura ambiente.
[ô]// TAG de grupo da CIDE - <CIDE> - Ocorrência 0-1
Print #1, ([Ô] <CIDE>[Ô])
Print #1, ([Ô] <CqBCProd>[Ô] & CqBCProd & [Ô]</CqBCProd>[Ô]) [ô]// L106 - BC da CIDE em quantidad
Print #1, ([Ô] <CvAliqProd>[Ô] & CvAliqProd & [Ô]</CvAliqProd>[Ô]) [ô]// L107 - Valor da alÃquota da CIDE
Print #1, ([Ô] <CvCIDE>[Ô] & CvCIDE & [Ô]</CvCIDE>[Ô]) [ô]// L108 - Valor da CIDE
Print #1, ([Ô] </CIDE>[Ô])
[ô]// TAG de grupo do ICMS - <ICMS> - Ocorrência 1-1
Print #1, ([Ô] <ICMS>[Ô])
Print #1, ([Ô] <vBCICMS>[Ô] & vBCICMS & [Ô]</vBCICMS>[Ô]) [ô]// L110 - BC do ICMS
Print #1, ([Ô] <vICMS>[Ô] & vICMS & [Ô]</vICMS>[Ô]) [ô]// L111 - Valor do ICMS
Print #1, ([Ô] <vBCICMSST>[Ô] & vBCICMSST & [Ô]</vBCICMSST>[Ô]) [ô]// L112 - BC do ICMS ST retido
Print #1, ([Ô] <vICMSST>[Ô] & vICMSST & [Ô]</vICMSST>[Ô]) [ô]// L113 - Valor do ICMS ST retido
Print #1, ([Ô] </ICMS>[Ô])
[ô]// TAG de grupo do ICMSST de operação interestadual - <ICMSInter> - Ocorrência 0-1
Print #1, ([Ô] <ICMSInter>[Ô])
Print #1, ([Ô] <vBCICMSSTDest>[Ô] & vBCICMSSTDest & [Ô]</vBCICMSSTDest>[Ô]) [ô]// L115 - BC do ICMS ST da UF de destino
Print #1, ([Ô] <vBCICMSSTDest>[Ô] & vBCICMSSTDest & [Ô]</vBCICMSSTDest>[Ô]) [ô]// L116 - Valor do ICMS ST da UF de destino
Print #1, ([Ô] </ICMSInter>[Ô])
[ô]// TAG de ICMS para consumo em UF diversa da UF de localização do destinatário do produto - <ICMSCons> - Ocorrência 0-1
Print #1, ([Ô] <ICMSCons>[Ô])
Print #1, ([Ô] <vBCICMSSTCons>[Ô] & vBCICMSSTCons & [Ô]</vBCICMSSTCons>[Ô]) [ô]// L118 - BC do ICMS ST da UF de consumo
Print #1, ([Ô] <vICMSSTCons>[Ô] & vICMSSTCons & [Ô]</vICMSSTCons>[Ô]) [ô]// L119 - Valor do ICMS ST da UF de consumo
Print #1, ([Ô] <UFcons>[Ô] & UFcons & [Ô]</UFcons>[Ô]) [ô]// L120 - Sigla da UF de consumo
Print #1, ([Ô] </ICMSCons>[Ô])
Print #1, ([Ô] </comb>[Ô])
End Function
[txt-size=2] Correção do Poste anterior [/txt-size]
[ô]TAG de grupo de informações especÃficas para combustÃveis
Public Function Looze_Combustivel(Optional cProdANP As String, Optional CODIF As String, _
Optional qTemp As String, Optional CqBCProd As String, _
Optional CvAliqProd As String, Optional CvCIDE As String, _
Optional vBCICMS As String, Optional vICMS As String, _
Optional vBCICMSST As String, Optional vICMSST As String, _
Optional vBCICMSSTDest As String, Optional vICMSSTDest As String, _
Optional vBCICMSSTCons As String, Optional vICMSSTCons As String, _
Optional UFcons As String)
Print #1, ([Ô] <comb>[Ô]) [ô]// lÃquidos - <comb> - Ocorrência 0-1
[ô]// Se for informado algum dos valores abaixo:
[ô]// a TAG grava o grupo no XML ********************************************
Print #1, ([Ô] <cProdANP>[Ô] & cProdANP & [Ô]</cProdANP>[Ô]) [ô]// L102 - Código de produto da ANP - codificação de produtos do SIMP
Print #1, ([Ô] <CODIF>[Ô] & CODIF & [Ô]</CODIF>[Ô]) [ô]// L103 - Código de autorização / registro do CODIF
Print #1, ([Ô] <qTemp>[Ô] & qTemp & [Ô]</qTemp>[Ô]) [ô]// L104 - Quantidade de combustÃvel faturada à temperatura ambiente.
[ô]// TAG de grupo da CIDE - <CIDE> - Ocorrência 0-1
Print #1, ([Ô] <CIDE>[Ô])
Print #1, ([Ô] <CqBCProd>[Ô] & CqBCProd & [Ô]</CqBCProd>[Ô]) [ô]// L106 - BC da CIDE em quantidad
Print #1, ([Ô] <CvAliqProd>[Ô] & CvAliqProd & [Ô]</CvAliqProd>[Ô]) [ô]// L107 - Valor da alÃquota da CIDE
Print #1, ([Ô] <CvCIDE>[Ô] & CvCIDE & [Ô]</CvCIDE>[Ô]) [ô]// L108 - Valor da CIDE
Print #1, ([Ô] </CIDE>[Ô])
[ô]// TAG de grupo do ICMS - <ICMS> - Ocorrência 1-1
Print #1, ([Ô] <ICMS>[Ô])
Print #1, ([Ô] <vBCICMS>[Ô] & vBCICMS & [Ô]</vBCICMS>[Ô]) [ô]// L110 - BC do ICMS
Print #1, ([Ô] <vICMS>[Ô] & vICMS & [Ô]</vICMS>[Ô]) [ô]// L111 - Valor do ICMS
Print #1, ([Ô] <vBCICMSST>[Ô] & vBCICMSST & [Ô]</vBCICMSST>[Ô]) [ô]// L112 - BC do ICMS ST retido
Print #1, ([Ô] <vICMSST>[Ô] & vICMSST & [Ô]</vICMSST>[Ô]) [ô]// L113 - Valor do ICMS ST retido
Print #1, ([Ô] </ICMS>[Ô])
[ô]// TAG de grupo do ICMSST de operação interestadual - <ICMSInter> - Ocorrência 0-1
Print #1, ([Ô] <ICMSInter>[Ô])
Print #1, ([Ô] <vBCICMSSTDest>[Ô] & vBCICMSSTDest & [Ô]</vBCICMSSTDest>[Ô]) [ô]// L115 - BC do ICMS ST da UF de destino
Print #1, ([Ô] <vBCICMSSTDest>[Ô] & vBCICMSSTDest & [Ô]</vBCICMSSTDest>[Ô]) [ô]// L116 - Valor do ICMS ST da UF de destino
Print #1, ([Ô] </ICMSInter>[Ô])
[ô]// TAG de ICMS para consumo em UF diversa da UF de localização do destinatário do produto - <ICMSCons> - Ocorrência 0-1
Print #1, ([Ô] <ICMSCons>[Ô])
Print #1, ([Ô] <vBCICMSSTCons>[Ô] & vBCICMSSTCons & [Ô]</vBCICMSSTCons>[Ô]) [ô]// L118 - BC do ICMS ST da UF de consumo
Print #1, ([Ô] <vICMSSTCons>[Ô] & vICMSSTCons & [Ô]</vICMSSTCons>[Ô]) [ô]// L119 - Valor do ICMS ST da UF de consumo
Print #1, ([Ô] <UFcons>[Ô] & UFcons & [Ô]</UFcons>[Ô]) [ô]// L120 - Sigla da UF de consumo
Print #1, ([Ô] </ICMSCons>[Ô])
Print #1, ([Ô] </comb>[Ô])
End Function
[txt-size=2] EJKOHL Estou montando um DLL com tudo que esta sendo postado aqui.
Qdo as TAG estiverem prontas eu posto tudo de uma vez. Sim ja tenho a parte de assinatura e verificação, que esta feita em VB.NET, estou tentando para isso num DLL onde agente consiga fazer o resto no VB6 mesmo. [/txt-size]
[txt-size=1] A AJUDA DE UM SÓ é DE GRANDE VALOR. PEÇO UM POUCO MAS DE COLABORAÇÃO DA COMUNIDADE, POIS TODOS IREMOS FAZER USO DESSA FERRAMENTA. [/txt-size]
Qdo as TAG estiverem prontas eu posto tudo de uma vez. Sim ja tenho a parte de assinatura e verificação, que esta feita em VB.NET, estou tentando para isso num DLL onde agente consiga fazer o resto no VB6 mesmo. [/txt-size]
[ô]Tag da Declaração de Importação - <DI> - Ocorrência 0-N
Public Function Looze_Importacao()
for j = 0 to 1 do
Det[i].Prod.DI.Add;
Det[i].Prod.DI[j].nDi = [Ô][Ô] [ô]// I19 - Número do Documento de Importação DI/DSI/DA (DI/DSI/DA)
Det[i].Prod.DI[j].dDi = null [ô]// I20 - Data de Registro da DI/DSI/DA
Det[i].Prod.DI[j].xLocDesemb = [Ô][Ô] [ô]// I21 - Local de desembaraço
Det[i].Prod.DI[j].UFDesemb = [Ô][Ô] [ô]// I22 - Sigla da UF onde ocorreu o Desembaraço Aduaneiro
Det[i].Prod.DI[j].dDesemb = null [ô]// I23 - Data do Desembaraço Aduaneiro
Det[i].Prod.DI[j].cExportador = [Ô][Ô] [ô]// I24 - Código do exportador
for k = 0 to 1 do
Det[i].Prod.DI[j].adi.Add; [ô]// Tag de Adições - <adi> - Ocorrência 1-N
Det[i].Prod.DI[j].adi[k].nAdicao = 0 [ô]// I26 - Numero da adição
Det[i].Prod.DI[j].adi[k].nSeqAdi = 0 [ô]// I27 - Numero seqüencial do item dentro da adição
Det[i].Prod.DI[j].adi[k].cFabricante = [Ô][Ô] [ô]// I28 - Código do fabricante estrangeiro
Det[i].Prod.DI[j].adi[k].vDescDI = 0 [ô]// I29 - Valor do desconto do item da DI – adição
End Function
Public Function Looze_Veiculo()
Det[i].prod.veicProd.tpOP = toVendaDireta; [ô]// J02 - Tipo da operação
[ô]// (1)=toVendaConcessionaria
[ô]// (2)=toFaturamentoDireto
[ô]// (3)=toVendaDireta
[ô]// (0)=toOutros
Det [i].Prod.veicProd.chassi = [Ô][Ô] [ô]// J03 - Chassi do veÃculo
Det [i].Prod.veicProd.cCor = [Ô][Ô] [ô]// J04 - Cor
Det [i].Prod.veicProd.xCor = [Ô][Ô] [ô]// J05 - Descrição da Cor
Det [i].Prod.veicProd.pot = [Ô][Ô] [ô]// J06 - Potência Motor
Det [i].Prod.veicProd.CM3 = [Ô][Ô] [ô]// J07 - CM3 (Potência)
Det [i].Prod.veicProd.pesoL = [Ô][Ô] [ô]// J08 - Peso LÃquido
Det [i].Prod.veicProd.pesoB = [Ô][Ô] [ô]// J09 - Peso Bruto
Det [i].Prod.veicProd.nSerie = [Ô][Ô] [ô]// J10 - Serial (série)
Det [i].Prod.veicProd.tpComb = [Ô][Ô] [ô]// J11 - Tipo de combustÃvel
Det [i].Prod.veicProd.nMotor = [Ô][Ô] [ô]// J12 - Número de Motor
Det [i].Prod.veicProd.CMKG = [Ô][Ô] [ô]// J13 - CMKG
Det [i].Prod.veicProd.dist = [Ô][Ô] [ô]// J14 - Distância entre eixos
Det [i].Prod.veicProd.RENAVAM = [Ô][Ô] [ô]// J15 - RENAVAM (Não informar a TAG na exportação)
Det [i].Prod.veicProd.anoMod = 0 [ô]// J16 - Ano Modelo de Fabricação
Det [i].Prod.veicProd.anoFab = 0 [ô]// J17 - Ano de Fabricação
Det [i].Prod.veicProd.tpPint = [Ô][Ô] [ô]// J18 - Tipo de Pintura
Det [i].Prod.veicProd.tpVeic = 0 [ô]// J19 - Tipo de VeÃculo (Utilizar Tabela RENAVAM)
Det [i].Prod.veicProd.espVeic = 0 [ô]// J20 - Espécie de VeÃculo (Utilizar Tabela RENAVAM)
Det [i].Prod.veicProd.VIN = [Ô][Ô] [ô]// J21 - Condição do VIN
Det[i].prod.veicProd.condVeic = cvAcabado; [ô]// J22 - Condição do VeÃculo (1-Acabado; 2-Inacabado; 3-Semi-acabado)
Det [i].Prod.veicProd.cMod = 0 [ô]// J23 - Código Marca Modelo (Utilizar Tabela RENAVAM)
End Function
[ô]TAG de grupo do detalhamento de Produtos e Serviços da NF-e - <det> - Ocorrência 1-990
Public Function Looze_Produto()
Det [i].infAdProd = [Ô][Ô] [ô]// - Informações Adicionais do Produto
Det[i].Prod.nItem = 1 + i; [ô]// H02 - Número do item DE 1 a 990
Det [i].Prod.cProd = [Ô][Ô] [ô]// I02 - Código do produto ou serviço
Det [i].Prod.cEAN = [Ô][Ô] [ô]// I03 - GTIN (Global Trade Item Number) do produto, antigo código EAN ou código de barra
Det [i].Prod.xProd = [Ô][Ô] [ô]// I04 - Descrição do produto ou serviço
Det [i].Prod.NCM = [Ô][Ô] [ô]// I05 - Código NCM (Em caso de serviço, não incluir a TAG.)
Det [i].Prod.EXTIPI = [Ô][Ô] [ô]// I06 - Código EX da TIPI (Em caso de serviço, não incluir a TAG.)
Det [i].Prod.genero = 0 [ô]// I07 - Gênero do Produto ou Serviço (Tabela de CapÃtulos da NCM)(Em caso de serviço, não incluir a TAG.)
Det [i].Prod.CFOP = [Ô][Ô] [ô]// I08 - Código Fiscal de Operações e Prestações
Det [i].Prod.uCom = [Ô][Ô] [ô]// I09 - Unidade Comercial
Det [i].Prod.qCom = 0 [ô]// I10 - Quantidade Comercial
Det [i].Prod.vUnCom = 0 [ô]// I10a Valor Unitário de comercialização
Det [i].Prod.vProd = 0 [ô]// I11 - Valor Total Bruto dos Produtos ou Serviços
Det [i].Prod.uTrib = [Ô][Ô] [ô]// I13 - Unidade Tributável
Det [i].Prod.qTrib = 0 [ô]// I14 - Quantidade Tributável
Det [i].Prod.vUnTrib = 0 [ô]// I14a Valor Unitário de tributação
[ô]EXEMPLO *) [ô]// Det[i].Prod.uCom = [ô]CX[ô];
[ô]// Det[i].Prod.qCom = 2; Vendidas 2 caixas ( com 10 unidades cada )
[ô]// Det[i].Prod.vUnCom = 50; R$ 50,00 cada caixa
[ô]// Det[i].Prod.vProd = 100; R$ 100,00 Valor dos produtos
[ô]// Det[i].Prod.uTrib = [ô]UN[ô];
[ô]// Det[i].Prod.qTrib = 20; 2 caixas X 10 unidades por caixa = 20 unidades
[ô]// Det[i].Prod.vUnTrib = 5; R$ 100,00 / 20 unidades = R$ 5,00 cada unidade
Det [i].Prod.cEANTrib = [Ô][Ô] [ô]// I12 - GTIN (Global Trade Item Number) da unidade tributável, antigo código EAN ou código de barras ??
Det [i].Prod.vFrete = 0 [ô]// I15 - Valor Total do Frete
Det [i].Prod.vSeg = 0 [ô]// I16 - Valor Total do Seguro
Det [i].Prod.vDesc = 0 [ô]// I17 - Valor do Desconto
Print #1, ([Ô] <det nItem=[Ô][Ô]+(x+1)+[Ô][Ô]>[Ô])
Print #1, ([Ô] <prod>[Ô])
Print #1, ([Ô] <cProd>[Ô] + detProd(x, 0) + [Ô]</cProd>[Ô])
If ((detProd(x, 1).length = 8) Or (detProd(x, 1).length = 12) Or (detProd(x, 1).length = 13) Or (detProd(x, 1).length = 14)) Then
Print #1, ([Ô] <cEAN>[Ô] & detProd(x, 1) & [Ô]</cEAN>[Ô])
Else
Print #1, ([Ô] <cEAN></cEAN>[Ô])
Print #1, ([Ô] <xProd>[Ô] & CortaTexto(LimpaTexto(detProd(x, 2)), 60) & [Ô]</xProd>[Ô])
If (detProd(x, 3) = [Ô][Ô]) Then
Print #1, ([Ô] <NCM>[Ô] & CortaTexto(LimpaTexto(detProd(x, 3)), 60) & [Ô]</NCM>[Ô])
If (detProd(x, 4) = [Ô][Ô]) Then
Print #1, ([Ô] <genero>[Ô] & detProd(x, 4) & [Ô]</genero>[Ô])
Print #1, ([Ô] <CFOP>[Ô] & detProd(x, 5) & [Ô]</CFOP>[Ô])
Print #1, ([Ô] <uCom>[Ô] & detProd(x, 6) & [Ô]</uCom>[Ô])
Print #1, ([Ô] <qCom>[Ô] & detProd(x, 7) & [Ô]</qCom>[Ô])
Print #1, ([Ô] <vUnCom>[Ô] & detProd(x, 8) & [Ô]</vUnCom>[Ô])
Print #1, ([Ô] <vProd>[Ô] & detProd(x, 9) & [Ô]</vProd>[Ô])
If ((detProd(x, 10).length = 8) Or (detProd(x, 10).length = 12) Or (detProd(x, 10).length = 13) Or (detProd(x, 10).length = 14)) Then
Print #1, ([Ô] <cEANTrib>[Ô] + detProd(x, 10) + [Ô]</cEANTrib>[Ô])
Else
Print #1, ([Ô] <cEANTrib></cEANTrib>[Ô])
Print #1, ([Ô] <uTrib>[Ô] + detProd(x, 11).ToUpper() + [Ô]</uTrib>[Ô])
Print #1, ([Ô] <qTrib>[Ô] + FormataValor(detProd(x, 12), 4) + [Ô]</qTrib>[Ô])
Print #1, ([Ô] <vUnTrib>[Ô] & FormataValor(detProd(x, 13), 4) & [Ô]</vUnTrib>[Ô])
If (Convert.ToDouble(detProd(x, 14)) > 0) Then
Print #1, ([Ô] <vFrete>[Ô] + FormataValor(detProd(x, 14), 2) + [Ô]</vFrete>[Ô])
If (Convert.ToDouble(detProd(x, 15)) > 0) Then
Print #1, ([Ô] <vSeg>[Ô] & FormataValor(detProd(x, 15), 2) & [Ô]</vSeg>[Ô])
If (Convert.ToDouble(detProd(x, 16)) > 0) Then
Print #1, ([Ô] <vDesc>[Ô] & FormataValor(detProd(x, 16), 2) & [Ô]</vDesc>[Ô])
Print #1, ([Ô] </prod>[Ô])
End Function [txt-size=1] A AJUDA DE UM SÓ é DE GRANDE VALOR. PEÇO UM POUCO MAS DE COLABORAÇÃO DA COMUNIDADE, POIS TODOS IREMOS FAZER USO DESSA FERRAMENTA. [/txt-size]
Tópico encerrado , respostas não são mais permitidas