Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
13 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 13 Visitantes :: 1 Motor de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Últimos assuntos
» Ajuda a direcionar
8/12/2016, 01:17 por miiiih

» Alterar uma palavra num arquivo de texto
5/12/2016, 12:02 por Teseu

» Buscar endereço por CEP
3/12/2016, 19:59 por pedrossian

» USAR WEBSERVICE NO VFP9
2/12/2016, 09:50 por AJC

» BANIMENTO DE USUARIO
17/11/2016, 08:31 por FAF

» Impressora Ticket
15/11/2016, 09:20 por clima238

» Gráfico
9/11/2016, 10:43 por hidroluz

» TRANSPOR TABELA
9/11/2016, 10:34 por hidroluz

» MUDANÇA DO .DBF PARA POTSGREE
9/11/2016, 09:12 por AJC

» Website com videoaulas sobre linguagens de programação
8/11/2016, 09:56 por JLDR

» Parceria para desenvolvimento de template em Wordpress
7/11/2016, 19:15 por mindix

» Data fica invertida na planilha que é gerada via programa.
27/10/2016, 11:00 por Linghston

» Maximizar report direto do menu
21/10/2016, 20:48 por Rosangela Pires

» Fechar form com tempo
21/10/2016, 10:15 por Rosangela Pires

» URGENTE: Ajuda com impressora ELGIN-L42
14/10/2016, 09:53 por megasoft

» Opções para gerar NF-e
10/10/2016, 09:07 por mavsinfo

» Google Maps
8/10/2016, 15:08 por Rosangela Pires

» Mysql
5/10/2016, 11:22 por Marcos Guedes

» Acessando Banco em MYSQL de um projeto WORDPRESS
3/10/2016, 10:58 por Marcos Guedes

» OPTION SELECT MOSTRAR CAMPOS QUASE PRONTO
26/9/2016, 21:09 por BobKuspe

Alterar uma palavra num arquivo de texto

5/12/2016, 12:02 por Teseu

Olá prezados colegas de programação!

Este é eu primeiro post no fórum e gostaria de poder …

Comentários: 0

Buscar endereço por CEP

3/12/2016, 19:59 por pedrossian

Caros amigos, meu código para buscar endereço pelo CEP não funciona mais.
Alguém pode me …

Comentários: 0

USAR WEBSERVICE NO VFP9

2/12/2016, 09:50 por AJC

Pessoal, preciso de um material ou livro que me traga instruções como
usar a consumação de …

Comentários: 0

BANIMENTO DE USUARIO

13/11/2016, 16:21 por FAF

A usuária ROSANGELA PIRES ao tentar acessar o Forum obtem sempre a mensagem de BANIMENTO.
A mesma …

Comentários: 3

Impressora Ticket

15/11/2016, 09:20 por clima238

Bom dia,
Por favor alguém me explique porque o código abaixo imprime no ecrã em vez do printer: …

Comentários: 0

Estatísticas
Temos 6964 usuários registrados
O último usuário registrado atende pelo nome de Ricardo Cassolatto

Os nossos membros postaram um total de 17119 mensagens em 2577 assuntos

Transformar XML para STRING VFP9

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Resolvido Transformar XML para STRING VFP9

Mensagem por pedrossian em 24/11/2012, 23:23

Olá pessoal.
Estou fazendo uma conexão co WEBSERVICE de terceiros (ASSOCIAÇÃO DE CRIADORES DE GADO)
Eles me mandaram um XML que tenho que adaptar para enviar.
Alguem sabe como tranformar esse XML em STRING?

CDCPASTO.XML
Código:
<?xml version="1.0" encoding="iso-8859-1" ?>
<!-- LAYOUT PARA GERAÇÃO DE CDC MONTA A PASTO (MONTA NATURAL) -->
<!-- Informe no máximo 20 acasalamentos por CDC -->
<documento>
  <numero>685</numero>
  <tipo>CDCMN</tipo>
  <ano>2009</ano>
  <mes>05</mes>
  <dia>01</dia>  <!-- No caso de Monta a Pasto a data de cobrição deve ser a mesma para todas as vacas -->
  <email>email@docriador.com.br</email>
  <codigo_fazenda>01</codigo_fazenda> <!-- Informe o código correto da fazenda no cadastro da ABCZ (Se não souber, veja relação de Fazendas deste criador na ABCZ) -->
  <touro>
    <!-- No caso de Monta a Pasto é permitido somente 1 reprodutor por CDC-->
    <id>01</id>
    <raca>NEL</raca>
    <grau_de_sangue>PO</grau_de_sangue>
    <serie_alfa>CSCC</serie_alfa>
    <rgn>1617</rgn>
    <rgd></rgd>
    <nome>TARZAN TE DE NAV.</nome>
  </touro>
  <vaca>
    <id>01</id>
    <id_touro>01</id_touro>
    <raca>NEL</raca>
    <grau_de_sangue>PO</grau_de_sangue>
    <serie_alfa>CSCC</serie_alfa>
    <rgn>A8894</rgn>
    <rgd></rgd>
    <nome>MALENA DE NAV</nome>
  </vaca>
  <vaca>
    <id>02</id>
    <id_touro>01</id_touro>
    <raca>NEL</raca>
    <grau_de_sangue>PO</grau_de_sangue>
    <serie_alfa>CSCN</serie_alfa>
    <rgn>A190</rgn>
    <rgd></rgd>
    <nome>JOVIAL DE NAV</nome>
  </vaca>
  <vaca>
    <id>03</id>
    <id_touro>01</id_touro>
    <raca>NEL</raca>
    <grau_de_sangue>PO</grau_de_sangue>
    <serie_alfa></serie_alfa>
    <rgn></rgn>
    <rgd>BR6179</rgd>
    <nome>BELONA DA SM</nome>
  </vaca>
