Dalsi zmeny

_custom/Rootvin/sql/bp_Gatema_SDDecodeBarCode.sql

@@ -0,0 +1,47 @@
+-- dbo.BP_Gatema_SDDecodeBarCode
+CREATE PROCEDURE dbo.BP_Gatema_SDDecodeBarCode
+     @TypBC NVARCHAR(50),     --  '', 'CODABAR', 'EAN 13', 'EAN 128', 'CODE 128', 'CODE 39', 'DATAMATRIX', 'QRCODE', 'I2OF5', 'EAN 8', 'PDF417'
+     @BarCode NVARCHAR(2000),
+     @Pozadavek INT,          --   -1=um<75>st<73>n<EFBFBD>, 0=SSCC, 1=BC zbo<62><6F>, 10=<3D>ar<61>e, 15=dat.exp., 30=mno<6E>stv<74>, 90=ID p<><70>kaz
+     @IDOrg INT=NULL
+AS
+BEGIN
+
+-- Vol<6F> se p<>i pokusu z<>skat z <20><>rov<6F>ho k<>du konkr<6B>tn<74> informaci. Pokud procedura nechce prov<6F>d<EFBFBD>t dek<65>dov<6F>n<EFBFBD>, tak se jen ukon<6F><6E>,
+-- v opa<70>n<EFBFBD>m p<><70>pad<61> vrac<61> jeden z<>znam s jedn<64>m po<70>adovan<61>m <20>dajem (typ text/datum/<2F><>slo)
+-- Pokud vr<76>t<EFBFBD> z<>znam (text/<2F><>slo/datum), tak standardn<64> dek<65>dov<6F>n<EFBFBD> se ji<6A> nebude prov<6F>d<EFBFBD>t
+
+-- IF (@Pozadavek=1) AND (@TypBC=N'PDF417')
+--  SELECT LEFT(@BarCode,4)
+
+ DECLARE
+  @fncCode INT,
+  @typ NVARCHAR(50)=N'???',
+  @vraceno NVARCHAR(50)=N'',
+  @l SMALLINT
+
+
+
+ IF (@Pozadavek=-1)
+  SET @typ=N'um<EFBFBD>st<EFBFBD>n<EFBFBD>'
+ IF (@Pozadavek=1)
+  SET @typ=N'barcode'
+ IF (@Pozadavek=10)
+  SET @typ=N'<EFBFBD>ar<EFBFBD>e'
+ IF (@Pozadavek=15)
+  SET @typ=N'dat.exp.'
+ IF (@Pozadavek=30)
+  SET @typ=N'mno<EFBFBD>stv<EFBFBD>'
+ IF (@Pozadavek=90)
+  SET @typ=N'ID p<><70>kaz'
+ IF (@typ=N'???')
+  SET @typ=CONVERT(nvarchar, @Pozadavek)
+
+
+ SET @l = LEN(@BarCode)
+ 
+
+ INSERT dbo._hdc_ph_Log (LogText) SELECT @typ + N' >> ' + @Barcode
+
+
+END