Uso este codigo com vb6.
snNota = format(CmbNumCFe, “000000”)
Call Rnd1
numeroSessao = format(gNseq, “000000”)
codigoDeAtivacao = gsStrAtivacao ‘”12345678″
dadosVenda = gsPastaCfe & “\” & snNota & “.xml”
sRetorno = EnviarDadosVenda(numeroSessao, codigoDeAtivacao, dadosVenda) ‘ENVIA O XML DA VENDA PARA O SAT