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

2024-09-28 10:10:36 -07:00
parent c34c1bb71e 91ccf85697
commit 9fd9edaf8b
6 changed files with 607 additions and 518 deletions
--- a/Bancos/ProveedoresAbonar.aspx
+++ b/Bancos/ProveedoresAbonar.aspx
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -223,6 +223,15 @@ Partial Class Bancos_ProveedoresAbonar
                ChkNoValidaSAT.Visible = True
            End If

+            If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+                HplCambiarProveedor.Visible = True
+
+                DdlProveedores.setEsWebService(True)
+                DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
+                DdlProveedores.SelectedText = "Todos"
+                DdlProveedores.SelectedValue = "-1"
+            End If
+
            PermiteModificarImporte = True
            TxtFechaIncobrable.Text = NowADS().ToShortDateString

@@ -1722,5 +1731,14 @@ Partial Class Bancos_ProveedoresAbonar
        End If
    End Sub

+
+    Protected Sub BtnCambiarProveedor_Click(sender As Object, e As EventArgs)
+        If DdlProveedores.SelectedValue.ToEntero() <= 0 Then
+            Alert("Debe seleccionar un proveedor", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+        Dim url As String = String.Format("/Bancos/ProveedoresAbonar.aspx?CveProveedor={0}&FechaI={1}&FechaF={2}&CveUsuarioProgramo={3}&TipoPago={4}&CveUsuarioRegistro={5}&CveUsuarioResponsable={6}&CveClasificacion={7}&CveMoneda={8}&CveEstatus={9}&CveProveedorSucursal={10}&CveAplicaNC={11}&CodigoProgramacion={12}&CveSubProyecto={13}", DdlProveedores.SelectedValue, Request("FechaI").ToString(), Request("FechaF").ToString(), Request("CveUsuarioProgramo").ToString(), -1, Request("CveUsuarioRegistro").ToString(), Request("CveUsuarioResponsable").ToString(), Request("CveClasificacion").ToString(), Request("CveMoneda").ToString(), Request("CveEstatus").ToString(), Request("CveProveedorSucursal").ToString(), Request("CveAplicaNC").ToString(), Request("CodigoProgramacion").ToString(), Request("CveSubProyecto").ToString())
+        Response.Redirect(url)
+    End Sub
 End Class

--- a/Empresas/Grales/Formatos/RepAlmacen.rdlc
+++ b/Empresas/Grales/Formatos/RepAlmacen.rdlc
@@ -268,11 +268,6 @@
                  <GroupExpression>=Fields!Almacen.Value</GroupExpression>
                </GroupExpressions>
              </Group>
-              <SortExpressions>
-                <SortExpression>
-                  <Value>=Fields!Almacen.Value</Value>
-                </SortExpression>
-              </SortExpressions>
              <TablixHeader>
                <Size>5cm</Size>
                <CellContents>
@@ -594,8 +589,8 @@
          <rd:DefaultName>Textbox9</rd:DefaultName>
          <Top>0.06cm</Top>
          <Left>1.60042cm</Left>
-          <Height>0.68085cm</Height>
-          <Width>2.6852cm</Width>
+          <Height>0.42502cm</Height>
+          <Width>5.39277cm</Width>
          <ZIndex>2</ZIndex>
          <Style>
            <Border>
@@ -628,9 +623,9 @@
          </Paragraphs>
          <rd:DefaultName>Textbox10</rd:DefaultName>
          <Top>0.06cm</Top>
-          <Left>5cm</Left>
+          <Left>7.16958cm</Left>
          <Height>0.68085cm</Height>
-          <Width>5cm</Width>
+          <Width>2.83042cm</Width>
          <ZIndex>3</ZIndex>
          <Style>
            <Border>
@@ -678,6 +673,7 @@
          </Style>
        </Textbox>
        <Line Name="Line1">
+          <Top>0in</Top>
          <Height>0cm</Height>
          <Width>19.26933cm</Width>
          <ZIndex>5</ZIndex>
--- a/SigAyuda.aspx
+++ b/SigAyuda.aspx
@@ -116,15 +116,15 @@
                                    </div>
                                    <asp:UpdatePanel ID="UpAdjunto" runat="server" UpdateMode="Conditional" class="task-status">
                                        <ContentTemplate>
-                                            <a class="done" id="linkDescargaRol" runat="server">
-                                                <i class="fa fa-download fa-3"></i>
-                                            </a>
+                                            <asp:LinkButton ID="LnkDescargarManualRol" runat="server" class="done" Text=" <i class='fa fa-download fa-3'></i>" OnClick="LnkDescargarManualRol_Click"></asp:LinkButton>
                                        </ContentTemplate>
+                                        <Triggers>
+                                            <asp:PostBackTrigger ControlID="LnkDescargarManualRol" />
+                                        </Triggers>
                                    </asp:UpdatePanel>
                                    <div class="task-content">
                                        <h4 class="uppercase bold">Manual del Rol
                                        </h4>
-
                                    </div>
                                </li>
                            </ul>
--- a/SigAyuda.aspx.vb
+++ b/SigAyuda.aspx.vb
@@ -28,7 +28,6 @@ Partial Class Metronic_SigAyuda
                    If ObjRoles.DtResultados IsNot Nothing AndAlso ObjRoles.DtResultados.Rows.Count = 1 Then
                        Me.Adjunto = ObjRoles.DtResultados.Rows(0)("Adjunto").ToString()
                        If Not String.IsNullOrEmpty(Me.Adjunto) Then
-                            linkDescargaRol.HRef = $"javascript:downFile('{Me.Adjunto}');"
                            DivPerfil.Visible = True
                        End If
                    End If
@@ -39,6 +38,26 @@ Partial Class Metronic_SigAyuda
            UpAdjunto.Update()
        End If
    End Sub
+    Private Sub DescargaArchivoDirecto(RutaArchivo As String)
+        If RutaArchivo <> "" Then
+
+            'Dim Path As String = String.Format("{0}\{1}", UsuarioActual.Empresa.Ruta, RutaArchivo)
+            Dim Archivo As New System.IO.FileInfo(RutaArchivo)
+
+            If Archivo.Exists Then
+                HttpContext.Current.Response.Clear()
+                HttpContext.Current.Response.ClearContent()
+                HttpContext.Current.Response.ContentType = "application/octet-stream"
+                HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name))
+                HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
+                HttpContext.Current.Response.TransmitFile(RutaArchivo)
+                'HttpContext.Current.Response.Flush()
+                HttpContext.Current.Response.End()
+            End If
+            Archivo = Nothing
+        End If
+    End Sub
+
    Protected Sub btnDownload_Click(sender As Object, e As EventArgs)
        Try
            Dim docto As String = TxtDocto.Text.Replace("/", "\")
@@ -67,4 +86,8 @@ Partial Class Metronic_SigAyuda
    End Sub


+
+    Protected Sub LnkDescargarManualRol_Click(sender As Object, e As EventArgs)
+        DescargaArchivoDirecto($"{UsuarioActual.Empresa.Ruta}Roles/{Me.Adjunto}")
+    End Sub
 End Class
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -7723,6 +7723,18 @@ Partial Class Ventas
        '    RBLPago.SelectedValue = "2"
        'End If

+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso Me.PermiteCredito Then
+            If IfNull(Request("Op"), "").ToString() = "Cot" OrElse (DdlTipoComprobante.SelectedValue = "Cot" AndAlso CveVenta > 0) Then
+                Dim CreditoDispo As Decimal = CargaCreditoDisponible(CveCliente, DdlSucursalCliente.SelectedValue.ToEntero())
+                If CreditoDispo > 0 Then
+                    TrCreditoDisponible.Visible = True
+                    LblCreditoDisponible.Text = CreditoDispo.FormatoNumero
+                    TrPorcentajeCredito.Visible = True : LblPorcentajeCredito.Text = $"{PorcentajeCredito.FormatoNumero}%"
+                End If
+
+            End If
+        End If
+
        If Not EsFilial AndAlso (((DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot", "PA") AndAlso CveVenta <= 0) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso CveVenta > 0)) AndAlso RBLPago.SelectedValue = "1" AndAlso PermiteCredito) Then
            'FUNCIONALIDAD 702 - NO VERIFICAR LIMITE DE CRÉDITO Y CANDADOS DE VENTA
            If Not UsuarioActual.Empresa.Funcionalidad(702) = "1" Then
@@ -19785,15 +19797,17 @@ Partial Class Ventas
                                Serie:=If(DIVCod.Visible, TxtCodigoSerie.Text.Trim, ""), TiempoEntrega:=TxtTiempoEntrega.Text, CuentaPredial:=TxtCuentaPredial.Text.Trim, RegeneraIEPS:=ClienteDesglosaIEPS, CvePromocionDetalle:=ObjDescuento.CvePromocionDetalle,
                                ImporteProntoPago:=ObjDescuento.ImporteProntoPago, ObjDescuento:=ObjDescuento, CvePrecioLista:=CvePrecioListaPS, PrecioLista:=PrecioListaPS, NumTurnos:=NumTurnos, Costo:=Costo)

+                'CALCULA EN BASE AL ULTIMO AGREGADO
+                If TmpDT.Rows.Count > 0 Then
+                    CalculaPSPromocionFiltrosLubricantes(TmpDT.Rows(TmpDT.Rows.Count - 1))
+                End If
+
                CalculaUsados()

                If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso ListaDescuentos IsNot Nothing AndAlso ObjDescuento IsNot Nothing Then
                    ListaDescuentos.Add(ObjDescuento)
                End If

-                'CALCULA EN BASE AL ULTIMO AGREGADO
-                CalculaPSPromocionFiltrosLubricantes(TmpDT.Rows(TmpDT.Rows.Count - 1))
-
                CalculaTotalesVenta()

                LimpiaAgregar()