Ir para conteúdo
Fórum Script Brasil

TIDRA

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Sobre TIDRA

TIDRA's Achievements

0

Reputação

  1. Boa Tarde !! meu problema abaixo .... não gera o arquivo .xml se alguém puder dar uma olhada ... examinei e já estou de cabeça quente quem sabe ... escrevi em vb6 por já ter um sistema rodando a 10 anos e não quero mudar ele então para montar o xml para CTE vou pegar as variaveis e ta pronto , até ai .. Obrigado '################### Dim doc As DOMDocument Dim stringXml As String Set doc = New DOMDocument stringXml = "<?xml version= ""1.0""?>" & _ " <ide>" & _ " <cUF>43</cUF><cCT>000000000</cCT>" & _ " <CFOP>6353</CFOP><natOp>TRANSPORTE RODOVIARIO DE CARGAS</natOp>" & _ " <ForPag>0</ForPag><mod>57</mod>" & _ " <serie>1</serie><nCT>1</nCT>" & _ " <dhEmi>2013-01-11T13:33:00</dhEmi><tpImp>1</tpImp>" & _ " <tpEmis>1</tpEmis><cDV>0</cDV>" & _ " <tpAmb>1</tpAmb><tpCTe>0</tpCTe>" & _ " <procEmi>0</procEmi><verProc>1</verProc>" & _ " <cMunEmi>4307708</cMunEmi><xMunEmi>ESTEIO</xMunEmi>" & _ " <UFEmi>RS</UFEmi><modal>01</modal>" & _ " <tpServ>0</tpServ><cMunIni>4307708</cMunIni>" & _ " <xMunIni>ESTEIO</xMunIni><UFIni>RS</UFIni>" stringXml = stringXml & " <cMunFim>4307005</cMunFim><xMunFim>ERECHIM</xMunFim>" & _ " <UFFim>RS</UFFim><retira>1</retira>" & _ " <toma03>" & _ " <toma>0</toma>" & _ " </toma03>" & _ "</ide>" & _ " <compl>" & _ "<xCaracSer>NORMAL</xCaracSer><xEmi>LEANDRO L OLIVEIRA</xEmi>" & _ "<fluxo>" & _ "<xOrig>SM</xOrig><xDest>ER</xDest>" & _ "</fluxo>" & _ "<Entrega><comData><tpPer>2</tpPer><dProg>2013-01-14</dProg></comData>" & _ "<semHora><tpHor>0</tpHor></semHora>" stringXml = stringXml & "</Entrega>" & _ "<xObs>ICMS ISENTO - CONFORME LIVRO I, ART 10 INCISO IX - RICMS/97||LOCALIZE SUA CARGA NO SITE WWW.MERCURIO.COM||FP 0,94 18,35 VT 170,38 PR 50 /A%V 0,10 /AVV 2,34</xObs>" & _ "</compl>" & _ "<emit>" & _ "<CNPJ>95591723003053</CNPJ><IE>1090137912</IE>" & _ "<xNome>EXPRESSO MERCURIO S.A.</xNome><xFant>TNT MERCURIO</xFant>" & _ "<enderEmit>" & _ "<xLgr>R ANGELO BOLSON</xLgr><nro>394</nro><xBairro>MEDIANEIRA</xBairro>" & _ "<cMun>4316907</cMun><xMun>SANTA MARIA</xMun><CEP>97070000</CEP><UF>RS</UF>" & _ "</enderEmit>" & _ "</emit>" & _ "<rem>" & _ stringXml = stringXml & "<CNPJ>94477882000124</CNPJ><IE>1090173145</IE><xNome>RODOAUTO COM PNEUS LTDA</xNome><fone>005532228108</fone>" & _ "<enderReme>" & _ "<xLgr>R DUQUE DE CAXIAS</xLgr><nro>2650</nro><xBairro>CENTRO</xBairro><cMun>4316907</cMun><xMun>SANTA MARIA</xMun>" & _ "<CEP>97070100</CEP><UF>RS</UF>" & _ "</enderReme>" & _ "<infNF><serie>0</serie><nDoc>024292</nDoc><dEmi>2013-01-14</dEmi><vBC>0</vBC><vICMS>0</vICMS><vBCST>0</vBCST><vST>0</vST>" & _ "<vProd>0</vProd><vNF>5402.19</vNF><nCFOP>5405</nCFOP>" & _ "<nPeso>250</nPeso></infNF>" & _ "</rem>" doc.loadXML stringXml doc.Save "C:\43090594760873000146550010000010001151557461.xml" MsgBox "Arquivo XML criado com sucesso!"
×
×
  • Criar Novo...