U8编程-U8单据 最大ID 和 单号 取法

S3_Leo

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) SID  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'' ';
--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_ArrivalVouchs  set 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+' Where  Autoid='''+m_SubJsonObj.GetValue('ID').Value+''' '#13#10+//更新到货单
'UPDATE $$CurrentStock SET iQuantity=isnull(iQuantity,0)+'+m_SubJsonObj.GetValue('NUM').Value+' WHERE  cWhCode='''+m_SubJsonObj.GetValue('INVLCT').Value+''' and  cInvCode='''+m_SubJsonObj.GetValue('MTR').Value+'''  and  cBatch='''+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 on  b.iPOsID=a.ID  where 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 VoucherHistory  with (NOLOCK) Where  CardNumber='26' and cContent='远程号|采购类型' and cSeed='00CG'    -- 单据流水号历史表
'SELECT RIGHT(''0000000000''+CAST(cNumber+1 as varchar(10)),10) CCODE    FROM $$VoucherHistory where  CardNumber=''0412''

0305-形态转换
0302-其他出库？
0301-其他入库
MO21-生产订单
0411-产成品入库？
0304-调拨单？
24-采购入库单？
0412-材料出库-生产领料？
0303 -销售出库？