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
Últimos assuntos
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: 2

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: 2

Visite meu canal no Youtube

20/1/2017, 00:45 por ImRicoh

VFP Unlimited


Comentários: 0

Bloquear edição do ListBox

17/6/2010, 15:13 por Julio

Pessoal

Boa Tarde!

Tnho uma listbox apenas para exibir o resultado.
Preciso bloquear a listbox …

Comentários: 17

automação do mozilla e chrome

15/1/2017, 12:16 por Handerson Mildroz

Boa tarde a todos!

Sou iniciante no VFP. Preciso de ajuda, pois tenho um código que usa o …

Comentários: 0

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

Os nossos membros postaram um total de 8 mensagens em 3 assuntos

Gerar Arquivo TXT

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

Resolvido Gerar Arquivo TXT

Mensagem por Fernando Milanez em 7/8/2009, 09:49

Pessoal, Bom Dia,

Estou com duas dúvidas na geração de arquivo TXT,
1ª)Tenho os campos filial n(4), re n(7), sindicato n(4) em um cursor,
-Preciso exportar as informações deste cursor um TXT, com 0 (zeros) preenchidos a esquerda, caso o campo não esteja todo preenchido, e com essas posições,

Estou usando o comando:
Código:
copy TO (m.caminhoescolhido) TYPE DELIMITED WITH CHARACTER '0'
Porém não esta dando certo...

2ª) Quando a caixa de dialogo é aberta para o usuário salvar o arquivo, caso ele opte por salvar o arquivo com o mesmo nome de um já salvo, abre uma nova pergunta, Se deseja substituir o arquivo já existente, se o usuário optar por SIM, gera um erro, PQ???
Comando de chamada:
Código:
*INICIA A GERAÇÃO DO ARQUIVO EM TXT
LOCAL caminhoescolhido AS STRING
m.caminhoescolhido = PUTFILE("","","txt")

Obrigado,

Fernando

Fernando Milanez
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Gerar Arquivo TXT

Mensagem por Marcos Guedes em 7/8/2009, 10:27

Realize o seguinte teste e veja se lhe ajuda.
Qualquer dúvida é só avisar!
Código:
*!* Para realizar este teste, crie uma pasta separada
*!* Set o caminho default para a pasta criada,
*!* em seguida crie um PRG e execute o código abaixo

LOCAL caminhoescolhido as String
m.caminhoescolhido = "arquivo.txt"

*!* Caso o arquivo exista, caberá ao programador tratar,
*!* pois o fox não irá perguntar se deseja passar por cima.
SET SAFETY OFF

*!* Cria uma tabela para testes
CREATE TABLE tabela (filial N(4), re N(7), sindicato N(4))
INSERT INTO tabela VALUES (1,2,3)
INSERT INTO tabela VALUES (41,25,36)
INSERT INTO tabela VALUES (410,225,136)

*!* Faz um SELECT retornando para um cursor o resultado desejado, preenchido com zeros
SELECT ;
   STRTRAN(STR(filial)," ","0") AS filial,;
   STRTRAN(STR(re)," ","0") AS re, ;
   STRTRAN(STR(sindicato)," ","0") AS sindicato ;
   FROM tabela INTO CURSOR ocursor

*!* Exporta para um arquivo texto
SELECT("oCursor")
COPY TO (m.caminhoescolhido) TYPE DELIMITED WITH CHARACTER ' '

*!* Fecha o cursor e tabela, respectivamente.
USE IN SELECT("oCursor")
USE IN SELECT("tabela")
*!* Abre o arquivo
MODIFY FILE (m.caminhoescolhido)

Espero ter ajudado!
Very Happy

_________________
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: Gerar Arquivo TXT

Mensagem por Fernando Milanez em 7/8/2009, 10:43

Sem dúvidas que ajudou, Very Happy
Agora só falta um detalhe, Very Happy

O arquivo esta saindo da forma abaixo:

"0000000001"'"0000005251"'"0000000001"
"0000000001"'"0000006364"'"0000000007"
"0000000001"'"0000001566"'"0000000001"
"0000000001"'"0000000711"'"0000000001"
"0000000001"'"0000005886"'"0000000014"


Preciso desta forma:

000100052510001
000100063640007
000100015660001
000100007110001
000100058860014


Sobre onde salvar eu preciso deixar aberto para escolha do usuário, o problema é se ele escolher o arquivo com o mesmo nome, gera um erro que eu estou batendo a cabeça para descobrir!!! Very Happy

Obrigado,

Fernando

Fernando Milanez
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Gerar Arquivo TXT

Mensagem por Fernando Milanez em 7/8/2009, 10:44

Esqueci os campos são filial n(4), re n(7), sindicato n(4), Very Happy

Fernando Milanez
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Gerar Arquivo TXT

Mensagem por Marcos Guedes em 7/8/2009, 10:57

Então troque a linha abaixo:
Código:
COPY TO (m.caminhoescolhido) TYPE DELIMITED WITH CHARACTER ' '

Por esta:
Código:
COPY TO (m.caminhoescolhido) TYPE SDF

Obs: Lembre-se que a quantidades de zeros é controlada no SELECT.

#########################

Quanto ao erro após a escolha do arquivo, pelo usuário, qual a mensagem de erro?

_________________
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: Gerar Arquivo TXT

Mensagem por Fernando Milanez em 7/8/2009, 11:10

É o erro de sobrepor o arquivo sumiu, que bom Very Happy ,
Mas quanto a formatação de acordo com os tamanhos dos campos, não consegui, apanhei, rsrs

Fernando Milanez
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Gerar Arquivo TXT

Mensagem por Marcos Guedes em 7/8/2009, 11:12

Quantos caracteres você pretende exibir no arquivo, por coluna?

_________________
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: Gerar Arquivo TXT

Mensagem por Fernando Milanez em 7/8/2009, 11:16

filial n(4), re n(7), sindicato n(4),

4,7,4

é isso?

Fernando Milanez
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Gerar Arquivo TXT

Mensagem por Marcos Guedes em 7/8/2009, 11:32

Então substitua o SELECT por este:
Código:
SELECT ;
   PADL(ALLTRIM(STR(filial)),4,"0") AS filial,;
   PADL(ALLTRIM(STR(re)),7,"0") AS re, ;
   PADL(ALLTRIM(STR(sindicato)),4,"0") AS sindicato ;
   FROM tabela INTO CURSOR ocursor

_________________
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: Gerar Arquivo TXT

Mensagem por Fernando Milanez em 7/8/2009, 11:44

Funcionou, muito obrigado,
Aprendi mais uma,

Um abraço,

Fernando

Fernando Milanez
Participante Regular
Participante Regular


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