prezzi_fornitore.pas

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

unit Prezzi_fornitore;

interface

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

type
  TPrezzi_fornitore_form = class(TForm)
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    GroupBox5: TGroupBox;
    DBGrid5: TDBGrid;
    GroupBox4: TGroupBox;
    Label5: TLabel;
    Label34: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    Label35: TLabel;
    Label38: TLabel;
    Label39: TLabel;
    Label7: TLabel;
    Label32: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    DBEdit20: TDBEdit;
    DBEdit22: TDBEdit;
    DBEdit23: TDBEdit;
    DBEdit24: TDBEdit;
    DBEdit25: TDBEdit;
    DBEdit21: TDBEdit;
    Button3: TButton;
    DBEdit6: TDBEdit;
    DBEdit18: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit19: TDBEdit;
    Label8: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    DBEdit1: TDBEdit;
    ImpostaPrincipale: TButton;
    associa_da_doc_come_principale: TButton;
    associa_da_doc_come_secondario: TButton;
    GroupBox1: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBEdit8: TDBEdit;
    Label9: TLabel;
    DBEdit9: TDBEdit;
    Label10: TLabel;
    DBEdit10: TDBEdit;
    Label11: TLabel;
    Label12: TLabel;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    Label13: TLabel;
    procedure ImpostaPrincipaleClick(Sender: TObject);
    procedure associa_da_doc_come_principaleClick(Sender: TObject);
    procedure associa_da_doc_come_secondarioClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Prezzi_fornitore_form: TPrezzi_fornitore_form;

implementation

uses ana_mod, Doc_mod;

{$R *.DFM}

procedure TPrezzi_fornitore_form.ImpostaPrincipaleClick(Sender: TObject);
begin
     ModuloDatiAnagrafiche.SwapFornitore ;
end;

procedure TPrezzi_fornitore_form.associa_da_doc_come_principaleClick(
  Sender: TObject);
begin

With ModuloDatianagrafiche do
  begin
    // Salviamo il principale nei secondari ;
    If TTArticoliFornitore.AsString <> ModuloDatiDocumenti.TTTestatasoggetto.AsString then
     begin
       If TTArtForn.FindKey([TTArticoliFornitore.asString]) then
        begin
         // Aggiorniamo codice, prezzo e sconto
         TTArtForn.Edit ;
        end
       else
        begin
         // Inseriamo il record ex novo ;
         TTArtforn.Insert ;
         TTArtFornFornitore.AsString := TTArticoliFornitore.AsString ;
        end ;
       TTArtFornCodicedaFornitore.AsString := TTArticoliArticoloFornitore.AsString ;
       TTArtFornPrezzoListinoL.AsCurrency := TTArticoliPrezzoListinoL.AsCurrency ;
       TTArtFornSconto.AsFloat := TTArticoliSconto.AsFloat ;
       TTArtFornSconto2.AsFloat := TTarticoliSconto2.asFloat ;
       TTArtFornSconto3.AsFloat := TTarticoliSconto3.AsFloat ;
       TTArtFornPrezzoAcquistoL.AsCurrency := TTArticoliPrezzoAcquistoL.AsCurrency ;
       TTArtForn.Post ;
     end ;
    // Salviamo i dati da documento come principale
     TTArticoli.edit ;
     TTarticoliFornitore.AsString := ModuloDatiDocumenti.TTTestataSoggetto.AsString ;
     TTArticoliArticoloFornitore.AsString := ModuloDatiDocumenti.TTDettaglioArticoloFornitore.AsString ;
     If ModuloDatiDocumenti.TTDettaglioSconto.asString <> '' then
      begin
       If ModuloDatiDocumenti.TTTestataValuta.AsString = 'L' then
        TTArticoliPrezzoListinoL.AsCurrency := ModuloDatiDocumenti.TTDettaglioPrezzo.AsCurrency
       else
        TTArticoliPrezzoListinoE.AsCurrency := ModuloDatiDocumenti.TTDettaglioPrezzo.AsCurrency ;
        TTArticoliSconto.AsFloat := ModuloDatiDocumenti.TTDettaglioSconto.AsFloat ;
        TTArticoliSconto2.AsFloat := ModuloDatiDocumenti.TTDettaglioSconto2.asFloat ;
        TTArticoliSconto3.AsFloat := ModuloDatiDocumenti.TTDettaglioSconto3.AsFloat ;
      end
     else
      begin
        TTArticoliPrezzoListinoL.asCurrency := 0 ;
        TTArticoliSconto.AsFloat := 0 ;
        TTarticoliSconto2.AsFloat := 0 ;
        TTArticoliSconto3.AsFloat := 0 ;
        If ModuloDatiDocumenti.TTTestataValuta.AsString = 'L' then
         TTArticoliPrezzoAcquistoL.AsCurrency := ModuloDatiDocumenti.TTDettaglioPrezzo.AsCurrency
        else
         TTArticoliPrezzoAcquistoE.AsCurrency := ModuloDatiDocumenti.TTDettaglioPrezzo.AsCurrency
      end ;
     TTArticoli.Post ;
  end ;
end;

procedure TPrezzi_fornitore_form.associa_da_doc_come_secondarioClick(
  Sender: TObject);
begin
With ModuloDatianagrafiche do
 with ModuloDatiDocumenti do
   begin
     If ModuloDatiAnagrafiche.TTArticoliFornitore.AsString = ModuloDatiDocumenti.TTTestataSoggetto.asString then
      begin
       ShowMessage('Attenzione : il fornitore