Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

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

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

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.

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 é?

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"

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