-se activan las cuentas depósitos si tiene el proveedor
-- impresión de póliza, que no salga
This commit is contained in:
rrene
@@ -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) ")
|
||||
|
||||
@@ -504,8 +504,9 @@ Partial Class Bancos_ProveedoresAbonar
|
||||
End If
|
||||
|
||||
CargaDatos() '(tCveProveedor, CveMoneda, FechaI, FechaF, CveUsuarioRegistro, CveUsuarioProgramo, Serie)
|
||||
|
||||
'CUANDO VIENE PROGRAMADO LLENA EL TEXTO OBSERVACIONES
|
||||
CargaCuentasDepositos()
|
||||
|
||||
'CUANDO VIENE PROGRAMADO LLENA EL TEXTO OBSERVACIONES
|
||||
If CveUsuarioProgramo <> -1 Then RegistraScript("SumaValores();")
|
||||
|
||||
Else
|
||||
@@ -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 = ""
|
||||
@@ -2844,13 +2846,14 @@ Partial Class Bancos_ProveedoresAbonar
|
||||
params.Add(New ReportParameter("CLABE", CLABE))
|
||||
params.Add(New ReportParameter("Cuenta", Cuenta))
|
||||
params.Add(New ReportParameter("Correo", Correo))
|
||||
If Imagen.Exists Then
|
||||
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
|
||||
If Imagen.Exists Then
|
||||
params.Add(New ReportParameter("LogoPath", logouri))
|
||||
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
|
||||
|
||||
@@ -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>
|
||||
|
||||
@@ -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))
|
||||
'TmpDT.Columns.Add("CantidadFacturadaRem", GetType(Decimal))
|
||||
|
||||
|
||||
For Each dr As DataRow In ObjVentas.DtResultados.Rows
|
||||
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
|
||||
|
||||
Reference in New Issue
Block a user