/*------ 25/11/2016 02:52:41 --------*/

DROP PROCEDURE SPSOMACX;


/*------ 25/11/2016 02:54:36 --------*/

SET TERM ^ ;

ALTER PROCEDURE SPCX
RETURNS (
    CODCAIXAMOV INTEGER,
    CODCXPARCELA INTEGER,
    CODFILIAL INTEGER,
    DATA DATE,
    HORA TIME,
    DESCRICAO VARCHAR(70),
    VALOR FLOAT,
    TIPOMOV VARCHAR(50),
    FORMAPGTO VARCHAR(15),
    FINANCEIRO CHAR(1),
    CREDITO FLOAT,
    DEBITO FLOAT,
    SALDO FLOAT,
    STATUS CHAR(1))
AS
begin
  FOR SELECT CM.CODCAIXAMOV, CODFILIAL,  DATA, HORA, DESCRICAO, VALOR, TIPOMOV, FORMAPGTO, STATUS  FROM CAIXAMOV CM
  INTO
  :CODCAIXAMOV, :CODFILIAL,:DATA, :HORA, :DESCRICAO, :VALOR, :TIPOMOV, :FORMAPGTO, :STATUS DO
  BEGIN
     CODCXPARCELA =NULL;
     FINANCEIRO='N';
     SELECT CF.FINANCEIRO FROM CONFCAIXA CF
     WHERE CF.TIPOMOV=:TIPOMOV AND CF.TIPOPGTO=:FORMAPGTO
     INTO :FINANCEIRO;

     if (FINANCEIRO='+') then
     BEGIN
         CREDITO = VALOR;
         DEBITO  = 0;
     END

     if (FINANCEIRO='-') then
     BEGIN
         DEBITO = :VALOR;
         CREDITO  = 0;
     END

     if (FINANCEIRO='N') then
     BEGIN
         CREDITO = 0;
         DEBITO  = 0;
     END
     SALDO = CREDITO - DEBITO;

  suspend;
  END

  FOR SELECT CP.CODCXPARCELA, CP.CODFILIAL, CP.DATA, CP.HORA, CP.DESCRICAO, CP.VALOR, CP.TIPOMOV, CP.FORMAPGTO, CP.STATUS  FROM CAIXAPARCELAS CP
  INTO
  :CODCXPARCELA, :CODFILIAL,:DATA, :HORA, :DESCRICAO, :VALOR, :TIPOMOV, :FORMAPGTO, :STATUS DO
  BEGIN
     CODCAIXAMOV = NULL;
     FINANCEIRO = 'N';
     SELECT CF.FINANCEIRO FROM CONFCAIXA CF
     WHERE CF.TIPOMOV=:TIPOMOV AND CF.TIPOPGTO=:FORMAPGTO
     INTO :FINANCEIRO;
     if (FINANCEIRO='+') then
     BEGIN
         CREDITO = :VALOR;
         DEBITO  = 0;
     END
     if (FINANCEIRO='-') then
     BEGIN
         DEBITO = :VALOR;
         CREDITO  = 0;
     END
     if (FINANCEIRO='N') then
     BEGIN
         CREDITO = 0;
         DEBITO  = 0;
     END
     SALDO = CREDITO - DEBITO;
  suspend;
  END

end
^

SET TERM ; ^




/*------ 25/11/2016 02:55:23 --------*/

SET TERM ^ ;

CREATE PROCEDURE SPSOMACX
RETURNS (
    CREDITO FLOAT,
    DEBITO FLOAT,
    NULO FLOAT,
    SALDO FLOAT)
AS
begin
  CREDITO = 0;
  DEBITO  = 0;
  NULO    = 0;
  SALDO   = 0;
  SELECT SUM(VALOR) FROM SPCX
  WHERE FINANCEIRO='+'
  INTO :CREDITO;

  SELECT SUM(VALOR) FROM SPCX
  WHERE FINANCEIRO='-'
  INTO :DEBITO;

  SELECT SUM(VALOR) FROM SPCX
  WHERE FINANCEIRO='N'
  INTO :NULO;

  SALDO = CREDITO - DEBITO;

  suspend;
