giacenza_varianti_u.pas

基于OOP设计的一套较好的ERP系统

unit giacenza_varianti_u;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, DBCtrls, DBGrids, Grids, ComCtrls, Mask;

type
  TGiacenza_varianti = class(TForm)
    Pagine: TPageControl;
    Griglia: TTabSheet;
    GridVarianti: TStringGrid;
    Elenco: TTabSheet;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    BitBtn1: TBitBtn;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    DBEdit1: TDBEdit;
    DBMemo1: TDBMemo;
    procedure GrigliaShow(Sender: TObject);
    procedure GridVariantiKeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
    Procedure Costruisci_griglia ;
  public
    { Public declarations }
  end;

var
  Giacenza_varianti: TGiacenza_varianti;

implementation

uses rica_art_u_fornit;

{$R *.DFM}

Procedure TGiacenza_Varianti.Costruisci_griglia ;
Var
   criga,cColonna,Riga,Colonna : integer ;
   variante1_old,variante2_old : string ;
   qta : real ;

begin
 With Ricerca_articoli do
  if tab.locate('Articolo',QArticoliArticolo.AsString,[]) then //Stefano 23/07/02
  If {TTArticoli.FindKey([ModuloDatiDocumenti.TTDettaglioArticoloInterno.asString])} true then
    with TTArtBase do
      begin
       First ;
       //Riga := 0 ;
       //Colonna := 0  ;
       variante1_old := '' ;
       variante2_old := '' ;
       While not Eof do
        begin
         Criga := 0 ;
         cColonna := 0 ;
         For riga := 1 to GridVarianti.RowCount -1 do
          If GridVarianti.Cells[0,riga] = TTartbase.FieldByName('Variante 1').asString then
           criga := riga ;
         For colonna := 1 to GridVarianti.colcount -1 do
          IF GridVarianti.Cells[colonna,0] = TTartbase.FieldByName('Variante 2').asString then
           cColonna := Colonna ;
         If (cColonna = 0) and (TTartbase.FieldByName('Variante 2').asString <> '') then
          begin
           GridVarianti.ColCount := GridVarianti.ColCount + 1 ;
           cColonna := GridVarianti.ColCount - 1 ;
           GridVarianti.Cells[cColonna,0] := TTartbase.FieldByName('Variante 2').asString ;
          end ;
         If (cRiga = 0) and (TTartbase.FieldByName('Variante 1').asString <> '') then
          begin
           GridVarianti.RowCount := GridVarianti.RowCount + 1 ;
           cRiga := GridVarianti.RowCount - 1 ;
           GridVarianti.Cells[0,cRiga] := TTartbase.FieldByName('Variante 1').asString ;
          end ;
         if TTGiacenza.Locate('Articolo',TTArtBase.FieldByName('Articolo Etichetta').AsString,[]) and
            ((GridVarianti.Cells[0,riga] = '') or (GridVarianti.Cells[colonna,0] = ''))then
          begin
              Qta := 0 ;
              while (not TTGiacenza.Eof) and (TTArtBase.FieldByName('Articolo Etichetta').AsString = TTGiacenzaArticolo.AsString) do
                begin
                  Qta := Qta + TTGiacenzaQtaIniziale.AsFloat + TTGiacenzaQtaCarico.AsFloat - TTGiacenzaQtaScarico.AsFloat ;
                  TTGiacenza.Next ;
                end ;
              GridVarianti.Cells[cColonna,cRiga] := FloatToStr(Qta) ;
          end ;
         next ;
        end ;
        GridVarianti.Cells[0,0] := '' ;
        gridVarianti.FixedCols := 1 ;
        gridVarianti.FixedRows := 1 ;
      end ;
end ;

procedure TGiacenza_varianti.GrigliaShow(Sender: TObject);
begin
     Costruisci_griglia  ;
end;

procedure TGiacenza_varianti.GridVariantiKeyPress(Sender: TObject;
  var Key: Char);
begin
     abort ;
end;

procedure TGiacenza_varianti.BitBtn1Click(Sender: TObject);
begin
     close ;
end;

end.