SQL Kefalo » Blog Archive » Provera JMBG

Provera JMBG – Print

Objavljeno: 29-09-2014 | Autor: Nenad Živković | Kategorija: Skriptovi

0

-- ****************************************************************
-- www.sql-kefalo.net
-- ****************************************************************
-- Autor: Nenad Zivkovic
-- Datum: 02.09.2014
-- Opis: Skript koji ispisuje informacije koje je moguce procitati iz JMBG-a
-- Clanak: http://www.sql-kefalo.net/2014/09/provera-jmbg
-- ****************************************************************
DECLARE @JMBG NVARCHAR(MAX);
SET @JMBG = ''; --unesite JMBG ovde

IF @JMBG IS NULL OR @JMBG = ''
BEGIN
	PRINT N'JMBG nije prosleđen';
	RETURN;  
END;

IF ISNUMERIC(@JMBG)<>1 
BEGIN	
	PRINT N'JMBG nije validan - nisu svi znakovi brojevi';
	RETURN;
END;

IF LEN(@JMBG) > 13 
BEGIN 
	PRINT N'JMBG nije validan - ima više brojeva nego što je predviđeno';
	RETURN;
END;
IF LEN(@JMBG) < 13 
BEGIN 
	PRINT N'JMBG nije validan - ima manje brojeva nego što je predviđeno';
	RETURN;
END;

DECLARE @Dan NVARCHAR(2);
DECLARE @Mesec NVARCHAR(2);
DECLARE @Godina NVARCHAR(4);
DECLARE @Region NVARCHAR(2);
DECLARE @RedniBroj NVARCHAR(3);

SELECT @Dan = SUBSTRING(@JMBG,1,2);
SELECT @Mesec = SUBSTRING(@JMBG,3,2);
SELECT @Godina = SUBSTRING(@JMBG,5,3);
SELECT @Region = SUBSTRING(@JMBG,8,2);
SELECT @RedniBroj = SUBSTRING(@JMBG,10,3);

IF @Godina<800 SET @Godina = @Godina + 2000;
ELSE SET @Godina = @Godina + 1000;


IF ISDATE(@Godina + @Mesec + @Dan) <> 1 PRINT N'Datum rođenja nije validan';
ELSE
BEGIN
	DECLARE @DatumRodj DATETIME;
	SELECT @DatumRodj = CONVERT(DATETIME,@Godina + @Mesec + @Dan,112);
	PRINT N'Datum rođenja: ' + @Dan + '.' + @Mesec + '.' + @Godina;
	IF @DatumRodj > GETDATE() PRINT N'Datum rođenja je u budućnosti!';
END;

DECLARE @Republika NVARCHAR(MAX);
DECLARE @RegionTekst NVARCHAR(MAX);

SELECT @Republika = 
	CASE LEFT(@Region,1) WHEN '0' THEN N'Strani državljanin' + CASE @Region WHEN '01' THEN N' u BIH'
																		   WHEN '02' THEN N' u Crnoj Gori'
																		   WHEN '03' THEN N' u Hrvatskoj'
																		   WHEN '04' THEN N' u Makedoniji'
																		   WHEN '05' THEN N' u Sloveniji'
																		   WHEN '07' THEN N' u Srbiji'
																		   WHEN '08' THEN N' u Vojvodini'
																		   WHEN '09' THEN N' na Kosovu'
																		   ELSE ''
																END
						 WHEN '1' THEN N'Bosna i Hercegovina'
						 WHEN '2' THEN N'Crna Gora'
						 WHEN '3' THEN N'Hrvatska'
						 WHEN '4' THEN N'Makedonija'
						 WHEN '5' THEN N'Slovenija'
						 WHEN '6' THEN N'/'
						 WHEN '7' THEN N'Srbija (centralna)'
						 WHEN '8' THEN N'Srbija (Vojvodina)'
						 WHEN '9' THEN N'Srbija (Kosovo)'
	END;
PRINT N'Republika/Pokrajina: ' + @Republika;

