Fechamento de caixa

[anabon]

OLÁ, BOA TARDE....

ESTOU COM UMA DUVIDA.. EU QUERIA FAZER UMA TELA DE ABERTURA E OUTRA DE FECHAMENTO DE CAIXA...

TENHO 2 TABELAS EM ACESS 2003 ONDE TEM OS CAMPOS:

NA TABELA VENDA:

ID_VENDA

HORA_VENDA

DATA_VENDA

CLIENTE

TOTAL_VENDA

TOTAL_DIA

NA TABELA CAIXA

OPERADAORA

DATA_ABERTURA

HORA_ABERTURA

CAIXA_INICIAL

RESPONSÁVEL

DATA_FECHAMENTO

HORA_FECHAMENTO

PROXIMO_CAIXA

NO VB6 eu fazia com o codigo :

rs1.Open "Select * from venda_principal where data_venda= #" & Format(lbldate, "mm/dd/yyyy") & "#", con, adOpenKeyset, adLockOptimistic

With rs1

.AddNew

.Fields("n°venda") = Me.Label9

.Fields("data_venda") = Me.lbldate

.Fields("hora_venda") = Me.lbltime

.Fields("cliente") = Me.cbocliente

.Fields("total_venda") = Me.txtvenda

.Fields("total_dia") = Me.txtvenda

.Fields("total_dia") = .Fields("total_dia") + CDbl(Me.txttotaldia_geral.Text)

.Update

.Close

End With

Set rs1 = Nothing

Set con = Nothing

no form de abertura eu só salvava os dados, no form de fechamento eu exibia o total da venda do dia:

RS.Open "Select * from venda_principal where data_venda = #" & Format(Date, "mm/dd/yyyy") & "#", con, adOpenKeyset, adLockOptimistic

If (RS.RecordCount = 0) Then

Else

RS.MoveLast

txttotal_venda.Text = RS!total_dia

End If

RS.Close

depois fecha o caixa

On Error Resume Next

txtcx.Text = CDbl(txttotal_venda.Text) + CDbl(txtcx_inicial.Text) - CDbl(txtproximo_cx.Text) - CDbl(txtretirada.Text)

Set RS = New ADODB.Recordset

Set con = New ADODB.Connection

If txtresponsavel.Text = "" Then

MsgBox "Informe o nome do responsavel", vbCritical

txtresponsavel.SetFocus

Else

If txtproximo_cx.Text = "" Then

MsgBox "Informe o valor do proximo caixa", vbCritical

txtproximo_cx.SetFocus

Else

con.Open (cnSQL)

RS.Open "Select * from caixa where data_abertura = #" & Format(Date, "mm/dd/yyyy") & "#", con, adOpenKeyset, adLockOptimistic

If RS.EOF <> True And RS.BOF <> True Then

With RS

.Fields("responsavel") = Me.txtresponsavel

.Fields("data_fechamento") = Me.lbldate

.Fields("hora_fechamento") = Me.lbltime

.Fields("proximo_caixa") = Me.txtproximo_cx

.Update

.Close

End With

MsgBox "Caixa fechado com sucesso!!."

Set RS = Nothing

Set con = Nothing

Unload Me

End If

End If

End If

Não sei se esse é o modo correto de se fazer, mas nunca me deixou na mão ... enfim...

1° Se esse for o modo correto de fazer como fazer tdo isso em delphi?

2° Se não for como fazer?

Agradeceria se alguém tivece um exemplo claro para eu estudar, ou alguém q pudesse me explicar como fazer...

desde já agradeço

forte abraço!!!!!

Edited March 19, 2012 by anabon

[anabon]

Por favor ... ninguém pode me ajudar?

pelo menos de como eu posso somar a venda do dia ....

se ajudar estou salvando as vendas assim:

procedure Tfrmvendas.cmdfinalizar_vendaClick(Sender: TObject);

begin

if MessageDlg('Confirma Venda?', mtConfirmation, [mbYes, mbNo], 0) = mrYes Then

begin

TABLE_VENDA.Insert;

TABLE_VENDA.FieldByName('data_venda').AsString := Label13.Caption;

TABLE_VENDA.FieldByName('total_venda').AsString := txtsub_total.text;

TABLE_VENDA.FieldByName('data_venda').AsString := txtdata_inicio.text;

TABLE_VENDA.Post;

TABLE_VENDA.Filtered := True;

QRNOTA.Edit1.Text:= LABEL13.CAPTION;

QRNOTA.Edit4.Text:= DBEdit1.text;

QRNOTA.Edit6.Text:= DBEdit3.text;

QRNOTA.Edit5.Text:= DBEdit4.text;

QRNOTA.txtdata_final.Text:= txtdata_inicio.text;

QRNOTA.Edit3.Text:= Edit3.text;

QRNOTA.Edit2.Text:= TXTSUB_TOTAL.TEXT;

QrNota.SHOW;

End;

TABLE_VENDA.Filter := '';

TABLE_VENDA.Filtered := FALSE;

QUERY_ITEM.Filtered := FALSE;

QUERY_ITEM.Active := FALSE;

LABEL13.Caption :='';

TXTSUB_TOTAL.Text := '';

TXTVALOR_RECEBIDO.Text := '';

TXTTROCO.Text := '';

PANELDADOS.Enabled := FALSE;

TXTCODIGO.Text := '';

DBImage1.Picture := nil;

DBEdit2.Text := '';

DBEdit3.Text := '';

DBEDit4.Text :='';

CLOSE;

End;

como faço para selecionar a data e atualizar o total dia só daquela data?

Desde já agradeço quem puder me ajudar

Edited March 20, 2012 by anabon

[Jhonas]

Procure sempre fazer uma pesquisa no forum

http://scriptbrasil.com.br/forum/index.php...lite=select+sum

abraço