end;
^

SET TERM ; ^




/*------ 25/11/2016 02:58:19 --------*/

SET TERM ^ ;

ALTER PROCEDURE SPSOMACX
RETURNS (
    DATA  DATE,
    STATUS CHAR(1),
    CREDITO FLOAT,
    DEBITO FLOAT,
    NULO FLOAT,
    SALDO FLOAT)
AS
begin
  CREDITO = 0;
  DEBITO  = 0;
  NULO    = 0;
  SALDO   = 0;
  SELECT DATA, STATUS, SUM(VALOR) FROM SPCX
  WHERE FINANCEIRO='+'
  GROUP BY DATA, STATUS
  INTO DATA, STATUS, :CREDITO;

  SELECT DATA, STATUS, SUM(VALOR) FROM SPCX
  WHERE FINANCEIRO='-'
  GROUP BY DATA, STATUS
  INTO DATA, STATUS, :DEBITO;


  SELECT DATA, STATUS, SUM(VALOR) FROM SPCX
  WHERE FINANCEIRO='N'
  GROUP BY DATA, STATUS
  INTO DATA, STATUS,  :NULO;

  SALDO = CREDITO - DEBITO;

  suspend;
end;
^

SET TERM ; ^




/*------ 25/11/2016 03:00:14 --------*/

SET TERM ^ ;

ALTER PROCEDURE SPSOMACX
RETURNS (
    DATA  DATE,
    STATUS CHAR(1),
    CREDITO FLOAT,
    DEBITO FLOAT,
    NULO FLOAT,
    SALDO FLOAT)
AS
begin
  CREDITO = 0;
  DEBITO  = 0;
  NULO    = 0;
  SALDO   = 0;
  FOR SELECT DATA, STATUS, SUM(VALOR) FROM SPCX
  WHERE FINANCEIRO='+'
  GROUP BY DATA, STATUS
  INTO DATA, STATUS, :CREDITO do
  SALDO = CREDITO - DEBITO;

  FOR SELECT DATA, STATUS, SUM(VALOR) FROM SPCX
  WHERE FINANCEIRO='-'
  GROUP BY DATA, STATUS
  INTO DATA, STATUS, :DEBITO DO
  SALDO = CREDITO - DEBITO;


  FOR SELECT DATA, STATUS, SUM(VALOR) FROM SPCX
  WHERE FINANCEIRO='N'
  GROUP BY DATA, STATUS
  INTO DATA, STATUS,  :NULO DO
  SALDO = CREDITO - DEBITO;



  suspend;
end;
^

SET TERM ; ^




/*------ 25/11/2016 03:01:55 --------*/

SET TERM ^ ;

ALTER PROCEDURE SPSOMACX
RETURNS (
    DATA  DATE,
    STATUS CHAR(1),
    CREDITO FLOAT,
    DEBITO FLOAT,
    NULO FLOAT,
    SALDO FLOAT)
AS
begin
  CREDITO = 0;
  DEBITO  = 0;
  NULO    = 0;
  SALDO   = 0;
  FOR SELECT DATA, STATUS, SUM(VALOR) FROM SPCX
  WHERE FINANCEIRO='+'
  GROUP BY DATA, STATUS
  INTO DATA, STATUS, :CREDITO do
  BEGIN
  SALDO = CREDITO - DEBITO;
  SUSPEND;
  END

  FOR SELECT DATA, STATUS, SUM(VALOR) FROM SPCX
  WHERE FINANCEIRO='-'
  GROUP BY DATA, STATUS
  INTO DATA, STATUS, :DEBITO DO
  BEGIN
  SALDO = CREDITO - DEBITO;
  SUSPEND;
  END

  FOR SELECT DATA, STATUS, SUM(VALOR) FROM SPCX
  WHERE FINANCEIRO='N'
  GROUP BY DATA, STATUS
  INTO DATA, STATUS,  :NULO DO
  BEGIN
  SALDO = CREDITO - DEBITO;
  SUSPEND;
  END

end;
^

SET TERM ; ^




/*------ 25/11/2016 03:06:17 --------*/

SET TERM ^ ;

