Detalle: facrcar.asp

facrcar.asp

Ir a la Página Volver a la Lista
Archivo ASP

facrcar.asp
Página Razor

facrcar
Módulo

Facturas
Líneas de Código

435
Características
En Menú:	No
Formularios:	1 formulario(s)
Consultas SQL:	Ninguna
Complejidad:	medium
Bases de Datos:	Session DB
Tablas Utilizadas (0)
No se detectaron tablas
Comentarios y Notas (0)
No hay comentarios aún
Enlaces Salientes (6) Páginas a las que esta página enlaza
Archivo ASP	Tipo	Módulo	Estado	Página Razor
`facclig.asp`	form_action	Facturas	Pendiente	-
`barra.asp`	include	General	Pendiente	-
`empresa.asp`	include	General	Pendiente	-
`general.asp`	include	General	Pendiente	-
`mpro.asp`	include	General	Pendiente	-
`user.asp`	include	General	Pendiente	-
Enlaces Entrantes (1) Páginas que enlazan a esta página
Archivo ASP	Tipo	Módulo	Estado	Página Razor
`facxrem.asp`	form_action	Facturas	Portada	Facturas/Facxrem.cshtml
<%  
Option Explicit
%>
<%
Session.LCID = 2058
%> 
<!--#include file="User.asp"-->
<!--#include file="general.asp"-->
<html>
<head>
<title>Grupo MIM</title>
<link rel=stylesheet href="vista.css">
<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>
</head>
<BODY>
<!--#INCLUDE FILE="BARRA.asp"-->

<div class="normalw" style="position:absolute; top:1px">
<center>
<!--#include file="empresa.asp"--><br>
<hr>
</center>
</div>

<div class="normalw" style="position:absolute; top:1px;">
Bienvenido: <%= nombre %>. <br>
Hora Actual: <%= time %>
</div>
<div class="normalw" style="position:absolute; top:34px; left:1">
<!--#include file="mpro.asp"-->
</div>


<div class="normal" style="position:absolute; top:60px; left:10">
<Center>
<b>Factura por Remision:
<hr>
<%
Dim Rs10, Sql10, Rs11, Sql11, Rs12, Sql12, Rs13, Sql13, Rs14, Sql14	
Dim RsM, SqlM, RMoneda
Dim Numrem
Dim Mostrador

Numrem = Request("Numrem")

set rs10 = server.CreateObject("ADODB.Recordset")
SQL10="Select * from Fremenc where numfreme = "& Numrem &" and stafreme = 'A' and TipoR is null or numfreme = "& Numrem &" and stafreme = 'P' and TipoR is null ;"
rs10.open sql10,cn1,1,2

If rs10.Eof Then
%>
Lo sentimos la Remision <%= Numrem %> No se puede Facturar debido a las siguientes Causas:
<bR>
La Remision ya fue Facturada.<br>
La Remision esta cancelada<br>
El Numero de la Remision no existe<br>
<%
Else
RMoneda = Rs10("Monfreme")
Mostrador = Rs10("Mosfreme")
%>

<%

Dim ClaCli
Clacli = Request("Clacli")

set rs11 = server.CreateObject("ADODB.Recordset")
sql11="Select Clacli, NomCli, Stacli, Ctapago, FormaPago, Labfreme From Clientes, Fremenc " &_
"where Clacli = Clifreme and Numfreme = "& Numrem &";"
rs11.open sql11,cn1,1,2

set RsM = server.CreateObject("ADODB.Recordset")
SqlM="Select* From Monedas where Cladiv = "& RMoneda &";"
RsM.open SqlM,cn1,1,2

%>

