?? unit_printsetup.~pas
字號:
unit Unit_PrintSetup;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dxExEdtr, dxDBTLCl, dxGrClms, dxDBCtrl, dxDBGrid, dxTL,
dxCntner, cxDBLabel, cxLabel, cxControls, cxContainer, cxEdit,
cxGroupBox, cxRadioGroup, ComCtrls, cxCheckBox, cxTextEdit, cxMaskEdit,
StdCtrls, Buttons, cxGraphics, cxDropDownEdit, DB, Grids, DBGrids, Mask,
DBCtrls, Menus;
type
TForm_PrintSetup = class(TForm)
PC_ReturnCheck: TPageControl;
TS_PlanAttribute: TTabSheet;
RG_Plan: TcxRadioGroup;
RG_WeiSRD: TcxRadioGroup;
Label_CustName: TcxLabel;
DBLabel_ProductType: TcxDBLabel;
DBGrid_WeiSDJ: TdxDBGrid;
DBGrid_SaleLists: TdxDBGrid;
RB_WeiSRDs: TcxRadioGroup;
DBGrid_WeiSDJcDLCode: TdxDBGridColumn;
DBGrid_WeiSDJcCusAbbName: TdxDBGridColumn;
DBGrid_WeiSDJdDate: TdxDBGridDateColumn;
DBGrid_WeiSDJcCusCode: TdxDBGridColumn;
DBGrid_WeiSDJcVerifier: TdxDBGridColumn;
DBGrid_WeiSDJcMaker: TdxDBGridColumn;
DBGrid_WeiSDJcCusAddress: TdxDBGridColumn;
DBGrid_WeiSDJcCusPhone: TdxDBGridColumn;
DBGrid_SaleListscDLCode: TdxDBGridColumn;
DBGrid_SaleListscInvCode: TdxDBGridColumn;
DBGrid_SaleListscInvName: TdxDBGridColumn;
DBGrid_SaleListscInvStd: TdxDBGridColumn;
DBGrid_SaleListsiQuantity: TdxDBGridMaskColumn;
DBGrid_SaleListsiUnitPrice: TdxDBGridMaskColumn;
DBGrid_SaleListsiMoney: TdxDBGridCurrencyColumn;
Label_PlanDate: TcxLabel;
DBLabel_PEDate: TcxDBLabel;
CheckBox_ReportTitle: TcxCheckBox;
Edit_01: TcxMaskEdit;
Edit_02: TcxMaskEdit;
Edit_03: TcxMaskEdit;
Edit_04: TcxMaskEdit;
Edit_05: TcxMaskEdit;
Edit_06: TcxMaskEdit;
Edit_07: TcxMaskEdit;
Edit_08: TcxMaskEdit;
Edit_09: TcxMaskEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
GroupBox_ReportTitle: TcxGroupBox;
BitBtn3: TBitBtn;
ComboBox_01: TcxComboBox;
ComboBox_03: TcxComboBox;
ComboBox_04: TcxComboBox;
ComboBox_05: TcxComboBox;
ComboBox_06: TcxComboBox;
ComboBox_07: TcxComboBox;
ComboBox_08: TcxComboBox;
ComboBox_09: TcxComboBox;
ComboBox_02: TcxComboBox;
RadioButton_TL: TcxRadioButton;
RadioButton_HJ: TcxRadioButton;
DBEdit1: TDBEdit;
PopupMenu_SalePrint: TPopupMenu;
N1: TMenuItem;
ComboBox_11: TcxComboBox;
Edit_11: TcxMaskEdit;
ComboBox_10: TcxComboBox;
Edit_10: TcxMaskEdit;
procedure CheckBox_ReportTitleClick(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure RadioButton_TLClick(Sender: TObject);
procedure RadioButton_HJClick(Sender: TObject);
procedure DBEdit1Change(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form_PrintSetup: TForm_PrintSetup;
implementation
uses Unit_Data,Unit_SalePrint;
{$R *.dfm}
procedure TForm_PrintSetup.CheckBox_ReportTitleClick(Sender: TObject);
Var
sSO,sCusCode,sPLNO,sID: String;
begin
IF CheckBox_ReportTitle.Checked = True Then
Begin
GroupBox_ReportTitle.Enabled := True;
Form_SalePrint.TitleBand1.Enabled := True;
sSO := Form_Data.Table_SalePrint.FieldByName('cDLCode').AsString ;
sCusCode := Form_Data.Table_SalePrint.FieldByName('cCusCode').AsString ;
Form_Data.SQL.Close;
Form_Data.SQL.SQL.Clear;
Form_Data.SQL.SQL.Add('SELECT PLNO ');
Form_Data.SQL.SQL.Add('FROM a__PlanCustLists ');
Form_Data.SQL.SQL.Add('WHERE 類別 = ''已處理''');
Form_Data.SQL.SQL.Add('AND PTName = ''商品調回''');
Form_Data.SQL.SQL.Add('AND PLCustID ='''+ sCusCode +'''');
Form_Data.SQL.SQL.Add('AND (PlanNo IS NULL OR PlanNo = '''')');
Form_Data.SQL.Open ;
Form_Data.tSQL.Close;
Form_Data.tSQL.SQL.Clear;
Form_Data.tSQL.SQL.Add('SELECT AutoID ');
Form_Data.tSQL.SQL.Add('FROM a__Prices ');
Form_Data.tSQL.SQL.Add('WHERE cCusCode ='''+ sCusCode +'''');
Form_Data.tSQL.SQL.Add('AND (RequisitionNo IS NULL OR RequisitionNo = '''')');
Form_Data.tSQL.Open ;
sPLNO := '' ;
While Form_Data.SQL.Eof = False do
Begin
IF sPLNO = '' Then sPLNO := Form_Data.SQL.FieldByName('PLNO').AsString
Else sPLNO := sPLNO + ',' + Form_Data.SQL.FieldByName('PLNO').AsString;
Form_Data.SQL.Next;
end;
sID := '' ;
While Form_Data.tSQL.Eof = False do
Begin
IF sID = '' Then sID := Form_Data.tSQL.FieldByName('AutoID').AsString
Else sID := sID + ',' + Form_Data.tSQL.FieldByName('AutoID').AsString;
Form_Data.tSQL.Next;
end;
IF Form_Data.SQL.RecordCount <> 0 Then
Begin
IF MessageDlg('是否將未通知的調貨明細打印在此單據上 ?',mtInformation,[mbOK,mbCancel],0) = mrOk Then
Begin
Form_Data.SQL.Close;
Form_Data.SQL.SQL.Clear;
Form_Data.SQL.SQL.Add('UPDate a__Plans ');
Form_Data.SQL.SQL.Add('SET PlanNo = '''+ sSO +''',PrintName = '''+ UserName +'''');
Form_Data.SQL.SQL.Add('WHERE PLNO IN ('+ sPLNO +')');
Form_Data.SQL.ExecSQL;
End;
End;
IF Form_Data.tSQL.RecordCount <> 0 Then
Begin
IF MessageDlg('是否將未通知的調價明細打印在此單據上 ?',mtInformation,[mbOK,mbCancel],0) = mrOk Then
Begin
Form_Data.tSQL.Close;
Form_Data.tSQL.SQL.Clear;
Form_Data.tSQL.SQL.Add('UPDate a__Prices ');
Form_Data.tSQL.SQL.Add('SET RequisitionNo = '''+ sSO +''',PrintName = '''+ UserName +'''');
Form_Data.tSQL.SQL.Add('WHERE AutoID IN ('+ sID +')');
Form_Data.tSQL.ExecSQL;
End;
End;
Form_Data.Table__Prices.Active := False ;
Form_Data.Table__Prices.Active := True ;
Form_Data.SQL_PlanCustLists.Active := False ;
Form_Data.SQL_PlanCustLists.Active := True ;
End Else
Begin
GroupBox_ReportTitle.Enabled := False ;
Form_SalePrint.TitleBand1.Enabled := False;
End;
end;
procedure TForm_PrintSetup.BitBtn1Click(Sender: TObject);
begin
Close;
end;
Function GetLongStr(S:String;i:integer):String;
var
Retrun: String;
begin
While Length(s)<i do
Begin
Retrun := ' ' + Retrun;
end;
result := Retrun;
end;
procedure TForm_PrintSetup.BitBtn3Click(Sender: TObject);
Var
iSumMoney: Double;
sSO,sCusCode,sInvName,sPEDate,sPBProd,sOldPrice,sNewPrice: String;
begin
sSO := Form_Data.Table_SalePrint.FieldByName('cDLCode').AsString ;
sCusCode := Form_Data.Table_SalePrint.FieldByName('cCusCode').AsString ;
DBGrid_SaleLists.Enabled := False ;
iSumMoney := 0;
Form_Data.Table_SalePrints.First;
While Not Form_Data.Table_SalePrints.Eof do
Begin
iSumMoney := iSumMoney + Form_Data.Table_SalePrints.fieldByName('iMoney').AsFloat;
Form_Data.Table_SalePrints.Next;
end;
DBGrid_SaleLists.Enabled := True ;
Form_SalePrint.RichText_List01.Lines.Clear;
IF CheckBox_ReportTitle.Checked = True Then
Begin
Form_SalePrint.RichText_List01.Lines.Add(' 項目 金額');
Form_SalePrint.RichText_List01.Lines.Add('---------------------------------------------');
Form_SalePrint.RichText_List01.Lines.Add('本單金額: ' + FloatToStr(iSumMoney));
IF ((Edit_01.Text <> '') AND (ComboBox_01.Text <> '')) Then
Form_SalePrint.RichText_List01.Lines.Add(ComboBox_01.Text +': '+ Edit_01.Text);
IF ((Edit_02.Text <> '') AND (ComboBox_02.Text <> '')) Then
Form_SalePrint.RichText_List01.Lines.Add(ComboBox_02.Text +': '+ Edit_02.Text);
IF ((Edit_03.Text <> '') AND (ComboBox_03.Text <> '')) Then
Form_SalePrint.RichText_List01.Lines.Add(ComboBox_03.Text +': '+ Edit_03.Text);
IF ((Edit_04.Text <> '') AND (ComboBox_04.Text <> '')) Then
Form_SalePrint.RichText_List01.Lines.Add(ComboBox_04.Text +': '+ Edit_04.Text);
IF ((Edit_05.Text <> '') AND (ComboBox_05.Text <> '')) Then
Form_SalePrint.RichText_List01.Lines.Add(ComboBox_05.Text +': '+ Edit_05.Text);
IF ((Edit_06.Text <> '') AND (ComboBox_06.Text <> '')) Then
Form_SalePrint.RichText_List01.Lines.Add(ComboBox_06.Text +': '+ Edit_06.Text);
IF ((Edit_07.Text <> '') AND (ComboBox_07.Text <> '')) Then
Form_SalePrint.RichText_List01.Lines.Add(ComboBox_07.Text +': '+ Edit_07.Text);
IF ((Edit_08.Text <> '') AND (ComboBox_08.Text <> '')) Then
Form_SalePrint.RichText_List01.Lines.Add(ComboBox_08.Text +': '+ Edit_08.Text);
IF ((Edit_09.Text <> '') AND (ComboBox_09.Text <> '')) Then
Form_SalePrint.RichText_List01.Lines.Add(ComboBox_09.Text +': '+ Edit_09.Text);
IF ((Edit_10.Text <> '') AND (ComboBox_10.Text <> '')) Then
Form_SalePrint.RichText_List01.Lines.Add(ComboBox_10.Text +': '+ Edit_10.Text);
IF ((Edit_11.Text <> '') AND (ComboBox_11.Text <> '')) Then
Form_SalePrint.RichText_List01.Lines.Add(ComboBox_11.Text +': '+ Edit_11.Text);
Form_SalePrint.RichText_List01.Lines.Add('');
Form_SalePrint.RichText_List01.Lines.Add('本次付款: ');
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -