// 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