-se activan las cuentas depósitos si tiene el proveedor

-- impresión de póliza, que no salga

App_Code/ClsContPAQi.vb

@@ -7360,20 +7360,30 @@ Public Class ClsContPAQi
         StrSQL.Append("         AND (@CveUsuario = -1 OR  P.IdUsuario = @CveUsuario)  ")
         StrSQL.Append("  END; ")
 
+        StrSQL.Append("  DECLARE @DtProv TABLE (IdPoliza INT INDEX IX1 CLUSTERED)   ")
+        StrSQL.Append("  IF @CveTipoProveedor > 0   ")
+        StrSQL.Append("  BEGIN    ")
+        StrSQL.Append("     INSERT INTO @DtProv SELECT PP.IdPoliza  
+                                FROM SERVIDOR.Ventas.dbo.Conta_PrePolizasDetalle PPD ")
+        StrSQL.Append("             INNER JOIN SERVIDOR.Ventas.dbo.Conta_PrePolizas PP ON PP.CvePrePoliza = PPD.CvePrePoliza 
+                                    INNER JOIN SERVIDOR.Ventas.dbo.Comp_Proveedores Prov ON Prov.CveProveedor = PPD.CveProveedor  and PP.IdPoliza > 0
+                                AND Prov.CveTipoProveedor = @CveTipoProveedor AND Prov.CveEmpresa = @CveEmpresa 
+                                AND  PP.Fecha >= @Inicio AND PP.Fecha <= @Fin")
+        StrSQL.Append("  END; ")
+
         StrSQL.Append("  SELECT P.Id,P.Fecha,T.Nombre as TipoPoliza, MP.IdPoliza, P.IdUsuario, P.Concepto AS ConceptoPoliza,P.Cargos,P.Abonos,P.Folio ,P.Folio AS Numero , SN.Nombre AS SegNeg, MP.Concepto, ")
         StrSQL.Append("     CASE WHEN ISNUMERIC(C.CODIGO) = 1 THEN FORMAT(CAST (C.CODIGO AS FLOAT),(SELECT  REPLACE(Mascarilla,'X','0') FROM Parametros)) ELSE C.CODIGO END AS CuentaFormato , MP.TipoMovto    ")
         StrSQL.Append("     ,C.Nombre AS Cuenta ,MP.Referencia AS Referencia, CASE WHEN MP.TipoMovto=0 THEN MP.Importe ELSE 0 END AS Cargo  ")
         StrSQL.Append("     , CASE WHEN MP.TipoMovto=1 THEN MP.Importe ELSE 0 END AS Abono,U.Nombre  AS UsuarioRegistro ")
         StrSQL.Append("   FROM Polizas  P ")
         StrSQL.Append("   LEFT JOIN MovimientosPoliza MP ON P.Id= MP.IdPoliza  ")
-        StrSQL.Append("   LEFT JOIN SERVIDOR.Ventas.dbo.Conta_PrePolizasDetalle PPD ON PPD.CvePrePolizaDetalle = MP.CvePrePolizaDetalle  ")
+
-        StrSQL.Append("   LEFT JOIN SERVIDOR.Ventas.dbo.Conta_PrePolizas PP ON PP.CvePrePoliza = PPD.CvePrePoliza  ")
         StrSQL.Append("   LEFT JOIN SERVIDOR.Ventas.dbo.Usuarios U ON U.CveUsuario = P.IdUsuario  ")
         StrSQL.Append("   LEFT JOIN Cuentas C ON C.Id = MP.IdCuenta  ")
         StrSQL.Append("   LEFT JOIN TiposPolizas T ON T.Id = P.TipoPol  ")
         StrSQL.Append("	  LEFT JOIN SegmentosNegocio SN ON SN.Id = MP.IdSegNeg ")
         StrSQL.Append("   WHERE P.Fecha >= @Inicio AND P.Fecha <= @Fin ")
-        StrSQL.Append("     AND (@CveTipoProveedor = -1 OR PPD.CveProveedor in (SELECT CveProveedor FROM SERVIDOR.Ventas.dbo.Comp_Proveedores POV WHERE POV.CveEmpresa = @CveEmpresa AND POV.CveTipoProveedor = @CveTipoProveedor))  ")
+        StrSQL.Append("     AND (@CveTipoProveedor = -1 OR ( MP.IdPoliza IN (SELECT IdPoliza FROM @DtProv)))  ")
         StrSQL.Append("     AND (@FolioI = -1 OR  P.Folio >= @FolioI)  ")
         StrSQL.Append("     AND (@FolioF = -1 OR  P.Folio <= @FolioF)  ")
         StrSQL.Append("     AND (@TipoP=-1 OR @TipoP  =P.TipoPol)  ")

Bancos/ProveedoresAbonar.aspx.vb

@@ -504,6 +504,7 @@ Partial Class Bancos_ProveedoresAbonar
                 End If
 
                 CargaDatos() '(tCveProveedor, CveMoneda, FechaI, FechaF, CveUsuarioRegistro, CveUsuarioProgramo, Serie)
+                CargaCuentasDepositos()
 
                 'CUANDO VIENE PROGRAMADO LLENA EL TEXTO OBSERVACIONES
                 If CveUsuarioProgramo <> -1 Then RegistraScript("SumaValores();")
@@ -2817,12 +2818,13 @@ Partial Class Bancos_ProveedoresAbonar
         If DtDatos.Rows.Count > 0 Then
             Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
             Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+            Dim StrImporte As String = DtDatos.Rows(0)("Saldo").ToString.FormatoNumero
             Dim params As New List(Of ReportParameter)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
             params.Add(New ReportParameter("Sucursal", DtDatos.Rows(1)("SubProyecto").ToString))
-            params.Add(New ReportParameter("Importe", $"${DtDatos.Rows(0)("Saldo").ToString.FormatoNumero}"))
+            params.Add(New ReportParameter("Importe", $"${StrImporte}"))
             params.Add(New ReportParameter("RazonSocial", TxtPagueseA.Text))
             params.Add(New ReportParameter("Fecha", TxtFechaDocumento.Text))
             Dim Transferencia = "", Banco = "", CLABE = "", Cuenta = "", Correo = ""
@@ -2845,12 +2847,13 @@ Partial Class Bancos_ProveedoresAbonar
             params.Add(New ReportParameter("Cuenta", Cuenta))
             params.Add(New ReportParameter("Correo", Correo))
             If Imagen.Exists Then
-                    params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", logouri))
-                Else
-                    params.Add(New ReportParameter("LogoPath", ""))
-                End If
-                ImprimirPDF("Empresas/Grales/Formatos/Solicitud.rdlc", DtDatos, params, "Solicitud", Opcion)
             Else
+                params.Add(New ReportParameter("LogoPath", ""))
+            End If
+            Dim NombreArchivo As String = "SolicitudPago" ''String.Format("SolicitudPago{0}.pdf", TxtPagueseA.Text).Replace(" ", "")
+            ImprimirPDF("Empresas/Grales/Formatos/Solicitud.rdlc", DtDatos, params, NombreArchivo, Opcion)
+        Else
                 Alert("No se encontraron datos.", TipoMensaje.MsgAdvertencia)
         End If
     End Sub

Contabilidad/PolizasImpresion.aspx

@@ -109,7 +109,7 @@
             </div>
         </div>
     </asp:Panel>
-    <rvweb:ReportViewer ID="ReportViewer1" Width="100%" runat="server"></rvweb:ReportViewer>
+     
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
 </asp:Content>

Ventas/Ventas.aspx.vb

@@ -3344,7 +3344,7 @@ Partial Class Ventas
                 Dim Cons As Integer = 1
                 For Each dr As DataRow In OS.DtResultados.FiltraParametros("SeFacturara = 1 ").Rows
 
-                    AgregarProductoServicio(dr("Cantidad").ToString.ToDecimal, dr("CveUM").ToString.ToEntero, dr("UM").ToString, -1, "", dr("CvePS").ToString.ToEntero, "", dr("Obs").ToString, dr("PU"), 0, -1, "",
+                    AgregarProductoServicio(dr("Cantidad").ToString.ToDecimal, dr("CveUM").ToString.ToEntero, dr("UM").ToString, -1, "", dr("CvePS").ToString.ToEntero, "", dr("Obs").ToString, dr("PU").ToString.ToDecimal, 0, -1, "",
                                                 dr("CveSubProyecto").ToString.ToEntero, dr("SubProyecto").ToString)
                     'Dim drt As DataRow = TmpDT.NewRow
 
@@ -4217,6 +4217,11 @@ Partial Class Ventas
                         BtnPermisoEditarCotizacion.Visible = True
                     End If
 
+                    'SOLO LA PUEDE EDITAR USUATIOACTUAL-VENDEDOR | NO DEBE ESTAR FACTURADA
+                    If UsuarioActual.TienePermisoProceso(281) And TmpDT.SUM("CantidadFacturadaCot") = 0 Then 'And TmpDT.SUM("CantidadFacturadaCot") < TmpDT.SUM("Cantidad") 
+                        BtnPermisoEditarCotizacion.Visible = True
+                    End If
+
                     'ACTIVA BOTONERA | DEBE TENER CONCEPTOS PENDIENTES DE FACTURAR
                     If TmpDT.SUM("CantidadFacturadaCot") < TmpDT.SUM("Cantidad") AndAlso DdlTipoComprobante.SelectedValue.Contiene("Cot") Then
                         BtnGenerarRemision.Visible = If(CveEstatus = 10, False, True)
@@ -4279,10 +4284,21 @@ Partial Class Ventas
 
                 'CargaDetalle
                 If ObjVentas.GetVentaDetalle(CveVenta) Then
-                    TmpDT = ObjVentas.DtResultados
+
-                    TmpDT.Columns.Add("EntregaDirecta", GetType(Integer))
+
-                    TmpDT.Columns.Add("CveMovimientoDetallePedido", GetType(Integer))
+                    For Each dr As DataRow In ObjVentas.DtResultados.Rows
-                    'TmpDT.Columns.Add("CantidadFacturadaRem", GetType(Decimal))
+                        AgregarProductoServicio(dr("Cantidad").ToString.ToDecimal, dr("CveUM").ToString.ToEntero, dr("UM").ToString, dr("CveClasificacion").ToString.ToEntero, dr("Clasificacion").ToString,
+                                        dr("CvePS").ToString.ToEntero, dr("PS").ToString, dr("Obs").ToString, dr("PU").ToString.ToDecimal, dr("Descuento").ToString.ToDecimal,
+                                        dr("CveProyecto").ToString.ToEntero, dr("Proyecto").ToString, dr("CveSubProyecto").ToString.ToEntero, dr("SubProyecto").ToString,
+                                        CveContratoDetalle:=dr("CveContratoDetalle").ToString.ToEntero, CveVentaDetalleCotizacion:=dr("CveVentaDetalleCotizacion").ToString.ToEntero, RegeneraIEPS:=False, SeActualiza:=True)
+
+
+                    Next
+
+                    'TmpDT = ObjVentas.DtResultados
+                    'TmpDT.Columns.Add("EntregaDirecta", GetType(Integer))
+                    'TmpDT.Columns.Add("CveMovimientoDetallePedido", GetType(Integer))
+                    ''TmpDT.Columns.Add("CantidadFacturadaRem", GetType(Decimal))
                     GvPS.DataSource = ObjVentas.DtResultados
                     GvPS.DataBind()
                 End If