Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Ventas/Clientes.aspx

@@ -271,6 +271,14 @@
         </ContentTemplate>
     </asp:UpdatePanel>
 
+     <asp:UpdatePanel runat="server" ID="UPUsadosReset" RenderMode="Inline" UpdateMode="Conditional" Visible="false">
+        <ContentTemplate>
+            <li>
+                <asp:LinkButton ID="LnkUsadosReset" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si"  data-placement="left" title="Inicializar Usados" runat="server" Text="<i class='fa fa-pencil'></i> Inicializar Usados"></asp:LinkButton>
+            </li>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
     <asp:UpdatePanel runat="server" ID="UpReporteGpsButton" RenderMode="Inline" UpdateMode="Conditional">
         <ContentTemplate>
             <li>

Ventas/Clientes.aspx.vb

@@ -1654,6 +1654,10 @@ Partial Class Clientes
                 DivBonificacionUsado.Visible = True
                 CargaUsados()
 
+                If UsuarioActual.TienePermisoProceso(280) Then
+                    UPUsadosReset.Visible = True
+                End If
+
             End If
 
 
@@ -9909,6 +9913,10 @@ Partial Class Clientes
             Alert("No se encontró información.", TipoMensaje.MsgAdvertencia)
         End If
     End Sub
+
+    Private Sub LnkUsadosReset_Click(sender As Object, e As EventArgs) Handles LnkUsadosReset.Click
+        Alert("Puntuación Inicializada")
+    End Sub
 #End Region
 End Class
 

Ventas/ClientesAbonar.aspx.vb

@@ -608,7 +608,8 @@ Partial Class Ventas_ClientesAbonar
             e.Row.FCCheckBox("Chk").Attributes.Add("onclick", String.Format("FnSuma(this,{0},{1}); FnCambia({2},this,{1},0,{3},{4});", e.Row.FCTextBox("TxtAbonar").ClientID, e.Row.DBCampo("Saldo"), e.Row.FCCheckBox("Chk").ClientID, CveMonedaFiltro, moneda))
 
             If Not UsuarioActual.Empresa.Funcionalidad(536) = "1" Then
-                If e.Row.DBCampo("TipoDocto") = "Rem" Then
+                'si es remisión y factura no timbrada
+                If e.Row.DBCampo("TipoDocto") = "Rem" OrElse (e.Row.DBCampo("TipoDocto") = "Ing" AndAlso e.Row.DBCampo("FolioFiscal") = "") Then
                     e.Row.FCCheckBox("Chk").Visible = False ' que no se pueda pagar si es remisión
                     e.Row.Cells(0).ToolTip = "El documento es remisión y no se puede realizar el pago"
                 End If

Ventas/Ventas.aspx.vb

@@ -6107,7 +6107,7 @@ Partial Class Ventas
                         CveProducto = dr("CvePS").ToString.ToEntero
                         CveUnidad = dr("CveUM").ToString.ToEntero
                         Cantidad = TmpDT.SUM("Cantidad", $"CvePS = {CveProducto}") 'VALIDA CONTRA LA SUMA DEL MISMO PS
-                        If UsuarioActual.CveEmpresa.Contiene({72, 80, 119}) AndAlso RemisionesLista.Count < 1 AndAlso dr("EntregaDirecta").ToString.ToEntero < 1 Then
+                        If UsuarioActual.Empresa.UsaInventarios AndAlso RemisionesLista.Count < 1 AndAlso dr("EntregaDirecta").ToString.ToEntero < 1 Then
                             Existencia = ObjInventarios.GetExistenciasPS(CveProducto, CveUnidad, UsuarioActual.CveEmpresa, CveAlmacenExistenciasContrato, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeAdelantado:=1, PendientePorSurtir:=1, RestringirAlmacenes:=1, ExcluyeApartados:=-1)
                             If Existencia < Cantidad Then
                                 MensajeCosto.AppendFormat("<br/>El Producto <b>{0}</b>. No cuenta con la cantidad suficiente en inventario. Cuenta con {1}.", dr("CodigoPS").ToString, Existencia.FormatoNumero(2))