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
2023-07-15 10:46:52 -07:00
parent 95c5a3a063 b65c1f8e23
commit 9c743ac30d
7 changed files with 119 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Ventas/RepVentas.aspx.vb
View File

@@ -284,7 +284,7 @@ Partial Class Ventas_RepVentas
Protected Sub DdlTipoComprobante_SelectedIndexChanged(sender As Object, e As EventArgs)
DdlEstatus.Items.Clear()
If DdlTipoComprobante.GetSelectedValuesM <> "" Then
DdlEstatus.DataSource = GlobalDTEstatusFactura.FiltraParametros(String.Format("TipoDocto IN ({0}) OR ('Cot' IN ({0}) AND CveEstatusFactura = 2)", DdlTipoComprobante.GetSelectedValuesM(True).Replace("Ant", "Ing")))
DdlEstatus.DataSource = GlobalDTEstatusFactura.FiltraParametros(String.Format("TipoDocto IN ({0}) OR ('Cot' IN ({0}) AND CveEstatusFactura = 2)", DdlTipoComprobante.GetSelectedValuesM(True).Replace("Ant", "Ing").Replace("Egs", "Ing")))
Else
DdlEstatus.DataSource = GlobalDTEstatusFactura
End If

2
Ventas/Ventas.aspx
View File

@@ -1551,7 +1551,7 @@
<tr align="right">
<td style="border: 1px none white"><b>SubTotal 2:</b></td>
<td>
<asp:TextBox ID="TxtSubTotal2" ClientIDMode="Static" runat="server" BorderStyle="None" Style="text-align: right;" Text="0.00" Width="78px"></asp:TextBox></td>
<asp:TextBox ID="TxtSubTotal2" ClientIDMode="Static" runat="server" BorderStyle="None" Style="text-align: right;" Text="0.00" Width="78px" Enabled="false"></asp:TextBox></td>
<td>
<%-- <asp:LinkButton ID="LkbAgregarComplementos" runat="server" CssClass="btn btn-circle btn-xs gray" Text="<i class='fa fa-bell '></i>"></asp:LinkButton>--%>
</td>

31
Ventas/Ventas.aspx.vb
View File

@@ -2939,6 +2939,7 @@ Partial Class Ventas
End If
ObjInv.Dispose()
End If
'regenrea el tipo de cambio
CargaNuevaFactura(Nothing)
@@ -3199,15 +3200,6 @@ Partial Class Ventas
TxtRetIVA.Attributes.Add("onKeyUp", "FnSuma()")
TxtRetISR.Attributes.Add("onKeyUp", "FnSuma()")
'Permitir Edicion de Iva
If UsuarioActual.Empresa.Funcionalidad(509) = "1" Then
TxtIVA.Enabled = True
'TxtTotal.Enabled = True
RegistraScript("SetDisabledTxtTotal(false);")
TxtSubTotal.Enabled = True
TxtSubTotal2.Enabled = True
End If
'Cortes de Caja
If UsuarioActual.TienePermisoProceso(160) Then
CargaCorteCaja()
@@ -6031,7 +6023,12 @@ Partial Class Ventas
GvImpuestosLocales2.DataSource = ObjVentas.DtResultados
GvImpuestosLocales2.DataBind()
GvImpuestosLocales2.Enabled = False
If (NuevaFactura = 1) Then
GvImpuestosLocales2.Enabled = True
Else
GvImpuestosLocales2.Enabled = False
End If
GvImpuestosLocales2.Visible = True
End If
End If
@@ -24261,14 +24258,6 @@ Partial Class Ventas
RegistraScript("SetDisabledTxtTotal(true);")
If TxtFolio.Text.Trim = "" Then TxtFolio.Enabled = True
If UsuarioActual.TienePermisoProceso(112) Then
TxtSubTotal.Enabled = True
TxtSubTotal2.Enabled = True
TxtIVA.Enabled = True
'TxtTotal.Enabled = True
RegistraScript("SetDisabledTxtTotal(false);")
End If
TxtIVA.Text = IVA.FormatoNumero
TxtRetIVA.Text = RetencionIVA.FormatoNumero
LblDescuentos.Text = Descuentos.FormatoNumero
@@ -29101,7 +29090,11 @@ Partial Class Ventas
GvImpuestosLocales2.DataSource = ObjVentas.DtResultados
GvImpuestosLocales2.DataBind()
GvImpuestosLocales2.Enabled = False
If (NuevaFactura = 1) Then
GvImpuestosLocales2.Enabled = True
Else
GvImpuestosLocales2.Enabled = False
End If
GvImpuestosLocales2.Visible = True
End If
End If