faturahazirlama.pas

Basic Marketing stock Program

unit faturahazirlama;

interface

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

type
  Tfathazirla = class(TForm)
    StatusBar1: TStatusBar;
    Label1: TLabel;
    Label2: TLabel;
    birsno: ThkNumericEdit;
    sirsno: ThkNumericEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    fatt: TTable;
    irsq: TQuery;
    fatdett: TTable;
    fatbulq: TQuery;
    fatdettSIRKOD: TStringField;
    fatdettFATNO: TFloatField;
    fatdettSIRA: TFloatField;
    fatdettTARIH: TDateField;
    fatdettSERI: TFloatField;
    fatdettMUSNO: TFloatField;
    fatdettSTOK: TStringField;
    fatdettSTOKADI: TStringField;
    fatdettBIRIM: TStringField;
    fatdettMIKTAR: TFloatField;
    fatdettFIYAT: TFloatField;
    fatdettTUTAR: TFloatField;
    fatdettISKTUTAR: TFloatField;
    fattSIRKOD: TStringField;
    fattFATNO: TFloatField;
    fattTARIH: TDateField;
    fattSERI: TFloatField;
    fattMUSNO: TFloatField;
    fattKDVYUZ: TFloatField;
    fattFATTUT: TFloatField;
    fattMALTUT: TFloatField;
    fattKDVTUT: TFloatField;
    fattISKTUT: TFloatField;
    fattIRSNO: TFloatField;
    fattMAHSUP: TFloatField;
    fatbulqSONFATNO: TFloatField;
    Label3: TLabel;
    DateEdit1: TDateEdit;
    irsqSIRKOD: TStringField;
    irsqSERI: TFloatField;
    irsqIRSNO: TFloatField;
    irsqIRSTAR: TDateField;
    irsqMUSNO: TFloatField;
    irsqISKONTO: TFloatField;
    irsqFATNO: TFloatField;
    irsqFATTAR: TDateField;
    DateEdit2: TDateEdit;
    Label4: TLabel;
    irsdetq: TQuery;
    irsdetqSIRKOD: TStringField;
    irsdetqSERI: TFloatField;
    irsdetqIRSNO: TFloatField;
    irsdetqSIRA: TFloatField;
    irsdetqIRSTAR: TDateField;
    irsdetqMUSNO: TFloatField;
    irsdetqSTOK: TStringField;
    irsdetqSTOKADI: TStringField;
    irsdetqBRIM: TStringField;
    irsdetqKDVYUZ: TFloatField;
    irsdetqMIKTAR: TFloatField;
    irsdetqFIYAT: TFloatField;
    irsdetqTUTAR: TFloatField;
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure detayyaz;
    procedure fattAfterPost(DataSet: TDataSet);
    procedure fatdettAfterPost(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fathazirla: Tfathazirla;
  itut,bfatno,fmaltut,iskonto,kdv,maltut,kdvtut,fattut,isktut,fatno:Currency;
  sira:Integer;

implementation

uses  unitgenel,unit1;

{$R *.DFM}

procedure Tfathazirla.FormShow(Sender: TObject);
begin
        birsno.Text:='';
        sirsno.text:='';
        dateedit1.SetFocus;

end;

procedure Tfathazirla.BitBtn2Click(Sender: TObject);
begin
        close;
end;

procedure Tfathazirla.BitBtn1Click(Sender: TObject);
begin
        irsq.close;
        irsq.ParamByName('XSIRKOD').value:=sb.sirkod;
        irsq.ParamByName('XBIRSNO').value:=birsno.NumericAction.AsFloat;
        irsq.ParamByName('XSIRSNO').value:=sirsno.NumericAction.AsFloat;
        irsq.ParamByName('XBTARIH').value:=dateedit1.Date;
        irsq.ParamByName('XSTARIH').value:=dateedit2.Date;
        irsq.prepare;
        irsq.Open;
        if irsq.IsEmpty Then
          Begin
            ShowMessage('輗saliye Kayd