Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Firebird e Interbase (https://www.clubdelphi.com/foros/forumdisplay.php?f=19)
-   -   Extraer claves foraneas de BD (https://www.clubdelphi.com/foros/showthread.php?t=82068)

marcoszorrilla 24-01-2013 12:53:01

Aquí dejo el guión (script) con el que he resuelto el problema.

Código SQL [-]
ALTER TABLE PVP DROP CONSTRAINT PK_PVP_CODIGO;

ALTER TABLE PVP
ALTER CODIGO TYPE VARCHAR(12) CHARACTER SET ISO8859_1;

ALTER TABLE PVP ADD CONSTRAINT PK_PVP_CODIGO PRIMARY KEY(CODIGO);


ALTER TABLE abonos
ALTER CODPRODUC TYPE VARCHAR(12) CHARACTER SET ISO8859_1;

ALTER TABLE controlpesos
ALTER CODIGO TYPE VARCHAR(12) CHARACTER SET ISO8859_1;

ALTER TABLE depositos
ALTER CODPRODUC TYPE VARCHAR(12) CHARACTER SET ISO8859_1;

ALTER TABLE hdepositos
ALTER CODPRODUC TYPE VARCHAR(12) CHARACTER SET ISO8859_1;

ALTER TABLE lineascompras
ALTER CODPRODUC TYPE VARCHAR(12) CHARACTER SET ISO8859_1;

ALTER TABLE lineaspedidos
ALTER CODIGO TYPE VARCHAR(12) CHARACTER SET ISO8859_1;


ALTER TABLE lineasventas
ALTER CODPRODUC TYPE VARCHAR(12) CHARACTER SET ISO8859_1;


ALTER TABLE movalmacenes
ALTER CODIGO TYPE VARCHAR(12) CHARACTER SET ISO8859_1;


ALTER TABLE pvpsp
ALTER CODIGO TYPE VARCHAR(12) CHARACTER SET ISO8859_1;

ALTER TABLE regulariza
ALTER CODIGO TYPE VARCHAR(12) CHARACTER SET ISO8859_1;

ALTER TABLE tarifas
ALTER CODIGO TYPE VARCHAR(12) CHARACTER SET ISO8859_1;

ALTER TABLE tmplineasventas
ALTER CODPRODUC TYPE VARCHAR(12) CHARACTER SET ISO8859_1;



DROP TABLE FAMILIAS;


SET SQL DIALECT 3;



/******************************************************************************/
/*                                   Tables                                   */
/******************************************************************************/



CREATE TABLE FAMILIAS (
    CODIGO   VARCHAR(2) NOT NULL,
    FAMILIA  VARCHAR(35) NOT NULL
);




/******************************************************************************/
/*                                Primary Keys                                */
/******************************************************************************/

ALTER TABLE FAMILIAS ADD CONSTRAINT PK_FAMILIA_CODIGO PRIMARY KEY (CODIGO);


/******************************************************************************/
/*                                  Indices                                   */
/******************************************************************************/

CREATE UNIQUE INDEX ID_FAMILIA ON FAMILIAS (FAMILIA);


/******************************************************************************/
/*                                 Privileges                                 */
/******************************************************************************/

INSERT INTO FAMILIAS (CODIGO, FAMILIA)
              VALUES ('01', 'QUIMICOS');
INSERT INTO FAMILIAS (CODIGO, FAMILIA)
              VALUES ('02', 'CELULOSAS');
INSERT INTO FAMILIAS (CODIGO, FAMILIA)
              VALUES ('03', 'UTILES DE LIMPIEZA Y CARROS');
INSERT INTO FAMILIAS (CODIGO, FAMILIA)
              VALUES ('04', 'PLASTICOS Y BOLSAS');
INSERT INTO FAMILIAS (CODIGO, FAMILIA)
              VALUES ('05', 'DISPENSADORES');


COMMIT WORK;
Un Saludo.


La franja horaria es GMT +2. Ahora son las 20:36:03.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi