PC Toledo

Enviado: **22 Jan 2006 18:59**

PESSOAL TO PRECISANDO DE UMA AJUDA

TENHO UM ARQUIVO CHAMADO AMOSTRA.DBF COM 10.000 REGISTRO
E TENHO QUE DE VEZ EM QUANDO GERAR ALGUNS NOVOS ARQUIVOS TIPO DE 20 A 50 E DEPOIS DE 55 A 70 E ASSIM POR DIANTE E FIZ UMA ROTINA
TIPO ASSIM
*------------------TRANSFERENCIA DE ARQUIVOS PARA O EXCEL------------
PROCEDURE TRFF2
DO LIMPA
@ 08,15 SAY "ｺ No.inicial.: ｺ"
@ 09,15 SAY "ｺ No.final...: ｺ"
@ 12,15 SAY "ｺ Nome do Arq: ｺ"
@ 13,15 SAY "ｺ Amostra....: ｺ"
@ 14,15 SAY "ｺ Cliente....: ｺ"
AMOST1 = 0
AMOST2 = 0
VARQ=SPACE(30)
OK="S"
@ 08,31 GET AMOST1 PICTURE "#####"
@ 09,31 GET AMOST2 PICTURE "#####"
READ
IF AMOST1=0
RETURN
ENDIF
IF OK="N"
RETURN
ENDIF
USE AMOSTRA
GO TOP

VARQ:="FOLIARDE"+LTRIM(STR(AMOST1))+"A"+LTRIM(STR(AMOST2)) +".XLS"
=====> ELE NAO TA CRIANDO POIS O NOME FICARIA ASSIM FOLIARDE20A50.XLS ESTA DANDO ACIMA DE 8 CARACTER O NOME DO ARQUIVO

@ 12,31 SAY VARQ
COL01=CHR(9)
SET PRINTER TO (VARQ)
SET DEVICE TO PRINT
VTIT:="Cliente"+COL03+;
"Cuidad"+COL03+;
"Ident.da amostra"+COL03+;
"Material"+COL01+;
"Amostra No."+COL01+;
@ 00,00 SAY VTIT
V_L=1
DO WHILE ! EOF()
IF NUMER_FOL < AMOST1 .OR. NUMER_FOL > AMOST2
SKIP
LOOP
ENDIF

VLINHA:=CLIEN_FOL+COL03+;
CIDAD_FOL+COL03+;
IDENT_FOL+COL03+;
MATER_FOL+COL03+;
LTRIM(STR(NUMER_FOL))+COL01+;
+COL01
SET DEVICE TO PRINT
@ PROW()+1,00 SAY VLINHA
SET DEVICE TO SCREEN
V_L+=1
@ 13,31 SAY NUMER_FOL
@ 14,31 SAY CLIEN_FOL
FOR X=1 TO 100000
NEXT
SKIP
ENDDO
SET PRINTER TO
SET DEVICE TO SCREEN
CLOSE ALL
SET COLOR TO &COR_ALERTA
@ 21,1 SAY 'Msg: O arquivo de amostra foi criado com sucesso para o excel. Press. [ENTER] '
SET COLOR TO &COR_NORMAL
ENTER()
RETURN

AGRADECO A AJUDA

Enviado: **22 Jan 2006 23:06**

Amiguinho

Neste pagina voce encontra bibliotecas e informações sobre este assunto

Veja em http://www.engwall.com/clipper/lfnlib.htm

@braços :?)

Enviado: **25 Jan 2006 13:11**

Olá Rubens, a forma mais fácil é você gerar o arquivo com nome pequeno (de até 8 caracteres) e depois copiá-lo para o nome desejado.

Assim:

Código: Selecionar todos

VARQ:="FOLIARDE"+LTRIM(STR(AMOST1))+"A"+LTRIM(STR(AMOST2)) +".XLS" 

!Copy ARQUIVO.TXT &vArq /y

fErase('ARQUIVO.TXT')

Espero ajudá-lo.

Mario

Enviado: **25 Jan 2006 13:24**

CARO COLEGA NAO DEU CERTO

O QUE SIGNIFICA O /Y POIS DA ERRO

AGRADECO A SUA ATENCAO VOCE SABE USAR O LNF COMO COMPILO

rubenstulio@hotmail.com

Enviado: **25 Jan 2006 13:42**

Prezado Colega

http://geocities.yahoo.com.br/mmendeso/lfn.zip
http://geocities.yahoo.com.br/mmendeso/lfteste2.zip

No arquivo LFN.ZIP já vai a LFNLIB e a NANFORUM além de programa exemplo que eu fiz, no LFTESTE2.ZIP está outros exemplos de uso da LFN feitos por mim.

O que você precisa está no programa LFTESTE.PRG que está dentro de LFN.ZIP, nele mostra como renomear um arquivo para um nome longo.

Até logo.

Marcelo

PC Toledo

CRIAR ARQUIVO COM NOME LONGO

CRIAR ARQUIVO COM NOME LONGO