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

-- mejoras

Browse Source
This commit is contained in:
rrene
2024-11-06 08:52:42 -07:00
parent c256596b38
commit f2420770d4
3 changed files with 35 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
OC/OC.aspx
View File

@@ -285,11 +285,16 @@
</div>
<label class="col-md-2" runat="server" id="DivLugarEntrega1">Lugar Entrega:</label>
<div class="col-md-4" runat="server" id="DivLugarEntrega2">
<asp:CheckBox runat="server" ID="chkSubProyectoEntrega" Visible="false" AutoPostBack="true" OnCheckedChanged="chkSubProyectoEntrega_CheckedChanged" />
<asp:DropDownList ID="DdlSubProyectoEntrega" CssClass=" form-control input-sm select2me" runat="server" DataTextField="SubProyecto" Style="width: 80%;" DataValueField="CveSubProyecto" Visible="false" >
<asp:ListItem Selected="true" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
<asp:TextBox ID="txtLugarEntrega" runat="server" MaxLength="100" Width="80%"></asp:TextBox>
<asp:UpdatePanel ID="UPPLugarEntrega" runat="server" updatemode="Conditional">
<ContentTemplate>
<asp:CheckBox runat="server" ID="chkSubProyectoEntrega" Visible="false" AutoPostBack="true" OnCheckedChanged="chkSubProyectoEntrega_CheckedChanged" />
<asp:DropDownList ID="DdlSubProyectoEntrega" CssClass=" form-control input-sm select2me" runat="server" DataTextField="SubProyecto" Style="width: 80%;" DataValueField="CveSubProyecto" Visible="false" >
<asp:ListItem Selected="true" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
<asp:TextBox ID="txtLugarEntrega" runat="server" MaxLength="100" Width="80%"></asp:TextBox>
</ContentTemplate>
</asp:UpdatePanel>
</div>
<div class="row" runat="server" visible="False" id="TrCancelacion">
<label class="col-md-2">Cancelacion:</label>
@@ -483,7 +488,7 @@
<td><b>Descuento:</b></td>
<td>
<asp:TextBox ID="TxtDescuentoEscalonado" runat="server" Width="80px" Height="28px"></asp:TextBox>
<ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtDescuentoEscalonado" ValidChars="1234567890+" />
<ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtDescuentoEscalonado" ValidChars="1234567890+." />
<asp:Button runat="server" ID="BtnDescuenEscalonado" Text="Aplicar" CssClass="btn btn-primary" OnClick="BtnDescuenEscalonado_Click" />
</td>
</tr>

26
OC/OC.aspx.vb
View File

@@ -1020,16 +1020,12 @@ Partial Class OC_OC
TrDescuentoProntoPago.Visible = True
End If
If UsuarioActual.Empresa.CveEmpresa = 189 AndAlso CveOrdenCompra <> Nothing AndAlso CveOrdenCompra > 0 Then
BtnEdicionMasiva.Visible = True
End If
End If
MostrarUsuarioAsignado()
ValidaCancelacionConAlamcen()
Me.Form.DefaultButton = ""
@@ -1396,9 +1392,9 @@ Partial Class OC_OC
Dim dts As DataRow = DT.FiltraParametros("CveSubProyecto = " + tCveSubProyecto.ToString).FiltroPrimero("")
If dts IsNot Nothing Then
ViewState("CveFolio") = dts("CveFolio").ToString.ToEntero
If UsuarioActual.CveEmpresa = 189 Then
lblFolio.Text = dts("Serie").ToString + " " + dts("FActual").ToString
SerieFolio = dts("Serie").ToString + " " + dts("FActual").ToString
If ModalidadSubProyectoGeneral Then
lblFolio.Text = dts("Serie").ToString + "-" + dts("FActual").ToString
SerieFolio = dts("Serie").ToString + "-" + dts("FActual").ToString
Else
lblFolio.Text = TipoOC + " " + dts("FActual").ToString
SerieFolio = dts("FActual").ToString
@@ -1409,7 +1405,7 @@ Partial Class OC_OC
lblFolio.Text = TipoOC + " " + DT.Rows(0)("FActual").ToString
SerieFolio = DT.Rows(0)("FActual").ToString
Else
Alert("No tiene registrados Folios en esta sucursal.", TipoMensaje.MsgAdvertencia)
Alert("No tiene registrados folios en esta sucursal.", TipoMensaje.MsgAdvertencia)
End If
DT.Dispose()
@@ -6901,8 +6897,12 @@ Partial Class OC_OC
SubProyecto = DrProyecto("SubProyecto").ToString
End If
Else
CveProyecto = -1
CveSubProyecto = -1
If ModalidadSubProyectoGeneral Then
CveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero
Else
CveProyecto = -1
CveSubProyecto = -1
End If
End If
If Codigo.Length > 0 Then
@@ -7731,8 +7731,8 @@ Partial Class OC_OC
Private Function ValidarDescuentos() As Boolean
Dim Retorno As Boolean = True
Dim DescuentoConceptos As Decimal = DtDetalle.SUMD("Descuento")
Dim DescuentoGeneral As Decimal = TxtDescuento.Text.ToDecimal
Dim DescuentoConceptos As Decimal = DtDetalle.SUMD("Descuento").RoundSQL
Dim DescuentoGeneral As Decimal = TxtDescuento.Text.ToDecimal.RoundSQL
If DescuentoConceptos <> DescuentoGeneral Then
Alert(String.Format("Los descuentos no cuadran. Por favor de verificar.({0}-{1})", DescuentoConceptos, DescuentoGeneral), TipoMensaje.MsgAdvertencia)
@@ -9394,6 +9394,8 @@ Partial Class OC_OC
Protected Sub DdlSubProyectoGral_SelectedIndexChanged(sender As Object, e As EventArgs)
DdlSubProyecto.SelectedValueExist(DdlSubProyectoGral.SelectedValue)
DdlSubProyectoEntrega.SelectedValueExist(DdlSubProyectoGral.SelectedValue)
UPPLugarEntrega.Update()
UPPDetalle.Update()
CargaFolios()
End Sub