GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV
,
WEBDEV
e
WINDEV Mobile
Inicio
|
Mensagens recentes
|
Conecte-se...
|
Disconnect
|
Português
Inicio
→
WINDEV 25
→
Aula 1011 - WinDev - Sefaz Gratuito - gravar Cliente xml/Importar cliente HyperFile
Aula 1011 - WinDev - Sefaz Gratuito - gravar Cliente xml/Importar cliente HyperFile
Iniciado por amarildo, dez., 26 2016 6:10 PM - Sem resposta
Conecte-se…
amarildo
#1
Membro registado
535 mensagems
Popularité : +14 (14 votes)
Publicado em dezembro, 26 2016 - 6:10 PM
//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"
)
<
?
xml version
=
"1.0"
?
>
<
xmlns
=
"http://www.portalfiscal.inf.br/nfe"
versao
=
"1.02"
>
<
dest
>
<
CNPJ
>
00077074000126
<
/
CNPJ
>
<
xNome
>
Coin Indústria Comércio de Plásticos Ltda
<
/
xNome
>
<
enderDest
>
<
xLgr
>
Rua miranda
<
/
xLgr
>
<
nro
>
1001
<
/
nro
>
<
xBairro
>
Liberdade
<
/
xBairro
>
<
cMun
>
4313409
<
/
cMun
>
<
xMun
>
Novo Hamburgo
<
/
xMun
>
<
UF
>
RS
<
/
UF
>
<
CEP
>
93330390
<
/
CEP
>
<
cPais
>
1058
<
/
cPais
>
<
xPais
>
BRASIL
<
/
xPais
>
<
fone
>
5135879500
<
/
fone
>
<
/
enderDest
>
<
IE
>
0860221571
<
/
IE
>
<
email
>
coin@coininjetados.com.br
<
/
email
>
<
/
dest
>
<
/
sistema
>
http://windevdesenvolvimento.blogspot.com.br/2016/12/aula-1011-windev-sefaz-gratuito-gravar.html
Denunciar
0
0
→ Voltar para WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Tipo de Pesquisa
Apenas tópicos
Todas as mensagens
Período de pesquisa
Qualquer momento
Última hora
Últimas 24 horas
Semana passada
Mês passado
Ano passado
Cancelar
Pré-visualização da sua mensagem
Adicionar imagem
Importar uma imagem de uma URL
Enviar uma imagem a partir do seu disco
Deixe um ficheiro ou clique em "Procurar ..."
ou
Cancelar
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Texto