<%
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/GestorC.css" rel="stylesheet" />
<link href="css/Buscador.css" rel="stylesheet" />
<script language="javascript">
stat=1
function frm_submit(frm,rec)
{
var msgDel,check
check = 0
msgDel = "Desea continuar ?"
if (rec == 1)
{
if(frm.chk.checked == false){
check = 0
}
else{
check= 1
}
}
else if(rec > 1 )
{
for(i=0;i<frm.chk.length;i++)
{
if(frm.chk[i].checked == true)
{
check = 1;
break;
}
}
}
if (check == 0)
{
alert("Debe Seleccionar por lo menos una partida")
return;
}
else if(check == 1)
{
ok = confirm(msgDel)
if (ok == false)
{
return;
}
else
{
frm.submit()
}
}
}
function en_dis(frm,RecCount,val){
var chkLength
// tg= document.getElementById(tag_id1).className
//if (tg =='slected'){
//for (i=1;i<5;i++){
//eval("document.getElementById(tag_id"+i+").className=''")
//}}
//else{
//for (i=1;i<5;i++){
//eval("document.getElementById(tag_id"+i+").className='slected'")
//}
//}
//tg_id.className='slected'
if (RecCount>1){
chkLength=frm.chk.length
}
else
{
chkLength=1
frm.chkMain.checked=frm.chk.checked
if (stat==1){
eval("document.frm."+val+".disabled=false")
stat=0
}
else{
eval("document.frm."+val+".disabled=true")
stat=1
}
return;
}
for(i=0;i<=chkLength-1;i++){
if(frm.chk[i].checked==false){
frm.chkMain.checked=false
break;
}
else{
frm.chkMain.checked=true
}
}
tt= eval("document.frm."+val+".disabled")
if (tt== true){
eval("document.frm."+val+".disabled=false")
}
else
eval("document.frm."+val+".disabled=true")
}
function chk_all(frm,RecCount){
var chkLength
if (RecCount>1)
{
chkLength=frm.chk.length
}
else if (RecCount==1)
{
chkLength=1
frm.chk.checked=frm.chkMain.checked
if (stat==1){
document.frm.txt_0.disabled=false
stat=0
}
else{
document.frm.txt_0.disabled=true
stat=1
}
return;
}
if(frm.chkMain.checked==true){
for (i=0;i<=chkLength-1;i++){
frm.chk[i].checked=true
//frm.txt[i].disabled= false
eval("frm.txt_"+i+".disabled= false")
}
}
else
{
for (i=0;i<=chkLength-1;i++){
frm.chk[i].checked=false
//frm.txt[i].disabled= true
eval("frm.txt_"+i+".disabled= true")
}
}
return;
}
</script>
<BODY>
<%
'***** Variables a la base de datos ****
Dim Cn1
Dim Rs11, Rs12, Rs13, Rs14, Rs15, Rs16, Rs17
Dim Sql11, Sql12, Sql13, Sql14, Sql15, Sql16, Sql17
'***** 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>
<!---menu --->
<br><br>
</SECTION>
<Center>
<B>***** Comprobante de Pago *****</B>
</center>
<%
Dim Clacli, MonedaP, TcambioA, Folio, FechaC, FechaP, RepPago, Tpago, Fpago, Mpago
Clacli = Request("Clacli")
TcambioA = Request("TcambioA")
Folio = Request("Folio")
FechaP = Request("FechaP")
Tpago = Request("Tpago")
'***** Conexion A la tabla Gestor de Clientes ****
Set Rs12= Server.CreateObject("ADODB.Recordset")
Sql12="Select * from Clientes, RepPAgoE, Monedas " &_
"where Clacli= CliComE and Cladiv= MonComE and FolcomE = "& Folio &" ;"
Rs12.Open Sql12,Cn1,1,2
MonedaP = Rs12("MonComE")
Fpago = Rs12("FpComE")
Mpago = Rs12("MpComE")
%>
<SECTION Id="Resultados">
<form action="ComprobanteGen.asp" method="Post" name="frm" id="AgregaGC">
<br>
<Table Class="TablaRes" Width="800px" Align="center">
<Tr>
<Td>( <%= Rs12("Clacli") %> ) <%= Rs12("Nomcli") %> </Td>
</Tr>
<Tr>
<Td> <%= Rs12("Calcli") %> <%= Rs12("Numcli") %> <%= Rs12("Numicli") %></Td>
</Tr>
<Tr>
<Td> <%= Rs12("Colcli") %> <%= Rs12("Pobcli") %> <%= Rs12("Edocli") %> <%= Rs12("Pais") %> <%= Rs12("Cpcli") %> </Td>
<Td Align="Right"></Td>
</Tr>
<input type="Hidden" name="Clacli" value="<%= Clacli %>" >
<input type="Hidden" name="TcambioA" value="<%= TcambioA %>" >
<input type="Hidden" name="Folio" value="<%= Folio %>" >
<input type="Hidden" name="Tpago" value="<%= Tpago %>" >
<input type="Hidden" name="FechaP" value="<%= FechaP %>" >
</Table>
<br>
<Table Id="Transfer" Align="center">
<Tr>
<Td>Forma Pago</td>
<Td>Metodo Pago</td>
</Tr>
<Tr>
<Td>
<%
'***** Conexion A la Tabla Empresa ****
Set Rs13 = Server.CreateObject("ADODB.Recordset")
Sql13="Select * " &_
"From FormaPago;"
Rs13.Open Sql13,Cn1,1,2
%>
<Select tabindex="1" Name="FForma">
<option value=<%= Rs12("FpComE") %> Selected><%= Rs12("FpComE") %></Option>
<%
Do While NOT Rs13.EOF
%>
<option value="<%= Rs13("ClaveFP") %>"><%= Rs13("ClaveFP") %> <%= Rs13("DescripcionFP") %></Option>
<%
Rs13.Movenext
Loop
%>
</Select>
</Td>
<Td>
<%
'***** Conexion A la Tabla PAGOS ****
Set Rs14 = Server.CreateObject("ADODB.Recordset")
Sql14="Select * " &_
"From MetodoPago;"
Rs14.Open Sql14,Cn1,1,2
%>
<Select tabindex="2" Name="MetodoPago">
<option value=<%= Rs12("MpComE") %> Selected><%= Rs12("MpComE") %></Option>
<%
Do While NOT Rs14.EOF
%>
<option value="<%= Rs14("ClaveMP") %>"><%= Rs14("ClaveMP") %> <%= Rs14("DescripcionMP") %></Option>
<%
Rs14.Movenext
Loop
%>
</Select>
</td>
<Td>
<%
'****** TABLA DE MONEDAS ****
Set Rs16 = Server.CreateObject("ADODB.Recordset")
Sql16="Select Cladiv, Desdiv " &_
"From Monedas;"
Rs16.Open Sql16,Cn1,1,2
If Rs16.EOF Then
Else
%>
<SELECT NAME="MonedaP" tabindex="3">
<option value=<%= Rs12("Cladiv") %> Selected><%= Rs12("Desdiv") %></Option>
<%
Do While Not Rs16.EOF
%>
<OPTION value="<%= Rs16("Cladiv") %>"> <%= Rs16("Desdiv") %> </Option>
<%
Rs16.Movenext
Loop
%>
</Select>
<%
End If
%>
</Td>
</Tr>
<Tr>
<Td>Ordenante: RFC</Td>
<Td>Banco:</Td>
<Td>Cuenta:<Td>
</tr>
<Tr>
<Td>
<input tabindex="4" type="Text" placeholder="Orfc" Title="Orfc" name="Orfc" size="8px" id="Orfc" value="<%=Rs12("OrfcComE")%>">
</Td>
<Td>
<input tabindex="5" type="Text" placeholder="Obanco" Title="Obanco" name="Obanco" size="8px" id="" value="<%=Rs12("ObanComE")%>">
</Td>
<Td>
<input tabindex="6" type="Text" placeholder="Octa" Title="Octa" name="Octa" size="10px" id="" value="<%=Rs12("OctaComE")%>">
</Td>
</Tr>
<Tr>
<Td>Beneficiario: RFC
</Td>
<Td>Cuenta
</Td>
<Td># de Operacion:
</Td>
</tr>
<Tr>
<Td>
<input tabindex="7" type="Text" placeholder="Brfc" Title="Brfc" name="Brfc" size="8px" id="Brfc" value="<%=Rs12("BrfcComE")%>">
</Td>
<Td>
<input tabindex="8" type="Text" placeholder="Bcta" Title="Bcta" name="Bcta" size="10px" id="" value="<%=Rs12("BctaComE")%>">
</Td>
<Td>
<input tabindex="9" type="Text" placeholder="Noperacion" Title="Noperacion" name="Noperacion" size="10px" id="" value="<%=Rs12("NumoComE")%>">
</Td>
</Tr>
<% If Fpago = "03" Then%>
<Tr>
<Td>Certificado Pago
</Td>
<Td>Cadena Pago
</Td>
<Td>Sello Pago:
</Td>
</tr>
<Tr>
<Td>
<input tabindex="10" type="Text" placeholder="CerPago" Title="CerPago" name="CerPago" size="8px" id="CerPago" value="<%=Rs12("CerpComE")%>">
</Td>
<Td>
<input tabindex="11" type="Text" placeholder="CadPago" Title="CadPago" name="CadPago" size="10px" id="" value="<%=Rs12("CadpComE")%>">
</Td>
<Td>
<input tabindex="12" type="Text" placeholder="SelloP" Title="SelloP" name="SelloP" size="10px" id="" value="<%=Rs12("SelpComE")%>" required/>
</Td>
</Tr>
<% Else
End If
%>
<Tr>
<Td>Tipo Relacion</td>
<Td></td>
<Td>UUID Relacionado</td>
</tr>
<Tr>
<Td Colspan="2">
<%
'***** Conexion A la Tabla Empresa ****
Set Rs17 = Server.CreateObject("ADODB.Recordset")
Sql17="Select * " &_
"From TipoRelacion;"
Rs17.Open Sql17,Cn1,1,2
%>
<Select tabindex="8" Name="TipoRel">
<option value="<%= Rs12("TipoRel") %>" Selected><%= Rs12("TipoRel") %></Option>
<optgroup label="Cambiar_Por:">
<%
Do While NOT Rs17.EOF
%>
<option value="<%= Rs17("TipoRel") %>"><%= Rs17("TipoRel") %> <%= Rs17("DescRel") %></Option>
<%
Rs17.Movenext
Loop
%>
</Select>
</td>
<Td>
<input tabindex="9" type="text" placeholder="UUID Relacionado" Title="UUID Relacionado" name="UUIDREL" id="FForma" value="<%= Rs12("UUIDR") %>" Size="20px" onChange="javascript:this.value=this.value.toUpperCase();">
</Td>
</Tr>
</table>
<!---------- SCRIPT PARA LAS PARTIDAS ------------------>
<%
Dim Fday, Fmonth, Fyear, FechaN
Fday = day(date())
Fmonth = Month(date())
If Fmonth < 10 then
Fmonth = "0"&Fmonth
else
Fmonth = Fmonth
End If
Fyear = year(date())
FechaN = Fday & "/" & Fmonth & "/" & Fyear
'***** Conexion A la tabla Gestor de Clientes ****
Set Rs15 = Server.CreateObject("ADODB.Recordset")
Sql15 ="Select RegcomD, FacComD, Fecfface, ImpComD as Importe, UuidcomD, NparComd " &_
"from Ffacenc, RepPAgoD " &_
"where Numfface = FacComD and Clifface = CliComD and FolcomD = "& Folio &";"
Rs15.Open Sql15,Cn1,1,2
%>
<SECTION Id="Resultados">
<Table Class="Tableneg" Align="center">
<Tr>
<Td><input type="checkbox" name="chkMain" onClick="JavaScript:chk_all(document.frm,<%=Rs15.recordcount%>)"></Td>
<Td>Factura</Td>
<Td>Fecha Fac</Td>
<Td>UUID</Td>
<Td>Monto</Td>
<Td># Parcialidad</Td>
</TR>
<%
dim i
For i = 0 to Rs15.RecordCount - 1
%>
<Td>
<input type="checkbox" name="chk" value="<%=i%>" onClick="JavaScript:en_dis(document.frm,<%=Rs15.recordcount%>,'txt_<%=i%>')">
</Td>
<Td>
<input tabindex="13" type="text" placeholder="Factura" Title="Factura" name="Fac_<%=i%>" id="Factura" value="<%= Rs15("FacComD") %>" Size="2px" onChange="javascript:this.value=this.value.toUpperCase();"readonly >
</Td>
<Td>
<input tabindex="14" type="text" placeholder="FechaF" Title="FechaF" name="FecF_<%=i%>" id="FechaF" value="<%= Rs15("Fecfface") %>" Size="6px" onChange="javascript:this.value=this.value.toUpperCase();"readonly >
</Td>
<Td>
<input tabindex="15" type="text" placeholder="UUID" Title="UUID" name="Uui_<%=i%>" id="UUID" value="<%= Rs15("UuidcomD") %>" Size="38px" onChange="javascript:this.value=this.value.toUpperCase();" required/>
</Td>
<Td >
<input tabindex="16" type="text" placeholder="Monto" Title="Monto" name="Mon_<%=i%>" id="Monto" value="<%= Formatcurrency(Rs15("Importe")) %>" Size="8px" onChange="javascript:this.value=this.value.toUpperCase();"readonly>
</Td>
<Td >
<input tabindex="17" type="text" placeholder="Nparcial" Title="Nparcial" name="Npar_<%=i%>" id="Nparcial" value="<%=Rs15("NparComd")%>" Size="3px" onChange="javascript:this.value=this.value.toUpperCase();">
</Td>
<input type="Hidden" name="txt_<%=i%>" value="<%= Rs15("RegcomD") %>" disabled>
</tr>
<%
Rs15.Movenext
Next
%>
<Tr>
<Td Colspan="5" Align="Center">
<button tabindex="5" type="submit" name="Grabar" id="Grabar" onclick="frm_submit(document.frm,<%=Rs15.recordcount%>)"/>Generar</button><br><br></Td>
</Tr>
</table>
</form>
</SECTION>
</div>
<%
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
%>