APPEND FROM

[LOUIS]

Hola Amigos

Buenas tardes, espero que se encuentren bien, les escribo desde Guayaquil-Ecuador ...
Tengo una duda y quisiera por favor vuestra ayuda
Tengo la primera dbf llamada A.dbf
y la segunda dbf llamada B.dbf

Ahora bien, abro B.dbf le hago zap para dejarla vacia y entonces hago un Append From para copiar datos desde A.dbf
Pero A.dbf tiene un campo con números de facturas que se repiten en 10 lineas, digamos algo así:
1455
1455
1455
1455
1456
1456
1457
1458
1458
1458
El problema es que a B.dbf sólo debo pasar números sin repetir, es decir sólo deberían aparecer 4 lineas,
1455
1456
1457
1458
y no sé cómo va la sentencia para que se cumpla esa condición en el Append From A.dbf For ...

De antemano os agradezco mucho por vuestras amables sugerencias-
Saludos.
Louis.

[andyglezl]

Yo creo que debería funcionar así:
*--------------------------------------------
I think it should work like this:


SET UNIQUE ON
USE A.dbf
INDEX ON name TO Names
USE B.dbf
APPEND FROM A.dbf ....


ó


USE A.dbf
dbCreateIndex( "Names", "Name", { || Name }, .T. )
USE B.dbf
APPEND FROM A.dbf ....

[AUGE_OHR]

hi,

1457
1458 -> this
1458
1458 -> or this

you have to tell us if you want 1st "1458" or last "1458"

most last "1458" is wanted but UNIQUE does "reduce" it to 1st "1458"

[dragancesu]

Maybe

USE A
INDEX ON name TO aname UNIQUE
COPY TO B

[serge_girard]

or this

Code: Select all

INDEX ON name TO iNAME  UNIQUE

Serge

[mustafa]

Hola LOUIS
Haber si te puede servir ?

Saludos
Mustafa

[tonton2]

bonsoir tout le monde,
J’espère qu'aucune personne de notre communauté ainsi que leur famille n'est atteinte du virus covir.19. Soyons vigilent et restons a la maison. Bon courage.
Je vous transmet ci joint un exemple de FROM BLANK de divers fichier DBF
NB mettre le répertoire GEST_STI dans la racine c:\

[Pepe Ruano]

Hola, mira a ver si te puede valer esto. Lo he probado y a mi me funciona. Previamente como es lógico estarán las bases de datos abiertas.

Code: Select all

FUNC INSERTADOS()
Local nNum1, nNum2 := 0

SELEC UNO
DBGOTOP()

WHILE .NOT. EOF()
	nNum1 := UNO->NUMERO
	SELEC DOS
	IF nNum1 <> nNum2
		DBAPPEND()
		DOS->NUMERO := nNum1
		nNum2 := nNum1
	ENDIF
	SELEC UNO
	DBSKIP()
ENDDO

Retu Nil

Saludos a todos los compañeros y espero y deseo que todos los miembros os encontréis bien. Aquí en España la cosa no va muy bien que digamos, eperemos que pronto volvamos a la normalidad en todo el mundo. Un abrazo.

[danielmaximiliano]

Hola,
Saludos a todos los compañeros y espero y deseo que todos los miembros os encontréis bien. Aquí en España la cosa no va muy bien que digamos, eperemos que pronto volvamos a la normalidad en todo el mundo. Un abrazo.

Gracias Pepe, Abrazo a la distancia y sld a la flia

[mustafa]

Hola Pepe
Que alegría que estéis todos bien.
He contactado con SALINETAS24 de Petrer (Alicante)
y también está Bien , yo escondido en Casa
Un abrazo virtual
Mustafa