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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2021-08-18 21:55:36 -07:00
parent c8120a5eaa 17fd309153
commit 9a03b005c9
5 changed files with 407 additions and 129 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Inventarios/RecepcionAlmacen.aspx.vb
View File

@@ -4788,6 +4788,4 @@ Partial Class Inventarios_RecepcionAlmacen
' Return Retorno
'End Function
End Class

251
Sistemas/UsuarioDetalle.aspx
View File

@@ -501,6 +501,18 @@
<asp:TemplateField Visible="false">
<ItemStyle HorizontalAlign="Center" />
<HeaderTemplate>
<table style="text-align: center; width: 100%">
<tr>
<td style="width: 30%; text-align: right">
<asp:CheckBox ID="chkEstatusREQAll1" ClientIDMode="Static" runat="server" onclick="chkSeleccionarEstatus(chkEstatusREQAll1,'chkEstatusREQ1');" />
</td>
<td style="width: 70%; text-align: center">
<asp:Label ID="LblTituloEstatusREQ1" runat="server"></asp:Label>
</td>
</tr>
</table>
</HeaderTemplate>
<ItemTemplate>
<table style="text-align: center; width: 100%">
<tr>
@@ -522,6 +534,18 @@
<asp:TemplateField Visible="false">
<ItemStyle HorizontalAlign="Center" />
<HeaderTemplate>
<table style="text-align: center; width: 100%">
<tr>
<td style="width: 30%; text-align: right">
<asp:CheckBox ID="chkEstatusREQAll2" ClientIDMode="Static" runat="server" onclick="chkSeleccionarEstatus(chkEstatusREQAll2,'chkEstatusREQ2');" />
</td>
<td style="width: 70%; text-align: center">
<asp:Label ID="LblTituloEstatusREQ2" runat="server"></asp:Label>
</td>
</tr>
</table>
</HeaderTemplate>
<ItemTemplate>
<table style="text-align: center; width: 100%">
<tr>
@@ -543,6 +567,18 @@
<asp:TemplateField Visible="false">
<ItemStyle HorizontalAlign="Center" />
<HeaderTemplate>
<table style="text-align: center; width: 100%">
<tr>
<td style="width: 30%; text-align: right">
<asp:CheckBox ID="chkEstatusREQAll3" ClientIDMode="Static" runat="server" onclick="chkSeleccionarEstatus(chkEstatusREQAll3,'chkEstatusREQ3');" />
</td>
<td style="width: 70%; text-align: center">
<asp:Label ID="LblTituloEstatusREQ3" runat="server"></asp:Label>
</td>
</tr>
</table>
</HeaderTemplate>
<ItemTemplate>
<table style="text-align: center; width: 100%">
<tr>
@@ -564,6 +600,18 @@
<asp:TemplateField Visible="false">
<ItemStyle HorizontalAlign="Center" />
<HeaderTemplate>
<table style="text-align: center; width: 100%">
<tr>
<td style="width: 30%; text-align: right">
<asp:CheckBox ID="chkEstatusREQAll4" ClientIDMode="Static" runat="server" onclick="chkSeleccionarEstatus(chkEstatusREQAll4,'chkEstatusREQ4');" />
</td>
<td style="width: 70%; text-align: center">
<asp:Label ID="LblTituloEstatusREQ4" runat="server"></asp:Label>
</td>
</tr>
</table>
</HeaderTemplate>
<ItemTemplate>
<table style="text-align: center; width: 100%">
<tr>
@@ -585,6 +633,18 @@
<asp:TemplateField Visible="false">
<ItemStyle HorizontalAlign="Center" />
<HeaderTemplate>
<table style="text-align: center; width: 100%">
<tr>
<td style="width: 30%; text-align: right">
<asp:CheckBox ID="chkEstatusREQAll5" ClientIDMode="Static" runat="server" onclick="chkSeleccionarEstatus(chkEstatusREQAll5,'chkEstatusREQ5');" />
</td>
<td style="width: 70%; text-align: center">
<asp:Label ID="LblTituloEstatusREQ5" runat="server"></asp:Label>
</td>
</tr>
</table>
</HeaderTemplate>
<ItemTemplate>
<table style="text-align: center; width: 100%">
<tr>
@@ -606,6 +666,18 @@
<asp:TemplateField Visible="false">
<ItemStyle HorizontalAlign="Center" />
<HeaderTemplate>
<table style="text-align: center; width: 100%">
<tr>
<td style="width: 30%; text-align: right">
<asp:CheckBox ID="chkEstatusREQAll6" ClientIDMode="Static" runat="server" onclick="chkSeleccionarEstatus(chkEstatusREQAll6,'chkEstatusREQ6');" />
</td>
<td style="width: 70%; text-align: center">
<asp:Label ID="LblTituloEstatusREQ6" runat="server"></asp:Label>
</td>
</tr>
</table>
</HeaderTemplate>
<ItemTemplate>
<table style="text-align: center; width: 100%">
<tr>
@@ -627,6 +699,18 @@
<asp:TemplateField Visible="false">
<ItemStyle HorizontalAlign="Center" />
<HeaderTemplate>
<table style="text-align: center; width: 100%">
<tr>
<td style="width: 30%; text-align: right">
<asp:CheckBox ID="chkEstatusREQAll7" ClientIDMode="Static" runat="server" onclick="chkSeleccionarEstatus(chkEstatusREQAll7,'chkEstatusREQ7');" />
</td>
<td style="width: 70%; text-align: center">
<asp:Label ID="LblTituloEstatusREQ7" runat="server"></asp:Label>
</td>
</tr>
</table>
</HeaderTemplate>
<ItemTemplate>
<table style="text-align: center; width: 100%">
<tr>
@@ -648,6 +732,18 @@
<asp:TemplateField Visible="false">
<ItemStyle HorizontalAlign="Center" />
<HeaderTemplate>
<table style="text-align: center; width: 100%">
<tr>
<td style="width: 30%; text-align: right">
<asp:CheckBox ID="chkEstatusREQAll8" ClientIDMode="Static" runat="server" onclick="chkSeleccionarEstatus(chkEstatusREQAll8,'chkEstatusREQ8');" />
</td>
<td style="width: 70%; text-align: center">
<asp:Label ID="LblTituloEstatusREQ8" runat="server"></asp:Label>
</td>
</tr>
</table>
</HeaderTemplate>
<ItemTemplate>
<table style="text-align: center; width: 100%">
<tr>
@@ -669,6 +765,18 @@
<asp:TemplateField Visible="false">
<ItemStyle HorizontalAlign="Center" />
<HeaderTemplate>
<table style="text-align: center; width: 100%">
<tr>
<td style="width: 30%; text-align: right">
<asp:CheckBox ID="chkEstatusREQAll9" ClientIDMode="Static" runat="server" onclick="chkSeleccionarEstatus(chkEstatusREQAll9,'chkEstatusREQ9');" />
</td>
<td style="width: 70%; text-align: center">
<asp:Label ID="LblTituloEstatusREQ9" runat="server"></asp:Label>
</td>
</tr>
</table>
</HeaderTemplate>
<ItemTemplate>
<table style="text-align: center; width: 100%">
<tr>
@@ -690,6 +798,18 @@
<asp:TemplateField Visible="false">
<ItemStyle HorizontalAlign="Center" />
<HeaderTemplate>
<table style="text-align: center; width: 100%">
<tr>
<td style="width: 30%; text-align: right">
<asp:CheckBox ID="chkEstatusREQAll10" ClientIDMode="Static" runat="server" onclick="chkSeleccionarEstatus(chkEstatusREQAll10,'chkEstatusREQ10');" />
</td>
<td style="width: 70%; text-align: center">
<asp:Label ID="LblTituloEstatusREQ10" runat="server"></asp:Label>
</td>
</tr>
</table>
</HeaderTemplate>
<ItemTemplate>
<table style="text-align: center; width: 100%">
<tr>
@@ -723,6 +843,18 @@
<asp:BoundField HeaderText="SubProyecto" DataField="SubProyecto" ItemStyle-HorizontalAlign="Left" />
<asp:TemplateField Visible="false">
<ItemStyle HorizontalAlign="Center" />
<HeaderTemplate>
<table style="text-align: center; width: 100%">
<tr>
<td style="width: 30%; text-align: right">
<asp:CheckBox ID="chkEstatusAll1" ClientIDMode="Static" runat="server" onclick="chkSeleccionarEstatus(chkEstatusAll1,'chkEstatus1');" />
</td>
<td style="width: 70%; text-align: center">
<asp:Label ID="LblTituloEstatus1" runat="server"></asp:Label>
</td>
</tr>
</table>
</HeaderTemplate>
<ItemTemplate>
<table style="text-align: center; width: 100%">
<tr>
@@ -744,6 +876,18 @@
<asp:TemplateField Visible="false">
<ItemStyle HorizontalAlign="Center" />
<HeaderTemplate>
<table style="text-align: center; width: 100%">
<tr>
<td style="width: 30%; text-align: right">
<asp:CheckBox ID="chkEstatusAll2" ClientIDMode="Static" runat="server" onclick="chkSeleccionarEstatus(chkEstatusAll2,'chkEstatus2');" />
</td>
<td style="width: 70%; text-align: center">
<asp:Label ID="LblTituloEstatus2" runat="server"></asp:Label>
</td>
</tr>
</table>
</HeaderTemplate>
<ItemTemplate>
<table style="text-align: center; width: 100%">
<tr>
@@ -765,6 +909,18 @@
<asp:TemplateField Visible="false">
<ItemStyle HorizontalAlign="Center" />
<HeaderTemplate>
<table style="text-align: center; width: 100%">
<tr>
<td style="width: 30%; text-align: right">
<asp:CheckBox ID="chkEstatusAll3" ClientIDMode="Static" runat="server" onclick="chkSeleccionarEstatus(chkEstatusAll3,'chkEstatus3');" />
</td>
<td style="width: 70%; text-align: center">
<asp:Label ID="LblTituloEstatus3" runat="server"></asp:Label>
</td>
</tr>
</table>
</HeaderTemplate>
<ItemTemplate>
<table style="text-align: center; width: 100%">
<tr>
@@ -786,6 +942,18 @@
<asp:TemplateField Visible="false">
<ItemStyle HorizontalAlign="Center" />
<HeaderTemplate>
<table style="text-align: center; width: 100%">
<tr>
<td style="width: 30%; text-align: right">
<asp:CheckBox ID="chkEstatusAll4" ClientIDMode="Static" runat="server" onclick="chkSeleccionarEstatus(chkEstatusAll4,'chkEstatus4');" />
</td>
<td style="width: 70%; text-align: center">
<asp:Label ID="LblTituloEstatus4" runat="server"></asp:Label>
</td>
</tr>
</table>
</HeaderTemplate>
<ItemTemplate>
<table style="text-align: center; width: 100%">
<tr>
@@ -807,6 +975,18 @@
<asp:TemplateField Visible="false">
<ItemStyle HorizontalAlign="Center" />
<HeaderTemplate>
<table style="text-align: center; width: 100%">
<tr>
<td style="width: 30%; text-align: right">
<asp:CheckBox ID="chkEstatusAll5" ClientIDMode="Static" runat="server" onclick="chkSeleccionarEstatus(chkEstatusAll5,'chkEstatus5');" />
</td>
<td style="width: 70%; text-align: center">
<asp:Label ID="LblTituloEstatus5" runat="server"></asp:Label>
</td>
</tr>
</table>
</HeaderTemplate>
<ItemTemplate>
<table style="text-align: center; width: 100%">
<tr>
@@ -828,6 +1008,18 @@
<asp:TemplateField Visible="false">
<ItemStyle HorizontalAlign="Center" />
<HeaderTemplate>
<table style="text-align: center; width: 100%">
<tr>
<td style="width: 30%; text-align: right">
<asp:CheckBox ID="chkEstatusAll6" ClientIDMode="Static" runat="server" onclick="chkSeleccionarEstatus(chkEstatusAll6,'chkEstatus6');" />
</td>
<td style="width: 70%; text-align: center">
<asp:Label ID="LblTituloEstatus6" runat="server"></asp:Label>
</td>
</tr>
</table>
</HeaderTemplate>
<ItemTemplate>
<table style="text-align: center; width: 100%">
<tr>
@@ -849,6 +1041,18 @@
<asp:TemplateField Visible="false">
<ItemStyle HorizontalAlign="Center" />
<HeaderTemplate>
<table style="text-align: center; width: 100%">
<tr>
<td style="width: 30%; text-align: right">
<asp:CheckBox ID="chkEstatusAll7" ClientIDMode="Static" runat="server" onclick="chkSeleccionarEstatus(chkEstatusAll7,'chkEstatus7');" />
</td>
<td style="width: 70%; text-align: center">
<asp:Label ID="LblTituloEstatus7" runat="server"></asp:Label>
</td>
</tr>
</table>
</HeaderTemplate>
<ItemTemplate>
<table style="text-align: center; width: 100%">
<tr>
@@ -870,6 +1074,18 @@
<asp:TemplateField Visible="false">
<ItemStyle HorizontalAlign="Center" />
<HeaderTemplate>
<table style="text-align: center; width: 100%">
<tr>
<td style="width: 30%; text-align: right">
<asp:CheckBox ID="chkEstatusAll8" ClientIDMode="Static" runat="server" onclick="chkSeleccionarEstatus(chkEstatusAll8,'chkEstatus8');" />
</td>
<td style="width: 70%; text-align: center">
<asp:Label ID="LblTituloEstatus8" runat="server"></asp:Label>
</td>
</tr>
</table>
</HeaderTemplate>
<ItemTemplate>
<table style="text-align: center; width: 100%">
<tr>
@@ -891,6 +1107,18 @@
<asp:TemplateField Visible="false">
<ItemStyle HorizontalAlign="Center" />
<HeaderTemplate>
<table style="text-align: center; width: 100%">
<tr>
<td style="width: 30%; text-align: right">
<asp:CheckBox ID="chkEstatusAll9" ClientIDMode="Static" runat="server" onclick="chkSeleccionarEstatus(chkEstatusAll9,'chkEstatus9');" />
</td>
<td style="width: 70%; text-align: center">
<asp:Label ID="LblTituloEstatus9" runat="server"></asp:Label>
</td>
</tr>
</table>
</HeaderTemplate>
<ItemTemplate>
<table style="text-align: center; width: 100%">
<tr>
@@ -912,6 +1140,18 @@
<asp:TemplateField Visible="false">
<ItemStyle HorizontalAlign="Center" />
<HeaderTemplate>
<table style="text-align: center; width: 100%">
<tr>
<td style="width: 30%; text-align: right">
<asp:CheckBox ID="chkEstatusAll10" ClientIDMode="Static" runat="server" onclick="chkSeleccionarEstatus(chkEstatusAll10,'chkEstatus10');" />
</td>
<td style="width: 70%; text-align: center">
<asp:Label ID="LblTituloEstatus10" runat="server"></asp:Label>
</td>
</tr>
</table>
</HeaderTemplate>
<ItemTemplate>
<table style="text-align: center; width: 100%">
<tr>
@@ -2889,6 +3129,17 @@
$get(img1).style.display = 'none';
}
function chk1Change(chk1, img1) {
if (chk1.checked == true)
$get(img1).style.display = 'inline';
else
$get(img1).style.display = 'none';
}
function chkSeleccionarEstatus(chkall, cssChk) {
$("." + cssChk + " input").not(this).prop('checked', chkall.checked);
}
function chkMostrarLimitesCambio() {
if (chkMostrarLimites.checked == true)
$get('DivLimites').style.display = 'inline';

24
Sistemas/UsuarioDetalle.aspx.vb
View File

@@ -2474,6 +2474,16 @@ Partial Class Sistemas_UsuarioDetalle
#Region "GRIDVIEW"
Protected Sub GvEstatusUsuariosREQ_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEstatusUsuariosREQ.RowDataBound
If e.Row.RowType = DataControlRowType.Header Then
For i As Integer = 2 To GvEstatusUsuariosREQ.Columns.Count - 1
Dim CveEstatus As Integer = GvEstatusUsuariosREQ.Columns(i).FooterText.ToEntero
Dim idIndex As Integer = i - 1
If CveEstatus > -1 Then
e.Row.FCLabel($"LblTituloEstatusREQ{idIndex}").Text = GvEstatusUsuariosREQ.Columns(i).HeaderText
End If
Next
End If
If e.Row.RowType = DataControlRowType.DataRow Then
Dim tmpT As DataTable = DTEstatusSubProyectos.FiltraParametros(String.Format("CveSubProyecto = {0}", e.Row.DBCampo("CveSubProyecto").ToString))
@@ -2487,6 +2497,7 @@ Partial Class Sistemas_UsuarioDetalle
Dim hdnCveEstatusUsuarios As HiddenField = e.Row.FCHiddenField($"hdnCveEstatusUsuarios{idIndex}")
Dim lblSuperior As Label = e.Row.FCLabel($"lblSuperior{idIndex}")
Dim lblLimites As Label = e.Row.FCLabel($"lblLimites{idIndex}")
chkEstatus.CssClass = $"chkEstatusREQ{idIndex}"
Dim dtTemp As New DataTable
Dim existenPermisosActuales As Boolean
@@ -2600,6 +2611,17 @@ Partial Class Sistemas_UsuarioDetalle
End If
End Sub
Protected Sub GvEstatusUsuariosOC_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEstatusUsuariosOC.RowDataBound
If e.Row.RowType = DataControlRowType.Header Then
For i As Integer = 2 To GvEstatusUsuariosOC.Columns.Count - 1
Dim CveEstatus As Integer = GvEstatusUsuariosOC.Columns(i).FooterText.ToEntero
Dim idIndex As Integer = i - 1
If CveEstatus > -1 Then
e.Row.FCLabel($"LblTituloEstatus{idIndex}").Text = GvEstatusUsuariosOC.Columns(i).HeaderText
End If
Next
End If
If e.Row.RowType = DataControlRowType.DataRow Then
Dim tmpT As DataTable = DTEstatusSubProyectos.FiltraParametros(String.Format("CveSubProyecto = {0}", e.Row.DBCampo("CveSubProyecto").ToString))
@@ -2613,7 +2635,7 @@ Partial Class Sistemas_UsuarioDetalle
Dim hdnCveEstatusUsuarios As HiddenField = e.Row.FCHiddenField($"hdnCveEstatusUsuarios{idIndex}")
Dim lblSuperior As Label = e.Row.FCLabel($"lblSuperior{idIndex}")
Dim lblLimites As Label = e.Row.FCLabel($"lblLimites{idIndex}")
chkEstatus.CssClass = $"chkEstatus{idIndex}"
Dim dtTemp As New DataTable
Dim existenPermisosActuales As Boolean

4
Ventas/Clientes.aspx.vb
View File

@@ -2574,7 +2574,7 @@ Partial Class Clientes
CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero(), CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero(), DesglosaIEPS:=ChkDesglosarIEPS.Checked, AplicaComercioExterior:=ChkAplicaComercioExterior.Checked, CveTipoOperacion:=DdlTipoOperacion.SelectedValue.ToEntero(), CvePedimento:=DdlClavePedimento.SelectedValue.ToEntero(), CveIncoterm:=DdlIncoterm.SelectedValue.ToEntero(),
CvePais:=DdlPais.SelectedValue.ToEntero(), CveEstado:=DdlEstado.SelectedValue.ToEntero(), CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero(), CveColonia:=DdlColonia.SelectedValue.ToEntero(), CveMotivoTraslado:=IIf(DdlMotivoTraslado.SelectedValue = "-1", "0", DdlMotivoTraslado.SelectedValue).ToString().ToEntero(), NumRegIdTrib:=IIf(TxtNumRegIdTrib.Text = "", "-1", TxtNumRegIdTrib.Text).ToString(),
ComExtEstado:=IIf(TxtComExtEstado.Text = "", "-1", TxtComExtEstado.Text).ToString(), ComExtMunicipio:=IIf(TxtComExtMunicipio.Text = "", "-1", TxtComExtMunicipio.Text).ToString(), ComExtColonia:=IIf(TxtComExtColonia.Text = "", "-1", TxtComExtColonia.Text).ToString(), RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked,
TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero(), CveAdminTrayecto:=DdlAdminTrayecto.SelectedValue.ToEntero()) Then
TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero(), CveAdminTrayecto:=If(DdlAdminTrayecto.SelectedValue.ToEntero() <= 0, 0, DdlAdminTrayecto.SelectedValue.ToEntero())) Then
ViewState("CveCliente") = ObjClientes.CveCliente
@@ -2669,7 +2669,7 @@ Partial Class Clientes
CveMotivoTraslado:=IIf(DdlMotivoTraslado.SelectedValue = "-1", "0", DdlMotivoTraslado.SelectedValue).ToString().ToEntero(), NumRegIdTrib:=IIf(TxtNumRegIdTrib.Text = "", "-1", TxtNumRegIdTrib.Text).ToString(),
ComExtEstado:=IIf(TxtComExtEstado.Text = "", "-1", TxtComExtEstado.Text).ToString(), ComExtMunicipio:=IIf(TxtComExtMunicipio.Text = "", "-1", TxtComExtMunicipio.Text).ToString(), ComExtColonia:=IIf(TxtComExtColonia.Text = "", "-1", TxtComExtColonia.Text).ToString(),
ApellidoPaternoPF:=IIf(TxtApellidoPaterno.Text = "", "-1", TxtApellidoPaterno.Text).ToString(), ApellidoMaternoPF:=IIf(TxtApellidoMaterno.Text = "", "-1", TxtApellidoMaterno.Text).ToString(), NombresPF:=IIf(TxtNombres.Text = "", "-1", TxtNombres.Text).ToString(),
RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero(), CveAdminTrayecto:=DdlAdminTrayecto.SelectedValue.ToEntero()) Then
RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero(), CveAdminTrayecto:=If(DdlAdminTrayecto.SelectedValue.ToEntero() <= 0, 0, DdlAdminTrayecto.SelectedValue.ToEntero())) Then
ObjClientes.LimpiaImpuestosLocales(CveCliente)

