Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Ventas/PV.aspx

@@ -3115,7 +3115,8 @@
                                                             <div class="col-md-6">
                                                                 <div class="form-group form-md-line-input input-iconright">
                                                                     <asp:TextBox ID="TxtEtiqueta" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
-                                                                    <label for="<%= TxtEtiqueta.ClientID.ToString()%>">Etiqueta:</label>
+                                                                     <ajax:MaskedEditExtender ID="MEEEtiqueta" runat="server" TargetControlID="TxtEtiqueta" Mask="99\/99" MaskType="None" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                                                    <label for="<%= TxtEtiqueta.ClientID.ToString()%>">Etiqueta (mm/yy):</label>
                                                                 </div>
                                                             </div>
                                                         </div>
@@ -3142,7 +3143,7 @@
                                                             <div class="col-md-8">
                                                                 <div id="DivCodEnsamble" runat="server" class="form-group form-md-line-input input-iconright">
                                                                     <asp:TextBox ID="TxtCodEnsamble" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
-                                                                    <asp:CustomValidator ID="CVCodEnsamble" runat="server" ControlToValidate="TxtCodEnsamble" ValidateEmptyText="true" ClientValidationFunction="ValidarCodigoEnsamble" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cod.Ensamble''</b> es incorrecto, por favor ingréselo correctamente." ValidationGroup="GrpAddVenta" />
+                                                                    <asp:CustomValidator ID="CVCodEnsamble" runat="server" ControlToValidate="TxtCodEnsamble" ValidateEmptyText="true" Display="None" ClientValidationFunction="ValidarCodigoEnsamble" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cod.Ensamble''</b> es incorrecto, por favor ingréselo correctamente." ValidationGroup="GrpAddVenta" />
                                                                     <label for="<%= TxtCodEnsamble.ClientID.ToString()%>">Cod.Ensamble:</label>
                                                                 </div>
                                                             </div>

Ventas/PV.aspx.vb

@@ -6663,7 +6663,7 @@ Partial Class PV
         Dim ObjCliente As New ClsClientes
 
         Dim TipoPersona As Boolean = If(RdTipoPersona.SelectedValue.ToEntero = 1, True, False)
-        Dim GeneroCliente = If(DdlGeneroCliente.SelectedValue.ToEntero = 1, True, False)
+        Dim GeneroCliente = If(DdlGeneroCliente.SelectedValue.ToEntero = 1 Or DdlGeneroCliente.SelectedValue.ToEntero = -1, True, False)
 
         If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim,
                                                 TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, DdlEstadoSAT.SelectedValue.ToEntero,
@@ -7126,7 +7126,7 @@ Partial Class PV
         Else
             'TxtPUFactura.Enabled = True
             'TxtPUFactura.Text = ""
-            DdlPSAjuste.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
+            ' DdlPSAjuste.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
         End If
         DdlPSAjuste.DataBind()
         ' DdlPSAjuste.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -7418,6 +7418,10 @@ Partial Class PV
             Alert("No se ha especificado producto de ajuste a entregar")
             Exit Sub
         End If
+        If TxtEtiqueta.Text <> "" OrElse TxtEtiqueta.Text.Length <> 4 Then
+            Alert("No se ha especificado la etiqueta.")
+            Exit Sub
+        End If
         If Not CalculaMesesUso() Then
             Exit Sub
         End If
@@ -7427,53 +7431,63 @@ Partial Class PV
             If DdlTipoUso.SelectedValue.ToEntero > 0 AndAlso DdlPSAjuste.SelectedValue.ToEntero > 0 AndAlso TxtMesesUso.Text <> "" AndAlso DdlPS.SelectedValue.ToEntero > 0 Then
                 Dim CveMarca As Integer = -1
 
-                CveMarca = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPSAjuste.SelectedValue.ToEntero).FiltroPrimeroValor("CveMarca", "").ToEntero
+                CveMarca = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=DdlPSAjuste.SelectedValue.ToEntero).FiltroPrimeroValor("CveMarca", "").ToEntero
                 Dim ImportePagarCliente As Decimal = 0
                 Dim ObjAcum As New ClsAcumuladores
                 If ObjAcum.GarantiasMesesGet(-1, UsuarioActual.CveEmpresa, CveMarca, DdlTipoUso.SelectedValue.ToEntero, TxtMesesUso.Text.ToEntero) Then
                     If ObjAcum.DtResultados.Rows.Count > 0 Then
-                        TxtPorcentajeAjuste.Text = (ObjAcum.DtResultados.Rows(0)("Valor").ToString.ToDouble / 100).ToString
+                        ''obtener siempre y cuando la fecha de inicio sea mayor
+                        Dim strDate As Date = ($"01/{TxtEtiqueta.Text.Substring(0, 2)}/{TxtEtiqueta.Text.Substring(2, 2)}").ToDate
+                        Dim drg As DataRow = ObjAcum.DtResultados.FiltroPrimero($" #{strDate.ToString("yyyy/MM/dd")}# > FechaInicioVigencia ", "FechaInicioVigencia")
+                        If drg IsNot Nothing Then
 
-                        TxtImporteAjuste.Text = (TxtPorcentajeAjuste.Text.ToDecimal * TxtPUFactura.Text.ToDecimal).FormatoNumero
-                        ImportePagarCliente = TxtImporteAjuste.Text.ToDecimal
+                            TxtPorcentajeAjuste.Text = (drg("Valor").ToString.ToDouble / 100).ToString
+                            TxtImporteAjuste.Text = (TxtPorcentajeAjuste.Text.ToDecimal * TxtPUFactura.Text.ToDecimal).FormatoNumero
+                            ImportePagarCliente = TxtImporteAjuste.Text.ToDecimal
 
-                        Dim CargoVendido As Decimal = 0
-                        Dim CargoGarantia As Decimal = 0
-                        Dim CveTamaño As Integer = 0
+                            Dim CargoVendido As Decimal = 0
+                            Dim CargoGarantia As Decimal = 0
+                            Dim CveTamaño As Integer = 0
 
-                        If DdlPSAjuste.SelectedValue.ToEntero > 0 Then
-                            Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPSAjuste.SelectedValue.ToEntero).FiltroPrimero("")
-                            If Dr IsNot Nothing Then
-                                CargoGarantia = Dr("Cargo").ToString.ToDecimal
+                            If DdlPSAjuste.SelectedValue.ToEntero > 0 Then
+                                Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPSAjuste.SelectedValue.ToEntero).FiltroPrimero("")
+                                If Dr IsNot Nothing Then
+                                    CargoGarantia = Dr("Cargo").ToString.ToDecimal
+                                End If
                             End If
-                        End If
 
-                        If DdlPS.SelectedValue.ToEntero > 0 Then
-                            Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero).FiltroPrimero("")
-                            If Dr IsNot Nothing Then
-                                CveTamaño = Dr("CveTamaño").ToString.ToEntero
+                            If DdlPS.SelectedValue.ToEntero > 0 Then
+                                Dim Dr As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimero("")
+                                If Dr IsNot Nothing Then
+                                    CveTamaño = Dr("CveTamaño").ToString.ToEntero
+                                End If
                             End If
-                        End If
 
-                        Dim DrCargo As DataRow = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltroPrimero($"  CveTamaño = {CveTamaño}")
-                        If DrCargo IsNot Nothing Then
+                            Dim DrCargo As DataRow = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltroPrimero($"  CveTamaño = {CveTamaño}")
+                            If DrCargo IsNot Nothing Then
 
-                            CargoVendido = DrCargo("Cargo").ToString.ToDecimal
+                                CargoVendido = DrCargo("Cargo").ToString.ToDecimal
 
-                        End If
+                            End If
 
-                        'el ajuste no puede ser mayor al precio de lo vendido de nuevo
-                        If (TxtPrecio.Text.ToDouble - ((TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoVendido - CargoGarantia))) < 0 Then
+                            'el ajuste no puede ser mayor al precio de lo vendido de nuevo
+                            If (TxtPrecio.Text.ToDouble - ((TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoVendido - CargoGarantia))) < 0 Then
 
+                                TxtImporteAjuste.Text = "0.00"
+                                CargoGarantia = CargoVendido
+                                ImportePagarCliente = 0
+                            End If
+                            ImportePagarCliente = (TxtPrecio.Text.ToDouble - ((TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoVendido - CargoGarantia))).ToDecimal
+
+                            TxtImporteAjuste.ToolTip = $"La diferencia de ajuste fue: {(TxtPrecio.Text.ToDouble - TxtImporteAjuste.Text.ToDouble).FormatoNumero()}. La diferencia de tamaños fue: {(CargoVendido - CargoGarantia).FormatoNumero}."
+                            TxtImporteAjuste.Text = ((TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoVendido - CargoGarantia)).FormatoNumero
+                            'TxtPagarCliente.Text = ImportePagarCliente.FormatoNumero
+                        Else
+                            Alert("El producto no tiene ajuste en ese periodo", TipoMensaje.MsgAdvertencia)
+                            'cuando no está registrada, no da ajuste
+                            TxtImporteAjuste.ToolTip = "El producto no tiene ajuste en ese periodo"
                             TxtImporteAjuste.Text = "0.00"
-                            CargoGarantia = CargoVendido
-                            ImportePagarCliente = 0
                         End If
-                        ImportePagarCliente = (TxtPrecio.Text.ToDouble - ((TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoVendido - CargoGarantia))).ToDecimal
-
-                        TxtImporteAjuste.ToolTip = $"La diferencia de ajuste fue: {(TxtPrecio.Text.ToDouble - TxtImporteAjuste.Text.ToDouble).FormatoNumero()}. La diferencia de tamaños fue: {(CargoVendido - CargoGarantia).FormatoNumero}."
-                        TxtImporteAjuste.Text = ((TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoVendido - CargoGarantia)).FormatoNumero
-                        'TxtPagarCliente.Text = ImportePagarCliente.FormatoNumero
                     Else
                         Alert("El producto no tiene ajuste en ese periodo", TipoMensaje.MsgAdvertencia)
                         'cuando no está registrada, no da ajuste

Ventas/RepProductosServicios.aspx.vb

@@ -61,29 +61,31 @@ Partial Class Ventas_RepProductosServicios
 
 #Region "  CARGA DATOS INICIALES  "
 
-    Private Sub CargaGrupo()
-        DdlGrupo.Items.Insert(0, New ListItem("Categoria", "3"))
-        DdlGrupo.Items.Insert(1, New ListItem("Clasificación", "4"))
-        DdlGrupo.Items.Insert(2, New ListItem("Productos-Servicios", "5"))
-        DdlGrupo.Items.Insert(3, New ListItem("Año", "6"))
-        DdlGrupo.Items.Insert(4, New ListItem("Mes", "7"))
-        DdlGrupo.Items.Insert(5, New ListItem("Año/Mes", "8"))
-        DdlGrupo.Items.Insert(6, New ListItem("Fecha", "9"))
-        DdlGrupo.Items.Insert(7, New ListItem("Cliente", "10"))
-        DdlGrupo.Items.Insert(8, New ListItem("Vendedor", "12"))
-        DdlGrupo.Items.Insert(9, New ListItem("Usuario", "13"))
-        DdlGrupo.Items.Insert(10, New ListItem("Estatus Fact.", "14"))
-        DdlGrupo.Items.Insert(11, New ListItem("Año Ejec.", "15"))
-        DdlGrupo.Items.Insert(12, New ListItem("Mes Ejec.", "16"))
-        DdlGrupo.Items.Insert(13, New ListItem("Año/Mes Ejec.", "17"))
-        DdlGrupo.Items.Insert(14, New ListItem("Fecha Ejec.", "18"))
-        DdlGrupo.Items.Insert(15, New ListItem("Cliente - PS", "20"))
-        DdlGrupo.Items.Insert(16, New ListItem("Sucursal - PS", "21"))
-        DdlGrupo.Items.Insert(17, New ListItem("Familia - Marca - Tipo", "22"))
-        DdlGrupo.Items.Insert(18, New ListItem("Tipo Cliente", "23"))
-        DdlGrupo.Items.Insert(18, New ListItem("Marca", "24"))
-        DdlGrupo.Items.Insert(18, New ListItem("Cliente Sucursal", "26"))
-        DdlGrupo.Items.Insert(18, New ListItem("Giro", "27"))
+    Private Sub CargaGrupo()
+        If DdlProyecto.Visible Then DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
+        DdlGrupo.Items.Add(New ListItem(LblSubProyecto.Text, "2"))
+        DdlGrupo.Items.Add(New ListItem("Categoria", "3"))
+        DdlGrupo.Items.Add(New ListItem("Clasificación", "4"))
+        DdlGrupo.Items.Add(New ListItem("Productos-Servicios", "5"))
+        DdlGrupo.Items.Add(New ListItem("Año", "6"))
+        DdlGrupo.Items.Add(New ListItem("Mes", "7"))
+        DdlGrupo.Items.Add(New ListItem("Año/Mes", "8"))
+        DdlGrupo.Items.Add(New ListItem("Fecha", "9"))
+        DdlGrupo.Items.Add(New ListItem("Cliente", "10"))
+        DdlGrupo.Items.Add(New ListItem("Vendedor", "12"))
+        DdlGrupo.Items.Add(New ListItem("Usuario", "13"))
+        DdlGrupo.Items.Add(New ListItem("Estatus Fact.", "14"))
+        DdlGrupo.Items.Add(New ListItem("Año Ejec.", "15"))
+        DdlGrupo.Items.Add(New ListItem("Mes Ejec.", "16"))
+        DdlGrupo.Items.Add(New ListItem("Año/Mes Ejec.", "17"))
+        DdlGrupo.Items.Add(New ListItem("Fecha Ejec.", "18"))
+        DdlGrupo.Items.Add(New ListItem("Cliente - PS", "20"))
+        DdlGrupo.Items.Add(New ListItem("Sucursal - PS", "21"))
+        DdlGrupo.Items.Add(New ListItem("Familia - Marca - Tipo", "22"))
+        DdlGrupo.Items.Add(New ListItem("Tipo Cliente", "23"))
+        DdlGrupo.Items.Add(New ListItem("Marca", "24"))
+        DdlGrupo.Items.Add(New ListItem("Cliente Sucursal", "26"))
+        DdlGrupo.Items.Add(New ListItem("Giro", "27"))
 
         DdlGrupo.DataBind()
         DdlGrupo.SelectedValueExist("8")
@@ -157,9 +159,9 @@ Partial Class Ventas_RepProductosServicios
         DdlClienteClasificacion.DataBind()
         DdlClienteClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
 
-        CargaGrupo()
         CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
-        CargarCentrosDeCosto(Nothing, DdlSubProyectoEjecucion, Nothing, Nothing)
+        CargarCentrosDeCosto(Nothing, DdlSubProyectoEjecucion, Nothing, Nothing)
+        CargaGrupo()
 
         TipoCambio = 1
         TCEspecifico = 0