XML NFE

FABRICIOWEB 06/08/2014 14:33:56
#440231

estou gerando dessa forma
mais como fazer se tiver mais produtos usando um banco de dados e como fazer nota de prestação de serviço alguem tem alguma ideia


Open [Ô]c:
fe1.xml[Ô] For Output As #1
Print #1, [Ô][Ô] & [Ô]<?xml version=[Ô] & Chr(34) & [Ô]1.0[Ô] & Chr(34) & [Ô] encoding=[Ô] & Chr(34) & [Ô]UTF-8[Ô] & Chr(34) & [Ô]?>[Ô]
Print #1, [Ô][Ô] & [Ô]<enviNFe versao=[Ô] & Chr(34) & [Ô]2.0[Ô] & Chr(34) & [Ô]xmlns=[Ô] & Chr(34) & [Ô]http://www.portalfiscal.inf.br/nfe[Ô] & Chr(34) & [Ô]>[Ô]
Print #1, [Ô] <idLote>[Ô] & [Ô]201101030000001[Ô] & [Ô]</idLote>[Ô]



Print #1, [Ô] <NFe>[Ô]
Print #1, [Ô] <infNFe Id=[Ô] & Chr(34) & [Ô]NFe43101204312136000198550010000448592949972601[Ô] & Chr(34) & [Ô] versao=[Ô] & Chr(34) & [Ô]2,0[Ô] & Chr(34) & [Ô]>[Ô]
Print #1, [Ô] <ide>[Ô]
Print #1, [Ô] <cUF>[Ô] & [Ô]47[Ô] & [Ô]</cUF>[Ô]
Print #1, [Ô] <cNF>[Ô] & [Ô]123456789[Ô] & [Ô]</cNF>[Ô]
Print #1, [Ô] <natOp>[Ô] & [Ô]venda avista[Ô] & [Ô]</natOp>[Ô] [ô]opção de vendas
Print #1, [Ô] <indPag>[Ô] & [Ô]0[Ô] & [Ô]</indPag>[Ô] [ô]id pagamento
Print #1, [Ô] <mod>[Ô] & [Ô]55[Ô] & [Ô]</mod>[Ô] [ô]modelo
Print #1, [Ô] <serie>[Ô] & [Ô]1[Ô] & [Ô]</serie>[Ô] [ô]serie
Print #1, [Ô] <nNF>[Ô] & [Ô]44859[Ô] & [Ô]</nNF>[Ô]
Print #1, [Ô] <dEmi>[Ô] & [Ô]2010-12-30[Ô] & [Ô]</dEmi>[Ô] [ô]data entrada
Print #1, [Ô] <dSaiEnt>[Ô] & [Ô]2010-12-31[Ô] & [Ô]</dSaiEnt>[Ô] [ô]data saida
Print #1, [Ô] <hSaiEnt>[Ô] & Time & [Ô]</hSaiEnt>[Ô]
Print #1, [Ô] <tpNF>[Ô] & [Ô]0[Ô] & [Ô]</tpNF>[Ô] [ô]tipo nfe
Print #1, [Ô] <cMunFG>[Ô] & [Ô]35500009[Ô] & [Ô]</cMunFG>[Ô] [ô]cep municipio
Print #1, [Ô] <tpImp>[Ô] & [Ô]1[Ô] & [Ô]</tpImp>[Ô]
Print #1, [Ô] <tpEmis>[Ô] & [Ô]1[Ô] & [Ô]</tpEmis>[Ô]
Print #1, [Ô] <cDV>[Ô] & [Ô]8[Ô] & [Ô]</cDV>[Ô]
Print #1, [Ô] <tpAmb>[Ô] & [Ô]2[Ô] & [Ô]</tpAmb>[Ô]
Print #1, [Ô] <finNFe>[Ô] & [Ô]1[Ô] & [Ô]</finNFe>[Ô]
Print #1, [Ô] <procEmi>[Ô] & [Ô]0[Ô] & [Ô]</procEmi>[Ô]
Print #1, [Ô] <verProc>[Ô] & [Ô]NF-eletronica.com[Ô] & [Ô]</verProc>[Ô]
Print #1, [Ô] </ide>[Ô]

Print #1, [Ô] <emit>[Ô]
Print #1, [Ô] <CNPJ>[Ô] & Data1.Recordset.Fields([Ô]cnpj[Ô]) & [Ô]</CNPJ>[Ô]
Print #1, [Ô] <xNome>[Ô] & Data1.Recordset.Fields([Ô]nome[Ô]) & [Ô]</xNome>[Ô]
Print #1, [Ô] <xFant>[Ô] & Data1.Recordset.Fields([Ô]nome[Ô]) & [Ô]</xFant>[Ô]
Print #1, [Ô] <enderEmit>[Ô]
Print #1, [Ô] <xLgr>[Ô] & Data1.Recordset.Fields([Ô]rua[Ô]) & [Ô]</xLgr>[Ô]
Print #1, [Ô] <nro>[Ô] & Data1.Recordset.Fields([Ô]numero[Ô]) & [Ô]</nro>[Ô]
Print #1, [Ô] <xCpl>[Ô] & [Ô][Ô] & [Ô]</xCpl>[Ô] [ô]complemento
Print #1, [Ô] <xBairro>[Ô] & Data1.Recordset.Fields([Ô]bairro[Ô]) & [Ô]</xBairro>[Ô]
Print #1, [Ô] <cMun>[Ô] & Data1.Recordset.Fields([Ô]cep[Ô]) & [Ô]</cMun>[Ô] [ô] cep municipio
Print #1, [Ô] <xMun>[Ô] & Data1.Recordset.Fields([Ô]cidade[Ô]) & [Ô]</xMun>[Ô]
Print #1, [Ô] <UF>[Ô] & Data1.Recordset.Fields([Ô]uf[Ô]) & [Ô]</UF>[Ô]
Print #1, [Ô] <CEP>[Ô] & Data1.Recordset.Fields([Ô]cep[Ô]) & [Ô]</CEP>[Ô]
Print #1, [Ô] <cPais>[Ô] & [Ô]1058[Ô] & [Ô]</cPais>[Ô]
Print #1, [Ô] <xPais>[Ô] & [Ô]Brasil[Ô] & [Ô]</xPais>[Ô]
Print #1, [Ô] <fone>[Ô] & [Ô]3799251412[Ô] & [Ô]</fone>[Ô]
Print #1, [Ô] </enderEmit>[Ô]
Print #1, [Ô] <IE>[Ô] & Data1.Recordset.Fields([Ô]insc[Ô]) & [Ô]</IE>[Ô]
Print #1, [Ô] <CRT>[Ô] & [Ô]3[Ô] & [Ô]</CRT>[Ô]
Print #1, [Ô] </emit>[Ô]




[ô]Dados Destinatario
[ô]----------------------------------------------------------------------------------------------------
Print #1, [Ô] <dest>[Ô]
Print #1, [Ô] <CNPJ>[Ô] & Data2.Recordset.Fields([Ô]cnpj[Ô]) & [Ô]</CNPJ>[Ô]
Print #1, [Ô] <xNome>[Ô] & Data2.Recordset.Fields([Ô]nome[Ô]) & [Ô]</xNome>[Ô]
Print #1, [Ô] <enderDest>[Ô]
Print #1, [Ô] <xLgr>[Ô] & Data2.Recordset.Fields([Ô]rua[Ô]) & [Ô]</xLgr>[Ô]
Print #1, [Ô] <nro>[Ô] & Data2.Recordset.Fields([Ô]numero[Ô]) & [Ô]</nro>[Ô]
[ô] If Len(.Fields([Ô]xDestComplemento[Ô]).Value) > 0 Then
Print #1, [Ô] <xCpl>[Ô] & [Ô]1 andar[Ô] & [Ô]</xCpl>[Ô] [ô]complemento
[ô] End If

Print #1, [Ô] <xBairro>[Ô] & Data2.Recordset.Fields([Ô]bairro[Ô]) & [Ô]</xBairro>[Ô]
Print #1, [Ô] <cMun>[Ô] & [Ô]35500500[Ô] & [Ô]</cMun>[Ô] [ô]cep municipio
Print #1, [Ô] <xMun>[Ô] & Data2.Recordset.Fields([Ô]cidade[Ô]) & [Ô]</xMun>[Ô] [ô]cidade do cliente
Print #1, [Ô] <UF>[Ô] & Data2.Recordset.Fields([Ô]uf[Ô]) & [Ô]</UF>[Ô]
Print #1, [Ô] <CEP>[Ô] & Data2.Recordset.Fields([Ô]cep[Ô]) & [Ô]</CEP>[Ô]
Print #1, [Ô] <cPais>[Ô] & [Ô]1058[Ô] & [Ô]</cPais>[Ô]
Print #1, [Ô] <xPais>[Ô] & [Ô]BRASIL[Ô] & [Ô]</xPais>[Ô]
Print #1, [Ô] <fone>[Ô] & [Ô]3799251412[Ô] & [Ô]</fone>[Ô]
Print #1, [Ô] </enderDest>[Ô]
Print #1, [Ô] <IE />[Ô] [ô]INDENTIDAE OU INS
Print #1, [Ô] </dest>[Ô]


[ô][Ô][Ô] & [Ô]<?xml version=[Ô] & Chr(34)

Print #1, [Ô][Ô] & [Ô] <det nItem=[Ô] & Chr(34) & [Ô]1[Ô] & Chr(34) & [Ô]>[Ô]
Print #1, [Ô] <prod>[Ô]
Print #1, [Ô] <cProd>[Ô] & [Ô]00001[Ô] & [Ô]</cProd>[Ô]
Print #1, [Ô] <cEAN />[Ô]
Print #1, [Ô] <xProd>[Ô] & [Ô]balão bordado[Ô] & [Ô]</xProd>[Ô]
[ô] If Len(Replace(.Fields([Ô]xCodigoNCM[Ô]).Value, [Ô].[Ô], [Ô][Ô])) > 0 Then
Print #1, [Ô] <NCM>[Ô] & [Ô]12345678[Ô] & [Ô]</NCM>[Ô]
[ô] End If
Print #1, [Ô] <CFOP>[Ô] & [Ô]5101[Ô] & [Ô]</CFOP>[Ô]
Print #1, [Ô] <uCom>[Ô] & [Ô]DZ[Ô] & [Ô]</uCom>[Ô]
Print #1, [Ô] <qCom>[Ô] & [Ô]2[Ô] & [Ô]</qCom>[Ô]
Print #1, [Ô] <vUnCom>[Ô] & [Ô]1.50[Ô] & [Ô]</vUnCom>[Ô]
Print #1, [Ô] <vProd>[Ô] & [Ô]3.00[Ô] & [Ô]</vProd>[Ô]
Print #1, [Ô] <cEANTrib>[Ô] & [Ô][Ô] & [Ô]</cEANTrib>[Ô]
Print #1, [Ô] <uTrib>[Ô] & [Ô]und[Ô] & [Ô]</uTrib>[Ô]
Print #1, [Ô] <qTrib>[Ô] & [Ô]2[Ô] & [Ô]</qTrib>[Ô]
Print #1, [Ô] <vUnTrib>[Ô] & [Ô]1.50[Ô] & [Ô]</vUnTrib>[Ô]
Print #1, [Ô] <indTot>[Ô] & [Ô]1[Ô] & [Ô]</indTot>[Ô]


Print #1, [Ô] </prod>[Ô]


Print #1, [Ô] <imposto>[Ô]
Print #1, [Ô] <ICMS>[Ô]
Print #1, [Ô] <ICMS00>[Ô]
Print #1, [Ô] <orig>[Ô] & [Ô]0[Ô] & [Ô]</orig>[Ô]
Print #1, [Ô] <CST>[Ô] & [Ô]00[Ô] & [Ô]</CST>[Ô]
Print #1, [Ô] <modBC>[Ô] & [Ô]0[Ô] & [Ô]</modBC>[Ô]
Print #1, [Ô] <vBC>[Ô] & [Ô]1000.00[Ô] & [Ô]</vBC>[Ô]
Print #1, [Ô] <pICMS>[Ô] & [Ô]18.00[Ô] & [Ô]</pICMS>[Ô]
Print #1, [Ô] <vICMS>[Ô] & [Ô]180.00[Ô] & [Ô]</vICMS>[Ô]
Print #1, [Ô] </ICMS00>[Ô]
Print #1, [Ô] </ICMS>[Ô]



Print #1, [Ô] <PIS>[Ô]
Print #1, [Ô] <PISAliq>[Ô]
Print #1, [Ô] <CST>[Ô] & [Ô]0[Ô] & [Ô]</CST>[Ô]
Print #1, [Ô] <vBC>[Ô] & [Ô]1000.00[Ô] & [Ô]</vBC>[Ô]
Print #1, [Ô] <pPIS>[Ô] & [Ô]0.65[Ô] & [Ô]</pPIS>[Ô]
Print #1, [Ô] <vPIS>[Ô] & [Ô]650[Ô] & [Ô]</vPIS>[Ô]
Print #1, [Ô] </PISAliq>[Ô]
Print #1, [Ô] </PIS>[Ô]

Print #1, [Ô] <COFINS>[Ô]
Print #1, [Ô] <COFINSAliq>[Ô]
Print #1, [Ô] <CST>[Ô] & [Ô]01[Ô] & [Ô]</CST>[Ô]
Print #1, [Ô] <vBC>[Ô] & [Ô]0[Ô] & [Ô]</vBC>[Ô]
Print #1, [Ô] <vCOFINS>[Ô] & [Ô]0[Ô] & [Ô]</vCOFINS>[Ô]
Print #1, [Ô] <vPIS>[Ô] & [Ô]0[Ô] & [Ô]</vPIS>[Ô]
Print #1, [Ô] </COFINSAliq>[Ô]
Print #1, [Ô] </COFINS>[Ô]
Print #1, [Ô] </imposto>[Ô]
Print #1, [Ô] </det>[Ô]

Print #1, [Ô] <total>[Ô]
Print #1, [Ô] <ICMSTot>[Ô]
Print #1, [Ô] <vBC>[Ô] & [Ô]1000.00[Ô] & [Ô]</vBC>[Ô]
Print #1, [Ô] <vICMS>[Ô] & [Ô]18.00[Ô] & [Ô]</vICMS>[Ô]
Print #1, [Ô] <vBCST>[Ô] & [Ô]0[Ô] & [Ô]</vBCST>[Ô]
Print #1, [Ô] <vST>[Ô] & [Ô]0[Ô] & [Ô]</vST>[Ô]
Print #1, [Ô] <vProd>[Ô] & [Ô]1000.00[Ô] & [Ô]</vProd>[Ô]
Print #1, [Ô] <vFrete>[Ô] & [Ô]0[Ô] & [Ô]</vFrete>[Ô]
Print #1, [Ô] <vSeg>[Ô] & [Ô]0[Ô] & [Ô]</vSeg>[Ô]
Print #1, [Ô] <vDesc>[Ô] & [Ô]0[Ô] & [Ô]</vDesc>[Ô]
Print #1, [Ô] <vII>[Ô] & [Ô]0[Ô] & [Ô]</vII>[Ô]
Print #1, [Ô] <vIPI>[Ô] & [Ô]0[Ô] & [Ô]</vIPI>[Ô]
Print #1, [Ô] <vPIS>[Ô] & [Ô]1000.00[Ô] & [Ô]</vPIS>[Ô]
Print #1, [Ô] <vCOFINS>[Ô] & [Ô]1000.00[Ô] & [Ô]</vCOFINS>[Ô]
Print #1, [Ô] <vOutro>[Ô] & [Ô]0.00[Ô] & [Ô]</vOutro>[Ô]
Print #1, [Ô] <vNF>[Ô] & [Ô]1000.00[Ô] & [Ô]</vNF>[Ô]
Print #1, [Ô] </ICMSTot>[Ô]
Print #1, [Ô] </total>[Ô]


Print #1, [Ô] <transp>[Ô]
Print #1, [Ô] <modFrete>[Ô] & [Ô]0[Ô] & [Ô]</modFrete>[Ô]
Print #1, [Ô] <transporta>[Ô]
Print #1, [Ô] <CNPJ>99999999999999</CNPJ>[Ô]
Print #1, [Ô] <xNome>Distribuidora de Bebidas Fazenda de SP Ltda.</xNome>[Ô] [ô]nome transportadora
Print #1, [Ô] <IE>171999999119</IE>[Ô]
Print #1, [Ô] <xEnder>Rua Central 100 - Fundos - Distrito Industrial</xEnder>[Ô]
Print #1, [Ô] <xMun>SAO PAULO</xMun>[Ô]
Print #1, [Ô] <UF>SP</UF>[Ô]
Print #1, [Ô] </transporta>[Ô]
Print #1, [Ô] <veicTransp>[Ô]
Print #1, [Ô] <placa>BXI1717</placa>[Ô]
Print #1, [Ô] <UF>SP</UF>[Ô]
Print #1, [Ô] <RNTC>123456789</RNTC>[Ô]
Print #1, [Ô] </veicTransp>[Ô]

Print #1, [Ô] <vol>[Ô]
Print #1, [Ô] <qVol>0</qVol>[Ô]
Print #1, [Ô] <esp>CAIXA</esp>[Ô]
Print #1, [Ô] <marca>LINDOYA</marca>[Ô]
Print #1, [Ô] <nVol>500</nVol>[Ô]
Print #1, [Ô] <pesoL>0</pesoL>[Ô]
Print #1, [Ô] <pesoB>0</pesoB>[Ô]
Print #1, [Ô] <lacres>[Ô]
Print #1, [Ô] <nLacre>[Ô] & [Ô]1[Ô] & [Ô]</nLacre>[Ô]
Print #1, [Ô] </lacres>[Ô]
Print #1, [Ô] </vol>[Ô]
Print #1, [Ô] </transp>[Ô]
Print #1, [Ô] </infNFe>[Ô]
Print #1, [Ô] </NFe>[Ô]
Print #1, [Ô]</enviNFe>[Ô]




Close #1