📄 unit_printsetup.~pas
字号:
Form_SalePrint.RichText_List01.Lines.Add(' --------------------------------');
Form_SalePrint.RichText_List01.Lines.Add('本次退货: ');
Form_SalePrint.RichText_List01.Lines.Add(' --------------------------------');
Form_SalePrint.RichText_List01.Lines.Add('客户签收: ');
Form_SalePrint.RichText_List01.Lines.Add(' --------------------------------');
Form_SalePrint.RichText_List01.Lines.Add('签收时间: ');
Form_SalePrint.RichText_List01.Lines.Add(' --------------------------------');
Form_SalePrint.QRLabel12.Caption := FloatToStr(iSumMoney);
Form_Data.SQL.Close;
Form_Data.SQL.SQL.Clear;
Form_Data.SQL.SQL.Add('SELECT cInvName,PLmemo,PEdate ');
Form_Data.SQL.SQL.Add('FROM a__PlanCustLists ');
Form_Data.SQL.SQL.Add('WHERE PlanNo = '''+ sSO +'''');
Form_Data.SQL.Open ;
IF Form_Data.SQL.RecordCount <> 0 Then
Begin
Form_SalePrint.RichText_List01.Lines.Add('');
Form_SalePrint.RichText_List01.Lines.Add('公司需调回货品:');
Form_SalePrint.RichText_List01.Lines.Add('------------------------------------------------------------------------');
Form_SalePrint.RichText_List01.Lines.Add(' 截止日期 货品名称 ');
Form_SalePrint.RichText_List01.Lines.Add('------------------------------------------------------------------------');
While Not Form_Data.SQL.Eof do
Begin
sInvName := Form_Data.SQL.fieldByName('cInvName').AsString;
sPBProd := Form_Data.SQL.fieldByName('PLmemo').AsString; ;
sPEDate := FormatDatetime('YYYY-MM-DD',Form_Data.SQL.fieldByName('PEDate').AsDateTime);
Form_SalePrint.RichText_List01.Lines.Add(sPEDate+' '+sInvName+' '+sPBProd );
Form_Data.SQL.Next;
end;
Form_SalePrint.RichText_List01.Lines.Add('---------------------------------------------------------------');
End;
Form_Data.SQL.Close;
Form_Data.SQL.SQL.Clear;
Form_Data.SQL.SQL.Add('SELECT OldPrice,NewPrice,cInvName ');
Form_Data.SQL.SQL.Add('FROM a__SQL_Prices ');
Form_Data.SQL.SQL.Add('WHERE RequisitionNo = '''+ sSO +'''');
Form_Data.SQL.Open ;
IF Form_Data.SQL.RecordCount <> 0 Then
Begin
Form_SalePrint.RichText_List01.Lines.Add('');
Form_SalePrint.RichText_List01.Lines.Add('近期调价货品:');
Form_SalePrint.RichText_List01.Lines.Add('----------------------------------------------------------------');
Form_SalePrint.RichText_List01.Lines.Add(' 原价 现价 货品名称 ');
Form_SalePrint.RichText_List01.Lines.Add('----------------------------------------------------------------');
While Not Form_Data.SQL.Eof do
Begin
sOldPrice := Form_Data.SQL.fieldByName('OldPrice').AsString;
sNewPrice := Form_Data.SQL.fieldByName('NewPrice').AsString;
sInvName := Form_Data.SQL.fieldByName('cInvName').AsString;
Form_SalePrint.RichText_List01.Lines.Add(sOldPrice+' '+ sNewPrice +' '+sInvName);
Form_Data.SQL.Next;
end;
Form_SalePrint.RichText_List01.Lines.Add('-----------------------------------------------------------------');
End;
Form_SalePrint.RichText_List01.Lines.Add('');
Form_SalePrint.RichText_List01.Lines.Add('附注：');
Form_SalePrint.RichText_List01.Lines.Add('1.订货电话：0769-85509188 [总机]');
Form_SalePrint.RichText_List01.Lines.Add('2.订货传真：0769-85226677/81688980');
Form_SalePrint.RichText_List01.Lines.Add('3.送货电话：汪永成：13416891093；');
Form_SalePrint.RichText_List01.Lines.Add(' 古民生：22728981/13711861399');
Form_SalePrint.RichText_List01.Lines.Add('4.跟单分机：张晓华：806；石佳军：803');
Form_SalePrint.RichText_List01.Lines.Add(' 李 兰：805');
Form_SalePrint.RichText_List01.Lines.Add('5.区域经理：曾庆礼：830/15916995571 [深圳+珠三角]');
Form_SalePrint.RichText_List01.Lines.Add(' 宋德彬：804/13412435581 [东莞+外省]');
Form_SalePrint.RichText_List01.Lines.Add(' 胡红珍：811/15916995572 [内裤负责人]');
Form_SalePrint.RichText_List01.Lines.Add(' 宋翠红：807/ [内裤负责人]');
Form_SalePrint.RichText_List01.Lines.Add('6.投诉电话：0769-85509188-802 雷琦');
Form_SalePrint.RichText_List01.Lines.Add('7.服务电话：0769-85170888/13790102338 余晓明经理');
Form_SalePrint.RichText_List01.Lines.Add('8.工作时间：AM 8:00 - PM18:00');
Form_SalePrint.RichText_List01.Lines.Add('9.货品有异常,请在48小时内联系,谢谢合作!');
Form_SalePrint.RichText_List01.Height := Form_SalePrint.RichText_List01.Lines.Count * 21 + 3;
end;
Form_SalePrint.SaleList.Preview;
end;
procedure TForm_PrintSetup.RadioButton_TLClick(Sender: TObject);
begin
ComboBox_06.Text := '上期欠款';
ComboBox_07.Text := '累计结欠';
end;
procedure TForm_PrintSetup.RadioButton_HJClick(Sender: TObject);
begin
ComboBox_06.Text := '合计应收';
ComboBox_07.Text := '';
end;
procedure TForm_PrintSetup.DBEdit1Change(Sender: TObject);
begin
CheckBox_ReportTitle.Checked := False;
end;
procedure TForm_PrintSetup.N1Click(Sender: TObject);
Begin
Form_Data.Table_SalePrint.Active := False ;
Form_Data.Table_SalePrint.Active := True ;
Form_Data.Table_SalePrints.Active := False ;
Form_Data.Table_SalePrints.Active := True ;
end;
procedure TForm_PrintSetup.BitBtn2Click(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 ;
iSumMoney := 0;
DBGrid_SaleLists.Enabled := False ;
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('本次付款: ');
Form_SalePrint.RichText_List01.Lines.Add(' --------------------------------');
Form_SalePrint.RichText_List01.Lines.Add('本次退货: ');
Form_SalePrint.RichText_List01.Lines.Add(' --------------------------------');
Form_SalePrint.RichText_List01.Lines.Add('客户签收: ');
Form_SalePrint.RichText_List01.Lines.Add(' --------------------------------');
Form_SalePrint.RichText_List01.Lines.Add('签收时间: ');
Form_SalePrint.RichText_List01.Lines.Add(' --------------------------------');
Form_SalePrint.QRLabel12.Caption := FloatToStr(iSumMoney);
Form_Data.SQL.Close;
Form_Data.SQL.SQL.Clear;
Form_Data.SQL.SQL.Add('SELECT cInvName,PLmemo,PEdate ');
Form_Data.SQL.SQL.Add('FROM a__PlanCustLists ');
Form_Data.SQL.SQL.Add('WHERE PlanNo = '''+ sSO +'''');
Form_Data.SQL.Open ;
IF Form_Data.SQL.RecordCount <> 0 Then
Begin
Form_SalePrint.RichText_List01.Lines.Add('');
Form_SalePrint.RichText_List01.Lines.Add('公司需调回货品:');
Form_SalePrint.RichText_List01.Lines.Add('------------------------------------------------------------------------');
Form_SalePrint.RichText_List01.Lines.Add(' 截止日期 货品名称 ');
Form_SalePrint.RichText_List01.Lines.Add('------------------------------------------------------------------------');
While Not Form_Data.SQL.Eof do
Begin
sInvName := Form_Data.SQL.fieldByName('cInvName').AsString;
sPBProd := Form_Data.SQL.fieldByName('PLmemo').AsString; ;
sPEDate := FormatDatetime('YYYY-MM-DD',Form_Data.SQL.fieldByName('PEDate').AsDateTime);
Form_SalePrint.RichText_List01.Lines.Add(sPEDate+' '+sInvName+' '+sPBProd );
Form_Data.SQL.Next;
end;
Form_SalePrint.RichText_List01.Lines.Add('---------------------------------------------------------------');
End;
Form_Data.SQL.Close;
Form_Data.SQL.SQL.Clear;
Form_Data.SQL.SQL.Add('SELECT OldPrice,NewPrice,cInvName ');
Form_Data.SQL.SQL.Add('FROM a__SQL_Prices ');
Form_Data.SQL.SQL.Add('WHERE RequisitionNo = '''+ sSO +'''');
Form_Data.SQL.Open ;
IF Form_Data.SQL.RecordCount <> 0 Then
Begin
Form_SalePrint.RichText_List01.Lines.Add('');
Form_SalePrint.RichText_List01.Lines.Add('近期调价货品:');
Form_SalePrint.RichText_List01.Lines.Add('----------------------------------------------------------------');
Form_SalePrint.RichText_List01.Lines.Add(' 原价 现价 货品名称 ');
Form_SalePrint.RichText_List01.Lines.Add('----------------------------------------------------------------');
While Not Form_Data.SQL.Eof do
Begin
sOldPrice := Form_Data.SQL.fieldByName('OldPrice').AsString;
sNewPrice := Form_Data.SQL.fieldByName('NewPrice').AsString;
sInvName := Form_Data.SQL.fieldByName('cInvName').AsString;
Form_SalePrint.RichText_List01.Lines.Add(sOldPrice+' '+ sNewPrice +' '+sInvName);
Form_Data.SQL.Next;
end;
Form_SalePrint.RichText_List01.Lines.Add('-----------------------------------------------------------------');
End;
Form_SalePrint.RichText_List01.Lines.Add('');
Form_SalePrint.RichText_List01.Lines.Add('附注：');
Form_SalePrint.RichText_List01.Lines.Add('1.订货电话：0769-85509188 [总机]');
Form_SalePrint.RichText_List01.Lines.Add('2.订货传真：0769-85226677/81688980');
Form_SalePrint.RichText_List01.Lines.Add('3.送货电话：汪永成：13416891093；');
Form_SalePrint.RichText_List01.Lines.Add(' 古民生：22728981/13711861399');
Form_SalePrint.RichText_List01.Lines.Add('4.跟单分机：张晓华：806；石佳军：803');
Form_SalePrint.RichText_List01.Lines.Add(' 李 兰：805');
Form_SalePrint.RichText_List01.Lines.Add('5.区域经理：曾庆礼：830/15916995571 [深圳+珠三角]');
Form_SalePrint.RichText_List01.Lines.Add(' 宋德彬：804/13412435581 [东莞+外省]');
Form_SalePrint.RichText_List01.Lines.Add(' 胡红珍：811/15916995572 [内裤负责人]');
Form_SalePrint.RichText_List01.Lines.Add(' 宋翠红：807/ [内裤负责人]');
Form_SalePrint.RichText_List01.Lines.Add('6.投诉电话：0769-85509188-802 雷琦');
Form_SalePrint.RichText_List01.Lines.Add('7.服务电话：0769-85170888/13790102338 余晓明经理');
Form_SalePrint.RichText_List01.Lines.Add('8.工作时间：AM 8:00 - PM18:00');
Form_SalePrint.RichText_List01.Lines.Add('9.货品有异常,请在48小时内联系,谢谢合作!');
Form_SalePrint.RichText_List01.Height := Form_SalePrint.RichText_List01.Lines.Count * 21 + 3;
end;
Form_SalePrint.SaleList.Print;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -