diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index 6a3e1ee10..44c9de66e 100644
--- a/Ventas/PV.aspx.vb
+++ b/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