<!--#include file="admperm.asp" -->
<!--#include file="../bd.asp" -->
<%
'** FUNCAO VALIDA CNPJ **INICIO
Function ValidaCGC (CGC)
Dim retorno, a, j, i, d1, d2

If isNumeric(CGC) = False Then
ValidaCGC = False
Else 
If Len(CGC) = 8 And cdbl(CGC) > 0 Then
a = 0
j = 0
d1 = 0
For i = 1 To 7
a = cdbl(Mid(CGC, i, 1))
If (i Mod 2) <> 0 Then
a = a * 2
End If
If a > 9 Then
j = j + Int(a / 10) + (a Mod 10)
Else
j = j + a
End If
Next
If ((j Mod 10) <> 0) Then
d1 = 10 - (j Mod 10)
Else
d1 = 0 
End If 
If d1 = cdbl(Mid(CGC, 8, 1)) Then
ValidaCGC = True
Else
ValidaCGC = False
End If
Else
If Len(CGC) = 14 And cdbl(CGC) > 0 Then
a = 0
i = 0
d1 = 0
d2 = 0
j = 5
For i = 1 To 12 Step 1
a = a + (cdbl(Mid(CGC, i, 1)) * j) 
If (j > 2) Then 
j = j - 1
Else 
j = 9
End If 
Next
a = a Mod 11
If (a > 1) Then
d1 = 11 - a
Else 
d1 = 0
End If
a = 0
i = 0
j = 6
For i = 1 To 13 Step 1
a = a + (cdbl(Mid(CGC, i, 1)) * j)
If (j > 2) Then
j = j - 1
Else 
j = 9
End If
Next
a = a Mod 11 
If (a > 1) Then 
d2 = 11 - a
Else
d2 = 0
End If
If (d1 = cdbl(Mid(CGC, 13, 1)) And d2 = cdbl(Mid(CGC, 14, 1))) Then
ValidaCGC = True
Else
ValidaCGC = False
End If
Else
ValidaCGC = False
End If
End If
End If
End Function


'** FUNCAO VALIDA CNPJ **FIM
For i=1 to Request.Form.Count
	if Request.Form.Key(i)<>"OBS_REPRESENTANTE" then
		if Request.Form.Item(i)="" then
			Response.Redirect "admrepre.asp?err=3"
		End if
	End if
Next
if Request.Form("SENHA")<>Request.Form("CONFIRMACAO") then
	Response.Redirect "admrepre.asp?err=12"
End if

if validacgc(Request.Form("CNPJ"))=false then
	Response.Redirect "admrepre.asp?err=4"
End if

qtem="SELECT COUNT(*) AS NUMERO FROM T_USR WHERE USUARIO='"&Request.Form("USUARIO")&"'"
Set RStem=Conexao.Execute(qtem)
if RStem("NUMERO")>0 then
	Response.Redirect "admrepre.asp?err=67"
End if

'**** INSERINDO USUARIO ** INICIO
qinsusr="INSERT INTO T_USR (IDTIPOUSR,NOME,USUARIO,SENHA,STATUS) VALUES (3,'"&Request.Form("NOME")&"','"&Request.Form("USUARIO")&"','"&Request.Form("SENHA")&"','"&Request.Form("STATUS")&"')"
Conexao.Execute(qinsusr)
qidusr="SELECT * FROM T_USR ORDER BY IDUSR DESC"
Set RSidusr=Conexao.Execute(qidusr)
'**** INSERINDO USUARIO ** FIM

'**** INSERINDO REPRESENTANTE ** INICIO
qinsrepre="INSERT INTO T_REPRESENTANTE (IDUSR,NOME,CNPJ,STATUS,OBS_REPRESENTANTE,FORMALIBERACAO,BANCO_NOME,BANCO_CODIGO,AGENCIA_CODIGO,CONTA_CODIGO)VALUES("&RSidusr("IDUSR")&",'"&Request.Form("NOME")&"','"&Request.Form("CNPJ")&"','"&Request.Form("STATUS")&"','"&Request.Form("OBS_REPRESENTANTE")&"','"&Request.Form("FORMALIBERACAO")&"','"&Request.Form("BANCO_NOME")&"','"&Request.Form("BANCO_CODIGO")&"','"&Request.Form("AGENCIA_CODIGO")&"','"&Request.Form("CONTA_CODIGO")&"')"
Conexao.Execute(qinsrepre)
'**** INSERINDO REPRESENTANTE ** INICIO

qult="SELECT * FROM T_REPRESENTANTE ORDER BY IDREPRESENTANTE DESC"
Set RSult=Conexao.Execute(qult)

prods=split(Request.Form("IDPRODUTO"),",")
For i=0 to UBound(prods)
	qx="INSERT INTO T_PRODREPRE (IDPRODUTO,IDREPRESENTANTE)VALUES("&prods(i)&","&RSult("IDREPRESENTANTE")&")"
	Conexao.Execute(qx)
Next
Response.Redirect "admrepre.asp"
%>