//Sefaz gratuito - Será o fim em 2017.
//Coloque em Seu sistema Importação do Sefaz.
//vou Mostrar como Gravar o Arquivo em Xml
//Ler Esses arquivos no winDev e gravar em Seus cadastros


//aqui Estou Selecionando o diretório
EDT_Diretorio=fSelectDir("", "")
// Estou Selecionando todos os Xml do Diretorio
s_arquivos_todos is string=fListFile(EDT_Diretorio+"\*.xml")
// vai ler a string e separar tudo que contiver cr
FOR EACH STRING s_arquivo_individual OF s_arquivos_todos SEPARATED by CR
s_nome_arquivo is string=fExtractPath(s_arquivo_individual,fFileName+fExtension) //Percorrer string e pegar os nomes dos arquivos
s_arquivo_xml is string=fLoadText(EDT_Diretorio+"\"+s_nome_arquivo) //ler o arquivo e jogar na variavel s_arquivo_xml
XMLDocument("XML",s_arquivo_xml) //abrir Xml
_cnpj_cpf is string=XMLRead("XML","/sistema/dest/CNPJ") // Lendo Cnpj
IF _cnpj_cpf="" THEN // Se cnpj_cpf for branco
_cnpj_cpf=XMLRead("XML","/sistema/dest/CPF") // Lendo Cpf
END
HReadSeekFirst(cliente,cnpj_cpf,_cnpj_cpf) // Lendo Cliente,para ver se existe cnpj/cpf
IF HFound(cliente) THEN // Se cliente Existe
ELSE // Se nao existe
//HReset(cliente) // limpar Memoria
cliente.cnpj_cpf=_cnpj_cpf
cliente.razao_social_nome=XMLRead("XML","/sistema/dest/xNome") //pegando razao social
cliente.endereco_rua=XMLRead("XML","/sistema/dest/enderDest/xLgr")
// ... gravar os outros campos
// HAdd(cliente) // gravando o cliente
END
XMLClose("XML") //Fechando Xml
Trace(s_nome_arquivo) //mostra na tela o que esta ocorrendo
END
TraceEnd()
Info("Finalizado")