Function Shema()

    Dim db As DAO.Database

    Dim Sl_Table1  As DAO.Recordset

    Dim rs As DAO.Recordset

    Dim rs2 As DAO.Recordset

    Dim Uslov As String

    'Uslov = Form_PitaIzdatnicu.IDPoz

    CurrentDb.Execute "DELETE*FROM [Shema]"

    CurrentDb.Execute "DELETE*FROM [ShemaTransfer]"

 

    DoCmd.Hourglass True

   

    Set db = CurrentDb()

   Select Case IDKategorije

       Case 0

        DoCmd.OpenQuery "kStroj-grupa 00 append", acNormal, acEdit

        DoCmd.OpenQuery "kStroj-grupa 01 append", acNormal, acEdit

        DoCmd.OpenQuery "kStroj-grupa 02 append", acNormal, acEdit

        DoCmd.OpenQuery "kStroj-grupa 03 append", acNormal, acEdit

        DoCmd.OpenQuery "kStroj-grupa 04 append", acNormal, acEdit

        DoCmd.OpenQuery "kStroj-grupa 05 append", acNormal, acEdit

        DoCmd.OpenQuery "kStroj-grupa 06 append", acNormal, acEdit

        DoCmd.OpenQuery "kStroj-grupa 07 append", acNormal, acEdit

       Case 1

        DoCmd.OpenQuery "st10-Shema-Stroj-Sklop-Podsklop-Cvor", acNormal, acEdit

        DoCmd.OpenQuery "st11-Shema-Stroj-Sklop-Podsklop", acNormal, acEdit

        DoCmd.OpenQuery "st12-Shema-Stroj-Sklop-Cvor", acNormal, acEdit

        DoCmd.OpenQuery "st13-Shema-Stroj-Sklop", acNormal, acEdit

        DoCmd.OpenQuery "st14-Shema-Stroj-Podsklop-Cvor", acNormal, acEdit

        DoCmd.OpenQuery "st15-Shema-Stroj-Podsklop", acNormal, acEdit

        DoCmd.OpenQuery "st16-Shema-Stroj-Cvor", acNormal, acEdit

        DoCmd.OpenQuery "st17-Shema-Stroj", acNormal, acEdit

       Case 2

        DoCmd.OpenQuery "sk300-Shema-Sklop-Podsklop-Cvor", acNormal, acEdit

        DoCmd.OpenQuery "sk301-Shema-Sklop-Podsklop", acNormal, acEdit

        DoCmd.OpenQuery "sk302-Shema-Sklop-Cvor", acNormal, acEdit

        DoCmd.OpenQuery "sk303-Shema-Sklop", acNormal, acEdit

       Case 3

        DoCmd.OpenQuery "ps500-Shema-Podsklop-Cvor", acNormal, acEdit

        DoCmd.OpenQuery "ps501-Shema-Podsklop", acNormal, acEdit

       Case 4

        DoCmd.OpenQuery "cv700-Shema-Cvor", acNormal, acEdit

    End Select

   DoCmd.Hourglass False

    Set db = CurrentDb()

    Set Sl_Table1 = db.OpenRecordset("QryShema", dbOpenDynaset)

    If Sl_Table1.RecordCount <= 0 Then

           MsgBox "Å ema za ovu tehnoloÅ¡ku cijelinu nije složena", vbInformation, "Informacija"

        GoTo Kraj

    Else

            '--------------------------'

      Slozi ' Poziva se funkcija SLOZI '

            '--------------------------'

    End If

Kraj:

    Set db = Nothing

End Function

Function Slozi()

