组织机构设计46568.docx
一、 组织机构设计二、配备： 部门人数沙发茶几书架文件架办公桌办公椅保险柜椅子会议桌椅资料室书柜柜领用人院长111111112cao副院长11102111111112cao副院长11103111111112cao党总支书记记111111112liao团总支4144418liao学办14144418duan学办24144418duan学办34144418duan学办44144418duan教务处144418zhangg会议室1套wang资料室10shao总量44102828281056110三、采购预预算（单位位：元）沙发茶几书架文件架办公桌办公椅保险柜椅子会议桌椅资料室书柜柜单价12660010003900126585501300150288500650数量44102828281056110总计506400400039000033618424415400013000084002885006500预算合计：1845550元四、采购调调查（见入入库单.xxls）五、采购方方式：招标标采购六、（1）入入库账务处处理-填写入入库单 -修改总账账追加流水账账实现入库库代码：Form11.iniitthisfform.setaall(""valuue",""" ,""texttbox"")thisfform.textt4.vaalue=0thisfform.textt5.vaalue=0commaand1.clicckselecct 入库库单1appennd bllankrepl 仪器名称称 witth thhisfoorm.ttext11.valluerepl 使用单位位号 wiith tthisfform.textt2.vaaluerepl 仪器编号号 witth thhisfoorm.ttext33.valluerepl 单价 wwith thissformm.texxt4.vvalueerepl 购置时间间 witth thhisfoorm.ttext66.valluerepl 型号 wwith thissformm.texxt7.vvalueerepl 入库时间间 wiith tthisfform.textt8.vaaluerepl 供应商 withh thiisforrm.teext9.valuuemessaageboox('入入库流水记记录成功'')selecct 总账账1locatte foor alllt(仪仪器编号)=alllt(thhisfoorm.ttext33.vallue)if foound()repl 数量 wwith 数量+tthisfform.textt5.vaaluemessaageboox('有有此设备,新增数量量')else appennd bllankrepl 仪器名称称 witth thhisfoorm.ttext11.valluerepl 使用单位位号 wiith tthisfform.textt2.vaaluerepl 仪器编号号 witth thhisfoorm.ttext33.valluerepl 单价 wwith thissformm.texxt4.vvalueerepl 购置时间间 witth thhisfoorm.ttext66.valluerepl 型号 wwith thissformm.texxt7.vvalueerepl 入库时间间 wiith tthisfform.textt8.vaaluerepl 供应商 withh thiisforrm.teext9.valuueendiffcommaand2.clicckselecct 总账账1delepackselecct 入库库单1delepackcommaand3.clicckthisfform.setaall(""valuue",""" ,""texttbox"")thisfform.textt4.vaalue=0thisfform.textt5.vaalue=0commaand4.clicckthisfform.releease (2)领领用的账务务处理1、填写领领用单，修修改总账2、删除原原领用人，新新增总账记记录首先，总账账1.dbbf与领用用单建立临临时性关联联Form.inittthisfform.setaall(""valuue",""","ttextbbox")thisfform.textt4.vaalue=0thisfform.textt5.vaalue=0commaand1.clicckselecct 领用用单1copy to llyuse llydelette foor 领用用人=allltriim(thhisfoorm.ttext110.vaalue)packlistcommaand2.clicckset ddelette onnselecct 总账账1appennd bllankreplaa 领用人人 witth thhisfoorm.ttext110.vaaluereplaa 领用日日期 wiith tthisfform.textt11.vvalueereplaa 新存放放地点 wwith thissformm.texxt12.valuuerepl 仪器名称称 witth thhisfoorm.ttext11.valluerepl 使用单位位号 wiith tthisfform.textt2.vaaluerepl 仪器编号号 witth thhisfoorm.ttext33.valluerepl 单价 wwith thissformm.texxt4.vvalueerepl 购置时间间 witth thhisfoorm.ttext66.valluerepl 型号 wwith thissformm.texxt7.vvalueerepl 入库时间间 wiith tthisfform.textt8.vaaluerepl 供应商 withh thiisforrm.teext9.valuuecommaand3.clicckselecct 领用用单1appennd bllankrepl 仪器名称称 witth tthisfform.textt1.vaaluerepl 仪器编号号 witth thhisfoorm.ttext33.valluerepl 单价 wwith thissformm.texxt4.vvalueerepl 型号 wwith thissformm.texxt7.vvalueerepl 供应商 withh thiisforrm.teext9.valuuereplaa 领用人人 witth thhisfoorm.ttext110.vaaluereplaa 领用日日期 wiith tthisfform.textt11.vvalueereplaa 新存放放地点 wwith thissformm.texxt12.valuuecommaand4.clicckthisfform.releease(3)总账账数据维护护Form.inittthis.textt3.seetfoccusCommaand1.ClickkTHISFFORM.SETAALL(""VALUUE",''',"TTEXTBBOX")THISFFORM.TEXTT4.VAALUE=0THISFFORM.TEXTT5.VAALUE=0THISFFORM.COMBBO1.DDISPLLAYVAALUE=仪器编号号THISFFORM.REFRRESHTHISFFORM.COMBBO1.VVISIBBLE=.T.THISFFORM.LABEEL1.VVISIBBLE=.T.THISFFORM.TEXTT1.VAALUE=仪器名称称THISFFORM.TEXTT2.VAALUE=使用单位位号THISFFORM.TEXTT3.VAALUE=仪器编号号THISFFORM.TEXTT4.VAALUE=单价THISFFORM.TEXTT5.VAALUE=数量THISFFORM.TEXTT6.VAALUE=购置时间间THISFFORM.TEXTT7.VAALUE=型号THISFFORM.TEXTT8.VAALUE=入库时间间THISFFORM.TEXTT9. VVALUEE=供应商商THISFFORM.TEXTT10.VVALUEE=领用人人THISFFORM.TEXTT11.VVALUEE=领用日日期THISFFORM.TEXTT12.VVALUEE=新存放放地点Commaand2.clicckDELEPACKMESSAAGEBOOX("确确认当前记记录删除,此操作将将无法恢复复")Commaand3.clicckIF BBOF()GO BOOTTELSESKIP -1THISFFORM.COMBBO1.VVISIBBLE=.F.THISFFORM.LABEEL1.VVISIBBLE=.F.THISFFORM.TEXTT1.VAALUE=仪器名称称THISFFORM.TEXTT3.VAALUE=仪器编号号THISFFORM.TEXTT9.VAALUE=供应商ENDIFFCommaand4.clicckIF EEOF()GO TOOPELSETHISFFORM.COMBBO1.VVISIBBLE=.F.THISFFORM.LABEEL10.VISIIBLE=.F.SKIPTHISFFORM.TEXTT3.VAALUE=仪器编号号THISFFORM.TEXTT1.VAALUE=仪器名称称THISFFORM.TEXTT9.VAALUE=供应商ENDIFFCommaand5.ClickkThisfform.releease(4)统计计计算1、按仪器器名称分类类Form.inittthisfform.labeel3.ccaptiion=bbo1.vvaluee+"总金金额"set ttalk offbbo1.ssetfoocusindexx on allttrim(仪器名称称) too yqmmc unniqueescanbbo1.aaddittem(aalltrrim(仪仪器名称)endsccanset iindexx tocommaand1.clicckgo toopcountt to N foor allltriim(仪器器名称)=allttrim(mbo1.valuue)sum 单单价 too dj for allttrim(仪器名称称)=allltriim(thhisfoorm.ccomboo1.vaalue)thisfform.textt1.vaalue=Nthisfform.textt2.vaalue=djcommaand2.clicckthisfform.setaall(""valuue",00,"teextboox")thisfform.setaall(""valuue",''',"ccomboobox"")thisfform.labeel3.ccaptiion=""labeel3"commaand3.clicckthisfform.releease2、按购置置日期分类类Form.inittthisfform.labeel3.ccaptiion=bbo1.vvaluee+"总金金额"set ttalk offindexx on allttrim(购置时间间) too gz uniqquescanbbo1.aaddittem(aalltrrim(购购置时间)endsccanset iindexx tocommaand1.clicckgo toopcountt to N foor allltriim(购置置时间)=allttrim(mbo1.valuue)sum 单单价 too dj for allttrim(购置时间间)=allltriim(thhisfoorm.ccomboo1.vaalue)thisfform.textt1.vaalue=Nthisfform.textt2.vaalue=djcommaand2.clicckthisfform.refrreshthisfform.textt1.vaalue=''thisfform.textt2.vaalue=''thisfform.labeel3.ccaptiion=""labeel3"commaand3.clicckThisfform.releease
