<%
Option Explicit
%>
<%
Session.LCID = 2058
Response.Expires = 0
%>
<!--#include file="User.asp"-->
<!--#include file="general.asp"-->
<html>
<head>
<title>Grupo MIM</title>
<link rel=stylesheet href="vista.css">
</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>Remision Por Cliente</b>
<hr>
<%
Dim rs10, sql10, rs11, sql11, rs12, sql12, sql13, rs13, rs14, sql14, rs16, sql16
Dim Cliente, Alma, Mone, Folioweb, Esquema, Condicion
Dim Clacli, Nomcli, Limcli, Salcli, Stacli, DiaCli
Dim Cladiv, Desdiv, Tcadiv
Dim Claalm, Desalm, Staalm
Dim Transito, Proceso
Cliente = Request("Cliente")
Alma = Request("Alma")
Mone = Request("Mone")
Esquema = Request("Esquema")
Folioweb = Request("Folioweb")
set rs10 = server.CreateObject("ADODB.Recordset")
Sql10 ="Select Clacli, Nomcli, Stacli, Limcli, Salcli, Diacli " &_
"From Clientes where Clacli = '"& Cliente &"' and stacli = 'A';"
rs10.Open SQL10, cn1
set rs11 = server.CreateObject("ADODB.Recordset")
Sql11 ="Select Cladiv, Desdiv, Tcadiv from Monedas where cladiv = "& Mone &";"
rs11.Open SQL11, cn1
set rs12 = server.CreateObject("ADODB.Recordset")
Sql12 ="Select Claalm, Desalm, Staalm from Almacenes where claalm = "& Alma &";"
rs12.Open SQL12, cn1
set rs13 = server.CreateObject("ADODB.Recordset")
Sql13 ="select CLIFREME, SUM(TOTFREME * TCAFREME) AS Importe " &_
"FROM FREMENC where Clifreme = '"& Cliente &"' AND STAFREME = 'A' GROUP BY CLIFREME;"
rs13.Open SQL13, cn1
set rs16 = server.CreateObject("ADODB.Recordset")
Sql16 ="select CLItremd, SUM((Cantremd * unitremd * tcatremd) + ((Cantremd * unitremd * tcatremd * ivatremd) / 100 )) AS Proceso " &_
"FROM FREMdtem where Clitremd = '"& Cliente &"' GROUP BY CLItremd;"
rs16.Open SQL16, cn1
Clacli = rs10("Clacli")
Nomcli = rs10("Nomcli")
Limcli = rs10("Limcli")
Salcli = rs10("Salcli")
Stacli = rs10("Stacli")
Diacli = rs10("Diacli")
Cladiv = rs11("Cladiv")
Desdiv = rs11("Desdiv")
Tcadiv = rs11("Tcadiv")
Claalm = rs12("Claalm")
Desalm = rs12("Desalm")
Staalm = rs12("Staalm")
If Rs16.Eof then
Proceso = 0
Else
Proceso = rs16("Proceso")
End If
If rs13.EOF then
Transito = 0
else
If Cliente = "00MIM720" or Cliente = "000MIM72" then
Transito = 0
else
Transito = rs13("Importe")
End If
end If
Dim SaldoA, SaldoB, Esconde
SaldoA = Cdbl(Limcli) - Cdbl(Salcli) - Cdbl(Transito)
SaldoB = Cdbl(SaldoA) - Cdbl(Proceso)
If Cdbl(Diacli) = 0 and Cdbl(Limcli) = 0 then
Esconde = "Submit"
Else
If SaldoB < -1 then
Esconde = "Hidden"
Else
Esconde = "Submit"
End If
End If
%>
<center>
<TABLE border=1 cellspacing=1 cellpadding=2 bordercolor=#c0c0c0>
<tr>
<td align="Left" class="normal" bgcolor="#d8d8d8">Cliente:</td>
<td align="Left" class="normal" bgcolor="#d8d8d8">( <%= Clacli %> ) <%= Nomcli %></td>
</tr>
<tr>
<td align="Left" class="normal" bgcolor="#d8d8d8">Moneda:</td>
<td align="Left" class="normal" bgcolor="#d8d8d8"><%= Desdiv %> ( <%= Formatcurrency(tcadiv) %> ) </td>
</tr>
<tr>
<td align="Left" class="normal" bgcolor="#d8d8d8">Almacen:</td>
<td align="Left" class="normal" bgcolor="#d8d8d8">( <%= Claalm %> ) <%= Desalm %></td>
</tr>
<tr>
<td align="Left" class="normal" bgcolor="#d8d8d8">Credito Disponible:</td>
<td align="Left" class="normal" bgcolor="#d8d8d8"><b>( <%= FormatCurrency(SaldoA) %> - <%= FormatCurrency(Proceso) %> = <%= FormatCurrency(SaldoB) %>)</b></td>
</tr>
<tr>
<td align="Left" class="normal" bgcolor="#d8d8d8">Folio Web:</td>
<td align="Left" class="normal" bgcolor="#d8d8d8"><b> <%= Folioweb %> </b></td>
</tr>
</table>
<%
'--------------- Esta parte es de las partidas en la temporar de remisiones
Dim rs15, sql15
Dim Ses
Ses = Session.SessionID
set rs15 = server.CreateObject("ADODB.Recordset")
sql15="select regtremd, clitremd, codtremd, cantremd, pretremd, destremd, unitremd, montremd, sectremd, ivatremd, fpetremd, " &_
"cveinv, nominv, claalm, desalm, udminv from fremdtem, inventarios, almacenes " &_
"where codtremd = cveinv and sestremd = "& ses &" and almtremd = claalm order by sectremd asc;"
rs15.open sql15,cn1,1,2
%>
<TABLE border=1 cellspacing=1 cellpadding=2 bordercolor=#c0c0c0 width="850px">
<tr>
<td Class="normal">Almacen</td>
<td Class="normal">Item</td>
<td Class="normal">Cantidad</td>
<td Class="normal">U.M.</td>
<td Class="normal">Codigo</td>
<td Class="normal">Descripcion</td>
<td Class="normal">Precio</td>
<td Class="normal">Desc</td>
<td Class="normal">Unitario</td>
<td Class="normal">F. Entrega</td>
<td Class="normal">Importe</td>
<td Class="normal">Acciones</td>
</tr>
<%
If rs15.Eof then %>
<tr>
<td align="center" Class="normal" bgcolor="#d8d8d8" Colspan=13>
No Hay partidas Capturadas</td>
<%
Else
Dim CFila, Color
Dim Impor, Subtotal, Ivapar
Impor = 0
Ivapar = 0
While (Not RS15.eof)
Impor = Cdbl(Impor) + (Cdbl(rs15("Unitremd")) * Cdbl(rs15("cantremd")))
Ivapar = ((Cdbl(Impor) * Cdbl(rs15("Ivatremd"))) / 100 )
If CFila = 0 then
Color= "#d8d8d8"
CFila = 1
Else
Color= "#ffffff"
Cfila = 0
End if
%>
<tr>
<FORM action="Frpreciom.asp" NAME="Frcan" method='post'>
<td Class="normal" bgcolor="<%= Color %>" width="50px" align="Right"><%= rs15("desalm") %></td>
<td Class="normal" bgcolor="<%= Color %>" width="50px" align="Right">
<input Type="Text" name="Secu" Value="<%= rs15("sectremd") %>" size="2" Class="normal" style="Text-align:right; background-color:<%= Color %>" readonly>
</td>
<td Class="normal" bgcolor="<%= Color %>" width="50px">
<input Type="Text" name="Cantidad" Value=<%= Ccur(rs15("cantremd")) %> size="7" Class="normal" style="Text-align:right; background-color:<%= Color %>">
<input Type="Hidden" Name="Regi" size="10" Class="Normalc" Value=<%= rs15("regtremd") %>>
<input Type="Hidden" Name="Cliente" size="10" Class="Normalc" Value="<%= cliente %>">
<input Type="Hidden" Name="Alma" size="10" Class="Normalc" Value="<%= alma %>">
<input Type="Hidden" Name="Mone" size="10" Class="Normalc" Value="<%= Mone %>">
<input Type="Hidden" Name="Folioweb" size="10" Class="Normalc" Value="<%= Folioweb %>">
<input Type="Hidden" Name="Esquema" size="10" Class="Normalc" Value="<%= esquema %>">
</td>
<td Class="normal" bgcolor="<%= Color %>" width="20px"><%= rs15("udminv") %></td>
<td Class="normal" bgcolor="<%= Color %>" width="60px"><%= rs15("codtremd") %></td>
<td Class="normal" bgcolor="<%= Color %>" width="200px"><%= rs15("nominv") %></td>
<td Class="normal" bgcolor="<%= Color %>" width="60px">
<input Type="Text" name="Precio" Value="<%= Csng(rs15("pretremd")) %>" size="12" Class="normal" style="Text-align:right; background-color:<%= Color %>" readonly>
</td>
<td Class="normal" bgcolor="<%= Color %>" width="40px">
<input Type="Text" name="Des" Value="<%= Csng(rs15("destremd")) %>" size="2" Class="normal" style="Text-align:right; background-color:<%= Color %>">
</td>
<td Class="normal" bgcolor="<%= Color %>" width="60px" align="Right"><%= FormatCurrency(rs15("unitremd")) %></td>
<td Class="normal" bgcolor="<%= Color %>" width="60px">
<input Type="Text" name="Fentrega" Value="<%= rs15("fpetremd") %>" size="12" Class="normal" style="Text-align:right; background-color:<%= Color %>">
</td>
<td Class="normal" bgcolor="<%= Color %>" align="Right"><%= FormatCurrency(Cdbl(rs15("unitremd")) * Cdbl(rs15("cantremd")))%></td>
<td Class="normal" bgcolor="<%= Color %>" align=Center>
<input type="image" src="image/modificar.gif" value="Accesar" width="13px" Alt="Modificar">
</td>
</form>
<FORM action="Frclidel.asp" NAME="Frclidel" method='post'>
<td Class="normal" bgcolor="<%= Color %>" align=Center>
<input Type="Hidden" Name="Regi" size="10" Class="Normalc" Value=<%= rs15("regtremd") %>>
<input Type="Hidden" Name="Cliente" size="10" Class="Normalc" Value="<%= cliente %>">
<input Type="Hidden" Name="Alma" size="10" Class="Normalc" Value="<%= alma %>">
<input Type="Hidden" Name="Mone" size="10" Class="Normalc" Value="<%= Mone %>">
<input type="image" src="image/Eliminar.gif" value="Accesar" width="13px" Alt="Eliminar">
</td>
</form>
</tr>
<%
RS15.MoveNext
Wend
End If
Dim Ivat, Total
Subtotal = 0
Ivat = 0
Subtotal = Subtotal + Impor
Ivat = (Ivat + Ivapar)
Total = Ivat + Subtotal
%>
<tr>
<td Class="Normal" colspan="10" align="Right">
Subtotal=
</td>
<td Class="Normal" align="Right">
<b><%= FormatCurrency(Subtotal) %></b>
</td>
</tr>
<tr>
<td Class="Normal" colspan="10" align="Right">
Iva=
</td>
<td Class="Normal" align="Right">
<b><%= FormatCurrency(Ivat) %></b>
</td>
</tr>
<tr>
<td Class="Normal" colspan="10" align="Right">
Total=
</td>
<td Class="Normal" align="Right">
<b><%= FormatCurrency(Total) %></b>
</td>
</tr>
</table>
<FORM action="frCligen.asp" name="Fcotgen" method='post'>
<input Type="Hidden" Name="Cliente" size="10" Class="Normalc" Value="<%= cliente %>">
<input Type="Hidden" Name="Alma" size="10" Class="Normalc" Value="<%= alma %>">
<input Type="Hidden" Name="Mone" size="10" Class="Normalc" Value="<%= Mone %>">
<input Type="Hidden" Name="Esquema" size="10" Class="Normalc" Value="<%= Esquema %>">
<input Type="Hidden" Name="Subtotal" size="10" Class="Normalc" Value="<%= Subtotal %>">
<input Type="Hidden" Name="Ivat" size="10" Class="Normalc" Value="<%= Ivat %>">
<input Type="Hidden" Name="Total" size="10" Class="Normalc" Value="<%= Total %>">
<Input type="<%= Esconde %>" value="Guardar" Class="normal">
</form>
</div>
</body>
</html>
<%
End Sub
'Add the chosen course to the cart
Call AddUsuario()
'Display contents of electronic shopping cart
Call DisplayUsuario()
%>