No meu formulário do caixa onde faço os lancamentos de entradas e saidas de valores teria que ajustar umas coisas que não estou conseguindo!
1º>Primeiramente, nesse Tópico que foi resolvido eu fiz uma lançamento de por exemplo: 250,50 e na hora que eu abro o formulário do caixa como eu assim que abro ele me mostra os lancamento do dia e somando os valores nos edits abaixo, mas ele dá esse erro:
'250,50' is not a valid integer value
Esse é um procedimento que eu fiz o AtualizaCaixa para me atualizar e mostrar no DbGrid (DbgCaixa)
Ligado em um DataSource (DtsCaixa) e IbQuery (QryCaixa):
procedure Tfrmcai.AtualizaCaixa;
begin
With QryCaixa do
Begin
QryCaixa.Close;
QryCaixa.Sql.Text := 'Select * from lancamento where Pagamento = Current_date';
QryCaixa.Open;
end;
//Soma o saldo do Dia
With QryTotais do
Begin
QryTotais.Close;
QryTotais.Sql.Text := 'Select sum(Valor)as "+" From Lancamento where tipo = 1 and pagamento = Current_date';
QryTotais.Open;
end;
With QryTotais2 do
Begin
QryTotais2.Close;
QryTotais2.Sql.Text := 'Select sum(valor) as "-" From Lancamento where tipo = 0 and pagamento = Current_date';
QryTotais2.Open;
End;
TxtTlDia.text := ((FloatToStr((QryTotais.FieldByName('+').AsFloat) - (QryTotais2.FieldByName('-').AsFloat)) ));
// Saldo Total
With QrySaldo do
Begin
QrySaldo.Close;
QrySaldo.Sql.Text := 'Select sum(Valor)as "+" From Lancamento where tipo = 1 and pagamento is not null';
QrySaldo.Open;
end;
With QrySaldo2 do
Begin
QrySaldo2.Close;
QrySaldo2.Sql.Text := 'Select sum(Valor)as "-" From Lancamento where tipo = 0 and pagamento is not null';
QrySaldo2.Open;
End;
TxtSoma.text := ( (FloatToStr((QrySaldo.FieldByName('+').AsFloat) - (QrySaldo2.FieldByName('-').AsFloat)) ));
// Saldo Anterior
With QryAnterior do
Begin
QryAnterior.Close;
QryAnterior.Sql.Text := 'select sum(valor) from lancamento where Tipo = 1' +
' and extract(year from pagamento) = extract(year from current_date)' +
' and extract(month from pagamento) = extract(month from current_date) -1';
QryAnterior.Open;
end;
With QryAnterior2 do
Begin
QryAnterior2.Close;
QryAnterior2.Sql.Text := 'select sum(valor) from lancamento where Tipo = 0 and ' +
'extract(year from pagamento) = extract(year from current_date)' +
'and extract(month from pagamento) = extract(month from current_date) -1';
QryAnterior2.Open;
End;
TxtAnterior.text := ( (FloatToStr((QryAnterior.FieldByName('sum').AsFloat) - (QryAnterior2.FieldByName('sum').AsFloat)) ));
// Saldo Total do Mês
With QryMes do
Begin
QryMes.Close;
QryMes.Sql.Text := 'select sum(valor) from lancamento where Tipo = 1' +
' and extract(year from pagamento) = extract(year from current_date)' +
' and extract(month from pagamento) = extract(month from current_date)';
QryMes.Open;
end;
With QryMes2 do
Begin
QryMes2.Close;
QryMes2.Sql.Text := 'select sum(valor) from lancamento where Tipo = 0 and ' +
'extract(year from pagamento) = extract(year from current_date)' +
'and extract(month from pagamento) = extract(month from current_date)';
QryMes2.Open;
End;
TxtMes.text := ( (FloatToStr((QryMes.FieldByName('sum').AsFloat) - (QryMes2.FieldByName('sum').AsFloat)) ));
// Para quando for negativo mostrar em vermelho o saldo do dia
If StrToInt(TxtTlDia.text) < 0 Then
TxtTlDia.font.color := ClRed
Else
TxtTlDia.font.color := clBlack;
// Para quando for negativo mostrar em vermelho o saldo do Total
If StrToInt(TxtSoma.text) < 0 Then
TxtSoma.font.color := ClRed
Else
TxtSoma.font.color := clBlack;
// Para quando for negativo mostrar em vermelho o saldo Anterior
If StrToInt(TxtAnterior.text) < 0 Then
TxtAnterior.font.color := ClRed
Else
TxtAnterior.font.color := clBlack;
// Para quando for negativo mostrar em vermelho o saldo do Total do mes
If StrToInt(TxtMes.text) < 0 Then
TxtMes.font.color := ClRed
Else
TxtMes.font.color := clBlack;
//TxtTlCaixa.text := (TxtTlDia.text + TxtSaldo.text); mostrar os resultados de dois em um
end;
Pergunta
robinhocne
Bom vamos para mais um probleminha.
No meu formulário do caixa onde faço os lancamentos de entradas e saidas de valores teria que ajustar umas coisas que não estou conseguindo!
1º>Primeiramente, nesse Tópico que foi resolvido eu fiz uma lançamento de por exemplo: 250,50 e na hora que eu abro o formulário do caixa como eu assim que abro ele me mostra os lancamento do dia e somando os valores nos edits abaixo, mas ele dá esse erro:
Esse é um procedimento que eu fiz o AtualizaCaixa para me atualizar e mostrar no DbGrid (DbgCaixa)
Ligado em um DataSource (DtsCaixa) e IbQuery (QryCaixa):
Link para o comentário
Compartilhar em outros sites
9 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.