unit_plancustlist.~pas

用友ERP功能扩展

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.