Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Private Sub SkleistasNr_DblClick(Cancel As Integer)
- Dim rs As ADODB.Recordset
- Dim rs1 As ADODB.Recordset
- Set rs = New ADODB.Recordset
- Set rs1 = New ADODB.Recordset
- Dim strLinkCriteria As String
- Dim strDocName As String
- Dim a As Long
- Dim b, r
- DoEvents
- If Me.Tipas = "MEL" Then
- pGANr = Me!GANR
- GautiMazgoKoda Me.UþsakymoNr
- pGANr = ""
- End If
- If Me.Tipas = "AVS" Or Me.Tipas = "ISS" Or Me.Tipas = "EAS" Or Me.Tipas = "MEL" Then
- r = Application.SysCmd(acSysCmdInitMeter, " Tikrinama schemu pasikeitimai", 10)
- 'TikrintiSchema Me.UþsakymoNr
- ' If Me.PakeistaSchema = True Then
- ' b = MsgBox("Ar rodyti si pranesima sekanti karta ?", 3, "Siam uzsakymui padarytas schemos pakeitimas")
- ' If b = 7 Then
- ' Me.PakeistaSchema = False
- ' End If
- 'End If
- r = Application.SysCmd(acSysCmdSetStatus, " ")
- End If
- Me.Refresh
- a = 0
- pGANr = ""
- If Not IsNull(Me.Kodas) Then
- strDocName = "FrUzsk1"
- rs.Open "select * from tbga where ganr=" & Me.GANR, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
- If (rs.EOF) = False Then
- rs.MoveFirst
- If rs!Pabaiga = True And IsNull(rs!NusiustasApskaitai) Then
- a = MsgBox("Ar redaguosite sena gamybos akta? Siuo metu jis dar neperduotas tolesniam forminimui. ", vbYesNo, "Ar redaguoti paskutini gamybos akta?")
- End If
- If a = 7 Then a = a 'pGANr = GamintiToliauKiti(Me)
- Else
- pGANr = Me!GANR
- End If
- If pGANr = "" Then pGANr = Me!GANR
- DoCmd.OpenForm strDocName, acNormal ', ("tbga.ganr=" & Me!GANr) '"SkleistasNr =" & "'" & Me.SkleistasNr & "'")
- Else
- pKodas = ""
- pGANr = Me!GANR
- MsgBox " Suveskite gaminio koda pagal atsiusta schema. Uzsakymui Nr= " & pSkleistasNr & " " & pKodas
- DoCmd.OpenForm "Frkodavimas", acNormal
- If Me.Tipas = "SKM" Then
- Form_FrKodavimas.mp.Value = 0
- ElseIf Me.Tipas = "SKU" Then
- Form_FrKodavimas.mp.Value = 1
- ElseIf Me.Tipas = "SKS3" Then
- Form_FrKodavimas.mp.Value = 2
- ElseIf Me.Tipas = "AVS" Then
- Form_FrKodavimas.mp.Value = 3
- ElseIf Me.Tipas = "MEL" Then
- ElseIf Me.Tipas = "SDU" Then
- Form_FrKodavimas.mp.Value = 4
- ElseIf Me.Tipas = "SDM" Then
- Form_FrKodavimas.mp.Value = 5
- ElseIf Me.Tipas = "ISS" Then
- Form_FrKodavimas.mp.Value = 8
- ElseIf Me.Tipas = "EAS" Then
- Form_FrKodavimas.mp.Value = 9
- End If
- pEilid = Me.EilId
- pServer = Me.Server
- End If
- 'Form_FrSpecif.Navision_kodas.SetFocus
- End Sub
- Private Sub CmbPabaiga_Click()
- Dim PagamintasKiekisBefor As Long
- If Me.CmbPabaiga.Value = True Then
- If (PatikrinamArNeraNuliniuPoziciju(Me)) = True Then
- MsgBox " GA yra itrauktu poziciju kiriu kiekis lygus nuliui, arba mazesnis uz nuli" & Chr(13) & "Prasom istrinti sias pozicijas arba nurodyti ju kiekius" & Chr(13) & Chr(13) & "Prasom pasitikrinti ar nurodete Vietini Sandeli i kuri perkelti gamini", , "Rastos Nulines pozicijos GA"
- Me.TxtbPabaigosData.Value = Null
- Me.CmbPabaiga = False
- Me.PagamintasKiekis.Locked = False
- Exit Sub
- End If
- If Me.Tipas <> "Kiti" Then Me.PagamintasKiekis.Value = 1
- PagamintasKiekisBefor = Me.PagamintasKiekis.Value
- Me.Refresh
- 'SpecifikacijosAtnaujinimas Me, Me.GANr
- VietinioSandelioAtzymejimas Me
- Me.TxtbPabaigosData.Value = Now
- Form_FrSpecif.Navision_kodas.Locked = True
- Form_FrSpecif.Kiekis.Locked = True
- Me.PagamintasKiekis.Locked = True
- If Me.Tipas = "Kiti" Then KiekiuPeskPagalPagaminta Me, Me.CmbPabaiga.Value
- Me.Refresh
- PerskaiciuotiBendraKieki Me, PagamintasKiekisBefor
- Me.Refresh
- AtzymetiUZSKPabaiga Me, True
- Else
- If (TikrinamArJauNusiustasApskaitai(Me)) = False Then
- PagamintasKiekisBefor = (Me.PagamintasKiekis.Value)
- Me.Refresh
- Me.TxtbPabaigosData.Value = Null
- VietinioSandelioAtzymejimoPanaikinimas Me
- Form_FrSpecif.Navision_kodas.Locked = False
- Form_FrSpecif.Kiekis.Locked = False
- Me.PagamintasKiekis.Locked = False
- AtzymetiUZSKPabaiga Me, False
- If Me.Tipas = "Kiti" Then KiekiuPeskPagalPagaminta Me, Me.CmbPabaiga.Value
- PerskaiciuotiBendraKieki Me, 0 'PagamintasKiekisBefor
- Me.PagamintasKiekis.Locked = False
- Else
- Me.CmbPabaiga = True
- Form_FrSpecif.Navision_kodas.Locked = True
- Form_FrSpecif.Kiekis.Locked = True
- Me.PagamintasKiekis.Locked = True
- End If
- End If
- Me.TBSpecif.SetFocus
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement