u_ddoc_distinta.pas

Mosaic ERP大型系统 v6.09.rar

unit u_ddoc_distinta;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, ActnList, ExtCtrls, DBCtrls, StdCtrls, Db, DBTables;

type
  TDdoc_distinta = class(TForm)
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    ActionList1: TActionList;
    Ricerca_Articolo: TAction;
    Button1: TButton;
    DBRadioGroup1: TDBRadioGroup;
    procedure Ricerca_ArticoloExecute(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Ddoc_distinta: TDdoc_distinta;

implementation

uses Doc_mod, rica_art_u_fornit;

{$R *.DFM}

procedure TDdoc_distinta.Ricerca_ArticoloExecute(Sender: TObject);
var i : integer ;
begin
   if (ModuloDatiDocumenti.TTDocVar.State <> dsEdit) and (ModuloDatiDocumenti.TTDocVar.State <> dsInsert) then
      ModuloDatiDocumenti.TTDocVar.Edit ;
   Ricerca_articoli.GrigliaArticoli.Options := [dgTitles,dgIndicator,dgColumnResize,dgColLines,dgRowLines,dgTabs,dgRowSelect,dgConfirmDelete,dgCancelOnExit,dgMultiSelect] ;
   Ricerca_Articoli.GrigliaArticoli.Selection.Clear ;

   Ricerca_articoli.QArticoli.Locate('Articolo',ModuloDatiDocumenti.TTDocVarArticoloInterno.asString,[]) ;
   Ricerca_Articoli.showModal ;

   If Ricerca_Articoli.ModalResult = mrOk then
    begin
     If Ricerca_Articoli.GrigliaArticoli.SelectedRows.Count > 1 then
      begin
        For i := 0  to Ricerca_Articoli.GrigliaArticoli.SelectedRows.Count - 1 do
         begin
           Ricerca_Articoli.QArticoli.Bookmark := Ricerca_Articoli.GrigliaArticoli.SelectedRows.Items[i] ;
           if ModuloDatiDocumenti.TTDocVar.State = dsInsert then
            begin
              ModuloDatiDocumenti.TTDocVarArticoloInterno.AsString := Ricerca_Articoli.QArticoli.FieldByName('Articolo').asString ;
              ModuloDatiDocumenti.TTDocVarArticoloEtichetta.AsString := Ricerca_Articoli.QArticoli.FieldByName('Articolo Etichetta').AsString ;
              ModuloDatiDocumenti.TTDocVarDesc_Var1.AsString := Ricerca_Articoli.QArticoli.FieldByName('Descrizione').AsString ;
              ModuloDatiDocumenti.TTDocVarQta.AsInteger := 1 ;
              ModuloDatiDocumenti.TTDocVar.Post ;
            end
           else
            begin
             ModuloDatiDocumenti.TTDocVar.Append ;
             ModuloDatiDocumenti.TTDocVarArticoloInterno.AsString := Ricerca_Articoli.QArticoli.FieldByName('Articolo').asString ;
             ModuloDatiDocumenti.TTDocVarArticoloEtichetta.AsString := Ricerca_Articoli.QArticoli.FieldByName('Articolo Etichetta').AsString ;
             ModuloDatiDocumenti.TTDocVarDesc_Var1.AsString := Ricerca_Articoli.QArticoli.FieldByName('Descrizione').AsString ;
             ModuloDatiDocumenti.TTDocVarQta.AsInteger := 1 ;
             ModuloDatiDocumenti.TTDocVar.Post ;
            end ;
         end ;
      end
     else
      ModuloDatiDocumenti.TTDocVarArticoloInterno.AsString := Ricerca_Articoli.Articolo ;
    end ;
   //Ricerca_articoli.free ;
   Ricerca_Articoli.Close ;

end;

procedure TDdoc_distinta.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
     release ;
end;

end.