olha só já estou a dias tentando executar esse comando para poder fazer essa rotina funcionar porem estou encontrando a seguinte dificuldade.
É criado o arquivo temporario, porem na hora de retornar o que foi gravado neste arquivo para o arquivo principal ele não faz.
Segue abaixo a rotina para melhor entendimento e fico no aguardo de uma ajuda com solução.
Código: Selecionar todos
CASE LASTKEY() = -4
area := SELECT()
ind := indexord()
vRec := RECNO()
tmpdd := " "
t_conf := "S"
@ 22,01 CLEAR TO 23,77
@ 01,43 SAY "[F5] Copiar " COLOR ["B/W"]
DO WHILE .T.
t_usu := TAB->USUARIO
d_usu := SPACE(20)
@ 23,02 SAY "Copiar este Usu rio..: "
@ 23,25 SAY t_usu
@ 23,47 SAY "para..: "
@ 23,55 GET d_usu Picture "@!"
CLEAR TYPEAHEAD
SET CURSOR ON
READ
SET CURSOR OFF
IF LASTKEY() = 27
@ 23,01 CLEAR TO 23,77
@ 24,01,24,78 BOX B_DOUBLE
@ 01,01 SAY " Usu rio"
CENTRA(01," [INS] [DEL] [F5] Copiar ")
RETURN(1)
ENDIF
@ 24,23 SAY "Confirma as informa‡äes? S/N [ ]"
@ 24,53 GET t_conf Picture "@!" Valid t_conf $ "SN"
CLEAR TYPEAHEAD
SET CURSOR ON
READ
SET CURSOR OFF
d_usu := STRTRAN(d_usu," ","")
IF t_conf = "N" .OR. LASTKEY() = 27
@ 23,01 CLEAR TO 23,77
@ 24,01,24,78 BOX B_DOUBLE
LOOP
ENDIF
IF t_conf = "S"
COPY TO c:\tmp\tmpnet WHILE t_usu = TAB->USUARIO
USE c:\tmp\tmpnet NEW
REPLACE ALL TMPNET->USUARIO WITH d_usu
SELECT 1
APPEND FROM C:\TMP\TMPNET
@ 23,01 CLEAR TO 23,77
@ 24,01,24,78 BOX B_DOUBLE
@ 01,01 SAY " Usu rio"
CENTRA(01," [INS] [DEL] [F5] Copiar ")
RETURN(1)
ENDIF
ENDDO
RETURN(1)Jeferson.
