Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
14 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 14 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
Como preencher campos vazios

9/2/2017, 11:55 por Linghston

Pessoal boa tarde,

É o seguinte, eu preciso preencher os campos de uma coluna da tabela DBF que …

Comentários: 2

Enviar msg para WhatsAPP via VFP

7/2/2017, 10:31 por Eliana

Olá Pessoal!

Alguém sabe se é possível enviar mensagem para o WhatsAPP via VFP?


Grata


Comentários: 0

Tudo dá errado

3/2/2017, 16:50 por Douglas Pascini

Troquei de maquina, achei que seria uma boa, [Você precisa estar registrado e conectado para ver esta imagem.]  pois passei para uma maquina melhor.

Instalei o …

Comentários: 1

URGENTE - Instalação do aplicativo

24/1/2017, 08:51 por Douglas Pascini

Bom dia. Estou com um problema, ao fazer a instalação (colocar os arquivo) do aplicativo na …

Comentários: 0

USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 3

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

Os nossos membros postaram um total de 21 mensagens em 12 assuntos

Cursor Adapter + XML

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

Em curso Cursor Adapter + XML

Mensagem por mfelis em 20/7/2010, 08:25

Olá, estou criando um sistema então decidir utilizar as minhas tabelas não em um banco de dados e sim como um XML, assim tenho duas apps a minha client e a minha server, através da client pesso a server para enviar a Tabela Assuntos, então ele enviar o XML Assuntos e converto em um Cursor utilizando XMLTOCURSOR, CURSORTOXML mas o problema é que utilizo o seguinte comando para excluir:

Código:
abre_tabela("cursorAssuntos")

Select cursorAssuntos

lRecord = recno()
lAssunto = Thisform.grdAss.colnome.text1.value


If Messagebox("Deseja Excluir: " + chr(13) + lAssunto,4+48,"Exclusão!") = 6
Go Record (lRecord)
Delete
Thisform.Refresh
endif

Já Tentei ao Invés de Delete Colocar:

Código:
Delete From cursorAssuntos Where cursorAssuntos.Assunto = lAssunto
*-----------------------------*

Ai Tenho um Botão Salvar:
Código:

salva_tabela("CursorAssuntos")

Ai Parte Pricinpal do salva_tabela á que constroi o XMl o resto só o envia!

Código:

LParameters nome
lXmlDir = getenv("TMP") + "\KXml" + sys(2015)

nome= Upper(Nome)

Md (lXmlDir)

lXmlFile = lXmlDir + STRTRAN(nome,"cursor","") + ".xml"
lXSD = lXmlDir + STRTRAN(nome,"cursor","") + ".xsd"
lWebSite = "http://SiteEmpresa/" + lxsd

CURSORTOXML(Nome,lXmlFile,1, 512, 0, ;
      lXSD,lWebSite)



* O Resto Envia e Tenho Certeza e Substitui o Arquivo do Server pois já fiz teste gerando um cursor, alterando -o pelo notepad e enviando ele!

Ai que está o problema no Ambiente de execução a grd e o cursor não aparece o(s) regsitro(s). mas o por exemplo sem alteração temos 500 registros com alterações teriamos 490 registros! Ok mas quando do um Browser, o numero de registro continua 500 mas não aparece nada, mas quando salvo no arquivo invés de salvar o branco, ele salvo como senão ouvesse alteração!, o que eu faço???? Question Question Question

mfelis
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Em curso Re: Cursor Adapter + XML

Mensagem por Marcos Guedes em 20/7/2010, 11:08

Não conseguir entender muito bem...
Mas o seguinte comando não resolveria?
Código:
THISFORM.seuGrid.REFRESH()

_________________
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

Em curso Re: Cursor Adapter + XML

Mensagem por mfelis em 20/7/2010, 12:48

A Grd Refresca mas os Registros do Cursor não são deletados entendeu?

mfelis
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Em curso Re: Cursor Adapter + XML

Mensagem por mfelis em 20/7/2010, 12:59

outro Problema é que a dll mxml3.dll dá um erro: O Sistema não pode encontrar o Objeto!

O que é este problema?

mfelis
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Em curso Re: Cursor Adapter + XML

Mensagem por Marcos Guedes em 20/7/2010, 13:06

Verificou se estais utilizando
Código:
SET DELETED ON

???

Se você fechar e abrir o form, os registros permanecem, ou desaparecem?

Talvez o erro esteja em sua cláusula WHERE.

Quanto ao erro sobre a "mxml3.dll" isto é antes ou depois?
Se você não souber dividir o assunto para perguntar, sinto muito, mas não poderei ajudar.

_________________
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

Em curso Re: Cursor Adapter + XML

Mensagem por mfelis em 20/7/2010, 16:43

Sim Utilizo, o set deleted on.
e sobre o erro é quando vou usar o Comando XMLTOCURSOR,
Olha o PRG que eu fiz para testes:
Código:
Create Cursor tes1 ( Nome c(25) , horariodata T)

lXML = Putfile("Salvar Em:","XMLtes1","Xml")
lXDS = Putfile("Salvar Em:","XMLtes1","XDS")

For lContador = 1 To 100
   Insert Into tes1 (Nome , horariodata) Values ( "Teste: " + Str(lContador), Datetime())

   ? "Registro: " + Str(lContador)
Endfor

Cursortoxml("tes1", lXML,1,512 , 0,lXDS, "http://www.microsoft.com/" + lXDS)
 
Set Step On

*Create Cursor tes2 (Nome c(25) , horariodata T)

Xmltocursor(lXML,"tes2",512)

Select tes2

Go Record 1
Delete
Go Record 5
Delete

lXML2 = Putfile("Salvar Em:","XMLtes1","Xml")
lXDS2 = Putfile("Salvar Em:","XMLtes1","XDS")

Cursortoxml("tes", lXML2, 1, 512, 0,lXDS2, "http://www.microsoft.com/mySchema.xsd")



mfelis
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Em curso Re: Cursor Adapter + XML

Mensagem por Marcos Guedes em 18/10/2010, 10:14

up!

_________________
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

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