<!--#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


if Request.Form("NOME")="" OR Request.Form("CNPJ")="" OR Request.Form("BANCO_NOME")="" OR Request.Form("BANCO_CODIGO")=""  OR Request.Form("AGENCIA_CODIGO")="" OR Request.Form("CONTA_CODIGO")="" then
	Response.Redirect "admedtrepre.asp?err=3"
End if
if Request.Form("SENHA")="" then
	quprepre="UPDATE T_REPRESENTANTE SET NOME='"&Request.Form("NOME")&"',CNPJ='"&Request.Form("CNPJ")&"',OBS_REPRESENTANTE='"&Request.Form("OBS_REPRESENTANTE")&"', FORMALIBERACAO='"&Request.Form("FORMALIBERACAO")&"',BANCO_NOME='"&Request.Form("BANCO_NOME")&"',BANCO_CODIGO='"&Request.Form("BANCO_CODIGO")&"', AGENCIA_CODIGO='"&Request.Form("AGENCIA_CODIGO")&"', CONTA_CODIGO='"&Request.Form("CONTA_CODIGO")&"' WHERE IDREPRESENTANTE="&Request.Form("IDREPRESENTANTE")
else
	quprepre="UPDATE T_REPRESENTANTE SET NOME='"&Request.Form("NOME")&"',CNPJ='"&Request.Form("CNPJ")&"',OBS_REPRESENTANTE='"&Request.Form("OBS_REPRESENTANTE")&"', FORMALIBERACAO='"&Request.Form("FORMALIBERACAO")&"',BANCO_NOME='"&Request.Form("BANCO_NOME")&"', BANCO_CODIGO='"&Request.Form("BANCO_CODIGO")&"', AGENCIA_CODIGO='"&Request.Form("AGENCIA_CODIGO")&"', CONTA_CODIGO='"&Request.Form("CONTA_CODIGO")&"' WHERE IDREPRESENTANTE="&Request.Form("IDREPRESENTANTE")
	qidusrrepre="SELECT IDUSR FROM T_REPRESENTANTE WHERE IDREPRESENTANTE="&Request.Form("IDREPRESENTANTE")
	Set RSidusrrepre=Conexao.Execute(qidusrrepre)
	quppasswd="UPDATE T_USR SET SENHA='"&Request.Form("SENHA")&"' WHERE IDUSR="&RSidusrrepre("IDUSR")
	Conexao.Execute(quppasswd)
End if
Conexao.Execute(quprepre)

prods=split(Request.Form("IDPRODUTO"),",")'Array de produtos selecionados'
'INSERINDO ITENS NÃO EXISTENTES **INICIO
For i=0 to UBound(prods)
	qx="SELECT COUNT(*) AS NUMERO FROM T_PRODREPRE WHERE IDPRODUTO="&prods(i)&" AND IDREPRESENTANTE="&Request.Form("IDREPRESENTANTE")
	Set RSx=Conexao.Execute(qx)
	if RSx("NUMERO")=0 then
		Conexao.Execute("INSERT INTO T_PRODREPRE (IDPRODUTO,IDREPRESENTANTE)VALUES("&prods(i)&","&Request.Form("IDREPRESENTANTE")&")")
	End if
Next
'INSERINDO ITENS NÃO EXISTENTES **FIM

'REMOVENDO ITENS RETIRADOS **INICIO
qY="SELECT * FROM T_PRODREPRE WHERE IDREPRESENTANTE="&Request.Form("IDREPRESENTANTE")
Set RSY=Conexao.Execute(qY)
Do Until RSY.EOF
	tem="nao"
	For i=0 to UBound(prods)
		if cInt(prods(i))=cInt(RSY("IDPRODUTO")) then
			tem="sim"
		End if
	Next	
	reg=RSY("IDPRODREPRE")
	RSY.MoveNext
	if tem="nao" then
		del="DELETE FROM T_PRODREPRE WHERE IDPRODREPRE="&reg
		Conexao.Execute(del) 
	End if
Loop
'REMOVENDO ITENS RETIRADOS **FIM

Response.Redirect "admrepre.asp"
%>