Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

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

Os nossos membros postaram um total de 48 mensagens em 25 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

Resolvido Re: Gerar Arquivo TXT

Mensagem por Conteúdo patrocinado


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