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

Inventarios/RecepcionUsados.aspx.vb

@@ -15,6 +15,15 @@ Partial Class Inventarios_RecepcionUsados
 
     Private _dtDatos As DataTable
 
+    Public Property DtClientes() As DataTable
+        Get
+            Return CType(ViewState("DtClientes"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtClientes") = value
+        End Set
+    End Property
+
     Public Property DtMovimientos() As DataTable
         Get
             Return CType(ViewState("DtMovimientos"), DataTable)
@@ -331,6 +340,7 @@ Partial Class Inventarios_RecepcionUsados
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
             CargaInicial()
+            GeneraRNCFromURL()
         End If
     End Sub
 
@@ -405,7 +415,76 @@ Partial Class Inventarios_RecepcionUsados
         'DdlProducto2.setEsWebService(True)
         'DdlProducto2.Attributes.Add("data-metodo", "getpsusados")
     End Sub
+    Private Sub GeneraRNCFromURL()
+        Dim RFC As String = IfNull(Request("RFC"), "").ToString()
+        Dim CveAlmacen As Integer = IfNull(Request("CveAlmacen"), "-1").ToString().ToEntero()
+        Dim Cantidad As Decimal = IfNull(Request("Cantidad"), "0").ToString().ToDecimal()
+        Dim Fecha As DateTime = IfNull(Request("Fecha"), Now.ToString("dd/MM/yyyy")).ToString().ToDateTime()
 
+        If Not String.IsNullOrEmpty(RFC) Then
+            If DtClientes Is Nothing Then
+                Alert("No se encontraron clientes para filtrar", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+
+            Dim RowCliente = DtClientes.FiltroPrimero(String.Format("RFC='{0}'", RFC))
+            If RowCliente Is Nothing Then
+                Alert("No se encontro el cliente", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+            If CveAlmacen <= 0 Then
+                Alert("Es necesario especificar el almacen", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+            If Cantidad <= 0 Then
+                Alert("Es necesario especificar la cantidad", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+            Dim CveCliente As Integer = RowCliente("CveCliente").ToString().ToEntero()
+
+            DdlClientes.SelectedValueExist(CveCliente)
+            DdlClientes_SelectedIndexChanged(DdlClientes, EventArgs.Empty)
+
+            DdlAlmacen.SelectedValueExist(CveAlmacen)
+            TxtFecha.Text = Fecha.ToString("dd/MM/yyyy")
+
+
+            Dim CvePS As Integer = 403591 'EXTRA CHICO
+            Dim CveTamanio As Integer = 1
+            Dim CveUM As Integer = -1
+            Dim PU As Decimal = 0
+            Dim RowTamanio As DataRow = GlobalDTAcumTamaños.FiltroPrimero($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CvePSCargo > 0 AND CvePSCargo={CvePS}")
+            Dim CodigoPS As String = ""
+            Dim UnidaMedida As String = ""
+
+            If RowTamanio IsNot Nothing Then
+                PU = RowTamanio("Cargo").ToString.ToDecimal()
+                CodigoPS = RowTamanio("CodigoPS").ToString()
+                CveTamanio = RowTamanio("CveTamaño").ToString().ToEntero()
+                CveUM = RowTamanio("CveUM").ToString().ToEntero()
+                UnidaMedida = "" 'RowTamanio("UnidadMedida").ToString()
+
+                AddNew(CvePS, CodigoPS, CveUM, UnidaMedida, Cantidad, PU, "", "-1", "-1", "-1", "", "", -1, "", "", CveTamanio)
+
+                Dim CveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}").ToEntero
+
+                CreaRemisionNC(CveCliente, CveSubProyecto, 1)
+
+                If Me.ObjRemisionNC IsNot Nothing Then
+                    Guardar(True)
+                Else
+                    Alert("No se pudo generar la RNC", TipoMensaje.MsgError)
+                End If
+            Else
+                Alert("No se encontro el tamaño", TipoMensaje.MsgError)
+            End If
+        End If
+
+
+    End Sub
 
 
 #Region "  PERMISOS PAGINAS  "
@@ -1165,7 +1244,7 @@ Partial Class Inventarios_RecepcionUsados
                                 If EsDistribuidor AndAlso RBLOpcion.SelectedValue.ToEntero = 42 AndAlso Dr("CveTamaño").ToString.ToEntero > 0 Then
 
                                     If Not ObjAcum.DistribuidorMovtosAdd(DdlClientes.SelectedValue.ToEntero, Dr("Cantidad").ToString.ToEntero(), Dr("CveTamaño").ToString.ToEntero, CveConceptoUsados, CveVenta, UsuarioActual.CveUsuario,
-                                            UsuarioActual.CveEmpresa, 0, Dr("Observaciones").ToString, CveMovimiento:=CveMovimiento) Then
+                                            UsuarioActual.CveEmpresa, 0, Dr("Observaciones").ToString, Now, CveMovimiento:=CveMovimiento) Then
                                         Mensaje = "Error al guardar Movimientos de distribuidor"
                                         ErrorMovInv = True
                                         Exit For
@@ -1850,9 +1929,11 @@ Partial Class Inventarios_RecepcionUsados
 
 #Region "DDL CLIENTE / CLIENTE SUCURSAL - SELECTED INDEX CHANGED"
     Private Sub InicializaClientes(Todos As Boolean)
+        DtClientes = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros(If(Todos, "", "EsDistribuidor = 1"))
 
-        DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros(If(Todos, "", "EsDistribuidor = 1"))
+        DdlClientes.DataSource = DtClientes
         DdlClientes.DataBind()
+
         DdlClientes.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlClientes.SelectedValue = "-1"
 
@@ -2219,11 +2300,12 @@ Partial Class Inventarios_RecepcionUsados
         Me.ObjRemisionNC.TipoDocto = "RNC"
         Me.ObjRemisionNC.RefDocto = ""
         Me.ObjRemisionNC.CveMesa = -1
-        Me.ObjRemisionNC.Fecha = Now
+        Dim Fecha As DateTime = TxtFecha.Text.ToDateTime()
+        Me.ObjRemisionNC.Fecha = Fecha
         Me.ObjRemisionNC.CvePrePoliza = -1
-        Me.ObjRemisionNC.FechaPago = Now
+        Me.ObjRemisionNC.FechaPago = Fecha
         Me.ObjRemisionNC.MotivoDescuento = ""
-        Me.ObjRemisionNC.FechaEjecucion = Now
+        Me.ObjRemisionNC.FechaEjecucion = Fecha
         Me.ObjRemisionNC.UsuarioCreo = UsuarioActual.Usuario
         Me.ObjRemisionNC.CveCondicionEntrega = -1
         Me.ObjRemisionNC.CondicionEntrega = ""