Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Go Back   Foros Club Delphi > Principal > Varios
Register FAQ Members List Calendar Guía de estilo Search Today's Posts Mark Forums Read

Coloboración Paypal con ClubDelphi

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 17/03/2011
rastafarey's Avatar
rastafarey rastafarey is offline
Miembro
 
Join Date: Nov 2003
Posts: 927
Poder: 23
rastafarey Va por buen camino
resp

Hermanito esto es mas facilq ue pelar mandarinas. Crea una vista con la consulta y le creas los disparadores a la vista y hay madas a actualizar en la tabla que quieras hacer las insercione smodificciono borrados.
__________________
Todo se puede, que no exista la tecnología aun, es otra cosa.
Reply With Quote
  #2  
Old 17/03/2011
Yulka Yulka is offline
Miembro
 
Join Date: Aug 2008
Posts: 13
Poder: 0
Yulka Va por buen camino
Rastafarey no se como se crea una vista con la consulta y tampoco los disparadores
Reply With Quote
  #3  
Old 17/03/2011
Yulka Yulka is offline
Miembro
 
Join Date: Aug 2008
Posts: 13
Poder: 0
Yulka Va por buen camino
Gracias, estoy buscando algún buen ejemplo para entender mejor a lo que te referís rastafarey
Reply With Quote
  #4  
Old 22/03/2011
rastafarey's Avatar
rastafarey rastafarey is offline
Miembro
 
Join Date: Nov 2003
Posts: 927
Poder: 23
rastafarey Va por buen camino
Resp

Si es con codigo que se entiende aqui hay codigo.

Código SQL [-]
CREATE TABLE "Variables" (
    "Id"                            BIGINT NOT NULL,
    "Id usuario que creo"           BIGINT DEFAULT -1 NOT NULL,
    "Fecha y hora de creacion"      TIMESTAMP DEFAULT Current_timestamp NOT NULL,
    "Id usuario que modifico"       BIGINT DEFAULT -1 NOT NULL,
    "Fecha y hora de modificacion"  TIMESTAMP DEFAULT Current_timestamp NOT NULL,
    "Id externo"                    BIGINT,
    "Nombre"                        VARCHAR(70) NOT NULL ,
    "Valor"                         DOUBLE PRECISION,
    "Memo"                          BLOB SUB_TYPE 1 SEGMENT SIZE 80,
    "Binario"                       BLOB SUB_TYPE 0 SEGMENT SIZE 2048,
    "Cadena"                        VARCHAR(120) 
);

INSERT INTO "Variables" ("Id", "Id usuario que creo", "Fecha y hora de creacion", "Id usuario que modifico", "Fecha y hora de modificacion", "Id externo", "Nombre", "Valor", "Cadena")
                 VALUES (1, -1, '2009-09-21 23:54:13', -1, '2009-09-21 23:54:13', NULL, 'MONEDA_LOCAL', NULL, 'Bolivar(es)');
INSERT INTO "Variables" ("Id", "Id usuario que creo", "Fecha y hora de creacion", "Id usuario que modifico", "Fecha y hora de modificacion", "Id externo", "Nombre", "Valor", "Cadena")
                 VALUES (2, -1, '2009-09-21 23:54:13', -1, '2009-09-21 23:54:13', NULL, 'SIGLAS_MONEDA_LOCAL', NULL, 'Bs');
INSERT INTO "Variables" ("Id", "Id usuario que creo", "Fecha y hora de creacion", "Id usuario que modifico", "Fecha y hora de modificacion", "Id externo", "Nombre", "Valor", "Cadena")
                 VALUES (3, -1, '2009-09-21 23:54:13', -1, '2009-09-21 23:54:13', NULL, 'MONEDA_DE_REFERENCIA', NULL, 'Dolar(es)');
INSERT INTO "Variables" ("Id", "Id usuario que creo", "Fecha y hora de creacion", "Id usuario que modifico", "Fecha y hora de modificacion", "Id externo", "Nombre", "Valor", "Cadena")
                 VALUES (4, -1, '2009-09-21 23:54:13', -1, '2009-09-21 23:54:13', NULL, 'SIGLAS_MONEDA_DE_REFERENCIA', NULL, '$');
INSERT INTO "Variables" ("Id", "Id usuario que creo", "Fecha y hora de creacion", "Id usuario que modifico", "Fecha y hora de modificacion", "Id externo", "Nombre", "Valor", "Cadena")
                 VALUES (5, -1, '2009-09-21 23:54:13', -1, '2009-09-22 01:13:18', NULL, 'FACTOR_DE_CAMBIO_MONEDA_DE_REFERENCIA', 7, NULL);
INSERT INTO "Variables" ("Id", "Id usuario que creo", "Fecha y hora de creacion", "Id usuario que modifico", "Fecha y hora de modificacion", "Id externo", "Nombre", "Valor", "Cadena")
                 VALUES (6, -1, '2009-09-21 23:54:13', -1, '2009-09-21 23:58:02', 1, 'DEPOSITO_POR_DEFECTO', NULL, NULL);
INSERT INTO "Variables" ("Id", "Id usuario que creo", "Fecha y hora de creacion", "Id usuario que modifico", "Fecha y hora de modificacion", "Id externo", "Nombre", "Valor", "Cadena")
                 VALUES (7, -1, '2009-09-21 23:54:13', -1, '2009-09-21 23:55:25', NULL, 'REPRESENTANTE_EMPRESA', NULL, 'Pedro perez');
INSERT INTO "Variables" ("Id", "Id usuario que creo", "Fecha y hora de creacion", "Id usuario que modifico", "Fecha y hora de modificacion", "Id externo", "Nombre", "Valor", "Cadena")
                 VALUES (8, -1, '2009-09-21 23:54:13', -1, '2009-09-21 23:54:13', NULL, 'LOGO_EMPRESA', NULL, NULL);
INSERT INTO "Variables" ("Id", "Id usuario que creo", "Fecha y hora de creacion", "Id usuario que modifico", "Fecha y hora de modificacion", "Id externo", "Nombre", "Valor", "Cadena")
                 VALUES (9, -1, '2009-09-21 23:54:13', -1, '2009-09-21 23:54:13', NULL, 'DIRECCION_EMPRESA', NULL, NULL);
INSERT INTO "Variables" ("Id", "Id usuario que creo", "Fecha y hora de creacion", "Id usuario que modifico", "Fecha y hora de modificacion", "Id externo", "Nombre", "Valor", "Cadena")
                 VALUES (10, -1, '2009-09-21 23:54:13', -1, '2009-09-21 23:54:13', NULL, 'TELEFONOS_EMPRESA', NULL, NULL);
INSERT INTO "Variables" ("Id", "Id usuario que creo", "Fecha y hora de creacion", "Id usuario que modifico", "Fecha y hora de modificacion", "Id externo", "Nombre", "Valor", "Cadena")
                 VALUES (11, -1, '2009-09-21 23:54:13', -1, '2009-09-21 23:54:13', NULL, 'EMAILS_EMPRESA', NULL, NULL);
INSERT INTO "Variables" ("Id", "Id usuario que creo", "Fecha y hora de creacion", "Id usuario que modifico", "Fecha y hora de modificacion", "Id externo", "Nombre", "Valor", "Cadena")
                 VALUES (12, -1, '2009-09-21 23:54:13', -1, '2009-09-21 23:54:13', NULL, 'WEBS_EMPRESA', NULL, NULL);
INSERT INTO "Variables" ("Id", "Id usuario que creo", "Fecha y hora de creacion", "Id usuario que modifico", "Fecha y hora de modificacion", "Id externo", "Nombre", "Valor", "Cadena")
                 VALUES (13, -1, '2009-09-21 23:54:13', -1, '2009-09-21 23:54:13', NULL, 'NUMERO_DE_DECIMALES', 2, NULL);
INSERT INTO "Variables" ("Id", "Id usuario que creo", "Fecha y hora de creacion", "Id usuario que modifico", "Fecha y hora de modificacion", "Id externo", "Nombre", "Valor", "Cadena")
                 VALUES (14, -1, '2009-09-21 23:54:13', -1, '2009-09-21 23:54:13', NULL, 'MONEDA_COMPRA', 1, NULL);
INSERT INTO "Variables" ("Id", "Id usuario que creo", "Fecha y hora de creacion", "Id usuario que modifico", "Fecha y hora de modificacion", "Id externo", "Nombre", "Valor", "Cadena")
                 VALUES (15, -1, '2009-09-21 23:54:13', -1, '2009-09-22 00:15:54', NULL, 'ID_CLIENTE_POR_DEFECTO', 2, NULL);
INSERT INTO "Variables" ("Id", "Id usuario que creo", "Fecha y hora de creacion", "Id usuario que modifico", "Fecha y hora de modificacion", "Id externo", "Nombre", "Valor", "Cadena")
                 VALUES (16, -1, '2009-09-21 23:54:13', -1, '2009-09-21 23:54:13', NULL, 'IMPUESTO', 1, NULL);
INSERT INTO "Variables" ("Id", "Id usuario que creo", "Fecha y hora de creacion", "Id usuario que modifico", "Fecha y hora de modificacion", "Id externo", "Nombre", "Valor", "Cadena")
                 VALUES (17, -1, '2009-09-21 23:54:13', -1, '2009-09-21 23:54:13', NULL, 'PERMITIR_DESCUENTO_PARCIAL', 1, NULL);
INSERT INTO "Variables" ("Id", "Id usuario que creo", "Fecha y hora de creacion", "Id usuario que modifico", "Fecha y hora de modificacion", "Id externo", "Nombre", "Valor", "Cadena")
                 VALUES (18, -1, '2009-09-21 23:54:13', -1, '2009-09-21 23:58:04', 1, 'DEPOSITO_DE_VENTA', NULL, NULL);
INSERT INTO "Variables" ("Id", "Id usuario que creo", "Fecha y hora de creacion", "Id usuario que modifico", "Fecha y hora de modificacion", "Id externo", "Nombre", "Valor", "Cadena")
                 VALUES (19, -1, '2009-09-21 23:54:13', -1, '2009-09-21 23:54:13', NULL, 'PORCENTAJE_UTILIDAD_PVP', 10, NULL);

CREATE VIEW "V empresa"(
    "Id",
    "Representante empresa",
    "Logo empresa",
    "Direccion empresa",
    "Telefono(s) empresa",
    "Email(s) empresa",
    "Web(s) empresa")
AS
Select 1
     , (Select "Cadena" From "Variables" Where "Nombre" = 'REPRESENTANTE_EMPRESA')
     , (Select "Binario" From "Variables" Where "Nombre" = 'LOGO_EMPRESA')
     , (Select "Memo" From "Variables" Where "Nombre" = 'DIRECCION_EMPRESA')
     , (Select "Memo" From "Variables" Where "Nombre" = 'TELEFONOS_EMPRESA')
     , (Select "Memo" From "Variables" Where "Nombre" = 'EMAILS_EMPRESA')
     , (Select "Memo" From "Variables" Where "Nombre" = 'WEBS_EMPRESA')
From RDb$DataBase;

CREATE OR ALTER TRIGGER "V empresa_AP" FOR "V empresa"
ACTIVE BEFORE INSERT OR UPDATE OR DELETE POSITION 0
AS
begin
  -- Insercion o Modificacion
  If (Inserting or Updating) Then Begin

   Update Or Insert Into "Variables"("Nombre", "Cadena") Values('REPRESENTANTE_EMPRESA', New."Representante empresa")   Matching ("Nombre");
   Update Or Insert Into "Variables"("Nombre", "Binario") Values('LOGO_EMPRESA', New."Logo empresa")   Matching ("Nombre");
   Update Or Insert Into "Variables"("Nombre", "Memo") Values('DIRECCION_EMPRESA', New."Direccion empresa")   Matching ("Nombre");
   Update Or Insert Into "Variables"("Nombre", "Memo") Values('TELEFONOS_EMPRESA', New."Telefono(s) empresa")   Matching ("Nombre");
   Update Or Insert Into "Variables"("Nombre", "Memo") Values('EMAILS_EMPRESA', New."Email(s) empresa")   Matching ("Nombre");
   Update Or Insert Into "Variables"("Nombre", "Memo") Values('WEBS_EMPRESA', New."Web(s) empresa")   Matching ("Nombre");

  End

  -- Borrado
  Else If (Deleting) Then Begin
    Delete From "Variables" Where "Nombre" = 'REPRESENTANTE_EMPRESA';
    Delete From "Variables" Where "Nombre" = 'LOGO_EMPRESA';
    Delete From "Variables" Where "Nombre" = 'DIRECCION_EMPRESA';
    Delete From "Variables" Where "Nombre" = 'TELEFONOS_EMPRESA';
    Delete From "Variables" Where "Nombre" = 'EMAILS_EMPRESA';
    Delete From "Variables" Where "Nombre" = 'WEBS_EMPRESA';
  End
end
__________________
Todo se puede, que no exista la tecnología aun, es otra cosa.
Reply With Quote
  #5  
Old 22/03/2011
rastafarey's Avatar
rastafarey rastafarey is offline
Miembro
 
Join Date: Nov 2003
Posts: 927
Poder: 23
rastafarey Va por buen camino
Resp

Te puse el ejemplo mas lo mas raro que pude. Convirtiendo registros a campos y luego actualizando o insertanto sobre los registro dependiendo del nombre.

Crea uan bd y ejecuta todo este codigo.
__________________
Todo se puede, que no exista la tecnología aun, es otra cosa.
Reply With Quote
  #6  
Old 25/03/2011
Yulka Yulka is offline
Miembro
 
Join Date: Aug 2008
Posts: 13
Poder: 0
Yulka Va por buen camino
Gracias, ya lo pude solucionar
Reply With Quote
Reply


Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Consulta Multiple novato03 Conexión con bases de datos 4 02/12/2008 18:11
concatenar resultado de una consulta carlo_acp SQL 7 20/10/2008 21:10
Buscar en resultado de consulta SQL alvarocastillo SQL 6 06/11/2007 16:28
Acceso al resultado de una consulta SQL beatriz g SQL 2 16/08/2006 20:27
comprimir resultado de consulta cuscus Firebird e Interbase 3 29/04/2005 11:45


All times are GMT +2. The time now is 08:51.


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
Copyright 1996-2007 Club Delphi