This commit is contained in:
2023-02-07 07:33:13 -07:00
41 changed files with 4745 additions and 7081 deletions

View File

@@ -549,7 +549,12 @@
<div class="col-xs-7">
<asp:TextBox ID="TxtImporte" runat="server" MaxLength="12" Width="100%" ClientIDMode="Static" onkeyup="CambioTipoMoneda();" Style="text-align: right;"></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="ftbe" runat="server" TargetControlID="TxtImporte" FilterType="Custom, Numbers" ValidChars="+-.," />
<asp:RangeValidator ID="RVImporte" runat="server" Enabled="false" Type="Currency" MinimumValue="0" MaximumValue="0" ErrorMessage="Importe Excedido" ControlToValidate="TxtImporte" Display="Dynamic" ValidationGroup="GrpGuardar"></asp:RangeValidator>
<%--<asp:RangeValidator ID="RVImporte" runat="server" Enabled="false" Type="Currency" MinimumValue="0" MaximumValue="0" ErrorMessage="Importe Excedido" ControlToValidate="TxtImporte" Display="Dynamic" ValidationGroup="GrpGuardar"></asp:RangeValidator>--%>
<asp:CustomValidator ID="CVTxtImporte" runat="server" Enabled="true" ControlToValidate="TxtImporte" OnServerValidate="CVTxtImporte_ServerValidate"
ErrorMessage="Importe Excedido" Display="Dynamic" ValidationGroup="GrpGuardar"></asp:CustomValidator>
<asp:CustomValidator ID="CVImporteDolares" runat="server" Enabled="false" ControlToValidate="LbImporteME" OnServerValidate="CVImporteDolares_ServerValidate" ErrorMessage="Importe Excedido" Display="Dynamic" ValidationGroup="GrpGuardar"></asp:CustomValidator>
<asp:CustomValidator ID="CVImportePesos" runat="server" Enabled="false" ControlToValidate="LbImporteMN" OnServerValidate="CVImportePesos_ServerValidate" ErrorMessage="Importe Excedido" Display="Dynamic" ValidationGroup="GrpGuardar"></asp:CustomValidator>
</div>
@@ -801,6 +806,7 @@
CambiaPesosDolares()
}
}
</script>
</asp:Content>

View File

@@ -685,10 +685,10 @@ Partial Class Bancos_PopIECompras
DdlTipoTransaccion.Enabled = True
TxtObservaciones.Enabled = True
BtnGuardar.Visible = True
RVImporte.Enabled = True
'RVImporte.Enabled = True
RVImporte.Enabled = True
RVImporte.MaximumValue = dr("Saldo").ToString.ToDecimal.ToString.FormatoNumero
'RVImporte.Enabled = True
'RVImporte.MaximumValue = dr("Saldo").ToString.ToDecimal.ToString.FormatoNumero
TxtImporte.Text = dr("Saldo").ToString.ToDecimal.FormatoNumero
SaldoVenta = dr("Saldo").ToString.ToDecimal
@@ -1185,9 +1185,9 @@ Partial Class Bancos_PopIECompras
GvDeudores.Columns(5).Visible = True
GvDeudores.Columns(6).Visible = True
RVImporte.Enabled = False
RVImporte.MaximumValue = "0.00"
'RVImporte.Enabled = False
' RVImporte.MaximumValue = "0.00"
CVImporteDolares.Enabled = True
Else
DivTipoCambio.Visible = False
@@ -1205,8 +1205,8 @@ Partial Class Bancos_PopIECompras
GvDeudores.Columns(5).Visible = False
GvDeudores.Columns(6).Visible = False
RVImporte.Enabled = True
RVImporte.MaximumValue = LtlSaldo.Text.ToDecimal.ToString
'RVImporte.Enabled = True
'RVImporte.MaximumValue = LtlSaldo.Text.ToDecimal.ToString
CVImporteDolares.Enabled = False
CVImportePesos.Enabled = False
@@ -1244,8 +1244,8 @@ Partial Class Bancos_PopIECompras
GvDeudores.Columns(5).Visible = True
GvDeudores.Columns(6).Visible = True
RVImporte.Enabled = False
RVImporte.MaximumValue = "0.00"
'RVImporte.Enabled = False
'RVImporte.MaximumValue = "0.00"
CVImportePesos.Enabled = True
Else
@@ -1262,10 +1262,10 @@ Partial Class Bancos_PopIECompras
GvIngresos.Columns(6).Visible = False
GvDeudores.Columns(5).Visible = False
GvDeudores.Columns(6).Visible = False
RVImporte.Enabled = True
RVImporte.MaximumValue = LtlSaldo.Text.ToDecimal.ToString
GvDeudores.Columns(6).Visible = False
' RVImporte.Enabled = True
'RVImporte.MaximumValue = LtlSaldo.Text.ToDecimal.ToString
CVImporteDolares.Enabled = False
CVImportePesos.Enabled = False
@@ -3439,4 +3439,35 @@ Partial Class Bancos_PopIECompras
End Sub
Protected Sub CVTxtImporte_ServerValidate(source As Object, args As ServerValidateEventArgs)
Dim Saldo As Decimal = LtlSaldo.Text.Replace("USD", "").Replace(",", "").ToDecimal
Dim ImportePagado As Decimal = TxtImporte.Text.ToDecimal
If ChkPagarPesos.Checked Then
Dim TC As Decimal = TxtTipoCambio.Text.ToDecimal
Dim PagoEnDollares As Decimal = (ImportePagado / TC).RoundSQL()
If PagoEnDollares <= Saldo Then
args.IsValid = True
Else
args.IsValid = False
End If
Else
If ImportePagado <= Saldo Then
args.IsValid = True
Else
args.IsValid = False
End If
End If
End Sub
End Class

View File

@@ -99,7 +99,9 @@
<asp:CheckBox ID="chkexpand" CssClass="hidden" runat="server" />
</div>
<div class="titlefiltros caption ">
<div class="row">
<div class="col-md-1 "><span>Proveedor:</span></div>
<div class="col-md-2 ">
<ADS:Dropdownlost ID="DdlProveedores" CssClassDdl="select2me" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"></ADS:Dropdownlost>
@@ -108,46 +110,67 @@
</asp:DropDownList>--%>
</div>
<div class="col-md-1 "><span>Clasificaciones:</span></div>
<div class="col-md-1 " style="width: 120px;">
<div class="col-md-1 " >
<asp:DropDownList CssClass="form-control select2me input-sm" ID="DdlProveedoresClasificaciones" runat="server" AppendDataBoundItems="true" DataTextField="ProveedorClasificacion" DataValueField="CveProveedorClasificacion" Width="100%">
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div>
<div class="col-md-1" id="tsubprocto" style="padding-right: 2px; padding-left: 2px; display: none;">
Proyecto:
</div>
<div class="col-md-1" runat="server" id="Div1">Aplica NC/Dev:</div>
<div class="col-md-1" id="ds" style="width: 120px;">
<asp:DropDownList CssClass="form-control select2me input-sm" ID="DdlAplicaNC" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%">
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
<asp:ListItem Text="Si" Value="1"></asp:ListItem>
<asp:ListItem Text="No" Value="0"></asp:ListItem>
</asp:DropDownList>
<%-- <asp:CheckBox ID="ChkAplicaNotaCredito" CssClass="make-switchsd" runat="server" />--%>
<div class="col-md-2" id="subproyecto" style="margin-top: 3px;">
<div class="row">
<div class="col-md-6" runat="server" id="Div1">Aplica NC/Dev:</div>
<div class="col-md-6" id="ds" >
<asp:DropDownList CssClass="form-control select2me input-sm" ID="DdlAplicaNC" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%">
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
<asp:ListItem Text="Si" Value="1"></asp:ListItem>
<asp:ListItem Text="No" Value="0"></asp:ListItem>
</asp:DropDownList>
</div>
</div>
</div>
<div class="col-md-4" id="subproyecto" style="margin-top: 3px; margin-left: -20px">
<div class="col-md-3" style="margin-top: 3px;">
<asp:UpdatePanel ID="UpProgramadas" runat="server" UpdateMode="Conditional" RenderMode="Inline ">
<ContentTemplate>
<div class="row" style="width: 100%;">
<asp:CheckBox ID="ChkProgramadas" AutoPostBack="true" Width="34%" data-size="small" CssClass="col-md-1 md-checksd2 text" runat="server" Text="Programadas" />
<asp:DropDownList CssClass=" input-sm" ID="DdlUsuarioProgramo" Width="20%" runat="server" DataTextField="Nombre" ClientIDMode="Static" DataValueField="CveUsuario" AutoPostBack="True">
</asp:DropDownList>
<asp:DropDownList CssClass=" input-sm" Width="20%" ID="DdlCodigoProgramacion" runat="server" DataTextField="CodigoProgramacion" DataValueField="CodigoProgramacion" Visible="False">
<Items>
<asp:ListItem Text=" - " Value="-1"></asp:ListItem>
</Items>
</asp:DropDownList>
<div class="row" >
<div class="col-md-4">
<asp:CheckBox ID="ChkProgramadas" class="md-check" AutoPostBack="true" runat="server" Text="Programadas" Width="100px" />
</div>
<div class="col-md-4">
<asp:DropDownList CssClass="form-control select2me input-sm" ID="DdlUsuarioProgramo" Width="80px" runat="server" DataTextField="Nombre" ClientIDMode="Static" DataValueField="CveUsuario" AutoPostBack="True">
</asp:DropDownList>
</div>
<div class="col-md-4" >
<asp:DropDownList CssClass="form-control select2me input-sm" Width="60px" ID="DdlCodigoProgramacion" runat="server" DataTextField="CodigoProgramacion" DataValueField="CodigoProgramacion" Visible="False">
<Items>
<asp:ListItem Text=" - " Value="-1"></asp:ListItem>
</Items>
</asp:DropDownList>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</div>
</div>
<div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>