21
Ventas/Ventas.aspx.vb
View File

@@ -6951,7 +6951,8 @@ Partial Class Ventas
GvPS.Rows(e.NewEditIndex).FCDropDownList("DdlClasificacion").Enabled = False
End If
If GvPS.Rows(e.NewEditIndex).DataKey("CvePromocionDetalle").ToString().ToEntero() > 0 Then
'SI ES LLANTERA NO DEBE BLOQUEAR EL TEXTBOX
If GvPS.Rows(e.NewEditIndex).DataKey("CvePromocionDetalle").ToString().ToEntero() > 0 AndAlso (Not UsuarioActual.Empresa.Funcionalidad(558) = "1") Then
GvPS.Rows(e.NewEditIndex).FCTextBox("TxtDescuento").Enabled = False
GvPS.Rows(e.NewEditIndex).FCTextBox("TxtDescuento").ToolTip = "No se puede editar el descuento porque viene de una promoción"
End If
@@ -26034,7 +26035,7 @@ Partial Class Ventas
Select ImportePU = x.Sum(Function(s) s("ImportePU").ToString().ToDecimal),
ImporteTotal = x.Sum(Function(s) s("ImporteTotal").ToString().ToDecimal),
ImporteIVA = x.Sum(Function(s) (s("ImporteIVA").ToString().ToDecimal)).RoundSQL(2), ' Math.Round(s("ImporteIVA").ToString().ToDecimal, 2)) * (1 + PorcentajeIEPS) * PorcentajeIVA,
ImporteRetIVA = x.Sum(Function(s) Math.Round(s("ImporteRetIVA").ToString().ToDecimal, 2)),' Math.Round(s("ImportePU").ToString().ToDecimal, 2)) * PorcentajeRetIVA,
ImporteRetIVA = x.Sum(Function(s) Math.Round(s("ImporteRetIVA").ToString().ToDecimal, 2)),' Math.Round(s("ImportePU").ToString().ToDecimal, 2)) * PorcentajeRetIVA,
ImporteRetISR = x.Sum(Function(s) Math.Round(s("ImporteRetISR").ToString().ToDecimal, 2)),' Math.Round(s("ImportePU").ToString().ToDecimal, 2)) * PorcentajeRetISR,
ImporteIEPS = x.Sum(Function(s) Math.Round(s("ImporteIEPS").ToString().ToDecimal, 2)), 'Math.Round(s("ImportePU").ToString().ToDecimal, 2)) * PorcentajeIEPS,
PorcentajeIVA = PorcentajeIVA,
@@ -26772,12 +26773,14 @@ Partial Class Ventas
TmpDT.Columns.Add("TieneProntoPago", GetType(String))
TmpDT.Columns.Add("ImporteProntoPago", GetType(Decimal))
End If
Dim FechaFactura As DateTime = Now
If AplicaNCMasiva OrElse AplicaNCUsado Then
If ObjVentas.GetVenta(CveVentaNC, UsuarioActual.CveEmpresa) Then
If ObjVentas.DtResultados.Rows.Count > 0 Then
Total = ObjVentas.DtResultados()(0)("Total").ToString().ToDecimal
SubTotal = ObjVentas.DtResultados()(0)("SubTotal").ToString().ToDecimal
FechaFactura = ObjVentas.DtResultados()(0)("Fecha").ToString().ToDateTime()
End If
End If
Else
@@ -26817,12 +26820,16 @@ Partial Class Ventas
End If
Dr("ImporteTotal") = importePuTemp.RoundSQL(2)
Dim TotalCalculableImpuestosIVA As Decimal = importePuTemp * (1 + Dr("PorcentajeIEPS").ToString().ToDecimal)
Dr("ImporteIEPS") = (importePuTemp * Dr("PorcentajeIEPS").ToString().ToDecimal()).RoundSQL(2)
Dr("ImporteIVA") = ((TotalCalculableImpuestosIVA) * Dr("PorcentajeIVA").ToString().ToDecimal)
'A PARTIR DEL 2020 SE CAMBIO EL CALCULO PARA EL IVA CONSIDERANDO EL IEPS
If FechaFactura.Year <= 2019 Then
Dr("ImporteIVA") = (importePuTemp * Dr("PorcentajeIVA").ToString().ToDecimal()).RoundSQL(2)
Else
Dim TotalCalculableImpuestosIVA As Decimal = importePuTemp * (1 + Dr("PorcentajeIEPS").ToString().ToDecimal)
Dr("ImporteIVA") = ((TotalCalculableImpuestosIVA) * Dr("PorcentajeIVA").ToString().ToDecimal)
End If
Dr("ImporteRetIVA") = (importePuTemp * Dr("PorcentajeRetIVA").ToString().ToDecimal()).RoundSQL(2)
Dr("ImporteRetISR") = (importePuTemp * Dr("PorcentajeRetISR").ToString().ToDecimal()).RoundSQL(2)