U8编程-U8单据 最大ID 和 单号 取法
rd单头ID'SELECT ''1''+RIGHT(''000000000''+CAST(DH.iFatherId+1 as varchar(9)),9) ID FROM UFSystem..ua_identity DH '#13#10+
'left join (select distinct cAcc_Id FROM UFSystem..UA_AccountDatabase where cDatabase='''+MainForm.DataBase+''' ) DA on 1=1 '#13#10+
'where DH.cAcc_Id=DA.cAcc_Id AND DH.cVouchType=''rd'' ';
rd单身
ID'SELECT ''1''+RIGHT(''000000000''+CAST(DH.iChildId+1 as varchar(9)),9) SIDFROM UFSystem..ua_identity DH '#13#10+
'left join (select distinct cAcc_Id FROM UFSystem..UA_AccountDatabase where cDatabase='''+MainForm.DataBase+''' ) DA on 1=1 '#13#10+
'where DH.cAcc_Id=DA.cAcc_Id AND DH.cVouchType=''rd'' ';
--ID调用完更新
'UPDATE UFSystem..ua_identity SET iFatherId=iFatherId+1 FROM UFSystem..ua_identity DH '#13#10+
'left join (select distinct cAcc_Id FROM UFSystem..UA_AccountDatabase where cDatabase='''+MainForm.DataBase+''' ) DA on 1=1 '#13#10+
'where DH.cAcc_Id=DA.cAcc_Id AND DH.cVouchType=''rd'''#13#10+
'UPDATE UFSystem..ua_identity SET iChildId=iChildId+1 FROM UFSystem..ua_identity DH '#13#10+
'left join (select distinct cAcc_Id FROM UFSystem..UA_AccountDatabase where cDatabase='''+MainForm.DataBase+''' ) DA on 1=1 '#13#10+
'where DH.cAcc_Id=DA.cAcc_Id AND DH.cVouchType=''rd'' '#13#10+
------
'update $$PU_ArrivalVouchsset fValidInQuan=ISNULL(fValidInQuan,0)+'+m_SubJsonObj.GetValue('NUM').Value+',fValidInNum=ISNULL(fValidInNum,0)+'+m_SubJsonObj.GetValue('NUM').Value+',fRealQuantity=isnull(fRealQuantity,0)+'+m_SubJsonObj.GetValue('NUM').Value+',fValidQuantity=isnull(fValidQuantity,0)+'+m_SubJsonObj.GetValue('NUM').Value+',fValidNum=isnull(fValidNum,0)+'+m_SubJsonObj.GetValue('NUM').Value+',fRealNum=isnull(fRealNum,0)+'+m_SubJsonObj.GetValue('NUM').Value+' WhereAutoid='''+m_SubJsonObj.GetValue('ID').Value+''' '#13#10+//更新到货单
'UPDATE $$CurrentStock SET iQuantity=isnull(iQuantity,0)+'+m_SubJsonObj.GetValue('NUM').Value+' WHEREcWhCode='''+m_SubJsonObj.GetValue('INVLCT').Value+''' andcInvCode='''+m_SubJsonObj.GetValue('MTR').Value+'''andcBatch='''+m_SubJsonObj.GetValue('BTH').Value+''' '#13#10+//库存量更新
'UPDATE $$PO_PODetails SET fPoValidQuantity=ISNULL(fPoValidQuantity,0)+'+m_SubJsonObj.GetValue('NUM').Value+',fPoValidNum=ISNULL(fPoValidNum,0)+'+m_SubJsonObj.GetValue('NUM').Value+',freceivedqty=ISNULL(freceivedqty,0)+'+m_SubJsonObj.GetValue('NUM').Value+',freceivednum=ISNULL(freceivednum,0)+'+m_SubJsonObj.GetValue('NUM').Value+' from $$PO_PODetails a left join $$PU_ArrivalVouchs b onb.iPOsID=a.IDwhere b.Autoid='''+m_SubJsonObj.GetValue('ID').Value+''' '#13#10+//更新采购单
'UPDATE UFSystem..ua_identity SET iFatherId=iFatherId+1 FROM UFSystem..ua_identity DH '#13#10+//更新单头单号
'left join (select distinct cAcc_Id FROM UFSystem..UA_AccountDatabase where cDatabase='''+MainForm.DataBase+''' ) DA on 1=1 '#13#10+
'where DH.cAcc_Id=DA.cAcc_Id AND DH.cVouchType=''rd'''#13#10+
'UPDATE UFSystem..ua_identity SET iChildId=iChildId+1 FROM UFSystem..ua_identity DH '#13#10+ //更新单身单号
'left join (select distinct cAcc_Id FROM UFSystem..UA_AccountDatabase where cDatabase='''+MainForm.DataBase+''' ) DA on 1=1 '#13#10+
'where DH.cAcc_Id=DA.cAcc_Id AND DH.cVouchType=''rd'' ';
单号
Select * From VoucherNumber Where CardNumber='26' -- 单据规则设置表
Select * from VoucherPrefabricateview Where CardNumber='26' -- 可用类型前缀表
Select cValue from AccInformation Where cSysID='AA' and cName='cID' -- 帐套参数表
Select cCode,* from Vouchercontrapose Where cContent='PurchaseType' and cSeed='10' -- 单据前缀对照表
Select CODINGRULE,* from GradeDef Where KEYWORD='Department' -- 编码规则表
Select cCode from Vouchercontrapose Where cContent='Department' and cSeed='1002' -- 单据前缀对照表
select cNumber as Maxnumber From VoucherHistorywith (NOLOCK) WhereCardNumber='26' and cContent='远程号|采购类型' and cSeed='00CG' -- 单据流水号历史表
'SELECT RIGHT(''0000000000''+CAST(cNumber+1 as varchar(10)),10) CCODE FROM $$VoucherHistory whereCardNumber=''0412''
0305-形态转换
0302-其他出库？
0301-其他入库
MO21-生产订单
0411-产成品入库？
0304-调拨单？
24-采购入库单？
0412-材料出库-生产领料？
0303 -销售出库？
页:
[1]