1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82
| Private Sub cmdNewDoc1_Click()
'OK-button
Module1.DeleteTempFiles
'Checking input
If cbNewDoc1.Text = "" Then
If dnMessages(10, 0, 48) = vbOK Then Exit Sub
End If
If cbNewDoc2.Text = "" Then
If dnMessages(11, 0, 48) = vbOK Then Exit Sub
Else
cbNewDoc2_Click
End If
If lblNDCd6 = "00000" Then
If dnMessages(12, 0, 48) = vbOK Then Exit Sub
End If
'Data correction
mat = CStr(lblNDCd5)
If lblNDCd6 = "00872" Then 'Codes document kabnot to insert
kabnot = 1
Else
kabnot = 0
End If
newUpdDosData
'Test virtual disk
If vdiskCheck("i") = 0 Then
If dnMessages(30, 4, 64) = vbNo Then
'startButtons
Unload Me
Else
Unload Me
frmNewDoc2.Show
End If
End If
'Copying document and mask to Docnet-temp folder
If copieMskAndDocToTemp(CStr(lblNDCd12), 0) = False Then
If dnMessages(21, 0, 48) = vbOK Then
'startButtons
Unload Me
End If
End If
If copieMskAndDocToTemp(CStr(lblNDCd13), 1) = False Then
If dnMessages(21, 0, 48) = vbOK Then
'startButtons
Unload Me
End If
End If
'Executing the merge
docnetMerger "c:\docnet\temp\tmpmsk.doc", "c:\docnet\temp\tmpdoc.doc", 0
DoEvents
'closeAllDocumentsExceptTemp
startButtons (4)
Dim i As Integer
For i = 1 To 10000
i = i
Next
MPause 0.25
formAdapt CStr(lblNDCd10)
MPause 0.25
If lblNDCd1 = "000" Or lblNDCd1 = "001" Then
signatures lblNDCd6, lblNDCd3
End If
'Deleting the copies in the Docnet-temp folder
tmpDocsKill
'Unloading this form
newAskButtons
Tabulation.PositionOnFirstField
Unload Me
End Sub |
Partager