Private cool As String
Private EditRec As Byte


Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)

Call TabRefr    'Îáíîâëåíèå

End Sub
Private Sub TabRefr()

'----------------------------
'ïîäïðîãà äëÿ îáíîâëåíèÿ âñåõ òàáëèö
On Error Resume Next
LOT$ = "test"  'ôè÷à ïðè îøèáêå îñòàåòñÿ ëîò òåñò ... è âî âñåõ òàáëèöàõ ïóñòî
LOT$ = Adodc1.Recordset("Lot")

Adodc2.RecordSource = "select * from DopLot where [Lot]='" + LOT + "' and [Mes]= " & MPlan & " and [God]= " & GodPlan & ""
Adodc2.Refresh

Adodc3.RecordSource = "select * from Color where [Lot]='" + LOT + "' and [Mes]= " & MPlan & " and [God]= " & GodPlan & ""
Adodc3.Refresh

Adodc4.RecordSource = "select * from Module where [Lot]='" + LOT + "' and [Mes]= " & MPlan & " and [God]= " & GodPlan & ""
Adodc4.Refresh

Adodc6.RecordSource = "select * from Kineskops where [Lot]='" + LOT + "' and [Mes]= " & MPlan & " and [God]= " & GodPlan & ""
Adodc6.Refresh


End Sub


Private Sub Adodc5_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
On Error Resume Next
MODEL$ = Adodc5.Recordset("Model")
LOT$ = Adodc5.Recordset("Lot")

Adodc3.RecordSource = "select * from Color where [Model] like '" + MODEL + "' AND [Lot]='" + LOT + "' and [Mes]= " & MPlan & " and [God]= " & GodPlan & ""
Adodc3.Refresh

Adodc4.RecordSource = "select * from Module where [Model] like '" + MODEL + "' AND [Lot]='" + LOT + "' and [Mes]= " & MPlan & " and [God]= " & GodPlan & ""
Adodc4.Refresh

Adodc6.RecordSource = "select * from Kineskops where [Model] like '" + MODEL + "' AND [Lot]='" + LOT + "' and [Mes]= " & MPlan & " and [God]= " & GodPlan & ""
Adodc6.Refresh
'========================================================

'========================================================

End Sub

Private Sub DataGrid1_ColResize(ByVal ColIndex As Integer, Cancel As Integer)
'Ñîõðàíÿåì ðàñïîëîæåíèå ñòîëáöîâ
For x =  0  To DataGrid1.Columns.Count -  1 
cool = Str(x)
retval = WritePrivateProfileString("ColIndex", cool, Fix(DataGrid1.Columns(x).Width), "C:\TELEVOLNA\INI\X1.ini")
Next x
End Sub

Private Sub DataGrid2_ColResize(ByVal ColIndex As Integer, Cancel As Integer)
'Ñîõðàíÿåì ðàñïîëîæåíèå ñòîëáöîâ
For x =  0  To DataGrid2.Columns.Count -  1 
cool = Str(x)
retval = WritePrivateProfileString("ColIndex", cool, Fix(DataGrid2.Columns(x).Width), "C:\TELEVOLNA\INI\X2.ini")
Next x
End Sub

Private Sub DataGrid3_ColResize(ByVal ColIndex As Integer, Cancel As Integer)
'Ñîõðàíÿåì ðàñïîëîæåíèå ñòîëáöîâ
For x =  0  To DataGrid3.Columns.Count -  1 
cool = Str(x)
retval = WritePrivateProfileString("ColIndex", cool, Fix(DataGrid3.Columns(x).Width), "C:\TELEVOLNA\INI\X3.ini")
Next x
End Sub

Private Sub DataGrid4_ColResize(ByVal ColIndex As Integer, Cancel As Integer)
'Ñîõðàíÿåì ðàñïîëîæåíèå ñòîëáöîâ
For x =  0  To DataGrid4.Columns.Count -  1 
cool = Str(x)
retval = WritePrivateProfileString("ColIndex", cool, Fix(DataGrid4.Columns(x).Width), "C:\TELEVOLNA\INI\X4.ini")
Next x
End Sub

Private Sub DataGrid5_ColResize(ByVal ColIndex As Integer, Cancel As Integer)


End Sub

Private Sub DataGrid6_ColResize(ByVal ColIndex As Integer, Cancel As Integer)
'Ñîõðàíÿåì ðàñïîëîæåíèå ñòîëáöîâ
For x =  0  To DataGrid6.Columns.Count -  1 
cool = Str(x)
retval = WritePrivateProfileString("ColIndex", cool, Fix(DataGrid6.Columns(x).Width), "C:\TELEVOLNA\INI\X6.ini")
Next x

End Sub

Private Sub Form_Load()
On Error Resume Next




Dim uname As String  ' çíà÷åíèå êëþ÷à,ïîëó÷àåìîå èç ôàéëà
Dim slength As Long  ' äëèíà ïîëó÷àåìîé ñòðîêè

uname = Space( 255 )  ' îáåñïå÷èâàåì äîñòàòî÷íî ìåñòà äëÿ ôóíêöèè, ÷òîáû ïîìåñòèòü çíà÷åíèå â áóôåð
' ÷èòàåì INI-ôàéë
slength = GetPrivateProfileString("XYZ", "Left", "anonymous", uname,  255 , "C:\TELEVOLNA\INI\form27.ini")
Me.Left = Left(uname, slength)    ' èçâëåêàåìíóæíóþ ñòðî÷êó èç áóôåðà

slength = GetPrivateProfileString("XYZ", "Top", "anonymous", uname,  255 , "C:\TELEVOLNA\INI\form27.ini")
Me.Top = Left(uname, slength)     ' èçâëåêàåìíóæíóþ ñòðî÷êó èç áóôåðà

slength = GetPrivateProfileString("XYZ", "Height", "anonymous", uname,  255 , "C:\TELEVOLNA\INI\form27.ini")
Me.Height = Left(uname, slength)     ' èçâëåêàåìíóæíóþ ñòðî÷êó èç áóôåðà

slength = GetPrivateProfileString("XYZ", "Width", "anonymous", uname,  255 , "C:\TELEVOLNA\INI\form27.ini")
Me.Width = Left(uname, slength)     ' èçâëåêàåìíóæíóþ ñòðî÷êó èç áóôåðà

slength = GetPrivateProfileString("XYZ", "WindowState", "anonymous", uname,  255 , "C:\TELEVOLNA\INI\form27.ini")
Me.WindowState = Left(uname, slength)      ' èçâëåêàåìíóæíóþ ñòðî÷êó èç áóôåðà



'Adodc1.RecordSource = "select * from  where [Mes]= " & MPlan & ""
'Adodc1.Refresh


'Me.Caption = "Ïëàí ïðîèçâîäñòâà   ................  " & MonthName(MPlan) & " ìåñÿö."

Call Refr   'îáíîâèòü äàííûå â òàáëèöû ïðè çàãðóçêèôîðìû

'Exit Sub '================================++++++++++++==========================
'**********************************************************************************
For x =  0  To DataGrid1.Columns.Count -  1 
cool$ = Str(x) 'ïðåîáðàçóåì â ñòðîêîâîå çíà÷åíèå à òî âûëåòàåò îøèáêà
slength = GetPrivateProfileString("ColIndex", cool, "anonymous", uname,  255 , "C:\TELEVOLNA\INI\X1.ini")
DataGrid1.Columns(x).Width = Left(uname, slength)
Next x
'**********************************************************************************
For x =  0  To DataGrid2.Columns.Count -  1 
cool$ = Str(x) 'ïðåîáðàçóåì â ñòðîêîâîå çíà÷åíèå à òî âûëåòàåò îøèáêà
slength = GetPrivateProfileString("ColIndex", cool, "anonymous", uname,  255 , "C:\TELEVOLNA\INI\X2.ini")
DataGrid2.Columns(x).Width = Left(uname, slength)
Next x
'**********************************************************************************
For x =  0  To DataGrid3.Columns.Count -  1 
cool$ = Str(x) 'ïðåîáðàçóåì â ñòðîêîâîå çíà÷åíèå à òî âûëåòàåò îøèáêà
slength = GetPrivateProfileString("ColIndex", cool, "anonymous", uname,  255 , "C:\TELEVOLNA\INI\X3.ini")
DataGrid3.Columns(x).Width = Left(uname, slength)
Next x
'**********************************************************************************
For x =  0  To DataGrid4.Columns.Count -  1 
cool$ = Str(x) 'ïðåîáðàçóåì â ñòðîêîâîå çíà÷åíèå à òî âûëåòàåò îøèáêà
slength = GetPrivateProfileString("ColIndex", cool, "anonymous", uname,  255 , "C:\TELEVOLNA\INI\X4.ini")
DataGrid4.Columns(x).Width = Left(uname, slength)
Next x

'**********************************************************************************
For x =  0  To DataGrid6.Columns.Count -  1 
cool$ = Str(x) 'ïðåîáðàçóåì â ñòðîêîâîå çíà÷åíèå à òî âûëåòàåò îøèáêà
slength = GetPrivateProfileString("ColIndex", cool, "anonymous", uname,  255 , "C:\TELEVOLNA\INI\X6.ini")
DataGrid6.Columns(x).Width = Left(uname, slength)
Next x

'**********************************************************************************
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If REGEXIT =  1  Then GoTo Ok  'ïðîâåðêà íà çàïóñê çàâåðøåíèå ïðîãè äðóãèì îêíîì
If MsgBox("Âû òî÷íî õîòèòå âûéòè èç òàáëèöû ?", vbYesNo Or vbQuestion, "Âûõîä") = vbYes Then
'****************************

Ok:
'MenuFalseTabl

Unload Me
Set Form27 = Nothing

Exit Sub

Else
'****************************
Cancel =  1       'îòìåíÿåò âûõîä
End If
End Sub

Private Sub Form_Resize()
On Error Resume Next
Splitter1.Activate

End Sub

Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next


'*******************************************************
'ñîõðàíåíèå êîîðäèíàò îêîí â èíè ôàåë
'*******************************************************

If Me.WindowState <  1  Then
retval = WritePrivateProfileString("XYZ", "Left", Me.Left, "C:\TELEVOLNA\INI\form27.ini")
retval = WritePrivateProfileString("XYZ", "Top", Me.Top, "C:\TELEVOLNA\INI\form27.ini")
retval = WritePrivateProfileString("XYZ", "Height", Me.Height, "C:\TELEVOLNA\INI\form27.ini")
retval = WritePrivateProfileString("XYZ", "Width", Me.Width, "C:\TELEVOLNA\INI\form27.ini")
retval = WritePrivateProfileString("XYZ", "WindowState", Me.WindowState, "C:\TELEVOLNA\INI\form27.ini")
Else

retval = WritePrivateProfileString("XYZ", "WindowState", Me.WindowState, "C:\TELEVOLNA\INI\form27.ini")

End If
'*******************************************************
End Sub


Private Sub Picture1_Resize()
On Error Resume Next
DataGrid1.Height = Picture1.Height -  340 
DataGrid1.Width = Picture1.Width -  10 
Toolbar1.Width = Picture1.Width
End Sub

Private Sub Picture11_Resize()
On Error Resume Next
DataGrid6.Height = Picture11.Height -  340 
DataGrid6.Width = Picture11.Width -  10 
Toolbar6.Width = Picture11.Width
End Sub

Private Sub Picture2_Resize()
On Error Resume Next
DataGrid2.Height = Picture2.Height -  340 
DataGrid2.Width = Picture2.Width -  10 
Toolbar2.Width = Picture2.Width
End Sub

Private Sub Picture3_Resize()
On Error Resume Next
DataGrid3.Height = Picture3.Height -  340 
DataGrid3.Width = Picture3.Width -  10 
Toolbar3.Width = Picture3.Width
End Sub

Private Sub Picture4_Resize()
On Error Resume Next
DataGrid4.Height = Picture4.Height -  340 
DataGrid4.Width = Picture4.Width -  10 
Toolbar4.Width = Picture4.Width
End Sub



Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)



'===================================================================
'Îáíîâèòü äàííûå
'===================================================================
If Button.Key = "Refr" Then

Call Refr

End If

'===================================================================
'===================================================================


If Adodc1.Recordset.RecordCount =  0  Then dsa = MsgBox("Íåò äàííûõ â òàáëèöå çà ïëàíîâûé ìåñÿö !", vbCritical, "Îøèáêà"): Exit Sub

'===================================================================
'Óäàëèòü
'===================================================================
If Button.Key = "DelLot" Then


If Adodc1.Recordset.EOF = True Or Adodc1.Recordset.BOF = True Then dsa = MsgBox("Çàïèñè íå ñóùåñòâóåò !", vbCritical, "Îøèáêà"): Exit Sub

Del1 = MsgBox("Âû òî÷íî õîòèòå óäàëèòü òåêóùóþ çàïèñü ?", vbYesNo Or vbQuestion, "ÓÄÀËÅÍÈÅ")
'Pos = Adodc1.Recordset.AbsolutePosition

If Del1 = vbYes Then



'---------------
Dim forma As Byte
    'äëÿ Ïîëíîé ñáîðêè
forma = Adodc1.Recordset("Forma")
If forma =  20  Then

        Adodc1.Recordset("Pl") =  0 
        Adodc1.Recordset.Update
       
       
End If
'--------------
    'äëÿ ôîðìû ÑÊÄ
If forma =  10  Then

        Adodc1.Recordset("Pl") =  0 
        Adodc1.Recordset.Update
       
End If

'---------------
    End If
  
    Call Refr  'Îáíîâëÿåì ïîñëå óäàëåíèÿ
        
End If

'===================================================================
'Ïîäñ÷åò êîëè÷åñòâà ïî âñåì ñóùåñòâóþùèì ëîòàì çà ñåñÿö
'===================================================================

If Button.Key = "Summa" Then

Call SummaKolvo

End If

'===================================================================
'Ñêëàä
'===================================================================
If Button.Key = "Sklad" Then

Form32.Show

End If

'===================================================================
'Ëèòü¸
'===================================================================
'

If Button.Key = "Litie" Then

Form29.Show     'îòêðûâàåì ôîðìó ëèòüå

End If

'===================================================================
'Ïàéêà
'===================================================================
If Button.Key = "Paika" Then
 
Form31.Show

End If
'===================================================================
'ïîäñ÷åò êîëè÷åñòâà ïî âûáðàííîé îäíîé ìîäåëè
'===================================================================
If Button.Key = "ModelSumm" Then
 
Call SummaModel

End If
'===================================================================
'Äíåâíîé ãðàôèê
'===================================================================
If Button.Key = "DateLot" Then
 If Adodc1.Recordset.RecordCount =  0  Then dsa = MsgBox("Íåò çàïèñè ïî ìîäåëÿì !", vbCritical, "Îøèáêà"): Exit Sub
 
Call SummaModel 'ïîäñ÷èòûâàåì êîëè÷åñòâî ïî âûáðàííîé ìîäåëè

'--------------
Form28.StatusBar1.Panels( 1 ).Text = "Ìîäåëü :"
Form28.StatusBar1.Panels( 2 ).Text = Form27.Adodc1.Recordset("Model")
Form28.StatusBar1.Panels( 3 ).Text = "Êîë-âî ïî ïëàíó:"
Form28.StatusBar1.Panels( 4 ).Text = KolvoModel
'--------------
Form28.Show
Form28.SetFocus


End If


'===================================================================
'Ôîðìèðóåì ñåðèéíûå íîìåðà äëÿ ýêñïåðòîâ
'===================================================================
If Button.Key = "ListBarcode" Then
 
Call SaveBarcodeExpert

End If
'===================================================================


End Sub