<TABLE border=1 cellspacing=1 cellpadding=2 bordercolor=#c0c0c0>
<tr>
<td align="Left" class="normal" bgcolor="#d8d8d8">Clave:</td>
<td align="Left" class="normal" bgcolor="#d8d8d8"><%= Rs11("Clacli") %></td>
</tr>
<tr>
<td align="Left" class="normal" bgcolor="#d8d8d8">Nombre:</td>
<td align="Left" class="normal" bgcolor="#d8d8d8"><%= Rs11("Nomcli") %></td>
</tr>
<tr>
<td align="Left" class="normal" bgcolor="#d8d8d8">Moneda:</td>
<td align="Left" class="normal" bgcolor="#d8d8d8"><%= RsM("Desdiv") %> &nbsp;  T. Cambio: <%= FormatNumber(RsM("Tcadiv")) %></td>
</tr>
<tr>
<td align="Left" class="normal" bgcolor="#d8d8d8">Oc Cliente:</td>
<td align="Left" class="normal" bgcolor="#d8d8d8"><%= Rs11("Labfreme") %></td>
</tr>
<%
If Mostrador = false then
Else
%>
<Tr>
<Td Colspan="2" style="font-family:verdana; font-size:11px; color:#FFFFFF; background-color: #FF742F; font-weight:bold; Text-Align:Center;">
ESTE DOCUMENTO ES PAGO EN CAJA </Td>
</Tr>
<%
End If
%>
</table>
<br>
<br>
<%
set rs12 = server.CreateObject("ADODB.Recordset")
sql12="Select Regfremd, Nrefremd, Clifremd, Secfremd, almfremd, codfremd, canfremd, Cpefremd, Unifremd, " &_
"monfremd, Tcafremd, desdiv, Nominv from Fremdet, Fremenc, monedas, Inventarios where nrefremd = numfreme " &_
"And monfremd = Cladiv and Cpefremd > 0 and Nrefremd = "& Numrem &" " &_
"And Codfremd = Cveinv;"
rs12.open sql12,cn1,1,2
%>
<FORM action="Facclig.asp" name="frm" method='post'>
<%
set rs13 = server.CreateObject("ADODB.Recordset")
Sql13 ="select * from Cxcgen, Monedas, Fremenc " &_
"where movcxcg = 2 and cladiv = moncxcg and salcxcg < 0 and Clicxcg = clifreme and Numfreme = "& Numrem &";"
rs13.Open SQL13, cn1
If Rs13.EOF then
%>
No Hay Anticipos por Aplicar
<input type="Hidden" name="Reganti" value="0" class="normalc">
<input type="Hidden" name="Anticipo" value="0" class="normalc">
<input type="Hidden" name="TCanti" value="0" class="normalc">
<input type="Hidden" name="Cliente" value="<%= Rs11("Clacli") %>" class="normalc">
<input type="Hidden" name="Esquema" value="<%= Rs10("esqfreme") %>" class="normalc">
<input type="Hidden" name="Moneda" value="<%= Rsm("cladiv") %>" class="normalc">
<%
Else
%>

<TABLE border=1 cellspacing=1 cellpadding=2 bordercolor=#c0c0c0>
<tr>
<td align="center" Class="Normal" bgcolor="#d8d8d8">
Anticipo
</td>

<td align="center" Class="Normal" bgcolor="#d8d8d8">
Valor
</td>

<td align="center" Class="Normal" bgcolor="#d8d8d8">
T.C. Anticipo
</td>
</tr>

<tr>
<td align="center" Class="Normal" bgcolor="#d8d8d8">
<SELECT NAME=RegAnti class=normalb>
<optgroup label=Seleccionado:>
<option value=0 Selected>0.00
<optgroup label="Importe - Moneda - Documento">
<%
while not rs13.EOF
%>
<OPTION value="<%= rs13("regcxcg") %>"><%= Formatnumber(Cdbl(rs13("salcxcg")) * -1) %> &nbsp; <%= rs13("Desdiv") %> &nbsp; <%= rs13("DOCCXCG") %></option>	
<%
rs13.MoveNext
wend
%>
</select>
</td>
<td align="center" Class="Normal" bgcolor="#d8d8d8">
<input type="Text" name="Anticipo" value="0.00" class="normalc">
</td>
<td align="center" Class="Normal" bgcolor="#d8d8d8">
<input type="Text" name="Tcanti" value="0.00" class="normalc">
<input type="Hidden" name="Cliente" value="<%= Rs11("Clacli") %>" class="normalc">
<input type="Hidden" name="Esquema" value="<%= Rs10("esqfreme") %>" class="normalc">
<input type="Hidden" name="Moneda" value="<%= Rsm("cladiv") %>" class="normalc">
</td>
</tr>
</Table>
<%
End If
%>
<br><br>
<TABLE border=1 cellspacing=1 cellpadding=2 bordercolor=#c0c0c0>
	<Tr>
		<Td Class="Normal" bgcolor="#d8d8d8">Cuenta Pago </td>
		<Td Class="Normal" bgcolor="#d8d8d8">Forma Pago </td>
		<Td Class="Normal" bgcolor="#d8d8d8">Exportacion</td>
	</Tr>
	<Tr>
		<Td Class="Normal" bgcolor="#d8d8d8"><input type="Text" name="Fcta" value="<%= Rs11("Ctapago") %>" Size="50px" class="normalc"> </td>
		<Td Class="Normal" bgcolor="#d8d8d8">
				<SELECT NAME="Fforma" class=normalb>
		<optgroup label=Seleccionado:>
		<option value="<%= Cstr(Rs11("FormaPago")) %>" Selected><%= Rs11("FormaPago") %></option>
		<optgroup label="Formas de Pago">
		<option value="01">01 Efectivo</option>
		<option value="02">02 Cheque nominativo</option>
		<option value="03">03 Transferencia electrÃ³nica de fondos</option>
		<option value="04">04 Tarjeta de Credito</option>
		<option value="05">05 Monederos Electronicos</option>
		<option value="06">06 Dinero Electronico</option>
		<option value="08">08 Vales de despensa</option>
		<option value="28">28 Tarjetas de DÃ©bito</option>
		<option value="29">29 Tarjetas de Servicios</option>
		<option value="99">99 Otros</option>
		</Select>
		</td>
		
		<Td Class="Normal" bgcolor="#d8d8d8"><input type="checkbox" name="Exportacion" value="02">Exportacion</td>
		
	</Tr>
