?? unit_printsetup.~pas
字號(hào):
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('簽收時(shí)間: ');
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('公司需調(diào)回貨品:');
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('近期調(diào)價(jià)貨品:');
Form_SalePrint.RichText_List01.Lines.Add('----------------------------------------------------------------');
Form_SalePrint.RichText_List01.Lines.Add(' 原價(jià) 現(xiàn)價(jià) 貨品名稱 ');
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 [總機(jī)]');
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.跟單分機(jī)：張曉華：806；石佳軍：803');
Form_SalePrint.RichText_List01.Lines.Add(' 李 蘭：805');
Form_SalePrint.RichText_List01.Lines.Add('5.區(qū)域經(jīng)理：曾慶禮：830/15916995571 [深圳+珠三角]');
Form_SalePrint.RichText_List01.Lines.Add(' 宋德彬：804/13412435581 [東莞+外省]');
Form_SalePrint.RichText_List01.Lines.Add(' 胡紅珍：811/15916995572 [內(nèi)褲負(fù)責(zé)人]');
Form_SalePrint.RichText_List01.Lines.Add(' 宋翠紅：807/ [內(nèi)褲負(fù)責(zé)人]');
Form_SalePrint.RichText_List01.Lines.Add('6.投訴電話：0769-85509188-802 雷琦');
Form_SalePrint.RichText_List01.Lines.Add('7.服務(wù)電話：0769-85170888/13790102338 余曉明經(jīng)理');
Form_SalePrint.RichText_List01.Lines.Add('8.工作時(shí)間：AM 8:00 - PM18:00');
Form_SalePrint.RichText_List01.Lines.Add('9.貨品有異常,請(qǐng)?jiān)?8小時(shí)內(nèi)聯(lián)系,謝謝合作!');
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 := '累計(jì)結(jié)欠';
end;
procedure TForm_PrintSetup.RadioButton_HJClick(Sender: TObject);
begin
ComboBox_06.Text := '合計(jì)應(yīng)收';
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(' 項(xiàng)目 金額');
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('簽收時(shí)間: ');
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('公司需調(diào)回貨品:');
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('近期調(diào)價(jià)貨品:');
Form_SalePrint.RichText_List01.Lines.Add('----------------------------------------------------------------');
Form_SalePrint.RichText_List01.Lines.Add(' 原價(jià) 現(xiàn)價(jià) 貨品名稱 ');
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 [總機(jī)]');
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.跟單分機(jī)：張曉華：806；石佳軍：803');
Form_SalePrint.RichText_List01.Lines.Add(' 李 蘭：805');
Form_SalePrint.RichText_List01.Lines.Add('5.區(qū)域經(jīng)理：曾慶禮：830/15916995571 [深圳+珠三角]');
Form_SalePrint.RichText_List01.Lines.Add(' 宋德彬：804/13412435581 [東莞+外省]');
Form_SalePrint.RichText_List01.Lines.Add(' 胡紅珍：811/15916995572 [內(nèi)褲負(fù)責(zé)人]');
Form_SalePrint.RichText_List01.Lines.Add(' 宋翠紅：807/ [內(nèi)褲負(fù)責(zé)人]');
Form_SalePrint.RichText_List01.Lines.Add('6.投訴電話：0769-85509188-802 雷琦');
Form_SalePrint.RichText_List01.Lines.Add('7.服務(wù)電話：0769-85170888/13790102338 余曉明經(jīng)理');
Form_SalePrint.RichText_List01.Lines.Add('8.工作時(shí)間：AM 8:00 - PM18:00');
Form_SalePrint.RichText_List01.Lines.Add('9.貨品有異常,請(qǐng)?jiān)?8小時(shí)內(nèi)聯(lián)系,謝謝合作!');
Form_SalePrint.RichText_List01.Height := Form_SalePrint.RichText_List01.Lines.Count * 21 + 3;
end;
Form_SalePrint.SaleList.Print;
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -