Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
16 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 16 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 7018 usuários registrados
O último usuário registrado atende pelo nome de Marcos Souza

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

Planilha XLSX via VFF9

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

Resolvido Planilha XLSX via VFF9

Mensagem por Linghston em 23/9/2011, 08:02

Caros amigos,
Bom Dia...
Alguém conseguiu trabalhar esta informação / dica que nosso colega Fernando mencionou?
Pois eu estou com este problema de criar planilhas Excel 2007 via VFP9 e pelo que lê parece ser uma boa alternativa esta dica, porem muito complicada para o meu nível.
Se alguém puder me ajudar fico muito agradecido.

Obrigado.

[Você precisa estar registrado e conectado para ver este link.]

Linghston
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido vai ai um bemmm simples

Mensagem por megasoft em 25/1/2012, 09:10

xFinal = RECCOUNT("rela_corprodutos")
xInicio = 1
WAIT windows "Aguarde, abrindo o excel e montando a Planilia..." NOWAIT NOCLEAR
Oexcel=createobject("Excel.application")
Oexcel.workbooks.add
Oexcel.visible=.t.
x = 1
SELECT rela_corprodutos
GO TOP
DO WHILE x <= xFinal
IF X = 1
Oexcel.cells(x,1).font.size=10
Oexcel.cells(x,1).font.color=rgb(180,0,0)
Oexcel.cells(x,1).font.bold=.t.
Oexcel.cells(x,1).value=xPedidos
ELSE
Oexcel.cells(x,1).font.size=12
Oexcel.cells(x,1).font.color=rgb(0,0,255)
Oexcel.cells(x,1).font.bold=.f.
Oexcel.cells(x,1).value=rela_corprodutos.CODI_PROD

Oexcel.cells(x,2).font.size=12
Oexcel.cells(x,2).font.color=rgb(0,0,255)
Oexcel.cells(x,2).font.bold=.f.
Oexcel.cells(x,2).value=rela_corprodutos.CODI_CORE

Oexcel.cells(x,3).font.size=12
Oexcel.cells(x,3).font.color=rgb(0,0,255)
Oexcel.cells(x,3).font.bold=.f.
Oexcel.cells(x,3).value=rela_corprodutos.exp_8
ENDIF
SELECT rela_corprodutos
SKIP
x=x+1
ENDDO
WAIT CLEAR

megasoft
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Resolvido Re: Planilha XLSX via VFF9

Mensagem por alceu11 em 25/1/2012, 10:14

Para deixar mais detalhada esta dica do Joao
Vou deixar o codigo dele, com uma tabela.,para executar o codigo e trazer a exp.

Código:

CLOSE DATABASES
 IF !FILE('CLIENTE.DBF')
  CREATE TABLE CLIENTE (NUMERO N(4,0),NOME_CLI C(30), ENDERECO C(40), BAIRRO C(20), CIDADE C(30), UF C(2))
 SELECT CLIENTE
 INDEX on cliente TAG cliente
 FOR I=1 TO 20
    INSERT INTO CLIENTE (NUMERO,noME_CLI,ENDERECO) VALUES (I,"CLIENTE "+STR(I), 'RUA ')
 ENDFOR
 ENDIF
 IF !USED("CLIENTE")
    USE CLIENTE IN 0 ALIAS CLIENTE SHARED
 ENDIF
 SELECT CLIENTE




xFinal = RECCOUNT("cliente")
xInicio = 1
WAIT windows "Aguarde, abrindo o excel e montando a Planilia..." NOWAIT NOCLEAR
Oexcel=createobject("Excel.application")
Oexcel.workbooks.add
Oexcel.visible=.t.
x = 1
SELECT cliente
GO TOP
DO WHILE x <= xFinal
IF X = 1
Oexcel.cells(x,1).font.size=10
Oexcel.cells(x,1).font.color=rgb(180,0,0)
Oexcel.cells(x,1).font.bold=.t.
 OExcel.Range("B1").Value = 500
Oexcel.cells(x,1).value='Tabela de precos' &&xPedidos
ELSE
Oexcel.cells(x,1).font.size=12
Oexcel.cells(x,1).font.color=rgb(0,0,255)
Oexcel.cells(x,1).font.bold=.f.
Oexcel.cells(x,1).value=cliente.NUMERO

Oexcel.cells(x,2).font.size=12
Oexcel.cells(x,2).font.color=rgb(0,0,255)
Oexcel.cells(x,2).font.bold=.f.

Oexcel.cells(x,2).value=cliente.noME_CLI

Oexcel.cells(x,3).font.size=12
Oexcel.cells(x,3).font.color=rgb(0,0,255)
Oexcel.cells(x,3).font.bold=.f.
Oexcel.cells(x,3).value=cliente.endERECO
ENDIF
SELECT cliente
SKIP
x=x+1
ENDDO
WAIT CLEAR

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Planilha XLSX via VFF9

Mensagem por Julio em 26/1/2012, 08:19

Bom Dia Alceu

No codigo acima da gerando um erro na criação do indexe

Código:
INDEX on cliente TAG cliente
,

acho que seria nome_cli, ficando assim

Código:
index on NOME_CLI tag cliente

e esta gerando uma tabela vazia.


Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Planilha XLSX via VFF9

Mensagem por alceu11 em 26/1/2012, 09:36

E isto ai , Julio fiz de Proposito se alguem ia testar....
Codigo certo
Código:
 CLOSE DATABASES
 IF !FILE('CLIENTE.DBF')
  CREATE TABLE CLIENTE (NUMERO N(4,0),NOME_CLI C(30), ENDERECO C(40), BAIRRO C(20), CIDADE C(30), UF C(2))
 SELECT CLIENTE
 INDEX on nome_cli TAG cliente
 FOR I=1 TO 20
    INSERT INTO CLIENTE (NUMERO,noME_CLI,ENDERECO) VALUES (I,"CLIENTE "+STR(I), 'RUA ')
 ENDFOR
 ENDIF
 IF !USED("CLIENTE")
    USE CLIENTE IN 0 ALIAS CLIENTE SHARED
 ENDIF
 SELECT CLIENTE
set orde to cliente
xFinal = RECCOUNT("cliente")
xInicio = 1
WAIT windows "Aguarde, abrindo o excel e montando a Planilia..." NOWAIT NOCLEAR
Oexcel=createobject("Excel.application")
Oexcel.workbooks.add
Oexcel.visible=.t.
x = 1
SELECT cliente
GO TOP
DO WHILE x <= xFinal
IF X = 1
Oexcel.cells(x,1).font.size=10
Oexcel.cells(x,1).font.color=rgb(180,0,0)
Oexcel.cells(x,1).font.bold=.t.
 OExcel.Range("B1").Value = 500
Oexcel.cells(x,1).value='Tabela de precos' &&xPedidos
ELSE
Oexcel.cells(x,1).font.size=12
Oexcel.cells(x,1).font.color=rgb(0,0,255)
Oexcel.cells(x,1).font.bold=.f.
Oexcel.cells(x,1).value=cliente.NUMERO

Oexcel.cells(x,2).font.size=12
Oexcel.cells(x,2).font.color=rgb(0,0,255)
Oexcel.cells(x,2).font.bold=.f.

Oexcel.cells(x,2).value=cliente.noME_CLI

Oexcel.cells(x,3).font.size=12
Oexcel.cells(x,3).font.color=rgb(0,0,255)
Oexcel.cells(x,3).font.bold=.f.
Oexcel.cells(x,3).value=cliente.endERECO
ENDIF
SELECT cliente
SKIP
x=x+1
ENDDO
WAIT CLEAR

Vamos ver se resolve o topico com a dica do Joao, da Megasoft

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Planilha XLSX via VFF9

Mensagem por Julio em 26/1/2012, 10:13

Mas, Alceu;

Ainda esta gerando tabela em branco e esta dando erro na linha
Código:
set orde to cliente
antes do wait.

Apesar do indece ser criado dentro da pasta.


Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Planilha XLSX via VFF9

Mensagem por alceu11 em 26/1/2012, 10:22

O erro esta dando:
Pq a tabela ja existe, e o indice só e gerado, se a tabela nao existir.
Entao execute o processo em outro local,e ou pasta, ou exclua a tabela cliente do seu diretorio.......,,,e execute o codigo......
Retorne se funcionar.......

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Planilha XLSX via VFF9

Mensagem por Julio em 26/1/2012, 12:45

Alceu

Agora funcionou e gerou com dados a planilha.

julio

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Planilha XLSX via VFF9

Mensagem por Linghston em 23/2/2012, 08:38

Alceu obrigado pelas dicas e orientações, consegui assim resolver minha questão e gerei a planilha usando o código acima.

Valeu!!!!

Linghston
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Meritos do Joao

Mensagem por alceu11 em 23/2/2012, 09:25

Linghston
B.Dia
Kem resolveu o topico, foi a colaboracao do Joao da "Megasoft" em 25/1/2012 as 10hs;
Eu so crie uma situacao real baseado na resposta dele em 25/1/2012.
Agora nao sei no caso de acima de 15 mil registro, como ficara, pq era o seu problema, nos topicos seus de "Excel".

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


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