</Table>
<br>
<input type="Hidden" name="Numrem" value="<%= Numrem %>" class="normalc">
<TABLE border=1 cellspacing=1 cellpadding=2 bordercolor=#c0c0c0>
<tr>
<td align="center" Class="Normal" bgcolor="#d8d8d8">
<input type="checkbox"  name="chkMain" onClick="JavaScript:chk_all(document.frm,<%=rs12.recordcount%>)">
</td>
<td align="Left" class="normal" bgcolor="#d8d8d8">Remision</td>
<td align="Left" class="normal" bgcolor="#d8d8d8">Partida</td>
<td align="Left" class="normal" bgcolor="#d8d8d8">Almacen</td>
<td align="Left" class="normal" bgcolor="#d8d8d8">Codigo</td>
<td align="Left" class="normal" bgcolor="#d8d8d8">Descripcion</td>
<td align="Left" class="normal" bgcolor="#d8d8d8">Cantidad</td>
<td align="Left" class="normal" bgcolor="#d8d8d8">Unitario</td>
<td align="Left" class="normal" bgcolor="#d8d8d8">Moneda</td>
</tr>
<%
dim count,Color, Importe
Importe = 0
count = 0
For i = 0 to rs12.RecordCount - 1
if (count Mod 2= 0) then Color="#ffffff" else Color="#D8D8D8" end if
Importe = Cdbl(Rs12("cpefremd")) * Cdbl(rs12("unifremd"))
%>

<tr>
<td align="center" bgcolor="<%= Color %>" Class="Normal">
<input type="checkbox"  name="chk" value="<%=i%>" onClick="JavaScript:en_dis(document.frm,<%=rs12.recordcount%>,'txt_<%=i%>')">
</td>
</td>
<td align="Right" bgcolor="<%= Color %>" Class="Normal"><% =rs12("nrefremd")%></td>
<td align="Right" bgcolor="<%= Color %>" Class="Normal"><% =rs12("secfremd")%></td>
<td align="Right" bgcolor="<%= Color %>" Class="Normal"><% =rs12("almfremd")%></td>
<td align="Left" bgcolor="<%= Color %>" Class="Normal"><% =rs12("codfremd")%></td>
<td align="Left" bgcolor="<%= Color %>" Class="Normal"><% =rs12("nominv")%></td>
<td align="Right" bgcolor="<%= Color %>" Class="Normal"><% = FormatNumber(rs12("cpefremd"))%></td>
<td align="Right" bgcolor="<%= Color %>" Class="Normal"><% = FormatNumber(rs12("unifremd"))%></td>
<td align="Left" bgcolor="<%= Color %>" Class="Normal"><% = rs12("desdiv")%>
<input type="Hidden" name="txt_<%=i%>" value="<% = rs12("regfremd")%>" disabled style="border:1px solid:#000000;background:<%=Color%>" class="normalc">
</td>
</tr>

<% 
rs12.Movenext
count=count+1
Dim Total 
Total = Total + Importe

Next
%>

<tr>
<td align="Right" Colspan=8 Class="Normal">
<%= Formatnumber(Total) %>
</tr>
<tr>
<td align="Right" Colspan=8 Class="Normal">
<%= Formatnumber(Total * (Cdbl(rs10("Ivafreme"))/Cdbl(100))) %>
</tr>
<tr>
<td align="Right" Colspan=8 Class="Normal">
<%= Formatnumber(Total + (Total * (Cdbl(rs10("Ivafreme"))/Cdbl(100))))	 %>
</tr>


<tr>
<td align=center Colspan=9>
<input value="Aceptar" type="button" onclick="frm_submit(document.frm,<%=rs12.recordcount%>)" id=bt name=bt Class="normal"></td>
</tr>
</table>
<br>
</form>

<%
End If
%>

</div>
</body>
</html>
<%  
End Sub 
'Add the chosen course to the cart
 Call AddUsuario() 
'Display contents of electronic shopping cart
 Call DisplayUsuario()
%>
MATERIALES INDUSTRIALES DE MEXICO

facrcar.asp

Archivo ASP

Página Razor

Módulo

Líneas de Código
