[firebase-br] Resultado de conhecimentos

[jader ricardo]

Boa tarde senhores !
 
Com base nos conhecimentos que eu tive e nos conhecimentos que adquiri aqui na lista vejam a procedure que consegui criar para uma tabela clientes.
 
SET TERM!!
CREATE PROCEDURE "SP_INS_EST_EDT_CLIENTES" (TA INTEGER,CC VARCHAR(10),NC VARCHAR(50),TC VARCHAR(18),EC VARCHAR(30),RG VARCHAR(20),CP VARCHAR(18),CN VARCHAR(18),IE VARCHAR(20),CI VARCHAR(20),EN VARCHAR(50),UF VARCHAR(2),ST VARCHAR(10))
RETURNS(CODIGO VARCHAR(10))
AS
BEGIN
/* TA É O TIPO DE AÇÃO NO BANCO
   1 - INSERIR
   2 - DELETAR (NO MEU CASO EU MUDO O STATUS DO CLIENTE DE ATIVO PARA ESTORNADO, ASSIM EU FICO COM O CLIENTE NA BASE)
   3 - UPDATE */
 
  IF (:TA = 1) THEN
    BEGIN
      CODIGO = GEN_ID(GEN_CODCLIENTES,1);
      INSERT INTO CLIENTES (CODCLIENTES,NOMECLIENTES,TELEFONECLIENTES,EMAILCLIENTES,RGCLIENTES,CPFCLIENTES,CNPJCLIENTES,IECLIENTES,CIDADECLIENTES,ENDERECOCLIENTES,CODUF,CODSTATUS) VALUES (:CODIGO,:NC,:TC,:EC,:RG,:CP,:CN,:IE,:CI,:EN,:UF,:ST);
    END
  ELSE
    IF (:TA = 2) THEN
      BEGIN
        UPDATE CLIENTES SET CODSTATUS = :ST WHERE CODCLIENTES = :CC;
      END
  ELSE
    IF (:TA = 3) THEN
      BEGIN
        UPDATE CLIENTES SET NOMECLIENTES = :NC,TELEFONECLIENTES = :TC,EMAILCLIENTES  = :EC,RGCLIENTES = :RG,CPFCLIENTES = :CP, CNPJCLIENTES = :CN,IECLIENTES = :IE,CIDADECLIENTES = :CI,ENDERECOCLIENTES = :EN,CODUF = :UF, CODSTATUS = :ST WHERE CODCLIENTES = :CC;
      END
  EXIT;
END!!
 
Obrigado pessoal, se eu tiver mais dúvidas postarei em breve .....
 
Atenciosamente,
Jader Ricardo

		
---------------------------------
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora!