AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- cambios

Browse Source 
- ocultar columna de amortizacón
- columna de descuentos, sale solo si tiene datos
- columna de ieps, se visualiza si la empresa la deduce
-- repventasetalle, reacomodo a modal de perosnalizar
This commit is contained in:
rrene
2023-06-19 10:09:34 -07:00
parent a5e49294e7
commit c35883fdc8
4 changed files with 44 additions and 118 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
Ventas/RepVentaDetalle.aspx
View File

@@ -379,7 +379,7 @@
<asp:Literal ID="LtlIVA" runat="server" Text='<%# Eval("IVA", "{0:N2}") %>'></asp:Literal> <asp:Literal ID="LtlIVA" runat="server" Text='<%# Eval("IVA", "{0:N2}") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="IEPS" ItemStyle-HorizontalAlign="Right"> <asp:TemplateField HeaderText="IEPS" Visible="false" ItemStyle-HorizontalAlign="Right" >
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlIEPS" runat="server" Text='<%# Eval("IEPS", "{0:N2}") %>'></asp:Literal> <asp:Literal ID="LtlIEPS" runat="server" Text='<%# Eval("IEPS", "{0:N2}") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
@@ -580,8 +580,7 @@
<asp:CheckBox ID="ChkFolio" runat="server" Text="Folio" Checked="true" /></td> <asp:CheckBox ID="ChkFolio" runat="server" Text="Folio" Checked="true" /></td>
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkSubTotal" runat="server" Text="SubTotal" Checked="true" /></td> <asp:CheckBox ID="ChkSubTotal" runat="server" Text="SubTotal" Checked="true" /></td>
</tr>
<tr>
<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" Checked="true" /></td>
<td style="text-align: left;"> <td style="text-align: left;">
@@ -592,8 +591,7 @@
<asp:CheckBox ID="ChkAmortizacion" runat="server" Text="Amortización" Checked="true" /></td> <asp:CheckBox ID="ChkAmortizacion" runat="server" Text="Amortización" Checked="true" /></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>
</tr>
<tr>
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkRetIVA" runat="server" Text="Ret. IVA" /></td> <asp:CheckBox ID="ChkRetIVA" runat="server" Text="Ret. IVA" /></td>
<td style="text-align: left;"> <td style="text-align: left;">
@@ -605,8 +603,7 @@
<asp:CheckBox ID="ChkTotal" runat="server" Text="Total" Checked="true" /></td> <asp:CheckBox ID="ChkTotal" runat="server" Text="Total" Checked="true" /></td>
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkFecha" runat="server" Text="Fecha" Checked="true" /></td> <asp:CheckBox ID="ChkFecha" runat="server" Text="Fecha" Checked="true" /></td>
</tr>
<tr>
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkSucursal" runat="server" Text="Sucursal" Checked="true" /></td> <asp:CheckBox ID="ChkSucursal" runat="server" Text="Sucursal" Checked="true" /></td>
<td style="text-align: left;"> <td style="text-align: left;">
@@ -618,8 +615,7 @@
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkSucursalCliente" runat="server" Text="Sucursal Cliente" /></td> <asp:CheckBox ID="ChkSucursalCliente" runat="server" Text="Sucursal Cliente" /></td>
</tr>
<tr>
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkVendedor" runat="server" Text="Vendedor" /></td> <asp:CheckBox ID="ChkVendedor" runat="server" Text="Vendedor" /></td>
<td style="text-align: left;"> <td style="text-align: left;">
@@ -630,8 +626,7 @@
<asp:CheckBox ID="ChkMotivoCancelacion" runat="server" Text="Motivo Cancelacion" /></td> <asp:CheckBox ID="ChkMotivoCancelacion" runat="server" Text="Motivo Cancelacion" /></td>
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkSeTimbro" runat="server" Text="Se Timbró" /></td> <asp:CheckBox ID="ChkSeTimbro" runat="server" Text="Se Timbró" /></td>
</tr>
<tr>
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkSeEnvioMail" runat="server" Text="Se envió Mail" /></td> <asp:CheckBox ID="ChkSeEnvioMail" runat="server" Text="Se envió Mail" /></td>
<td style="text-align: left;"> <td style="text-align: left;">
@@ -642,8 +637,7 @@
<asp:CheckBox ID="ChkUsuario" runat="server" Text="Usuario" /></td> <asp:CheckBox ID="ChkUsuario" runat="server" Text="Usuario" /></td>
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkObservaciones" runat="server" Text="Observaciones" /></td> <asp:CheckBox ID="ChkObservaciones" runat="server" Text="Observaciones" /></td>
</tr>
<tr>
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkFolioFiscal" runat="server" Text="Folio Fiscal (UUID)" /></td> <asp:CheckBox ID="ChkFolioFiscal" runat="server" Text="Folio Fiscal (UUID)" /></td>
<td style="text-align: left;"> <td style="text-align: left;">
@@ -654,8 +648,7 @@
<asp:CheckBox ID="ChkEstatusFacturacion" runat="server" Text="Estatus Facturación" /></td> <asp:CheckBox ID="ChkEstatusFacturacion" runat="server" Text="Estatus Facturación" /></td>
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkFolioFacturacion" runat="server" Text="Factura Cotización" /></td> <asp:CheckBox ID="ChkFolioFacturacion" runat="server" Text="Factura Cotización" /></td>
</tr>
<tr>
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkCliente" runat="server" Text="Cliente" Checked="true" /></td> <asp:CheckBox ID="ChkCliente" runat="server" Text="Cliente" Checked="true" /></td>
<td style="text-align: left;"> <td style="text-align: left;">
@@ -665,23 +658,16 @@
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkTotalImpuestos" runat="server" Text="Impuestos Locales" /></td> <asp:CheckBox ID="ChkTotalImpuestos" runat="server" Text="Impuestos Locales" /></td>
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkIEPS" runat="server" Text="IEPS" Checked="true" /></td> <asp:CheckBox ID="ChkIEPS" runat="server" Text="IEPS" /></td>
</tr>
<tr>
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkMoneda" runat="server" Text="Moneda" Checked="true" /></td> <asp:CheckBox ID="ChkMoneda" runat="server" Text="Moneda" Checked="true" /></td>
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkSaldo" runat="server" Text="Saldo" Checked="false" /></td> <asp:CheckBox ID="ChkSaldo" runat="server" Text="Saldo" Checked="false" /></td>
</td> </td>
</tr> </tr>
</tbody> </tbody>
</table> </table>
</div> </div>
<div class="modal-footer"> <div class="modal-footer">
<button type="button" class="btn btn-success" data-dismiss="modal" onclick="$('#BtnPersonalizar').click();">Personalizar</button> <button type="button" class="btn btn-success" data-dismiss="modal" onclick="$('#BtnPersonalizar').click();">Personalizar</button>

16
Ventas/RepVentaDetalle.aspx.vb
View File

@@ -56,7 +56,6 @@ Partial Class RepVentaDetalle
End Set End Set
End Property End Property
Private Property TipoCliente As Integer Private Property TipoCliente As Integer
Get Get
If ViewState("TipoCliente") Is Nothing Then If ViewState("TipoCliente") Is Nothing Then
@@ -64,16 +63,12 @@ Partial Class RepVentaDetalle
Else Else
Return ViewState("TipoCliente").ToString.ToEntero Return ViewState("TipoCliente").ToString.ToEntero
End If End If
End Get End Get
Set(value As Integer) Set(value As Integer)
ViewState("TipoCliente") = value ViewState("TipoCliente") = value
End Set End Set
End Property End Property
Private Property TCEspecifico As Decimal Private Property TCEspecifico As Decimal
Get Get
Return ViewState("TCEspecifico").ToString.ToDecimal Return ViewState("TCEspecifico").ToString.ToDecimal
@@ -110,6 +105,7 @@ Partial Class RepVentaDetalle
Personalizo = 0 Personalizo = 0
CargaCombos() CargaCombos()
InicializaValores() InicializaValores()
ConfiguraEmpresa()
CargaDatos() CargaDatos()
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
@@ -370,7 +366,6 @@ Partial Class RepVentaDetalle
#Region "CONSULTAR" #Region "CONSULTAR"
Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
CargaDatos() CargaDatos()
ConfiguraEmpresa()
UPDatos.Update() UPDatos.Update()
End Sub End Sub
Private Sub CargaDatos() Private Sub CargaDatos()
@@ -423,6 +418,7 @@ Partial Class RepVentaDetalle
End If End If
ObjVentas.Dispose() ObjVentas.Dispose()
If DtVentas.SUMD("Descuento") <= 0 Then GvDatos.Columns(5).Visible = False ' se oculta descuentos, si está vac+io
Agrupador = DdlGrupo.SelectedItem.Text Agrupador = DdlGrupo.SelectedItem.Text
GvDatos.DataBind() GvDatos.DataBind()
@@ -451,12 +447,12 @@ Partial Class RepVentaDetalle
End Function End Function
Private Sub ConfiguraEmpresa() Private Sub ConfiguraEmpresa()
'Dim ObjEmpresa As New ClsEmpresas()
'If ObjEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(10).Visible = False If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(10).Visible = False
If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(11).Visible = False If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(11).Visible = False
'End If
'ObjEmpresa.Dispose() ChkIEPS.Checked = UsuarioActual.Empresa.Funcionalidad(713) = "1" 'empresa deduce IEPS
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
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then

4
Ventas/RepVentas.aspx
View File

@@ -356,12 +356,12 @@
</asp:TemplateField> </asp:TemplateField>
<asp:BoundField HeaderText="Sub Total" DataField="SubTotal" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField HeaderText="Sub Total" DataField="SubTotal" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Descuento" DataField="Descuento" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField HeaderText="Descuento" DataField="Descuento" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Amortización" DataField="Amortizacion" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField HeaderText="Amortización" DataField="Amortizacion" Visible="false" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Sub Total 2" DataField="SubTotal2" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField HeaderText="Sub Total 2" DataField="SubTotal2" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="IVA" DataField="IVA" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField HeaderText="IVA" DataField="IVA" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="IEPS" DataField="IEPS" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField HeaderText="IEPS" DataField="IEPS" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Ret. IVA" DataField="RetIVA" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField HeaderText="Ret. IVA" DataField="RetIVA" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Ret. ISR" DataField="RetISR" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField HeaderText="Ret. ISR" DataField="RetISR" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Imp. Locales" DataField="TotalImpuestos" ItemStyle-Width="10%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField HeaderText="Imp. Locales" DataField="TotalImpuestos" ItemStyle-Width="10%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />

106
Ventas/RepVentas.aspx.vb
View File

@@ -78,8 +78,9 @@ Partial Class Ventas_RepVentas
TipoCambio = 1 TipoCambio = 1
TCEspecifico = -1 TCEspecifico = -1
CargaCombos() CargaCombos()
ConfiguraEmpresa()
'MODALIDADES
'MODALIDADES
If Request("Op") IsNot Nothing AndAlso Request("Op").ToString <> "" Then If Request("Op") IsNot Nothing AndAlso Request("Op").ToString <> "" Then
Opcion = Request("Op").ToString Opcion = Request("Op").ToString
Else Else
@@ -155,6 +156,7 @@ Partial Class Ventas_RepVentas
Private Sub ConfiguraEmpresa() Private Sub ConfiguraEmpresa()
' If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(8).Visible = False ' If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(8).Visible = False
If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(9).Visible = False If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(9).Visible = False
ChkIEPS.Checked = UsuarioActual.Empresa.Funcionalidad(713) = "1" 'empresa deduce IEPS
End Sub End Sub
Private Sub CargaCombos() Private Sub CargaCombos()
@@ -210,9 +212,9 @@ Partial Class Ventas_RepVentas
#End Region #End Region
#Region " CARGA DATOS " #Region " CARGA DATOS "
Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
CargaDatos()
ConfiguraEmpresa() CargaDatos()
Personaliza() Personaliza()
UPDatos.Update() UPDatos.Update()
'XmlConf(UsuarioActual.CveUsuario, 9) 'XmlConf(UsuarioActual.CveUsuario, 9)
@@ -252,6 +254,8 @@ Partial Class Ventas_RepVentas
GvDatos.DataSource = Nothing GvDatos.DataSource = Nothing
End If End If
If DtVentas.SUMD("Descuento") <= 0 Then GvDatos.Columns(3).Visible = False ' se oculta descuentos, si está vac+io
Agrupador = DdlGrupo.SelectedItem.Text Agrupador = DdlGrupo.SelectedItem.Text
CveProyecto = DdlProyecto.SelectedValue.ToEntero CveProyecto = DdlProyecto.SelectedValue.ToEntero
ObjVentas.Dispose() ObjVentas.Dispose()
@@ -474,82 +478,22 @@ Partial Class Ventas_RepVentas
Personaliza() Personaliza()
End Sub End Sub
Private Sub Personaliza() Private Sub Personaliza()
If ChkSubTotal2.Checked Then GvDatos.Columns(5).Visible = ChkSubTotal2.Checked
GvDatos.Columns(5).Visible = True GvDatos.Columns(7).Visible = ChkIEPS.Checked
Else GvDatos.Columns(8).Visible = ChkRetIVA.Checked
GvDatos.Columns(5).Visible = False GvDatos.Columns(9).Visible = ChkRetISR.Checked
End If GvDatos.Columns(10).Visible = ChkImpLoc.Checked
GvDatos.Columns(12).Visible = ChkMinSub.Checked
If ChkIEPS.Checked Then GvDatos.Columns(13).Visible = ChkAVGSub.Checked
GvDatos.Columns(7).Visible = True GvDatos.Columns(14).Visible = ChkMaxSub.Checked
Else GvDatos.Columns(15).Visible = ChkMaxTot.Checked
GvDatos.Columns(7).Visible = False GvDatos.Columns(16).Visible = ChkAvgTot.Checked
End If GvDatos.Columns(17).Visible = ChkMinTot.Checked
GvDatos.Columns(18).Visible = CheckRefacturado.Checked
If ChkRetIVA.Checked Then
GvDatos.Columns(8).Visible = True
Else
GvDatos.Columns(8).Visible = False
End If
If ChkRetISR.Checked Then
GvDatos.Columns(9).Visible = True
Else
GvDatos.Columns(9).Visible = False
End If
If ChkImpLoc.Checked Then
GvDatos.Columns(10).Visible = True
Else
GvDatos.Columns(10).Visible = False
End If
If ChkMinSub.Checked Then
GvDatos.Columns(12).Visible = True
Else
GvDatos.Columns(12).Visible = False
End If
If ChkAVGSub.Checked Then
GvDatos.Columns(13).Visible = True
Else
GvDatos.Columns(13).Visible = False
End If
If ChkMaxSub.Checked Then
GvDatos.Columns(14).Visible = True
Else
GvDatos.Columns(14).Visible = False
End If
If ChkMinTot.Checked Then
GvDatos.Columns(17).Visible = True
Else
GvDatos.Columns(17).Visible = False
End If
If ChkAvgTot.Checked Then
GvDatos.Columns(16).Visible = True
Else
GvDatos.Columns(16).Visible = False
End If
If ChkMaxTot.Checked Then
GvDatos.Columns(15).Visible = True
Else
GvDatos.Columns(15).Visible = False
End If
If CheckRefacturado.Checked Then
GvDatos.Columns(18).Visible = True
Else
GvDatos.Columns(18).Visible = False
End If
UPDatos.Update() UPDatos.Update()
End Sub End Sub
#End Region #End Region