pagoprov.asp
Características
| En Menú: | No |
| Formularios: | Ninguno |
| Consultas SQL: | Ninguna |
| Complejidad: | high |
| Bases de Datos: | Session DB |
Tablas Utilizadas (0)
No se detectaron tablas
Comentarios y Notas (0)
No hay comentarios aún
Enlaces Salientes (2)
Páginas a las que esta página enlaza
| Archivo ASP | Tipo | Módulo | Estado | Página Razor |
|---|---|---|---|---|
default.asp |
redirect | General | Pendiente | - |
pagoprovl.asp |
redirect | General | Pendiente | - |
Enlaces Entrantes (0)
Páginas que enlazan a esta página
No hay enlaces entrantes
Código ASP Original: pagoprov.asp
<%
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/IndicadorA.css" rel="stylesheet" />
<!-- Scripts para la grafica Meses -->
<script src="RGraph/RGraph.svg.common.core.js"></script>
<script src="RGraph/RGraph.svg.common.tooltips.js"></script>
<script src="RGraph/RGraph.svg.common.bar.js"></script>
<script src="RGraph/RGraph.svg.common.line.js"></script>
<script src="RGraph/RGraph.svg.common.pie.js"></script>
<script src="RGraph/RGraph.svg.bar.js"></script>
<script src="RGraph/RGraph.svg.Pie.js"></script>
<!-- JavaScript para enviar a una pagina emergente -->
<SCRIPT LANGUAGE="JavaScript">
<!-- Begin
function NewWindow(mypage, myname, w, h, scroll) {
var winl = (screen.width - w) / 2;
var wint = (screen.height - h) / 2;
winprops = 'height='+h+',width='+w+',top='+wint+',left='+winl+',scrollbars='+scroll+',resizable'
win = window.open(mypage, myname, winprops)
if (parseInt(navigator.appVersion) >= 4) { win.window.focus(); }
}
// End -->
</script>
</HEAD>
<BODY>
<%
'***** Variables a la base de datos ****
Dim Cn1, Cn2
Dim Rs11, Rs12, Rs13, Rs14, Rs15, Rs16, Rs17, Rs18, Rs19, Rs20, Rs21, Rs22, Rs23, Rs24, Rs25, Rs26, Rs27, Rs28, Rs29
Dim Sql11, Sql12, Sql13, Sql14, Sql15, Sql16, Sql17, Sql18, Sql19, Sql20, Sql21, Sql22, Sql23, Sql24, Sql25, Sql26, Sql27, Sql28, Sql29
'***** 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 Base de Datos
Set Cn2 = Server.CreateObject( "ADODB.Connection" )
Cn2.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID=ADMINDMEX;PWD=IW2BF01;Database="& Session("Mybussiness") &""
'***** Conexion A la Tabla Empresa ****
Set Rs11 = Server.CreateObject("ADODB.Recordset")
Sql11="Select * from Empresa;"
Rs11.Open Sql11,Cn1,1,2
%>
<Header>
<%= Rs11("Nombre") %><br>
<%= Rs11("Direccion") %>, <%= Rs11("colonia") %><br>
<%= Rs11("Poblacion") %>
</header>
<SECTION>
<CENTER>
<BR><BR>
<%
'--------------- ELIMINO LA TABLA TEMPORAL
Set Rs12 = server.CreateObject("ADODB.Recordset")
Sql12="if exists (select * from dbo.sysobjects where id = object_id(N'" & Session("MyName") & "') and OBJECTPROPERTY(id, N'IsUserTable') = 1) drop table " & Session("MyName") & ";"
Rs12.open Sql12,Cn2,1,2
Response.Write("<p>Se ha eliminado la Tabla")
'------------ CREO LA NUEVA TABLA TEMPORAL
Set Rs13=server.CreateObject("ADODB.recordset")
Set Rs13=Cn2.Execute("CREATE TABLE " & Session("MyName") & "( " &_
"[EMPRESA] [varchar](35) NULL, " &_
"[BD] [varchar](35) NULL, " &_
"[REGISTRO] [INT] NULL, " &_
"[MONEDA] [INT] NULL, " &_
"[TCAMBIO] [decimal](18, 2) NULL, " &_
"[CLAVE] [varchar](15) NULL, " &_
"[NOMBRE] [varchar](100) NULL, " &_
"[RECEPCION] [int] NULL, " &_
"[REFERENCIA] [varchar](150) NULL, " &_
"[PESOS] [decimal](18, 2) NULL, " &_
"[DOLARES] [decimal](18, 2) NULL, " &_
"[FPAGO] [smalldatetime] NULL, " &_
"[VENCIDO] [int] NULL, " &_
"[PPAGO] [int] NULL, " &_
"[TIPO] [varchar](1) NULL, " &_
"[BANCOPRV] [varchar](50) NULL, " &_
"[BANCOPAGO] [INT] NULL, " &_
"[TIPOOPER] [varchar](50) NULL, " &_
"[CBEMX] [varchar](20) NULL, " &_
"[CBEUSD] [varchar](50) NULL, " &_
"[REFCIE] [varchar](50) NULL, " &_
"[TIPOTRANS] [varchar](50) NULL, " &_
"[PAISBEN] [varchar](50) NULL, " &_
"[PAISBANBEN] [varchar](50) NULL, " &_
"[DIRBANBEN] [varchar](50) NULL " &_
")" )
'//******* INSERTAMOS LAS PARTIDAS CANCUN *****//
Set Rs14=server.CreateObject("ADODB.recordset")
Sql14="INSERT into " & Session("MyName") & " " &_
"(EMPRESA, BD, REGISTRO, MONEDA, TCAMBIO, CLAVE, NOMBRE, RECEPCION, REFERENCIA, PESOS, DOLARES, FPAGO, VENCIDO, PPAGO, TIPO, " &_
"BANCOPRV, BANCOPAGO, TIPOOPER, CBEMX, CBEUSD, REFCIE, TIPOTRANS, PAISBEN, PAISBANBEN, DIRBANBEN) " &_
"SELECT 'MISSA', 'CANCUN', CANCUN.DBO.CXPGEN.REGCXPG, CANCUN.DBO.CXPGEN.Moncxpg, CANCUN.DBO.CXPGEN.TCACXPG, " &_
"CANCUN.DBO.CXPGEN.PrvCxpG, CANCUN.DBO.PROVEEDORES.Nomprv, CANCUN.DBO.CXPGEN.Nrecxpg, CANCUN.DBO.CRECENC.REFRENC, " &_
"Case when CANCUN.DBO.CXPGEN.Moncxpg = 1 then CANCUN.DBO.CXPGEN.salcxpg else 0 end as 'PESOS', " &_
"Case when CANCUN.DBO.CXPGEN.Moncxpg = 2 then CANCUN.DBO.CXPGEN.salcxpg else 0 end as 'DOLARES', " &_
"CANCUN.DBO.CXPGEN.Fpacxpg, DATEDIFF (day, CANCUN.DBO.CXPGEN.Fpacxpg, Getdate()) as Vencido, " &_
"CANCUN.DBO.CXPGEN.PPAGOCXPG, CANCUN.DBO.PROVEEDORES.TIPOP, " &_
"CANCUN.DBO.PROVEEDORES.BANPRV, CANCUN.DBO.PROVEEDORES.BANPAGPRV, CANCUN.DBO.PROVEEDORES.TIPOOPER, CANCUN.DBO.PROVEEDORES.CBEMXPRV, " &_
"CANCUN.DBO.PROVEEDORES.CBEUSDPRV, CANCUN.DBO.PROVEEDORES.REFCIEPRV, CANCUN.DBO.PROVEEDORES.TIPOTRANSPRV, CANCUN.DBO.PROVEEDORES.PAISBENPRV, " &_
"CANCUN.DBO.PROVEEDORES.PAISBANBEN, CANCUN.DBO.PROVEEDORES.DIRBANBEN " &_
"FROM CANCUN.DBO.CXPGEN " &_
"LEFT JOIN CANCUN.DBO.PROVEEDORES ON CANCUN.DBO.CXPGEN.PrvCxpG = CANCUN.DBO.PROVEEDORES.CVEPRV " &_
"LEFT JOIN CANCUN.DBO.CRecEnc ON CANCUN.DBO.CRECENC.NUMRENC = CANCUN.DBO.CXPGEN.NRECXPG " &_
"WHERE CANCUN.DBO.CXPGEN.SALCXPG > 0 AND CANCUN.DBO.CRECENC.VerifRenc = 1 and CANCUN.DBO.CXPGEN.PROGRAMADO = 0;"
Cn1.Execute Sql14
'//******* INSERTAMOS LAS PARTIDAS COATZA *****//
Set Rs15=server.CreateObject("ADODB.recordset")
Sql15="INSERT into " & Session("MyName") & " " &_
"(EMPRESA, BD, REGISTRO, MONEDA, TCAMBIO, CLAVE, NOMBRE, RECEPCION, REFERENCIA, PESOS, DOLARES, FPAGO, VENCIDO, PPAGO, TIPO, " &_
"BANCOPRV, BANCOPAGO, TIPOOPER, CBEMX, CBEUSD, REFCIE, TIPOTRANS, PAISBEN, PAISBANBEN, DIRBANBEN) " &_
"SELECT 'MICSA', 'COATZA', COATZA.DBO.CXPGEN.REGCXPG, COATZA.DBO.CXPGEN.Moncxpg, COATZA.DBO.CXPGEN.TCACXPG, " &_
"COATZA.DBO.CXPGEN.PrvCxpG, COATZA.DBO.PROVEEDORES.Nomprv, COATZA.DBO.CXPGEN.Nrecxpg, COATZA.DBO.CRECENC.REFRENC, " &_
"Case when COATZA.DBO.CXPGEN.Moncxpg = 1 then COATZA.DBO.CXPGEN.salcxpg else 0 end as 'PESOS', " &_
"Case when COATZA.DBO.CXPGEN.Moncxpg = 2 then COATZA.DBO.CXPGEN.salcxpg else 0 end as 'DOLARES', " &_
"COATZA.DBO.CXPGEN.Fpacxpg, DATEDIFF (day, COATZA.DBO.CXPGEN.Fpacxpg, Getdate()) as Vencido, " &_
"COATZA.DBO.CXPGEN.PPAGOCXPG, COATZA.DBO.PROVEEDORES.TIPOP, " &_
"COATZA.DBO.PROVEEDORES.BANPRV, COATZA.DBO.PROVEEDORES.BANPAGPRV, COATZA.DBO.PROVEEDORES.TIPOOPER, COATZA.DBO.PROVEEDORES.CBEMXPRV, " &_
"COATZA.DBO.PROVEEDORES.CBEUSDPRV, COATZA.DBO.PROVEEDORES.REFCIEPRV, COATZA.DBO.PROVEEDORES.TIPOTRANSPRV, COATZA.DBO.PROVEEDORES.PAISBENPRV, " &_
"COATZA.DBO.PROVEEDORES.PAISBANBEN, COATZA.DBO.PROVEEDORES.DIRBANBEN " &_
"FROM COATZA.DBO.CXPGEN " &_
"LEFT JOIN COATZA.DBO.PROVEEDORES ON COATZA.DBO.CXPGEN.PrvCxpG = COATZA.DBO.PROVEEDORES.CVEPRV " &_
"LEFT JOIN COATZA.DBO.CRecEnc ON COATZA.DBO.CRECENC.NUMRENC = COATZA.DBO.CXPGEN.NRECXPG " &_
"WHERE COATZA.DBO.CXPGEN.SALCXPG > 0 AND COATZA.DBO.CRECENC.VerifRenc = 1 AND COATZA.DBO.CXPGEN.PROGRAMADO = 0;"
Cn1.Execute Sql15
'//******* INSERTAMOS LAS PARTIDAS GUADALAJARA *****//
Set Rs16=server.CreateObject("ADODB.recordset")
Sql16="INSERT into " & Session("MyName") & " " &_
"(EMPRESA, BD, REGISTRO, MONEDA, TCAMBIO, CLAVE, NOMBRE, RECEPCION, REFERENCIA, PESOS, DOLARES, FPAGO, VENCIDO, PPAGO, TIPO, " &_
"BANCOPRV, BANCOPAGO, TIPOOPER, CBEMX, CBEUSD, REFCIE, TIPOTRANS, PAISBEN, PAISBANBEN, DIRBANBEN) " &_
"SELECT 'MIGSA', 'GUADALAJARA', GUADALAJARA.DBO.CXPGEN.REGCXPG, GUADALAJARA.DBO.CXPGEN.Moncxpg, GUADALAJARA.DBO.CXPGEN.TCACXPG, " &_
"GUADALAJARA.DBO.CXPGEN.PrvCxpG, GUADALAJARA.DBO.PROVEEDORES.Nomprv, GUADALAJARA.DBO.CXPGEN.Nrecxpg, GUADALAJARA.DBO.CRECENC.REFRENC, " &_
"Case when GUADALAJARA.DBO.CXPGEN.Moncxpg = 1 then GUADALAJARA.DBO.CXPGEN.salcxpg else 0 end as 'PESOS', " &_
"Case when GUADALAJARA.DBO.CXPGEN.Moncxpg = 2 then GUADALAJARA.DBO.CXPGEN.salcxpg else 0 end as 'DOLARES', " &_
"GUADALAJARA.DBO.CXPGEN.Fpacxpg, DATEDIFF (day, GUADALAJARA.DBO.CXPGEN.Fpacxpg, Getdate()) as Vencido, " &_
"GUADALAJARA.DBO.CXPGEN.PPAGOCXPG, GUADALAJARA.DBO.PROVEEDORES.TIPOP, " &_
"GUADALAJARA.DBO.PROVEEDORES.BANPRV, GUADALAJARA.DBO.PROVEEDORES.BANPAGPRV, GUADALAJARA.DBO.PROVEEDORES.TIPOOPER, GUADALAJARA.DBO.PROVEEDORES.CBEMXPRV, " &_
"GUADALAJARA.DBO.PROVEEDORES.CBEUSDPRV, GUADALAJARA.DBO.PROVEEDORES.REFCIEPRV, GUADALAJARA.DBO.PROVEEDORES.TIPOTRANSPRV, GUADALAJARA.DBO.PROVEEDORES.PAISBENPRV, " &_
"GUADALAJARA.DBO.PROVEEDORES.PAISBANBEN, GUADALAJARA.DBO.PROVEEDORES.DIRBANBEN " &_
"FROM GUADALAJARA.DBO.CXPGEN " &_
"LEFT JOIN GUADALAJARA.DBO.PROVEEDORES ON GUADALAJARA.DBO.CXPGEN.PrvCxpG = GUADALAJARA.DBO.PROVEEDORES.CVEPRV " &_
"LEFT JOIN GUADALAJARA.DBO.CRecEnc ON GUADALAJARA.DBO.CRECENC.NUMRENC = GUADALAJARA.DBO.CXPGEN.NRECXPG " &_
"WHERE GUADALAJARA.DBO.CXPGEN.SALCXPG > 0 AND GUADALAJARA.DBO.CRECENC.VerifRenc = 1 AND GUADALAJARA.DBO.CXPGEN.PROGRAMADO = 0;"
Cn1.Execute Sql16
'//******* INSERTAMOS LAS PARTIDAS MERIDA *****//
Set Rs17=server.CreateObject("ADODB.recordset")
Sql17="INSERT into " & Session("MyName") & " " &_
"(EMPRESA, BD, REGISTRO, MONEDA, TCAMBIO, CLAVE, NOMBRE, RECEPCION, REFERENCIA, PESOS, DOLARES, FPAGO, VENCIDO, PPAGO, TIPO, " &_
"BANCOPRV, BANCOPAGO, TIPOOPER, CBEMX, CBEUSD, REFCIE, TIPOTRANS, PAISBEN, PAISBANBEN, DIRBANBEN) " &_
"SELECT 'MISSA', 'MERIDA', MERIDA.DBO.CXPGEN.REGCXPG, MERIDA.DBO.CXPGEN.Moncxpg, MERIDA.DBO.CXPGEN.TCACXPG, " &_
"MERIDA.DBO.CXPGEN.PrvCxpG, MERIDA.DBO.PROVEEDORES.Nomprv, MERIDA.DBO.CXPGEN.Nrecxpg, MERIDA.DBO.CRECENC.REFRENC, " &_
"Case when MERIDA.DBO.CXPGEN.Moncxpg = 1 then MERIDA.DBO.CXPGEN.salcxpg else 0 end as 'PESOS', " &_
"Case when MERIDA.DBO.CXPGEN.Moncxpg = 2 then MERIDA.DBO.CXPGEN.salcxpg else 0 end as 'DOLARES', " &_
"MERIDA.DBO.CXPGEN.Fpacxpg, DATEDIFF (day, MERIDA.DBO.CXPGEN.Fpacxpg, Getdate()) as Vencido, " &_
"MERIDA.DBO.CXPGEN.PPAGOCXPG, MERIDA.DBO.PROVEEDORES.TIPOP, " &_
"MERIDA.DBO.PROVEEDORES.BANPRV, MERIDA.DBO.PROVEEDORES.BANPAGPRV, MERIDA.DBO.PROVEEDORES.TIPOOPER, MERIDA.DBO.PROVEEDORES.CBEMXPRV, " &_
"MERIDA.DBO.PROVEEDORES.CBEUSDPRV, MERIDA.DBO.PROVEEDORES.REFCIEPRV, MERIDA.DBO.PROVEEDORES.TIPOTRANSPRV, MERIDA.DBO.PROVEEDORES.PAISBENPRV, " &_
"MERIDA.DBO.PROVEEDORES.PAISBANBEN, MERIDA.DBO.PROVEEDORES.DIRBANBEN " &_
"FROM MERIDA.DBO.CXPGEN " &_
"LEFT JOIN MERIDA.DBO.PROVEEDORES ON MERIDA.DBO.CXPGEN.PrvCxpG = MERIDA.DBO.PROVEEDORES.CVEPRV " &_
"LEFT JOIN MERIDA.DBO.CRecEnc ON MERIDA.DBO.CRECENC.NUMRENC = MERIDA.DBO.CXPGEN.NRECXPG " &_
"WHERE MERIDA.DBO.CXPGEN.SALCXPG > 0 AND MERIDA.DBO.CRECENC.VerifRenc = 1 AND MERIDA.DBO.CXPGEN.PROGRAMADO = 0;"
Cn1.Execute Sql17
'//******* INSERTAMOS LAS PARTIDAS MEXICO *****//
Set Rs18=server.CreateObject("ADODB.recordset")
Sql18="INSERT into " & Session("MyName") & " " &_
"(EMPRESA, BD, REGISTRO, MONEDA, TCAMBIO, CLAVE, NOMBRE, RECEPCION, REFERENCIA, PESOS, DOLARES, FPAGO, VENCIDO, PPAGO, TIPO, " &_
"BANCOPRV, BANCOPAGO, TIPOOPER, CBEMX, CBEUSD, REFCIE, TIPOTRANS, PAISBEN, PAISBANBEN, DIRBANBEN) " &_
"SELECT 'MIMSA', 'MEXICO', MEXICO.DBO.CXPGEN.REGCXPG, MEXICO.DBO.CXPGEN.Moncxpg, MEXICO.DBO.CXPGEN.TCACXPG, " &_
"MEXICO.DBO.CXPGEN.PrvCxpG, MEXICO.DBO.PROVEEDORES.Nomprv, MEXICO.DBO.CXPGEN.Nrecxpg, MEXICO.DBO.CRECENC.REFRENC, " &_
"Case when MEXICO.DBO.CXPGEN.Moncxpg = 1 then MEXICO.DBO.CXPGEN.salcxpg else 0 end as 'PESOS', " &_
"Case when MEXICO.DBO.CXPGEN.Moncxpg = 2 then MEXICO.DBO.CXPGEN.salcxpg else 0 end as 'DOLARES', " &_
"MEXICO.DBO.CXPGEN.Fpacxpg, DATEDIFF (day, MEXICO.DBO.CXPGEN.Fpacxpg, Getdate()) as Vencido, " &_
"MEXICO.DBO.CXPGEN.PPAGOCXPG, MEXICO.DBO.PROVEEDORES.TIPOP, " &_
"MEXICO.DBO.PROVEEDORES.BANPRV, MEXICO.DBO.PROVEEDORES.BANPAGPRV, MEXICO.DBO.PROVEEDORES.TIPOOPER, MEXICO.DBO.PROVEEDORES.CBEMXPRV, " &_
"MEXICO.DBO.PROVEEDORES.CBEUSDPRV, MEXICO.DBO.PROVEEDORES.REFCIEPRV, MEXICO.DBO.PROVEEDORES.TIPOTRANSPRV, MEXICO.DBO.PROVEEDORES.PAISBENPRV, " &_
"MEXICO.DBO.PROVEEDORES.PAISBANBEN, MEXICO.DBO.PROVEEDORES.DIRBANBEN " &_
"FROM MEXICO.DBO.CXPGEN " &_
"LEFT JOIN MEXICO.DBO.PROVEEDORES ON MEXICO.DBO.CXPGEN.PrvCxpG = MEXICO.DBO.PROVEEDORES.CVEPRV " &_
"LEFT JOIN MEXICO.DBO.CRecEnc ON MEXICO.DBO.CRECENC.NUMRENC = MEXICO.DBO.CXPGEN.NRECXPG " &_
"WHERE MEXICO.DBO.CXPGEN.SALCXPG > 0 AND MEXICO.DBO.CRECENC.VerifRenc = 1 AND MEXICO.DBO.CXPGEN.PROGRAMADO = 0;"
Cn1.Execute Sql18
'//******* INSERTAMOS LAS PARTIDAS MEXPINTURAS *****//
Set Rs19=server.CreateObject("ADODB.recordset")
Sql19="INSERT into " & Session("MyName") & " " &_
"(EMPRESA, BD, REGISTRO, MONEDA, TCAMBIO, CLAVE, NOMBRE, RECEPCION, REFERENCIA, PESOS, DOLARES, FPAGO, VENCIDO, PPAGO, TIPO, " &_
"BANCOPRV, BANCOPAGO, TIPOOPER, CBEMX, CBEUSD, REFCIE, TIPOTRANS, PAISBEN, PAISBANBEN, DIRBANBEN) " &_
"SELECT 'MIMSA', 'MEXPINTURAS', MEXPINTURAS.DBO.CXPGEN.REGCXPG, MEXPINTURAS.DBO.CXPGEN.Moncxpg, MEXPINTURAS.DBO.CXPGEN.TCACXPG, " &_
"MEXPINTURAS.DBO.CXPGEN.PrvCxpG, MEXPINTURAS.DBO.PROVEEDORES.Nomprv, MEXPINTURAS.DBO.CXPGEN.Nrecxpg, MEXPINTURAS.DBO.CRECENC.REFRENC, " &_
"Case when MEXPINTURAS.DBO.CXPGEN.Moncxpg = 1 then MEXPINTURAS.DBO.CXPGEN.salcxpg else 0 end as 'PESOS', " &_
"Case when MEXPINTURAS.DBO.CXPGEN.Moncxpg = 2 then MEXPINTURAS.DBO.CXPGEN.salcxpg else 0 end as 'DOLARES', " &_
"MEXPINTURAS.DBO.CXPGEN.Fpacxpg, DATEDIFF (day, MEXPINTURAS.DBO.CXPGEN.Fpacxpg, Getdate()) as Vencido, " &_
"MEXPINTURAS.DBO.CXPGEN.PPAGOCXPG, MEXPINTURAS.DBO.PROVEEDORES.TIPOP, " &_
"MEXPINTURAS.DBO.PROVEEDORES.BANPRV, MEXPINTURAS.DBO.PROVEEDORES.BANPAGPRV, MEXPINTURAS.DBO.PROVEEDORES.TIPOOPER, MEXPINTURAS.DBO.PROVEEDORES.CBEMXPRV, " &_
"MEXPINTURAS.DBO.PROVEEDORES.CBEUSDPRV, MEXPINTURAS.DBO.PROVEEDORES.REFCIEPRV, MEXPINTURAS.DBO.PROVEEDORES.TIPOTRANSPRV, MEXPINTURAS.DBO.PROVEEDORES.PAISBENPRV, " &_
"MEXPINTURAS.DBO.PROVEEDORES.PAISBANBEN, MEXPINTURAS.DBO.PROVEEDORES.DIRBANBEN " &_
"FROM MEXPINTURAS.DBO.CXPGEN " &_
"LEFT JOIN MEXPINTURAS.DBO.PROVEEDORES ON MEXPINTURAS.DBO.CXPGEN.PrvCxpG = MEXPINTURAS.DBO.PROVEEDORES.CVEPRV " &_
"LEFT JOIN MEXPINTURAS.DBO.CRecEnc ON MEXPINTURAS.DBO.CRECENC.NUMRENC = MEXPINTURAS.DBO.CXPGEN.NRECXPG " &_
"WHERE MEXPINTURAS.DBO.CXPGEN.SALCXPG > 0 AND MEXPINTURAS.DBO.CRECENC.VerifRenc = 1 AND MEXPINTURAS.DBO.CXPGEN.PROGRAMADO = 0;"
Cn1.Execute Sql19
'//******* INSERTAMOS LAS PARTIDAS MIGPINTURAS *****//
Set Rs20=server.CreateObject("ADODB.recordset")
Sql20="INSERT into " & Session("MyName") & " " &_
"(EMPRESA, BD, REGISTRO, MONEDA, TCAMBIO, CLAVE, NOMBRE, RECEPCION, REFERENCIA, PESOS, DOLARES, FPAGO, VENCIDO, PPAGO, TIPO, " &_
"BANCOPRV, BANCOPAGO, TIPOOPER, CBEMX, CBEUSD, REFCIE, TIPOTRANS, PAISBEN, PAISBANBEN, DIRBANBEN) " &_
"SELECT 'MIGSA', 'MIGPINTURAS', MIGPINTURAS.DBO.CXPGEN.REGCXPG, MIGPINTURAS.DBO.CXPGEN.Moncxpg, MIGPINTURAS.DBO.CXPGEN.TCACXPG, " &_
"MIGPINTURAS.DBO.CXPGEN.PrvCxpG, MIGPINTURAS.DBO.PROVEEDORES.Nomprv, MIGPINTURAS.DBO.CXPGEN.Nrecxpg, MIGPINTURAS.DBO.CRECENC.REFRENC, " &_
"Case when MIGPINTURAS.DBO.CXPGEN.Moncxpg = 1 then MIGPINTURAS.DBO.CXPGEN.salcxpg else 0 end as 'PESOS', " &_
"Case when MIGPINTURAS.DBO.CXPGEN.Moncxpg = 2 then MIGPINTURAS.DBO.CXPGEN.salcxpg else 0 end as 'DOLARES', " &_
"MIGPINTURAS.DBO.CXPGEN.Fpacxpg, DATEDIFF (day, MIGPINTURAS.DBO.CXPGEN.Fpacxpg, Getdate()) as Vencido, " &_
"MIGPINTURAS.DBO.CXPGEN.PPAGOCXPG, MIGPINTURAS.DBO.PROVEEDORES.TIPOP, " &_
"MIGPINTURAS.DBO.PROVEEDORES.BANPRV, MIGPINTURAS.DBO.PROVEEDORES.BANPAGPRV, MIGPINTURAS.DBO.PROVEEDORES.TIPOOPER, MIGPINTURAS.DBO.PROVEEDORES.CBEMXPRV, " &_
"MIGPINTURAS.DBO.PROVEEDORES.CBEUSDPRV, MIGPINTURAS.DBO.PROVEEDORES.REFCIEPRV, MIGPINTURAS.DBO.PROVEEDORES.TIPOTRANSPRV, MIGPINTURAS.DBO.PROVEEDORES.PAISBENPRV, " &_
"MIGPINTURAS.DBO.PROVEEDORES.PAISBANBEN, MIGPINTURAS.DBO.PROVEEDORES.DIRBANBEN " &_
"FROM MIGPINTURAS.DBO.CXPGEN " &_
"LEFT JOIN MIGPINTURAS.DBO.PROVEEDORES ON MIGPINTURAS.DBO.CXPGEN.PrvCxpG = MIGPINTURAS.DBO.PROVEEDORES.CVEPRV " &_
"LEFT JOIN MIGPINTURAS.DBO.CRecEnc ON MIGPINTURAS.DBO.CRECENC.NUMRENC = MIGPINTURAS.DBO.CXPGEN.NRECXPG " &_
"WHERE MIGPINTURAS.DBO.CXPGEN.SALCXPG > 0 AND MIGPINTURAS.DBO.CRECENC.VerifRenc = 1 AND MIGPINTURAS.DBO.CXPGEN.PROGRAMADO = 0;"
Cn1.Execute Sql20
'//******* INSERTAMOS LAS PARTIDAS MONTERREY *****//
Set Rs21=server.CreateObject("ADODB.recordset")
Sql21="INSERT into " & Session("MyName") & " " &_
"(EMPRESA, BD, REGISTRO, MONEDA, TCAMBIO, CLAVE, NOMBRE, RECEPCION, REFERENCIA, PESOS, DOLARES, FPAGO, VENCIDO, PPAGO, TIPO, " &_
"BANCOPRV, BANCOPAGO, TIPOOPER, CBEMX, CBEUSD, REFCIE, TIPOTRANS, PAISBEN, PAISBANBEN, DIRBANBEN) " &_
"SELECT 'MISSA', 'MONTERREY', MONTERREY.DBO.CXPGEN.REGCXPG, MONTERREY.DBO.CXPGEN.Moncxpg, MONTERREY.DBO.CXPGEN.TCACXPG, " &_
"MONTERREY.DBO.CXPGEN.PrvCxpG, MONTERREY.DBO.PROVEEDORES.Nomprv, MONTERREY.DBO.CXPGEN.Nrecxpg, MONTERREY.DBO.CRECENC.REFRENC, " &_
"Case when MONTERREY.DBO.CXPGEN.Moncxpg = 1 then MONTERREY.DBO.CXPGEN.salcxpg else 0 end as 'PESOS', " &_
"Case when MONTERREY.DBO.CXPGEN.Moncxpg = 2 then MONTERREY.DBO.CXPGEN.salcxpg else 0 end as 'DOLARES', " &_
"MONTERREY.DBO.CXPGEN.Fpacxpg, DATEDIFF (day, MONTERREY.DBO.CXPGEN.Fpacxpg, Getdate()) as Vencido, " &_
"MONTERREY.DBO.CXPGEN.PPAGOCXPG, MONTERREY.DBO.PROVEEDORES.TIPOP, " &_
"MONTERREY.DBO.PROVEEDORES.BANPRV, MONTERREY.DBO.PROVEEDORES.BANPAGPRV, MONTERREY.DBO.PROVEEDORES.TIPOOPER, MONTERREY.DBO.PROVEEDORES.CBEMXPRV, " &_
"MONTERREY.DBO.PROVEEDORES.CBEUSDPRV, MONTERREY.DBO.PROVEEDORES.REFCIEPRV, MONTERREY.DBO.PROVEEDORES.TIPOTRANSPRV, MONTERREY.DBO.PROVEEDORES.PAISBENPRV, " &_
"MONTERREY.DBO.PROVEEDORES.PAISBANBEN, MONTERREY.DBO.PROVEEDORES.DIRBANBEN " &_
"FROM MONTERREY.DBO.CXPGEN " &_
"LEFT JOIN MONTERREY.DBO.PROVEEDORES ON MONTERREY.DBO.CXPGEN.PrvCxpG = MONTERREY.DBO.PROVEEDORES.CVEPRV " &_
"LEFT JOIN MONTERREY.DBO.CRecEnc ON MONTERREY.DBO.CRECENC.NUMRENC = MONTERREY.DBO.CXPGEN.NRECXPG " &_
"WHERE MONTERREY.DBO.CXPGEN.SALCXPG > 0 AND MONTERREY.DBO.CRECENC.VerifRenc = 1 AND MONTERREY.DBO.CXPGEN.PROGRAMADO = 0;"
Cn1.Execute Sql21
'//******* INSERTAMOS LAS PARTIDAS ORIZABA *****//
Set Rs22=server.CreateObject("ADODB.recordset")
Sql22="INSERT into " & Session("MyName") & " " &_
"(EMPRESA, BD, REGISTRO, MONEDA, TCAMBIO, CLAVE, NOMBRE, RECEPCION, REFERENCIA, PESOS, DOLARES, FPAGO, VENCIDO, PPAGO, TIPO, " &_
"BANCOPRV, BANCOPAGO, TIPOOPER, CBEMX, CBEUSD, REFCIE, TIPOTRANS, PAISBEN, PAISBANBEN, DIRBANBEN) " &_
"SELECT 'MISSA', 'ORIZABA', ORIZABA.DBO.CXPGEN.REGCXPG, ORIZABA.DBO.CXPGEN.Moncxpg, ORIZABA.DBO.CXPGEN.TCACXPG, " &_
"ORIZABA.DBO.CXPGEN.PrvCxpG, ORIZABA.DBO.PROVEEDORES.Nomprv, ORIZABA.DBO.CXPGEN.Nrecxpg, ORIZABA.DBO.CRECENC.REFRENC, " &_
"Case when ORIZABA.DBO.CXPGEN.Moncxpg = 1 then ORIZABA.DBO.CXPGEN.salcxpg else 0 end as 'PESOS', " &_
"Case when ORIZABA.DBO.CXPGEN.Moncxpg = 2 then ORIZABA.DBO.CXPGEN.salcxpg else 0 end as 'DOLARES', " &_
"ORIZABA.DBO.CXPGEN.Fpacxpg, DATEDIFF (day, ORIZABA.DBO.CXPGEN.Fpacxpg, Getdate()) as Vencido, " &_
"ORIZABA.DBO.CXPGEN.PPAGOCXPG, ORIZABA.DBO.PROVEEDORES.TIPOP, " &_
"ORIZABA.DBO.PROVEEDORES.BANPRV, ORIZABA.DBO.PROVEEDORES.BANPAGPRV, ORIZABA.DBO.PROVEEDORES.TIPOOPER, ORIZABA.DBO.PROVEEDORES.CBEMXPRV, " &_
"ORIZABA.DBO.PROVEEDORES.CBEUSDPRV, ORIZABA.DBO.PROVEEDORES.REFCIEPRV, ORIZABA.DBO.PROVEEDORES.TIPOTRANSPRV, ORIZABA.DBO.PROVEEDORES.PAISBENPRV, " &_
"ORIZABA.DBO.PROVEEDORES.PAISBANBEN, ORIZABA.DBO.PROVEEDORES.DIRBANBEN " &_
"FROM ORIZABA.DBO.CXPGEN " &_
"LEFT JOIN ORIZABA.DBO.PROVEEDORES ON ORIZABA.DBO.CXPGEN.PrvCxpG = ORIZABA.DBO.PROVEEDORES.CVEPRV " &_
"LEFT JOIN ORIZABA.DBO.CRecEnc ON ORIZABA.DBO.CRECENC.NUMRENC = ORIZABA.DBO.CXPGEN.NRECXPG " &_
"WHERE ORIZABA.DBO.CXPGEN.SALCXPG > 0 AND ORIZABA.DBO.CRECENC.VerifRenc = 1 AND ORIZABA.DBO.CXPGEN.PROGRAMADO = 0;"
Cn1.Execute Sql22
'//******* INSERTAMOS LAS PARTIDAS PINTURAS COATZA *****//
Set Rs23=server.CreateObject("ADODB.recordset")
Sql23="INSERT into " & Session("MyName") & " " &_
"(EMPRESA, BD, REGISTRO, MONEDA, TCAMBIO, CLAVE, NOMBRE, RECEPCION, REFERENCIA, PESOS, DOLARES, FPAGO, VENCIDO, PPAGO, TIPO) " &_
"SELECT 'MICSA', 'PINTURAS', PINTURAS.DBO.CXPGEN.REGCXPG, PINTURAS.DBO.CXPGEN.Moncxpg, PINTURAS.DBO.CXPGEN.TCACXPG, " &_
"PINTURAS.DBO.CXPGEN.PrvCxpG, PINTURAS.DBO.PROVEEDORES.Nomprv, PINTURAS.DBO.CXPGEN.Nrecxpg, PINTURAS.DBO.CRECENC.REFRENC, " &_
"Case when PINTURAS.DBO.CXPGEN.Moncxpg = 1 then PINTURAS.DBO.CXPGEN.salcxpg else 0 end as 'PESOS', " &_
"Case when PINTURAS.DBO.CXPGEN.Moncxpg = 2 then PINTURAS.DBO.CXPGEN.salcxpg else 0 end as 'DOLARES', " &_
"PINTURAS.DBO.CXPGEN.Fpacxpg, DATEDIFF (day, PINTURAS.DBO.CXPGEN.Fpacxpg, Getdate()) as Vencido, " &_
"PINTURAS.DBO.CXPGEN.PPAGOCXPG, PINTURAS.DBO.PROVEEDORES.TIPOP " &_
"FROM PINTURAS.DBO.CXPGEN " &_
"LEFT JOIN PINTURAS.DBO.PROVEEDORES ON PINTURAS.DBO.CXPGEN.PrvCxpG = PINTURAS.DBO.PROVEEDORES.CVEPRV " &_
"LEFT JOIN PINTURAS.DBO.CRecEnc ON PINTURAS.DBO.CRECENC.NUMRENC = PINTURAS.DBO.CXPGEN.NRECXPG " &_
"WHERE PINTURAS.DBO.CXPGEN.SALCXPG > 0 AND PINTURAS.DBO.CRECENC.VerifRenc = 1 AND PINTURAS.DBO.CXPGEN.PROGRAMADO = 0;"
Cn1.Execute Sql23
'//******* INSERTAMOS LAS PARTIDAS PUEBLA *****//
Set Rs24=server.CreateObject("ADODB.recordset")
Sql24="INSERT into " & Session("MyName") & " " &_
"(EMPRESA, BD, REGISTRO, MONEDA, TCAMBIO, CLAVE, NOMBRE, RECEPCION, REFERENCIA, PESOS, DOLARES, FPAGO, VENCIDO, PPAGO, TIPO, " &_
"BANCOPRV, BANCOPAGO, TIPOOPER, CBEMX, CBEUSD, REFCIE, TIPOTRANS, PAISBEN, PAISBANBEN, DIRBANBEN) " &_
"SELECT 'MISSA', 'PUEBLA', PUEBLA.DBO.CXPGEN.REGCXPG, PUEBLA.DBO.CXPGEN.Moncxpg, PUEBLA.DBO.CXPGEN.TCACXPG, " &_
"PUEBLA.DBO.CXPGEN.PrvCxpG, PUEBLA.DBO.PROVEEDORES.Nomprv, PUEBLA.DBO.CXPGEN.Nrecxpg, PUEBLA.DBO.CRECENC.REFRENC, " &_
"Case when PUEBLA.DBO.CXPGEN.Moncxpg = 1 then PUEBLA.DBO.CXPGEN.salcxpg else 0 end as 'PESOS', " &_
"Case when PUEBLA.DBO.CXPGEN.Moncxpg = 2 then PUEBLA.DBO.CXPGEN.salcxpg else 0 end as 'DOLARES', " &_
"PUEBLA.DBO.CXPGEN.Fpacxpg, DATEDIFF (day, PUEBLA.DBO.CXPGEN.Fpacxpg, Getdate()) as Vencido, " &_
"PUEBLA.DBO.CXPGEN.PPAGOCXPG, PUEBLA.DBO.PROVEEDORES.TIPOP, " &_
"PUEBLA.DBO.PROVEEDORES.BANPRV, PUEBLA.DBO.PROVEEDORES.BANPAGPRV, PUEBLA.DBO.PROVEEDORES.TIPOOPER, PUEBLA.DBO.PROVEEDORES.CBEMXPRV, " &_
"PUEBLA.DBO.PROVEEDORES.CBEUSDPRV, PUEBLA.DBO.PROVEEDORES.REFCIEPRV, PUEBLA.DBO.PROVEEDORES.TIPOTRANSPRV, PUEBLA.DBO.PROVEEDORES.PAISBENPRV, " &_
"PUEBLA.DBO.PROVEEDORES.PAISBANBEN, PUEBLA.DBO.PROVEEDORES.DIRBANBEN " &_
"FROM PUEBLA.DBO.CXPGEN " &_
"LEFT JOIN PUEBLA.DBO.PROVEEDORES ON PUEBLA.DBO.CXPGEN.PrvCxpG = PUEBLA.DBO.PROVEEDORES.CVEPRV " &_
"LEFT JOIN PUEBLA.DBO.CRecEnc ON PUEBLA.DBO.CRECENC.NUMRENC = PUEBLA.DBO.CXPGEN.NRECXPG " &_
"WHERE PUEBLA.DBO.CXPGEN.SALCXPG > 0 AND PUEBLA.DBO.CRECENC.VerifRenc = 1 AND PUEBLA.DBO.CXPGEN.PROGRAMADO = 0;"
Cn1.Execute Sql24
'//******* INSERTAMOS LAS PARTIDAS QUERETARO *****//
Set Rs25=server.CreateObject("ADODB.recordset")
Sql25="INSERT into " & Session("MyName") & " " &_
"(EMPRESA, BD, REGISTRO, MONEDA, TCAMBIO, CLAVE, NOMBRE, RECEPCION, REFERENCIA, PESOS, DOLARES, FPAGO, VENCIDO, PPAGO, TIPO, " &_
"BANCOPRV, BANCOPAGO, TIPOOPER, CBEMX, CBEUSD, REFCIE, TIPOTRANS, PAISBEN, PAISBANBEN, DIRBANBEN) " &_
"SELECT 'MIMSA', 'QUERETARO', QUERETARO.DBO.CXPGEN.REGCXPG, QUERETARO.DBO.CXPGEN.Moncxpg, QUERETARO.DBO.CXPGEN.TCACXPG, " &_
"QUERETARO.DBO.CXPGEN.PrvCxpG, QUERETARO.DBO.PROVEEDORES.Nomprv, QUERETARO.DBO.CXPGEN.Nrecxpg, QUERETARO.DBO.CRECENC.REFRENC, " &_
"Case when QUERETARO.DBO.CXPGEN.Moncxpg = 1 then QUERETARO.DBO.CXPGEN.salcxpg else 0 end as 'PESOS', " &_
"Case when QUERETARO.DBO.CXPGEN.Moncxpg = 2 then QUERETARO.DBO.CXPGEN.salcxpg else 0 end as 'DOLARES', " &_
"QUERETARO.DBO.CXPGEN.Fpacxpg, DATEDIFF (day, QUERETARO.DBO.CXPGEN.Fpacxpg, Getdate()) as Vencido, " &_
"QUERETARO.DBO.CXPGEN.PPAGOCXPG, QUERETARO.DBO.PROVEEDORES.TIPOP, " &_
"QUERETARO.DBO.PROVEEDORES.BANPRV, QUERETARO.DBO.PROVEEDORES.BANPAGPRV, QUERETARO.DBO.PROVEEDORES.TIPOOPER, QUERETARO.DBO.PROVEEDORES.CBEMXPRV, " &_
"QUERETARO.DBO.PROVEEDORES.CBEUSDPRV, QUERETARO.DBO.PROVEEDORES.REFCIEPRV, QUERETARO.DBO.PROVEEDORES.TIPOTRANSPRV, QUERETARO.DBO.PROVEEDORES.PAISBENPRV, " &_
"QUERETARO.DBO.PROVEEDORES.PAISBANBEN, QUERETARO.DBO.PROVEEDORES.DIRBANBEN " &_
"FROM QUERETARO.DBO.CXPGEN " &_
"LEFT JOIN QUERETARO.DBO.PROVEEDORES ON QUERETARO.DBO.CXPGEN.PrvCxpG = QUERETARO.DBO.PROVEEDORES.CVEPRV " &_
"LEFT JOIN QUERETARO.DBO.CRecEnc ON QUERETARO.DBO.CRECENC.NUMRENC = QUERETARO.DBO.CXPGEN.NRECXPG " &_
"WHERE QUERETARO.DBO.CXPGEN.SALCXPG > 0 AND QUERETARO.DBO.CRECENC.VerifRenc = 1 AND QUERETARO.DBO.CXPGEN.PROGRAMADO = 0;"
Cn1.Execute Sql25
'//******* INSERTAMOS LAS PARTIDAS TAMPICO *****//
Set Rs26=server.CreateObject("ADODB.recordset")
Sql26="INSERT into " & Session("MyName") & " " &_
"(EMPRESA, BD, REGISTRO, MONEDA, TCAMBIO, CLAVE, NOMBRE, RECEPCION, REFERENCIA, PESOS, DOLARES, FPAGO, VENCIDO, PPAGO, TIPO, " &_
"BANCOPRV, BANCOPAGO, TIPOOPER, CBEMX, CBEUSD, REFCIE, TIPOTRANS, PAISBEN, PAISBANBEN, DIRBANBEN) " &_
"SELECT 'MIMSA', 'TAMPICO', TAMPICO.DBO.CXPGEN.REGCXPG, TAMPICO.DBO.CXPGEN.Moncxpg, TAMPICO.DBO.CXPGEN.TCACXPG, " &_
"TAMPICO.DBO.CXPGEN.PrvCxpG, TAMPICO.DBO.PROVEEDORES.Nomprv, TAMPICO.DBO.CXPGEN.Nrecxpg, TAMPICO.DBO.CRECENC.REFRENC, " &_
"Case when TAMPICO.DBO.CXPGEN.Moncxpg = 1 then TAMPICO.DBO.CXPGEN.salcxpg else 0 end as 'PESOS', " &_
"Case when TAMPICO.DBO.CXPGEN.Moncxpg = 2 then TAMPICO.DBO.CXPGEN.salcxpg else 0 end as 'DOLARES', " &_
"TAMPICO.DBO.CXPGEN.Fpacxpg, DATEDIFF (day, TAMPICO.DBO.CXPGEN.Fpacxpg, Getdate()) as Vencido, " &_
"TAMPICO.DBO.CXPGEN.PPAGOCXPG, TAMPICO.DBO.PROVEEDORES.TIPOP, " &_
"TAMPICO.DBO.PROVEEDORES.BANPRV, TAMPICO.DBO.PROVEEDORES.BANPAGPRV, TAMPICO.DBO.PROVEEDORES.TIPOOPER, TAMPICO.DBO.PROVEEDORES.CBEMXPRV, " &_
"TAMPICO.DBO.PROVEEDORES.CBEUSDPRV, TAMPICO.DBO.PROVEEDORES.REFCIEPRV, TAMPICO.DBO.PROVEEDORES.TIPOTRANSPRV, TAMPICO.DBO.PROVEEDORES.PAISBENPRV, " &_
"TAMPICO.DBO.PROVEEDORES.PAISBANBEN, TAMPICO.DBO.PROVEEDORES.DIRBANBEN " &_
"FROM TAMPICO.DBO.CXPGEN " &_
"LEFT JOIN TAMPICO.DBO.PROVEEDORES ON TAMPICO.DBO.CXPGEN.PrvCxpG = TAMPICO.DBO.PROVEEDORES.CVEPRV " &_
"LEFT JOIN TAMPICO.DBO.CRecEnc ON TAMPICO.DBO.CRECENC.NUMRENC = TAMPICO.DBO.CXPGEN.NRECXPG " &_
"WHERE TAMPICO.DBO.CXPGEN.SALCXPG > 0 AND TAMPICO.DBO.CRECENC.VerifRenc = 1 AND TAMPICO.DBO.CXPGEN.PROGRAMADO = 0;"
Cn1.Execute Sql26
'//******* INSERTAMOS LAS PARTIDAS TOLUCA *****//
Set Rs27=server.CreateObject("ADODB.recordset")
Sql27="INSERT into " & Session("MyName") & " " &_
"(EMPRESA, BD, REGISTRO, MONEDA, TCAMBIO, CLAVE, NOMBRE, RECEPCION, REFERENCIA, PESOS, DOLARES, FPAGO, VENCIDO, PPAGO, TIPO, " &_
"BANCOPRV, BANCOPAGO, TIPOOPER, CBEMX, CBEUSD, REFCIE, TIPOTRANS, PAISBEN, PAISBANBEN, DIRBANBEN) " &_
"SELECT 'VITSA', 'TOLUCA', TOLUCA.DBO.CXPGEN.REGCXPG, TOLUCA.DBO.CXPGEN.Moncxpg, TOLUCA.DBO.CXPGEN.TCACXPG, " &_
"TOLUCA.DBO.CXPGEN.PrvCxpG, TOLUCA.DBO.PROVEEDORES.Nomprv, TOLUCA.DBO.CXPGEN.Nrecxpg, TOLUCA.DBO.CRECENC.REFRENC, " &_
"Case when TOLUCA.DBO.CXPGEN.Moncxpg = 1 then TOLUCA.DBO.CXPGEN.salcxpg else 0 end as 'PESOS', " &_
"Case when TOLUCA.DBO.CXPGEN.Moncxpg = 2 then TOLUCA.DBO.CXPGEN.salcxpg else 0 end as 'DOLARES', " &_
"TOLUCA.DBO.CXPGEN.Fpacxpg, DATEDIFF (day, TOLUCA.DBO.CXPGEN.Fpacxpg, Getdate()) as Vencido, " &_
"TOLUCA.DBO.CXPGEN.PPAGOCXPG, TOLUCA.DBO.PROVEEDORES.TIPOP, " &_
"TOLUCA.DBO.PROVEEDORES.BANPRV, TOLUCA.DBO.PROVEEDORES.BANPAGPRV, TOLUCA.DBO.PROVEEDORES.TIPOOPER, TOLUCA.DBO.PROVEEDORES.CBEMXPRV, " &_
"TOLUCA.DBO.PROVEEDORES.CBEUSDPRV, TOLUCA.DBO.PROVEEDORES.REFCIEPRV, TOLUCA.DBO.PROVEEDORES.TIPOTRANSPRV, TOLUCA.DBO.PROVEEDORES.PAISBENPRV, " &_
"TOLUCA.DBO.PROVEEDORES.PAISBANBEN, TOLUCA.DBO.PROVEEDORES.DIRBANBEN " &_
"FROM TOLUCA.DBO.CXPGEN " &_
"LEFT JOIN TOLUCA.DBO.PROVEEDORES ON TOLUCA.DBO.CXPGEN.PrvCxpG = TOLUCA.DBO.PROVEEDORES.CVEPRV " &_
"LEFT JOIN TOLUCA.DBO.CRecEnc ON TOLUCA.DBO.CRECENC.NUMRENC = TOLUCA.DBO.CXPGEN.NRECXPG " &_
"WHERE TOLUCA.DBO.CXPGEN.SALCXPG > 0 AND TOLUCA.DBO.CRECENC.VerifRenc = 1 AND TOLUCA.DBO.CXPGEN.PROGRAMADO = 0;"
Cn1.Execute Sql27
'//******* INSERTAMOS LAS PARTIDAS VILLAHERMOSA *****//
Set Rs28=server.CreateObject("ADODB.recordset")
Sql28="INSERT into " & Session("MyName") & " " &_
"(EMPRESA, BD, REGISTRO, MONEDA, TCAMBIO, CLAVE, NOMBRE, RECEPCION, REFERENCIA, PESOS, DOLARES, FPAGO, VENCIDO, PPAGO, TIPO, " &_
"BANCOPRV, BANCOPAGO, TIPOOPER, CBEMX, CBEUSD, REFCIE, TIPOTRANS, PAISBEN, PAISBANBEN, DIRBANBEN) " &_
"SELECT 'MICSA', 'VILLAHERMOSA', VILLAHERMOSA.DBO.CXPGEN.REGCXPG, VILLAHERMOSA.DBO.CXPGEN.Moncxpg, VILLAHERMOSA.DBO.CXPGEN.TCACXPG, " &_
"VILLAHERMOSA.DBO.CXPGEN.PrvCxpG, VILLAHERMOSA.DBO.PROVEEDORES.Nomprv, VILLAHERMOSA.DBO.CXPGEN.Nrecxpg, VILLAHERMOSA.DBO.CRECENC.REFRENC, " &_
"Case when VILLAHERMOSA.DBO.CXPGEN.Moncxpg = 1 then VILLAHERMOSA.DBO.CXPGEN.salcxpg else 0 end as 'PESOS', " &_
"Case when VILLAHERMOSA.DBO.CXPGEN.Moncxpg = 2 then VILLAHERMOSA.DBO.CXPGEN.salcxpg else 0 end as 'DOLARES', " &_
"VILLAHERMOSA.DBO.CXPGEN.Fpacxpg, DATEDIFF (day, VILLAHERMOSA.DBO.CXPGEN.Fpacxpg, Getdate()) as Vencido, " &_
"VILLAHERMOSA.DBO.CXPGEN.PPAGOCXPG, VILLAHERMOSA.DBO.PROVEEDORES.TIPOP, " &_
"VILLAHERMOSA.DBO.PROVEEDORES.BANPRV, VILLAHERMOSA.DBO.PROVEEDORES.BANPAGPRV, VILLAHERMOSA.DBO.PROVEEDORES.TIPOOPER, VILLAHERMOSA.DBO.PROVEEDORES.CBEMXPRV, " &_
"VILLAHERMOSA.DBO.PROVEEDORES.CBEUSDPRV, VILLAHERMOSA.DBO.PROVEEDORES.REFCIEPRV, VILLAHERMOSA.DBO.PROVEEDORES.TIPOTRANSPRV, VILLAHERMOSA.DBO.PROVEEDORES.PAISBENPRV, " &_
"VILLAHERMOSA.DBO.PROVEEDORES.PAISBANBEN, VILLAHERMOSA.DBO.PROVEEDORES.DIRBANBEN " &_
"FROM VILLAHERMOSA.DBO.CXPGEN " &_
"LEFT JOIN VILLAHERMOSA.DBO.PROVEEDORES ON VILLAHERMOSA.DBO.CXPGEN.PrvCxpG = VILLAHERMOSA.DBO.PROVEEDORES.CVEPRV " &_
"LEFT JOIN VILLAHERMOSA.DBO.CRecEnc ON VILLAHERMOSA.DBO.CRECENC.NUMRENC = VILLAHERMOSA.DBO.CXPGEN.NRECXPG " &_
"WHERE VILLAHERMOSA.DBO.CXPGEN.SALCXPG > 0 AND VILLAHERMOSA.DBO.CRECENC.VerifRenc = 1 AND VILLAHERMOSA.DBO.CXPGEN.PROGRAMADO = 0;"
Cn1.Execute Sql28
'//******* INSERTAMOS LAS PARTIDAS VITPINTURAS *****//
Set Rs29=server.CreateObject("ADODB.recordset")
Sql29="INSERT into " & Session("MyName") & " " &_
"(EMPRESA, BD, REGISTRO, MONEDA, TCAMBIO, CLAVE, NOMBRE, RECEPCION, REFERENCIA, PESOS, DOLARES, FPAGO, VENCIDO, PPAGO, TIPO, " &_
"BANCOPRV, BANCOPAGO, TIPOOPER, CBEMX, CBEUSD, REFCIE, TIPOTRANS, PAISBEN, PAISBANBEN, DIRBANBEN) " &_
"SELECT 'VITSA', 'VITPINTURAS', VITPINTURAS.DBO.CXPGEN.REGCXPG, VITPINTURAS.DBO.CXPGEN.Moncxpg, VITPINTURAS.DBO.CXPGEN.TCACXPG, " &_
"VITPINTURAS.DBO.CXPGEN.PrvCxpG, VITPINTURAS.DBO.PROVEEDORES.Nomprv, VITPINTURAS.DBO.CXPGEN.Nrecxpg, VITPINTURAS.DBO.CRECENC.REFRENC, " &_
"Case when VITPINTURAS.DBO.CXPGEN.Moncxpg = 1 then VITPINTURAS.DBO.CXPGEN.salcxpg else 0 end as 'PESOS', " &_
"Case when VITPINTURAS.DBO.CXPGEN.Moncxpg = 2 then VITPINTURAS.DBO.CXPGEN.salcxpg else 0 end as 'DOLARES', " &_
"VITPINTURAS.DBO.CXPGEN.Fpacxpg, DATEDIFF (day, VITPINTURAS.DBO.CXPGEN.Fpacxpg, Getdate()) as Vencido, " &_
"VITPINTURAS.DBO.CXPGEN.PPAGOCXPG, VITPINTURAS.DBO.PROVEEDORES.TIPOP, " &_
"VITPINTURAS.DBO.PROVEEDORES.BANPRV, VITPINTURAS.DBO.PROVEEDORES.BANPAGPRV, VITPINTURAS.DBO.PROVEEDORES.TIPOOPER, VITPINTURAS.DBO.PROVEEDORES.CBEMXPRV, " &_
"VITPINTURAS.DBO.PROVEEDORES.CBEUSDPRV, VITPINTURAS.DBO.PROVEEDORES.REFCIEPRV, VITPINTURAS.DBO.PROVEEDORES.TIPOTRANSPRV, VITPINTURAS.DBO.PROVEEDORES.PAISBENPRV, " &_
"VITPINTURAS.DBO.PROVEEDORES.PAISBANBEN, VITPINTURAS.DBO.PROVEEDORES.DIRBANBEN " &_
"FROM VITPINTURAS.DBO.CXPGEN " &_
"LEFT JOIN VITPINTURAS.DBO.PROVEEDORES ON VITPINTURAS.DBO.CXPGEN.PrvCxpG = VITPINTURAS.DBO.PROVEEDORES.CVEPRV " &_
"LEFT JOIN VITPINTURAS.DBO.CRecEnc ON VITPINTURAS.DBO.CRECENC.NUMRENC = VITPINTURAS.DBO.CXPGEN.NRECXPG " &_
"WHERE VITPINTURAS.DBO.CXPGEN.SALCXPG > 0 AND VITPINTURAS.DBO.CRECENC.VerifRenc = 1 AND VITPINTURAS.DBO.CXPGEN.PROGRAMADO = 0;"
Cn1.Execute Sql29
Response.Redirect("PagoProvL.asp")
%>
</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
%>
485 líneas de código