irsaliyehazirla.pas

Basic Marketing stock Program

unit irsaliyehazirla;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, DBTables, Db, StdCtrls, Buttons, hkEdit, hkNumericEdit,bde;

type
  Tirshaz = class(TForm)
    StatusBar1: TStatusBar;
    Label1: TLabel;
    fisnoe: ThkNumericEdit;
    irsedit: ThkNumericEdit;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    irst: TTable;
    stkdetq: TQuery;
    stkdetqSIRKOD: TStringField;
    stkdetqFISTUR: TFloatField;
    stkdetqFISNO: TFloatField;
    stkdetqSIRA: TFloatField;
    stkdetqFISTAR: TDateField;
    stkdetqFIRKOD: TFloatField;
    stkdetqMALKODU: TStringField;
    stkdetqMALADI: TStringField;
    stkdetqBIRIMI: TStringField;
    stkdetqKDV: TFloatField;
    stkdetqMIKTAR: TFloatField;
    stkdetqFIYATI: TFloatField;
    stkdetqTUTAR: TFloatField;
    stkdetqKAYIT: TFloatField;
    irstSIRKOD: TStringField;
    irstIRSNO: TFloatField;
    irstIRSTAR: TDateField;
    irstSERI: TFloatField;
    irstMUSNO: TFloatField;
    irstISKONTO: TFloatField;
    irstFATNO: TFloatField;
    irstFATTAR: TDateField;
    irsdett: TTable;
    irsdettSIRKOD: TStringField;
    irsdettIRSNO: TFloatField;
    irsdettSIRA: TFloatField;
    irsdettIRSTAR: TDateField;
    irsdettSERI: TFloatField;
    irsdettMUSNO: TFloatField;
    irsdettSTOK: TStringField;
    irsdettSTOKADI: TStringField;
    irsdettBRIM: TStringField;
    irsdettKDVYUZ: TFloatField;
    irsdettMIKTAR: TFloatField;
    irsdettFIYAT: TFloatField;
    irsdettTUTAR: TFloatField;
    irsbulq: TQuery;
    irsbulqSONIRSNO: TFloatField;
    procedure BitBtn1Click(Sender: TObject);
    procedure irstAfterPost(DataSet: TDataSet);
    procedure irsdettAfterPost(DataSet: TDataSet);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  irshaz: Tirshaz;

implementation

uses  unitgenel,unit1;

{$R *.DFM}

procedure Tirshaz.BitBtn1Click(Sender: TObject);
Var
irsno:Currency;
sira:Integer;
begin
        stkdetq.close;
        stkdetq.ParamByName('XSIRKOD').value:=sb.sirkod;
        stkdetq.ParamByName('XFISNO').value:=fisnoe.NumericAction.AsFloat;
        stkdetq.prepare;
        stkdetq.Open;
        if Stkdetq.IsEmpty Then
          Begin
            ShowMessage('Fi