diff --git a/Ventas/PV.aspx b/Ventas/PV.aspx index 6255bb30d..6c69e20bd 100644 --- a/Ventas/PV.aspx +++ b/Ventas/PV.aspx @@ -2658,24 +2658,41 @@
-
+
+ +
+ +
+
- - + + - + + + + + + + + + + + + +
-<%--
+ <%--
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