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

Ventas/CatAutorizacionLimites.aspx.vb

@@ -77,7 +77,7 @@ Partial Class Ventas_CatAutorizacionLimites
         FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim.ToDate, MaxFecha)
 
         Dim ObjGral As New ClsVentas
-        If ObjGral.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, DdlVendedorFiltro.SelectedValue.ToEntero(), "-1", CveEstatus:=DdlEstatus.SelectedValue.ToEntero(), FechaI:=FechaI, FechaF:=FechaF) Then
+        If ObjGral.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, DdlVendedorFiltro.SelectedValue.ToEntero(), "-1", CveEstatus:=DdlEstatus.SelectedValue.ToEntero(), FechaI:=FechaI, FechaF:=FechaF, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
             GvDatos.DataSource = ObjGral.DtResultados
         End If
         ObjGral.Dispose()

Ventas/Clientes.aspx

@@ -4502,7 +4502,7 @@
 
                                                         <asp:TemplateField HeaderText="Cargo" ItemStyle-HorizontalAlign="Center">
                                                             <ItemTemplate>
-                                                                <asp:CheckBox ID="ChkCargo" runat="server"></asp:CheckBox>
+                                                                <asp:CheckBox ID="ChkCargo" runat="server" Visible="false" Checked="false"></asp:CheckBox>
                                                             </ItemTemplate>
                                                         </asp:TemplateField>
                                                         <asp:TemplateField HeaderText="Bonificación" ItemStyle-HorizontalAlign="Center">

Ventas/Clientes.aspx.vb

@@ -9219,13 +9219,13 @@ Partial Class Clientes
                 Dim FacturadoCargo As Boolean = Boolean.Parse(e.Row.DataKey("FacturadoCargo"))
                 Dim FacturadoBonificacion As Boolean = Boolean.Parse(e.Row.DataKey("FacturadoBonificacion"))
 
-                If FacturadoCargo Then
-                    e.Row.FCCheckBox("ChkCargo").Checked = False
-                    e.Row.FCCheckBox("ChkCargo").Visible = False
-                Else
-                    e.Row.FCCheckBox("ChkCargo").Checked = False
-                    e.Row.FCCheckBox("ChkCargo").Visible = False 'True
-                End If
+                'If FacturadoCargo Then
+                '    e.Row.FCCheckBox("ChkCargo").Checked = False
+                '    e.Row.FCCheckBox("ChkCargo").Visible = False
+                'Else
+                '    e.Row.FCCheckBox("ChkCargo").Checked = False
+                '    e.Row.FCCheckBox("ChkCargo").Visible = False 'True
+                'End If
 
                 If FacturadoBonificacion Then
                     e.Row.FCCheckBox("ChkBonificacion").Checked = False
@@ -9240,6 +9240,10 @@ Partial Class Clientes
                     ElseIf e.Row.DBCampo("EsUsadoAjuste") = "1" Then
                         e.Row.FCCheckBox("ChkBonificacion").Visible = False
                     End If
+
+                    If e.Row.DBCampo("ImporteBonificacion").ToDecimal() = 0 Then
+                        e.Row.FCCheckBox("ChkBonificacion").Visible = False
+                    End If
                 End If
 
             Else
@@ -10231,9 +10235,19 @@ Partial Class Clientes
             TxtNombreComercial.Enabled = True
         End If
         ' DdlRegimenFiscal.SelectedIndex = -1
-        DdlRegimenFiscal.Items.Clear()
-        DdlRegimenFiscal.SelectedValue = Nothing
-        DdlRegimenFiscal.DataSource = GlobalDTRegimenesFiscales(RdTipoPersona.SelectedValue.ToEntero).FiltraParametros("", "CodigoRegimenFiscal")
+
+        Dim dt As DataTable = GlobalDTRegimenesFiscales(RdTipoPersona.SelectedValue.ToEntero).FiltraParametros("", "CodigoRegimenFiscal")
+
+        If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+            'verifico que sino existe el valor. lo limpie 
+            Dim Val As String = dt.FiltroPrimeroValor("CveRegimenFiscal", "CveRegimenFiscal = " & DdlRegimenFiscal.SelectedValue)
+            If Val = "" Then 'sino encuentra valor, lo limpia
+                DdlRegimenFiscal.Items.Clear()
+                DdlRegimenFiscal.SelectedValue = Nothing
+            End If
+        End If
+
+        DdlRegimenFiscal.DataSource = dt
         DdlRegimenFiscal.DataBind()
 
         UpDatos.Update()