unit_printsetup.~pas

用友ERP功能扩展

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('本次付款:    ');