Zacatek uprav Ramcovy plan

_sql/ep_V03_HDC1.sql

@@ -84,19 +84,29 @@ IF (@rada IN (N'231')) AND (@idSklad=@sklMatHlavni) AND (@idSkladPrev=@sklPekarn
   CLOSE p
   DEALLOCATE p
 
--- zapis do pomocne tabulky
+-- zapis moznych puvodnich VC materialu do pomocne tabulky, u polotovaru je VC cislo paletoveho listu, to se musi nechat kvuli odpisu ze stavu VC !!!
   INSERT dbo._hdc_PZ_PuvodniVC (IDPohybZbozi, IDDoklad, IDZboSklad, VyrCis, IDVyrCis, Mnozstvi, Sarze, PaletovyList, IDUmisteni)
    SELECT p.ID, p.IDDoklad, p.IDZboSklad, vcp.Nazev, vcp.IDVyrCis, vcp.Mnozstvi, vcp.Nazev, vcs.Nazev1, p.IDUmisteni
     FROM dbo.TabPohybyZbozi p
+     INNER JOIN dbo.TabStavSkladu s ON (s.ID=p.IDZboSklad)
+     INNER JOIN dbo.TabKmenZbozi k ON (k.ID=s.IDKmenZbozi)
      INNER JOIN dbo.TabVyrCP vcp ON (vcp.IDPolozkaDokladu=p.ID)
      INNER JOIN dbo.TabVyrCS vcs ON (vcs.ID=vcp.IDVyrCis)
     WHERE p.IDDoklad=@IDDoklad
+--      AND k.Material=1
     ORDER BY p.Poradi, vcp.ID
+
 -- odstran umisteni, delalo by problem pri vydeji
   UPDATE dbo.TabPohybyZbozi SET IDUmisteni=NULL WHERE IDDoklad=@IDDoklad
   
--- smaz vyrobni cisla, jejich evidenci vede ProHolding
-  DELETE FROM dbo.TabVyrCP WHERE IDPolozkaDokladu IN (SELECT ID FROM dbo.TabPohybyZbozi WHERE IDDoklad=@IDDoklad)
+-- smaz vyrobni cisla/sarze materialu, jejich evidenci vede ProHolding - nesmi se mazat u vyrobenych polotovaru, u tech mame cislo paletoveho listu !!!
+-- jen materialy ???
+  DELETE FROM dbo.TabVyrCP WHERE IDPolozkaDokladu IN (SELECT p.ID FROM dbo.TabPohybyZbozi p INNER JOIN dbo.TabStavSkladu s ON (s.ID=p.IDZboSklad)
+                                                       INNER JOIN dbo.TabKmenZbozi k ON (k.ID=s.IDKmenZbozi) WHERE p.IDDoklad=@IDDoklad
+--                                                       AND k.Material=1
+                                                      )
+
+-- identity reseed tabulky pohybu VC
   SET @iTemp = ISNULL( (SELECT MAX(ID) FROM dbo.TabVyrCP), 0)
   DBCC CHECKIDENT (TabVyrCP, RESEED, @iTemp)
  END