📄 acr510_02.pas.svn-base
字号:
wwDBGrid1.ColumnByName('FItemID').DisplayLabel :=GetDBString('Acr51002036'); // 产品编号
wwDBGrid1.ColumnByName('FItemName').DisplayLabel:=GetDBString('Acr51002037'); // 产品名称
wwDBGrid1.ColumnByName('FItemSpec').DisplayLabel:=GetDBString('Acr51002038'); // 规格型号
wwDBGrid1.ColumnByName('FUnitName').DisplayLabel:=GetDBString('Acr51002039'); // 单位名称
wwDBGrid1.ColumnByName('FOrderQty').DisplayLabel:=GetDBString('Acr51002040'); // 销售数量
wwDBGrid1.ColumnByName('FOrderPrice').DisplayLabel:=GetDBString('Acr51002041'); // 销售单价
wwDBGrid1.ColumnByName('FOrderAmount').DisplayLabel:=GetDBString('Acr51002042'); // 销售金额
wwDBGrid1.ColumnByName('FDisAmt').DisplayLabel:=GetDBString('Acr51002043'); // 销售折扣
wwDBGrid1.ColumnByName('FQty') .DisplayLabel:=GetDBString('Acr51002044'); // 发票数量
wwDBGrid1.ColumnByName('FPrice').DisplayLabel:=GetDBString('Acr51002045'); // 发票单价
wwDBGrid1.ColumnByName('FAmount').DisplayLabel:=GetDBString('Acr51002046'); // 发票金额
wwDBGrid1.ColumnByName('FTaxRate').DisplayLabel:=GetDBString('Acr51002047'); // 发票税率
wwDBGrid1.ColumnByName('FTaxAmt').DisplayLabel:=GetDBString('Acr51002048'); // 发票税额
wwDBGrid1.ColumnByName('FAcrAmt').DisplayLabel:=GetDBString('Acr51002049'); // 应收金额
wwDBGrid1.ColumnByName('FRemark').DisplayLabel:=GetDBString('Acr51002050'); // 备注说明
gbCust.Caption:=GetDBString('Acr51002051'); // 销售定单
lblCust.Caption:=GetDBString('Acr51002052'); // 客户编号
lblAddress.Caption:=GetDBString('Acr51002053'); // 客户地址
lblPhone.Caption:=GetDBString('Acr51002054'); // 电话号码
lblFax.Caption:=GetDBString('Acr51002055'); // 传真号码
qryHrm150H150_002.DisplayLabel:=GetDBString('Acr51002056'); // 员工编号
qryHrm150H150_003.DisplayLabel:=GetDBString('Acr51002057'); // 员工姓名
qryAcr510BA510B_001.DisplayLabel:=GetDBString('Acr51002058'); // 发票编号
qryAcr510BA510B_002.DisplayLabel:=GetDBString('Acr51002059'); // 发票行号
qryAcr510BA510B_003.DisplayLabel:=GetDBString('Acr51002060'); // 销售单号
qryAcr510BA510B_004.DisplayLabel:=GetDBString('Acr51002061'); // 销售单行
qryAcr510BA510B_005.DisplayLabel:=GetDBString('Acr51002062'); // 发票数量
qryAcr510BA510B_006.DisplayLabel:=GetDBString('Acr51002063'); // 发票单价
qryAcr510BA510B_007.DisplayLabel:=GetDBString('Acr51002064'); // 发票金额
qryAcr510BA510B_008.DisplayLabel:=GetDBString('Acr51002065'); // 发票税率
qryAcr510BA510B_009.DisplayLabel:=GetDBString('Acr51002066'); // 发票税额
qryAcr510BA510B_010.DisplayLabel:=GetDBString('Acr51002067'); // 应收金额
qryAcr510BA510B_011.DisplayLabel:=GetDBString('Acr51002068'); // 备注说明
qryAcr510BO510B_002.DisplayLabel:=GetDBString('Acr51002069'); // 定单行号
qryAcr510BO510B_003.DisplayLabel:=GetDBString('Acr51002070'); // 产品编号
qryAcr510BO510B_004.DisplayLabel:=GetDBString('Acr51002071'); // 计量单位
qryAcr510BFOrderQty.DisplayLabel:=GetDBString('Acr51002072'); // 销售数量
qryAcr510BFOrderPrice.DisplayLabel:=GetDBString('Acr51002073'); // 销售单价
qryAcr510BFOrderAmount.DisplayLabel:=GetDBString('Acr51002074'); // 销售总额
qryAcr510BO510B_024.DisplayLabel:=GetDBString('Acr51002075'); // 发票金额
qryAcr510BFDisAmt.DisplayLabel:=GetDBString('Acr51002076'); // 折扣金额
qryAcr510BI150_002.DisplayLabel:=GetDBString('Acr51002077'); // I150_002
qryAcr510BI150_003.DisplayLabel:=GetDBString('Acr51002078'); // I150_003
qryAcr510BI150_004.DisplayLabel:=GetDBString('Acr51002079'); // I150_004
qryAcr510BI150_008.DisplayLabel:=GetDBString('Acr51002080'); // I150_008
qryAcr510BI140_002.DisplayLabel:=GetDBString('Acr51002081'); // I140_002
qryAcr510BI140_003.DisplayLabel:=GetDBString('Acr51002082'); // I140_003
qryItemsI150_002.DisplayLabel:=GetDBString('Acr51002083'); // 产品编号
qryItemsI150_003.DisplayLabel:=GetDBString('Acr51002084'); // 产品名称
qryItemsI150_004.DisplayLabel:=GetDBString('Acr51002085'); // 规格型号
qryItemsI140_002.DisplayLabel:=GetDBString('Acr51002086'); // 单位编号
qryItemsI140_003.DisplayLabel:=GetDBString('Acr51002087'); // 单位名称
qryInv150I150_001.DisplayLabel:=GetDBString('Acr51002088'); // I150_001
qryInv150I150_002.DisplayLabel:=GetDBString('Acr51002089'); // I150_002
qryInv150I150_003.DisplayLabel:=GetDBString('Acr51002090'); // I150_003
qryInv150I150_004.DisplayLabel:=GetDBString('Acr51002091'); // I150_004
qryInv150I150_005.DisplayLabel:=GetDBString('Acr51002092'); // I150_005
qryInv150I150_006.DisplayLabel:=GetDBString('Acr51002093'); // I150_006
qryInv150I150_007.DisplayLabel:=GetDBString('Acr51002094'); // I150_007
qryInv150I150_008.DisplayLabel:=GetDBString('Acr51002095'); // I150_008
qryInv150I150_009.DisplayLabel:=GetDBString('Acr51002096'); // I150_009
qryInv150I150_010.DisplayLabel:=GetDBString('Acr51002097'); // I150_010
qryInv150I150_011.DisplayLabel:=GetDBString('Acr51002098'); // I150_011
qryInv150I150_012.DisplayLabel:=GetDBString('Acr51002099'); // I150_012
qryInv150I150_013.DisplayLabel:=GetDBString('Acr51002100'); // I150_013
qryInv150I150_014.DisplayLabel:=GetDBString('Acr51002101'); // I150_014
qryInv150I150_015.DisplayLabel:=GetDBString('Acr51002102'); // I150_015
qryInv150I150_016.DisplayLabel:=GetDBString('Acr51002103'); // I150_016
qryInv150I150_017.DisplayLabel:=GetDBString('Acr51002104'); // I150_017
qryInv150I150_018.DisplayLabel:=GetDBString('Acr51002105'); // I150_018
qryInv150I150_019.DisplayLabel:=GetDBString('Acr51002106'); // I150_019
qryInv150I150_020.DisplayLabel:=GetDBString('Acr51002107'); // I150_020
qryInv150I150_021.DisplayLabel:=GetDBString('Acr51002108'); // I150_021
qryInv150I150_022.DisplayLabel:=GetDBString('Acr51002109'); // I150_022
qryInv150I150_023.DisplayLabel:=GetDBString('Acr51002110'); // I150_023
qryInv150I150_024.DisplayLabel:=GetDBString('Acr51002111'); // I150_024
qryInv150I150_025.DisplayLabel:=GetDBString('Acr51002112'); // I150_025
qryInv150I150_026.DisplayLabel:=GetDBString('Acr51002113'); // I150_026
qryInv150I150_027.DisplayLabel:=GetDBString('Acr51002114'); // I150_027
qryInv150I150_028.DisplayLabel:=GetDBString('Acr51002115'); // I150_028
qryInv150I150_029.DisplayLabel:=GetDBString('Acr51002116'); // I150_029
qryInv150I150_030.DisplayLabel:=GetDBString('Acr51002117'); // I150_030
qryInv150I150_031.DisplayLabel:=GetDBString('Acr51002118'); // I150_031
qryInv150I150_032.DisplayLabel:=GetDBString('Acr51002119'); // I150_032
qryInv150I150_033.DisplayLabel:=GetDBString('Acr51002120'); // I150_033
qryInv150I150_034.DisplayLabel:=GetDBString('Acr51002121'); // I150_034
qryInv150I150_035.DisplayLabel:=GetDBString('Acr51002122'); // I150_035
qryInv150I150_036.DisplayLabel:=GetDBString('Acr51002123'); // I150_036
qryInv150I150_037.DisplayLabel:=GetDBString('Acr51002124'); // I150_037
qryInv150I150_038.DisplayLabel:=GetDBString('Acr51002125'); // I150_038
qryInv150I150_039.DisplayLabel:=GetDBString('Acr51002126'); // I150_039
qryInv150I150_040.DisplayLabel:=GetDBString('Acr51002127'); // I150_040
qryInv150I150_041.DisplayLabel:=GetDBString('Acr51002128'); // I150_041
qryInv150I150_042.DisplayLabel:=GetDBString('Acr51002129'); // I150_042
qryInv150I150_043.DisplayLabel:=GetDBString('Acr51002130'); // I150_043
qryInv150I150_044.DisplayLabel:=GetDBString('Acr51002131'); // I150_044
qryInv150I150_045.DisplayLabel:=GetDBString('Acr51002132'); // I150_045
qryInv150I150_046.DisplayLabel:=GetDBString('Acr51002133'); // I150_046
qryInv150I150_047.DisplayLabel:=GetDBString('Acr51002134'); // I150_047
qryInv150I150_048.DisplayLabel:=GetDBString('Acr51002135'); // I150_048
qryInv150I150_049.DisplayLabel:=GetDBString('Acr51002136'); // I150_049
qryInv150I150_050.DisplayLabel:=GetDBString('Acr51002137'); // I150_050
qryInv150I150_051.DisplayLabel:=GetDBString('Acr51002138'); // I150_051
qryInv150I150_052.DisplayLabel:=GetDBString('Acr51002139'); // I150_052
qryInv150I150_053.DisplayLabel:=GetDBString('Acr51002140'); // I150_053
qryInv140I140_001.DisplayLabel:=GetDBString('Acr51002141'); // I140_001
qryInv140I140_002.DisplayLabel:=GetDBString('Acr51002142'); // I140_002
qryInv140I140_003.DisplayLabel:=GetDBString('Acr51002143'); // I140_003
qryInv140I140_004.DisplayLabel:=GetDBString('Acr51002144'); // I140_004
qryOrd150O150_002.DisplayLabel:=GetDBString('Acr51002145'); // 客户编号
qryOrd150O150_003.DisplayLabel:=GetDBString('Acr51002146'); // 客户名称
qryOrd150O150_004.DisplayLabel:=GetDBString('Acr51002147'); // 客户简称
qryOrd150O150_005.DisplayLabel:=GetDBString('Acr51002148'); // 电话号码
qryOrd150O150_006.DisplayLabel:=GetDBString('Acr51002149'); // 传真号码
qryOrd150O150_007.DisplayLabel:=GetDBString('Acr51002150'); // 电子邮件
qryOrd150O150_008.DisplayLabel:=GetDBString('Acr51002151'); // 公司网址
qryOrd150O150_012.DisplayLabel:=GetDBString('Acr51002152'); // 通讯地址
Caption:=GetDBString('ACR51002001'); //销售发票维护
AStatus[0]:=GetDBString('ACP51002152'); //新建
AStatus[1]:=GetDBString('ACP51002153'); //作废
AStatus[2]:=GetDBString('ACP51002154'); //收款
AStatus[3]:=GetDBString('ACP51002155'); //完成
//币别名称
cbCurr.Clear;
qryGld100.Close;
qryGld100.Open;
while not qryGld100.Eof do
begin
cbCurr.Items.Add(qryGld100.FieldByName('G100_003').AsString);
qryGld100.Next;
end;
qryGld100.First;
cbCurr.ItemIndex:=5;
AWay[0]:=GetDBString('Acr51001028'); //按销售定单
AWay[1]:=GetDBString('Acr51001029'); //按任务工单
cbstyle.Items.Clear;
cbstyle.Items.Add(AWay[0]);
cbstyle.Items.Add(AWay[1]);
cbstyle.ItemIndex:=0;
//发票类型(0=采购发票，1=采购退货)
AAcrType[0]:=GetDBString('Acr51001022'); //采购发票
AAcrType[1]:=GetDBString('Acr51001023'); //采购退货
cbFrom.Items.Clear;
cbFrom.Items.Add(AAcrType[0]);
cbFrom.Items.Add(AAcrType[1]);
cbFrom.ItemIndex:=0;
AType:='ACR510A';
adsAcr510B.Close;
adsAcr510B.CreateDataSet;
SetDBGridA;
end;
procedure TAcr510_02Form.FormCreate(Sender: TObject);
begin
inherited;
//打开数据集
ATableName:='ACR510A';
AFieldName:='A510A_001';
qryHrm150.Open;
qryGld100.Open;
qryOrd150.Open;
qryInv140.Open;
qryInv150.Open;
qryAcr510B.Open;
adsAcr510B.Close;
adsAcr510B.CreateDataSet;
qryItems.Open;
AKeyEvent:=OnKeyDown;
end;
procedure TAcr510_02Form.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
inherited;
//退出窗口
end;
procedure TAcr510_02Form.DeleteEvent;
var
ACode:String;
AAccountInfo:TAccountInfo;
begin
inherited;
ACode:=ADOQuery1.FieldByName('A510A_001').AsString;
if ADOQuery1.FieldByName('A510A_003').AsInteger<>0 then
begin
ShowMsg('UMS10000657'); //不能删除非新建状态的销售发票
Exit;
end;
if not (ADOQuery1A510A_003.Value in [0]) then
begin
ShowMsg('UMS10000659'); //不能删除非新增状态的销售发票
Abort;
end;
//没有确定触发条件,暂停使用
//ShowMsg('UMS10000659'); //已经收款，该销售发票不能修改
GetAccountInfo(ACode,'ACR510',AMode,AAccountInfo,ADOQuery1.FieldByName('A510A_002').value);
UpdateCSH610(0,AAccountInfo.ACustNo,AAccountInfo.ACurrNo,AAccountInfo.AInOut,0,AAccountInfo.ABillNo,1,AAccountInfo.ADate,AAccountInfo.AAmount,ACode,'','DEL');
SYSDM.qryQuery.Close;
SYSDM.qryQuery.SQL.Clear;
SYSDM.qryQuery.SQL.Add('select A510B_003 as FCode from ACR510B where A510B_001='+''''+ACode+'''');
SYSDM.qryQuery.open;
SYSDM.qryQuery.First;
adsClone.Close;
adsClone.CreateDataSet;
adsClone.Clone(SYSDM.qryQuery);
SYSDM.qryQuery.Close;
SYSDM.qryQuery.SQL.Clear;
SYSDM.qryQuery.SQL.Add('delete from ACR510B where A510B_001='+''''+ACode+'''');
SYSDM.qryQuery.ExecSQL;
DeleteTableRecord(ADOQuery1,'ACR510A','A510A_001='+''''+ACode+'''');
adsClone.First;
while not adsClone.Eof do
begin
UpdateORD510B(adsClone.FieldByName('FCode').Value,'DEL');
if AType='ACR510B' Then UpdateTAS533(adsClone.FieldByName('FCode').Value,'DEL');
adsClone.Next;
end;
end;
procedure TAcr510_02Form.GetDataInfo;
var
ACustNo,ASaleNo:integer;
ASaleID,ASaleName:string;
begin
inherited;
//取得界面信息
edtCode.Text:=ADOQuery1.FieldByName('A510A_001').AsString; //销售单号
cbFrom.ItemIndex:=ADOQuery1.FieldByName('A510A_002').AsInteger; //销售类型
edtStatus.Text:=AStatus[ADOQuery1.FieldByName('A510A_003').AsInteger]; //定单状态(0=新建，1=作废，2=收款，3=完成)
edtDate.Date:=ADOQuery1.FieldByName('A510A_004').Value; //销售日期
ASaleNo:=ADOQuery1.FieldByName('A510A_005').AsInteger; //开票人员
//开票人员
if qryHrm150.Locate('H150_001',ASaleNo,[]) then
begin
ASaleID:=qryHrm150.FieldByName('H150_002').AsString;
ASaleName:=qryHrm150.FieldByName('H150_003').AsString;
edtPerson.Text:=ASaleID; //人员编号
edtPersonName.Text:=ASaleName; //人员名称
end;
//币别信息
edtSourceNo.Text:=ADOQuery1.FieldByName('A510A_006').AsString; //原始单号
ACurrNo:=ADOQuery1.FieldByName('A510A_007').AsInteger; //币别编号
if qryGld100.Locate('G100_001',ACurrNo,[]) then
begin
cbCurr.Items.IndexOf(qryGld100.fieldByName('G100_002').AsString);
edtRate.Text:=qryGld100.fieldByName('G100_005').AsString;
end;
edtAmount.Text:= ADOQuery1.FieldByName('A510A_009').AsString; //发票金额
edtRevenue.Text:=ADOQuery1.FieldByName('A510A_010').AsString; //发票税额
edtReceive.Text:=ADOQuery1.FieldByName('A510A_011').AsString; //应收金额
memRemark.Text:=ADOQuery1.FieldByName('A510A_013').AsString; //备注说明
ACustNo:=ADOQuery1.FieldByName('A510A_012').AsInteger; //备注说明
//取得客户资料的信息
if qryOrd150.Locate('O150_001',ACustNo,[]) then
begin
GetCustPlaceInfo;
end;
cbStyle.ItemIndex:=ADOQuery1.fieldByName('A510A_018').AsInteger;
if cbStyle.ItemIndex=0 Then
AType:='ACR510A'
else
AType:='ACR510B';
//取得料品资料的信息
GetDetailData;
edtCreateDate.Text:=ADOQuery1.fieldByName('A510A_014').AsString;
edtCreateBy.Text:=ADOQuery1.fieldByName('A510A_015').AsString;
edtUpdateDate.Text:=ADOQuery1.fieldByName('A510A_016').AsString;
edtUpdateBy.Text:=ADOQuery1.fieldByName('A510A_017').AsString;
end;
procedure TAcr510_02Form.InsertEvent;
var
ADate:TDateTime;
begin
inherited;
//清空界面
ADate:=GetServerDate;
edtCode.Text:='';
edtDate.Date:=ADate;
edtStatus.Text:=AStatus[0];
edtPerson.Text:='';
edtPersonName.Text:='';
edtSourceNo.Text:='';
edtRate.Text:='1.00';
edtAmount.Text:='0.00';
edtRevenue.Text:='0.00';
edtReceive.Text:='0.00';
memRemark.Text:='';
edtCust.Text:='';
edtCustName.Text:='';
edtPhone.Text:='';
edtAddress.Text:='';
edtContact.Text:='';
edtDate.Date:=ADate;
edtCreateDate.Text:=FormatDateTime('yyyy-mm-dd hh:mm:ss',ADate);
edtCreateBy.Text:=AUserName;
edtUpdateDate.Text:=FormatDateTime('yyyy-mm-dd hh:mm:ss',ADate);
edtUpdateBy.Text:=AUserName;
adsAcr510B.Close;
adsAcr510B.CreateDataSet;
SetDBGridA;
end;
procedure TAcr510_02Form.ReportGetValue(const ParName: String;
var ParValue: Variant);
begin
inherited;
end;
procedure TAcr510_02Form.SetEmptyInit;
begin
inherited;
edtCode.Text:='';
edtDate.Date:=GetServerDate;
edtStatus.Text:=AStatus[0];
edtPerson.Text:='';
edtPersonName.Text:='';
edtSourceNo.Text:='';
edtRate.Text:='1.00';
edtAmount.Text:='0.00';
edtRevenue.Text:='0.00';
edtReceive.Text:='0.00';
memRemark.Text:='';
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -