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:
Jonathan Alexis Perez Morales
2024-12-24 12:14:53 -07:00
parent 594a9977f7 2a906cc25b
commit a528d0e0b4
5 changed files with 53 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Ventas/PVCobranza.aspx
View File

@@ -331,9 +331,9 @@
DataKeyNames="CveVenta,TipoDocto,Saldo,AtencionA,CveFormaPago33,SerieFolio,CondicionesPago,PlazoCobranza">
<Columns>
<%--<asp:BoundField HeaderText="Atención" DataField="AtencionA" />--%>
<asp:TemplateField HeaderText="Atención" ItemStyle-HorizontalAlign="Left" >
<asp:TemplateField HeaderText="Atención/Cliente" ItemStyle-HorizontalAlign="Left" >
<ItemTemplate>
<asp:Label runat="server" ID="LblAtencionA" Text='<%# Eval("AtencionA") %>' ></asp:Label><br />
<asp:Label runat="server" ID="LblAtencionA" Font-Italic="true" Text='<%# Eval("AtencionA") %>' ></asp:Label><br />
<asp:Label runat="server" ID="Label4" Text='<%# Eval("NombreComercial") %>' ></asp:Label>
</ItemTemplate>
</asp:TemplateField>

1
Ventas/ProductosServicios.aspx.vb
View File

@@ -3841,6 +3841,7 @@ Partial Class ProductosyServicios
If Ps.AddPSEquivalencias(CvePS, DdlEquivalenciaUM.SelectedValue.ToEntero, TxtCantidadEquivalencia.Text.ToDecimal, False, 0, UsuarioActual.CveUsuario) Then
Alert("Equivalencia registrada correctamente.", TipoMensaje.ToastInformacion)
CargaEquivalencias()
GeneraGlobalEquivalencias()
RegistraScript(String.Format("$('#{0}').modal('hide');", "divEquivalenciaModal"))
End If

10
Ventas/Ventas.aspx.vb
View File

@@ -18767,7 +18767,7 @@ Partial Class Ventas
If PrecioSugerido <= 0 Then PrecioSugerido = tPrecioSugerido
GvRow.FCTextBox("TxtPrecio").Text = PrecioSugerido.ToString("#,###.####") ' que muestre hasta los 4 digitos si lo requiere
GvRow.FCTextBox("TxtPrecio").Text = PrecioSugerido.ToString("#,##0.####") ' que muestre hasta los 4 digitos si lo requiere
End If
End If
End If
@@ -35063,7 +35063,7 @@ Partial Class Ventas
If PrecioSugerido <= 0 Then PrecioSugerido = tPrecioSugerido
Row("Precio") = PrecioSugerido.ToString("#,###.####") ' que muestre hasta los 4 digitos si lo requiere
Row("Precio") = PrecioSugerido.ToString("#,##0.####") ' que muestre hasta los 4 digitos si lo requiere
End If
Next
End If
@@ -38325,7 +38325,7 @@ Partial Class Ventas
If PrecioSugerido <= 0 Then PrecioSugerido = tPrecioSugerido
TxtPrecioMercancia.Text = PrecioSugerido.ToString("#,###.####") ' que muestre hasta los 4 digitos si lo requiere
TxtPrecioMercancia.Text = PrecioSugerido.ToString("#,##0.####") ' que muestre hasta los 4 digitos si lo requiere
End If
End If
@@ -38678,7 +38678,7 @@ Partial Class Ventas
Dim ObjPrecioSugerido As Modelos.MPrecioSugerido = CalculaPrecioSugerido(drPS("CvePS").ToString().ToEntero(), drPS("CveClasificacion").ToString().ToEntero(), CvePrecioListaSugerido:=DdlPrecioLista.SelectedValue.ToEntero())
If ObjPrecioSugerido.PrecioSugerido > 0 Then
TxtPrecio.Text = ObjPrecioSugerido.PrecioSugerido.ToString("#,###.####")
TxtPrecio.Text = ObjPrecioSugerido.PrecioSugerido.ToString("#,##0.####")
Else
Alert("El Producto no tiene especificado precio en la lista de precio.")
End If
@@ -39335,7 +39335,7 @@ Partial Class Ventas
End If
If PrecioSugerido <= 0 Then PrecioSugerido = tPrecioSugerido
GvRow.FCTextBox("TxtPrecio").Text = PrecioSugerido.ToString("#,###.####")
GvRow.FCTextBox("TxtPrecio").Text = PrecioSugerido.ToString("#,##0.####")
End If
Next