Clique abaixo para nos ajudar
Conectar-se

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 :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
TRY BEGIN E FLOCK()

17/4/2017, 10:32 por AJC

Pessoal estou tendo alguns problemas de gravação em rede, estou usando
try begin, mas vi algo na …

Comentários: 0

Exportar Dados Campo Memo Tabela DBF

10/4/2017, 10:28 por fcampos

Olá bom dia.

Estou tentando exportar os dados de algumas tabelas em formato dbf pelo foxpro.
O …

Comentários: 2

Função EVL()

8/4/2017, 12:18 por Clebervfp

Bom dia a todos.
Vim compartilhar de uma Função do próprio VFP que me benefício muito.
Função …

Comentários: 0

COMO BLOQUEAR REGISTRO OU TABELA NO VISUAL FOXPRO PARA GRAVAÇÃO EM REDE

3/4/2017, 10:29 por AJC

Pessoal estou tendo um problema que acontece sempre busco na minha tabela de clientes o ultimo …

Comentários: 2

Controlar Scanner Twain

31/3/2017, 17:31 por Kleber R Bento

Estou usando o EZTW32.DLL para criar uma ferramenta que escaneia e gera PDF. Porém com esses …

Comentários: 0

Estatísticas
Temos 7063 usuários registrados
O último usuário registrado atende pelo nome de Bravera

Os nossos membros postaram um total de 47 mensagens em 24 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...
avatar
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 ?
avatar
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

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