Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
5 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 5 Visitantes :: 1 Motor de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
ListBox

23/5/2017, 10:37 por Rosangela Pires

Ola Amigos.

Para se movimentar na grid com as setas colocamos no Metodo AfterChange da grid …

Comentários: 0

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

Estatísticas
Temos 7082 usuários registrados
O último usuário registrado atende pelo nome de Maiara Bosco

Os nossos membros postaram um total de 49 mensagens em 26 assuntos

Arquivo TXT

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

Em curso Arquivo TXT

Mensagem por rosecleia em 26/3/2013, 09:52

Pessoal,
Bom Dia!

Por favor, preciso copiar um arquivo texto para outro arquivo em txt cujo nome devera ter 35 caracteres, o problema é que ele trunca nos 8 caracteres, como devo fazer para criar sem truncar.

estou usando o codigo:
Código:
_arqUniNfe = alltrim( alltrim(N_INI) + "_" + ALLT(STRTRAN(STRTRAN(STRTRAN(EMPCGC, '.'), '-'), '/')) + "_" + padl(alltrim(B00.serie),3,'0') + "_" + alltrim(str(day(PLD_INICIO))) + "_" + padl(month(PLD_INICIO),2,'0')  + "_" + alltrim(str(year(PLD_INICIO))) + '-nfe.txt')

copy file SYS(5)+m.dir_prin+'\NFE\NFENVIAR\'+alltrim(N_INI)+'.TXT' to 'c:\temp\' + _arqUniNfe

Obrigada

Rosecleia
avatar
rosecleia
Participa Pouco
Participa Pouco


Voltar ao Topo Ir em baixo

Em curso Re: Arquivo TXT

Mensagem por Julio em 26/3/2013, 13:10

Boa tarde, Rosecleia.

Eu utilizo o seguinte comando, para alterar uma planilhas de excell geradas.
Depois de gerar a planilha com um nome padrão, utilizo o codigo abaixo para alterar seu nome.
Código:
*!* Crio a Tabela Planilha em Excell
  SELECT Excell
  copy to temporario.xls type xls

  *!* Renomeio a planilha excell para o nome do posto
  LOCAL lcFile

  lcFile = '_' &&+ lcFilem + lcFilea
 
  lcAlterarXLS = UPPER(ALLTRIM(M.IDCURTO))
  lcXLS = UPPER(ALLTRIM('.XLS'))
  lcUSF = 'USF_'
 
  lcNovoNome = lcUSF + 'NOME COM MUITOS CARACTERES' + UPPER(lcAlterarXLS) + lcFile + lcXLS
 
  m.OldFile = "C:\Grafico\TEMPORARIO.XLS"
  m.NewFile = "C:\Grafico\&lcNovoNome"
 
  rename (m.OldFile) to (m.NewFile)
  *!* FInal de renomear arquivo planilha excell

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Em curso Re: Arquivo TXT

Mensagem por rosecleia em 26/3/2013, 13:35

Julio, obrigada por sua resposta, apenas me esqueci de informar que utilizo o Foxpro 2.6 e o arquivo que quero gerar é um TXT.
avatar
rosecleia
Participa Pouco
Participa Pouco


Voltar ao Topo Ir em baixo

Em curso Re: Arquivo TXT

Mensagem por Julio em 26/3/2013, 14:34

Bom o procedimento é o mesmo apenas troque o XLS por TXT.

Código:
*!* Renomeio o arquivo pa para pa e o numero do cnes da unidade

  LOCAL lcFile

  lcFile = '_' &&+ lcFilem + lcFilea
 
  lcAlterarTXT = UPPER(ALLTRIM(M.PR_UID))
  lcTXT = UPPER(ALLTRIM('.TXT'))
  lcBPA = 'PA'
 
  lcNovoNome = lcBPA + lcAlterarTXT + lcEXT
 
  m.OldFile = "C:\Grafico\PA.TXT"
  m.NewFile = "C:\Grafico\&lcNovoNome"
 
  rename (m.OldFile) to (m.NewFile)
*!* Final de renomear arquivo bpa txt

Isto resolve:
Código:
RUN C:\Grafico\arquivotexto.txt
lcTxt = ".txt"
lcNov = "aqui_o_novo_nome_com_a_extensão_grande"  && aqui nao pode deixar espaço entre as palavras
lcnovo = lcNov + lcTxt
rename C:\Grafico\arquivotexto.txt to C:\Grafico\&lcNovo

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Em curso Re: Arquivo TXT

Mensagem por rosecleia em 26/3/2013, 15:06

Julio, executei e o nome do novo arquivo ficou aqui_o_n.txt.
Acho que o problema esta no foxpro 2.6, pois a base dele é DOS não é?
avatar
rosecleia
Participa Pouco
Participa Pouco


Voltar ao Topo Ir em baixo

Em curso Re: Arquivo TXT

Mensagem por Julio em 26/3/2013, 15:36

Rosecleia

O codigo abaixo utilizo em um programa em clipper que roda em DOS 6.22, e esta funcionando.

Código:
RUN C:\Grafico\arquivotexto.txt
lcTxt = ".txt"
lcNov = "aqui_o_novo_nome_com_a_extensão_grande"  && aqui nao pode deixar espaço entre as palavras
lcnovo = lcNov + lcTxt
rename C:\Grafico\arquivotexto.txt to C:\Grafico\&lcNovo

Veja no help do fox 2.6 como executar comandos externos, não sei se tem que ter "!" sem as aspas antes do comando.

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Em curso Re: Arquivo TXT

Mensagem por Nelson Arcas em 26/3/2013, 20:50

Rosecleia, pelo que eu lembro tive problemas com nomes extensos quando utilizava a versão 2.5b, alguns diretórios eu precisei renomear porque senão o fox não entendia, dependendo do nome ele fazia a leitura "Pronto~1" sendo que o nome da pasta seria "Pronto_Atendimento"
avatar
Nelson Arcas
Participa Bastante
Participa Bastante


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