From c09e17f76ae3e6cea00a63f63b11fd75ecd90705 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Mon, 14 Oct 2019 16:51:28 -0700
Subject: [PATCH] =?UTF-8?q?En=20la=20recepci=C3=B3n=20de=20usados,=20cuand?=
 =?UTF-8?q?o=20sea=20un=20cliente=20no=20distribuidor,=20especificar=20de?=
 =?UTF-8?q?=20que=20factura=20es,=20para=20validar=20que=20lo=20que=20se?=
 =?UTF-8?q?=20recibe=20no=20exceda=20alo=20que=20se=20factur=C3=B3,=20de?=
 =?UTF-8?q?=20ser=20as=C3=AD=20toparlo=20a=20los=20puntos=20del=20usado=20?=
 =?UTF-8?q?que=20se=20facturo?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Inventarios/RecepcionUsados.aspx    |   8 +-
 Inventarios/RecepcionUsados.aspx.vb | 302 ++++++++++------------------
 2 files changed, 111 insertions(+), 199 deletions(-)

diff --git a/Inventarios/RecepcionUsados.aspx b/Inventarios/RecepcionUsados.aspx
index 85275e53c..672c93586 100644
--- a/Inventarios/RecepcionUsados.aspx
+++ b/Inventarios/RecepcionUsados.aspx
@@ -148,7 +148,13 @@
                                                 </div>
                                             </div>
                                         </div>
-
+                                        <div class="row" id="DivFactura" runat="server" visible="false">
+                                            <label class="col-md-1 truncate" style="width: 110px">Factura:</label>
+                                            <div class="col-md-2">
+                                                <asp:DropDownList ID="DdlFactura" runat="server" CssClass="form-control input-sm select2me" Style="max-width: 200px" DataTextField="SerieFolio" DataValueField="CveVenta">
+                                                </asp:DropDownList>
+                                            </div>
+                                        </div>
                                         <div class="row" id="DivDepartamentoEntrega" runat="server" visible="False">
                                             <label class="col-md-1 truncate" style="width: 110px">
                                                 <asp:Label runat="server" ID="LblDepartamentoEntrega"> Depto. entrega:</asp:Label>
diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb
index 572b90a62..248603580 100644
--- a/Inventarios/RecepcionUsados.aspx.vb
+++ b/Inventarios/RecepcionUsados.aspx.vb
@@ -373,18 +373,11 @@ Partial Class Inventarios_RecepcionUsados
     End Sub
     Private Sub PermisoVerImportes()
         Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
-
-
-    End Sub
-
-
+    End Sub
+
+
 #End Region
-
-
-    Private Function isWhitFamily() As Boolean
-        Return (UsuarioActual.CveEmpresa = 66)
-    End Function
-
+
 #Region "   VALORES INICIALES   "
     Protected Sub CreaDT()
         Dim dt As New DataTable
@@ -435,31 +428,16 @@ Partial Class Inventarios_RecepcionUsados
         DtMovimientosSalidaInvFisico = dt.Clone
 
     End Sub
-    Private Sub CargaCombos()
-        'Llenar el dropdownlist de Secciones
-        If UsuarioActual.CveEmpresa = 66 Then
-            'DdlClasificacion.DataSource = GlobalDTSubFamilias(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Clasificacion")
-        Else
-            Dim ObjClasificaciones As New ClsClasificaciones
-            If ObjClasificaciones.GetClasificacionesExistencias(UsuarioActual.CveEmpresa) Then
-                ' DdlClasificacion.DataSource = ObjClasificaciones.DtResultados
-            End If
-            ObjClasificaciones.Dispose()
-        End If
-        'DdlClasificacion.DataBind()
-
+    Private Sub CargaCombos()
+
         DdlSeccion.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa)
         DdlSeccion.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlSeccion.DataBind()
 
-
-
         'Llenar el dropdownlist de monedas
         DdlMoneda.DataSource = GlobalDTMonedas
         DdlMoneda.DataBind()
 
-
-
         'Llenar el dropdownlist de almacén
         DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen IN (22)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
 
@@ -472,10 +450,7 @@ Partial Class Inventarios_RecepcionUsados
             DdlAlmacen_SelectedIndexChanged(DdlAlmacen, EventArgs.Empty)
         End If
 
-
         CargaPS()
-
-
     End Sub
     Private Sub CargaPS()
         Dim ObjAcum As New ClsAcumuladores
@@ -487,45 +462,24 @@ Partial Class Inventarios_RecepcionUsados
 
                 If drow("CvePSCargo").ToString.ToEntero > 0 Then
                     lista.Add(drow("CvePSCargo").ToString)
-                End If
-
+                End If
             Next
-
         End If
 
         If lista.Count > 0 Then
 
             Filtro = "CvePS in(" & String.Join(",", lista) & ")"
 
-
-
-            'DdlProducto2.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltraParametros("CveTamaño > 0")
-            ' Filtro
-
             DdlProducto2.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltraParametros(Filtro)
             DdlProducto2.DataBind()
             DdlProducto2.Items.Insert(0, New ListItem("Seleccione", "-1"))
         End If
 
-        'DdlProducto2.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
-
-        'If UsuarioActual.CveEmpresa = 66 Then
-        '    DdlProducto2.ddlWS.Attributes.Add("data-pagina", "Inventarios")
-        'End If
-
-        'If Not DdlProducto2.UsaWebService AndAlso CType(DdlProducto2.DataSource, DataTable) Is Nothing Then
-
-        '    DdlProducto2.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoPS = 2")
-        '    DdlProducto2.DataBind()
-        '    DdlProducto2.ddl.Items.Insert(0, New ListItem("Seleccione", "-1"))
-
-        'End If
         ObjAcum.Dispose()
     End Sub
     Private Sub CargaSubProyectos()
         DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
         DdlSubProyecto.DataBind()
-
 
         'DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
@@ -564,13 +518,12 @@ Partial Class Inventarios_RecepcionUsados
         DdlPersonal.DataSource = dt
         DdlPersonal.DataBind()
         'DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
-    End Sub
+    End Sub
 #End Region
-
-
+
 #Region "   CARGA DATOS   "
-
-
+
+
     Private Sub BloqueaEdicionEncabezado()
 
 
@@ -596,11 +549,10 @@ Partial Class Inventarios_RecepcionUsados
             DdlSeccion.Enabled = False
         End If
         UppGrid.Update()
-    End Sub
-
+    End Sub
+
 #End Region
-
-
+
 #Region "  BOTONES: ELIMINAR, NUEVO  "
     Protected Sub BtnNuevo_Click(sender As Object, e As EventArgs) Handles BtnNuevo.Click
         'Response.Redirect("EntradasSalidas.aspx")
@@ -993,8 +945,6 @@ Partial Class Inventarios_RecepcionUsados
             Dim ImporteConcepto = 0.0
 
             Try
-
-
                 Dim CveSubProyecto = -1
                 Dim ActivoFijo = -1
 
@@ -1015,16 +965,18 @@ Partial Class Inventarios_RecepcionUsados
                     Dim tCveProveedor As Integer = -1
                     If DdlProveedor.SelectedValue.ToEntero > 0 Then tCveProveedor = DdlProveedor.SelectedValue.ToEntero
                     Dim CveVenta As Integer = -1
+
                     If CveRemisionRecibida > 0 Then
                         CveVenta = CveRemisionRecibida
+                    ElseIf EsDistribuidor AndAlso DdlFactura.SelectedValue.ToEntero() > 0 Then
+                        CveVenta = DdlFactura.SelectedValue.ToEntero()
                     End If
+
                     'Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inv/ES", 53, 0, 0, 1, TxtFecha.Text.ToDate, $" {TxtObservaciones.Text}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=3)
                     CveMovimiento = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, CveConcepto, 1, Fecha, tFolio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta,
                                                                 CveSubProyecto, ActivoFijo, Guia:=TxtGuia.Text, Observaciones:=TxtObservaciones.Text, CvePersonal:=DdlPersonal.SelectedValue.ToEntero,
                                                                 Recibio:=TxtResponsable.Text.Trim, CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, DepartamentoEntrega:=TxtDepartamentoEntrega.Text,
                                                                 PedidoContrato:=TxtPedidoContrato.Text, CveProveedor:=tCveProveedor)
-
-
                     If CveMovimiento <= 0 Then
                         Alert("No se pudo almacenar el movimiento correctamente", TipoMensaje.MsgError)
                         RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
@@ -1054,13 +1006,10 @@ Partial Class Inventarios_RecepcionUsados
 
                             Dim CveConceptoUsados As Integer = If(RBLOpcion.SelectedValue.ToEntero = 2, 1, 2)
 
-
                             If RBLOpcion.SelectedValue.ToEntero <> 3 Then
                                 If EsDistribuidor Then
                                     If Not ObjAcum.DistribuidorMovtosAdd(DdlClientes.SelectedValue.ToEntero, Dr("Cantidad").ToString.ToEntero(), Dr("CveTamaño").ToString.ToEntero, CveConceptoUsados, -1, UsuarioActual.CveUsuario,
                                             UsuarioActual.CveEmpresa, 0, Dr("Observaciones").ToString, CveMovimiento:=CveMovimiento) Then
-
-
                                         'CveCliente As Integer, Cantidad As Integer, CveTamaño As Integer, CveConcepto As Integer, CveVenta As Integer, CveUsuario As Integer,
                                         'CveEmpresa As Integer, ImporteCompras As Decimal, Observaciones As String
 
@@ -1069,11 +1018,7 @@ Partial Class Inventarios_RecepcionUsados
                                         Exit For
                                     End If
                                 End If
-
-
                             End If
-
-
                         Next
 
                         If Not ErrorMovInv Then
@@ -1088,10 +1033,8 @@ Partial Class Inventarios_RecepcionUsados
                             ObjInventario.Commit() ' aplica los movimientos insertados
                             'If ObjContaAC IsNot Nothing Then ObjContaAC.Commit()
 
-
                             Alert(Msg.ToString, TipoMensaje.MsgInformacion)
 
-
                             'Limpia Valores cuando inserta de campos especiales
                             If UsuarioActual.CveEmpresa = 66 Then
                                 DdlSubProyecto.SelectedValueExist("-1")
@@ -1103,7 +1046,6 @@ Partial Class Inventarios_RecepcionUsados
                             UPDatos.Update()
                             LimpiarMovimiento()
 
-
                         Else
                             ObjInventario.RollBack() 'deshace lo insertado
                             CveMovimiento = 0
@@ -1111,18 +1053,11 @@ Partial Class Inventarios_RecepcionUsados
                             Alert("ocurrió un Error al registrar los movimientos", TipoMensaje.MsgError)
                             ' RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
                         End If
-
-
-
-
-
                     End If
 
                     CargaGVM(DtMovimientos.FiltraParametros("Estatus <> 'E' "))
 
                 End If
-
-
             Catch ex As Exception
                 ObjInventario.RollBack() 'deshace lo insertado
                 CveMovimiento = 0
@@ -1138,11 +1073,11 @@ Partial Class Inventarios_RecepcionUsados
             Alert("No hay ningun registro para generar el movimiento. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgError)
             RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
         End If
+
     End Sub
 
 #End Region
 
-
 #Region "  ADD INVENTARIO INICIAL  "
     Protected Sub BtnCodigoBarras_Click(sender As Object, e As EventArgs)
 
@@ -1218,12 +1153,11 @@ Partial Class Inventarios_RecepcionUsados
 
         TxtCodigoBarras.Focus()
         RegistraScript("beep-07.wav')")
-    End Sub
+    End Sub
 #End Region
-
-
+
 #Region " DdlConcepto, DdlClasificacion, DdlAlmacen | Index CHANGED  "
-
+
     Protected Sub DdlAlmacen_SelectedIndexChanged(sender As Object, e As EventArgs)
 
         If EsConsumoInterno Then
@@ -1270,34 +1204,6 @@ Partial Class Inventarios_RecepcionUsados
         FolioAsignado = Folio
 
     End Sub
-    'Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlClasificacion.SelectedIndexChanged
-    '    ChangeDdlProducto()
-    'End Sub
-    'Private Sub ChangeDdlProducto()
-    '    If UsuarioActual.Empresa.Funcionalidad(105) = "" Then
-    '        Dim filtro As String = ""
-    '        If Not (DdlClasificacion.SelectedValue = "-1") Then
-
-    '            If isWhitFamily() Then
-    '                filtro = String.Format("CveSubFamilia={0}", DdlClasificacion.SelectedValue)
-    '            Else
-    '                filtro = String.Format("CveClasificacion={0}", DdlClasificacion.SelectedValue)
-    '            End If
-    '        End If
-
-    '        DdlProducto2.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltraParametros($"{filtro} AND CveTipoPS = 2", "PSCodigo")
-    '        DdlProducto2.DataBind()
-    '        DdlProducto2.ddl.Items.Insert(0, New ListItem("Seleccione", "-1"))
-    '    Else
-    '        If isWhitFamily() Then
-    '            DdlProducto2.ddlWS.Attributes.Add("data-idSubFamilia", DdlClasificacion.SelectedValue)
-    '        Else
-    '            DdlProducto2.ddlWS.Attributes.Add("data-idClasificacion", DdlClasificacion.SelectedValue)
-    '        End If
-    '    End If
-    'End Sub
-
-
     Protected Sub DdlProducto2_SelectedIndexChanged(sender As Object, e As EventArgs)
         ElProductoChange()
     End Sub
@@ -1343,10 +1249,9 @@ Partial Class Inventarios_RecepcionUsados
         ObjAcum.Dispose()
         UPDatos.Update()
 
-    End Sub
+    End Sub
 #End Region
-
-
+
 #Region "  GVM  "
     Private Sub CargaGVM(DtTemp As DataTable)
         GvM.DataSource = DtTemp
@@ -1441,16 +1346,9 @@ Partial Class Inventarios_RecepcionUsados
 
         CargaGVM(DtMovimientos.FiltraParametros("Estatus <> 'E' "))
 
-    End Sub
+    End Sub
 #End Region
-
-
-
-
-
-
-
-
+
 #Region "   TIPO DE CAMBIO   "
     Protected Sub DdlMonedaTC_SelectedIndexChanged(sender As Object, e As EventArgs)
         Select Case DdlMonedaTC.SelectedValue.ToEntero
@@ -1485,14 +1383,13 @@ Partial Class Inventarios_RecepcionUsados
         'LtTotal.Text = DtMovimientos.SUM("Total", "").ToString.FormatoNumero
 
         UPDatos.Update()
-    End Sub
-
-
-
-
+    End Sub
+
+
+
+
 #End Region
-
-
+
 #Region "  BITACORA  "
     Private Sub InicializaBitacoraTemporal()
 
@@ -1693,61 +1590,56 @@ Partial Class Inventarios_RecepcionUsados
             UPEventoBitacora.Update()
         End If
 
-    End Sub
+    End Sub
 #End Region
-
-
-
-
-
+
 #Region "  CONSUMO INTERNO  "
-    'Private Sub ActivaConsumoInterno()
-    '    EsConsumoInterno = True
-
-
-
-    '    DdlAlmacen.AutoPostBack = False
-    '    DivFolio1.Visible = False
-    '    DivFolio2.Visible = False
-
-    '    divMonedaSeccion.Visible = False
-    '    divGuia.Visible = False
-    '    TrResponsable.Visible = False
-    '    CargaPersonal()
-
-
-    '    'RECARGA ALMACENES SOLO DE CONSUMO INTERNO
-    '    DdlAlmacen.Items.Clear()
-    '    DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 22) 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
-    '    DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
-    '    DdlAlmacen.SelectedValue = "-1"
-    '    DdlAlmacen.DataBind()
-    '    If IsNothing(Request("CveMovimiento")) Then
-    '        DdlAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen)
-    '    End If
-
-    'End Sub
+    'Private Sub ActivaConsumoInterno()
+    '    EsConsumoInterno = True
+
+
+
+    '    DdlAlmacen.AutoPostBack = False
+    '    DivFolio1.Visible = False
+    '    DivFolio2.Visible = False
+
+    '    divMonedaSeccion.Visible = False
+    '    divGuia.Visible = False
+    '    TrResponsable.Visible = False
+    '    CargaPersonal()
+
+
+    '    'RECARGA ALMACENES SOLO DE CONSUMO INTERNO
+    '    DdlAlmacen.Items.Clear()
+    '    DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 22) 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
+    '    DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
+    '    DdlAlmacen.SelectedValue = "-1"
+    '    DdlAlmacen.DataBind()
+    '    If IsNothing(Request("CveMovimiento")) Then
+    '        DdlAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen)
+    '    End If
+
+    'End Sub
 #End Region
-
-
+
 #Region "PAQUETERIA GUIA"
-    'Protected Sub LnkAgregarGuia_Click(sender As Object, e As EventArgs)
-    '    RegistraScript(String.Format("AbrirVentana('/General/PopUpPaqueteriasGuias.aspx?CveMovimiento={0}',800,620);", CveMovimiento))
-    'End Sub
-
-
-
-
-
-
-
-
-
-
-
+    'Protected Sub LnkAgregarGuia_Click(sender As Object, e As EventArgs)
+    '    RegistraScript(String.Format("AbrirVentana('/General/PopUpPaqueteriasGuias.aspx?CveMovimiento={0}',800,620);", CveMovimiento))
+    'End Sub
+
+
+
+
+
+
+
+
+
+
+
 #End Region
-
-
+
+
 #Region "DDL CLIENTE / CLIENTE SUCURSAL - SELECTED INDEX CHANGED"
     Private Sub InicializaClientes()
 
@@ -1775,6 +1667,26 @@ Partial Class Inventarios_RecepcionUsados
         DivClienteSucursal.Visible = False
         DdlClientesSucursales.Items.Clear()
         CargaSucursalesCliente()
+        CargaFacturasCliente()
+
+        UpGenerales.Update()
+    End Sub
+    Private Sub CargaFacturasCliente()
+        DivFactura.Visible = True
+        Dim CveCliente As Integer = DdlClientes.SelectedValue.ToEntero()
+        If CveCliente > 0 Then
+            Me.EsDistribuidor = True
+
+            Dim ObjVentas As New ClsVentas
+            If ObjVentas.GetVentas(UsuarioActual.CveEmpresa, "-1", "-1", -1, "-1", CveCliente, -1, -1, -1, "-1", "-1", "-1", CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
+                DdlFactura.DataSource = ObjVentas.DtResultados.Copy()
+            End If
+            ObjVentas.Dispose()
+
+            DdlFactura.DataBind()
+            DdlFactura.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        End If
+
     End Sub
     Protected Sub CargaSucursalesCliente()
         DdlClientesSucursales.Enabled = True
@@ -1882,14 +1794,10 @@ Partial Class Inventarios_RecepcionUsados
         ObjInventario.Dispose()
         ObjConta.Dispose()
 
-    End Sub
-
+    End Sub
+
 #End Region
-
-
-
-
-
+
     Private Sub GuardarBitacora(CveVenta As Integer, RutaAdjunto As String, Obser As String)
         Dim ObjEventos As New ClsOIEventos()
 
@@ -1907,7 +1815,6 @@ Partial Class Inventarios_RecepcionUsados
 
     End Sub
 
-
     Protected Sub LnkAgregarUsado_Click(sender As Object, e As EventArgs)
         AgregarUsado = True
         ResetModalUsados()
@@ -1916,8 +1823,6 @@ Partial Class Inventarios_RecepcionUsados
         UpModalAgregar.Update()
     End Sub
 
-
-
     Protected Sub LnkModalAgregarUsado_Click(sender As Object, e As EventArgs)
         AgregarPS()
     End Sub
@@ -1970,7 +1875,6 @@ Partial Class Inventarios_RecepcionUsados
     End Sub
 
     Private Sub RBLOpcion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RBLOpcion.SelectedIndexChanged
-
         If RBLOpcion.SelectedValue.ToEntero = 3 Then
             DivCliente.Visible = False
         Else
@@ -1996,7 +1900,6 @@ Partial Class Inventarios_RecepcionUsados
         Me.CveRemisionRecibida = -1
         Me.CveRemisionRecibida = CType(CType(sender, LinkButton).NamingContainer, GridViewRow).DataKey("CveVenta").ToEntero()
 
-
         Dim DtUsados As DataTable = Nothing
         Dim CveCliente As Integer = -1
 
@@ -2008,10 +1911,13 @@ Partial Class Inventarios_RecepcionUsados
 
         If EsDistribuidor Then
             DivCliente.Visible = True
+            DdlClientes.SelectedValueExist(CveCliente)
+            DdlClientes_SelectedIndexChanged(DdlClientes, EventArgs.Empty)
+            DdlFactura.SelectedValueExist(CveRemisionRecibida)
         Else
             DivCliente.Visible = False
+            DivFactura.Visible = False
         End If
-        DdlClientes.SelectedValueExist(CveCliente)
 
         If ObjVentas.GetVentasUsadosDetalle(CveRemisionRecibida) Then
             DtUsados = ObjVentas.DtResultados.Copy()