SELECT @RegionTekst = 
	CASE @Region WHEN '10' THEN N'Banja Luka'
	             WHEN '11' THEN N'Bihać'
                 WHEN '12' THEN N'Doboj'
                 WHEN '13' THEN N'Goražde'
                 WHEN '14' THEN N'Livno'
                 WHEN '15' THEN N'Mostar'
                 WHEN '16' THEN N'Prijedor'
                 WHEN '17' THEN N'Sarajevo'
                 WHEN '18' THEN N'Tuzla'
                 WHEN '19' THEN N'Zenica'

				 WHEN '21' THEN N'Podgorica'
                 WHEN '22' THEN N'Bar, Ulcinj'
                 WHEN '23' THEN N'Budva, Kotor, Tivat'
                 WHEN '24' THEN N'Herceg Novi'
                 WHEN '25' THEN N'Cetinje'
                 WHEN '26' THEN N'Nikšić'
                 WHEN '27' THEN N'Berane, Rožaje, Plav, Andrijevica'
                 WHEN '28' THEN N'Bijelo Polje, Mojkovac'
                 WHEN '29' THEN N'Pljevlja, Žabljak'

				 WHEN '30' THEN N'Osijek'
				 WHEN '31' THEN N'Podravina'
                 WHEN '32' THEN N'Međimurje'
                 WHEN '33' THEN N'Zagreb'
                 WHEN '34' THEN N'Karlovac'
                 WHEN '35' THEN N'Lika'
                 WHEN '36' THEN N'Rijeka i Istra'
                 WHEN '37' THEN N'Karlovac'
                 WHEN '38' THEN N'Dalmacija'

                 WHEN '41' THEN N'Bitola'
                 WHEN '42' THEN N'Kumanovo'
                 WHEN '43' THEN N'Ohrid'
                 WHEN '44' THEN N'Prilep'
                 WHEN '45' THEN N'Skoplje'
                 WHEN '46' THEN N'Strumica'
                 WHEN '47' THEN N'Tetovo'
                 WHEN '48' THEN N'Veles'
                 WHEN '49' THEN N'Štip'

				 WHEN '50' THEN N'/' -- samo je broj 50 u upotrebi za čitavu Sloveniju

				 WHEN '71' THEN N'Beograd'
				 WHEN '72' THEN N'Kragujevac, Jagodina'
				 WHEN '73' THEN N'Niš, Pirot, Toplica'
				 WHEN '74' THEN N'Leskovac, Vranje'
				 WHEN '75' THEN N'Bor, Zaječar'
				 WHEN '76' THEN N'Smederevo, Požarevac'
				 WHEN '77' THEN N'Mačva, Kolubara'
				 WHEN '78' THEN N'Kraljevo, Kruševac'
				 WHEN '79' THEN N'Užice'

				 WHEN '80' THEN N'Novi Sad'
				 WHEN '81' THEN N'Sombor'
				 WHEN '82' THEN N'Subotica'
				 WHEN '83' THEN N'Vrbas'
				 WHEN '84' THEN N'Kikinda'
				 WHEN '85' THEN N'Zrenjanin'
				 WHEN '86' THEN N'Pančevo'
				 WHEN '87' THEN N'Vršac'
				 WHEN '88' THEN N'Ruma'
				 WHEN '89' THEN N'Sremska Mitrovica'

				 WHEN '91' THEN N'Priština'
				 WHEN '92' THEN N'Kosovska Mitrovica'
				 WHEN '93' THEN N'Peć'
				 WHEN '94' THEN N'Đakovica'
				 WHEN '95' THEN N'Prizren'
				 WHEN '96' THEN N'Gnjilane'

				 ELSE '/'
	END;

PRINT N'Region: ' + @RegionTekst

DECLARE @Pol NVARCHAR(1);
SELECT @Pol = CASE WHEN @RedniBroj < 500 THEN N'M' ELSE N'Ž' END;

PRINT N'Pol: ' + @Pol

DECLARE @Rbr INT
SELECT @Rbr = CASE WHEN @RedniBroj < 500 THEN CAST(@RedniBroj AS INT) + 1
			       ELSE CAST(@RedniBroj AS INT) - 499 END;

PRINT N'Redni broj (region/dan/pol): ' + CAST(@Rbr AS NVARCHAR(3));

--ABC DEF GHI JKL M
DECLARE @A INT; 
DECLARE @B INT; 
DECLARE @C INT; 
DECLARE @D INT; 
DECLARE @E INT; 
DECLARE @F INT; 
DECLARE @G INT;
DECLARE @H INT;
DECLARE @I INT;
DECLARE @J INT;
DECLARE @K INT;
DECLARE @L INT;
DECLARE @M INT;

SELECT @A = SUBSTRING(@JMBG,1,1);
SELECT @B = SUBSTRING(@JMBG,2,1);
SELECT @C = SUBSTRING(@JMBG,3,1);
SELECT @D = SUBSTRING(@JMBG,4,1);
SELECT @E = SUBSTRING(@JMBG,5,1);
SELECT @F = SUBSTRING(@JMBG,6,1);
SELECT @G = SUBSTRING(@JMBG,7,1);
SELECT @H = SUBSTRING(@JMBG,8,1);
SELECT @I = SUBSTRING(@JMBG,9,1);
SELECT @J = SUBSTRING(@JMBG,10,1);
SELECT @K = SUBSTRING(@JMBG,11,1);
SELECT @L = SUBSTRING(@JMBG,12,1);
SELECT @M = SUBSTRING(@JMBG,13,1);

DECLARE @Provera INT;

SELECT @Provera =  11 - (( 7*(@A+@G) + 6*(@B+@H) + 5*(@C+@I) + 4*(@D+@J) + 3*(@E+@K) + 2*(@F+@L) ) % 11);
IF (@Provera > 9) SET @Provera = 0;

IF @Provera <> @M  PRINT N'Kontrolni cifra nije dobra! JMBG nije validan!';
ELSE PRINT N'Kontrolna cifra je dobra';

IF @Dan = DAY(GETDATE()) AND @Mesec = MONTH(GETDATE()) PRINT N'Srećan Rođendan! :)'

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

-- ****************************************************************

-- www.sql-kefalo.net

-- ****************************************************************

-- Autor: Nenad Zivkovic

-- Datum: 02.09.2014

-- Opis: Skript koji ispisuje informacije koje je moguce procitati iz JMBG-a

-- Clanak: http://www.sql-kefalo.net/2014/09/provera-jmbg

-- ****************************************************************

DECLARE @JMBG NVARCHAR(MAX);

SET @JMBG = ''; --unesite JMBG ovde

IF @JMBG IS NULL OR @JMBG = ''

BEGIN

PRINT N'JMBG nije prosleđen';

RETURN;

END;

IF ISNUMERIC(@JMBG)<>1

BEGIN

PRINT N'JMBG nije validan - nisu svi znakovi brojevi';

RETURN;

END;

IF LEN(@JMBG) > 13

BEGIN

PRINT N'JMBG nije validan - ima više brojeva nego što je predviđeno';

RETURN;

END;

IF LEN(@JMBG) < 13

BEGIN

PRINT N'JMBG nije validan - ima manje brojeva nego što je predviđeno';

RETURN;

END;

DECLARE @Dan NVARCHAR(2);

DECLARE @Mesec NVARCHAR(2);

DECLARE @Godina NVARCHAR(4);

DECLARE @Region NVARCHAR(2);

DECLARE @RedniBroj NVARCHAR(3);

SELECT @Dan = SUBSTRING(@JMBG,1,2);

SELECT @Mesec = SUBSTRING(@JMBG,3,2);

SELECT @Godina = SUBSTRING(@JMBG,5,3);

SELECT @Region = SUBSTRING(@JMBG,8,2);

SELECT @RedniBroj = SUBSTRING(@JMBG,10,3);

IF @Godina<800 SET @Godina = @Godina + 2000;

ELSE SET @Godina = @Godina + 1000;

IF ISDATE(@Godina + @Mesec + @Dan) <> 1 PRINT N'Datum rođenja nije validan';

ELSE

BEGIN

DECLARE @DatumRodj DATETIME;

SELECT @DatumRodj = CONVERT(DATETIME,@Godina + @Mesec + @Dan,112);

PRINT N'Datum rođenja: ' + @Dan + '.' + @Mesec + '.' + @Godina;

IF @DatumRodj > GETDATE() PRINT N'Datum rođenja je u budućnosti!';

END;

DECLARE @Republika NVARCHAR(MAX);

DECLARE @RegionTekst NVARCHAR(MAX);

SELECT @Republika =

CASE LEFT(@Region,1) WHEN '0' THEN N'Strani državljanin' + CASE @Region WHEN '01' THEN N' u BIH'

WHEN '02' THEN N' u Crnoj Gori'

WHEN '03' THEN N' u Hrvatskoj'

WHEN '04' THEN N' u Makedoniji'

WHEN '05' THEN N' u Sloveniji'

WHEN '07' THEN N' u Srbiji'

WHEN '08' THEN N' u Vojvodini'

WHEN '09' THEN N' na Kosovu'

ELSE ''

END

WHEN '1' THEN N'Bosna i Hercegovina'

WHEN '2' THEN N'Crna Gora'

WHEN '3' THEN N'Hrvatska'

WHEN '4' THEN N'Makedonija'

WHEN '5' THEN N'Slovenija'

WHEN '6' THEN N'/'

WHEN '7' THEN N'Srbija (centralna)'

WHEN '8' THEN N'Srbija (Vojvodina)'

WHEN '9' THEN N'Srbija (Kosovo)'

END;

PRINT N'Republika/Pokrajina: ' + @Republika;

SELECT @RegionTekst =

CASE @Region WHEN '10' THEN N'Banja Luka'

WHEN '11' THEN N'Bihać'

WHEN '12' THEN N'Doboj'

WHEN '13' THEN N'Goražde'

WHEN '14' THEN N'Livno'

WHEN '15' THEN N'Mostar'

WHEN '16' THEN N'Prijedor'

WHEN '17' THEN N'Sarajevo'

WHEN '18' THEN N'Tuzla'

WHEN '19' THEN N'Zenica'

WHEN '21' THEN N'Podgorica'

WHEN '22' THEN N'Bar, Ulcinj'

WHEN '23' THEN N'Budva, Kotor, Tivat'

WHEN '24' THEN N'Herceg Novi'

WHEN '25' THEN N'Cetinje'

WHEN '26' THEN N'Nikšić'

WHEN '27' THEN N'Berane, Rožaje, Plav, Andrijevica'

WHEN '28' THEN N'Bijelo Polje, Mojkovac'

WHEN '29' THEN N'Pljevlja, Žabljak'

WHEN '30' THEN N'Osijek'

WHEN '31' THEN N'Podravina'

WHEN '32' THEN N'Međimurje'

WHEN '33' THEN N'Zagreb'

WHEN '34' THEN N'Karlovac'

WHEN '35' THEN N'Lika'

WHEN '36' THEN N'Rijeka i Istra'

WHEN '37' THEN N'Karlovac'

WHEN '38' THEN N'Dalmacija'

WHEN '41' THEN N'Bitola'

WHEN '42' THEN N'Kumanovo'

WHEN '43' THEN N'Ohrid'

WHEN '44' THEN N'Prilep'

WHEN '45' THEN N'Skoplje'

WHEN '46' THEN N'Strumica'

WHEN '47' THEN N'Tetovo'

WHEN '48' THEN N'Veles'

WHEN '49' THEN N'Štip'

WHEN '50' THEN N'/' -- samo je broj 50 u upotrebi za čitavu Sloveniju

WHEN '71' THEN N'Beograd'

WHEN '72' THEN N'Kragujevac, Jagodina'

WHEN '73' THEN N'Niš, Pirot, Toplica'

WHEN '74' THEN N'Leskovac, Vranje'

WHEN '75' THEN N'Bor, Zaječar'

WHEN '76' THEN N'Smederevo, Požarevac'

WHEN '77' THEN N'Mačva, Kolubara'

WHEN '78' THEN N'Kraljevo, Kruševac'

WHEN '79' THEN N'Užice'

WHEN '80' THEN N'Novi Sad'

WHEN '81' THEN N'Sombor'

WHEN '82' THEN N'Subotica'

WHEN '83' THEN N'Vrbas'

WHEN '84' THEN N'Kikinda'

WHEN '85' THEN N'Zrenjanin'

WHEN '86' THEN N'Pančevo'

WHEN '87' THEN N'Vršac'

WHEN '88' THEN N'Ruma'

WHEN '89' THEN N'Sremska Mitrovica'

WHEN '91' THEN N'Priština'

WHEN '92' THEN N'Kosovska Mitrovica'

WHEN '93' THEN N'Peć'

WHEN '94' THEN N'Đakovica'

WHEN '95' THEN N'Prizren'

WHEN '96' THEN N'Gnjilane'

ELSE '/'

END;

PRINT N'Region: ' + @RegionTekst

DECLARE @Pol NVARCHAR(1);

SELECT @Pol = CASE WHEN @RedniBroj < 500 THEN N'M' ELSE N'Ž' END;

PRINT N'Pol: ' + @Pol

DECLARE @Rbr INT

SELECT @Rbr = CASE WHEN @RedniBroj < 500 THEN CAST(@RedniBroj AS INT) + 1

ELSE CAST(@RedniBroj AS INT) - 499 END;

PRINT N'Redni broj (region/dan/pol): ' + CAST(@Rbr AS NVARCHAR(3));

--ABC DEF GHI JKL M

DECLARE @A INT;

DECLARE @B INT;

DECLARE @C INT;

DECLARE @D INT;

DECLARE @E INT;

DECLARE @F INT;

DECLARE @G INT;

DECLARE @H INT;

DECLARE @I INT;

DECLARE @J INT;

DECLARE @K INT;

DECLARE @L INT;

DECLARE @M INT;

SELECT @A = SUBSTRING(@JMBG,1,1);

SELECT @B = SUBSTRING(@JMBG,2,1);

SELECT @C = SUBSTRING(@JMBG,3,1);

SELECT @D = SUBSTRING(@JMBG,4,1);

SELECT @E = SUBSTRING(@JMBG,5,1);

SELECT @F = SUBSTRING(@JMBG,6,1);

SELECT @G = SUBSTRING(@JMBG,7,1);

SELECT @H = SUBSTRING(@JMBG,8,1);

SELECT @I = SUBSTRING(@JMBG,9,1);

SELECT @J = SUBSTRING(@JMBG,10,1);

SELECT @K = SUBSTRING(@JMBG,11,1);

SELECT @L = SUBSTRING(@JMBG,12,1);

SELECT @M = SUBSTRING(@JMBG,13,1);

DECLARE @Provera INT;

SELECT @Provera = 11 - (( 7*(@A+@G) + 6*(@B+@H) + 5*(@C+@I) + 4*(@D+@J) + 3*(@E+@K) + 2*(@F+@L) ) % 11);

IF (@Provera > 9) SET @Provera = 0;

IF @Provera <> @M PRINT N'Kontrolni cifra nije dobra! JMBG nije validan!';

ELSE PRINT N'Kontrolna cifra je dobra';

IF @Dan = DAY(GETDATE()) AND @Mesec = MONTH(GETDATE()) PRINT N'Srećan Rođendan! :)'

Provera JMBG – Print

Objavljeno: 29-09-2014 | Autor: Nenad Živković | Kategorija: Skriptovi

0

Napišite komentar

Prijava na mejling listu

Najnoviji članci