Merge branch 'master' of http://192.168.10.111:8383/SIG

App_Code/ClsPaginas.vb

@@ -138,7 +138,8 @@ Public Class ClsPaginas
             'sino tiene dato lo recargo por si ya esta insertado
             If Fecha = MinFecha Then Fecha = Now
             If Application("GlobalTipoCambioUltimaFluctuacion") IsNot Nothing Then
-                Dim dr = DirectCast(Application("GlobalTipoCambioUltimaFluctuacion"), DataTable).FiltroPrimero(String.Format("Fecha <= '{0}'", Fecha), Orderby:="Fecha DESC")
+
+                Dim dr = DirectCast(Application("GlobalTipoCambioUltimaFluctuacion"), DataTable).FiltroPrimero(String.Format("Fecha < '{0}'", Fecha), Orderby:="Fecha DESC")
                 If dr IsNot Nothing Then
                     fluctuacion.TCFluctuacion = dr("TCFluctuacion").ToString().ToDecimal()
                     fluctuacion.FechaFluctuacion = dr("FechaFluctuacion").ToString().ToDateTime()
@@ -7479,7 +7480,7 @@ Public Class ClsPaginas
         If CompraActual.CveMoneda > 1 AndAlso UsuarioActual.Empresa.Funcionalidad(703) = "1" Then
             Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha)
             If UltimaFluctuacion IsNot Nothing Then
-                If UltimaFluctuacion.FechaFluctuacion <= tFecha Then
+                If UltimaFluctuacion.FechaFluctuacion < tFecha Then
                     tFechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion
                     TCValuacion = UltimaFluctuacion.TCFluctuacion
                 End If
@@ -7865,7 +7866,7 @@ Public Class ClsPaginas
         If VentaActual.CveMoneda > 1 AndAlso UsuarioActual.Empresa.Funcionalidad(703) = "1" Then
             Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha)
             If UltimaFluctuacion IsNot Nothing Then
-                If UltimaFluctuacion.FechaFluctuacion <= tFecha Then
+                If UltimaFluctuacion.FechaFluctuacion < tFecha Then
                     tFechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion
                     TCValuacion = UltimaFluctuacion.TCFluctuacion
                 End If

Bancos/ConciliacionesBancarias.aspx.vb

@@ -630,7 +630,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx
             Dim CveMoneda As Integer = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveCuenta = {DdlCuenta.SelectedValue}").Rows(0)("CveMoneda").ToString.ToEntero
             Dim ObjConta As New ClsContabilidad
             If ObjConta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
-                If ObjConta.DtResultados.FiltraParametros($"IdCompaq = {GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros($"CveCuenta = {DdlCuenta.SelectedValue}").Rows(0)("IdCtaContable").ToString}").Rows.Count > 0 Then
+                If ObjConta.DtResultados.FiltraParametros($"IdCompaq = {GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveCuenta = {DdlCuenta.SelectedValue}").Rows(0)("IdCtaContable").ToString}").Rows.Count > 0 Then
                     CveCuenta = ObjConta.DtResultados.FiltraParametros($"IdCompaq = {GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveCuenta = {DdlCuenta.SelectedValue}").Rows(0)("IdCtaContable").ToString}").Rows(0)("CveCuenta").ToString.ToEntero
                     If CveMoneda > 1 Then
                         CveCuentaComplementaria = ObjConta.DtResultados.FiltraParametros($"IdCompaq = {GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveCuenta = {DdlCuenta.SelectedValue}").Rows(0)("IdCtaContableComplementaria").ToString}").Rows(0)("CveCuenta").ToString.ToEntero

Ventas/PV.aspx

@@ -2912,6 +2912,7 @@
                                                                         <br />
                                                                         <asp:DropDownList ID="DdlModeloAuto" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="ModeloMarca" DataValueField="CveModeloAuto">
                                                                         </asp:DropDownList>
+                                                                        <asp:RequiredFieldValidator ID="RFVModeloAuto" runat="server" ControlToValidate="DdlModeloAuto" InitialValue="-1" Display="Dynamic"  ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Modelo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddVenta"></asp:RequiredFieldValidator>
                                                                     </div>
                                                                     <div class="col-md-4">
                                                                         <label>Año:</label>

Ventas/PV.aspx.vb

@@ -5510,6 +5510,11 @@ Partial Class PV
                     Alert("El campo año no puede ser mayor al año actual.", TipoMensaje.MsgAdvertencia)
                     Exit Sub
                 End If
+
+                If DdlModeloAuto.SelectedValue = "-1" Then
+                    Alert("El campo modelo se debe de especificar.", TipoMensaje.MsgAdvertencia)
+                    Exit Sub
+                End If
             End If
         End If
 
@@ -7087,6 +7092,7 @@ Partial Class PV
             DdlModeloAuto.DataSource = DtModelosAuto
         End If
         DdlModeloAuto.DataBind()
+        DdlModeloAuto.Items.Insert(0, New ListItem("-", "-1"))
     End Sub
 
     'Protected Sub GvRecepcionUsados_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvRecepcionUsados.RowDataBound