Private Sub UserControl110_Click()
On Error GoTo Err1
If EditRec =  1  Then GoTo Edit 'Åñëè ðàâíî 1 òî òåêóùóþ çàïèñü ðåäàêòèì
Adodc5.Recordset.AddNew

Edit:

Adodc5.Recordset("Lot") = Adodc1.Recordset("Lot")
Adodc5.Recordset("Model") = UCase(Text12.Text)

'Adodc1.Refresh
Adodc5.Recordset.Update

Picture10.Visible = False

'*************************************


'Refr    'îáíîâëåíèå òàáëèöû ....èç ìîäóëÿ

Exit Sub

Err1:

Er = MsgBox("Ïðîâåðüòå ââîäèìûå äàíûå!" & vbCrLf & "Âîçìîæíî îòñóòñòâóþò äàííûå â ïîëÿõ.", vbOKOnly Or vbCritical, "Îøèáêà !")

Exit Sub
Ok:
End Sub

Private Sub UserControl12_Click()
End Sub

Private Sub UserControl13_Click()
Picture7.Visible = False
End Sub

Private Sub UserControl14_Click()
'On Error GoTo Err1
If EditRec =  1  Then GoTo Edit 'Åñëè ðàâíî 1 òî òåêóùóþ çàïèñü ðåäàêòèì
Adodc2.Recordset.AddNew

Adodc2.Recordset("DateDoc") = Str(Date)
Adodc2.Recordset("DateDocBin") = Val(Mid(Date,  7 ,  4 ) & Mid(Date,  4 ,  2 ) & Mid(Date,  1 ,  2 ))
Edit:

Adodc2.Recordset("Lot") = UCase(Text10.Text)
Adodc2.Recordset("LotN") = UCase(Text9.Text)
Adodc2.Recordset("NameIzd") = UCase(Text8.Text)
Adodc2.Recordset("KolVo") = UCase(Text7.Text)


'Adodc1.Refresh
Adodc2.Recordset.Update

Picture7.Visible = False

'*************************************


Exit Sub

Err1:

Er = MsgBox("Ïðîâåðüòå ââîäèìûå äàíûå!" & vbCrLf & "Âîçìîæíî îòñóòñòâóþò äàííûå â ïîëÿõ.", vbOKOnly Or vbCritical, "Îøèáêà !")

Exit Sub
Ok:
End Sub

Private Sub UserControl15_Click()
Picture8.Visible = False

End Sub

Private Sub UserControl16_Click()
On Error GoTo Err1

If EditRec =  1  Then GoTo Edit 'Åñëè ðàâíî 1 òî òåêóùóþ çàïèñü ðåäàêòèì
Adodc3.Recordset.AddNew

Adodc3.Recordset("Lot") = Adodc1.Recordset("Lot")
Edit:

Adodc3.Recordset("Color") = UCase(Text6.Text)
Adodc3.Recordset("KolVo") = UCase(Text11.Text)


'Adodc1.Refresh
Adodc3.Recordset.Update

Picture8.Visible = False
'*************************************
'Refr    'îáíîâëåíèå òàáëèöû ....èç ìîäóëÿ

Exit Sub

Err1:

Er = MsgBox("Ïðîâåðüòå ââîäèìûå äàíûå!" & vbCrLf & "Âîçìîæíî îòñóòñòâóþò äàííûå â ïîëÿõ.", vbOKOnly Or vbCritical, "Îøèáêà !")

Exit Sub
Ok:
End Sub

Private Sub UserControl17_Click()
Picture9.Visible = False

End Sub

Private Sub UserControl18_Click()
On Error GoTo Err1
If EditRec =  1  Then GoTo Edit 'Åñëè ðàâíî 1 òî òåêóùóþ çàïèñü ðåäàêòèì

Adodc4.Recordset.AddNew
Adodc4.Recordset("Lot") = Adodc1.Recordset("Lot")

Edit:

Adodc4.Recordset("Module") = UCase(Text13.Text)

Adodc4.Recordset.Update

Picture9.Visible = False
'*************************************

