Windev21 Aulas,Estudos e Desenvolvimento: Aula 1031 - Dicas - 012

Video no Youtube Se Gostou clique aqui para dar joinha

1) Nessa aula de hoje, vou mostrar como
pegar o saldo incial do caixa.
2) Vamos ter um campo saldo inicial do caixa conta
3) vamos fazer uma query lendo os totais de entrada e saida
4) Vamos atualizar o saldo

//Qry_Saldo_caixa_Inicial
SELECT
SUM(caixa.valor_entradas) AS total_valor_entradas,
SUM(caixa.valor_saidas) AS total_valor_saidas
FROM
caixa
WHERE
caixa.id_empresa = {Parametro_empresa}
AND caixa.Caixa_contaID = {Parametro_contaID}
AND caixa.data_documento<{Parametro_data_inicial}

//
//Chama Rotina Saldo Caixa

saldo_caixa()

//Rotina Saldo Caixa

PROCEDURE saldo_caixa()

HReadSeekFirst(caixa_conta,caixa_contaID,gn_recebe_id_conta)
cy_saldo_inicial is currency=caixa_conta.saldo_inicial // Iniciar 100,00
qry_saldo_caixa_inicial.Parametro_contaID=gn_recebe_id_conta // 1
qry_saldo_caixa_inicial.Parametro_data_inicial=EDT_Data_Inicial // 10 01 2017
qry_saldo_caixa_inicial.Parametro_empresa=gnEmpresaCodigo // 1
HExecuteQuery(qry_saldo_caixa_inicial,hQueryDefault) // executando query
cy_saldo_entradas is currency=qry_saldo_caixa_inicial.total_valor_entradas
//vai somar todas entradas menores que a data inicial = 09 01 2017
cy_saldo_saidas is currency=qry_saldo_caixa_inicial.total_valor_saidas
//vai somar todas saidas menores que a data inicial = 09 01 2017
cy_saldo_inicial=cy_saldo_inicial+cy_saldo_entradas-cy_saldo_saidas
EDT_Saldo_Anterior=cy_saldo_inicial