476 lines
14 KiB
ObjectPascal
476 lines
14 KiB
ObjectPascal
|
unit U_WorkPayInPutB;
|
|||
|
|
|
|||
|
|
interface
|
|||
|
|
|
|||
|
|
uses
|
|||
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|||
|
|
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
|
|||
|
|
cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
|
|||
|
|
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
|
|||
|
|
cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
|
|||
|
|
StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxDropDownEdit,
|
|||
|
|
cxCalendar, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
|
|||
|
|
cxLookAndFeelPainters, cxNavigator;
|
|||
|
|
|
|||
|
|
type
|
|||
|
|
TfrmWorkPayInPutB = class(TForm)
|
|||
|
|
ToolBar1: TToolBar;
|
|||
|
|
TBSave: TToolButton;
|
|||
|
|
TBClose: TToolButton;
|
|||
|
|
ADOTemp: TADOQuery;
|
|||
|
|
ADOCmd: TADOQuery;
|
|||
|
|
DataSource1: TDataSource;
|
|||
|
|
Order_Sub: TClientDataSet;
|
|||
|
|
DataSource2: TDataSource;
|
|||
|
|
ADOZDY: TADOQuery;
|
|||
|
|
CDS_ZDY: TClientDataSet;
|
|||
|
|
ADOQuery1: TADOQuery;
|
|||
|
|
cxGridPopupMenu1: TcxGridPopupMenu;
|
|||
|
|
ClientDataSet1: TClientDataSet;
|
|||
|
|
cxGrid1: TcxGrid;
|
|||
|
|
Tv1: TcxGridDBTableView;
|
|||
|
|
v1Column5: TcxGridDBColumn;
|
|||
|
|
v1Column1: TcxGridDBColumn;
|
|||
|
|
v1Column2: TcxGridDBColumn;
|
|||
|
|
v1PRTSpec: TcxGridDBColumn;
|
|||
|
|
v1Column10: TcxGridDBColumn;
|
|||
|
|
v1Column12: TcxGridDBColumn;
|
|||
|
|
v1Column13: TcxGridDBColumn;
|
|||
|
|
v1Column17: TcxGridDBColumn;
|
|||
|
|
cxGrid1Level1: TcxGridLevel;
|
|||
|
|
ToolButton1: TToolButton;
|
|||
|
|
ToolButton2: TToolButton;
|
|||
|
|
v1Column8: TcxGridDBColumn;
|
|||
|
|
v1Column19: TcxGridDBColumn;
|
|||
|
|
v1Column22: TcxGridDBColumn;
|
|||
|
|
v1Column25: TcxGridDBColumn;
|
|||
|
|
v1Column27: TcxGridDBColumn;
|
|||
|
|
v1Column29: TcxGridDBColumn;
|
|||
|
|
v1Column3: TcxGridDBColumn;
|
|||
|
|
v1Column4: TcxGridDBColumn;
|
|||
|
|
v1Column6: TcxGridDBColumn;
|
|||
|
|
v1Column7: TcxGridDBColumn;
|
|||
|
|
Tv1Column1: TcxGridDBColumn;
|
|||
|
|
Tv1Column2: TcxGridDBColumn;
|
|||
|
|
Tv1Column3: TcxGridDBColumn;
|
|||
|
|
Tv1Column4: TcxGridDBColumn;
|
|||
|
|
Tv1Column5: TcxGridDBColumn;
|
|||
|
|
Tv1Column6: TcxGridDBColumn;
|
|||
|
|
Tv1Column7: TcxGridDBColumn;
|
|||
|
|
Tv1Column8: TcxGridDBColumn;
|
|||
|
|
Tv1Column9: TcxGridDBColumn;
|
|||
|
|
Tv1Column10: TcxGridDBColumn;
|
|||
|
|
Tv1Column11: TcxGridDBColumn;
|
|||
|
|
Tv1Column12: TcxGridDBColumn;
|
|||
|
|
Tv1Column13: TcxGridDBColumn;
|
|||
|
|
procedure TBCloseClick(Sender: TObject);
|
|||
|
|
procedure FormShow(Sender: TObject);
|
|||
|
|
procedure TBSaveClick(Sender: TObject);
|
|||
|
|
procedure v1Column2PropertiesEditValueChanged(Sender: TObject);
|
|||
|
|
procedure ToolButton1Click(Sender: TObject);
|
|||
|
|
procedure ToolButton2Click(Sender: TObject);
|
|||
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|||
|
|
private
|
|||
|
|
FXS: Integer;
|
|||
|
|
procedure InitData();
|
|||
|
|
function SaveData(): Boolean;
|
|||
|
|
{ Private declarations }
|
|||
|
|
public
|
|||
|
|
PState, PCopyInt: Integer;
|
|||
|
|
FMainId, FPayType, FDate: string;
|
|||
|
|
|
|||
|
|
{ Public declarations }
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
var
|
|||
|
|
frmWorkPayInPutB: TfrmWorkPayInPutB;
|
|||
|
|
|
|||
|
|
implementation
|
|||
|
|
|
|||
|
|
uses
|
|||
|
|
U_DataLink, U_ZDYHelp, U_RTFun;
|
|||
|
|
|
|||
|
|
{$R *.dfm}
|
|||
|
|
|
|||
|
|
procedure TfrmWorkPayInPutB.TBCloseClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
WriteCxGrid('Ա<><D4B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>B', Tv1, '<27><><EFBFBD><EFBFBD>1');
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmWorkPayInPutB.InitData();
|
|||
|
|
begin
|
|||
|
|
with ADOQuery1 do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
sql.Add(' select A.* ');
|
|||
|
|
SQL.Add(' from Worker_Pay A where ');
|
|||
|
|
SQL.Add(' Convert(varchar(7),WPDate,120)=''' + Trim(FDate) + '''');
|
|||
|
|
SQL.Add(' and isnull(DataType,'''')=''B'' ');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
SCreateCDS20(ADOQuery1, Order_Sub);
|
|||
|
|
SInitCDSData20(ADOQuery1, Order_Sub);
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmWorkPayInPutB.FormShow(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
ReadCxGrid('Ա<><D4B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>B', Tv1, '<27><><EFBFBD><EFBFBD>1');
|
|||
|
|
InitData();
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
function TfrmWorkPayInPutB.SaveData(): Boolean;
|
|||
|
|
var
|
|||
|
|
maxno, FDept, XS: string;
|
|||
|
|
begin
|
|||
|
|
try
|
|||
|
|
Result := False;
|
|||
|
|
ADOCmd.Connection.BeginTrans;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
Order_Sub.DisableControls;
|
|||
|
|
with Order_Sub do
|
|||
|
|
begin
|
|||
|
|
First;
|
|||
|
|
while not Eof do
|
|||
|
|
begin
|
|||
|
|
if Trim(Order_Sub.fieldbyname('WPID').AsString) = '' then
|
|||
|
|
begin
|
|||
|
|
if GetLSNo(ADOCmd, maxno, 'WP', 'Worker_Pay', 4, 1) = False then
|
|||
|
|
begin
|
|||
|
|
ADOCmd.Connection.RollbackTrans;
|
|||
|
|
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
maxno := Trim(Order_Sub.fieldbyname('WPID').AsString);
|
|||
|
|
end;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
SQL.Add('select * from Worker_Pay where WPID=''' + Trim(Order_Sub.fieldbyname('WPID').AsString) + '''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
if Trim(Order_Sub.fieldbyname('WPID').AsString) = '' then
|
|||
|
|
begin
|
|||
|
|
Append;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
Edit;
|
|||
|
|
end;
|
|||
|
|
FieldByName('WPID').Value := Trim(maxno);
|
|||
|
|
FieldByName('DataType').Value := 'B';
|
|||
|
|
RTSetSaveDataCDS(ADOCmd, Tv1, Order_Sub, 'Worker_Pay', 0);
|
|||
|
|
FieldByName('WPDate').Value := Trim(FDate) + '-01';
|
|||
|
|
|
|||
|
|
if Trim(FMainId) = '' then
|
|||
|
|
begin
|
|||
|
|
FieldByName('Filler').Value := Trim(DName);
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
FieldByName('Editer').Value := Trim(DName);
|
|||
|
|
FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp);
|
|||
|
|
end;
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
{ with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('Update Worker_Pay Set YFHZMoney=ROUND(YFHZMoney,0) where WPID='''+Trim(maxno)+'''');
|
|||
|
|
ExecSQL;
|
|||
|
|
end; }
|
|||
|
|
Edit;
|
|||
|
|
FieldByName('WPId').Value := Trim(maxno);
|
|||
|
|
Next;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
Order_Sub.EnableControls;
|
|||
|
|
ADOCmd.Connection.CommitTrans;
|
|||
|
|
Result := True;
|
|||
|
|
except
|
|||
|
|
Result := False;
|
|||
|
|
ADOCmd.Connection.RollbackTrans;
|
|||
|
|
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmWorkPayInPutB.TBSaveClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
ToolBar1.SetFocus;
|
|||
|
|
if Order_Sub.IsEmpty then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('<27><>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
|
|||
|
|
exit;
|
|||
|
|
end;
|
|||
|
|
if SaveData() then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ', 0);
|
|||
|
|
ModalResult := 1;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmWorkPayInPutB.v1Column2PropertiesEditValueChanged(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
FName, mvalue, BasePay, BuTie, WeiSheng, ZhiLiangKou, KouKuan, YFHZMoney, MonMoney, DayQty, BuTie2, BuTie3, XiuJia, JBGZ, BXBT, CXBT, BDBT, QTBT, QQJ, CPKK, JJRDay, QTFL, KQKK: string;
|
|||
|
|
SheBao, SheBaoXSGR, SheBaoGR, JiXiao, SheBaoGS, GW: string;
|
|||
|
|
begin
|
|||
|
|
FName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
|
|||
|
|
mvalue := TcxTextEdit(Sender).EditingText;
|
|||
|
|
with Order_Sub do
|
|||
|
|
begin
|
|||
|
|
Edit;
|
|||
|
|
if Trim(mvalue) <> '' then
|
|||
|
|
begin
|
|||
|
|
FieldByName(FName).Value := mvalue;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
FieldByName(FName).Value := Null;
|
|||
|
|
end;
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
GW := Order_Sub.fieldbyname('GW').AsString; //<2F><>λ
|
|||
|
|
|
|||
|
|
BDBT := Order_Sub.fieldbyname('BDBT').AsString; //<2F><><EFBFBD>ײ<EFBFBD><D7B2><EFBFBD>
|
|||
|
|
if Trim(BDBT) = '' then
|
|||
|
|
BDBT := '0';
|
|||
|
|
QTBT := Order_Sub.fieldbyname('QTBT').AsString; //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
if Trim(QTBT) = '' then
|
|||
|
|
QTBT := '0';
|
|||
|
|
QQJ := Order_Sub.fieldbyname('QQJ').AsString; //ȫ<>ڽ<EFBFBD>
|
|||
|
|
if Trim(QQJ) = '' then
|
|||
|
|
QQJ := '0';
|
|||
|
|
CPKK := Order_Sub.fieldbyname('CPKK').AsString; //<2F><>Ʒ<EFBFBD>ۿ<EFBFBD>
|
|||
|
|
if Trim(CPKK) = '' then
|
|||
|
|
CPKK := '0';
|
|||
|
|
KQKK := Order_Sub.fieldbyname('KQKK').AsString; //<2F><><EFBFBD>ڿۿ<DABF>
|
|||
|
|
if Trim(KQKK) = '' then
|
|||
|
|
KQKK := '0';
|
|||
|
|
JJRDay := Order_Sub.fieldbyname('JJRDay').AsString; //<2F>ڼ<EFBFBD><DABC><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>
|
|||
|
|
if Trim(JJRDay) = '' then
|
|||
|
|
JJRDay := '0';
|
|||
|
|
QTFL := Order_Sub.fieldbyname('QTFL').AsString; //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
if Trim(QTFL) = '' then
|
|||
|
|
QTFL := '0';
|
|||
|
|
// JBGZ := Order_Sub.fieldbyname('JBGZ').AsString; //<2F>Ӱ<EFBFBD><D3B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
// if Trim(JBGZ) = '' then
|
|||
|
|
// JBGZ := '0';
|
|||
|
|
DayQty := Order_Sub.fieldbyname('DayQty').AsString; //<2F>ϰ<EFBFBD><CFB0><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
if Trim(DayQty) = '' then
|
|||
|
|
DayQty := '0';
|
|||
|
|
|
|||
|
|
if GW <> '<27>칫<EFBFBD><ECB9AB>' then
|
|||
|
|
begin
|
|||
|
|
with Order_Sub do
|
|||
|
|
begin
|
|||
|
|
Edit;
|
|||
|
|
FieldByName('BXBT').Value := FloatToStr(strtofloatdef(Trim(Order_Sub.fieldbyname('BXBT').AsString), 1100));
|
|||
|
|
FieldByName('WeiSheng').Value := FloatToStr(strtofloatdef(Trim(Order_Sub.fieldbyname('WeiSheng').AsString), 1000));
|
|||
|
|
FieldByName('MonMoney').Value := FloatToStr(StrToFloat(DayQty) * 75);
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
MonMoney := Order_Sub.fieldbyname('MonMoney').AsString; //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
if Trim(MonMoney) = '' then
|
|||
|
|
MonMoney := '0';
|
|||
|
|
|
|||
|
|
WeiSheng := Order_Sub.fieldbyname('WeiSheng').AsString; //<2F><><EFBFBD>䲹<EFBFBD><E4B2B9>
|
|||
|
|
if Trim(WeiSheng) = '' then
|
|||
|
|
WeiSheng := '0';
|
|||
|
|
BXBT := Order_Sub.fieldbyname('BXBT').AsString; //<2F><><EFBFBD>ղ<EFBFBD><D5B2><EFBFBD>
|
|||
|
|
if Trim(BXBT) = '' then
|
|||
|
|
BXBT := '0';
|
|||
|
|
|
|||
|
|
XiuJia := Order_Sub.fieldbyname('XiuJia').AsString;
|
|||
|
|
if Trim(XiuJia) = '' then
|
|||
|
|
XiuJia := '0';
|
|||
|
|
BuTie := Order_Sub.fieldbyname('BuTie').AsString;
|
|||
|
|
if Trim(BuTie) = '' then
|
|||
|
|
BuTie := '0';
|
|||
|
|
KouKuan := Order_Sub.fieldbyname('KouKuan').AsString;
|
|||
|
|
if Trim(KouKuan) = '' then
|
|||
|
|
KouKuan := '0';
|
|||
|
|
SheBao := Order_Sub.fieldbyname('SheBao').AsString;
|
|||
|
|
if Trim(SheBao) = '' then
|
|||
|
|
SheBao := '0';
|
|||
|
|
SheBaoXSGR := Order_Sub.fieldbyname('SheBaoXSGR').AsString;
|
|||
|
|
if Trim(SheBaoXSGR) = '' then
|
|||
|
|
SheBaoXSGR := '0';
|
|||
|
|
BuTie3 := Order_Sub.fieldbyname('BuTie3').AsString;
|
|||
|
|
if Trim(BuTie3) = '' then
|
|||
|
|
BuTie3 := '0';
|
|||
|
|
if GW = '<27>칫<EFBFBD><ECB9AB>' then
|
|||
|
|
begin
|
|||
|
|
CXBT := Order_Sub.fieldbyname('CXBT').AsString; //<2F><><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD>
|
|||
|
|
if Trim(CXBT) = '' then
|
|||
|
|
CXBT := '0';
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
CXBT := FloatToStr(StrToFloat(XiuJia) * 60);
|
|||
|
|
end;
|
|||
|
|
if GW <> '<27>칫<EFBFBD><ECB9AB>' then
|
|||
|
|
begin
|
|||
|
|
with Order_Sub do
|
|||
|
|
begin
|
|||
|
|
Edit;
|
|||
|
|
FieldByName('CXBT').Value := CXBT;
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
if GW <> '<27>칫<EFBFBD><ECB9AB>' then
|
|||
|
|
begin
|
|||
|
|
JiXiao := Order_Sub.fieldbyname('JiXiao').AsString;
|
|||
|
|
if Trim(JiXiao) = '' then
|
|||
|
|
JiXiao := '0';
|
|||
|
|
end;
|
|||
|
|
with Order_Sub do
|
|||
|
|
begin
|
|||
|
|
Edit;
|
|||
|
|
if GW = '<27>칫<EFBFBD><ECB9AB>' then
|
|||
|
|
begin
|
|||
|
|
FieldByName('BuTie2').Value := StrToFloat(XiuJia) * (StrToFloat(MonMoney) + StrToFloat(WeiSheng) + StrToFloat(BuTie)) * 1.00 / 30.5;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
// FieldByName('BuTie2').Value := StrToFloat(XiuJia) * (StrToFloat(JiXiao) + StrToFloat(WeiSheng) + StrToFloat(BuTie)) * 1.00 / 30.5;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
FieldByName('SheBaoGR').Value := StrToFloat(SheBao) * StrToFloat(SheBaoXSGR) * 0.01;
|
|||
|
|
FieldByName('SheBaoGS').Value := StrToFloat(SheBao) - StrToFloat(SheBao) * StrToFloat(SheBaoXSGR) * 0.01;
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
BuTie2 := Order_Sub.fieldbyname('BuTie2').AsString;
|
|||
|
|
if Trim(BuTie2) = '' then
|
|||
|
|
BuTie2 := '0';
|
|||
|
|
SheBaoGR := Order_Sub.fieldbyname('SheBaoGR').AsString;
|
|||
|
|
if Trim(SheBaoGR) = '' then
|
|||
|
|
SheBaoGR := '0';
|
|||
|
|
SheBaoGS := Order_Sub.fieldbyname('SheBaoGS').AsString;
|
|||
|
|
if Trim(SheBaoGS) = '' then
|
|||
|
|
SheBaoGS := '0';
|
|||
|
|
|
|||
|
|
if GW = '<27>칫<EFBFBD><ECB9AB>' then
|
|||
|
|
begin
|
|||
|
|
JiXiao := FloatToStr(StrToFloat(MonMoney) + StrToFloat(WeiSheng) + StrToFloat(BuTie) + StrToFloat(SheBaoGS));
|
|||
|
|
end;
|
|||
|
|
// else
|
|||
|
|
// begin
|
|||
|
|
// JiXiao := Order_Sub.fieldbyname('JiXiao').AsString;
|
|||
|
|
// if Trim(JiXiao) = '' then
|
|||
|
|
// JiXiao := '0';
|
|||
|
|
// end;
|
|||
|
|
// BasePay := FloatToStr((StrToFloat(MonMoney) + StrToFloat(WeiSheng) + StrToFloat(BuTie)) * 1.00 * StrToFloat(DayQty) / 30.5 + StrToFloat(BuTie2) + StrToFloat(BuTie3) - StrToFloat(SheBaoGR));
|
|||
|
|
|
|||
|
|
if GW = '<27>칫<EFBFBD><ECB9AB>' then //<2F><><EFBFBD>ղ<EFBFBD><D5B2><EFBFBD>1100
|
|||
|
|
begin // <20><><EFBFBD><EFBFBD> 75*<2A><><EFBFBD><EFBFBD> <20><><EFBFBD>丣<EFBFBD><E4B8A3> 1000 <20><>λ<EFBFBD><CEBB><EFBFBD><EFBFBD> <20>ϰ<EFBFBD><CFB0><EFBFBD><EFBFBD><EFBFBD> <20>ڼ<EFBFBD><DABC><EFBFBD> <20>ݼ<EFBFBD><DDBC><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
BasePay := FloatToStr((StrToFloat(MonMoney) + StrToFloat(WeiSheng) + StrToFloat(BuTie)) / 30.5 * (StrToFloat(DayQty) + StrToFloat(JJRDay) + StrToFloat(XiuJia)));
|
|||
|
|
//Ӧ<><D3A6> <20>Ӱ<EFBFBD><D3B0><EFBFBD><EFBFBD><EFBFBD>=Ӧ<><D3A6>-<2D><><EFBFBD><EFBFBD>*75- <20><><EFBFBD>丣<EFBFBD><E4B8A3> 1000 - <20><><EFBFBD>ղ<EFBFBD><D5B2><EFBFBD>1100
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
// BasePay := FloatToStr((StrToFloat(JiXiao) + StrToFloat(WeiSheng) + StrToFloat(BuTie)) / 30.5 * (StrToFloat(DayQty) + StrToFloat(JJRDay)) + StrToFloat(CXBT));
|
|||
|
|
BasePay := FloatToStr(StrToFloat(JiXiao) / 30.5 * StrToFloat(DayQty) + StrToFloat(CXBT));
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
if GW <> '<27>칫<EFBFBD><ECB9AB>' then
|
|||
|
|
begin
|
|||
|
|
JBGZ := FloatToStr(StrToFloat(BasePay) - StrToFloat(DayQty) * 75 - StrToFloat(WeiSheng) - StrToFloat(BXBT));
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
|
|||
|
|
// YFHZMoney := FloatToStr(StrToFloat(BasePay) - StrToFloat(KouKuan));
|
|||
|
|
|
|||
|
|
if GW = '<27>칫<EFBFBD><ECB9AB>' then
|
|||
|
|
begin
|
|||
|
|
YFHZMoney := FloatToStr(StrToFloat(BasePay) + StrToFloat(CXBT) + StrToFloat(BDBT) + StrToFloat(QQJ) + StrToFloat(QTBT) - StrToFloat(CPKK) - StrToFloat(KQKK) - StrToFloat(SheBaoGR)); //+ StrToFloat(BuTie2)
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
YFHZMoney := FloatToStr(StrToFloat(BasePay) + StrToFloat(BDBT) + StrToFloat(QQJ) + StrToFloat(QTBT) - StrToFloat(CPKK) - StrToFloat(KQKK) - StrToFloat(SheBaoGR));
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
// YFHZMoney := FloatToStr(StrToFloat(BasePay) + StrToFloat(CXBT) + StrToFloat(BDBT) + StrToFloat(QTBT) + StrToFloat(QQJ) - StrToFloat(CPKK));
|
|||
|
|
with ADOTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select YFHZMoney=ROUND(:YFHZMoney,0)');
|
|||
|
|
Parameters.ParamByName('YFHZMoney').Value := YFHZMoney;
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
YFHZMoney := Trim(ADOTemp.fieldbyname('YFHZMoney').AsString);
|
|||
|
|
with Order_Sub do
|
|||
|
|
begin
|
|||
|
|
Edit;
|
|||
|
|
FieldByName('BasePay').Value := BasePay;
|
|||
|
|
FieldByName('YFHZMoney').Value := YFHZMoney;
|
|||
|
|
FieldByName('JiXiao').Value := JiXiao;
|
|||
|
|
// FieldByName('JiXiao').Value := StrToFloat(MonMoney) + StrToFloat(WeiSheng) + StrToFloat(BuTie) + StrToFloat(SheBaoGS);
|
|||
|
|
if GW <> '<27>칫<EFBFBD><ECB9AB>' then
|
|||
|
|
begin
|
|||
|
|
FieldByName('JBGZ').Value := JBGZ;
|
|||
|
|
end;
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmWorkPayInPutB.ToolButton1Click(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
i: Integer;
|
|||
|
|
begin
|
|||
|
|
CopyAddRow(Tv1, Order_Sub);
|
|||
|
|
i := Order_Sub.RecordCount;
|
|||
|
|
with Order_Sub do
|
|||
|
|
begin
|
|||
|
|
Edit;
|
|||
|
|
FieldByName('XHInt').Value := i;
|
|||
|
|
FieldByName('Worker').Value := null;
|
|||
|
|
FieldByName('XiuJia').Value := null;
|
|||
|
|
FieldByName('QingJia').Value := null;
|
|||
|
|
FieldByName('DayQty').Value := null;
|
|||
|
|
FieldByName('BuTie2').Value := null;
|
|||
|
|
FieldByName('BasePay').Value := null;
|
|||
|
|
FieldByName('KouKuan').Value := null;
|
|||
|
|
FieldByName('YFHZMoney').Value := null;
|
|||
|
|
FieldByName('Note').Value := null;
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmWorkPayInPutB.ToolButton2Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if Order_Sub.IsEmpty then
|
|||
|
|
Exit;
|
|||
|
|
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
|
|||
|
|
Exit;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('delete Worker_Pay where WPID=''' + Trim(Order_Sub.fieldbyname('WPID').AsString) + '''');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
Order_Sub.Delete;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmWorkPayInPutB.FormClose(Sender: TObject; var Action: TCloseAction);
|
|||
|
|
begin
|
|||
|
|
WriteCxGrid('Ա<><D4B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>', Tv1, '<27><><EFBFBD><EFBFBD>');
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end.
|
|||
|
|
|