Автоматизация учета основных средств на предприятии

oApp. Cells (rKol, cKol). Value = StrKol & " шт."

oApp. ActiveWorkbook. Sheets (3). Select

oApp. Cells (rDatIspDay, cDatIspDay). Value = Format$ (StrDateIsp, "dd")

oApp. Cells (rDatIspMon, cDatIspMon). Value = StrMonthIsp

oApp. Cells (rDatIspYear, cDatIspYear). Value = Right$ (Format$ (StrDateIsp, "yyyy"),

1)

If vbSootv = True Then

o

App. Cells (rSootv1, cSootv1). Font. Bold = True

oApp. Cells (rSootv2, cSootv2). Font. Bold = False

oApp. Cells (rSootvInf, cSootvInf). Value = ""

Else

oApp. Cells (rSootv1, cSootv1). Font. Bold = False

oApp. Cells (rSootv2, cSootv2). Font. Bold = True

oApp. Cells (rSootvInf, cSootvInf). Value = StrSootv

End If

If vbDorab = True Then

oApp. Cells (rDorab1, cDorab1). Font. Bold = True

oApp. Cells (rDorab2, cDorab2). Font. Bold = False

oApp. Cells (rDorabInf, cDorabInf). Value = StrDorab

Else

oApp. Cells (rDorab1, cDorab1). Font. Bold = False

oApp. Cells (rDorab2, cDorab2). Font. Bold = True

oApp. Cells (rDorabInf, cDorabInf). Value = ""

End If

oApp. Cells (rResult, cResult). Value = StrZakl

oApp. Cells (rTDoc, cTDoc). Value = StrTechDoc

oApp. Cells (rPredsName, cPredsName). Value = StrPredsName

oApp. Cells (rPredsDolzh, cPredsDolzh). Value = StrPredsDolzh

oApp. Cells (rChl1Name, cChl1Name). Value = StrChl1Name

oApp. Cells (rChl1Dolzh, cChl1Dolzh). Value = StrChl1Dolzh

oApp. Cells (rChl2Name, cChl2Name). Value = StrChl2Name

oApp. Cells (rChl2Dolzh, cChl2Dolzh). Value = StrChl2Dolzh

oApp. Cells (rPrinName, cPrinName). Value = StrPrinName

oApp. Cells (rPrinDolzh, cPrinDolzh). Value = StrPrinDolzh

oApp. Cells (rDatPrinDay, cDatPrinDay). Value = Format$ (StrPrinDate, "dd")

oApp. Cells (rDatPrinMon, cDatPrinMon). Value = StrMonthPrin

oApp. Cells (rDatPrinYear, cDatPrinYear). Value = Right$ (Format$ (StrPrinDate, "yyyy"),

1)

oApp. Cells (rDatDovDay, cDatDovDay). Value = Format$ (StrDovDate, "dd")

oApp. Cells (rDatDovMon, cDatDovMon). Value = StrMonthDov

oApp. Cells (rDatDovYear, cDatDovYear). Value = Right$ (Format$ (StrDovDate, "yyyy"),

1)

oApp. Cells (rDatDovOsn, cDatDovOsn). Value = StrDovFor

oApp. Cells (rDatDovNomer, cDatDovNomer). Value = StrDovNom

oApp. Cells (rXranName, cXranName). Value = StrXranName

oApp. Cells (rXranDolzh, cXranDolzh). Value = StrXranDolzh

oApp. Cells (rXranNomer, cXranNomer). Value = StrXranNomer

oApp. Cells (rDatXranDay, cDatXranDay). Value = Format$ (StrXranDate, "dd")

oApp. Cells (rDatXranMon, cDatXranMon). Value = StrMonthXran

oApp. Cells (rDatXranYear, cDatXranYear). Value = Right$ (Format$ (StrXranDate, "yyyy"),

1)

oApp. Cells (rNomer2, cNomer2). Value = NomerVnutr

oApp. Cells (rDatSost, cDatSost). Value = Format$ (StrDate, "dd. mm. yyyy")

oApp. Cells (rBuchName, cBuchName). Value = StrGlBuch

ex:

Application. SysCmd acSysCmdRemoveMeter

If Not (oApp Is Nothing) Then oApp. Visible = True

Set Rec = Nothing

Set RecList = Nothing

Set oApp = Nothing

Set db = Nothing

Exit Sub

LblErr:

MsgBox Err. Description, vbCritical + vbOKOnly

GoTo ex

End Sub

Код модуля OS2

Option Compare Database

Option Explicit

Private Const NomerForm As Long = 2

Private Const cFirmName As Byte = 1

Private Const rFirmName As Integer = 7

Private Const cFirmOKPO As Byte = 88

Private Const rFirmOKPO As Integer = 7

Private Const cPodrazdName1 As Byte = 7

Private Const rPodrazdName1 As Integer = 9

Private Const cPodrazdOKPO1 As Byte = 88

Private Const rPodrazdOKPO1 As Integer = 8

Private Const cPodrazdName2 As Byte = 9

Private Const rPodrazdName2 As Integer = 11

Private Const cPodrazdOKPO2 As Byte = 88

Private Const rPodrazdOKPO2 As Integer = 10

Private Const cDateNakl As Byte = 69

Private Const rDateNakl As Integer = 16

Private Const cNomerNakl As Byte = 57

Private Const rNomerNakl As Integer = 16

Private Const cNomer As Byte = 1

Private Const cTovar As Byte = 5

Private Const cYear As Byte = 48

Private Const cInv As Byte = 58

Private Const cKol As Byte = 70

Private Const cCena As Byte = 80

Private Const cSum As Byte = 90

Private Const rSh1_1 As Integer = 24

Private Const rSh1_2 As Integer = 39

Private Const rSh2_1 As Integer = 8

Private Const rSh2_2 As Integer = 19

Private Const cSumItog As Byte = 90

Private Const rSumItog As Integer = 20

Private Const cSotrName1 As Byte = 42

Private Const rSotrName1 As Byte = 31

Private Const cSotrDolzh1 As Byte = 7

Private Const rSotrDolzh1 As Byte = 31

Private Const cSotrNomer1 As Byte = 64

Private Const rSotrNomer1 As Byte = 31

Private Const cDatDay1 As Byte = 79

Private Const rDatDay1 As Byte = 31

Private Const cDatMonth1 As Byte = 83

Private Const rDatMonth1 As Byte = 31

Private Const cDatYear1 As Byte = 96

Private Const rDatYear1 As Byte = 31

Private Const cSotrName2 As Byte = 42

Private Const rSotrName2 As Byte = 34

Private Const cSotrDolzh2 As Byte = 7

Private Const rSotrDolzh2 As Byte = 34

Private Const cSotrNomer2 As Byte = 64

Private Const rSotrNomer2 As Byte = 34

Private Const cDatDay2 As Byte = 79

Private Const rDatDay2 As Byte = 34

Private Const cDatMonth2 As Byte = 83

Private Const rDatMonth2 As Byte = 34

Private Const cDatYear2 As Byte = 96

Private Const rDatYear2 As Byte = 34

Private Const cGlBuch As Byte = 33

Private Const rGlBuch As Byte = 39

Private Const nSymbPrim As Byte = 60

Private Const nSymbPrim2 As Byte = 130

Private Const cPrim As Integer = 51

Private Const rPrim1 As Integer = 22

Private Const cPrim2 As Integer = 1

Private Const rPrim2_1 As Integer = 23

Private Const rPrim2_2 As Integer = 27

Sub PrintFormOS2 (ByVal nomer As Long)

Dim db As Database, Rec As DAO. Recordset, RecList As DAO. Recordset

Dim oApp As Object

Dim StrFormName As String

Dim StrFile As String, s_folder As String, StrPath As String

Dim StrGlBuch As String

Dim StrFirmName As String, StrFirmOKPO As String

Dim StrPodrazdName1 As String, StrPodrazdOKPO1 As String

Dim StrPodrazdName2 As String, StrPodrazdOKPO2 As String

Dim StrDate As Date, StrDate_s As Date, StrDate_p As Date

Dim StrNomer As String

Dim StrSotrName1 As String, StrSotrNomer1 As String, StrSotrDolzh1 As String

Dim StrSotrName2 As String, StrSotrNomer2 As String, StrSotrDolzh2 As String

Dim StrItog As Double, s_Sum As Double

Dim StrMonth1 As String, StrMonth2 As String

Dim p As Integer, p2 As Integer, i As Long, NRecord As Long

Dim StrPrim As String

On Error GoTo LblErr

If nomer = 0 Then Exit Sub

s_folder = CurrentProject. Path

If Right$ (s_folder,

 Скачать реферат