-- corrección del cambio anterior
This commit is contained in:
@@ -582,13 +582,13 @@
|
|||||||
<asp:CheckBox ID="ChkSubTotal" runat="server" Text="SubTotal" Checked="true" /></td>
|
<asp:CheckBox ID="ChkSubTotal" runat="server" Text="SubTotal" Checked="true" /></td>
|
||||||
|
|
||||||
<td style="text-align: left;">
|
<td style="text-align: left;">
|
||||||
<asp:CheckBox ID="ChkDescuento" runat="server" Text="Descuento" Checked="true" /></td>
|
<asp:CheckBox ID="ChkDescuento" runat="server" Text="Descuento" /></td>
|
||||||
<td style="text-align: left;">
|
<td style="text-align: left;">
|
||||||
<asp:CheckBox ID="ChlMotivoDescuento" runat="server" Text="Motivo Descuento" /></td>
|
<asp:CheckBox ID="ChlMotivoDescuento" runat="server" Text="Motivo Descuento" /></td>
|
||||||
</tr>
|
</tr>
|
||||||
<tr>
|
<tr>
|
||||||
<td style="text-align: left;">
|
<td style="text-align: left;">
|
||||||
<asp:CheckBox ID="ChkAmortizacion" runat="server" Text="Amortización" Checked="true" /></td>
|
<asp:CheckBox ID="ChkAmortizacion" runat="server" Text="Amortización" /></td>
|
||||||
<td style="text-align: left;">
|
<td style="text-align: left;">
|
||||||
<asp:CheckBox ID="ChkIVA" runat="server" Text="IVA" Checked="true" /></td>
|
<asp:CheckBox ID="ChkIVA" runat="server" Text="IVA" Checked="true" /></td>
|
||||||
|
|
||||||
|
|||||||
@@ -114,8 +114,6 @@ Partial Class RepVentaDetalle
|
|||||||
DVServicioDomicilio.Visible = True
|
DVServicioDomicilio.Visible = True
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
@@ -452,6 +450,7 @@ Partial Class RepVentaDetalle
|
|||||||
If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(11).Visible = False
|
If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(11).Visible = False
|
||||||
|
|
||||||
ChkIEPS.Checked = UsuarioActual.Empresa.Funcionalidad(713) = "1" 'empresa deduce IEPS
|
ChkIEPS.Checked = UsuarioActual.Empresa.Funcionalidad(713) = "1" 'empresa deduce IEPS
|
||||||
|
GvDatos.Columns(9).Visible = ChkIEPS.Checked
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
|
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 = "<a class=""Texto"" href=""/Ventas/Ventas.aspx?CveVenta=" & e.Row.DBCampo("CveVentaPadre") & """>" & e.Row.DBCampo("FolioVenta") & "</a>"
|
e.Row.FCLiteral("LtlFacturaCotizacion").Text = "<a class=""Texto"" href=""/Ventas/Ventas.aspx?CveVenta=" & e.Row.DBCampo("CveVentaPadre") & """>" & e.Row.DBCampo("FolioVenta") & "</a>"
|
||||||
End If
|
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("SubTotal").ToDouble = 0 Then e.Row.FCLiteral("LtlSubTotal").Text = "-"
|
||||||
If e.Row.DBCampo("Descuento").ToDouble = 0 Then e.Row.FCLiteral("LtlDescuento").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
|
Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
|
||||||
|
|
||||||
If ChkFolio.Checked Then
|
GvDatos.Columns(1).Visible = ChkFolio.Checked
|
||||||
GvDatos.Columns(1).Visible = True
|
GvDatos.Columns(2).Visible = ChkFecha.Checked
|
||||||
Else
|
GvDatos.Columns(3).Visible = ChkCliente.Checked
|
||||||
GvDatos.Columns(1).Visible = False
|
GvDatos.Columns(4).Visible = ChkSubTotal.Checked
|
||||||
End If
|
GvDatos.Columns(5).Visible = ChkDescuento.Checked
|
||||||
|
GvDatos.Columns(6).Visible = ChlMotivoDescuento.Checked
|
||||||
If ChkFecha.Checked Then
|
GvDatos.Columns(7).Visible = ChkAmortizacion.Checked
|
||||||
GvDatos.Columns(2).Visible = True
|
GvDatos.Columns(8).Visible = ChkIVA.Checked
|
||||||
|
GvDatos.Columns(9).Visible = ChkIEPS.Checked
|
||||||
Else
|
GvDatos.Columns(10).Visible = ChkRetIVA.Checked
|
||||||
GvDatos.Columns(2).Visible = False
|
GvDatos.Columns(11).Visible = ChkRetISR.Checked
|
||||||
End If
|
GvDatos.Columns(12).Visible = ChkTotalImpuestos.Checked
|
||||||
|
GvDatos.Columns(13).Visible = ChkTotal.Checked
|
||||||
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(14).Visible = ChkMoneda.Checked
|
GvDatos.Columns(14).Visible = ChkMoneda.Checked
|
||||||
|
GvDatos.Columns(15).Visible = ChkSucursal.Checked
|
||||||
If ChkSucursal.Checked Then
|
GvDatos.Columns(16).Visible = ChkSucursalEjecucion.Checked
|
||||||
GvDatos.Columns(15).Visible = True
|
GvDatos.Columns(17).Visible = ChkCodigo.Checked
|
||||||
Else
|
GvDatos.Columns(18).Visible = ChkSucursalCliente.Checked
|
||||||
GvDatos.Columns(15).Visible = False
|
GvDatos.Columns(19).Visible = ChkSucursalCobranza.Checked
|
||||||
End If
|
GvDatos.Columns(20).Visible = ChkSucursalEjecucion.Checked
|
||||||
|
GvDatos.Columns(21).Visible = ChkVendedor.Checked
|
||||||
If ChkSucursalEjecucion.Checked Then
|
GvDatos.Columns(22).Visible = ChkEstatusFactura.Checked
|
||||||
GvDatos.Columns(16).Visible = True
|
GvDatos.Columns(23).Visible = ChkMotivoCancelacion.Checked
|
||||||
Else
|
GvDatos.Columns(24).Visible = ChkSeTimbro.Checked
|
||||||
GvDatos.Columns(16).Visible = False
|
GvDatos.Columns(25).Visible = ChkSeEnvioMail.Checked
|
||||||
End If
|
GvDatos.Columns(26).Visible = ChkCuentaContable.Checked
|
||||||
|
GvDatos.Columns(27).Visible = ChkUsuario.Checked
|
||||||
If ChkCodigo.Checked Then
|
GvDatos.Columns(28).Visible = ChkObservaciones.Checked
|
||||||
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(29).Visible = ChkFolioFiscal.Checked
|
GvDatos.Columns(29).Visible = ChkFolioFiscal.Checked
|
||||||
|
|
||||||
GvDatos.Columns(30).Visible = ChkMailCliente.Checked
|
GvDatos.Columns(30).Visible = ChkMailCliente.Checked
|
||||||
|
GvDatos.Columns(31).Visible = ChkEstatusFacturacion.Checked
|
||||||
GvDatos.Columns(31).Visible = True = ChkEstatusFacturacion.Checked
|
|
||||||
|
|
||||||
GvDatos.Columns(32).Visible = ChkFolioFacturacion.Checked
|
GvDatos.Columns(32).Visible = ChkFolioFacturacion.Checked
|
||||||
|
|
||||||
GvDatos.Columns(33).Visible = ChkSaldo.Checked
|
GvDatos.Columns(33).Visible = ChkSaldo.Checked
|
||||||
|
|
||||||
Personalizo = 1
|
Personalizo = 1
|
||||||
@@ -966,124 +807,6 @@ Partial Class RepVentaDetalle
|
|||||||
Private Function GenerarFacturaVentaDEV(CveVenta As Integer, CveUsuario As Integer) As Byte()
|
Private Function GenerarFacturaVentaDEV(CveVenta As Integer, CveUsuario As Integer) As Byte()
|
||||||
|
|
||||||
Return DescargarFactura(CveVenta, UsuarioActual.CveEmpresa, CveUsuario)
|
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
|
End Function
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user