Dim Baza As Database

    Dim Sl_Table1  As Recordset

    Dim Sl_Table2  As Recordset

    Dim Usl_Poz   As String

    Dim Sl_Poz   As Recordset

    Dim Stroj As String

    Dim Sklop   As String

    Dim Podsklop  As String

    Dim Cvor As String

    Dim tekuciStroj As String

    Dim tekuciSklop As String

    Dim tekuciPodsklop   As String

    Dim tekuciCvor As String

    Dim stDocName As String

   

     DoCmd.Hourglass True

       

        tekuciStroj = " "

        tekuciSklop = " "

        tekuciPodsklop = " "

        tekuciCvor = " "

   

    Set Baza = CurrentDb()

    Set Sl_Table2 = Baza.OpenRecordset("ShemaTransfer", dbOpenDynaset)

    Set Sl_Table1 = Baza.OpenRecordset("QryShema", dbOpenDynaset)

   

   

 Sl_Table1.MoveFirst

       

          While Not Sl_Table1.EOF

                Stroj = Sl_Table1![IDStr]

         

          If Not IsNull(Sl_Table1![IDSkl]) Then

                Sklop = Sl_Table1![IDSkl]

          End If

         

          If Not IsNull(Sl_Table1![IDPskl]) Then

             Podsklop = Sl_Table1![IDPskl]

          End If

         

          If Not IsNull(Sl_Table1![IDCv]) Then

              Cvor = Sl_Table1![IDCv]

          End If

 

          If Sl_Table1![IDStr] <> tekuciStroj Then

         

            With Sl_Table2

               .AddNew

               ![IDStroja] = Sl_Table1![IDKombinacija]

               ![Nivo] = 0

               ![KomStr] = Sl_Table1![KomStr]

               ![Index] = Sl_Table1![IndexStroj]

               ![IDdijela] = Sl_Table1![IDStr]

               ![BrKomada] = Sl_Table1![KomStr]

               ![BrKomadaSum] = Sl_Table1![KomStr]

               .Update

              End With

            End If

             

          If Sl_Table1![IDSkl] <> tekuciSklop Then

          ' dodaje slog za Sklop

             With Sl_Table2

               .AddNew

               ![IDStroja] = Sl_Table1![IDKombinacija]

               ![Nivo] = 1

               ![KomStr] = Sl_Table1![KomStr]

               ![Index] = Sl_Table1![IndexSklop]

               ![IDdijela] = Sl_Table1![IDSkl]

               ![BrKomada] = Sl_Table1![KomSkl]

               ![BrKomadaSum] = Sl_Table1![KomSkl] * Sl_Table1![KomStr]

               .Update

            End With

          End If

         

          If Not IsNull(Sl_Table1![IDPskl]) And Sl_Table1![IDPskl] <> tekuciPodsklop Then

            ' dodaje slog za Podsklop

            With Sl_Table2

               .AddNew

               ![IDStroja] = Sl_Table1![IDKombinacija]

               ![Nivo] = 2

               ![KomStr] = Sl_Table1![KomStr]

               ![Index] = Sl_Table1![IndexPodsklop]

               ![IDdijela] = Sl_Table1![IDPskl]

               ![BrKomada] = Sl_Table1![KomPskl]

               ![BrKomadaSum] = Sl_Table1![KomPskl] * Sl_Table1![KomSkl] * Sl_Table1![KomStr]

               .Update

            End With

          End If

         

          If Not IsNull(Sl_Table1![IDCv]) And Sl_Table1![IDCv] <> tekuciCvor Then

            ' dodaje slog za Cvor

            With Sl_Table2

               .AddNew

               ![IDStroja] = Sl_Table1![IDKombinacija]

               ![Nivo] = 3

               ![KomStr] = Sl_Table1![KomStr]

               ![Index] = Sl_Table1![IndexCvor]

               ![IDdijela] = Sl_Table1![IDCv]

               ![BrKomada] = Sl_Table1![KomCv]

               ![BrKomadaSum] = Sl_Table1![KomCv] * Sl_Table1![KomPskl] * Sl_Table1![KomSkl] * Sl_Table1![KomStr]

               .Update

            End With

           

            Usl_Poz = "SELECT * FROM [QryShema] WHERE IDStr ='" & Stroj _

                                        & "' And IDSkl ='" & Sklop _

                                        & "' And IDPskl ='" & Podsklop _

                                        & "' And IDcv ='" & Cvor & "'"

           

            Set Sl_Poz = Baza.OpenRecordset(Usl_Poz, dbOpenDynaset)

           

            If Sl_Poz.RecordCount > 0 Then

              Sl_Poz.MoveFirst

              While Not Sl_Poz.EOF   ' dodaje slogove za Pozicije

                  With Sl_Table2

                  If Not IsNull(Sl_Table1![IDPoz]) Then

                      .AddNew

                      ![IDStroja] = Sl_Table1![IDKombinacija]

                      ![Nivo] = 4

                      ![KomStr] = Sl_Table1![KomStr]

                      ![Index] = Sl_Table1![IndexPoz]

                      ![IDdijela] = Sl_Poz![IDPoz]

                      ![BrKomada] = Sl_Poz![KomPoz]

                      ![BrKomadaSum] = Sl_Poz![KomPoz] * Sl_Table1![KomCv] * Sl_Table1![KomPskl] * Sl_Table1![KomSkl] * Sl_Table1![KomStr]

                      .Update

                      End If

                  End With

                  Sl_Poz.MoveNext

              Wend

            End If

          End If

          tekuciStroj = Stroj

          tekuciSklop = Sklop

          tekuciPodsklop = Podsklop

          tekuciCvor = Cvor

          Sl_Table1.MoveNext

         

        Wend

         DoCmd.Hourglass False

End Function