unit Unit_PlanCustList;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxExEdtr, dxDBCtrl, dxDBGrid, dxTL, dxCntner, ComCtrls,
  cxControls, cxContainer, cxEdit, cxLabel, cxDBLabel, cxTextEdit, cxMemo,
  cxDBEdit;

type
  TForm_PlanCustList = class(TForm)
    PC_ProductAppend: TPageControl;
    TS_PlanAttribute: TTabSheet;
    DBGrid_Plan: TdxDBGrid;
    DBGrid_PlanPlanPersonID: TdxDBGridColumn;
    DBGrid_PlanPBNO: TdxDBGridMaskColumn;
    DBGrid_PlancPersonName: TdxDBGridColumn;
    DBGrid_Plans: TdxDBGrid;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1cPersonName: TdxDBGridColumn;
    dxDBGrid1cPersonCode: TdxDBGridColumn;
    dxDBGrid1cCusRankCode: TdxDBGridColumn;
    dxDBGrid1cCusRankName: TdxDBGridColumn;
    DBGrid_PlanCustList: TdxDBGrid;
    DBGrid_PlanCustListcCusPPerson: TdxDBGridColumn;
    DBGrid_PlanCustListCustomerKCode: TdxDBGridColumn;
    DBGrid_PlanCustListcCusAbbName: TdxDBGridColumn;
    cxDBLabel1: TcxDBLabel;
    dxDBGrid2: TdxDBGrid;
    dxDBGrid2cCusAbbName: TdxDBGridColumn;
    dxDBGrid2cCusRankCode: TdxDBGridColumn;
    dxDBGrid2cCusCode: TdxDBGridColumn;
    dxDBGrid2TypeID: TdxDBGridMaskColumn;
    dxDBGrid2TypeName: TdxDBGridMaskColumn;
    dxDBGrid2ID: TdxDBGridColumn;
    DBGrid_PlansID: TdxDBGridMaskColumn;
    DBGrid_PlanscPersonName: TdxDBGridColumn;
    DBGrid_PlansCustomerKCode: TdxDBGridColumn;
    DBGrid_PlansPLCustID: TdxDBGridMaskColumn;
    DBGrid_PlanscCusAbbName: TdxDBGridColumn;
    DBGrid_PlansPTName: TdxDBGridMaskColumn;
    DBGrid_PlansPBProd: TdxDBGridMaskColumn;
    DBGrid_PlanscInvName: TdxDBGridColumn;
    DBGrid_PlansPBMemo: TdxDBGridMaskColumn;
    DBGrid_PlansColumn10: TdxDBGridMaskColumn;
    DBGrid_PlansColumn11: TdxDBGridMaskColumn;
    DBGrid_PlansPLMemo: TdxDBGridMaskColumn;
    DBGrid_PlansPBNO: TdxDBGridMaskColumn;
    DBGrid_PlansPLNO: TdxDBGridMaskColumn;
    cxDBMemo1: TcxDBMemo;
    cxDBLabel2: TcxDBLabel;
    cxDBLabel3: TcxDBLabel;
    procedure DBGrid_PlansDblClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_PlanCustList: TForm_PlanCustList;

implementation
uses  Unit_Data;
{$R *.dfm}

procedure TForm_PlanCustList.DBGrid_PlansDblClick(Sender: TObject);
Var
    sPlanType,sPlanDate,sTypeID: String;