Exit Sub

Err1:

Er = MsgBox("Ïðîâåðüòå ââîäèìûå äàíûå!" & vbCrLf & "Âîçìîæíî îòñóòñòâóþò äàííûå â ïîëÿõ.", vbOKOnly Or vbCritical, "Îøèáêà !")

Exit Sub
Ok:
End Sub

Private Sub UserControl19_Click()
Picture10.Visible = False

End Sub

Private Sub Refr()
On Error Resume Next
Adodc1.Refresh

Adodc1.RecordSource = "SELECT * FROM Baz where [Mes]= " & MPlan & " and [God]= " & GodPlan & " AND [Pl] = 1"

'Adodc1.Refresh
Adodc1.Refresh

Me.Caption = "Ïëàí ïðîèçâîäñòâà  " & GodPlan & " Ãîä " & MonthName(MPlan) & " ìåñÿö."

End Sub

Private Sub SummaKolvo()
'---------------------------------------
'Ïîäïðîãðàììà äëÿ ïîäñ÷åòà îáùåãî êîëè÷åñòâà
'---------------------------------------
KolvoModel =  0   'îáíóëÿåì çíà÷åíèå
If Adodc1.Recordset.RecordCount <  1  Then gfdg = MsgBox(" áàçå íåò äàííûõ äëÿ ïîäñ÷åòà êîëè÷åñòâà.", vbCritical, "Âíèìàíèå"): GoTo NULLS 'Ïåðåõîä åñëè çàïèñåé â áàçå íåò

Adodc1.RecordSource = "SELECT SUM (KolVo) as [Summa] FROM Baz WHERE [Mes]= " & MPlan & " AND [God]= " & GodPlan & " AND [Pl] = 1 "
Adodc1.Refresh


KolvoAll = Adodc1.Recordset("Summa")    'çàíîñèì â ïåðåìåííéþ ïóáëè÷íóþ êîëâî

NULLS:

StatusBar1.Panels( 1 ).Text = "Îáùåå êîë-âî :"
StatusBar1.Panels( 2 ).Text = KolvoAll

Call Refr 'âîñòàíàâëèâàåì èñõîäíûå äàííûå ïîñëå ïîäñ÷åòà êîëè÷åñòâà
'Adodc1.RecordSource = "select * from PlanP where [Mes]= " & MPlan & " AND [God]= " & GodPlan & ""
'Adodc1.Refresh
End Sub

Private Sub SummaModel()
'---------------------------------------
'Ïîäïðîãðàììà äëÿ ïîäñ÷åòà  êîëè÷åñòâà ìîäåëåé
'---------------------------------------
Dim Poz As Long

Poz = Adodc1.Recordset.AbsolutePosition

MODEL$ = Adodc1.Recordset("Model")
LOT$ = Adodc1.Recordset("Lot")          'ñîõðàíÿåì ïîëîæåíèå â òàáëèöû

KolvoModel =  0   'îáíóëÿåì çíà÷åíèå
If Adodc1.Recordset.RecordCount <  1  Then: GoTo NULLS  'Ïåðåõîä åñëè çàïèñåé â áàçå íåò
'Adodc3.RecordSource = "SELECT SUM (KolVo) as [Summa] FROM Color WHERE [Model]like '" + MODEL + "' AND [Mes]= " & MPlan & " AND [God]= " & GodPlan & ""
Adodc1.RecordSource = "SELECT SUM (KolVo) as [Summa] FROM Baz WHERE [Model]='" & MODEL & "' AND [Mes]= " & MPlan & " AND [God]= " & GodPlan & ""
Adodc1.Refresh


KolvoModel = Adodc1.Recordset("Summa")  'çàíîñèì â ïåðåìåííóþ ïóáëè÷íóþ êîëè÷åñòâî ïî äàííîé ìîäåëè

NULLS:

StatusBar1.Panels( 3 ).Text = "Ïî " & MODEL & " êîë-âî :"
StatusBar1.Panels( 4 ).Text = KolvoModel

Refr

