Detalle: facelectro.asp

facelectro.asp

Ir a la Página Volver a la Lista

Archivo ASP

facelectro.asp

Página Razor

Facturas/Facelectro.cshtml

Módulo

Facturas

Líneas de Código

541

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 (5) Páginas a las que esta página enlaza

Archivo ASP	Tipo	Módulo	Estado	Página Razor
`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
`facpaso.asp`	form_action	Facturas	Pendiente	-

<%  
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">
</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 Cliente
<hr>


<CENTER>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" id=Grabadatos width=602 height=242 codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,65,0">
 <param name="movie" value="Flash/Grabadatos.swf" />
 <param name="quality" value="high" />
 <param name="play" value="true" />
 <param name="loop" value="true" />
 <param name="bgcolor" value="#ffffff" />
 <embed src="Flash/Grabadatos.swf" width=602 height=242 bgcolor="#ffffff" quality="high" loop="true"
  type="application/x-shockwave-flash" pluginspace="http://www.macromedia.com/go/getflashplayer" />
</object>
</CENTER>
<%	
' Variable Segunda Conexion
Dim Cn2
' Variables de los Recordset del Detalle
Dim Rs11, Sql11, Rs12, Sql12
' Variables del Formulario
Dim FolioF, Electro
' Variables del Detalle
Dim EmpresaP, NodocumentoP, TipoDocumentoP, ConsecutivoP, ProductoP, DescripcionP, CantidadP, UnidadMedidaP
Dim PrecioP, ImporteP, ImpuestoP, ImpuestoPorcentajeP, CustomField03, CustomField04, CustomField05, CustomField06
Dim CustomField07,  CustomField08
' Variables del Recordset de la Tabla de Impuestos
Dim Rs13, Sql13, Rs14, Sql14
' Variables de Impuestos
Dim EmpresaI, NodocumentoI, TipoDocumentoI, ImpuestoTrasladadoI, PorcentajeImpuestoI, MontoImpuestoI
' variable de Los Recordset Del encabezado
Dim Rs15, Sql15, Rs16, Sql16
' Variables del Encabezado
Dim EmpresaE, NodocumentoE, TipoDocumentoE, Cliente, Referencia, RazonSocial, RFC, Calle, numero, NumeroInt
Dim Colonia, Delegacion, Estado, CP, Pais, FechaEmision, Subtotal, DescuentoTotal, Impuesto, Retencion, Monto
Dim Moneda, TipoCambio, FormaPago, DiasVencimiento, CustomField01E, CustomField02E, CustomField04E, CustomField05E, CustomField06E
Dim CustomField09E, CustomField22E, CustomField26E, Estatus, Enviar

' Variables para Pedimentos 
Dim Rs17, Sql17, Rs18, Sql18
Dim Tpedimento, Taduana, Tyear

FolioF = Request("FolioF")
Electro = Request("Electro")

	Set Cn2 = Server.CreateObject( "ADODB.Connection" )
	'Cn2.Open "DRIVER={SQL Server};SERVER=MIMQRO.DYNDNS-FREE.COM\sqlexpress;UID=sa;PWD=ST2108GP;Database=COFIDIPASOM"
	Cn2.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID=sa;PWD=LABL2014;Database=PASOMEXICO"
If Electro = 0 then

	Set Rs11 = server.CreateObject("ADODB.Recordset")
	Sql11 = "Select * from COFIDIFAD where Factura = "& FolioF &" order by CUSTOMFIELD08 asc;"
	Rs11.Open Sql11,cn1,1,2
	
	ConsecutivoP = 0
	Do While Not Rs11.Eof
	
	ConsecutivoP = ConsecutivoP + 1 
	
	EmpresaP = Rs11("Empresa")
	NodocumentoP = Rs11("Nodocumento")
	TipoDocumentoP = Rs11("TipoDocumento")
	'ConsecutivoP = Rs11("Consecutivo")
	ProductoP = Rs11("Producto")
	DescripcionP = Rs11("Descripcion")
	CantidadP = Rs11("Cantidad")
	UnidadMedidaP = Rs11("UnidadMedida")
	PrecioP = Rs11("Precio")
	ImporteP = Rs11("Importe")
	ImpuestoP = Rs11("Impuesto")
	ImpuestoPorcentajeP = Rs11("ImpuestoPorcentaje")	
	CustomField03 = Rs11("CustomField03")
	
	If isnull(CustomField03) then
	CustomField03 = ""
	else
	CustomField03 = CustomField03
	end if
	
	CustomField08 = Rs11("CustomField08")
	
	Set Rs12 = server.CreateObject("ADODB.Recordset")
	Sql12 = "Insert Into CFDDET " &_
	"(Empresa, Nodocumento, Tipodocumento, Consecutivo, Producto, Descripcion, Cantidad, UnidadMedida, Precio, Importe, Impuesto, " &_
	"ImpuestoPorcentaje, CustomField03, CustomField08) " &_
	"Values('"& EmpresaP &"', '"& NodocumentoP &"', '"& TipoDocumentoP &"',  '"& ConsecutivoP &"', '"& ProductoP &"', '"& Sanea(DescripcionP) &"', "& CantidadP &", " &_
	"'"& UnidadMedidaP &"', "& PrecioP &", "& ImporteP &", "& ImpuestoP &", "& ImpuestoPorcentajeP &", '"& Sanea(CustomField03) &"', '"& CustomField08 &"');"
	Cn2.Execute Sql12
	'Rs12.Open Sql12,cn2,1,2
	
	Rs11.Movenext
	loop


	Set Rs13 = server.CreateObject("ADODB.Recordset")
	Sql13 = "Select * from COFIDIFAI where Factura = "& FolioF &";"
	Rs13.Open Sql13,cn1,1,2
	
	EmpresaI = Rs13("Empresa")
	NodocumentoI = Rs13("Nodocumento")
	TipoDocumentoI = Rs13("TipoDocumento")
	ImpuestoTrasladadoI = Rs13("ImpuestoTrasladado")
	PorcentajeImpuestoI = Rs13("PorcentajeImpuesto")
	MontoImpuestoI = Rs13("MontoImpuesto")
	
	Set Rs14 = server.CreateObject("ADODB.Recordset")
	Sql14 = "Insert Into CFDENCIMPUESTO " &_
	"(Empresa, Nodocumento, Tipodocumento, ImpuestoTrasladado, PorcentajeImpuesto, MontoImpuesto) " &_
	"Values('"& EmpresaI &"', '"& NodocumentoI &"', '"& TipoDocumentoI &"',  '"& ImpuestoTrasladadoI &"', " &_
	""& PorcentajeImpuestoI &", "& MontoImpuestoI &");"
	Cn2.Execute Sql14
	
	Set Rs15 = server.CreateObject("ADODB.Recordset")
	Sql15 = "Select * from COFIDIFAE where Factura = "& FolioF &";"
	Rs15.Open Sql15,cn1,1,2
	
	EmpresaE = Rs15("Empresa")
	NodocumentoE = Rs15("Nodocumento")
	TipoDocumentoE = Rs15("TipoDocumento")
	Cliente = Rs15("Cliente")
	Referencia = Rs15("Referencia")
	RazonSocial = Rs15("RazonSocial")
	RFC = Rs15("RFC")
	Calle = Rs15("Calle")
	Numero = Rs15("Numero")
	NumeroInt = Rs15("NumeroInt")
	Colonia = Rs15("Colonia")
	Delegacion = Rs15("Delegacion")
	Estado = Rs15("Estado")
	CP= Rs15("CP")
	Pais = Rs15("Pais")
	FechaEmision = date()
	Subtotal = Rs15("Subtotal")
	DescuentoTotal = Rs15("DescuentoTotal")
	Impuesto = Rs15("Impuesto")
	Retencion = Rs15("Retencion")
	Monto = Rs15("Monto")
	Moneda = Rs15("moneda")
	TipoCambio = Rs15("TipoCambio")
	FormaPago = Rs15("FormaPago")
	DiasVencimiento = Rs15("Diasvencimiento")
	CustomField01E = Rs15("CustomField01")
	CustomField02E = Rs15("CustomField02")
	CustomField04E = Rs15("CustomField04")
	CustomField05E = Rs15("CustomField05")
	CustomField06E = Rs15("CustomField06")
	CustomField09E = Rs15("customField09")
	CustomField22E = Rs15("CustomField22")
	CustomField26E = Rs15("CustomField26")	
	Estatus = Rs15("estatus")
	Enviar = Rs15("enviar")

	Set Rs16 = server.CreateObject("ADODB.Recordset")
	Sql16="Insert Into CFDENC " &_
	"(Empresa, Nodocumento, TipoDocumento, Cliente, Referencia, RazonSocial, rfc, Calle, "&_
	"Numero, NumeroInt, Colonia, Delegacion, Estado, CP, Pais, FechaEmision, Subtotal, DescuentoTotal, Impuesto, Retencion, Monto, "&_
	"Moneda, TipoCambio, FormaPago, DiasVencimiento, customfield01, customfield02, Customfield04, Customfield05, CustomfielD06, customField09, Customfield22, Customfield26, Estatus, Enviar) " &_
	"Values('"& EmpresaE &"', '"& NodocumentoE &"', '"& TipoDocuMEntoE &"', '"& Cliente &"', '"& Referencia &"', '"& RazonSocial &"', "&_
	"'"& RFC &"', '"& Calle &"', '"& Numero &"', '"& NumeroInt &"', '"& Colonia &"', '"& Delegacion &"', '"& Estado &"', '"& CP &"', " &_
	"'"& Pais &"', getdate(), "& Subtotal &", "& DescuentoTotal &", "& Impuesto &", "& Retencion &", "& Monto &", '"& Moneda &"', " &_
	""& Tipocambio &", '"& FormaPago &"', "& DiasVencimiento &", '"& CustomField01E &"', '"& Customfield02E &"', '"& Sanea(Customfield04E) &"', '"& Sanea(Customfield05E) &"', " &_
	"'"& Customfield06E &"', '"& Customfield09E &"', '"& Customfield22E &"', '"& Customfield26E &"', '"& Estatus &"', '"& Enviar &"');"
	Cn2.Execute Sql16	

'******************    INICIA LA PARTE DE PEDIMENTOS ******

	Set Rs17 = server.CreateObject("ADODB.Recordset")
	Sql17 = "Select * from COFIDIFAP where Factura = "& FolioF &";"
	Rs17.Open Sql17,cn1,1,2
	
	If Rs17.EOF Then

	Else
	
	ConsecutivoP = 0
	Do While Not Rs17.EOF
	
    ConsecutivoP = ConsecutivoP +1
	EmpresaP = Rs17("Empresa")
	NodocumentoP = Rs17("Nodocumento")
	TipoDocumentoP = Rs17("TipoDocumento")
	Tpedimento = Rs17("PedimentoP")
	TAduana = Rs17("AduanaP")
	Tyear = Rs17("YearP")

	Set Rs18 = server.CreateObject("ADODB.Recordset")
	Sql18 = "Insert Into CFDDETPEDIMENTO " &_
	"(Empresa, Nodocumento, Tipodocumento, Consecutivo, PEDIMENTO, ADUANA, FECHAPEDIMENTO) " &_
	"Values('"& EmpresaP &"', '"& NodocumentoP &"', '"& TipoDocumentoP &"',  '"& ConsecutivoP &"', '"& Sanea(TPEDIMENTO) &"', '"& Sanea(TADUANA) &"', '"& Sanea(TYEAR) &"');"
	Cn2.Execute Sql18

	Rs17.Movenext
	Loop
		
	End If
	
	Response.Redirect("Ffacesp.asp?Ffacnum="& FolioF &"&Empresa="& Negocio &"")

Else If CDBL(Electro) = 1 then

	Set Rs11 = server.CreateObject("ADODB.Recordset")
	Sql11 = "Select * from COFIDIDVD where Devolucion = "& FolioF &";"
	Rs11.Open Sql11,cn1,1,2
	
	Do While Not Rs11.Eof
	
	EmpresaP = Rs11("Empresa")
	NodocumentoP = Rs11("Nodocumento")
	TipoDocumentoP = Rs11("TipoDocumento")
	ConsecutivoP = Rs11("Consecutivo")
	ProductoP = Rs11("Producto")
	DescripcionP = Rs11("Descripcion")
	CantidadP = Rs11("Cantidad")
	UnidadMedidaP = Rs11("UnidadMedida")
	PrecioP = Rs11("Precio")
	ImporteP = Rs11("Importe")
	ImpuestoP = Rs11("Impuesto")
	ImpuestoPorcentajeP = Rs11("ImpuestoPorcentaje")
	CustomField08 = Rs11("CustomField08")	
	
	Set Rs12 = server.CreateObject("ADODB.Recordset")
	Sql12 = "Insert Into CFDDET " &_
	"(Empresa, Nodocumento, Tipodocumento, Consecutivo, Producto, Descripcion, Cantidad, UnidadMedida, Precio, Importe, Impuesto, " &_
	"ImpuestoPorcentaje, CustomField08) " &_
	"Values('"& EmpresaP &"', '"& NodocumentoP &"', '"& TipoDocumentoP &"',  '"& ConsecutivoP &"', '"& Sanea(ProductoP) &"', '"& Sanea(DescripcionP) &"', "& CantidadP &", " &_
	"'"& UnidadMedidaP &"', "& PrecioP &", "& ImporteP &", "& ImpuestoP &", "& ImpuestoPorcentajeP &", '"& CustomField08 &"');"
	Cn2.Execute Sql12
	'Rs12.Open Sql12,cn2,1,2
	
	Rs11.Movenext
	loop

	Set Rs13 = server.CreateObject("ADODB.Recordset")
	Sql13 = "Select * from COFIDIDVI where Devolucion = "& FolioF &";"
	Rs13.Open Sql13,cn1,1,2
	
	EmpresaI = Rs13("Empresa")
	NodocumentoI = Rs13("Nodocumento")
	TipoDocumentoI = Rs13("TipoDocumento")
	ImpuestoTrasladadoI = Rs13("ImpuestoTrasladado")
	PorcentajeImpuestoI = Rs13("PorcentajeImpuesto")
	MontoImpuestoI = Rs13("MontoImpuesto")
	
	Set Rs14 = server.CreateObject("ADODB.Recordset")
	Sql14 = "Insert Into CFDENCIMPUESTO " &_
	"(Empresa, Nodocumento, Tipodocumento, ImpuestoTrasladado, PorcentajeImpuesto, MontoImpuesto) " &_
	"Values('"& EmpresaI &"', '"& NodocumentoI &"', '"& TipoDocumentoI &"',  '"& ImpuestoTrasladadoI &"', " &_
	""& PorcentajeImpuestoI &", "& MontoImpuestoI &");"
	Cn2.Execute Sql14
	
	Set Rs15 = server.CreateObject("ADODB.Recordset")
	Sql15 = "Select * from COFIDIDVE where Devolucion = "& FolioF &";"
	Rs15.Open Sql15,cn1,1,2
	
	EmpresaE = Rs15("Empresa")
	NodocumentoE = Rs15("Nodocumento")
	TipoDocumentoE = Rs15("TipoDocumento")
	Cliente = Rs15("Cliente")
	Referencia = Rs15("Referencia")
	RazonSocial = Rs15("RazonSocial")
	RFC = Rs15("RFC")
	Calle = Rs15("Calle")
	Numero = Rs15("Numero")
	NumeroInt = Rs15("NumeroInt")
	Colonia = Rs15("Colonia")
	Delegacion = Rs15("Delegacion")
	Estado = Rs15("Estado")
	CP= Rs15("CP")
	Pais = Rs15("Pais")
	FechaEmision = date()
	Subtotal = Rs15("Subtotal")
	DescuentoTotal = Rs15("Descuento")
	Impuesto = Rs15("Impuesto")
	Retencion = Rs15("Retencion")
	Monto = Rs15("Monto")
	Moneda = Rs15("moneda")
	TipoCambio = Rs15("TipoCambio")
	FormaPago = Rs15("FormaPago")
	DiasVencimiento = Rs15("Diasvencimiento")
	CustomField02E = Rs15("CustomField02")
	CustomField22E = Rs15("CustomField21")
	CustomField26E = Rs15("CustomField26")
	Estatus = Rs15("status")
	Enviar = Rs15("enviar")

	Set Rs16 = server.CreateObject("ADODB.Recordset")
	Sql16="Insert Into CFDENC " &_
	"(Empresa, Nodocumento, TipoDocumento, Cliente, Referencia, RazonSocial, rfc, Calle, "&_
	"Numero, NumeroInt, Colonia, Delegacion, Estado, CP, Pais, FechaEmision, Subtotal, DescuentoTotal, Impuesto, Retencion, Monto, "&_
	"Moneda, TipoCambio, FormaPago, DiasVencimiento, customfield02, Customfield22, Customfield26, Estatus, Enviar) " &_
	"Values('"& EmpresaE &"', '"& NodocumentoE &"', '"& TipoDocuMEntoE &"', '"& Cliente &"', '"& Referencia &"', '"& RazonSocial &"', "&_
	"'"& RFC &"', '"& Calle &"', '"& Numero &"', '"& NumeroInt &"', '"& Colonia &"', '"& Delegacion &"', '"& Estado &"', '"& CP &"', " &_
	"'"& Pais &"', getdate(), "& Subtotal &", "& DescuentoTotal &", "& Impuesto &", "& Retencion &", "& Monto &", '"& Moneda &"', " &_
	""& Tipocambio &", '"& FormaPago &"', "& DiasVencimiento &", '"& Customfield02E &"', '"& Sanea(Customfield22E) &"', '"& Customfield26E &"', '"& Estatus &"', '"& Enviar &"');"
	Cn2.Execute Sql16

	Response.redirect("Facdev.asp?Ndevo="& FolioF &"&Empresa="& Negocio &"")
	
Else If CDBL(Electro) = 2 then

	Set Rs11 = server.CreateObject("ADODB.Recordset")
	Sql11 = "Select * from COFIDINCD where NOTA = "& FolioF &";"
	Rs11.Open Sql11,cn1,1,2
	
	Do While Not Rs11.Eof
	
	EmpresaP = Rs11("Empresa")
	NodocumentoP = Rs11("Nodocumento")
	TipoDocumentoP = Rs11("TipoDocumento")
	ConsecutivoP = Rs11("Consecutivo")
	ProductoP = Rs11("Producto")
	DescripcionP = Rs11("Descripcion")
	CantidadP = Rs11("Cantidad")
	UnidadMedidaP = Rs11("UnidadMedida")
	PrecioP = Rs11("Precio")
	ImpuestoP = Rs11("Impuesto")
	ImpuestoPorcentajeP = Rs11("ImpuestoPorcentaje")
	
	Set Rs12 = server.CreateObject("ADODB.Recordset")
	Sql12 = "Insert Into CFDDET " &_
	"(Empresa, Nodocumento, Tipodocumento, Consecutivo, Producto, Descripcion, Cantidad, UnidadMedida, Precio, Impuesto, " &_
	"ImpuestoPorcentaje) " &_
	"Values('"& EmpresaP &"', '"& NodocumentoP &"', '"& TipoDocumentoP &"',  '"& ConsecutivoP &"', '"& ProductoP &"', '"& DescripcionP &"', "& CantidadP &", " &_
	"'"& UnidadMedidaP &"', "& PrecioP &", "& ImpuestoP &", "& ImpuestoPorcentajeP &");"
	Cn2.Execute Sql12
	'Rs12.Open Sql12,cn2,1,2
	
	Rs11.Movenext
	loop

	Set Rs13 = server.CreateObject("ADODB.Recordset")
	Sql13 = "Select * from COFIDINCI where NOTA = "& FolioF &";"
	Rs13.Open Sql13,cn1,1,2
	
	EmpresaI = Rs13("Empresa")
	NodocumentoI = Rs13("Nodocumento")
	TipoDocumentoI = Rs13("TipoDocumento")
	ImpuestoTrasladadoI = Rs13("ImpuestoTraslado")
	PorcentajeImpuestoI = Rs13("PorcentajeImpuesto")
	MontoImpuestoI = Rs13("MontoImpuesto")
	
	Set Rs14 = server.CreateObject("ADODB.Recordset")
	Sql14 = "Insert Into CFDENCIMPUESTO " &_
	"(Empresa, Nodocumento, Tipodocumento, ImpuestoTrasladado, PorcentajeImpuesto, MontoImpuesto) " &_
	"Values('"& EmpresaI &"', '"& NodocumentoI &"', '"& TipoDocumentoI &"',  '"& ImpuestoTrasladadoI &"', " &_
	""& PorcentajeImpuestoI &", "& MontoImpuestoI &");"
	Cn2.Execute Sql14
	
	Set Rs15 = server.CreateObject("ADODB.Recordset")
	Sql15 = "Select * from COFIDINCE where NOTA = "& FolioF &";"
	Rs15.Open Sql15,cn1,1,2
	
	EmpresaE = Rs15("Empresa")
	NodocumentoE = Rs15("Nodocumento")
	TipoDocumentoE = Rs15("TipoDocumento")
	Cliente = Rs15("Cliente")
	Referencia = Rs15("Referencia")
	RazonSocial = Rs15("RazonSocial")
	RFC = Rs15("RFC")
	Calle = Rs15("Calle")
	Numero = Rs15("Numero")
	NumeroInt = Rs15("NumeroInt")
	Colonia = Rs15("Colonia")
	Delegacion = Rs15("Delegacion")
	Estado = Rs15("Estado")
	CP= Rs15("CP")
	Pais = Rs15("Pais")
	FechaEmision = date()
	Subtotal = Rs15("Subtotal")
	DescuentoTotal = Rs15("Descuento")
	Impuesto = Rs15("Impuesto")
	Retencion = Rs15("Retencion")
	Monto = Rs15("Monto")
	Moneda = Rs15("moneda")
	TipoCambio = Rs15("TipoCambio")
	FormaPago = Rs15("FormaPago")
	DiasVencimiento = Rs15("Diasvencimiento")
	CustomField02E = Rs15("CustomField02")
	CustomField22E = Rs15("CustomField22")
	CustomField26E = Rs15("CustomField26")
	Estatus = Rs15("status")
	Enviar = Rs15("enviar")

	Set Rs16 = server.CreateObject("ADODB.Recordset")
	Sql16="Insert Into CFDENC " &_
	"(Empresa, Nodocumento, TipoDocumento, Cliente, Referencia, RazonSocial, rfc, Calle, "&_
	"Numero, NumeroInt, Colonia, Delegacion, Estado, CP, Pais, FechaEmision, Subtotal, DescuentoTotal, Impuesto, Retencion, Monto, "&_
	"Moneda, TipoCambio, FormaPago, DiasVencimiento, customfield02, Customfield22, Customfield26, Estatus, Enviar) " &_
	"Values('"& EmpresaE &"', '"& NodocumentoE &"', '"& TipoDocuMEntoE &"', '"& Cliente &"', '"& Referencia &"', '"& RazonSocial &"', "&_
	"'"& RFC &"', '"& Calle &"', '"& Numero &"', '"& NumeroInt &"', '"& Colonia &"', '"& Delegacion &"', '"& Estado &"', '"& CP &"', " &_
	"'"& Pais &"', getdate(), "& Subtotal &", "& DescuentoTotal &", "& Impuesto &", "& Retencion &", "& Monto &", '"& Moneda &"', " &_
	""& Tipocambio &", '"& FormaPago &"', "& DiasVencimiento &", '"& Customfield02E &"', '"& Customfield22E &"', '"& Customfield26E &"', '"& Estatus &"', '"& Enviar &"');"
	Cn2.Execute Sql16

	Response.Redirect("NCredito.asp?Ncredito="& FolioF &"&Empresa="& Negocio &"")
	
Else If CDBL(Electro) = 3 then

	Set Rs11 = server.CreateObject("ADODB.Recordset")
	Sql11 = "Select * from COFIDINCAD where NOTAC = "& FolioF &";"
	Rs11.Open Sql11,cn1,1,2
	
	Do While Not Rs11.Eof
	
	EmpresaP = Rs11("Empresa")
	NodocumentoP = Rs11("Nodocumento")
	TipoDocumentoP = Rs11("TipoDocumento")
	ConsecutivoP = Rs11("Consecutivo")
	ProductoP = Rs11("Producto")
	DescripcionP = Rs11("Descripcion")
	CantidadP = Rs11("Cantidad")
	UnidadMedidaP = Rs11("UnidadMedida")
	PrecioP = Rs11("Precio")
	ImpuestoP = Rs11("Impuesto")
	ImpuestoPorcentajeP = Rs11("ImpuestoPorcentaje")
	
	Set Rs12 = server.CreateObject("ADODB.Recordset")
	Sql12 = "Insert Into CFDDET " &_
	"(Empresa, Nodocumento, Tipodocumento, Consecutivo, Producto, Descripcion, Cantidad, UnidadMedida, Precio, Impuesto, " &_
	"ImpuestoPorcentaje) " &_
	"Values('"& EmpresaP &"', '"& NodocumentoP &"', '"& TipoDocumentoP &"',  '"& ConsecutivoP &"', '"& ProductoP &"', '"& DescripcionP &"', "& CantidadP &", " &_
	"'"& UnidadMedidaP &"', "& PrecioP &", "& ImpuestoP &", "& ImpuestoPorcentajeP &");"
	Cn2.Execute Sql12
	'Rs12.Open Sql12,cn2,1,2
	
	Rs11.Movenext
	loop

	Set Rs13 = server.CreateObject("ADODB.Recordset")
	Sql13 = "Select * from COFIDINCAI where NOTAC = "& FolioF &";"
	Rs13.Open Sql13,cn1,1,2
	
	EmpresaI = Rs13("Empresa")
	NodocumentoI = Rs13("Nodocumento")
	TipoDocumentoI = Rs13("TipoDocumento")
	ImpuestoTrasladadoI = Rs13("ImpuestoTraslado")
	PorcentajeImpuestoI = Rs13("PorcentajeImpuesto")
	MontoImpuestoI = Rs13("MontoImpuesto")
	
	Set Rs14 = server.CreateObject("ADODB.Recordset")
	Sql14 = "Insert Into CFDENCIMPUESTO " &_
	"(Empresa, Nodocumento, Tipodocumento, ImpuestoTrasladado, PorcentajeImpuesto, MontoImpuesto) " &_
	"Values('"& EmpresaI &"', '"& NodocumentoI &"', '"& TipoDocumentoI &"',  '"& ImpuestoTrasladadoI &"', " &_
	""& PorcentajeImpuestoI &", "& MontoImpuestoI &");"
	Cn2.Execute Sql14
	
	Set Rs15 = server.CreateObject("ADODB.Recordset")
	Sql15 = "Select * from COFIDINCAE where NOTAC = "& FolioF &";"
	Rs15.Open Sql15,cn1,1,2
	
	EmpresaE = Rs15("Empresa")
	NodocumentoE = Rs15("Nodocumento")
	TipoDocumentoE = Rs15("TipoDocumento")
	Cliente = Rs15("Cliente")
	Referencia = Rs15("Referencia")
	RazonSocial = Rs15("RazonSocial")
	RFC = Rs15("RFC")
	Calle = Rs15("Calle")
	Numero = Rs15("Numero")
	NumeroInt = Rs15("NumeroInt")
	Colonia = Rs15("Colonia")
	Delegacion = Rs15("Delegacion")
	Estado = Rs15("Estado")
	CP= Rs15("CP")
	Pais = Rs15("Pais")
	FechaEmision = date()
	Subtotal = Rs15("Subtotal")
	DescuentoTotal = Rs15("Descuento")
	Impuesto = Rs15("Impuesto")
	Retencion = Rs15("Retencion")
	Monto = Rs15("Monto")
	Moneda = Rs15("moneda")
	TipoCambio = Rs15("TipoCambio")
	FormaPago = Rs15("FormaPago")
	DiasVencimiento = Rs15("Diasvencimiento")
	CustomField02E = Rs15("CustomField02")
	CustomField26E = Rs15("CustomField26")
	Estatus = Rs15("status")
	Enviar = Rs15("enviar")

	Set Rs16 = server.CreateObject("ADODB.Recordset")
	Sql16="Insert Into CFDENC " &_
	"(Empresa, Nodocumento, TipoDocumento, Cliente, Referencia, RazonSocial, rfc, Calle, "&_
	"Numero, NumeroInt, Colonia, Delegacion, Estado, CP, Pais, FechaEmision, Subtotal, DescuentoTotal, Impuesto, Retencion, Monto, "&_
	"Moneda, TipoCambio, FormaPago, DiasVencimiento, customfield02, customfield26, Estatus, Enviar) " &_
	"Values('"& EmpresaE &"', '"& NodocumentoE &"', '"& TipoDocuMEntoE &"', '"& Cliente &"', '"& Referencia &"', '"& RazonSocial &"', "&_
	"'"& RFC &"', '"& Calle &"', '"& Numero &"', '"& NumeroInt &"', '"& Colonia &"', '"& Delegacion &"', '"& Estado &"', '"& CP &"', " &_
	"'"& Pais &"', getdate(), "& Subtotal &", "& DescuentoTotal &", "& Impuesto &", "& Retencion &", "& Monto &", '"& Moneda &"', " &_
	""& Tipocambio &", '"& FormaPago &"', "& DiasVencimiento &", '"& Customfield02E &"', '"& Customfield26E &"', '"& Estatus &"', '"& Enviar &"');"
	Cn2.Execute Sql16



END IF
END IF
End If
End If	
%>		
</DIV>

<%  
End Sub 
'Add the chosen course to the cart
 Call AddUsuario() 
'Display contents of electronic shopping cart
 Call DisplayUsuario()
%>

using Microsoft.AspNetCore.Mvc;
using Microsoft.AspNetCore.Mvc.RazorPages;
using Microsoft.EntityFrameworkCore;
using MimPortal.Data;
using MimPortal.Data.Entities;

namespace MimPortal.Pages.Facturas
{
    public class FacelectroModel : PageModel
    {
        private readonly MimDbContext _context;
        public FacelectroModel(MimDbContext context) { _context = context; }

        [BindProperty(SupportsGet = true)] public string? Factura { get; set; }
        [BindProperty(SupportsGet = true)] public string? Cliente { get; set; }
        [BindProperty(SupportsGet = true)] public DateTime? FechaDesde { get; set; }
        [BindProperty(SupportsGet = true)] public DateTime? FechaHasta { get; set; }
        public List<FFACENC> Facturas { get; set; } = new();

        public async Task OnGetAsync()
        {
            var sucursal = HttpContext.Session.GetString("Sucursal") ?? "MERIDA";
            var query = _context.FFACENC.Where(x => x.Sucursal == sucursal).Where(f => f.STAFFACE == "F");
            if (!string.IsNullOrEmpty(Factura)) query = query.Where(f => f.NUMFFACE.ToString().Contains(Factura));
            if (!string.IsNullOrEmpty(Cliente)) query = query.Where(f => f.CLIFFACE != null && f.CLIFFACE.Contains(Cliente.ToUpper()));
            if (FechaDesde.HasValue) query = query.Where(f => f.FECFFACE >= FechaDesde);
            if (FechaHasta.HasValue) query = query.Where(f => f.FECFFACE <= FechaHasta);
            Facturas = await query.OrderByDescending(f => f.FECFFACE).Take(200).ToListAsync();
        }
    }
}

@page
@model MimPortal.Pages.Facturas.FacelectroModel
@{
    ViewData["Title"] = "Facturación Electrónica";
}
<div id="page-content">
<div class="card">
    <div class="card-header"><h5><i class="bi bi-file-earmark-code"></i> Facturación Electrónica (CFDI)</h5></div>
    <div class="card-body">
        <form method="get" class="row g-3 mb-4">
            <div class="col-md-2">
                <label class="form-label">Factura</label>
                <input type="text" class="form-control" name="Factura" value="@Model.Factura" />
            </div>
            <div class="col-md-3">
                <label class="form-label">Cliente</label>
                <input type="text" class="form-control" name="Cliente" value="@Model.Cliente" />
            </div>
            <div class="col-md-2">
                <label class="form-label">Desde</label>
                <input type="date" class="form-control" name="FechaDesde" value="@Model.FechaDesde?.ToString("yyyy-MM-dd")" />
            </div>
            <div class="col-md-2">
                <label class="form-label">Hasta</label>
                <input type="date" class="form-control" name="FechaHasta" value="@Model.FechaHasta?.ToString("yyyy-MM-dd")" />
            </div>
            <div class="col-md-2 d-flex align-items-end">
                <button type="submit" class="btn btn-primary"><i class="bi bi-search"></i> Buscar</button>
            </div>
        </form>
        @if (Model.Facturas.Any())
        {
            <div class="table-responsive">
                <table class="table table-hover table-sm">
                    <thead class="table-dark">
                        <tr><th>Factura</th><th>Cliente</th><th>Fecha</th><th>Total</th><th>UUID</th><th>Acciones</th></tr>
                    </thead>
                    <tbody>
                        @foreach (var f in Model.Facturas)
                        {
                            <tr>
                                <td>@f.NUMFFACE</td>
                                <td>@f.CLIFFACE</td>
                                <td>@f.FECFFACE?.ToString("dd/MM/yyyy")</td>
                                <td class="text-end">@f.TOTFFACE?.ToString("N2")</td>
                                <td><small>@f.UUIDF</small></td>
                                <td>
                                    <a href="/Facturas/Ffacdet?id=@f.Id" class="btn btn-sm btn-outline-info"><i class="bi bi-eye"></i></a>
                                    @if (!string.IsNullOrEmpty(f.UUIDF))
                                    {
                                        <a href="/Facturas/FacelectroPdf?id=@f.Id" class="btn btn-sm btn-outline-danger"><i class="bi bi-file-pdf"></i></a>
                                        <a href="/Facturas/FacelectroXml?id=@f.Id" class="btn btn-sm btn-outline-success"><i class="bi bi-file-code"></i></a>
                                    }
                                </td>
                            </tr>
                        }
                    </tbody>
                </table>
            </div>
        }
    </div>
</div>
</div>

MATERIALES INDUSTRIALES DE MEXICO

facelectro.asp

Archivo ASP

Página Razor

Módulo

Líneas de Código