VERSION 5.00 Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX" Begin VB.Form MDIchild3 BackColor = &H0096D7EF& Caption = "Inward Local" ClientHeight = 3195 ClientLeft = 60 ClientTop = 345 ClientWidth = 4680 LinkTopic = "Form1" MDIChild = -1 'True ScaleHeight = 3195 ScaleWidth = 4680 WindowState = 2 'Maximized Begin VB.CommandButton cmdprev BackColor = &H0056BBE7& Caption = "Previous" BeginProperty Font Name = "Tahoma" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 9240 Style = 1 'Graphical TabIndex = 119 Top = 9240 Width = 1215 End Begin VB.CommandButton cmdnext BackColor = &H0056BBE7& Caption = "Next" BeginProperty Font Name = "Tahoma" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 7680 Style = 1 'Graphical TabIndex = 118 Top = 9240 Width = 1215 End Begin VB.CommandButton cmddelete BackColor = &H0056BBE7& Caption = "Delete" BeginProperty Font Name = "Tahoma" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 6240 Style = 1 'Graphical TabIndex = 117 Top = 9240 Width = 1215 End Begin VB.CommandButton cmdadd BackColor = &H0056BBE7& Caption = "Add" BeginProperty Font Name = "Tahoma" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 4800 Style = 1 'Graphical TabIndex = 116 Top = 9240 Width = 1215 End Begin VB.TextBox txtmrnl BackColor = &H00FFFFFF& BeginProperty DataFormat Type = 1 Format = "0;(0)" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 1033 SubFormatType = 1 EndProperty BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 405 Left = 9840 TabIndex = 114 Top = 1560 Width = 1695 End Begin VB.TextBox txtreceiptdate BackColor = &H00FFFFFF& BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 4200 TabIndex = 113 Top = 360 Width = 1815 End Begin VB.TextBox txtvendoradd BackColor = &H00FFFFFF& BeginProperty Font Name = "Verdana" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 975 Left = 11760 MaxLength = 100 MultiLine = -1 'True TabIndex = 30 Top = 960 Width = 2535 End Begin VB.TextBox txtinvoiceno BackColor = &H00FFFFFF& DataField = "Invoice_no" DataSource = "Adodc2" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 1635 MaxLength = 6 TabIndex = 27 Top = 960 Width = 1215 End Begin VB.TextBox txtpono BackColor = &H00FFFFFF& DataField = "Po_no" DataSource = "Adodc2" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 7080 TabIndex = 24 Top = 360 Width = 1575 End Begin VB.TextBox txtreceiptno BackColor = &H00FFFFFF& DataSource = "Adodc2" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000000& Height = 375 Left = 1635 TabIndex = 23 Top = 360 Width = 1215 End Begin VB.ComboBox cboshipday BackColor = &H00FFFFFF& DataField = "Ship_day" DataSource = "Adodc2" BeginProperty Font Name = "Verdana" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 330 ItemData = "MDIchild3- Inwardlocal.frx":0000 Left = 7200 List = "MDIchild3- Inwardlocal.frx":0019 TabIndex = 33 Top = 1560 Width = 1695 End Begin VB.TextBox txtdcno BackColor = &H00FFFFFF& DataField = "Dc_no" DataSource = "Adodc2" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 9840 TabIndex = 25 Top = 360 Width = 1455 End Begin VB.TextBox txtdcdate BackColor = &H00FFFFFF& DataField = "Dc_date" BeginProperty DataFormat Type = 1 Format = "d/MM/yy" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 3081 SubFormatType = 3 EndProperty BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 12600 TabIndex = 26 Top = 360 Width = 1695 End Begin VB.ComboBox cbouserdept BackColor = &H00FFFFFF& DataField = "User_dept" DataSource = "Adodc2" BeginProperty Font Name = "Verdana" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 330 ItemData = "MDIchild3- Inwardlocal.frx":005D Left = 4440 List = "MDIchild3- Inwardlocal.frx":0088 Sorted = -1 'True TabIndex = 28 Top = 960 Width = 1605 End Begin VB.ComboBox cbovendorname BackColor = &H00FFFFFF& DataField = "Vendor_name" DataSource = "Adodc2" BeginProperty Font Name = "Verdana" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 330 ItemData = "MDIchild3- Inwardlocal.frx":0110 Left = 7440 List = "MDIchild3- Inwardlocal.frx":10CE Sorted = -1 'True TabIndex = 29 Top = 960 Width = 2655 End Begin VB.TextBox txtshipdate BackColor = &H00FFFFFF& DataField = "Ship_date" BeginProperty DataFormat Type = 1 Format = "d/MM/yy" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 3081 SubFormatType = 3 EndProperty DataSource = "Adodc2" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 1680 TabIndex = 31 Top = 1560 Width = 1575 End Begin VB.TextBox txtshiptime BackColor = &H00FFFFFF& DataField = "Ship_time" BeginProperty DataFormat Type = 1 Format = "hh:mm:ss" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 3081 SubFormatType = 4 EndProperty DataSource = "Adodc2" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 4440 TabIndex = 32 Top = 1560 Width = 1215 End Begin VB.Frame Frame1 BackColor = &H0096D7EF& Caption = "Transport Details" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 3480 Left = 600 TabIndex = 17 Top = 5640 Width = 3735 Begin VB.TextBox cbocarrname BackColor = &H00FFFFFF& BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 1560 MaxLength = 100 TabIndex = 53 Top = 360 Width = 1935 End Begin VB.TextBox txtvehicleno BackColor = &H00FFFFFF& BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 1560 TabIndex = 55 Top = 1560 Width = 1935 End Begin VB.TextBox txtlrno BackColor = &H00FFFFFF& DataField = "LR_no" BeginProperty DataFormat Type = 1 Format = "0;(0)" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 3081 SubFormatType = 1 EndProperty DataSource = "Adodc2" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 1560 TabIndex = 54 Top = 960 Width = 1935 End Begin VB.CheckBox chklbr BackColor = &H00000000& Caption = "Check5" DataSource = "Adodc2" BeginProperty Font Name = "Tahoma" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00004000& Height = 255 Left = 1920 TabIndex = 56 Top = 2280 Width = 255 End Begin VB.TextBox txtnolbr BackColor = &H00FFFFFF& DataField = "Tot_lbrs" BeginProperty DataFormat Type = 1 Format = "0;(0)" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 3081 SubFormatType = 1 EndProperty DataSource = "Adodc2" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 2520 TabIndex = 57 Top = 2160 Width = 975 End Begin VB.CheckBox chkclbr BackColor = &H00000000& Caption = "Check6" BeginProperty Font Name = "Tahoma" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00004000& Height = 255 Left = 1935 TabIndex = 58 Top = 2880 Width = 255 End Begin VB.TextBox txtcomlbr BackColor = &H00FFFFFF& DataField = "Cmn_lbrs" BeginProperty DataFormat Type = 1 Format = "0;(0)" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 3081 SubFormatType = 1 EndProperty DataSource = "Adodc2" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 2520 TabIndex = 59 Top = 2760 Width = 975 End Begin VB.Label label1 BackColor = &H0096D7EF& Caption = "Carrier / Courier Name" BeginProperty Font Name = "Tahoma" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 495 Index = 28 Left = 240 TabIndex = 22 Top = 300 Width = 1335 End Begin VB.Label label1 BackColor = &H0096D7EF& Caption = "L.R./ Docket No." BeginProperty Font Name = "Tahoma" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 450 Index = 29 Left = 240 TabIndex = 21 Top = 960 Width = 1170 End Begin VB.Label label1 AutoSize = -1 'True BackColor = &H0096D7EF& Caption = "Vehicle No." BeginProperty Font Name = "Tahoma" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 210 Index = 30 Left = 240 TabIndex = 20 Top = 1680 Width = 990 End Begin VB.Label label1 AutoSize = -1 'True BackColor = &H0096D7EF& Caption = "No. Of Labours " BeginProperty Font Name = "Tahoma" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 210 Index = 31 Left = 240 TabIndex = 19 Top = 2280 Width = 1425 End Begin VB.Label label1 AutoSize = -1 'True BackColor = &H0096D7EF& Caption = "Common Labours" BeginProperty Font Name = "Tahoma" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 210 Index = 32 Left = 240 TabIndex = 18 Top = 2880 Width = 1605 End End Begin VB.Frame Frame2 BackColor = &H0096D7EF& Caption = "Material Details" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 3480 Left = 4440 TabIndex = 6 Top = 5640 Width = 5295 Begin VB.TextBox txtnopkgs BackColor = &H00FFFFFF& DataField = "Tot_pkgs" BeginProperty DataFormat Type = 1 Format = "0;(0)" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 1033 SubFormatType = 1 EndProperty DataSource = "Adodc2" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 1600 TabIndex = 60 Top = 360 Width = 1000 End Begin VB.TextBox txtqtychallan BackColor = &H00FFFFFF& BeginProperty DataFormat Type = 1 Format = "0;(0)" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 1033 SubFormatType = 1 EndProperty BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 1600 TabIndex = 61 Top = 990 Width = 1000 End Begin VB.TextBox txtwtmaterial BackColor = &H00FFFFFF& BeginProperty DataFormat Type = 1 Format = "#,##0.00;(#,##0.00)" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 1033 SubFormatType = 1 EndProperty BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 1600 TabIndex = 63 Top = 2280 Width = 1000 End Begin VB.TextBox txttotamnt BackColor = &H00FFFFFF& BeginProperty DataFormat Type = 1 Format = "#,##0.00;(#,##0.00)" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 1033 SubFormatType = 1 EndProperty BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 1600 TabIndex = 64 Top = 2880 Width = 1000 End Begin VB.TextBox txtaccqty BackColor = &H00FFFFFF& BeginProperty DataFormat Type = 1 Format = "0;(0)" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 1033 SubFormatType = 1 EndProperty BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 1600 TabIndex = 62 Top = 1680 Width = 1000 End Begin VB.CheckBox chkdamage BackColor = &H00000000& Caption = "Check1" Height = 255 Left = 3735 TabIndex = 65 Top = 480 Width = 255 End Begin VB.CheckBox chkexcess BackColor = &H00000000& Caption = "Check2" Height = 255 Left = 3735 TabIndex = 67 Top = 1080 Width = 255 End Begin VB.CheckBox chkshortage BackColor = &H00000000& Caption = "Check3" Height = 255 Left = 3735 TabIndex = 69 Top = 1800 Width = 255 End Begin VB.CheckBox chkwet BackColor = &H00000000& Caption = "Check4" Height = 255 Left = 3720 TabIndex = 71 Top = 2400 Width = 255 End Begin VB.TextBox txtdamage BackColor = &H00FFFFFF& BeginProperty DataFormat Type = 1 Format = "0;(0)" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 3081 SubFormatType = 1 EndProperty DataSource = "Adodc2" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 4335 TabIndex = 66 Top = 360 Width = 735 End Begin VB.TextBox txtexcess BackColor = &H00FFFFFF& BeginProperty DataFormat Type = 1 Format = "0;(0)" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 3081 SubFormatType = 1 EndProperty BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 4335 TabIndex = 68 Top = 990 Width = 735 End Begin VB.TextBox txtshortage BackColor = &H00FFFFFF& BeginProperty DataFormat Type = 1 Format = "0;(0)" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 3081 SubFormatType = 1 EndProperty BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 4335 TabIndex = 70 Top = 1680 Width = 735 End Begin VB.TextBox txtwet BackColor = &H00FFFFFF& BeginProperty DataFormat Type = 1 Format = "0;(0)" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 3081 SubFormatType = 1 EndProperty BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 4320 TabIndex = 72 Top = 2280 Width = 735 End Begin VB.TextBox txtremark BackColor = &H00FFFFFF& BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 3720 TabIndex = 73 Top = 2880 Width = 1335 End Begin VB.Label label1 AutoSize = -1 'True BackColor = &H0096D7EF& Caption = "No Of Pkgs." BeginProperty Font Name = "Tahoma" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 210 Index = 33 Left = 200 TabIndex = 16 Top = 480 Width = 1065 End Begin VB.Label label1 AutoSize = -1 'True BackColor = &H0096D7EF& Caption = "Qty as per Challan" BeginProperty Font Name = "Tahoma" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 420 Index = 34 Left = 200 TabIndex = 15 Top = 960 Width = 1005 WordWrap = -1 'True End Begin VB.Label label1 AutoSize = -1 'True BackColor = &H0096D7EF& Caption = "Wt. of Material" BeginProperty Font Name = "Tahoma" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 210 Index = 36 Left = 200 TabIndex = 14 Top = 2400 Width = 1380 End Begin VB.Label label1 AutoSize = -1 'True BackColor = &H0096D7EF& Caption = "Accepted Qty." BeginProperty Font Name = "Tahoma" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 210 Index = 35 Left = 200 TabIndex = 13 Top = 1800 Width = 1305 End Begin VB.Label label1 AutoSize = -1 'True BackColor = &H0096D7EF& Caption = "Damage" BeginProperty Font Name = "Tahoma" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 210 Index = 38 Left = 2820 TabIndex = 12 Top = 480 Width = 735 End Begin VB.Label label1 AutoSize = -1 'True BackColor = &H0096D7EF& Caption = "Excess" BeginProperty Font Name = "Tahoma" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 210 Index = 39 Left = 2820 TabIndex = 11 Top = 1080 Width = 585 End Begin VB.Label label1 AutoSize = -1 'True BackColor = &H0096D7EF& Caption = "Shortage" BeginProperty Font Name = "Tahoma" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 210 Index = 40 Left = 2820 TabIndex = 10 Top = 1800 Width = 855 End Begin VB.Label label1 AutoSize = -1 'True BackColor = &H0096D7EF& Caption = "Wet Qty" BeginProperty Font Name = "Tahoma" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 210 Index = 41 Left = 2820 TabIndex = 9 Top = 2400 Width = 765 End Begin VB.Label label1 AutoSize = -1 'True BackColor = &H0096D7EF& Caption = "Remark" BeginProperty Font Name = "Tahoma" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 210 Index = 42 Left = 2820 TabIndex = 8 Top = 3000 Width = 690 End Begin VB.Label label1 AutoSize = -1 'True BackColor = &H0096D7EF& Caption = "Challan Amnt" BeginProperty DataFormat Type = 1 Format = "0;(0)" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 1033 SubFormatType = 1 EndProperty BeginProperty Font Name = "Tahoma" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 210 Index = 37 Left = 195 TabIndex = 7 Top = 3000 Width = 1455 WordWrap = -1 'True End End Begin VB.Frame Frame3 BackColor = &H0096D7EF& Caption = "Other Details" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 3495 Left = 9840 TabIndex = 0 Top = 5640 Width = 4575 Begin VB.ComboBox cbosecurityby BackColor = &H00FFFFFF& BeginProperty Font Name = "Verdana" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 330 ItemData = "MDIchild3- Inwardlocal.frx":8604 Left = 1800 List = "MDIchild3- Inwardlocal.frx":8611 Sorted = -1 'True TabIndex = 78 Top = 2760 Width = 2175 End Begin VB.TextBox txtlfno BackColor = &H00FFFFFF& BeginProperty Font Name = "Tahoma" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 1800 TabIndex = 74 Top = 360 Width = 2175 End Begin VB.ComboBox cboattainby BackColor = &H00FFFFFF& BeginProperty Font Name = "Verdana" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 330 ItemData = "MDIchild3- Inwardlocal.frx":8641 Left = 1800 List = "MDIchild3- Inwardlocal.frx":865A Sorted = -1 'True TabIndex = 75 Top = 960 Width = 2175 End Begin VB.ComboBox cboverifyby BackColor = &H00FFFFFF& BeginProperty Font Name = "Verdana" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 330 ItemData = "MDIchild3- Inwardlocal.frx":86C5 Left = 1800 List = "MDIchild3- Inwardlocal.frx":86DE Sorted = -1 'True TabIndex = 76 Top = 1560 Width = 2175 End Begin VB.ComboBox cbocertifyby BackColor = &H00FFFFFF& BeginProperty Font Name = "Verdana" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 330 ItemData = "MDIchild3- Inwardlocal.frx":8749 Left = 1800 List = "MDIchild3- Inwardlocal.frx":8762 Sorted = -1 'True TabIndex = 77 Top = 2160 Width = 2175 End Begin VB.Label label1 AutoSize = -1 'True BackColor = &H0096D7EF& Caption = "Security By" BeginProperty Font Name = "Tahoma" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 210 Index = 2 Left = 240 TabIndex = 5 Top = 2880 Width = 1035 End Begin VB.Label label1 AutoSize = -1 'True BackColor = &H0096D7EF& Caption = "Leadger Folio No." BeginProperty Font Name = "Tahoma" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 420 Index = 43 Left = 240 TabIndex = 4 Top = 480 Width = 1290 WordWrap = -1 'True End Begin VB.Label label1 AutoSize = -1 'True BackColor = &H0096D7EF& Caption = "Attained By" BeginProperty Font Name = "Tahoma" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 210 Index = 44 Left = 240 TabIndex = 3 Top = 1080 Width = 1095 End Begin VB.Label label1 AutoSize = -1 'True BackColor = &H0096D7EF& Caption = "Verified By" BeginProperty Font Name = "Tahoma" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 210 Index = 45 Left = 240 TabIndex = 2 Top = 1680 Width = 975 End Begin VB.Label label1 AutoSize = -1 'True BackColor = &H0096D7EF& Caption = "Certified By" BeginProperty Font Name = "Tahoma" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 210 Index = 46 Left = 240 TabIndex = 1 Top = 2280 Width = 1065 End End Begin VB.Frame frmlocal BackColor = &H0096D7EF& Caption = "Item Description" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 3480 Left = 600 TabIndex = 79 Top = 2040 Width = 13815 Begin VB.TextBox receiptnoitem BackColor = &H0080FFFF& BeginProperty Font Name = "MS Sans Serif" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 420 Left = 1320 TabIndex = 111 Top = 280 Width = 1695 End Begin VB.CommandButton cmdlocal BackColor = &H0056BBE7& Caption = "&Add" BeginProperty Font Name = "Verdana" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Left = 10560 Picture = "MDIchild3- Inwardlocal.frx":87CD Style = 1 'Graphical TabIndex = 51 Top = 2640 Width = 1215 End Begin VB.CommandButton cmdclose BackColor = &H0056BBE7& Caption = "&Close" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Left = 12120 Picture = "MDIchild3- Inwardlocal.frx":8C54 Style = 1 'Graphical TabIndex = 52 Top = 2640 Width = 1215 End Begin VB.TextBox txtunitcost BackColor = &H00FFFFFF& DataField = "Product_code" BeginProperty DataFormat Type = 1 Format = "0;(0)" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 1033 SubFormatType = 1 EndProperty DataSource = "Adodc2(1)" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 1080 MaxLength = 20 TabIndex = 45 Top = 2160 Width = 1215 End Begin VB.TextBox txttotcost BackColor = &H00FFFFFF& DataField = "Product_srno" BeginProperty DataFormat Type = 1 Format = "0;(0)" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 1033 SubFormatType = 1 EndProperty DataSource = "Adodc2(1)" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 3360 MaxLength = 20 TabIndex = 46 Top = 2160 Width = 2055 End Begin VB.TextBox txtsrno BackColor = &H00FFFFFF& Height = 375 Left = 840 TabIndex = 34 Top = 960 Width = 495 End Begin VB.ComboBox Cboitemclass BackColor = &H00FFFFFF& DataField = "Checked_by" DataSource = "Adodc2(1)" BeginProperty Font Name = "Verdana" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 330 ItemData = "MDIchild3- Inwardlocal.frx":9158 Left = 11760 List = "MDIchild3- Inwardlocal.frx":9168 Sorted = -1 'True TabIndex = 38 Top = 960 Width = 1575 End Begin VB.ComboBox Cboitemcode BackColor = &H00FFFFFF& DataField = "Warehouse No" BeginProperty DataFormat Type = 1 Format = "0;(0)" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 3081 SubFormatType = 1 EndProperty DataSource = "Adodc2(1)" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 ItemData = "MDIchild3- Inwardlocal.frx":919D Left = 2400 List = "MDIchild3- Inwardlocal.frx":A42B Sorted = -1 'True TabIndex = 35 Top = 960 Width = 1575 End Begin VB.TextBox txtitemname BackColor = &H00FFFFFF& DataField = "Item_name" DataSource = "Adodc2(1)" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 5040 MaxLength = 30 TabIndex = 36 Top = 960 Width = 3135 End Begin VB.TextBox txtproductsrno BackColor = &H00FFFFFF& DataField = "Product_srno" BeginProperty DataFormat Type = 1 Format = "0;(0)" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 3081 SubFormatType = 1 EndProperty DataSource = "Adodc2(1)" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 4200 TabIndex = 40 Top = 1560 Width = 1455 End Begin VB.TextBox txtproductcode BackColor = &H00FFFFFF& DataField = "Product_code" DataSource = "Adodc2(1)" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 1560 TabIndex = 39 Top = 1560 Width = 1575 End Begin VB.TextBox txtpkgs BackColor = &H00FFFFFF& DataField = "Tot_pkgs" DataSource = "Adodc2(1)" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 8520 TabIndex = 42 Top = 1560 Width = 615 End Begin VB.TextBox txtqtyrecvd BackColor = &H00FFFFFF& DataField = "Tot_qty" BeginProperty DataFormat Type = 1 Format = "0;(0)" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 3081 SubFormatType = 1 EndProperty DataSource = "Adodc2(1)" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 10200 TabIndex = 43 Top = 1560 Width = 975 End Begin VB.TextBox txtcaseno BackColor = &H00FFFFFF& DataField = "Case_no" BeginProperty DataFormat Type = 1 Format = "0;(0)" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 3081 SubFormatType = 1 EndProperty DataSource = "Adodc2(1)" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 6600 TabIndex = 41 Top = 1560 Width = 735 End Begin VB.TextBox txtitemlocation BackColor = &H00FFFFFF& DataField = "Item_location" DataSource = "Adodc2(1)" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 12480 TabIndex = 44 Top = 1560 Width = 855 End Begin VB.ComboBox cborecvdby BackColor = &H00FFFFFF& DataField = "Received_by" DataSource = "Adodc2(1)" BeginProperty Font Name = "Verdana" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 330 ItemData = "MDIchild3- Inwardlocal.frx":E829 Left = 6360 List = "MDIchild3- Inwardlocal.frx":E842 Sorted = -1 'True TabIndex = 47 Top = 2160 Width = 1455 End Begin VB.ComboBox cbochkedby BackColor = &H00FFFFFF& DataField = "Checked_by" DataSource = "Adodc2(1)" BeginProperty Font Name = "Verdana" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 330 ItemData = "MDIchild3- Inwardlocal.frx":E8AD Left = 8760 List = "MDIchild3- Inwardlocal.frx":E8C6 Sorted = -1 'True TabIndex = 48 Top = 2160 Width = 1575 End Begin VB.TextBox txtremarks BackColor = &H00FFFFFF& DataField = "Remarks" DataSource = "Adodc2(1)" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 1080 TabIndex = 50 Top = 2730 Width = 4815 End Begin VB.ComboBox cboitemtype BackColor = &H00FFFFFF& DataField = "Item_type" DataSource = "Adodc2(1)" BeginProperty Font Name = "Verdana" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 330 ItemData = "MDIchild3- Inwardlocal.frx":E931 Left = 9240 List = "MDIchild3- Inwardlocal.frx":E93B Sorted = -1 'True TabIndex = 37 Top = 960 Width = 1335 End Begin VB.ComboBox cbowarehousename BackColor = &H00FFFFFF& DataField = "Warehouse_name" DataSource = "Adodc2(1)" BeginProperty Font Name = "Verdana" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 330 ItemData = "MDIchild3- Inwardlocal.frx":E94C Left = 11640 List = "MDIchild3- Inwardlocal.frx":E959 Sorted = -1 'True TabIndex = 49 Top = 2130 Width = 1695 End Begin VB.Label Label2 AutoSize = -1 'True BackColor = &H0096D7EF& Caption = "Receipt No" BeginProperty Font Name = "Tahoma" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00004000& Height = 210 Left = 240 TabIndex = 110 Top = 360 Width = 990 End Begin VB.Label lblcost AutoSize = -1 'True BackColor = &H0096D7EF& Caption = "Total Cost" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00004000& Height = 195 Left = 2400 TabIndex = 109 Top = 2280 Width = 855 End Begin VB.Label lblunitcost AutoSize = -1 'True BackColor = &H0096D7EF& Caption = "Unit Cost" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00004000& Height = 195 Left = 240 TabIndex = 108 Top = 2280 Width = 765 End Begin VB.Label label1 AutoSize = -1 'True BackColor = &H0096D7EF& Caption = "Prod Code No." BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00004000& Height = 195 Index = 10 Left = 240 TabIndex = 107 Top = 1680 Width = 1155 End Begin VB.Label label1 AutoSize = -1 'True BackColor = &H0096D7EF& Caption = "Item_code" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00004000& Height = 195 Index = 47 Left = 1440 TabIndex = 106 Top = 1080 Width = 930 End Begin VB.Label label1 AutoSize = -1 'True BackColor = &H0096D7EF& Caption = "Sr.No." BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00004000& Height = 195 Index = 14 Left = 240 TabIndex = 92 Top = 1080 Width = 480 End Begin VB.Label label1 AutoSize = -1 'True BackColor = &H0096D7EF& Caption = "Item Name" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00004000& Height = 195 Index = 15 Left = 4080 TabIndex = 91 Top = 1080 Width = 945 End Begin VB.Label label1 AutoSize = -1 'True BackColor = &H0096D7EF& Caption = "Item Type" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00004000& Height = 195 Index = 16 Left = 8280 TabIndex = 90 Top = 1080 Width = 885 End Begin VB.Label label1 AutoSize = -1 'True BackColor = &H0096D7EF& Caption = "Case No" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00004000& Height = 195 Index = 19 Left = 5760 TabIndex = 89 Top = 1680 Width = 660 End Begin VB.Label label1 AutoSize = -1 'True BackColor = &H0096D7EF& Caption = "Item Class" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00004000& Height = 195 Index = 17 Left = 10680 TabIndex = 88 Top = 1080 Width = 900 End Begin VB.Label label1 AutoSize = -1 'True BackColor = &H0096D7EF& Caption = "Prod Sr.No." BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00004000& Height = 195 Index = 18 Left = 3240 TabIndex = 87 Top = 1680 Width = 915 End Begin VB.Label label1 BackColor = &H0096D7EF& Caption = "No of Pkgs Recvd" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00004000& Height = 435 Index = 20 Left = 7440 TabIndex = 86 Top = 1560 Width = 960 WordWrap = -1 'True End Begin VB.Label label1 AutoSize = -1 'True BackColor = &H0096D7EF& Caption = "Qty Recvd." BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00004000& Height = 195 Index = 21 Left = 9240 TabIndex = 85 Top = 1680 Width = 915 End Begin VB.Label label1 AutoSize = -1 'True BackColor = &H0096D7EF& Caption = "Item Location" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00004000& Height = 195 Index = 22 Left = 11280 TabIndex = 84 Top = 1680 Width = 1185 End Begin VB.Label label1 BackColor = &H0096D7EF& Caption = "Received By" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00004000& Height = 495 Index = 23 Left = 5520 TabIndex = 83 Top = 2160 Width = 855 End Begin VB.Label label1 BackColor = &H0096D7EF& Caption = "Checked By" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00004000& Height = 435 Index = 24 Left = 7920 TabIndex = 82 Top = 2160 Width = 795 End Begin VB.Label label1 AutoSize = -1 'True BackColor = &H0096D7EF& Caption = "Remarks" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00004000& Height = 195 Index = 27 Left = 240 TabIndex = 81 Top = 2835 Width = 765 End Begin VB.Label label1 BackColor = &H0096D7EF& Caption = "Warehouse Name" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00004000& Height = 375 Index = 25 Left = 10440 TabIndex = 80 Top = 2130 Width = 975 End End Begin MSFlexGridLib.MSFlexGrid MSF7 Height = 2535 Left = 720 TabIndex = 105 Top = 2280 Width = 13575 _ExtentX = 23945 _ExtentY = 4471 _Version = 393216 Cols = 18 BackColor = 16777215 BackColorFixed = 13434879 BackColorBkg = 24251 AllowUserResizing= 3 FormatString = $"MDIchild3- Inwardlocal.frx":E984 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty End Begin VB.Label label1 AutoSize = -1 'True BackColor = &H0096D7EF& Caption = "MRN No" BeginProperty Font Name = "Tahoma" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00404000& Height = 210 Index = 48 Left = 9000 TabIndex = 115 Top = 1680 Width = 720 End Begin VB.Label Label3 AutoSize = -1 'True BackColor = &H0096D7EF& Caption = "Receipt Date" BeginProperty Font Name = "Tahoma" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00004000& Height = 210 Left = 3000 TabIndex = 112 Top = 480 Width = 1185 End Begin VB.Line Line3 BorderWidth = 2 X1 = 14880 X2 = 14880 Y1 = 9840 Y2 = 0 End Begin VB.Line Line2 BorderWidth = 2 X1 = 240 X2 = 14880 Y1 = 9840 Y2 = 9840 End Begin VB.Line Line1 BorderWidth = 2 X1 = 240 X2 = 240 Y1 = 0 Y2 = 9840 End Begin VB.Label label1 AutoSize = -1 'True BackColor = &H0096D7EF& Caption = "Receipt No " BeginProperty Font Name = "Tahoma" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00004000& Height = 210 Index = 0 Left = 360 TabIndex = 104 Top = 480 Width = 1050 End Begin VB.Label label1 AutoSize = -1 'True BackColor = &H0096D7EF& Caption = "P.O. No " BeginProperty Font Name = "Tahoma" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00004000& Height = 210 Index = 1 Left = 6240 TabIndex = 103 Top = 480 Width = 735 End Begin VB.Label label1 AutoSize = -1 'True BackColor = &H0096D7EF& Caption = "D. Chln No" BeginProperty Font Name = "Tahoma" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00004000& Height = 210 Index = 3 Left = 8760 TabIndex = 102 Top = 480 Width = 960 End Begin VB.Label label1 AutoSize = -1 'True BackColor = &H0096D7EF& Caption = "D. Chln Date" BeginProperty Font Name = "Tahoma" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00004000& Height = 210 Index = 4 Left = 11400 TabIndex = 101 Top = 480 Width = 1155 End Begin VB.Label label1 AutoSize = -1 'True BackColor = &H0096D7EF& Caption = "Invoice No" BeginProperty Font Name = "Tahoma" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00004000& Height = 210 Index = 5 Left = 600 TabIndex = 100 Top = 1095 Width = 960 End Begin VB.Label label1 AutoSize = -1 'True BackColor = &H0096D7EF& Caption = "User Department" BeginProperty Font Name = "Tahoma" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00004000& Height = 210 Index = 6 Left = 2955 TabIndex = 99 Top = 1080 Width = 1560 End Begin VB.Label label1 AutoSize = -1 'True BackColor = &H0096D7EF& Caption = "Vendor Name" BeginProperty Font Name = "Tahoma" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00004000& Height = 210 Index = 7 Left = 6120 TabIndex = 98 Top = 1080 Width = 1215 End Begin VB.Label label1 AutoSize = -1 'True BackColor = &H0096D7EF& Caption = "Vendor Address" BeginProperty Font Name = "Tahoma" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00004000& Height = 210 Index = 8 Left = 10200 TabIndex = 97 Top = 1080 Width = 1515 End Begin VB.Label label1 AutoSize = -1 'True Caption = "Item Code" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Index = 9 Left = 2520 TabIndex = 96 Top = 2640 Width = 870 End Begin VB.Label label1 AutoSize = -1 'True BackColor = &H0096D7EF& Caption = "Ship. Date" BeginProperty Font Name = "Tahoma" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00004000& Height = 210 Index = 11 Left = 600 TabIndex = 95 Top = 1680 Width = 960 End Begin VB.Label label1 AutoSize = -1 'True BackColor = &H0096D7EF& Caption = "Ship. Time" BeginProperty Font Name = "Tahoma" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00004000& Height = 210 Index = 12 Left = 3360 TabIndex = 94 Top = 1680 Width = 945 End Begin VB.Label label1 AutoSize = -1 'True BackColor = &H0096D7EF& Caption = "Shipping Day" BeginProperty Font Name = "Tahoma" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00004000& Height = 210 Index = 13 Left = 5835 TabIndex = 93 Top = 1680 Width = 1215 End End Attribute VB_Name = "MDIchild3" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Public rstat As String, rs1 As Recordset, rs2 As Recordset, delstr As String, Rowflag As String, Flag As String, ConnectionString As String Dim rs As New ADODB.Recordset, cn As New ADODB.Connection Option Explicit Private Sub cbocarrname_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub Private Sub cbosecurityby_LostFocus() MsgBox (" Adding Lineitems Please Press INSERT Button....... "), vbInformation End Sub Private Sub chklbr_Click() If chklbr.Value = True Then txtnolbr.Locked = False Else txtnolbr.Text = "" txtnolbr.Locked = True End Sub Private Sub cmdadd_Click() With rs '.AddNew 'adding new record '.Fields("field2") = Text1.Text 'setting field2 = whatever is typed in text1 '.Fields("field3") = Text2.Text 'as above '.Fields("field1") = Combo1.Text 'as above '.Update 'this updates the recordset etc. End With End Sub Public Sub fillfields() If Not (rs.BOF = True Or rs.EOF = True) Then 'Checks if we are at the first or last record. This is use a lot. 'Text1.Text = rs.Fields("Field2") 'text1 = field2 and display that data MDIchild3.txtreceiptno.Text = rs.Fields("Receipt_no") MDIchild3.txtpono.Text = rs.Fields("PO_no") MDIchild3.txtdcno.Text = rs.Fields("DC_no") MDIchild3.txtdcdate.Text = rs.Fields("Dc_date") MDIchild3.txtinvoiceno.Text = rs.Fields("Invoice_no") MDIchild3.cbouserdept.Text = rs.Fields("User_dept") MDIchild3.cbovendorname.Text = rs.Fields("Vendor_name") MDIchild3.txtvendoradd.Text = rs.Fields("Vendor_add") MDIchild3.txtshipdate.Text = rs.Fields("Ship_Date") MDIchild3.txtshiptime.Text = rs.Fields("Ship_time") MDIchild3.cboshipday.Text = rs.Fields("Ship_day") MDIchild3.txtmrnl.Text = rs.Fields("MRN_no") MDIchild3.cbocarrname.Text = rs.Fields("carrier_name") MDIchild3.txtlrno.Text = rs.Fields("LR_no") MDIchild3.txtvehicleno.Text = rs.Fields("Vehicle_no") MDIchild3.chklbr.Value = Abs(CInt(rs.Fields("Tot_lbrs_Chk"))) MDIchild3.txtnolbr.Text = rs.Fields("Tot_lbrs") MDIchild3.chkclbr.Value = Abs(CInt(rs.Fields("Cmn_lbrs_chk"))) MDIchild3.txtcomlbr.Text = rs.Fields("Cmn_lbrs") MDIchild3.txtnopkgs.Text = rs.Fields("Tot_pkgs") MDIchild3.chkdamage.Value = Abs(CInt(rs.Fields("Qty_damage_chk"))) MDIchild3.txtdamage.Text = rs.Fields("Qty_damage") MDIchild3.txtqtychallan.Text = rs.Fields("Qty_asper_challan") MDIchild3.chkexcess.Value = Abs(CInt(rs.Fields("Qty_excess_chk"))) MDIchild3.txtexcess.Text = rs.Fields("Qty_excess") MDIchild3.txtaccqty.Text = rs.Fields("Acc_qty") MDIchild3.chkshortage.Value = Abs(CInt(rs.Fields("Qty_shortage_chk"))) MDIchild3.txtshortage.Text = rs.Fields("Qty_shortage") MDIchild3.txtwtmaterial.Text = rs.Fields("Wt_material") MDIchild3.chkwet.Value = Abs(CInt(rs.Fields("Qty_wet_chk"))) MDIchild3.txtwet.Text = rs.Fields("Qty_wet") MDIchild3.txttotamnt.Text = rs.Fields("Tot_amount") MDIchild3.txtremark.Text = rs.Fields("Remark") MDIchild3.txtlfno.Text = rs.Fields("LF_no") MDIchild3.cboattainby.Text = rs.Fields("Attain_by") MDIchild3.cboverifyby.Text = rs.Fields("Verify_by") MDIchild3.cbocertifyby.Text = rs.Fields("Certify_by") MDIchild3.cbosecurityby.Text = rs.Fields("Security_by") Else MsgBox "Either you are at the first record or the last record.", vbExclamation, "Cannot Move" End If ' rs.Close End Sub Public Sub Fillflex() Dim x As Integer ' Set cn = New ADODB.Connection 'we've declared it as a ADODB connection lets set it. ' cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ ' "Data Source= C:\WINDOWS\Desktop\New VB\BMW.mdb" 'this is the connection string explained in the notes section. ' cn.Open ' Set rs = New ADODB.Recordset 'as we did with the connection ' ' rs.Open "Item_desc_local", cn, adOpenKeyset, adLockPessimistic, adCmdTable 'opening the recordset explained in the notes ' ' 'For X = 1 To (MDIchild3.MSF7.Rows) ' X = 1 ' MSF7.TextMatrix(X, 0) = rs.Fields("Receipt_no") ' MSF7.TextMatrix(X, 1) = rs.Fields("Sr_no") ' MSF7.TextMatrix(X, 2) = rs.Fields("Item_code") ' MSF7.TextMatrix(X, 3) = rs.Fields("Item_name") ' MSF7.TextMatrix(X, 4) = rs.Fields("Item_type") ' MSF7.TextMatrix(X, 5) = rs.Fields("Item_class") ' MSF7.TextMatrix(X, 6) = rs.Fields("Product_code") ' MSF7.TextMatrix(X, 7) = rs.Fields("Product_srno") ' MSF7.TextMatrix(X, 8) = rs.Fields("Case_no") ' MSF7.TextMatrix(X, 9) = rs.Fields("Tot_pkgs") ' MSF7.TextMatrix(X, 10) = rs.Fields("Tot_qty") ' MSF7.TextMatrix(X, 11) = rs.Fields("Item_location") ' MSF7.TextMatrix(X, 12) = rs.Fields("Unit_cost") ' MSF7.TextMatrix(X, 13) = rs.Fields("Total_cost") ' MSF7.TextMatrix(X, 14) = rs.Fields("Received_by") ' MSF7.TextMatrix(X, 15) = rs.Fields("Checked_by") ' MSF7.TextMatrix(X, 16) = rs.Fields("Warehouse_name") ' MSF7.TextMatrix(X, 17) = rs.Fields("Remarks") ' ' 'Next ' 'MSF7.Rows = MSF7.Rows + 1 End Sub Private Sub cmdClose_Click() frmlocal.Visible = False MSF7.SetFocus End Sub '*********************************************************************************** ' Accepting data from user input for Local Inwards '*********************************************************************************** Private Sub cmdlocal_Click() ' Dim r As Integer If Rowflag = "A" Then MSF7.Rows = MSF7.Rows r = MSF7.Rows - 1 MSF7.Rows = MSF7.Rows + 1 ElseIf Rowflag = "M" Then End If MSF7.TextMatrix(r, 0) = Trim(receiptnoitem) MSF7.TextMatrix(r, 1) = Trim(txtsrno) MSF7.TextMatrix(r, 2) = Trim(Cboitemcode) MSF7.TextMatrix(r, 3) = Trim(txtitemname) MSF7.TextMatrix(r, 4) = Trim(cboitemtype) MSF7.TextMatrix(r, 5) = Trim(Cboitemclass) MSF7.TextMatrix(r, 6) = Trim(txtproductcode) MSF7.TextMatrix(r, 7) = Trim(txtproductsrno) MSF7.TextMatrix(r, 8) = Trim(txtcaseno) MSF7.TextMatrix(r, 9) = Trim(txtpkgs) MSF7.TextMatrix(r, 10) = Trim(txtqtyrecvd) MSF7.TextMatrix(r, 11) = Trim(txtitemlocation) MSF7.TextMatrix(r, 12) = Trim(txtunitcost) MSF7.TextMatrix(r, 13) = Trim(txttotcost) MSF7.TextMatrix(r, 14) = Trim(cborecvdby) MSF7.TextMatrix(r, 15) = Trim(cbochkedby) MSF7.TextMatrix(r, 16) = Trim(cbowarehousename) 'MSF7.TextMatrix(r, 17) = Trim(cbowarehouseno) MSF7.TextMatrix(r, 17) = Trim(txtremarks) txtsrno = "" Cboitemcode = "" txtitemname = "" cboitemtype = "" Cboitemclass = "" txtproductcode = "" txtproductsrno = "" txtcaseno = "" txtpkgs = "" txtqtyrecvd = "" txtitemlocation = "" txtunitcost = "" txttotcost = "" cborecvdby = "" cbochkedby = "" cbowarehousename = "" 'cbowarehouseno = "" txtremarks = "" End Sub Private Sub cmdnext_Click() If Not (rs.EOF = True) Then rs.MoveNext 'move to next record fillfields 'fill the controls End If End Sub Private Sub cmdprev_Click() If Not (rs.BOF = True) Then rs.MovePrevious 'move previous record fillfields 'fill the controls End If End Sub Private Sub Form_Load() Flag = "Inward_local" txtreceiptdate = Format(Now(), "dd-Mmm-yyyy") CentreForm Me Dim ConnectionString As String ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=C:\WINDOWS\Desktop\New VB\BMW.mdb" cn.Open ConnectionString Set rs = New ADODB.Recordset Set rs.ActiveConnection = cn With rs .LockType = adLockReadOnly .CursorType = adOpenKeyset rs.Open " select max(Receipt_no)+1 from Inward_local " MDIchild3.txtreceiptno = rs.Fields(0).Value End With rs.Close Me.MousePointer = 11 'this makes the mouse pointer the hourglass Set cn = New ADODB.Connection 'we've declared it as a ADODB connection lets set it. cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source= C:\WINDOWS\Desktop\New VB\BMW.mdb" 'this is the connection string explained in the notes section. cn.Open Set rs = New ADODB.Recordset 'as we did with the connection rs.Open "Inward_local", cn, adOpenKeyset, adLockPessimistic, adCmdTable 'opening the recordset explained in the notes rs.MoveFirst 'moves to the first record 'Do Until rs.EOF = True 'this is the Loop to add items to the combo box 'Combo1.AddItem rs.Fields("field1") 'this adds items from field1 into the combo box 'rs.MoveNext 'moves next record 'Loop 'rs.MoveFirst fillfields 'i'll explain this later on. 'Fillflex Me.MousePointer = 0 'sets the mouse pointer to the normal arrow End Sub Private Sub Form_Unload(Cancel As Integer) rs.Close 'close the recordset cn.Close 'close the connection Set rs = Nothing 'set them to nothing Set cn = Nothing 'as above End Sub '********************************************************************************* ' Entry for MS Flexgrid For Local Inward Details '********************************************************************************* Private Sub MSF7_KeyUp(KeyCode As Integer, Shift As Integer) Dim r As Integer, D_code As Integer, I_code As Integer, B_code As String If KeyCode = 45 Then receiptnoitem = MDIchild3.txtreceiptno.Text ' ClearItemEntry ' txtsrno = "" txtitemname = "" cboitemtype = "" txtproductcode = "" txtproductsrno = "" txtcaseno = "" txtpkgs = "" txtqtyrecvd = "" txtitemlocation = "" txtunitcost = "" txttotcost = "" cborecvdby = "" cbochkedby = "" cbowarehousename = "" txtremarks = "" frmlocal.Visible = True frmlocal.ZOrder 0 Rowflag = "A" txtsrno.SetFocus ElseIf KeyCode = 113 Then 'and Action = "M" ElseIf KeyCode = 113 Then Rowflag = "M" If MSF7.Rows = 1 Then Exit Sub r = MSF7.Row receiptnoitem = MSF7.TextMatrix(r, 0) txtsrno = MSF7.TextMatrix(r, 1) txtitemname = MSF7.TextMatrix(r, 2) cboitemtype = MSF7.TextMatrix(r, 3) txtproductcode = MSF7.TextMatrix(r, 4) txtproductsrno = MSF7.TextMatrix(r, 5) txtcaseno = MSF7.TextMatrix(r, 6) txtpkgs = MSF7.TextMatrix(r, 7) txtqtyrecvd = MSF7.TextMatrix(r, 8) txtitemlocation = MSF7.TextMatrix(r, 9) txtunitcost = MSF7.TextMatrix(r, 10) txttotcost = MSF7.TextMatrix(r, 11) cborecvdby = MSF7.TextMatrix(r, 12) cbochkedby = MSF7.TextMatrix(r, 13) cbowarehousename = MSF7.TextMatrix(r, 14) 'cbowarehouseno = MSF7.TextMatrix(r, 15) txtremarks = MSF7.TextMatrix(r, 15) frmlocal.Visible = True frmlocal.ZOrder 0 ElseIf KeyCode = 46 Then r = MSF7.Row ' If MSF7.Rows = 2 Then MSF7.Rows = 1 Else MSF7.RemoveItem r End If End If End Sub Private Sub MSF7_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) With MSF7 Select Case KeyAscii Case 8: 'IF KEY IS BACKSPACE THEN If .Text <> "" Then .Text = _ Left$(.Text, (Len(.Text) - 1)) Case 13: 'IF KEY IS ENTER THEN Select Case .Col Case Is < (.Cols - 1): SendKeys "{right}" Case (.Cols - 1): If (.Row + 1) = .Rows Then .Rows = .Rows + 1 End If SendKeys "{home}" + "{down}" End Select Case Else .Text = .Text + Chr$(KeyAscii) 'write your own keyascii Validations under 'commented lines Select Case .Col Case 0, 1, 2: 'if (your condition(s)) then 'accept only charectors 'Else ' keyascii=0 'End If Case Else: End Select End Select End With End Sub Private Sub txtitemlocation_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub Private Sub txtitemname_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub Private Sub txtvehicleno_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub Private Sub txtvendoradd_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub