sarffisi.pas

Basic Marketing stock Program

unit sarffisi;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, StdCtrls, DBCtrls, ColorBtns, Db, DBTables, Mask,
  ToolEdit, CurrEdit, Mneyedit, Buttons, ExtCtrls,BDE;

type
  Tsarffis = class(TForm)
    Panel2: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    Panel3: TPanel;
    Label4: TLabel;
    MoneyEdit2: TMoneyEdit;
    Moneyedit1: TCurrencyEdit;
    stkfist: TTable;
    stkfistSIRKOD: TStringField;
    stkfistFISTUR: TFloatField;
    stkfistFISNO: TFloatField;
    stkfistFISTAR: TDateField;
    stkfistFIRKOD: TFloatField;
    stkfistKDVTUT: TFloatField;
    stkfistISKTUT: TFloatField;
    stkfistFISTUT: TFloatField;
    stkfistGENTUT: TFloatField;
    stkfistLFIRADI: TStringField;
    stkfistUSER: TStringField;
    stkdett: TTable;
    stkdettSIRKOD: TStringField;
    stkdettFISTUR: TFloatField;
    stkdettFISNO: TFloatField;
    stkdettSIRA: TFloatField;
    stkdettFISTAR: TDateField;
    stkdettFIRKOD: TFloatField;
    stkdettMALKODU: TStringField;
    stkdettMALADI: TStringField;
    stkdettBIRIMI: TStringField;
    stkdettKDV: TFloatField;
    stkdettMIKTAR: TFloatField;
    stkdettFIYATI: TFloatField;
    stkdettTUTAR: TFloatField;
    stkdettKAYIT: TFloatField;
    fisbulq: TQuery;
    fisbulqSONFISNO: TFloatField;
    firmat: TTable;
    stkfisbul: TQuery;
    stkfisbulSIRKOD: TStringField;
    stkfisbulFISTUR: TFloatField;
    stkfisbulFISNO: TFloatField;
    stkfisbulFISTAR: TDateField;
    stkfisbulFIRKOD: TFloatField;
    stkfisbulKDVTUT: TFloatField;
    stkfisbulISKTUT: TFloatField;
    stkfisbulFISTUT: TFloatField;
    stkfisbulGENTUT: TFloatField;
    stokq: TQuery;
    stokqSIRKOD: TStringField;
    stokqKODU: TStringField;
    stokqADI: TStringField;
    stokqBIRIM: TStringField;
    stokqGRUPKODU: TFloatField;
    stokqKDV: TFloatField;
    stokqISKONTO: TFloatField;
    stokqDOVKOD: TStringField;
    stokqALISFIYAT: TFloatField;
    stokqSFIYAT1: TFloatField;
    stokqSFIYAT2: TFloatField;
    stokqSFIYAT3: TFloatField;
    stokqKRITIKSTOK: TFloatField;
    stokqGIRMIK: TFloatField;
    stokqCIKMIK: TFloatField;
    stokqMEVCUT: TFloatField;
    sirabulq: TQuery;
    sirabulqDSIRA: TFloatField;
    stkdetd: TDataSource;
    stkfisd: TDataSource;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Color95Button1: TColor95Button;
    DBText1: TDBText;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    Edit1: TEdit;
    DBGrid1: TDBGrid;
    procedure Color95Button1Click(Sender: TObject);
    procedure DBGrid1EditButtonClick(Sender: TObject);
    procedure stkdettNewRecord(DataSet: TDataSet);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit3Exit(Sender: TObject);
    procedure stkfistBeforePost(DataSet: TDataSet);
    procedure stkfistAfterPost(DataSet: TDataSet);
    procedure stkdettBeforePost(DataSet: TDataSet);
    procedure stkdettAfterPost(DataSet: TDataSet);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
  private
    procedure agacbul;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sarffis: Tsarffis;
  tutar,miktar,firkod:Currency;
  satis,sira,fisno,sw,sx:Integer;
  stokmik,kdv,kdvtut,fistut,gentut:Currency;

implementation

uses unit1,unitgenel, stoklistesi,firmagozlem, Unitanaform;


{$R *.DFM}

procedure Tsarffis.Color95Button1Click(Sender: TObject);
begin
        Application.CreateForm(Tfirmag, firmag);
        if firmag.showmodal=mrok then
          Begin
              dbEdit3.Text:=firmag.Table1FIRKOD.Text;
          end;
            firmag.Table1.close;

end;

procedure Tsarffis.DBGrid1EditButtonClick(Sender: TObject);
begin
        Application.CreateForm(Tstoklist, stoklist);
        if Stoklist.showmodal=mrok then
          Begin
               agacbul;
          end;

end;

procedure Tsarffis.agacbul;
begin
      dtaksit.agact.close;
      dtaksit.agact.ParamByName('XSIRKOD').value:=sb.sirkod;
      dtaksit.agact.ParamByName('XMAMNO').value:=dtaksit.STOKTKODU.Value;
      dtaksit.agact.prepare;
      dtaksit.agact.open;
      if not dtaksit.agact.IsEmpty then
        Begin
          dtaksit.agact.First;
          while not dtaksit.agact.Eof do
           Begin
            if dtaksit.STOKT.Locate('SIRKOD;KODU',VarArrayOf([Sb.sirkod,dtaksit.agactPMAMNO.Text]),[])  then
              Begin
                stkdett.Append;
                stkdett.edit;
                stkdettMALADI.Text:=dtaksit.STOKTADI.Value;
                stkdettBIRIMI.Text:=dtaksit.STOKTBIRIM.Value;
                stkdettKDV.Value:=dtaksit.STOKTKDV.Value;
                if satis=0 then
                       stkdettFIYATI.Value:=dtaksit.STOKTSFIYAT1.Value;
                if satis=1 then
                       stkdettFIYATI.Value:=dtaksit.STOKTSFIYAT1.Value;
                if satis=2 then
                       stkdettFIYATI.Value:=dtaksit.STOKTSFIYAT2.Value;
                if satis=3 then
                     stkdettFIYATI.Value:=dtaksit.STOKTSFIYAT3.Value;
              stkdettMIKTAR.value:=dtaksit.agactKADET.Value;
              stkdettMALKODU.Value:=dtaksit.agactPMAMNO.Value;
              kdv:=0; kdvtut:=0;
              kdv:=stkdettFIYATI.Value * stkdettMIKTAR.value;
              kdvtut:=(kdv * stkdettKDV.value) / 100;
              stkdettTUTAR.value:=kdvtut + (stkdettFIYATI.Value * stkdettMIKTAR.value);
              stkdett.post;
            end;
           dtaksit.agact.next;
        end;
      end;  
// --------------------- Toplam Fi