炼钢厂入库单

原创 2004年09月19日 12:17:00

Sub Pu1rk_write()
  Dim myCn As New ADODB.Connection
  Dim myrs As New ADODB.Recordset
  Dim strcon As String
 
  'ADO数据库连接串
  strcon = "PROVIDER=SQLOLEDB;SERVER=172.16.2.2;UID=sa;PWD=tpcims;DATABASE=Movex12" 'DL580-1
  On Error GoTo Error:
  myCn.ConnectionString = strcon
 
  '设置超时时间,为0时表示,将一直等待到命令执行完毕
  myCn.CommandTimeout = 0
 
  myCn.Open
  myrs.ActiveConnection = myCn
 
  '打开存储过程,参数为I3单元格内容
  mystr = "execute  pu1rk_zhangzs  '" + Range("I6") + "'"
 ' mystr = "select top 1 * from mittra  "
 ' MsgBox (mystr)
  myrs.Open mystr '为 Recordset 赋值
 
  '如果没有查出记录
  If myrs.EOF Then
   MsgBox "质检站还没判定/您还没有入库操作!", vbOKOnly, "错误"
   Range("I6").Value = ""
   Exit Sub
  End If
 
 '为工作表解除保护
 'Worksheets("精整入库").Unprotect Password:="zhangzs"
 
 '插入所查询的数据
 Range("B6") = "库别:" + Trim(myrs!库位)
 Range("F6") = Trim(myrs!物料号)
 Range("C17") = Trim(myrs!交易日期)
 Range("B9") = Trim(myrs!炉号)
 Range("D9") = Trim(myrs!钢种)
 Range("F9") = Trim(myrs!铸坯外径)
 Range("H9") = Trim(myrs!定尺长度) + "m"
 
 If Trim(Trim(myrs!备注)) = "," Then
   Range("B15") = "备注: "
 Else
   Range("B15") = "备注: " + Trim(myrs!备注)
 End If
 
 n = 2 '初始变量
 m = 11
 Do While Not myrs.EOF
 Cells(11, n) = Trim(myrs!倍尺数)
 Cells(m + 1, n) = "支数"
 Cells(m + 1, n + 1) = "重量(t)"
 Cells(m + 2, n) = Trim(myrs!实际支数)
 Cells(m + 2, n + 1) = Trim(myrs!重量)
 myrs.MoveNext
 n = n + 2
 Loop
 'Worksheets("精整入库").Protect Password:="zhangzs", DrawingObjects:=True, contents:=True, Scenarios:=True
 
  '总重量,总支数
  Range("J9") = Range("B13") + Range("D13") + Range("F13") + Range("H13") + Range("J13") + Range("L13")
  Range("L9") = Range("C13") + Range("E13") + Range("G13") + Range("I13") + Range("K13") + Range("M13")
  '关闭连接
  myrs.Close
  myCn.Close
  Exit Sub
 
 '出现错误执行以下代码
Error:
  MsgBox Err.Description, vbOKOnly, "Error Message"
End Sub
Sub pu1rk_clear()
 '取消工作表保护
 Worksheets("精整入库").Unprotect Password:="zhangzs"
 '清除部分单元格内容
 Range("B6") = "库别:"
 Range("F6") = ""
 Range("C17") = ""
 Range("B9") = ""
 Range("D9") = ""
 Range("F9") = ""
 Range("H9") = ""
 Range("C16") = ""
 Range("B11") = ""
 Range("D11") = ""
 Range("F11") = ""
 Range("H11") = ""
 Range("J11") = ""
 Range("L11") = ""
 Range("B15") = "备注:"
 
 '清空总支数,总重量
  Range("J9") = ""
  Range("L9") = ""
 For i = 2 To 13
    For j = 12 To 13
     Cells(j, i) = ""
    Next j
 Next i
 '为工作表加保护
 'Worksheets("精整入库").Protect Password:="zhangzs", DrawingObjects:=True, contents:=True, Scenarios:=True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column = 9 And Target.Row = 6 Then
   Call pu1rk_clear
   If Range("I6") <> "" Then
     Call Pu1rk_write
   End If
 End If
End Sub

--图片:

客户退货入库单

退货入库的类别有:良品入库(标识编码为:1,名称为:DepotNow)                                   不良品入库(标识编码为:0,名称为:DepotBad)其中良...
  • fxywolf
  • fxywolf
  • 2005年08月08日 14:14
  • 1305

基于jquery-easyui的仓库管理系统

使用jQuery EasyUI创建的仓库管理系统包括系统管理、数据维护、业务单据管理等,有兴趣可以对其进行修改扩展。   数据库采用MYSQL, 帐号/密码:root/root,演示登录帐号/密码...
  • qq1162195421
  • qq1162195421
  • 2013年08月19日 17:28
  • 7552

委外订单--采购入库单不能记账

对应的订单没有材料费: RdRecords----iMaterialFee(材料费) 将材料费补录进去,可以正常记账! 委外订单记账需满足下面两个条件: 1、已核销; 2、对应...
  • u011473665
  • u011473665
  • 2013年11月29日 14:45
  • 3030

仓储系统之入库、出库理解浅谈

入库: 相关表
  • u012041936
  • u012041936
  • 2014年10月18日 16:49
  • 2877

SAP标准工单入库时产生成本差异-求解进行时

A.系统环境:  1.标准成本法(所有物料)  2.SAP标准生产订单  3.工单设定:    产品标准成本:2601.37    价格单位:100    工单计划入库数量:401  ...
  • zhongguomao
  • zhongguomao
  • 2015年04月07日 09:53
  • 2081

WIP 完工入库单

模块: WIP 相关表:inv.mtl_material_transactions 物料事务处理表 (transaction_source_id 与 we.wip_entity_id 连接) ...
  • rfb0204421
  • rfb0204421
  • 2012年08月10日 11:15
  • 882

代管挂账业务,没有做代管挂账确认单是否可以暂估入账

问题现象:在用友U8V12.0erp软件供应链管理的采购管理模块中代管挂账业务,没有做代管挂账确认单是否可以暂估入账?代管挂账确认单是否可以自动生成? 原因分析:代管挂账确认单相当于普通采购的采...
  • jin367411763
  • jin367411763
  • 2017年05月06日 08:32
  • 633

用友ERP T6技术解析(五)产成品入库

2.3.2 产成品入库 介绍:产成品入库这个模块,是自己公司对自己生产的产品进行入库。主界面(2.3.2图1) 功能:【全部导出】将当前页的全部单据导出到Excel文档。【部分导出】将当前页选择的单据...
  • zsm136767349700
  • zsm136767349700
  • 2015年06月03日 19:26
  • 1474

TIPTOP——TIPTOP拆件式工单简介

拆件式工单简介 拆件式工单定义 1.拆件式工单定义:   将成品拆件还原为多项原料 2.举例: 有个成品料号为A,由半成品B和C组成。 成品A质量不良,被厂家退货,入到公司不良品仓...
  • fmx121586
  • fmx121586
  • 2012年09月15日 09:02
  • 3976

Delphi中用FastReport制作报表

====================================================== 注:本文源代码点此下载 =============================...
  • javazhuanzai
  • javazhuanzai
  • 2012年01月15日 02:15
  • 253
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:炼钢厂入库单
举报原因:
原因补充:

(最多只允许输入30个字)