begin
    IF Form_Data.Table_Manage.Lookup('MName',UserName,'M005') = 0 Then
    Begin
        Showmessage('你無權執行此項操作,請咨詢系統管理員!');
        Exit;
    End;

    sPlanDate := DateToStr(Form_Data.Table__Plan.Lookup('PBNO',Form_Data.SQL_PlanCustLists.FieldValues['PBNO'],'PEDate'));

    IF Form_Data.SQL_PlanCustLists.FieldValues['PTName'] = '商品調回' Then
    sPlanType := '針對此款商品,你已經通知客戶要求于 ' + sPlanDate + ' 前退回了嗎? '
    Else sPlanType := '針對此款商品,你已經輸入訂單,通知物流部要求于配送了嗎? ';


    IF ((Form_Data.SQL_PlanCustLists.FieldValues['類別'] = '未處理') AND (Form_Data.SQL_PlanCustLists.FieldValues['PTName'] = '商品調回')) Then
    Begin
        IF MessageDlg('請確認:  '+#13+#13+sPlanType+#13+#13+#13+'[ 是 ]請單擊 OK 按鈕,    [ 否 ]請單擊 Cancel 按鈕' ,mtInformation,[mbOK,mbCancel],0) = mrOk Then
            Begin
                sTypeID := InputBox('通知方式確認','電話通知請輸[ 1 ],傳真書面通知請輸[ 2 ]','');
                IF ((sTypeID <> '') AND (sTypeID = '1')) Then
                    sTypeID := ' 電話通知客戶!'
                Else IF ((sTypeID <> '') AND (sTypeID = '2')) Then
                    sTypeID := ' 書面通知客戶!'
                Else Begin
                    Showmessage('錯誤通知類別,系統無法識別!');
                    Exit;
                End;
                Form_Data.Table__Plans.Locate('PLNO',Form_Data.SQL_PlanCustLists.FieldValues['PLNO'],[]);
                Form_Data.Table__Plans.Edit;
                Form_Data.Table__Plans.FieldValues['PLType'] := 0 ;
                Form_Data.Table__Plans.FieldValues['PLMemo'] := '已于 '+FormatDatetime('YYYY-MM-DD',Now())+' '+sTypeID +'  '+ UserName ;
                Form_Data.Table__Plans.Post;

            End Else Exit;
    End Else IF ((Form_Data.SQL_PlanCustLists.FieldValues['類別'] = '未處理') AND (Form_Data.SQL_PlanCustLists.FieldValues['PTName'] <> '商品調回')) Then
    Begin
        IF MessageDlg('請確認:  '+#13+#13+sPlanType+#13+#13+#13+'[ 是 ]請單擊 OK 按鈕,    [ 否 ]請單擊 Cancel 按鈕' ,mtInformation,[mbOK,mbCancel],0) = mrOk Then
        Begin
            Form_Data.Table__Plans.Locate('PLNO',Form_Data.SQL_PlanCustLists.FieldValues['PLNO'],[]);
            Form_Data.Table__Plans.Edit;
            Form_Data.Table__Plans.FieldValues['PLType'] := 0 ;
            Form_Data.Table__Plans.FieldValues['PLMemo'] := '已于 ' +FormatDatetime('YYYY-MM-DD',Now())+' 轉訂單安排出貨!'+'  '+ UserName ;
            Form_Data.Table__Plans.Post;
        End
        Else Exit;
    End Else
        IF MessageDlg('請確認:  '+#13+#13+'要修改當前計劃的 處理 狀態碼?'+#13+#13+#13+'[ 是 ]請單擊 OK 按鈕,    [ 否 ]請單擊 Cancel 按鈕' ,mtInformation,[mbOK,mbCancel],0) = mrOk Then
        Begin
            Form_Data.Table__Plans.Locate('PLNO',Form_Data.SQL_PlanCustLists.FieldValues['PLNO'],[]);
            Form_Data.Table__Plans.Edit;
            Form_Data.Table__Plans.FieldValues['PLType'] := 1;
            Form_Data.Table__Plans.FieldValues['PLMemo'] := '于 ' +FormatDatetime('YYYY-MM-DD',Now())+' 取消已處理狀態!'+'  '+ UserName ;
            Form_Data.Table__Plans.Post;
        End
        Else Exit;
    Form_Data.Table__Plans.Active := False ;
    Form_Data.Table__Plans.Active := True ;
    Form_Data.SQL_Plan.Active  := False ;
    Form_Data.SQL_Plan.Active  := True ;
    Form_Data.SQL_Plans.Active := False ;
    Form_Data.SQL_Plans.Active := True ;
    Form_Data.SQL_PlanCustLists.Active := False ;
    Form_Data.SQL_PlanCustLists.Active := True ;

End;

procedure TForm_PlanCustList.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    Form_Data.Table__Plans.Active := False ;
    Form_Data.Table__Plans.Active := True ;
    Form_Data.SQL_Plan.Active  := False ;
    Form_Data.SQL_Plan.Active  := True ;
    Form_Data.SQL_Plans.Active := False ;
    Form_Data.SQL_Plans.Active := True ;

end;

end.