RepVentas Cartas porte, Consignaciones, serie lote

Inventarios/Consignaciones.aspx.vb

@@ -88,6 +88,24 @@ Partial Class Inventarios_Consignaciones
         TxtFechaTraspaso.Text = Now.ToShortDateString
         TxtFechaDevolucion.Text = Now.ToShortDateString
         SoloLectura = False
+
+        'Carga Productos
+        DdlProducto.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
+
+        If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
+            DdlProducto.ddlWS.Attributes.Add("data-cveclasificacion", "-1")
+            DdlProducto.SelectedText = ""
+            DdlProducto.SelectedValue = "-1"
+            DdlProducto.ddl.Visible = False
+
+        Else
+            DdlProducto.ddl.Items.Clear()
+            DdlProducto.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=-1)
+            DdlProducto.ddl.DataBind()
+            DdlProducto.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
+            DdlProducto.ddlWS.Visible = False
+        End If
+
     End Sub
 
     Protected Sub CreaDT()
@@ -136,12 +154,12 @@ Partial Class Inventarios_Consignaciones
     Private Sub CargaCombos()
 
         'Llenar Clasificaciones
-        If UsuarioActual.CveEmpresa = 66 Then
-            DdlClasificacion.DataSource = GlobalDTSubFamilias(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Clasificacion")
-        Else
-            DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
-        End If
-        DdlClasificacion.DataBind()
+        'If UsuarioActual.CveEmpresa = 66 Then
+        '    DdlClasificacion.DataSource = GlobalDTSubFamilias(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Clasificacion")
+        'Else
+        '    DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
+        'End If
+        'DdlClasificacion.DataBind()
 
 
         'Llena unidades de medida
@@ -168,15 +186,19 @@ Partial Class Inventarios_Consignaciones
         DdlProveedorFiltro.SelectedValue = "-1"
         DdlProveedorFiltro.SelectedText = "Seleccione el Proveedor"
 
-        'Llenar el dropdownlist de Productos y servicios 
-        If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
-            DdlProducto.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
-            DdlProducto.DataBind()
-            DdlProducto.Items.Insert(0, New ListItem("----", "-1"))
-            DdlProductows.Visible = False
-        Else
-            DdlProducto.Visible = False
-        End If
+        ''Llenar el dropdownlist de Productos y servicios 
+        'If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
+        '    DdlProducto.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
+        '    DdlProducto.DataBind()
+        '    DdlProducto.Items.Insert(0, New ListItem("----", "-1"))
+        '    DdlProductows.Visible = False
+        'Else
+        '    DdlProducto.Visible = False
+        'End If
+
+
+
+
 
         DdlSeccionAlmacen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1)
         DdlSeccionAlmacen.DataBind()
@@ -411,9 +433,9 @@ Partial Class Inventarios_Consignaciones
         ImgFecha.Enabled = Not Accion
 
         TxtCantidad.Enabled = Not Accion
-        DdlClasificacion.Enabled = Not Accion
+        'DdlClasificacion.Enabled = Not Accion
         DdlProducto.Enabled = Not Accion
-        DdlProductows.Disabled = Accion
+        ' DdlProductows.Disabled = Accion
         DdlUnidad.Enabled = Not Accion
         TxtPU.Enabled = Not Accion
         LbAgregar.Visible = Not Accion
@@ -486,7 +508,7 @@ Partial Class Inventarios_Consignaciones
                 Else
                     e.Row.FCDropDownList("DdlClasificacion").DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Clasificacion")
                 End If
-                DdlClasificacion.DataBind()
+                'DdlClasificacion.DataBind()
                 e.Row.FCDropDownList("DdlClasificacion").DataBind()
                 e.Row.FCDropDownList("DdlClasificacion").SelectedValue = e.Row.DBCampo("CveClasificacion")
 
@@ -585,7 +607,7 @@ Partial Class Inventarios_Consignaciones
         AddNew()
     End Sub
     Protected Sub AddNew()
-        Dim PSSelected As Integer = HFProducto.Value.ToEntero
+        Dim PSSelected As Integer = DdlProducto.SelectedValue.ToEntero
 
         If PSSelected > 0 Then
 
@@ -632,7 +654,7 @@ Partial Class Inventarios_Consignaciones
                     registro.Item("CveUM") = DdlUnidad.SelectedValue.ToEntero
                     registro.Item("UnidadMedida") = DdlUnidad.SelectedItem.Text
                     registro.Item("CvePS") = PSSelected
-                    registro.Item("PS") = HFTProducto.Value
+                    registro.Item("PS") = DdlProducto.txtText.Value
                     registro.Item("PSCodigo") = PSCodigo
                     registro.Item("CveClasificacion") = CveClasificacion
                     registro.Item("EstatusExistencia") = "1"
@@ -838,10 +860,13 @@ Partial Class Inventarios_Consignaciones
         DdlMoneda_SelectedIndexChanged(DdlMoneda, EventArgs.Empty)
 
         TxtCantidad.Text = ""
-        DdlClasificacion.SelectedValueExist(-1)
-        DdlProducto.SelectedValueExist(-1)
-        DdlProductows.Items.Clear()
-        DdlProductows.DataBind()
+        'DdlClasificacion.SelectedValueExist(-1)
+
+        DdlProducto.txtText.Value = ""
+        DdlProducto.txtValue.Value = ""
+
+        'DdlProductows.Items.Clear()
+        'DdlProductows.DataBind()
         TxtPU.Text = ""
 
         'DEVOLUCION
@@ -916,7 +941,7 @@ Partial Class Inventarios_Consignaciones
                 End If
 
                 'AGREGAMOS MOVTOS DETALLE
-                If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Gvr.FCTextBox("TxtCantidadDevolucion").Text.ToString.ToDouble, Gvr.DataKey("CveUM").ToString.ToEntero, Gvr.DataKey("CvePS").ToString.ToEntero, Gvr.DataKey("PU").ToString.ToDecimal, -1, -1, "", "") Then
+                If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Gvr.FCTextBox("TxtCantidadDevolucion").Text.ToString.ToDouble, Gvr.DataKey("CveUM").ToString.ToEntero, Gvr.DataKey("CvePS").ToString.ToEntero, Gvr.DataKey("PU").ToString.ToDecimal, -1, -1, Gvr.DataKey("Serie").ToString, Gvr.DataKey("Lote").ToString) Then
                     ErrorMovInv = True
                     TextoError = "Ocurrió un Error al guardar los movimientos"
                     Exit For
@@ -1555,31 +1580,29 @@ Partial Class Inventarios_Consignaciones
 
 
 #Region "DDL CLASIFICACION"
-    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
-            DdlProducto.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero)
-            DdlProducto.DataBind()
-            DdlProducto.Items.Insert(0, New ListItem("----", "-1"))
-        End If
-        HFProducto.Value = ""
-        HFTProducto.Value = ""
-    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
+    '        DdlProducto.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero)
+    '        DdlProducto.DataBind()
+    '        DdlProducto.Items.Insert(0, New ListItem("----", "-1"))
+    '    End If
+    '    HFProducto.Value = ""
+    '    HFTProducto.Value = ""
+    'End Sub
 
-    Protected Sub DdlProducto_ValueChanged(sender As Object, e As EventArgs) Handles DdlProducto.SelectedIndexChanged
-        ElProductoChange()
-    End Sub
-    Protected Sub HFProducto_ValueChanged(sender As Object, e As EventArgs) Handles HFProducto.ValueChanged
-        ElProductoChange()
-    End Sub
+    'Protected Sub DdlProducto_ValueChanged(sender As Object, e As EventArgs) Handles DdlProducto.SelectedIndexChanged
+    '    ElProductoChange()
+    'End Sub
+    'Protected Sub HFProducto_ValueChanged(sender As Object, e As EventArgs) Handles HFProducto.ValueChanged
+    '    ElProductoChange()
+    'End Sub
     Private Sub ElProductoChange()
