PK

<%'--------------------------- CUENTA CORRIENTE

rs.open "SELECT cli_estadocc,cli_email FROM Clientes WHERE cli_email = '" & LCASE(TRIM(request("ped_email"))) & "'",conn,2,2
rs.movefirst
dim total_CC, T_Cobros, T_pedidos
total_CC=0

rs1.open "SELECT * FROM Cobros WHERE cob_email = '" & rs("cli_email") & "'",conn,3,1
if not rs1.EOF then
	rs1.movefirst
	
	do until rs1.EOF
		if rs1("cob_monto") <> 0 then total_CC = total_CC + rs1("cob_monto")
		rs1.movenext
	loop
	
end if
rs1.close

T_Cobros = total_CC

T_pedidos = 0

rs1.open "SELECT * FROM Pedidos WHERE ped_email = '" & rs("cli_email") & "' ORDER BY ped_now",conn,2,2
if not rs1.EOF then
	rs1.movefirst
	
	do until rs1.EOF	
		if rs1("ped_costoenvio") > 0 then total_CC = total_CC - rs1("ped_costoenvio")
		if rs1("ped_monto") > 0 then total_CC = total_CC - rs1("ped_monto")
	
		if request("marcar") = "SI" then
			T_Cobros = T_Cobros - (rs1("ped_costoenvio") +rs1("ped_monto"))
			
			if T_Cobros >= 0 AND isnull(rs1("ped_pagado")) then  rs1("ped_pagado") = now()
			if T_Cobros < 0 then  rs1("ped_pagado") = null
		end if
		
		rs1.movenext
	loop
	
end if
rs1.close

rs("cli_estadocc") = total_CC

rs.update
rs.close%>

PK 99