Adodc1.Recordset.AbsolutePosition = Poz
End Sub

Private Sub SaveBarcodeExpert()



Dim BCode As String 'ãîòîâûé áàðêîä
'Dim Klvo As Long   'Êîëè÷åñòâî èç ëîòà



'*****************************
'Çàïèñûâàåì äèàïàçîí íîìåðîâ äëÿ ýêñïåðòíîãî îòäåëà
'*****************************

'Îáúÿâëÿåì ñòðîêîâóþ ïåðåìåííóþ äëÿ íàçíà÷åíèÿ òèïîâ ôàéëîâ
Dim strFileType As String

'Åñëè âîçíèêíåò îøèáêà, ò.å.ïîëüçîâàòåëü íàæàë íà êëàâèøó Cancel,
'îòïðàâèòñÿ ê îáðàáîò÷èêó îøèáêè - ErrorHandler
On Error GoTo ErrorHandler1

'Îáåñïå÷èâàåì ãåíåðàöèþ îøèáêè
CommonDialog1.CancelError = True
 
'Èíèöèàëèçèðóåì ïåðåìåííóþ strFileName
strFileType = " TXT äàííûå (*.txt)|*.txt"

'Ïðèñâàèâàåì åå ñâîéñòâó Filter
CommonDialog1.Filter = strFileType

'Óñòàíàâëèâàåì íåîáõîäèìûé èíäåêñ
CommonDialog1.FilterIndex =  1 

'Ïðèñâàèâàåì íà÷àëüíóþ äèðåêòîðèþ ñâîéñòâó InitDir
CommonDialog1.InitDir = App.Path
'CommonDialog1.FileName = Adodc1.Recordset("Lot")   'îáçûâàåì ôàåë ïî íîìåðó ëîòà

'Îáåñïå÷èâàåì çàùèòó îò íåïðàâèëüíî ââåäåííîãî ôàéëà èëè äèðåêòîðèè, à àòêæå ñêðûâàåì ôëàæåê Read Only
CommonDialog1.flags = cdlOFNOverwritePrompt Or cdlOFNHideReadOnly

'Âûçûâàåì äèàëîã Save As
CommonDialog1.DialogTitle = "Ñîõðàíèòü ôàéë."

CommonDialog1.Action =  2  'Èëè æå CommonDialog1.ShowSave
'-----------------------------------------------------
         '  Adodc1.Recordset.Save CommonDialog1.FileName, adPersistXML

'Files$ = CommonDialog1.FileName
        
'        If Dir$(Files$) <> "" Then  'ïðîâåðÿåì íà ñóùåñòâîâàíèå ôàéëà
'            MsgBox ("ôàåë ñóùåñòâóåò")
'        Else
            'åñëè ôàéë íå ñóùåñòâóåì
            
            
         If Dir$(CommonDialog1.FileName) <> "" Then Kill (CommonDialog1.FileName)  'åñëè ôàåë ñóùåñòâóåò òî åìó ïðèáèâàåì
            
            
            
BCode = TxtNull( 2 , Trim(Str(Adodc1.Recordset("Mes")))) _
                        & Mid(Trim(Str(Adodc1.Recordset("God"))),  3 ,  2 ) _
                        & TxtNull( 5 , Adodc1.Recordset("Lot")) _
                        & TxtNull( 9 , Adodc1.Recordset("Model"))
            
            'Klvo = Adodc1.Recordset("KolVo")  'Çàíîñèì ïîëè÷åñòâî ïî äàííîìó ëîòó â ïåðåìåííóþ
            
            
            
            For ZZ =  1  To Adodc1.Recordset("KolVo")
            
                    dfsadf = SaveBarcode(CommonDialog1.FileName, BCode & TxtNull( 5 , Str(ZZ)))
            
            Next ZZ
            
            
            
            fd = MsgBox(CommonDialog1.FileName & " ñîõðàíåí", vbInformation, "Ñîõðàíåíî.")
            
'        End If
        
'-----------------------------------------------------

ErrorHandler1:


End Sub