Aqui sigo, no se si alguien estará siguiendo este minitutorial, pero la intención es lo que cuenta.
Ya se hizo el código del botón depósitos, ahora necesitamos el botón retiros o Cheques.
Como dije en el post anterior, estos códigos son casi idénticos,
casi, vamos a poner el código de este botón y fijaros en las sutiles diferencias, de echo copie y pegue el código del botón depósitos y solo le cambie estas diferencias, revisad lo y las encontrareis.
Botón Cheques (BRetiros):
Código Delphi
[-]
procedure TBanco.BRetirosClick(Sender: TObject);
var
n1,n2,sal,t1,salt: real; begin
If DBNTransac.Text = '' then begin
MessageBox(Handle,
PChar('Tiene que Indicar el numero de Cheque'),
PChar(''),
MB_OK + MB_ICONSTOP + MB_DEFBUTTON1 + MB_APPLMODAL);
end
else begin
Banco.Fields[2].AsString:= 'Che'; n1:= SumRet.Fields[0].AsFloat; n2:= SumDep.Fields[0].AsFloat; t1:= StrTofloat(DBRetiros.Text); sal:= n2 - n1; DBSalAnt.Text:= floatToStr(sal); salt:= (sal - t1); Banco.Fields[8].AsFloat:= salt; Begin
Banco.Fields[3].AsDateTime:= DTP1.Date; Banco.Edit; Banco.Post; DBNTransac.Enabled := False;
DBDescrip.Enabled := False;
DBDeposit.Enabled:= False;
DBRetiros.Enabled := False;
DBSalAnt.Enabled:= False;
BDeposito.Visible:= False;
BRetiros.Visible:= False;
CBTipo.Text := ' ';
CBTipo.Enabled := False;
DBNavigator1.Enabled := False;
Banco.Active := False;
SumRet.Active := False;
SumDep.Active := False;
Banco.Active := True;
SumRet.Active := True;
SumDep.Active := True;
Banco.Last; ESalTot.Text := FloatToStr((SumDep.Fields[0].AsFloat) - SumRet.Fields[0].AsFloat);
end;
end;
end;
Como veis son casi exactos.
Ya podéis ingresar depósitos y hacer retiros (cheques), hasta aquí va funcionando bien, espero os sirva de algo.
Saludos