ALTER PROCEDURE SPSOMACX
RETURNS (
    DATA  DATE,
    STATUS CHAR(1),
    CREDITO FLOAT,
    DEBITO FLOAT,
    NULO FLOAT,
    SALDO FLOAT)
AS
begin
    CREDITO = 0;
    DEBITO  = 0;
    NULO    = 0;
    SALDO   = 0;

  FOR SELECT DATA, STATUS, SUM(VALOR) FROM SPCX
  WHERE FINANCEIRO='+'
  GROUP BY DATA, STATUS
  INTO DATA, STATUS, :CREDITO do
  BEGIN

    DEBITO  = 0;
    NULO    = 0;

    SALDO = CREDITO - DEBITO;
  SUSPEND;
  END

  FOR SELECT DATA, STATUS, SUM(VALOR) FROM SPCX
  WHERE FINANCEIRO='-'
  GROUP BY DATA, STATUS
  INTO DATA, STATUS, :DEBITO DO
  BEGIN
    CREDITO = 0;
    NULO    = 0;
    SALDO = CREDITO - DEBITO;
  SUSPEND;
  END

  FOR SELECT DATA, STATUS, SUM(VALOR) FROM SPCX
  WHERE FINANCEIRO='N'
  GROUP BY DATA, STATUS
  INTO DATA, STATUS,  :NULO DO
  BEGIN
    CREDITO = 0;
    DEBITO  = 0;
    SALDO = CREDITO - DEBITO;
  SUSPEND;
  END

end;
^

SET TERM ; ^




/*------ 25/11/2016 03:07:34 --------*/

SET TERM ^ ;

ALTER PROCEDURE SPSOMACX
RETURNS (
    DATA  DATE,
    CREDITO FLOAT,
    DEBITO FLOAT,
    NULO FLOAT,
    SALDO FLOAT)
AS
begin
    CREDITO = 0;
    DEBITO  = 0;
    NULO    = 0;
    SALDO   = 0;

  FOR SELECT DATA, SUM(VALOR) FROM SPCX
  WHERE FINANCEIRO='+'
  GROUP BY DATA
  INTO DATA, :CREDITO do
  BEGIN

    DEBITO  = 0;
    NULO    = 0;

    SALDO = CREDITO - DEBITO;
  SUSPEND;
  END

  FOR SELECT DATA, SUM(VALOR) FROM SPCX
  WHERE FINANCEIRO='-'
  GROUP BY DATA
  INTO DATA, :DEBITO DO
  BEGIN
    CREDITO = 0;
    NULO    = 0;
    SALDO = CREDITO - DEBITO;
  SUSPEND;
  END

  FOR SELECT DATA, SUM(VALOR) FROM SPCX
  WHERE FINANCEIRO='N'
  GROUP BY DATA
  INTO DATA, :NULO DO
  BEGIN
    CREDITO = 0;
    DEBITO  = 0;
    SALDO = CREDITO - DEBITO;
  SUSPEND;
  END

end;
^

SET TERM ; ^

/*------ 26/11/2016 01:18:50 --------*/
DELETE  FROM CAIXA;

/*------ 26/11/2016 01:18:53 --------*/

ALTER TABLE CAIXAMOV
ADD CODCAIXA INTEIRO_NULL;


/*------ 26/11/2016 01:32:45 --------*/

ALTER TABLE CAIXAPARCELAS
ADD CODCAIXA INTEIRO_NULL;

/*------ 26/11/2016 01:32:45 --------*/
UPDATE CAIXAMOV SET STATUS='I';

/*------ 26/11/2016 01:32:45 --------*/
UPDATE caixaparcelas SET STATUS='I';

/*------ 26/11/2016 01:32:45 --------*/
UPDATE CAIXAMOV SET STATUS='A'
WHERE DATA=current_date;

/*------ 26/11/2016 01:32:45 --------*/
UPDATE caixaparcelas SET STATUS='A'
WHERE DATA=current_date;

COMMIT;

/*------ 26/11/2016 01:32:45 --------*/
UPDATE CONFIGURACOES SET COMPILACAO= '1.3.6.6';