-        If HFProducto.Value = "" Then
-            HFProducto.Value = DdlProducto.SelectedValue
-        End If
 
-        DdlUnidad.DataSource = GlobalDTProductosServiciosEquivalencias(HFProducto.Value.ToEntero, -1, UsuarioActual.CveEmpresa)
+
+        DdlUnidad.DataSource = GlobalDTProductosServiciosEquivalencias(DdlProducto.txtValue.Value.ToEntero, -1, UsuarioActual.CveEmpresa)
         DdlUnidad.DataBind()
         UpDatos.Update()
     End Sub
@@ -1599,25 +1622,25 @@ Partial Class Inventarios_Consignaciones
     Private Function isWhitFamily() As Boolean
         Return (UsuarioActual.CveEmpresa = 66)
     End Function
-    Protected Sub DdlProducto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProducto.SelectedIndexChanged
-        If Not DdlProducto.SelectedValue = "" Then
-            'If DtPS.FiltraParametros( string.Format("CvePS = {0} AND Inv_CveMetodoInventario = 3 ",DdlProducto.SelectedValue)).Rows.Count > 0 Then
-            '    LblSerieLote.Visible = True
-            '    TxtnSerieLote.Visible = True
-            'Else
-            '    LblSerieLote.Visible = False
-            '    TxtnSerieLote.Visible = False
-            'End If
-        End If
-        Dim dtpse As DataTable
-        dtpse = GlobalDTProductosServiciosEquivalencias(DdlProducto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa)
-        'dtpse.Columns("UM").ColumnName = "UnidadMedida"
-        'dtpse.Columns("CveUM").ColumnName = "CveUnidadMedida"
-        DdlUnidad.DataSource = dtpse
-        DdlUnidad.DataBind()
+    'Protected Sub DdlProducto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProducto.SelectedIndexChanged
+    '    If Not DdlProducto.SelectedValue = "" Then
+    '        'If DtPS.FiltraParametros( string.Format("CvePS = {0} AND Inv_CveMetodoInventario = 3 ",DdlProducto.SelectedValue)).Rows.Count > 0 Then
+    '        '    LblSerieLote.Visible = True
+    '        '    TxtnSerieLote.Visible = True
+    '        'Else
+    '        '    LblSerieLote.Visible = False
+    '        '    TxtnSerieLote.Visible = False
+    '        'End If
+    '    End If
+    '    Dim dtpse As DataTable
+    '    dtpse = GlobalDTProductosServiciosEquivalencias(DdlProducto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa)
+    '    'dtpse.Columns("UM").ColumnName = "UnidadMedida"
+    '    'dtpse.Columns("CveUM").ColumnName = "CveUnidadMedida"
+    '    DdlUnidad.DataSource = dtpse
+    '    DdlUnidad.DataBind()
 
 
-    End Sub
+    'End Sub
 #End Region
 
 
@@ -1680,7 +1703,8 @@ Partial Class Inventarios_Consignaciones
 
 #Region "Columnas Opcionales en PS"
 
-    Protected Sub DdlProducto_Click(sender As Object, e As EventArgs) Handles DdlProducto.SelectedIndexChanged
+
+    Protected Sub DdlProducto_selectedindexchange(sender As Object, e As EventArgs)
         If DdlProducto.SelectedValue.ToEntero > 0 Then
             Dim drp As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlProducto.SelectedValue.ToEntero).FiltroPrimero("")
 
@@ -1710,9 +1734,14 @@ Partial Class Inventarios_Consignaciones
             End If
             UpDatos.Update()
         End If
+        ElProductoChange()
+
+
     End Sub
 #End Region
 
 
 
+
+
 End Class