Guardar Modelo y BCI

Ventas/PV.aspx.vb

@@ -2770,6 +2770,13 @@ Partial Class PV
                 'Muestra la tabla de tamaños
                 If drPS("CveTamaño").ToString().ToEntero() > 0 Then
                     DivRecepcionUsados.Visible = True
+                    If DdlTipoComprobante.SelectedValue <> "Rem" Then
+                        GvRecepcionUsados.Columns(2).Visible = False
+                        GvRecepcionUsados.Columns(3).Visible = False
+                    Else
+                        GvRecepcionUsados.Columns(2).Visible = True
+                        GvRecepcionUsados.Columns(3).Visible = True
+                    End If
                 End If
 
                 DdlUnidadMedida.Items.Clear()
@@ -4904,6 +4911,7 @@ Partial Class PV
         GvRecepcionUsados.DataSource = DtTamanios
         GvRecepcionUsadosModal.DataSource = DtTamanios
 
+
         DdlFolioGarantia.DataBind()
         DdlTipoUso.DataBind()
         DdlTipoDefecto.DataBind()
@@ -4919,6 +4927,25 @@ Partial Class PV
         DivChkAjuste.Visible = True
     End Sub
 
+    Protected Sub GvRecepcionUsados_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvRecepcionUsados.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+            Dim ObjGral As New ClsGenerales
+            If ObjGral.BCIUsadoGet(UsuarioActual.CveEmpresa) Then
+                e.Row.FCDropDownList("DdlBCIUsado").DataSource = ObjGral.DtResultados
+            End If
+            'DdlBCIUsado.Items.Insert(0, New ListItem("Seleccione", "-1"))
+            'DdlBCIUsado.SelectedValueExist(-1)
+            e.Row.FCDropDownList("DdlBCIUsado").DataBind()
+            'e.Row.FCDropDownList("DdlBCIUsado").SelectedValue = e.Row.DBCampo("CveBCIUsado")
+
+            If ObjGral.ModelosAutosGet(UsuarioActual.CveEmpresa) Then
+                e.Row.FCDropDownList("DdlModeloAuto").DataSource = ObjGral.DtResultados
+            End If
+            e.Row.FCDropDownList("DdlModeloAuto").DataBind()
+        End If
+    End Sub
+
     Private Sub CargaPSAjuste()
         DdlPSAjuste.Items.Clear()
         DtPUFacturas.Rows.Clear()
@@ -5321,8 +5348,8 @@ Partial Class PV
                     Row("CveUM") = Gvr.DataKey("CveUM").ToEntero
                     Row("CveVentaDetalle") = -1
                     Row("PU") = Gvr.DataKey("Cargo").ToDouble
-                    Row("CveBCIUsado") = -1
-                    Row("CveModeloAuto") = -1
+                    Row("CveBCIUsado") = Gvr.FCDropDownList("DdlBCIUsado").SelectedValue.ToEntero
+                    Row("CveModeloAuto") = Gvr.FCDropDownList("DdlModeloAuto").SelectedValue.ToEntero
                     TmpDTRecepcionUsados.Rows.Add(Row)
 
                 End If