</documento>

Obrigado.



pedrossian
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Falta vc pesquisar no site ,,,,,,,,esta rotina ja esta pronta

Mensagem por alceu11 em 26/11/2012, 09:14

codigo

Código:
 o nome do xml tera ke mudar para rotina e pasta
CLOSE DATABASES ALL
SET SAFETY off
IF !file('c:\PEDRO\nota.xml')
WAIT WINDOW 'nao encontrei o xml' TIMEOUT 2
RETURN .F.
ENDIF

IF file ('c:\PEDRO\nota.xml')
cfile=FILETOSTR('c:\PEDRO\nota.xml')
cTag=STREXTRACT(cFile,'','',1)
MESSAGEBOX(CTAG)
**Pegar so o nome do emitente dentro da arquivo nfe
cTag1=STREXTRACT(cFile,'','',1)
MESSAGEBOX('Emitente '+ CTAG1,48,'Aviso o Emitente',1000)
***aqui vou pegar o endereco do emitente
cTag2=STREXTRACT(cFile,'','',1)
cTag3=STREXTRACT(cFile,'','',1)

endif
***Pegar somente o item 1 do xml

IF STREXTRACT(cfile,'',1)="1"
vrprodutos1=STREXTRACT(cfile,'')
WRE= STREXTRACT(cfile,'',1)
MESSAGEBOX(vrprodutos1+chr(13)+' do item 1',48,'atencao item 1',1500)

ELSE
MESSAGEBOX("1 IF Não tinha itens",48,'atencoa',1000)
ENDIF


***vou comecar pelo item 2 e vou ate o iten 50
n=1
FOR I =1 TO 50

IF STREXTRACT(cfile,'',n)=ALLTRIM(STR(n))
wre=STREXTRACT(cfile,'',n)
* WAIT WINDOW 'item nr '+WRE TIMEOUT 1
vrprodutos2=STREXTRACT(cfile,'',n)
MESSAGEBOX(vrprodutos2,48+0,'Atencao'+wre,900)
* wait window 'item nr '+ str(n) time 1
n=n+1
ELSE
**se nao encontro n=50 para fechar o loop do for next
n=50
WAIT WINDOW 'Fim dos 50 itens nfe' TIMEOUT 1
EXIT

ENDIF

ENDFOR


****aqui vou inserir as tag que busquei e gravei em uma tabela
CREATE TABLE TAGO( N_CAMPO C(10),CAMPO C(60))
SELECT TAGO
INSERT INTO tago (N_CAMPO,CAMPO) VALUES ('CNPJ',ctag)

INSERT INTO tago (N_CAMPO,CAMPO) VALUES ('nome',ctag1)
INSERT INTO tago (N_CAMPO,CAMPO) VALUES ('lgr',ctag2)
INSERT INTO tago (N_CAMPO,CAMPO) VALUES ('UF',ctag3)


n = 1
FOR n = 1 TO 500
IF STREXTRACT(cfile,'',n)=ALLTRIM(STR(n))
wre=STREXTRACT(cfile,'',n)
VCFOP = STREXTRACT(CFILE,'','',n)
XVCFOP = LEFT(ALLTRIM(VCFOP),2)
VICMSST = IIF(XVCFOP="51","",STREXTRACT(CFILE,'','',n))
*WAIT WINDOW "WRE = "+WRE+" VCFOP = "+VCFOP+" SUBTRIB = "+VICMSST TIMEOUT 0.51

INSERT INTO tago (N_CAMPO,CAMPO) VALUES ('iten '+wre," VCFOP = "+VCFOP+" SUBTRIB = "+VICMSST )


endif
ENDFOR
BROWSE LAST normal
SELECT tago
COPY TO arq45.txt sdf
MODIFY COMMAND arq45.txt

** no final tera um txt assim




procure no forum topico da Natalia,,,,,la tera tudo isto passo a passo...

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Transformar XML para STRING VFP9

Mensagem por Marcos Guedes em 26/11/2012, 14:19

Tente também:

Código:
XMLTOCURSOR('CAMINHO\ARQUIVO.XML', 'NOME_CURSOR',512)

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: Transformar XML para STRING VFP9

Mensagem por pedrossian em 26/11/2012, 14:41

Obrigado Alceu e Marcos por enquanto!!!

pedrossian
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Transformar XML para STRING VFP9

Mensagem por Marcos Guedes em 27/11/2012, 15:26

Resolvido?

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: Transformar XML para STRING VFP9

Mensagem por pedrossian em 6/12/2012, 22:28

Marcos.
Não usei XMLTOCURSOR()
usei STRTOFILE(string,nome.XML,4)
aprendi com SUB-ZERO
Já resolvi.
Abç.

pedrossian
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Transformar XML para STRING VFP9

Mensagem por megasoft em 20/9/2013, 09:21

Alguem sabe como eu possa gerar um caso igual, mas ao contrario ? um XML para DBF ?

megasoft
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Resolvido Re: Transformar XML para STRING VFP9

Mensagem por rrfsistemas em 21/9/2013, 01:44

Megasoft o exemplo que o Marcos Guedes escreveu transforma um arquivo XML em cursor, que nada mais é do uma tabela DBF.

rrfsistemas
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Resolvido Re: Transformar XML para STRING VFP9

Mensagem por Conteúdo patrocinado Hoje à(s) 17:23


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum