sal_enter_shiporder.pas

一个MRPII系统源代码版本

unit Sal_Enter_ShipOrder;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Entry_Body, ExtPrintReport, Db, ActnList, AdODB, Grids, DBGridEh,
  ExtCtrls, ComCtrls, ToolWin, StdCtrls, ExtEdit, Mask, linkedit, jpeg;

Type
  TFrm_Sal_Enter_ShipOrder = Class(TFrm_Base_Entry_Body)
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    MEdt_CreateDate: TMaskEdit;
    Lab_CurrencyName: TLabel;
    Lab_SaleDeptName: TLabel;
    Edt_TaxRate_Percent: TEdit;
    Edt_TotalNoTaxAmount: TEdit;
    Edt_TotalTaxAmount: TEdit;
    Label16: TLabel;
    Label17: TLabel;
    Lab_CustomerName: TLabel;
    Lab_SaleEmployeeName: TLabel;
    Lab_SaleTermName: TLabel;
    lab_ShipModeName: TLabel;
    Lab_ShipAddressName: TLabel;
    Edt_RemArk: TEdit;
    Label20: TLabel;
    Edt_RemArk1: TEdit;
    Edt_CustomerName: TEdit;
    Edt_SaleEmployeeName: TEdit;
    Edt_SaleTermName: TEdit;
    Edt_ShipAddressName: TEdit;
    Edt_SaleDeptName: TEdit;
    Edt_CurrencyName: TEdit;
    Edt_SaleTypeName: TEdit;
    Edt_ShipModeName: TEdit;
    Edt_CustomerCode: TLinkEdit;
    Edt_ShipAddresSCode: TLinkEdit;
    Edt_PayTermCode: TLinkEdit;
    Edt_ShipModeCode: TLinkEdit;
    Edt_CurrencyCode: TLinkEdit;
    Edt_SaleEmployeeCode: TLinkEdit;
    Edt_SaleTypeCode: TLinkEdit;
    Label2: TLabel;
    Edt_InvBillNo: TEdit;
    Label11: TLabel;
    Edt_WhCode: TLinkEdit;
    Edt_WhName: TEdit;
    Label18: TLabel;
    Edt_WhPositionCode: TLinkEdit;
    Edt_WhPositionName: TEdit;
    AdoQry_BodyInvBillNo: TStringField;
    AdoQry_BodyInvBillLineNo: TStringField;
    AdoQry_BodySloNo: TStringField;
    AdoQry_BodySloLineNo: TIntegerField;
    AdoQry_BodyBatchNo: TStringField;
    AdoQry_BodyItemCode: TStringField;
    AdoQry_BodyItemName: TStringField;
    AdoQry_BodyUomName: TStringField;
    AdoQry_BodyInvBillQty: TFloatField;
    AdoQry_BodyInvBillPrice: TFloatField;
    AdoQry_BodyInvBillAmount: TFloatField;
    AdoQry_BodyInvBillNoTaxPrice: TFloatField;
    AdoQry_BodyInvBillNoTaxAmount: TFloatField;
    AdoQry_BodyDiSCountRate: TFloatField;
    AdoQry_BodyDiSCountAmount: TFloatField;
    AdoQry_BodyBillLineRemArk: TStringField;
    Edt_DeptCode: TLinkEdit;
    AdoQry_BodyInvBillId: TFloatField;
    AdoQry_BodyTmpField: TFloatField;
    Cmb_BillType: TComboBox;
    Label19: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Edt_SaleTypeCodeKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edt_SaleTypeCodeExit(Sender: TObject);
    procedure Edt_TaxRate_PercentExit(Sender: TObject);
    procedure Edt_PayTermCodeKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edt_PayTermCodeExit(Sender: TObject);
    procedure Edt_ShipModeCodeKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edt_ShipModeCodeExit(Sender: TObject);
    procedure Edt_ShipAddresSCodeKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edt_ShipAddresSCodeExit(Sender: TObject);
    procedure Act_SaveExecute(Sender: TObject);
    procedure AdoQry_BodyAfterPost(DataSet: TDataSet);
    procedure Act_DeleteLineExecute(Sender: TObject);
    procedure Act_PreviewExecute(Sender: TObject);
    procedure Act_PrintExecute(Sender: TObject);
    procedure Act_NewExecute(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Act_InsertLineExecute(Sender: TObject);
    procedure Act_ModifyExecute(Sender: TObject);
    procedure Edt_DeptCodeExit(Sender: TObject);
    procedure Edt_CustomerCodeExit(Sender: TObject);
    procedure Edt_SaleEmployeeCodeExit(Sender: TObject);
    procedure Edt_CurrencyCodeExit(Sender: TObject);
    procedure Edt_ShipAddresSCodeButtonClick(Sender: TObject);
    procedure Edt_PayTermCodeButtonClick(Sender: TObject);
    procedure Edt_ShipModeCodeButtonClick(Sender: TObject);
    procedure Edt_SaleTypeCodeButtonClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure MEdt_CreateDateExit(Sender: TObject);
  private
    CurrentFormStatus:String;
    procedure updateqty(Addorreduce:integer);
    function  enoughCurrentInv(whCode,WhPositionCode,ItemCode:string;qty:real):boolean;
    function  enoughBatchInv(Batchno,whCode,WhPositionCode:string;qty:real):boolean;
    procedure reduceBatchInv(Batchno,whCode,WhPositionCode:string;qty:real;Addorreduce:integer);
    procedure reduceCurrentInv(whCode,WhPositionCode,ItemCode:string;qty:real;Addorreduce:integer);
    procedure reduceItemqty(ItemCode:string;qty:real;Addorreduce:integer);
    procedure updateslolineqty(slono:string;slolineno:integer;qty:real;Addorreduce:integer);        
    { Private declarations }
  public
    ExchRate : Double;//外币汇率
    procedure InitForm(AdOConnection:TAdOConnection;FormStatus:String;
      AdoQuery:TAdoQuery);Override;
    procedure InitControls; Override;
    procedure SetStatus(CurrentStatus:String;var AnswerStatus,EnableControls:String); Override;
    { Public declarations }
  end;

var
  Frm_Sal_Enter_ShipOrder: TFrm_Sal_Enter_ShipOrder;
  CustomerCode,TaxRate_Percent:String;

implementation

uses Sal_Enter_ShipOrder_D, Sys_Global, Sal_Enter_ShipOrder_C1,
  Sal_Enter_ShipOrderH, Sal_Enter_ShipOrder_P, Sal_Enter_ShipOrder_C;

{$R *.DFM}

{ TFrm_Sal_Enter_ShipOrder }

procedure TFrm_Sal_Enter_ShipOrder.InitForm(AdOConnection: TAdOConnection;
  FormStatus: String; AdoQuery: TAdoQuery);
var
  SqlText,SloNo:String;
  I:integer;
begin
  inherited;
  If FormStatus='Add' then
  begin
    CurrentFormStatus:='Add';
    MEdt_CreateDate.Text :=FormatDateTime('YYYY.MM.DD',Date());
    Edt_CustomerCode.Text :=Frm_Sal_Enter_ShipOrder_C1.CustomerCode;
    Lab_CustomerName.Caption :=Frm_Sal_Enter_ShipOrder_C1.CustomerName;
    AdoQuery.First;
    while not AdoQuery.Eof do
    begin
     If AdoQuery.fieldbyname('SloCheck').AsInteger=1  Then
     begin
       SloNo:=AdoQuery.fieldbyname('Slono').asstring;
       break;
     end;
     AdoQuery.Next;
    end;
    SqlText:=' Select Sa_SaleOrder.CustomerCode,'
            +' Customer.CustomerName, '
            +' Sa_SaleOrder.CustomerCode+'' ''+Customer.CustomerName As CustomerFalg, '
            +' CreateDate,SaleType.SaleTypeName ,'
            +' Sa_SaleOrder.SloNo,Sa_SaleOrder.SaleTypeCode,'
            +' Sa_SaleOrder.SaleDeptCode,Dept.DeptName, '
            +' Sa_SaleOrder.SaleDeptCode+'' ''+Dept.DeptName As SaleDeptFalg,'
            +' Sa_SaleOrder.SaleEmployeeCode,Employee1.EmployeeName,  '
            +' Sa_SaleOrder.SaleEmployeeCode+'' ''+Employee1.EmployeeName As SaleEmployeeFalg,'
            +' Sa_SaleOrder.CurrencyCode,Currency.CurrencyName,'
            +' Sa_SaleOrder.CurrencyCode+'' ''+Currency.CurrencyName As CurrencyFalg,  '
            +' TaxRate_Percent,Sa_SaleOrder.PayTermCode,PayTerm.PayTermName As SaleTermName ,   '
            +' Sa_SaleOrder.PayTermCode+'' ''+PayTerm.PayTermName  AS SaleTermFlag, '
            +' sa_SaleOrder.CreateEmployeeCode,Employee.EmployeeName, '
            +' sa_SaleOrder.CreateEmployeeCode+'' ''+Employee.EmployeeName as createEmployeefalg, '
            +' sa_SaleOrder.ShipModeCode,ShipMode.ShipModeName, '
            +' sa_SaleOrder.ShipModeCode+'' ''+ShipMode.ShipModeName as ShipModefalg, '
            +' sa_SaleOrder.ShipAddresSCode,customerShipAddress.ShipAddressName, '
            +' sa_SaleOrder.ShipAddresSCode+'' ''+customerShipAddress.ShipAddressName as ShipAddressfalg ,'
            +' Sa_SaleOrder.remArk,remArk1,TotalNoTaxAmount,TotalTaxAmount '
            +' From  Sa_SaleOrder Left Join PayTerm  On Sa_SaleOrder.PayTermCode=PayTerm.PayTermCode'
                    +' Left Join Customer  On Sa_SaleOrder.CustomerCode=Customer.CustomerCode   '
                    +' Left Join Dept On Sa_SaleOrder.SaleDeptCode=Dept.DeptCode   '
                    +' Left Join Employee Employee1 On Sa_SaleOrder.SaleEmployeeCode=Employee1.EmployeeCode  '
                    +' left Join Currency On Sa_SaleOrder.CurrencyCode=Currency.CurrencyCode  '
                    +' left Join Employee On  Sa_SaleOrder.CreateEmployeeCode=Employee.EmployeeCode  '
                    +' left Join ShipMode On Sa_SaleOrder.ShipModeCode=ShipMode.ShipModeCode    '
                    +' left Join SaleType On Sa_SaleOrder.SaleTypeCode=SaleType.SaleTypeCode '
                    +' Left Join CustomerShipAddress On Sa_SaleOrder.ShipAddresSCode=CustomerShipAddress.ShipAddresSCode '
           +' where SloNo='''+SloNo+'''';

    AdoQry_tmp.Close;
    AdoQry_Tmp.SQL.clear;
    AdoQry_Tmp.SQL.Text :=SqlText;
    AdoQry_Tmp.Open;
    with AdoQry_Tmp do
    begin
      Edt_DeptCode.Text:=fieldbyname('SaleDeptCode').AsString;
      Edt_SaleTypeCode.Text:=fieldbyname('SaleTypeCode').AsString;
      Edt_SaleEmployeeCode.Text:=fieldbyname('SaleEmployeeCode').AsString;
      Edt_CurrencyCode.Text:=fieldbyname('CurrencyCode').AsString;
      Edt_TaxRate_Percent.Text:=fieldbyname('TaxRate_Percent').AsString;
      Edt_ShipModeCode.Text:=fieldbyname('ShipModeCode').AsString;
      Edt_ShipAddresSCode.Text:=fieldbyname('ShipAddresSCode').AsString;
      Edt_PayTermCode.Text:=fieldbyname('PayTermCode').AsString;
      Edt_RemArk.Text:=fieldbyname('RemArk').AsString;
      Lab_SaleDeptName.Caption:=fieldbyname('DeptName').AsString;
      Lab_SaleEmployeeName.Caption:=fieldbyname('EmployeeName').AsString;
      Lab_CurrencyName.Caption:=fieldbyname('CurrencyName').AsString;
      Lab_ShipModeName.Caption:=fieldbyname('ShipModeName').AsString;
      Lab_SaleTermName.Caption:=fieldbyname('SaleTermName').AsString;
      Lab_ShipAddressName.Caption:=fieldbyname('ShipAddressName').AsString;

      Edt_SaleDeptName.Text:=fieldbyname('DeptName').AsString;
      Edt_SaleEmployeeName.Text:=fieldbyname('EmployeeName').AsString;
      Edt_CurrencyName.Text:=fieldbyname('CurrencyName').AsString;
      Edt_ShipModeName.Text:=fieldbyname('ShipModeName').AsString;
      Edt_SaleTermName.Text:=fieldbyname('SaleTermName').AsString;
      Edt_ShipAddressName.Text:=fieldbyname('ShipAddressName').AsString;
      Edt_CustomerName.text:=fieldbyname('CustomerName').AsString;
      Edt_SaleTypeName.text:=fieldbyname('SaleTypeName').AsString;
      Cmb_BillType.ItemIndex := 1;
      Edt_RemArk1.text:=fieldbyname('RemArk1').AsString;
    end;
    SqlText:=' Select top 0 InvOutBill.InvBillId,InvOutBill.InvBillNo,InvOutBillLine.InvBillLineNo,InvOutBillLine.SloNo,'
            +'       InvOutBillLine.SloLineNo,BatchNo,  '
            +'       InvOutBillLine.ItemCode,ItemName, '
            +'       UomName, '
            +'       InvBillQty, TmpField,InvBillPrice,InvBillAmount,InvBillNoTaxPrice,InvBillNoTaxAmount, '
            +'       InvOutBillLine.DiSCountRate,InvOutBillLine.DiSCountAmount,BillLineRemArk  '
            +' From InvOutBillLine '
            +'     Join InvOutBill on InvOutBillLine.InvBillId=InvOutBill.InvBillId '
            +'     left Join Item  '
            +'     On Item.ItemCode=InvOutBillLine.ItemCode '
            +'     left Join Uom '
            +'     On Item.UomCode=Uom.UomCode';
     AdoQry_Body.Close;
     AdoQry_Body.SQL.Text:=SqlText;
     AdoQry_Body.Open;
     AdoQuery.First;
     I:=1;
     While Not AdoQuery.Eof Do
     begin
     If AdoQuery.fieldbyname('SloCheck').AsInteger=1  Then
     begin
       AdoQry_Body.Append;
       AdoQry_Body.fieldbyname('InvBillLineNo').AsString:=IntToStr(I);
       AdoQry_Body.fieldbyname('SloNo').AsString:=AdoQuery.fieldbyname('SloNo').AsString;
       AdoQry_Body.fieldbyname('SloLineNo').AsString:=AdoQuery.fieldbyname('SloLineNo').AsString;
       AdoQry_Body.fieldbyname('BatchNo').AsString:=AdoQuery.fieldbyname('BatchNo').AsString;
       AdoQry_Body.fieldbyname('UomName').AsString:=AdoQuery.fieldbyname('UomName').AsString;
       AdoQry_Body.fieldbyname('ItemCode').AsString:=AdoQuery.fieldbyname('ItemCode').AsString;
       AdoQry_Body.fieldbyname('ItemName').AsString:=AdoQuery.fieldbyname('ItemName').AsString;
       AdoQry_Body.fieldbyname('InvBillQty').AsString:=AdoQuery.fieldbyname('ableShipqty').AsString;

       AdoQry_Body.fieldbyname('InvBillPrice').AsString:=AdoQuery.fieldbyname('TaxPrice').AsString;
       AdoQry_Body.fieldbyname('InvBillAmount').Asfloat:=AdoQuery.fieldbyname('ableShipqty').Asfloat*AdoQuery.fieldbyname('TaxPrice').Asfloat;
       AdoQry_Body.fieldbyname('InvBillNoTaxPrice').AsString:=AdoQuery.fieldbyname('NoTaxPrice').AsString;

        AdoQry_Body.fieldbyname('InvBillNoTaxAmount').Asfloat:=AdoQuery.fieldbyname('ableShipqty').Asfloat*AdoQuery.fieldbyname('NoTaxPrice').Asfloat;
//        AdoQry_Body.fieldbyname('InvBillNoTaxAmount').AsString:=AdoQuery.fieldbyname('InvBillNoTaxAmount').AsString;
        AdoQry_Body.fieldbyname('DiSCountRate').AsString:=AdoQuery.fieldbyname('DiSCountRate').AsString;
        AdoQry_Body.fieldbyname('DiSCountAmount').AsString:=AdoQuery.fieldbyname('DiSCountAmount').AsString;
        AdoQry_Body.fieldbyname('BillLineRemArk').AsString:=AdoQuery.fieldbyname('SloLineRemArk').AsString;
        AdoQry_Body.Post;
        I:=I+1;
      end;
      AdoQuery.Next;
      end;
      Edt_CustomerCode.Enabled := False;
      Edt_TaxRate_Percent.Enabled := False;
      Edt_CurrencyCode.Enabled := False;
      DataSource.DataSet:=AdoQry_Body;
      act_Save.Enabled:=True;
      ToolButton2.Enabled:=True;
  end
  else
  begin
    If FormStatus='Edit' then
    begin
      CurrentFormStatus:='Edit';
      With AdoQry_Head do
      begin
        Edt_InvBillNo.Text :=fieldbyname('InvBillNo').AsString;
        Edt_CustomerCode.Text:=fieldbyname('CustomerCode').AsString;
        Lab_CustomerName.Caption:=fieldbyname('CustomerName').AsString;
        MEdt_CreateDate.Text:=Formatdatetime('yyyy.mm.dd',fieldbyname('InvBillDate').asdatetime);
        Edt_DeptCode.Text:=fieldbyname('DeptCode').AsString;
        Edt_WhCode.Text := fieldbyname('WhCode').AsString;
        Edt_WhName.Text := fieldbyname('WhName').AsString;
        Edt_WhPositionCode.Text := fieldbyname('WhPositionCode').AsString;