[firebase-br] RES: Função para calculo de juros e mora

ANDERSON JUNIOR GADO DA SILVA andersonscinfo em gmail.com
Sex Set 28 20:40:03 -03 2012


agora esta tudo certo....assim ficou minha view.....obrigado

CREATE VIEW VW_CONTROLERECEBER(
    IACONTROLE,
    IADATAEMISSAO,
    IANUMDOC,
    IADEVEDOR,
    IACLIENTE,
    IAVALOR,
    IADATAVECTO,
    IACOD_HIST,
    IAHISTORICO,
    IADIVIDA,
    IAVALORPARCELA,
    IADATACOBRA,
    IAPARCELA,
    IANUMPEDIDO,
    IAOPERACAO,
    IACODOPER,
    IALANCAMENTO,
    IAJUROS,
    IADESCONTO,
    IADATAPGTO,
    IATOTALPAGO,
    IAPORTADOR,
    IAMULTA,
    IAOBS,
    IADUPLICATA,
    IAPERCENTUALDEMULTA,
    IAACRESCIMO,
    IADATA,
    IAORIGEM,
    IACODVEND,
    IAQUITAR,
    IACOD_PORT,
    IACONTROLENOTA,
    IACOMISSAO,
    IASTARTCOM,
    IAVLRCOM,
    IATIPOREC,
    IAFORMAPGTO,
    IADATADUPLICATA,
    IASTARTCARTA,
    IAJAEMITIU,
    IASTARTTROCA,
    IANTROCA,
    IATIPO,
    IAFORNECEDOR,
    IABANCOTRANSMISSAO,
    IASEQUENCIA,
    IADATALIMDESCONTO,
    IAPROTESTO,
    IAIMPRIMIR,
    IADATAENTRADA,
    IADUPLDESCONTO,
    IADUPLDESCONTADA,
    IADATACOBR1,
    IADATACOBR2,
    IAATIVA,
    IAMOTIVOIN,
    IAUSUARIO,
    IACENTRODECUSTO,
    IASUBCUSTO,
    IAMOEDA,
    IACOD_FILIAL,
    IABANCODEPOSITO,
    IANBANCO,
    IAGRUPOCONTAS,
    IAGRUPOCCUSTO,
    IAFATURA,
    IAMAQ,
    IATRANSMITIR,
    IAATIVO,
    IASTATUS,
    IBCOD_CLI,
    IBNOME_CLI,
    ICCOD_GRCONTAS,
    ICDESCR_GRCONTAS,
    IDID_CCUSTO,
    IDDESCR_CCUSTO,
    IECOD_GRCCUSTO,
    IEDESCR_GRCCUSTO,
    IFCOD_PORT,
    IFDESCR_PORT,
    IADIASATRASO,
    IATOTMULTA,
    IATOTALJURO)
AS
select A.CONTROLE,
    A.DATAEMISSAO,
    A.NUMDOC,
    A.DEVEDOR,
    A.CLIENTE,
    A.VALOR,
    A.DATAVECTO,
    A.COD_HIST,
    A.HISTORICO,
    A.DIVIDA,
    A.VALORPARCELA,
    A.DATACOBRA,
    A.PARCELA,
    A.NUMPEDIDO,
    A.OPERACAO,
    A.CODOPER,
    A.LANCAMENTO,
    A.JUROS,
    A.DESCONTO,
    A.DATAPGTO,
    A.TOTALPAGO,
    A.PORTADOR,
    A.MULTA,
    A.OBS,
    A.DUPLICATA,
    A.PERCENTUALDEMULTA,
    A.ACRESCIMO,
    A.DATA,
    A.ORIGEM,
    A.CODVEND,
    A.QUITAR,
    A.COD_PORT,
    A.CONTROLENOTA,
    A.COMISSAO,
    A.STARTCOM,
    A.VLRCOM,
    A.TIPOREC,
    A.FORMAPGTO,
    A.DATADUPLICATA,
    A.STARTCARTA,
    A.JAEMITIU,
    A.STARTTROCA,
    A.NTROCA,
    A.TIPO,
    A.FORNECEDOR,
    A.BANCOTRANSMISSAO,
    A.SEQUENCIA,
    A.DATALIMDESCONTO,
    A.PROTESTO,
    A.IMPRIMIR,
    A.DATAENTRADA,
    A.DUPLDESCONTO,
    A.DUPLDESCONTADA,
    A.DATACOBR1,
    A.DATACOBR2,
    A.ATIVA,
    A.MOTIVOIN,
    A.USUARIO,
    A.CENTRODECUSTO,
    A.SUBCUSTO,
    A.MOEDA,
    A.COD_FILIAL,
    A.BANCODEPOSITO,
    A.NBANCO,
    A.GRUPOCONTAS,
    A.GRUPOCCUSTO,
    A.FATURA,
    A.MAQ,
    A.TRANSMITIR,
    A.ATIVO,
    A.STATUS,
    B.COD_CLI,
    B.NOME_CLI,
    COALESCE(C.COD_GRCONTAS, 0),
    C.DESCR_GRCONTAS,
    COALESCE(D.ID_CCUSTO, 0),
    D.DESCR_CCUSTO,
    COALESCE(E.COD_GRCCUSTO, 0),
    E.DESCR_GRCCUSTO,
    F.COD_PORT,
    F.DESCR_PORT,
    (CASE
    WHEN A.DATAVECTO < current_date THEN
        cast(current_date - cast(A.DATAVECTO as DATE) as INTEGER)
    ELSE
        0
    END),
    (CASE
    WHEN A.DATAVECTO < current_date THEN
        (A.VALOR*A.PERCENTUALDEMULTA)/100 * cast(current_date -
cast(A.DATAVECTO as DATE) as INTEGER)
    ELSE
        0
    END),
    (CASE
    WHEN A.DATAVECTO < current_date THEN
        (A.VALOR*A.JUROS)/100 * cast(((current_date - cast(DATAVECTO as
date))+30)/30 as INTEGER)
    ELSE
        0
    END)
 from CONTROLERECEBER A
left join CADCLICOMERCIO B on B.COD_CLI = A.CLIENTE
left join TB_CAD_GRUPO_CONTAS C on C.COD_GRCONTAS =  A.GRUPOCONTAS
left join TB_CAD_CCUSTO D on D.ID_CCUSTO = A.CENTRODECUSTO
left join TB_CAD_GRUPO_CCUSTO E on E.COD_GRCCUSTO = A.GRUPOCCUSTO
left join CADPORTADOR F on F.COD_PORT = A.PORTADOR
;



Mais detalhes sobre a lista de discussão lista