D7DJshengxing/应收应付(YSYF.dll)/U_FDINVOICE_Sub.pas

unit U_FDINVOICE_Sub;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolWin, cxStyles, cxCustomData, cxGraphics, cxFilter,
  cxData, cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxClasses,
  cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
  cxGridDBTableView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB,
  DBClient, ExtCtrls, StdCtrls, BtnEdit, cxButtonEdit, cxTextEdit,
  cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator;

type
  TFrmInvoice_Sub = class(TForm)
    DataSource1: TDataSource;
    FP_Sub: TClientDataSet;
    cxGridPopupMenu1: TcxGridPopupMenu;
    ToolBar1: TToolBar;
    TSave: TToolButton;
    TBClose: TToolButton;
    ToolBar2: TToolBar;
    TADD: TToolButton;
    TDEl: TToolButton;
    Panel1: TPanel;
    cxGrid1: TcxGrid;
    Tv1: TcxGridDBTableView;
    v1P_CodeName: TcxGridDBColumn;
    v1P_Spec: TcxGridDBColumn;
    v1Qty: TcxGridDBColumn;
    v1Price: TcxGridDBColumn;
    v1QtyUnit: TcxGridDBColumn;
    v1Money: TcxGridDBColumn;
    v1note: TcxGridDBColumn;
    cxGridLevel1: TcxGridLevel;
    Label1: TLabel;
    InvoiceNo: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    InvoiceDate: TDateTimePicker;
    Note: TMemo;
    InvoiceType: TBtnEditA;
    ToFactoryName: TBtnEditA;
    FactoryName: TBtnEditA;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Filler: TEdit;
    ADOQueryTmp: TADOQuery;
    ADOQueryCmd: TADOQuery;
    Label8: TLabel;
    SYRName: TBtnEditA;
    v1Column1: TcxGridDBColumn;
    v1Column2: TcxGridDBColumn;
    v1Column3: TcxGridDBColumn;
    v1Column4: TcxGridDBColumn;
    ToolButton1: TToolButton;
    procedure TBCloseClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ToFactoryNameBtnClick(Sender: TObject);
    procedure TSaveClick(Sender: TObject);
    procedure FactoryNameBtnClick(Sender: TObject);
    procedure v1P_CodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure InvoiceTypeBtnClick(Sender: TObject);
    procedure v1P_SpecPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure v1QtyUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure v1PriceUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure TADDClick(Sender: TObject);
    procedure TDElClick(Sender: TObject);
    procedure v1QtyPropertiesEditValueChanged(Sender: TObject);
    procedure v1MoneyPropertiesEditValueChanged(Sender: TObject);
    procedure SYRNameBtnClick(Sender: TObject);
    procedure v1Column3PropertiesEditValueChanged(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
  private
    procedure initGrid();
    procedure SaveDate();
    { Private declarations }
  public
    FInvoiceNO: string;
    fInvoiceFlag: string;
    CopyInt: Integer;
    { Public declarations }
  end;

var
  FrmInvoice_Sub: TFrmInvoice_Sub;

implementation

uses
  U_Fun10, U_ZDYHelp, U_ZdyAttachment, U_dataLink, U_ZdyAttachGYS, U_YFlist,
  U_CPManageSel;
{$R *.dfm}

procedure TFrmInvoice_Sub.SaveDate();
var
  FInvoiceID: string;
begin
  ADOQueryCmd.Connection.BeginTrans;
  try
    with ADOQueryCmd do
    begin
      close;
      sql.Clear;
      sql.add('select * from FD_Invoice where InvoiceNo=''' + trim(InvoiceNo.Text) + '''');
      open;
      if isempty then
      begin
        append;
        fieldbyname('filltime').AsDateTime := SGetServerDate(ADOQueryTmp);
      end
      else
        edit;
      SSetsaveSqlnew(ADOQueryCmd, 'FD_Invoice', panel1, 0);
      fieldbyname('Invoiceflag').Value := strtoint(FInvoiceflag);
      fieldbyname('chkstatus').AsString := '0';
      post;
    end;

    with ADOQueryCmd do
    begin
      close;
      sql.Clear;
      sql.add('delete from FD_InvoiceSub where InvoiceNo=''' + trim(InvoiceNo.Text) + ''' ');
      execsql;
    end;
    with FP_Sub do
    begin
      first;
      while not eof do
      begin
        if fieldbyname('invoiceID').AsString = '' then
        begin
          if GetLSNo(ADOQueryTmp, FInvoiceID, 'FP', 'FD_InvoiceSub', 4, 1) = False then
          begin
            Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
            Exit;
          end;
        end
        else
          FInvoiceID := FP_Sub.fieldbyname('invoiceID').AsString;
        with ADOQueryCmd do
        begin
          close;
          sql.Clear;
          sql.add('select * from FD_InvoiceSub where InvoiceNo=''' + trim(InvoiceNo.Text) + ''' ');
          sql.add('and InvoiceID=''' + trim(FInvoiceID) + '''');
          open;
        end;
        if ADOQueryCmd.IsEmpty then
        begin
          ADOQueryCmd.append;
        end
        else
        begin
          ADOQueryCmd.edit;
        end;
        ADOQueryCmd.fieldbyname('InvoiceNo').Value := trim(InvoiceNo.Text);
        ADOQueryCmd.fieldbyname('InvoiceID').Value := FInvoiceID;
        SSetSaveDataCDSNew(ADOQueryCmd, Tv1, FP_Sub, 'FD_InvoiceSub', 0);
        ADOQueryCmd.fieldbyname('Qty').Value := FP_Sub.fieldbyname('Qty').AsFloat;
        ADOQueryCmd.fieldbyname('Price').Value := FP_Sub.fieldbyname('Price').AsFloat;
        ADOQueryCmd.fieldbyname('Money').Value := FP_Sub.fieldbyname('Money').AsFloat;
        ADOQueryCmd.fieldbyname('tax').Value := FP_Sub.fieldbyname('tax').AsFloat;
        ADOQueryCmd.fieldbyname('TaxMoney').Value := FP_Sub.fieldbyname('TaxMoney').AsFloat;
        ADOQueryCmd.Post;
        next;
      end;
    end;
    ADOQueryCmd.Connection.CommitTrans;
    application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ');
    Modalresult := 1;
  except
    ADOQueryCmd.Connection.RollbackTrans;
    application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', MB_ICONERROR);
  end;
end;

procedure TFrmInvoice_Sub.initGrid();
begin
  with ADOQueryTmp do
  begin
    close;
    sql.Clear;
    sql.Add('select * from FD_Invoice where InvoiceNo=''' + trim(FInvoiceNo) + '''');
    open;
  end;
  if ADOQueryTmp.isempty = False then
  begin
    SCSHDataNew(ADOQueryTmp, Panel1, 0);
  end
  else
  begin
    Filler.Text := trim(DName);
    InvoiceDate.DateTime := SGetServerDate(ADOQueryCmd);
    InvoiceType.Text := '<27><>Ʊ';
  end;
  with ADOQueryTmp do
  begin
    close;
    sql.Clear;
    sql.Add('select * from FD_InvoiceSub where InvoiceNo=''' + trim(FInvoiceNo) + '''');
    open;
  end;
  SCreateCDS20(ADOQueryTmp, FP_Sub);
  SInitCDSData20(ADOQueryTmp, FP_Sub);
end;

procedure TFrmInvoice_Sub.TBCloseClick(Sender: TObject);
begin
  WriteCxGrid('<27><>Ʊ¼<C6B1><C2BC>', Tv1, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  Close;
end;

procedure TFrmInvoice_Sub.FormShow(Sender: TObject);
begin
  ReadCxGrid('<27><>Ʊ¼<C6B1><C2BC>', Tv1, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  initGrid();
  if CopyInt = 99 then
  begin
    InvoiceNo.Text := '';
    FInvoiceNO := '';

    with FP_Sub do
    begin
      First;
      if not eof then
      begin
        Edit;
        FieldByName('invoiceID').value := '';
        Post;
        Next;
      end;

    end;
  end;
end;

procedure TFrmInvoice_Sub.ToFactoryNameBtnClick(Sender: TObject);
begin
  if fInvoiceflag = '0' then
  begin
    try
      frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application);
      with frmZdyAttachGYS do
      begin
        if ShowModal = 1 then
        begin
          TOFactoryName.Text := Trim(CDS_HZ.fieldbyname('ZdyName').AsString);
          FactoryName.Text := Trim(CDS_HZ.fieldbyname('ZdyName').AsString);
        end;
      end;
    finally
      frmZdyAttachGYS.Free;
    end;
  end
  else
  begin
    try
      frmZdyAttachment := TfrmZdyAttachment.Create(Application);
      with frmZdyAttachment do
      begin
        if ShowModal = 1 then
        begin
          TOFactoryName.Text := Trim(CDS_HZ.fieldbyname('ZdyName').AsString);
          FactoryName.Text := Trim(CDS_HZ.fieldbyname('ZdyName').AsString);
        end;
      end;
    finally
      frmZdyAttachment.Free;
    end;
  end;
end;

procedure TFrmInvoice_Sub.TSaveClick(Sender: TObject);
begin
  if trim(InvoiceNo.Text) = '' then
  begin
    application.MessageBox('<27><>Ʊ<EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD><CEAA>', '<27><>ʾ');
    exit;
  end;

  if trim(FactoryName.Text) = '' then
  begin
    application.MessageBox('<27><>Ʊ<EFBFBD><C6B1>λ<EFBFBD><CEBB><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>', '<27><>ʾ');
    exit;
  end;

  if FP_Sub.IsEmpty then
  begin
    application.MessageBox('<27><>Ʊ<EFBFBD><C6B1>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>', '<27><>ʾ');
    exit;
  end;

  if trim(FInvoiceNo) = '' then
  begin
    with ADOQueryTmp do
    begin
      close;
      sql.clear;
      sql.add('select * from FD_Invoice where InvoiceNo=''' + trim(InvoiceNo.Text) + ''' ');
      open;
    end;
    if ADOQueryTmp.IsEmpty = False then
    begin
      application.MessageBox('<27><>Ʊ<EFBFBD>Ų<EFBFBD><C5B2><EFBFBD><EFBFBD>ظ<EFBFBD>', '<27><>ʾ');
      exit;
    end;
  end;
  SaveDate();
end;

procedure TFrmInvoice_Sub.FactoryNameBtnClick(Sender: TObject);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'DFTaiTou';
      flagname := '<27><>Ʊ<EFBFBD><C6B1>λ';
      if ShowModal = 1 then
      begin
        FactoryName.Text := Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
{  IF fInvoiceflag='0' then
  begin
    try
      frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application);
      with frmZdyAttachGYS do
      begin
        if ShowModal=1 then
        begin
          FactoryName.Text:=Trim(CDS_HZ.fieldbyname('ZdyName').AsString);
        end;
      end;
    finally
      frmZdyAttachGYS.Free;
    end;
  end
  else
  begin
    try
      frmZdyAttachment:=TfrmZdyAttachment.Create(Application);
      with frmZdyAttachment do
      begin
        if ShowModal=1 then
        begin
          FactoryName.Text:=Trim(CDS_HZ.fieldbyname('ZdyName').AsString);
        end;
      end;
    finally
      frmZdyAttachment.Free;
    end;
  end;   }
end;

procedure TFrmInvoice_Sub.v1P_CodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'FPCodeName';
      flagname := '<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>';
      if ShowModal = 1 then
      begin
        Self.FP_Sub.Edit;
        Self.FP_Sub.FieldByName('P_CodeName').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
        Self.FP_Sub.FieldByName('P_Code').Value := Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
  //self.tv1.Controller.EditingController.ShowEdit();
end;

procedure TFrmInvoice_Sub.InvoiceTypeBtnClick(Sender: TObject);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'InvoiceType';
      flagname := '<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>';
      if ShowModal = 1 then
      begin
        InvoiceType.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TFrmInvoice_Sub.v1P_SpecPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'P_Spec';
      flagname := '<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>';
      if ShowModal = 1 then
      begin
        Self.FP_Sub.Edit;
        Self.FP_Sub.FieldByName('P_Spec').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TFrmInvoice_Sub.v1QtyUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'QtyUnit';
      flagname := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ';
      if ShowModal = 1 then
      begin
        Self.FP_Sub.Edit;
        Self.FP_Sub.FieldByName('QtyUnit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TFrmInvoice_Sub.v1PriceUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'PriceUnit';
      flagname := '<27><><EFBFBD><EFBFBD>';
      if ShowModal = 1 then
      begin
        Self.FP_Sub.Edit;
        Self.FP_Sub.FieldByName('PriceUnit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TFrmInvoice_Sub.TADDClick(Sender: TObject);
begin
//  frmCPManageSel:=TfrmCPManageSel.create(self);
//  with frmCPManageSel do
//  begin
//    if showmodal=1 then
//    begin
//      FP_Sub.DisableControls;
//      CDS_Main.DisableControls;
//      CDS_Main.First;
//      while not CDS_Main.Eof  do
//      begin
//        if (cds_main.fieldbyname('ssel').AsBoolean) and
//          (not FP_Sub.Locate('P_Code',trim(cds_main.fieldbyname('CYNo').AsString),[])) then
//        begin
//          FP_Sub.Append;
//          FP_Sub.FieldByName('P_Code').Value:=trim(cds_main.fieldbyname('CYNo').AsString);
//          FP_Sub.FieldByName('P_CodeName').Value:=trim(cds_main.fieldbyname('CYName').AsString);
//   //     self.cds_main.FieldByName('defnote5').Value:=trim(cds_main.fieldbyname('defnote5').AsString);
//          FP_Sub.FieldByName('P_spec').Value:=trim(cds_main.fieldbyname('CYSpec').AsString);
//          FP_Sub.FieldByName('QtyUnit').Value:='M';
//          FP_Sub.FieldByName('priceUnit').Value:='RMB';
//
//          FP_Sub.Post;
//        end;
//        cds_main.Next;
//      end;
//      cds_main.EnableControls;
//      FP_Sub.EnableControls;
//    end;
//    free;
//  end;
  FP_Sub.Append;
  FP_Sub.FieldByName('QtyUnit').Value := 'M';
  FP_Sub.FieldByName('priceUnit').Value := 'RMB';
  FP_Sub.Post;

end;

procedure TFrmInvoice_Sub.TDElClick(Sender: TObject);
begin
  if FP_Sub.IsEmpty then
    exit;
  if application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD>', '<27><>ʾ', 1) = 2 then
    exit;
  with ADOQueryTmp do
  begin
    close;
    sql.clear;
    sql.add('delete from FD_Invoicesub where InvoiceID=''' + trim(FP_Sub.fieldbyname('InvoiceID').asstring) + ''' ');
    execsql;
  end;
  FP_Sub.delete;
end;

procedure TFrmInvoice_Sub.v1QtyPropertiesEditValueChanged(Sender: TObject);
var
  mvalue, FFieldName: string;
begin
  mvalue := TcxTextEdit(Sender).EditingText;
  if Trim(mvalue) = '' then
  begin
    mvalue := '0';
  end;
  FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
  with FP_Sub do
  begin
    Edit;
    FieldByName(FFieldName).Value := Trim(mvalue);
    FieldbyName('Money').Value := format('%.2f', [FieldByName('Qty').AsFloat * FieldByName('Price').AsFloat]);
    FieldbyName('taxMoney').Value := format('%.2f', [FieldByName('money').AsFloat * (1 + FieldByName('tax').AsFloat / 100.00)]);
    Post;
  end;
  tv1.Controller.EditingController.ShowEdit();

end;

procedure TFrmInvoice_Sub.v1MoneyPropertiesEditValueChanged(Sender: TObject);
var
  mvalue, FFieldName: string;
begin
  mvalue := TcxTextEdit(Sender).EditingText;
  if Trim(mvalue) = '' then
  begin
    mvalue := '0';
  end;
  with FP_Sub do
  begin
    Edit;
    FieldByName('Money').Value := Trim(mvalue);
    if fieldbyname('Qty').AsFloat > 0 then
      FieldbyName('price').Value := format('%.4f', [FieldByName('money').AsFloat / FieldByName('Qty').AsFloat])
    else
      FieldbyName('price').Value := 0;
    FieldbyName('taxMoney').Value := format('%.2f', [FieldByName('money').AsFloat * (1 + FieldByName('tax').AsFloat / 100.00)]);
    Post;
  end;
  tv1.Controller.EditingController.ShowEdit();

end;

procedure TFrmInvoice_Sub.SYRNameBtnClick(Sender: TObject);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'SYRName';
      flagname := '<27><>˾̧ͷ';
      if Trim(flag) = 'SYRName' then
      begin
        flag := 'OrdDefStr2';
        V1Name.Caption := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
        V1Note.Caption := 'Ӣ<><D3A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
        fnote := True;
      end;
      if ShowModal = 1 then
      begin
        SYRName.Text := Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TFrmInvoice_Sub.v1Column3PropertiesEditValueChanged(Sender: TObject);
var
  mvalue, FFieldName: string;
begin
  mvalue := TcxTextEdit(Sender).EditingText;
  if Trim(mvalue) = '' then
  begin
    mvalue := '0';
  end;
  FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
  with FP_Sub do
  begin
    Edit;
    FieldByName(FFieldName).Value := Trim(mvalue);
    FieldbyName('taxMoney').Value := format('%.2f', [FieldByName('money').AsFloat * (1 + FieldByName('tax').AsFloat / 100.00)]);
    Post;
  end;
  tv1.Controller.EditingController.ShowEdit();
end;

procedure TFrmInvoice_Sub.ToolButton1Click(Sender: TObject);
begin
  frmYFlist := TfrmYFlist.create(self);
  with frmYFlist do
  begin
    if showmodal = 1 then
    begin
      FP_Sub.DisableControls;
      CDS_HZ.DisableControls;
      CDS_HZ.First;
      while not CDS_HZ.Eof do
      begin
        if (CDS_HZ.fieldbyname('ssel').AsBoolean) then
        begin
          FP_Sub.Append;
          FP_Sub.FieldByName('P_Code').Value := trim(CDS_HZ.fieldbyname('P_Code').AsString);
          FP_Sub.FieldByName('P_CodeName').Value := trim(CDS_HZ.fieldbyname('P_CodeName').AsString);
   //     self.cds_main.FieldByName('defnote5').Value:=trim(cds_main.fieldbyname('defnote5').AsString);
          FP_Sub.FieldByName('Qty').Value := trim(CDS_HZ.fieldbyname('Qty').AsString);
          FP_Sub.FieldByName('QtyUnit').Value := trim(CDS_HZ.fieldbyname('QtyUnit').AsString);
          FP_Sub.FieldByName('Price').Value := trim(CDS_HZ.fieldbyname('Price').AsString);
          FP_Sub.FieldByName('priceUnit').Value := trim(CDS_HZ.fieldbyname('BZType').AsString);
          FP_Sub.FieldByName('Money').Value := trim(CDS_HZ.fieldbyname('Money').AsString);
          FP_Sub.FieldByName('P_Spec').Value := trim(CDS_HZ.fieldbyname('P_Spec').AsString);
          FP_Sub.Post;
        end;
        CDS_HZ.Next;
      end;
      CDS_HZ.EnableControls;
      FP_Sub.EnableControls;
    end;
    free;
  end;
end;

end.