<%
Option Explicit
Session.LCID = 2058
'***** SI NO HA INICIADO SESION ***
If Session("Mybussiness") = "" then
Response.redirect("default.asp")
Else
Session.Timeout = 1200
'******* EN CASO DE ERROR ****
Err.Clear
On Error Resume Next
'*** REMPLAZA
Function Sanea(Texto)
Sanea = Replace(Texto, "'", "''")
End Function
%>
<!DOCTYPE html>
<HTML>
<HEAD>
<meta charset="ISO-8859-1" />
<TITLE>SISTEMA MIM <%= Session("Mybussiness") %> USUARIO: <%= Session("MyName") %></TITLE>
<link href="css/Modulos.css" rel="stylesheet" />
<link href="css/Buscador.css" rel="stylesheet" />
</HEAD>
<BODY>
<%
'***** Variables a la base de datos ****
Dim Cn1
Dim Rs11, Rs12, Rs13, Rs14, Rs15, Rs16, Rs17, Rs18, Rs19, Rs20
Dim Sql11, Sql12, Sql13, Sql14, Sql15, Sql16, Sql17, Sql18, Sql19, Sql20
Dim Fcotnum, Folio, Tcambio, FechaC, Almacen, Cliente, Bloqueo
Dim Subtotal, Iva, Total, newId, rs
Fcotnum = Request("Fcotnum")
FechaC = date()
'***** Conexion a la Base de Datos
Set Cn1 = Server.CreateObject( "ADODB.Connection" )
Cn1.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID="& Session("MyName") &";PWD="& Session("MyPass") &";Database="& Session("Mybussiness") &""
'***** Conexion A la Tabla Empresa ****
Set Rs11 = Server.CreateObject("ADODB.Recordset")
Sql11="Select * from Empresa;"
Rs11.Open Sql11,Cn1,1,2
%>
<SECTION Class="HeaderGes">
<div Id="DivHeadGes">
<%= Rs11("Nombre") %><br>
<%= Rs11("Direccion") %>, <%= Rs11("colonia") %><br>
<%= Rs11("Poblacion") %>
</div>
</SECTION>
<SECTION>
<center>
<br>
<B>***** TRANSFERIR UNA COTIZACIONES A UNA NUEVA COTIZACION*****</B>
<BR><BR>
<%
Set Rs12 = server.CreateObject("ADODB.Recordset")
Sql12 = "Select Numfcote, Monfcote, Tcaven, CLIFCOTE " &_
"from Fcotenc, Monedas " &_
"where Numfcote = "& Fcotnum &" and Monfcote = Cladiv;"
Rs12.Open Sql12,Cn1,1,2
Cliente = Rs12("CLIFCOTE")
If Rs12.EOF Then
%>
<b> EL NUMERO DE COTIZACION <%= FCOTNUM %> NO EXISTE</B>
<BR><BR>
<%
Else
Tcambio = Rs12("Tcaven")
Set Rs20 = server.CreateObject("ADODB.Recordset")
Sql20 = "Select Clacli, descli from clientes where clacli='"& Sanea(Cliente) &"';"
Rs20.Open Sql20,Cn1,1,2
Bloqueo = cdbl(Rs20("Descli"))
If Bloqueo = 0 Then
Set Rs15 = server.CreateObject("ADODB.Recordset")
Sql15 = "INSERT INTO FCOTENC (FECFCOTE, FVAFCOTE, CLIFCOTE, ESQFCOTE, IVAFCOTE, RETFCOTE, MONFCOTE, " &_
"TCAFCOTE, LABFCOTE, EMBFCOTE, ATEFCOTE, CONFCOTE, STAFCOTE, SUBFCOTE, IVTFCOTE, IMRFCOTE, TOTFCOTE, OBSFCOTE, " &_
"USUFCOTE, FAUFCOTE, MEDFCOTE, OBMFCOTE, cotizador, AUTFCOTE, ALMFCOTE) " &_
"OUTPUT INSERTED.Numfcote SELECT '"& FechaC &"', FVAFCOTE, CLIFCOTE, ESQFCOTE, IVAFCOTE, RETFCOTE, MONFCOTE, " &_
"TCAVEN, LABFCOTE, EMBFCOTE, ATEFCOTE, CONFCOTE, 'A', SUBFCOTE, IVTFCOTE, IMRFCOTE, TOTFCOTE, OBSFCOTE, " &_
"'"& Session("MyName") &"', FAUFCOTE, 0, OBMFCOTE, NULL, NULL,ALMFCOTE " &_
"FROM FCOTENC, Monedas " &_
"WHERE NUMFCOTE = "& Fcotnum &" AND MONFCOTE = CLADIV;"
Set rs = Cn1.Execute(Sql15)
If Not rs.EOF Then
newId = rs("Numfcote")
Response.Write "New record ID: " & newId
Else
Response.Write "Failed to retrieve the new ID."
End If
Set Rs16 = server.CreateObject("ADODB.Recordset")
Sql16 = "INSERT INTO FCOTDET " &_
"(NCOFCOTD, CLIFCOTD, ALMFCOTD, CODFCOTD, CANFCOTD, CSUFCOTD, CPEFCOTD, PREFCOTD, SECFCOTD, DESFCOTD, " &_
"UNIFCOTD, UCOFCOTD, CPRFCOTD, MONFCOTD, TCAFCOTD, FPEFCOTD, IVAFCOTD, SIGFCOTD, OBSFCOTD, USUFCOTD, REPOFCOTD) " &_
"SELECT "& newId &", CLIFCOTD, ALMFCOTD, CODFCOTD, CANFCOTD, 0, CANFCOTD, ((PLAINV * Tcaven) / "& Tcambio &"), " &_
"SECFCOTD, DESFCOTD, " &_
"(((PLAINV * Tcaven) / "& Tcambio &") - ((((PLAINV * Tcaven) / "& Tcambio &") * DESFCOTD)/100)), UCOMUL, CPMUL, " &_
"MONFCOTD, "& Tcambio &", FPEFCOTD, IVAFCOTD, NULL, OBSFCOTD, '"& Session("MyName") &"', PREOINV " &_
"FROM FCOTDET, MULTIALMACEN, INVENTARIOS, MONEDAS " &_
"WHERE NCOFCOTD = "& Fcotnum &" AND ARTMUL = CODFCOTD AND ALMMUL = ALMFCOTD AND CVEINV = ARTMUL AND MPLINV = CLADIV;"
Cn1.Execute Sql16
response.write("Aqui no es")
Else If Bloqueo = 1 Then
Set Rs15 = server.CreateObject("ADODB.Recordset")
Sql15 = "INSERT INTO FCOTENC (FECFCOTE, FVAFCOTE, CLIFCOTE, ESQFCOTE, IVAFCOTE, RETFCOTE, MONFCOTE, " &_
"TCAFCOTE, LABFCOTE, EMBFCOTE, ATEFCOTE, CONFCOTE, STAFCOTE, SUBFCOTE, IVTFCOTE, IMRFCOTE, TOTFCOTE, OBSFCOTE, " &_
"USUFCOTE, FAUFCOTE, MEDFCOTE, OBMFCOTE, cotizador, AUTFCOTE) " &_
"OUTPUT INSERTED.Numfcote SELECT '"& FechaC &"', FVAFCOTE, CLIFCOTE, ESQFCOTE, IVAFCOTE, RETFCOTE, MONFCOTE, " &_
"TCAVEN, LABFCOTE, EMBFCOTE, ATEFCOTE, CONFCOTE, 'A', SUBFCOTE, IVTFCOTE, IMRFCOTE, TOTFCOTE, OBSFCOTE, " &_
"'"& Session("MyName") &"', FAUFCOTE, 0, OBMFCOTE, NULL, NULL " &_
"FROM FCOTENC, Monedas " &_
"WHERE NUMFCOTE = "& Fcotnum &" AND MONFCOTE = CLADIV;"
Set rs = Cn1.Execute(Sql15)
If Not rs.EOF Then
newId = rs("Numfcote")
Response.Write "New record ID: " & newId
Else
Response.Write "Failed to retrieve the new ID."
End If
Set Rs16 = server.CreateObject("ADODB.Recordset")
Sql16 = "INSERT INTO FCOTDET " &_
"(NCOFCOTD, CLIFCOTD, ALMFCOTD, CODFCOTD, CANFCOTD, CSUFCOTD, CPEFCOTD, PREFCOTD, SECFCOTD, DESFCOTD, " &_
"UNIFCOTD, UCOFCOTD, CPRFCOTD, MONFCOTD, TCAFCOTD, FPEFCOTD, IVAFCOTD, SIGFCOTD, OBSFCOTD, USUFCOTD, REPOFCOTD) " &_
"SELECT "& newId &", CLIFCOTD, ALMFCOTD, CODFCOTD, CANFCOTD, 0, CANFCOTD, ((PLAINV * Tcaven) / "& Tcambio &"), " &_
"SECFCOTD, 0, " &_
"(((PLAINV * Tcaven) / "& Tcambio &") - ((((PLAINV * Tcaven) / "& Tcambio &"))/100)), UCOMUL, CPMUL, " &_
"MONFCOTD, "& Tcambio &", FPEFCOTD, IVAFCOTD, NULL, OBSFCOTD, '"& Session("MyName") &"', PREOINV " &_
"FROM FCOTDET, MULTIALMACEN, INVENTARIOS, MONEDAS " &_
"WHERE NCOFCOTD = "& Fcotnum &" AND ARTMUL = CODFCOTD AND ALMMUL = ALMFCOTD AND CVEINV = ARTMUL AND MPLINV = CLADIV;"
Cn1.Execute Sql16
response.write("Aqui es")
End If
End If
Set Rs17 = server.CreateObject("ADODB.Recordset")
Sql17 = "select SUM(CANFCOTD * unifcotd) as Importe " &_
"from fcotdet where ncofcotd = "& newId &";"
Rs17.Open Sql17,Cn1,1,2
Subtotal = Rs17("Importe")
Set Rs18 = server.CreateObject("ADODB.Recordset")
Sql18 = "Update Fcotenc " &_
"set Subfcote = "& Subtotal &", IVTFCOTE = (("& Subtotal &" * IVAFCOTE) /100), " &_
"TOTFCOTE = ("& Subtotal &" + (("& Subtotal &" * IVAFCOTE) /100)) " &_
"Where Numfcote = "& newId &";"
Rs18.Open Sql18,Cn1,1,2
Set Rs19 = server.CreateObject("ADODB.Recordset")
Sql19 = "Select almfcotd from fcotdet where ncofcotd = "& newId &" group by almfcotd;"
Rs19.Open Sql19,Cn1,1,2
Almacen = Rs19("almfcotd")
Response.Redirect("Fcotdir.asp?Cotizacion="& newId &"&Almacen="& Almacen &"")
%>
<%= Folio %>---<%= Bloqueo %>---<%=Cliente%>
<%
End If
%>
</SECTION>
<%
If Err.Number <> 0 Then
%>
<br><br>
Número de Error: <%= Err.Number %><BR>
Descripción: <%= Err.Description %><BR>
Origen: <%= Err.Source %><BR>
Linea: <%= Err.Line %><BR>
<br>
<%
Else
'****** FIN DE LOS ERRORES ***
End If
%>
</BODY>
</HTML>
<%
'FIN DE SESION
End If
%>