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:
Oscar Irigoyen
2023-02-28 12:45:06 -07:00
parent 407ece8d3f 288a54b159
commit 1de5cd9f96
23 changed files with 905 additions and 621 deletions
Download Patch File Download Diff File Expand all files Collapse all files

824
Ventas/Clientes.aspx.vb
View File

File diff suppressed because it is too large Load Diff

6
Ventas/ProductosServicios.aspx.vb
View File

@@ -2777,9 +2777,9 @@ Partial Class ProductosyServicios
If ObjVentas.AddClasificacionDetalle(TxtClasificacionDetalle.Text, DdlClasificacionModal.SelectedValue.ToEntero,
UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
If ObjVentas.GetClasificacionDetalle(-1, -1, -1, -1) Then
GlobalDTClasificacionesDetalle = ObjVentas.DtResultados
End If
'If ObjVentas.GetClasificacionDetalle(-1, -1, -1, -1) Then
' GlobalDTClasificacionesDetalle(UsuarioActual.CveEmpresa) = Nothing
'End If
CargaClasificacionesDetalles()
DdlTipoPSDes.SelectedValueExist(ObjVentas.CveClasificacionDetalle)
UpDatos.Update()

2
Ventas/Ventas.aspx
View File

@@ -2596,7 +2596,7 @@
<asp:BoundField DataField="CodigoPS" HeaderText="Producto ó Servicio" />
<asp:TemplateField HeaderText="Valor Unitario">
<ItemTemplate>
<asp:TextBox ID="TxtValorUnitario" runat="server" Text='<%# Eval("PU", "{0:N2}") %>' Width="60px"></asp:TextBox>
<asp:TextBox ID="TxtValorUnitario" runat="server" Text='<%# Eval("PU") %>' Width="60px"></asp:TextBox>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="ClaveSATFraccionArancelariaDescripcion" HeaderText="Fracción Arancelaria" />

2
Ventas/Ventas.aspx.vb
View File

@@ -8921,7 +8921,7 @@ Partial Class Ventas
Exit Sub
End If
If DdlLineaAdicional.SelectedValue.ToEntero() > 0 AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem") Then
If DdlLineaAdicional.SelectedValue.ToEntero() > 0 AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Egs", "Dev") Then
Alert("No se puede seleccionar una linea adicional de crédito si no se genera una remisón.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If