diff --git a/Ventas/RepVentaDetalle.aspx b/Ventas/RepVentaDetalle.aspx
index 91ec23517..c6a069f88 100644
--- a/Ventas/RepVentaDetalle.aspx
+++ b/Ventas/RepVentaDetalle.aspx
@@ -582,13 +582,13 @@
|
- |
+
|
|
- |
+
|
diff --git a/Ventas/RepVentaDetalle.aspx.vb b/Ventas/RepVentaDetalle.aspx.vb
index 188b6390e..4e097c201 100644
--- a/Ventas/RepVentaDetalle.aspx.vb
+++ b/Ventas/RepVentaDetalle.aspx.vb
@@ -114,8 +114,6 @@ Partial Class RepVentaDetalle
DVServicioDomicilio.Visible = True
End If
-
-
End If
End Sub
@@ -452,6 +450,7 @@ Partial Class RepVentaDetalle
If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(11).Visible = False
ChkIEPS.Checked = UsuarioActual.Empresa.Funcionalidad(713) = "1" 'empresa deduce IEPS
+ GvDatos.Columns(9).Visible = ChkIEPS.Checked
End Sub
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
@@ -482,24 +481,6 @@ Partial Class RepVentaDetalle
e.Row.FCLiteral("LtlFacturaCotizacion").Text = "" & e.Row.DBCampo("FolioVenta") & ""
End If
- 'e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Center
- 'e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Center
- 'e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Center
- 'e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Left
- 'e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Right
- 'e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Right
- 'e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Right
- 'e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Right
- 'e.Row.Cells(8).HorizontalAlign = HorizontalAlign.Right
- 'e.Row.Cells(9).HorizontalAlign = HorizontalAlign.Right
- 'e.Row.Cells(10).HorizontalAlign = HorizontalAlign.Right
- 'e.Row.Cells(11).HorizontalAlign = HorizontalAlign.Right
- 'e.Row.Cells(12).HorizontalAlign = HorizontalAlign.Center
- 'e.Row.Cells(13).HorizontalAlign = HorizontalAlign.Left
- 'e.Row.Cells(14).HorizontalAlign = HorizontalAlign.Center
- 'e.Row.Cells(15).HorizontalAlign = HorizontalAlign.Center
- 'e.Row.Cells(20).HorizontalAlign = HorizontalAlign.Left
-
If e.Row.DBCampo("SubTotal").ToDouble = 0 Then e.Row.FCLiteral("LtlSubTotal").Text = "-"
If e.Row.DBCampo("Descuento").ToDouble = 0 Then e.Row.FCLiteral("LtlDescuento").Text = "-"
@@ -550,178 +531,38 @@ Partial Class RepVentaDetalle
Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
- If ChkFolio.Checked Then
- GvDatos.Columns(1).Visible = True
- Else
- GvDatos.Columns(1).Visible = False
- End If
-
- If ChkFecha.Checked Then
- GvDatos.Columns(2).Visible = True
-
- Else
- GvDatos.Columns(2).Visible = False
- End If
-
- If ChkCliente.Checked Then
- GvDatos.Columns(3).Visible = True
- Else
- GvDatos.Columns(3).Visible = False
- End If
-
- If ChkSubTotal.Checked Then
- GvDatos.Columns(4).Visible = True
- Else
- GvDatos.Columns(4).Visible = False
- End If
-
- If ChkDescuento.Checked Then
- GvDatos.Columns(5).Visible = True
- Else
- GvDatos.Columns(5).Visible = False
- End If
-
- If ChlMotivoDescuento.Checked Then
- GvDatos.Columns(6).Visible = True
- Else
- GvDatos.Columns(6).Visible = False
- End If
-
- If ChkAmortizacion.Checked Then
- GvDatos.Columns(7).Visible = True
- Else
- GvDatos.Columns(7).Visible = False
- End If
-
- If ChkIVA.Checked Then
- GvDatos.Columns(8).Visible = True
- Else
- GvDatos.Columns(8).Visible = False
- End If
-
- If ChkIEPS.Checked Then
- GvDatos.Columns(9).Visible = True
- Else
- GvDatos.Columns(9).Visible = False
- End If
-
- If ChkRetIVA.Checked Then
- GvDatos.Columns(10).Visible = True
- Else
- GvDatos.Columns(10).Visible = False
- End If
-
- If ChkRetISR.Checked Then
- GvDatos.Columns(11).Visible = True
- Else
- GvDatos.Columns(11).Visible = False
- End If
-
- If ChkTotalImpuestos.Checked Then
- GvDatos.Columns(12).Visible = True
- Else
- GvDatos.Columns(12).Visible = False
- End If
-
- If ChkTotal.Checked Then
- GvDatos.Columns(13).Visible = True
- Else
- GvDatos.Columns(13).Visible = False
- End If
+ GvDatos.Columns(1).Visible = ChkFolio.Checked
+ GvDatos.Columns(2).Visible = ChkFecha.Checked
+ GvDatos.Columns(3).Visible = ChkCliente.Checked
+ GvDatos.Columns(4).Visible = ChkSubTotal.Checked
+ GvDatos.Columns(5).Visible = ChkDescuento.Checked
+ GvDatos.Columns(6).Visible = ChlMotivoDescuento.Checked
+ GvDatos.Columns(7).Visible = ChkAmortizacion.Checked
+ GvDatos.Columns(8).Visible = ChkIVA.Checked
+ GvDatos.Columns(9).Visible = ChkIEPS.Checked
+ GvDatos.Columns(10).Visible = ChkRetIVA.Checked
+ GvDatos.Columns(11).Visible = ChkRetISR.Checked
+ GvDatos.Columns(12).Visible = ChkTotalImpuestos.Checked
+ GvDatos.Columns(13).Visible = ChkTotal.Checked
GvDatos.Columns(14).Visible = ChkMoneda.Checked
-
- If ChkSucursal.Checked Then
- GvDatos.Columns(15).Visible = True
- Else
- GvDatos.Columns(15).Visible = False
- End If
-
- If ChkSucursalEjecucion.Checked Then
- GvDatos.Columns(16).Visible = True
- Else
- GvDatos.Columns(16).Visible = False
- End If
-
- If ChkCodigo.Checked Then
- GvDatos.Columns(17).Visible = True
- Else
- GvDatos.Columns(17).Visible = False
- End If
-
- If ChkSucursalCliente.Checked Then
- GvDatos.Columns(18).Visible = True
- Else
- GvDatos.Columns(18).Visible = False
- End If
-
- If ChkSucursalCobranza.Checked Then
- GvDatos.Columns(19).Visible = True
- Else
- GvDatos.Columns(19).Visible = False
- End If
-
- If ChkSucursalEjecucion.Checked Then
- GvDatos.Columns(20).Visible = True
- Else
- GvDatos.Columns(20).Visible = False
- End If
-
- If ChkVendedor.Checked Then
- GvDatos.Columns(21).Visible = True
- Else
- GvDatos.Columns(21).Visible = False
- End If
-
- If ChkEstatusFactura.Checked Then
- GvDatos.Columns(22).Visible = True
- Else
- GvDatos.Columns(22).Visible = False
- End If
-
- If ChkMotivoCancelacion.Checked Then
- GvDatos.Columns(23).Visible = True
- Else
- GvDatos.Columns(23).Visible = False
- End If
-
- If ChkSeTimbro.Checked Then
- GvDatos.Columns(24).Visible = True
- Else
- GvDatos.Columns(24).Visible = False
- End If
-
- If ChkSeEnvioMail.Checked Then
- GvDatos.Columns(25).Visible = True
- Else
- GvDatos.Columns(25).Visible = False
- End If
-
- If ChkCuentaContable.Checked Then
- GvDatos.Columns(26).Visible = True
- Else
- GvDatos.Columns(26).Visible = False
- End If
-
- If ChkUsuario.Checked Then
- GvDatos.Columns(27).Visible = True
- Else
- GvDatos.Columns(27).Visible = False
- End If
-
- If ChkObservaciones.Checked Then
- GvDatos.Columns(28).Visible = True
- Else
- GvDatos.Columns(28).Visible = False
- End If
-
+ GvDatos.Columns(15).Visible = ChkSucursal.Checked
+ GvDatos.Columns(16).Visible = ChkSucursalEjecucion.Checked
+ GvDatos.Columns(17).Visible = ChkCodigo.Checked
+ GvDatos.Columns(18).Visible = ChkSucursalCliente.Checked
+ GvDatos.Columns(19).Visible = ChkSucursalCobranza.Checked
+ GvDatos.Columns(20).Visible = ChkSucursalEjecucion.Checked
+ GvDatos.Columns(21).Visible = ChkVendedor.Checked
+ GvDatos.Columns(22).Visible = ChkEstatusFactura.Checked
+ GvDatos.Columns(23).Visible = ChkMotivoCancelacion.Checked
+ GvDatos.Columns(24).Visible = ChkSeTimbro.Checked
+ GvDatos.Columns(25).Visible = ChkSeEnvioMail.Checked
+ GvDatos.Columns(26).Visible = ChkCuentaContable.Checked
+ GvDatos.Columns(27).Visible = ChkUsuario.Checked
+ GvDatos.Columns(28).Visible = ChkObservaciones.Checked
GvDatos.Columns(29).Visible = ChkFolioFiscal.Checked
-
GvDatos.Columns(30).Visible = ChkMailCliente.Checked
-
- GvDatos.Columns(31).Visible = True = ChkEstatusFacturacion.Checked
-
+ GvDatos.Columns(31).Visible = ChkEstatusFacturacion.Checked
GvDatos.Columns(32).Visible = ChkFolioFacturacion.Checked
-
GvDatos.Columns(33).Visible = ChkSaldo.Checked
Personalizo = 1
@@ -966,124 +807,6 @@ Partial Class RepVentaDetalle
Private Function GenerarFacturaVentaDEV(CveVenta As Integer, CveUsuario As Integer) As Byte()
Return DescargarFactura(CveVenta, UsuarioActual.CveEmpresa, CveUsuario)
- 'Dim ObjVentas As New ClsVentas
- 'Dim Vta As Modelos.Factura = Nothing
-
- 'Dim TmpDTImpuestos = New DataTable
- 'TmpDTImpuestos.Columns.Add("ImpuestoLocal", GetType(String))
- 'TmpDTImpuestos.Columns.Add("Importe", GetType(Double))
- 'TmpDTImpuestos.Columns.Add("Orden", GetType(Integer))
-
- 'If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
- ' Dim dtVentas As DataTable = ObjVentas.DtResultados
-
- ' ' se rellenan los campos de la factura
- ' Vta = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, Server.MapPath("/"))
-
- ' Vta.MonedaAbreviatura = dtVentas(0)("Abreviatura").ToString
- ' 'se rellena la sucursal
- ' Vta.Cliente.Sucursal = New Modelos.ClienteModel(dtVentas(0)("CveCliente").ToString.ToEntero, UsuarioActual.CveEmpresa)
- ' Vta.Cliente = New Modelos.ClienteModel
- ' Vta.Cliente.Nombre = dtVentas(0)("ClienteNombre").ToString
- ' Vta.Cliente.Telefono = dtVentas(0)("Telefono").ToString
- ' Vta.Cliente.Direccion = dtVentas(0)("ClienteDireccion").ToString
- ' Vta.Cliente.CP = dtVentas(0)("CPCliente").ToString
- ' Vta.Cliente.Ciudad = dtVentas(0)("ClienteCiudad").ToString
- ' Vta.Cliente.Localidad = dtVentas(0)("ClienteLocalidad").ToString
- ' Vta.Cliente.Estado = dtVentas(0)("ClienteEstado").ToString
- ' Vta.Cliente.Pais = dtVentas(0)("ClientePais").ToString
- ' Vta.Cliente.RFC = dtVentas(0)("ClienteRFC").ToString
- ' Vta.Cliente.Colonia = dtVentas(0)("ColoniaCliente").ToString
- ' Vta.AtencionA = dtVentas(0)("AtencionA").ToString
- ' Vta.Cliente.NoExt = dtVentas(0)("ClienteNoExt").ToString
- ' Vta.Cliente.NoInt = dtVentas(0)("ClienteNoInt").ToString
- ' Vta.Cliente.Codigo = dtVentas(0)("ClienteCodigo").ToString
- ' Vta.Cliente.Mail = dtVentas(0)("Mail").ToString
- ' Vta.RefDocto = dtVentas(0)("Ref").ToString
- ' Vta.CveVenta = dtVentas(0)("CveVenta").ToString.ToEntero
-
-
- ' Vta.ClienteSucursal = New Modelos.SucursalModel
- ' Vta.ClienteSucursal.Direccion = dtVentas(0)("SucClienteDireccion").ToString
- ' Vta.ClienteSucursal.NoExt = dtVentas(0)("SucClienteNoExt").ToString
- ' Vta.ClienteSucursal.NoInt = dtVentas(0)("SucClienteNoInt").ToString
- ' Vta.ClienteSucursal.Colonia = dtVentas(0)("SucClienteColonia").ToString
- ' Vta.ClienteSucursal.CP = dtVentas(0)("SucClienteCP").ToString
- ' Vta.ClienteSucursal.Municipio = dtVentas(0)("SucClienteCiudad").ToString
- ' Vta.ClienteSucursal.Estado = dtVentas(0)("SucClienteEstado").ToString
- ' Vta.ClienteSucursal.Pais = dtVentas(0)("SucClientePais").ToString
- ' Vta.ClienteSucursal.Localidad = dtVentas(0)("SucClienteLocalidad").ToString
- ' Vta.ClienteSucursal.CorreoSucursal = dtVentas(0)("SucClienteCorreo").ToString
- ' Vta.ClienteSucursal.TelefonoSucursal = dtVentas(0)("SucClienteTelefono").ToString
- ' Vta.ClienteSucursal.Sucursal = dtVentas(0)("SucursalCliente").ToString
-
- ' Vta.EnviarA = New Modelos.EnviarAModel
- ' Vta.EnviarA.CveDireccionEnvio = dtVentas(0)("CveDireccionEnvio").ToString.ToEntero
- ' Vta.EnviarA.EnvioDireccion = dtVentas(0)("EnvioDireccion").ToString
- ' Vta.EnviarA.EnvioColonia = dtVentas(0)("EnvioColonia").ToString
- ' Vta.EnviarA.EnvioCiudad = dtVentas(0)("EnvioCiudad").ToString
- ' Vta.EnviarA.EnvioEstado = dtVentas(0)("EnvioEstado").ToString
- ' Vta.EnviarA.EnvioCP = dtVentas(0)("EnvioCP").ToString
-
- ' Dim DR As DataRow = TmpDTImpuestos.NewRow()
- ' If UsuarioActual.CveEmpresa.Contiene(1, 5, 15, 17, 72, 66, 79, 81, 109, 110, 111, 76) Then
- ' If dtVentas(0)("SubTotal").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Subtotal" : DR("Importe") = dtVentas(0)("SubTotal").ToString.ToDouble : DR("Orden") = 10 : TmpDTImpuestos.Rows.Add(DR)
- ' DR = TmpDTImpuestos.NewRow()
- ' If dtVentas(0)("Descuento").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Descuentos" : DR("Importe") = dtVentas(0)("Descuento").ToString.ToDouble : DR("Orden") = 20 : TmpDTImpuestos.Rows.Add(DR)
- ' DR = TmpDTImpuestos.NewRow()
- ' If dtVentas(0)("Amortizacion").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Amort.Ant" : DR("Importe") = dtVentas(0)("Amortizacion").ToString.ToDouble : DR("Orden") = 30 : TmpDTImpuestos.Rows.Add(DR)
- ' DR = TmpDTImpuestos.NewRow()
- ' If dtVentas(0)("SubTotal").ToString.ToDouble <> (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) Then DR("ImpuestoLocal") = "SubTotal2" : DR("Importe") = (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) : DR("Orden") = 40 : TmpDTImpuestos.Rows.Add(DR)
- ' DR = TmpDTImpuestos.NewRow()
- ' If dtVentas(0)("IVA").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "IVA" : DR("Importe") = dtVentas(0)("IVA").ToString.ToDouble : DR("Orden") = 50 : TmpDTImpuestos.Rows.Add(DR)
-
- ' 'solo para eclipse, que muesre un subtotal debajo de IVA
- ' If UsuarioActual.CveEmpresa = 15 Then DR = TmpDTImpuestos.NewRow() : DR("ImpuestoLocal") = "Subtotal2" : DR("Importe") = (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) + dtVentas(0)("IVA").ToString.ToDouble : DR("Orden") = 51 : TmpDTImpuestos.Rows.Add(DR)
- ' DR = TmpDTImpuestos.NewRow()
- ' If dtVentas(0)("RetIVA").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Ret.IVA" : DR("Importe") = dtVentas(0)("RetIVA").ToString.ToDouble : DR("Orden") = 60 : TmpDTImpuestos.Rows.Add(DR)
- ' DR = TmpDTImpuestos.NewRow()
- ' If dtVentas(0)("RetISR").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Ret.ISR" : DR("Importe") = dtVentas(0)("RetISR").ToString.ToDouble : DR("Orden") = 70 : TmpDTImpuestos.Rows.Add(DR)
- ' DR = TmpDTImpuestos.NewRow()
- ' If dtVentas(0)("Total").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Total" : DR("Importe") = dtVentas(0)("Total").ToString.ToDouble : DR("Orden") = 1000 : TmpDTImpuestos.Rows.Add(DR)
- ' DR = TmpDTImpuestos.NewRow()
- ' End If
-
- ' If ObjVentas.GetVentaDetalle(CveVenta) Then 'Obtenemos el Detalle de la Oorden de Compra
- ' Vta.DtDetalle = ObjVentas.DtResultados
- ' End If
-
- ' If ObjVentas.GetVentaImpuestosLocales(CveVenta) Then
- ' If UsuarioActual.CveEmpresa.Contiene(1, 5, 15, 17, 72, 66, 79, 81, 109, 110, 111, 76) Then
- ' Dim dtImpuesto As DataTable = ObjVentas.DtResultados
- ' If dtImpuesto.Rows.Count > 0 Then
- ' For Each Row As DataRow In dtImpuesto.Rows
- ' Dim Orden = 80
- ' If Row("Importe").ToString.ToDouble <> 0 Then
- ' DR("ImpuestoLocal") = Row("ImpuestoLocal").ToString
- ' DR("Importe") = Row("Importe").ToString.ToDouble
- ' DR("Orden") = Orden
- ' TmpDTImpuestos.Rows.Add(DR)
- ' DR = TmpDTImpuestos.NewRow()
- ' Orden = Orden + 1
- ' End If
- ' Next
- ' End If
- ' Vta.DtDeduccion = TmpDTImpuestos.FiltraParametros("", Orderby:="Orden ASC")
- ' Else
- ' Vta.DtDeduccion = ObjVentas.DtResultados
- ' End If
- ' End If
-
- ' If ObjVentas.GetVentasFirmas(CveVenta) Then
- ' Vta.DtFirmas = ObjVentas.DtResultados
- ' End If
- 'End If
- 'ObjVentas.Dispose()
-
- 'If Not IsNothing(Vta) Then
- ' PdfFactura(Vta)
- ' Vta = Nothing
- 'End If
End Function