prekandesatis.pas

Basic Marketing stock Program

unit prekandesatis;

interface

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

type
  Tprakendef = class(TForm)
    Panel2: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    Panel3: TPanel;
    Label4: TLabel;
    MoneyEdit2: TMoneyEdit;
    Moneyedit1: TCurrencyEdit;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    DBText1: TDBText;
    DBEdit2: TDBEdit;
    Edit1: TEdit;
    DBGrid1: TDBGrid;
    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;
    satalgozlem: TColorPanel;
    ColorPanel2: TColorPanel;
    Label5: TLabel;
    SpeedButton13: TSpeedButton;
    DBGrid2: TDBGrid;
    stokt: TTable;
    stoktSIRKOD: TStringField;
    stoktKODU: TStringField;
    stoktADI: TStringField;
    stoktBIRIM: TStringField;
    stoktGRUPKODU: TFloatField;
    stoktKDV: TFloatField;
    stoktISKONTO: TFloatField;
    stoktDOVKOD: TStringField;
    stoktALISFIYAT: TFloatField;
    stoktSFIYAT1: TFloatField;
    stoktSFIYAT2: TFloatField;
    stoktSFIYAT3: TFloatField;
    stoktKRITIKSTOK: TFloatField;
    stoktGIRMIK: TFloatField;
    stoktCIKMIK: TFloatField;
    stoktMEVCUT: TFloatField;
    stoktKDVD: TStringField;
    SpeedButton7: TSpeedButton;
    DBEdit1: TDBEdit;
    Label3: TLabel;
    Label6: TLabel;
    DBComboBox1: TDBComboBox;
    stkfistSATTIP: TStringField;
    yazdir: TCheckBox;
    QuickRep1: TQuickRep;
    QRBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRDBText1: TQRDBText;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRDBText2: TQRDBText;
    QRBand2: TQRBand;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel8: TQRLabel;
    QRShape1: TQRShape;
    QRBand3: TQRBand;
    QRDBText3: TQRDBText;
    QRDBText4: TQRDBText;
    QRDBText5: TQRDBText;
    QRDBText6: TQRDBText;
    QRDBText7: TQRDBText;
    QRBand4: TQRBand;
    QRLabel9: TQRLabel;
    QRDBText8: TQRDBText;
    QRLabel10: TQRLabel;
    QRDBText9: TQRDBText;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton5Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure stkfistBeforePost(DataSet: TDataSet);
    procedure stkfistAfterPost(DataSet: TDataSet);
    procedure stkdettBeforePost(DataSet: TDataSet);
    procedure stkdettAfterPost(DataSet: TDataSet);
    procedure stkdettNewRecord(DataSet: TDataSet);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure DBGrid1EditButtonClick(Sender: TObject);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure DBGrid1ColExit(Sender: TObject);
    procedure DBGrid1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure stkdettMALKODUChange(Sender: TField);
    procedure DBGrid2CellClick(Column: TColumn);
    procedure DBGrid2DblClick(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure stoktAfterPost(DataSet: TDataSet);
    procedure SpeedButton7Click(Sender: TObject);
    procedure DBEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

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

implementation

uses unit1,unitgenel,firmagozlem, stoklistesi, fiyatbak,
  Unitanaform;

{$R *.DFM}

procedure Tprakendef.FormClose(Sender: TObject; var Action: TCloseAction);
begin
        Action:=cafree;
end;

procedure Tprakendef.Edit1KeyPress(Sender: TObject; var Key: Char);
Var
fisno:Integer;
begin
        if key= #13 then
          Begin
             sx:=0;
             if Edit1.Text <> '' then
                Begin
                  fisno:=StrToInt(Edit1.Text);
                  stkfisbul.close;
                  stkfisbul.ParamByName('XSIRKOD').Value:=sb.sirkod;
                  stkfisbul.ParamByName('XFISNO').Value:=fisno;
                  stkfisbul.Prepare;
                  stkfisbul.open;
                  if stkfisbul.IsEmpty then
                    Begin
                      Showmessage('Fi