sal_enter_othershiporder.pas

一个MRPII系统源代码版本

unit Sal_Enter_OtherShipOrder;

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_OtherShipOrder = 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;
    Edt_ShipNo: TEdit;
    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_SaleDeptCode: TLinkEdit;
    Edt_SaleEmployeeCode: TLinkEdit;
    Edt_SaleTypeCode: TLinkEdit;
    Label2: TLabel;
    Label11: TLabel;
    Label18: TLabel;
    Edt_WhCode: TLinkEdit;
    Edt_WhPositionCode: TLinkEdit;
    Edt_WhPositionName: TEdit;
    Edt_WhName: TEdit;
    AdoQry_BodyInvBillId: TFloatField;
    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;
    AdoQry_BodyTmpField: TFloatField;
    Label19: TLabel;
    Cmb_BillType: TComboBox;
    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_SaleDeptCodeExit(Sender: TObject);
    procedure Edt_CustomerCodeExit(Sender: TObject);
    procedure Edt_SaleEmployeeCodeExit(Sender: TObject);
    procedure Edt_CurrencyCodeExit(Sender: TObject);
    procedure Edt_CustomerCodeEnter(Sender: TObject);
    procedure Edt_ShipAddresSCodeButtonClick(Sender: TObject);
    procedure Edt_PayTermCodeButtonClick(Sender: TObject);
    procedure Edt_ShipModeCodeButtonClick(Sender: TObject);
    procedure Edt_SaleTypeCodeButtonClick(Sender: TObject);
    procedure Act_QuitExecute(Sender: TObject);
    procedure Edt_WhCodeKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edt_WhCodeButtonClick(Sender: TObject);
    procedure Edt_WhCodeExit(Sender: TObject);
    procedure Edt_WhPositionCodeExit(Sender: TObject);
    procedure Edt_WhPositionCodeKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edt_WhPositionCodeButtonClick(Sender: TObject);
  private
    CurrentFormStatus,Enter_CustomerCode:String;
    procedure GetCustomerItem(CustomerCode: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;//外币汇率
    DeletedInvBillLine : String; 
    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_OtherShipOrder: TFrm_Sal_Enter_OtherShipOrder;
  CustomerCode,ShipDate,TaxRate_Percent:String;
  WhCode,WhPositionCode :String;
implementation

uses Sal_Enter_OtherShipOrder_D, Sys_Global,
  Sal_Enter_OtherShipOrderH, Sal_Enter_ShipOrder_P;

{$R *.DFM}

{ TFrm_Sal_Enter_ShipOrder }

procedure TFrm_Sal_Enter_OtherShipOrder.InitForm(AdOConnection: TAdOConnection;
  FormStatus: String; AdoQuery: TAdoQuery);
var
  SqlText,SloNo:String;
  I:integer;
begin
  inherited;
  DeletedInvBillLine := QuotedStr('');
  If FormStatus='Add' then
  begin
    CurrentFormStatus:='Add';
    With AdoQry_Head do
    begin
//      Edt_ShipNo.Text :='';
      Edt_CustomerCode.Text:='';
      Lab_CustomerName.Caption:='';
      MEdt_CreateDate.Text := Formatdatetime('yyyy.mm.dd',Date());
      Edt_SaleDeptCode.Text:='';
      Edt_SaleTypeCode.Text:='';
      Edt_SaleEmployeeCode.Text:='';
      Edt_WhCode.Text := '';
      Edt_WhName.Text := '';
      Edt_WhPositionCode.Text := '';
      Edt_WhPositionName.Text := '';
      Edt_CurrencyCode.Text:='';
      Edt_TaxRate_Percent.Text:='';
      Edt_ShipModeCode.Text:='';
      Edt_ShipAddresSCode.Text:='';
      Cmb_BillType.ItemIndex := 1;
      Edt_PayTermCode.Text:='';
      Edt_RemArk.Text:='';
      Edt_TotalNoTaxAmount.Text:='';
      Edt_TotalTaxAmount.Text:='';


      Lab_SaleDeptName.Caption:='';
      Lab_SaleEmployeeName.Caption:='';
      Lab_CurrencyName.Caption:='';
      Lab_ShipModeName.Caption:='';
      Lab_SaleTermName.Caption:='';
      Lab_ShipAddressName.Caption:='';

      Edt_SaleDeptName.Text:='';
      Edt_SaleEmployeeName.Text:='';
      Edt_CurrencyName.Text:='';
      Edt_ShipModeName.Text:='';
      Edt_SaleTermName.Text:='';
      Edt_ShipAddressName.Text:='';
      Edt_CustomerName.text:='';
      Edt_SaleTypeName.text:='';
      Edt_RemArk1.text:='';

     SqlText:=' Select top 0  InvOutBill.InvBillId,InvOutBill.InvBillNo,InvOutBillLine.InvBillLineNo,InvOutBillLine.SloNo,'
        +'       InvOutBillLine.SloLineNo,BatchNo,  '
        +'       InvOutBillLine.ItemCode,ItemName, '
        +'       UomName, '
        +'       TmpField,'
        +'       InvBillQty, 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'
        +'     where InvBillNo= '''+fieldbyname('InvBillNo').AsString+''' ' ;
     AdoQry_Body.Close;
     AdoQry_Body.SQL.Text:=SqlText;
     AdoQry_Body.Open;
   end ;
  end
  else
  begin
    If FormStatus='Edit' then
    begin
      CurrentFormStatus:='Edit';
      With AdoQry_Head do
      begin
        Edt_ShipNo.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_WhCode.Text := fieldbyname('WhCode').AsString;
        Edt_WhName.Text := fieldbyname('WhName').AsString;
        Edt_WhPositionCode.Text := fieldbyname('WhPositionCode').AsString;
        Edt_WhPositionName.Text := fieldbyname('WhPositionName').AsString;
        Edt_SaleDeptCode.Text:=fieldbyname('DeptCode').AsString;
        Edt_SaleTypeCode.Text:=fieldbyname('SaleType').AsString;
        Cmb_BillType.ItemIndex := IIFValue(Trim(fieldbyname('BillTypeCode').AsString)='0205',0,1);
        Edt_SaleEmployeeCode.Text:=fieldbyname('SaleEmployeeCode').AsString;
        Edt_CurrencyCode.Text:=fieldbyname('CurrencyCode').AsString;
        Edt_TaxRate_Percent.Text:=fieldbyname('InvBillTaxRate').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;
        Edt_TotalNoTaxAmount.Text:=fieldbyname('TotalInvBillNoTaxAmount').AsString;
        Edt_TotalTaxAmount.Text:=fieldbyname('TotalInvBillAmount').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;
        Edt_RemArk1.text:=fieldbyname('RemArk1').AsString;

        SqlText:=' Select  InvOutBill.InvBillId,InvOutBill.InvBillNo,InvOutBillLine.InvBillLineNo,InvOutBillLine.SloNo,'
            +'       InvOutBillLine.SloLineNo,BatchNo,  '
            +'       InvOutBillLine.ItemCode,ItemName, '
            +'       UomName, '
            +'       TmpField, '
            +'       InvBillQty, 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'
            +'     where InvBillNo= '''+fieldbyname('InvBillNo').AsString+''' ' ;
       AdoQry_Body.Close;
       AdoQry_Body.SQL.Text:=SqlText;
       AdoQry_Body.Open;
      end
    end
      else
      begin
        If FormStatus='Query' then
          begin
            CurrentFormStatus:='Query';
            With AdoQry_Head do
            begin
              Edt_ShipNo.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_WhCode.Text := fieldbyname('WhCode').AsString;
              Edt_WhName.Text := fieldbyname('WhName').AsString;
              Edt_WhPositionCode.Text := fieldbyname('WhPositionCode').AsString;
              Edt_WhPositionName.Text := fieldbyname('WhPositionName').AsString;
              Edt_SaleDeptCode.Text:=fieldbyname('DeptCode').AsString;
              Edt_SaleTypeCode.Text:=fieldbyname('SaleType').AsString;
              Cmb_BillType.ItemIndex := IIFValue(Trim(fieldbyname('BillTypeCode').AsString)='0205',0,1);
              Edt_SaleEmployeeCode.Text:=fieldbyname('SaleEmployeeCode').AsString;
              Edt_CurrencyCode.Text:=fieldbyname('CurrencyCode').AsString;
              Edt_TaxRate_Percent.Text:=fieldbyname('InvBillTaxRate').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;
              Edt_TotalNoTaxAmount.Text:=fieldbyname('TotalInvBillNoTaxAmount').AsString;
              Edt_TotalTaxAmount.Text:=fieldbyname('TotalInvBillAmount').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;