Prvni verze

2025-05-21 21:06:33 +02:00
parent a976e7392e
commit fedc940ac4
189 changed files with 72374 additions and 17 deletions
--- a/libSys/plgZmeny.pas
+++ b/libSys/plgZmeny.pas
@ -0,0 +1,60 @@
+{ *************************************************************************** }
+{                                                                             }
+{! SKRIPTY BY M<>LY B<>T PS<50>NY TAK, ABY BYLY SPUSTITELN<4C> V<>CEKR<4B>T - TZN. M<>LY  !}
+{! BY OBSAHOVAT R<>ZN<5A> TESTY EXISTENCE - NAP<41>.:                               !}
+{                                                                             }
+{ -existuje tabulka TabXXX ?                                                  }
+{   IF OBJECT_ID('TabXXX','U')IS NOT NULL ...                                 }
+{                                                                             }
+{ -existuje sloupec ABC v tabulce TabXXX ?                                    }
+{   IF COLUMNPROPERTY(OBJECT_ID('TabXXX','U'),'ABC','AllowsNull')IS NOT NULL ... }
+{                                                                             }
+{ -existuje default DF__TabXXX__ABC na sloupci ABC v tabulce TabXXX ?         }
+{   IF OBJECT_ID('DF__TabXXX__ABC','D')IS NOT NULL ...                        }
+{                                                                             }
+{ kde vezmu 2. parametr syst<73>mov<6F> funkce OBJECT_ID() - je to sysobjects.xtype }
+{ - viz BOL                                                                   }
+{                                                                             }
+{!!! POZOR - POU<4F>IT<49> RETURN VE ZM<5A>NOV<4F>CH SKRIPTECH V plgZmeny.pas NEN<45> BEZTRESTN<54> !!!}
+{    -proto<74>e zm<7A>nov<6F> skripty jsou obaleny knihovanmi BEGIN TRAN..COMMIT, tak }
+{     by p<><70>padn<64> RETURN ponechal transakci neuzav<61>enou ! Proto bych m<>l      }
+{     pou<6F><75>t tuto konstrukci:                                                 }
+{         IF @@TRANCOUNT>0 ROLLBACK  /* nebo COMMIT dle situace */            }
+{         RETURN                                                              }
+{    -pokud je k<>d spou<6F>t<EFBFBD>n p<>es EXEC() nebo sp_executesql, tak tam naopak    }
+{     ROLLBACK (COMMIT) b<>t NESM<53>, proto<74>e RETURN ukon<6F>uje jen dan<61> EXEC()    }
+{    -<2D>pln<6C> nejlep<65><70> je se RETURNu ve zm<7A>nov<6F>ch skriptech <20>pln<6C> vyhnout       }
+{                                                                             }
+{ *************************************************************************** }
+
+unit plgZmeny;
+
+interface
+
+uses
+  plgType;
+
+{ =========================================================================== }
+
+const
+  GZmenoveSkripty : array[0..0] of TplgZmenovySkript =
+    (
+     // aby bylo mozno nemit zadny zmenovy skript,
+     // musi zustat prvni skript nedefinovan !!
+     (PlatiOd : $010020050210;
+      Skript  : '';
+     )
+
+//last
+    );
+
+{ =========================================================================== }
+
+implementation
+
+{ ########################################################################### }
+
+{ ########################################################################### }
+
+end.
+