Problema al grabar con UNION 2 TABLAS

[ecfisa]

Hola pmtzg.

CREATE UNIQUE INDEX FACF04 ON FACT04 (TIP_DOC, FECHA_DOC, CVE_DOC);
CREATE UNIQUE INDEX FACT04 ON FACT04 (TIP_DOC, CVE_DOC);
CREATE UNIQUE INDEX FCLI04 ON FACT04 (CVE_CLPV, TIP_DOC, CVE_DOC);

Ha... ahora sí.

El problema no te lo dá el índice primario sino los que has declarado como UNIQUE y al estar así declarados, no pueden existir dos valores iguales en dichos campos.

Tendrías que revisar los valores duplicados o quitar esa declaración para realizar la copia.

Saludos.

[pmtzg]

asi es mi estmado ecfisa
pero una pregunta mas aprovecando tu bondad

fijate que estas tablas de paradox ya estan definidas, yo trabajo con ellas con una copia

cuando las creo las creo la tabla e index asi :

Código Delphi [-]
IBTable1.FieldDefs.Assign(table1px.FieldDefs);
IBTable1.IndexDefs.Assign(table1px.IndexDefs);
IBTable1.CreateTable;

tomo la estructura de la tabla de paradox y creo mi tabla en firebird
si al crear mi tabla omito esto:

Código Delphi [-]
IBTable1.IndexDefs.Assign(table1px.IndexDefs);

no creo los index en donde se declara el UNIQUE

si despues de crear mi tabla como te mostre y edito para la creación de los
index con que me recomiendas tu crearlos

lo intente con IBscripts, pero me marca error
gracias

[ecfisa]

Hola pmtzg.

En Firebird, para agregar una Key UNIQUE:

Código SQL [-]
ALTER TABLE TUTABLA ADD CONSTRAINT PK_TUTABLA_UNIQUE1 UNIQUE(TU_CAMPO)

Para quitarla:

Código SQL [-]
ALTER TABLE TUTABLA DROP CONSTRAINT PK_TUTABLA_UNIQUE1

Pero si las key UNIQUE tienen que quedar y tenés repetición de valores en los campos, no te va a permitir hacerlo. Si es 'unico' no puede haber duplicidad.

Saludos.

[pmtzg]

fijate que usare IBSQL1 para craEAR MI INDEX

lo meto a un ciclo

creo la primera tabla ... ok
creo su index IBSQL! ... ok

Código Delphi [-]
IBSQL1.sql.text :='create index CCLIEDX2 on clie04 (cclie); ';

elijo otra tabla

creare la tabla2 pero al momento de decirle

Código Delphi [-]
IBtable1.createtable ;

me lanza el error haciendo referencia de anterior index que cree, ejemplo

Código Delphi [-]
unsuccessful metadata update unknown columns in index  CCLIEDX2

pero antes ya habia declarado este parrafo:

Código Delphi [-]
IBSQL1.sql.text :=' '+
'CREATE  INDEX FACF04 ON FACT04 (TIP_DOC, FECHA_DOC, CVE_DOC); '+
' CREATE  INDEX FACT04 ON FACT04 (TIP_DOC, CVE_DOC);  '+  
' CREATE  INDEX FCLI04 ON FACT04 (CVE_CLPV, TIP_DOC, CVE_DOC); ';

que hice mal , si la primera tabla se creo y su index muy bien hasta vacie los datos de paradox a firebird

tendria que decirle algo mas a mi codigo para que no me pase esto ???

[ecfisa]

Hola.

Realmente no te estoy comprendiendo, no entiendo como estas creando tus tablas.

Si previamente habías echo algo así:

Código Delphi [-]
 with IBSQL1.SQL do
  begin
    Add('CREATE TABLE FACT04 (');
    Add('NUM_REG     INTEGER NOT NULL,');
    Add('TIP_REG     VARCHAR(1),');
    Add('TIP_DOC     VARCHAR(1),');
    ...
    Add('CVE_DOC     VARCHAR(7));');
  end;
  IBSQL1.ExecQuery;

Para que luego haces:

Código Delphi [-]
  IBTable1.CreateTable;

si la tabla ya ha sido creada.

Un saludo.

[pmtzg]

abro tabla Paradox y base de datos Firebird

Código Delphi [-]
IBTable1.FieldDefs.Assign(table1px.FieldDefs);
// IBTable1.IndexDefs.Assign(table1px.IndexDefs);  // omiti esto para arreglar lo de los index 
IBTable1.CreateTable;

de este modo creo para evitar la captura de los campos
pero me he atorado a la hora de crear los index ya modificados
eso es lo q me pasa