From 466f1d5e1cd2aa7cecf8a7af55a6892e95ea4939 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 31 Dec 2024 07:28:19 -0700 Subject: [PATCH 1/7] -- mejora --- asmx/WS_PuntoVenta.asmx | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/asmx/WS_PuntoVenta.asmx b/asmx/WS_PuntoVenta.asmx index a5c0162e5..9cb46d77c 100644 --- a/asmx/WS_PuntoVenta.asmx +++ b/asmx/WS_PuntoVenta.asmx @@ -318,9 +318,9 @@ Public Class WS_PuntoVenta Public Alfa1 As String Public Alfa2 As String Public Alfa3 As String - Public Num1 As Double - Public Num2 As Double - Public Num3 As Double + Public Num1 As Decimal + Public Num2 As Decimal + Public Num3 As Decimal Public Fech1 As String Public Fech2 As String Public Fech3 As String From 187464e61ddede18b71bf703f458f92e1c32dc5b Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 31 Dec 2024 07:28:40 -0700 Subject: [PATCH 2/7] -- mejora en bloqueos --- Ventas/PVCobranza.aspx.vb | 6 +----- Ventas/Ventas.aspx.vb | 3 ++- 2 files changed, 3 insertions(+), 6 deletions(-) diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb index 6db207689..fdebc815a 100644 --- a/Ventas/PVCobranza.aspx.vb +++ b/Ventas/PVCobranza.aspx.vb @@ -384,15 +384,11 @@ Partial Class Ventas_PVCobranza If e.Row.DBCampo("CondicionesPago") = "1" Then ' remis de crédito ' si es de crédito debe de estar autorizado. e.Row.FCLinkButton("BtnPagar").Text = "Crédito" - If e.Row.DBCampo("CveEstatusAutorizacion").Contiene("", "2") Then ' si es vacío,significa que no requirió autorización, si es autorizada + If (e.Row.DBCampo("Bloqueada") = "False") OrElse (e.Row.DBCampo("Bloqueada") = "True" AndAlso e.Row.DBCampo("CveEstatusAutorizacion").Contiene("2")) Then ' si no está bloqueada o si fue bloqueda y autorizada e.Row.FCLinkButton("BtnPagar").CssClass = "btn btn-xs btn-warning" e.Row.FCLinkButton("BtnPagar").Enabled = True Else e.Row.FCLinkButton("BtnPagar").CssClass = "btn btn-xs btn-danger" - ' e.Row.FCLinkButton("BtnPagar").Enabled = False - 'e.Row.FCLinkButton("BtnPagar").OnClientClick = "alert('La solicitud de crédito no ha sido autorizada');return false;" - 'e.Row.FCLinkButton("BtnPagar").OnClientClick = "bootbox.dialog({message: 'La solicitud de crédito no ha sido autorizada ', className: ' header-yellow ', onEscape: function() { },title: ' Advertencia',buttons: { success: { label: '', className: ' hide',callback: function() { } }, danger: { label: '', className: ' hide',callback: function() { } },main: { label: 'Aceptar', className: ' yellow', callback: function() { } } } });return false;" - 'e.Row.FCLinkButton("BtnPagar") = e.Row.FCLinkButton("BtnPagar").Enabled = False e.Row.FCLinkButton("BtnPagar").OnClientClick = "bootbox.dialog({" & diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 2b18ea627..ffe7361e3 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -2449,6 +2449,7 @@ Partial Class Ventas Opcion = "" Index = 0 TotAnt = 0 + Bloqueada = False 'CargoComercioExterior = False DdlBPPS.setEsWebService(True) DdlBPPS.ddlWS.Attributes.Add("data-clear", "1") @@ -7714,7 +7715,7 @@ Partial Class Ventas Dim ValorAutorizacion As String = UsuarioActual.Empresa.Funcionalidad(595) 'solo para bdh, que se generen NC If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then DdlSolCreditoTipoDocto.Items.Add(New ListItem("Nota de crédito", "Egs")) - + Me.Bloqueada = False 'OBLIGAR PAGO DE CONTADO SI EL CLIENTE NO PERMITE CREDITO If Not EsFilial AndAlso (Not UsuarioActual.Empresa.Funcionalidad(702).Contiene("1")) AndAlso Me.PermiteCredito = False AndAlso ((DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot") AndAlso CveVenta < 1) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot", "PA") AndAlso EsCreaApartirDe) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso CveVenta > 0)) Then RBLPago.SelectedValue = "2" From 0a260d42bcc71340ed97c6315546cd393c47e184 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Tue, 31 Dec 2024 09:03:20 -0700 Subject: [PATCH 3/7] Gdiaz --- App_Code/ClsPaginas.vb | 10 +- Bancos/CuentasBancarias.aspx | 9 +- Compras/Compras.aspx.vb | 2 +- Compras/PopUpVerFactura.aspx.vb | 34 +- Empresas/189/Formatos/Entradas.rdlc | 854 +++++++++++++++++++++++++--- Ventas/CatPromociones.aspx | 7 +- Ventas/PVCobranza.aspx.vb | 7 +- Ventas/Promociones.aspx.vb | 7 +- 8 files changed, 854 insertions(+), 76 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 3e722fbae..989276d85 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -5154,12 +5154,20 @@ Public Class ClsPaginas ''' Opcional Nombre del archivo que se descarga ''' Optional, Formato de Generacion PDF o Excel ''' - Public Sub ImprimirPDF(RutaReporte As String, DtDatos As DataTable, Parametros As List(Of ReportParameter), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional RDSName As String = "DataSet1", Optional MR As ReportViewer = Nothing, Optional Content_Disposition As String = "attachment") + Public Sub ImprimirPDF(RutaReporte As String, DtDatos As DataTable, Parametros As List(Of ReportParameter), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional RDSName As String = "DataSet1", Optional MR As ReportViewer = Nothing, Optional Content_Disposition As String = "attachment", Optional DtDatos2 As DataTable = Nothing, Optional RDSName2 As String = "DataSet2") Dim lrds As New List(Of ReportDataSource) Dim rds As New ReportDataSource rds.Name = RDSName rds.Value = DtDatos lrds.Add(rds) + + If DtDatos2 IsNot Nothing Then + Dim rds2 As New ReportDataSource + rds2.Name = RDSName2 + rds2.Value = DtDatos2 + lrds.Add(rds2) + End If + ImprimirPDF(RutaReporte, lrds, Parametros, NombreArchivo, Formato, MR, Content_Disposition) End Sub Public Sub ImprimirPDFStimul(RutaReporte As String, DtDatos As DataTable, Parametros As List(Of ReportParameter), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional RDSName As String = "Datos", Optional Content_Disposition As String = "attachment") diff --git a/Bancos/CuentasBancarias.aspx b/Bancos/CuentasBancarias.aspx index af859f8e3..400814a62 100644 --- a/Bancos/CuentasBancarias.aspx +++ b/Bancos/CuentasBancarias.aspx @@ -24,9 +24,16 @@ + +
+ " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
+ - + diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index a97e39a4d..596806880 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -14893,7 +14893,7 @@ Partial Class Compras_Compras End If Next If TextoErrorOC <> "" Then - Alert($"Las siguientes Ordenes de Compra no se pudieron vincular automaticamente:
{TextoErrorOC}

Sera necesario vincular de manera manual mediante busqueda (lupia).", TipoMensaje.MsgAdvertencia) + Alert($"Las siguientes Ordenes de Compra no se pudieron vincular automaticamente:
{TextoErrorOC}

Sera necesario vincular de manera manual mediante busqueda (lupita).", TipoMensaje.MsgAdvertencia) TxtOC.Text = "" Exit Sub End If diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 5ad5f3e85..ad5b9c958 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -30,6 +30,17 @@ Partial Class PopUpVerFactura ViewState("DtDetalle") = value End Set End Property + + Public Property DTPrePoliza() As DataTable + Get + Return DirectCast(IfNull(ViewState("DTPrePoliza"), New DataTable, ViewState("DTPrePoliza")), DataTable) + End Get + Set(value As DataTable) + ViewState("DTPrePoliza") = value + End Set + End Property + + Public Property Opcion As String Get Return CType(ViewState("Opcion"), String) @@ -2776,6 +2787,7 @@ Partial Class PopUpVerFactura Dim ResponsableCarga As String = ObjInventarios.ResponsableCarga Dim ResponsableRecibio As String = ObjInventarios.ResponsableRecibio Dim UsuarioCapturo As String = ObjInventarios.DtResultados.FiltroPrimeroValor("UsuarioCapturo") + Dim CvePrePoliza As Integer = ObjInventarios.DtResultados.FiltroPrimeroValor("CvePrePoliza").ToEntero Dim Ruta As String = "" @@ -2921,6 +2933,18 @@ Partial Class PopUpVerFactura keys(0) = DtMovimientos.Columns("No") DtMovimientos.PrimaryKey = keys End If + + + If CvePrePoliza > 0 Then + Dim objConta As New ClsContabilidad + If objConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) AndAlso objConta.DtResultados.Rows.Count > 0 Then + 'DtDetalle = objConta.DtResultados.FiltraParametros("Contabilizable = 1", "Orden") + DTPrePoliza = objConta.DtResultados.FiltraParametros("Contabilizable = 1", "Orden") + End If + + objConta.Dispose() + End If + End If End If @@ -3080,13 +3104,16 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("Observaciones", Observaciones)) + + If UsuarioActual.CveEmpresa.Contiene(186, 189, 193, 189) Then params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) params.Add(New ReportParameter("NombreProveedor", If(CveCompra > 0, dr("RazonSocial").ToString, ""))) + Else + DTPrePoliza = Nothing End If - - If UsuarioActual.CveEmpresa.Contiene(72, 80, 193) Then + If UsuarioActual.CveEmpresa.Contiene(72, 80, 193, 186, 189, 193, 189) Then params.Add(New ReportParameter("NombreProveedor", If(CveCompra > 0, dr("RazonSocial").ToString, ""))) params.Add(New ReportParameter("DireccionProveedor", If(CveCompra > 0, dr("Direccion").ToString, ""))) params.Add(New ReportParameter("RFCProveedor", If(CveCompra > 0, dr("RFC").ToString, ""))) @@ -3105,7 +3132,8 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) End If - ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Entradas.rdlc", DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio), RDSName:="DsInventarios") + ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Entradas.rdlc", DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio), RDSName:="DsInventarios", DtDatos2:=DTPrePoliza, RDSName2:="DsPrePoliza") + ElseIf UsuarioActual.CveEmpresa = 140 Then params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) diff --git a/Empresas/189/Formatos/Entradas.rdlc b/Empresas/189/Formatos/Entradas.rdlc index 8e71cbee5..5738735b3 100644 --- a/Empresas/189/Formatos/Entradas.rdlc +++ b/Empresas/189/Formatos/Entradas.rdlc @@ -9,6 +9,13 @@ 1f7ab5df-1d00-4763-8479-9ab750b1589a + + + System.Data.DataSet + /* Local Connection */ + + 7ef92796-1755-4a85-b80c-8c8266256a94 + @@ -75,6 +82,94 @@ + + + DsPrePoliza + /* Local Query */ + + + + Id + System.Int32 + + + Fecha + System.DateTime + + + TipoPoliza + System.String + + + NombreCuenta + System.String + + + CodigoCuenta + System.String + + + Numero + System.Int32 + + + Folio + System.Int32 + + + Referencia + System.String + + + Concepto + System.String + + + ConceptoPoliza + System.String + + + TipoMovto + System.Int32 + + + Cargos + System.String + + + Abonos + System.String + + + SegNeg + System.String + + + Cargo + System.Decimal + + + Abono + System.Decimal + + + Codigo + System.String + + + NombreUsuario + System.String + + + + DataSet1 + C:\inetpub\wwwroot\ADSistemas\Ventas.root\Reportes\DataSet1.xsd + DataTable1 + + + + + @@ -121,7 +216,7 @@ CANT @@ -174,7 +269,7 @@ U.M. @@ -227,7 +322,7 @@ Código @@ -280,7 +375,7 @@ Descripción @@ -333,7 +428,7 @@ Código Prov. @@ -386,7 +481,7 @@ Costo Unit. @@ -439,7 +534,7 @@ Importe @@ -483,7 +578,7 @@ - 0.43773cm + 0.3cm @@ -497,7 +592,7 @@ =Fields!Cantidad.Value @@ -532,7 +627,7 @@ =Fields!UnidadMedida.Value @@ -566,7 +661,7 @@ =Fields!Codigo.Value @@ -600,7 +695,7 @@ =Fields!PS.Value @@ -632,7 +727,7 @@ =Fields!NumeroParte.Value @@ -664,7 +759,7 @@ =Fields!PU.Value @@ -700,7 +795,7 @@ =Fields!Total.Value @@ -752,7 +847,7 @@ DsInventarios 0.17639cm 0.12931cm - 0.87898cm + 0.74125cm 19.1693cm @@ -900,8 +995,8 @@ Textbox8 - 3.8986cm - 0.17882cm + 4.50934cm + 0.16513cm 0.97952cm 19.04079cm 3 @@ -925,6 +1020,7 @@ OBSERVACIONES: @@ -933,8 +1029,8 @@ Textbox5 - 3.11339cm - 0.18166cm + 3.79469cm + 0.16513cm 0.60882cm 3.98167cm 4 @@ -948,14 +1044,634 @@ 2pt + + + + + 1.96503cm + + + 5.43562cm + + + 7.7925cm + + + 1.85371cm + + + 2.07009cm + + + + + 0.44125cm + + + + + true + true + + + + + Cuenta + + + + + + + Textbox3 + + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + + LightGrey + + #e36c09 + + + + + + + + true + true + + + + + Descripción + + + + + + + Textbox6 + + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + + LightGrey + + #e36c09 + + + + + + + + true + true + + + + + Concepto + + + + + + + Textbox13 + + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + + LightGrey + + #e36c09 + + + + + + + + true + true + + + + + Cargos + + + + + + + Textbox16 + + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + + LightGrey + + #e36c09 + + + + + + + + true + true + + + + + Abonos + + + + + + + Textbox23 + + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + + LightGrey + + #e36c09 + + + + + + + + 0.3cm + + + + + true + true + + + + + =Fields!CodigoCuenta.Value + + + + + + + + + + + + + true + true + + + + + =Fields!NombreCuenta.Value + + + + + + + + + + + + + true + true + + + + + =Fields!Concepto.Value + + + + + + + + + + + + + true + true + + + + + =Fields!Cargo.Value + + + + + + + Cargos + + + + + + + + + + true + true + + + + + =Fields!Abono.Value + + + + + + + Abonos + + + + + + + + + + 0.43773cm + + + + + true + true + + + + + + + + + + + + + + + + + + true + true + + + + + + + + + + + + + + + + + + true + true + + + + + + + + + + + + + + + + + + true + true + + + + + =Sum(Fields!Cargo.Value) + + + + + + + Textbox32 + + + + + + + + + + true + true + + + + + =Sum(Fields!Abono.Value) + + + + + + + Textbox37 + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + Before + + + + DsPrePoliza + 2.33687cm + 0.18166cm + 1.17898cm + 19.11695cm + 5 + + + + - 1.94921in + 2.16097in @@ -1004,6 +1720,7 @@ Factura de: @@ -1016,7 +1733,7 @@ Proveedor: @@ -1024,13 +1741,14 @@ =Parameters!NombreProveedor.Value @@ -1042,7 +1760,7 @@ RFC: @@ -1050,13 +1768,14 @@ =Parameters!RFCProveedor.Value @@ -1068,7 +1787,7 @@ Teléfono: @@ -1076,14 +1795,14 @@ =Parameters!TelefonoProveedor.Value @@ -1095,7 +1814,7 @@ Contacto: @@ -1103,13 +1822,14 @@ =Parameters!ContactoProveedor.Value @@ -1117,9 +1837,9 @@ Textbox2 - 2.6797cm + 2.5527cm 0.18166cm - 2.14341cm + 1.87883cm 10.47411cm 1 @@ -1145,7 +1865,7 @@ Folio @@ -1153,7 +1873,7 @@ : @@ -1161,7 +1881,7 @@ =Parameters!Folio.Value @@ -1177,7 +1897,7 @@ Almacén: @@ -1185,7 +1905,7 @@ =Parameters!Almacen.Value @@ -1199,7 +1919,7 @@ Fecha: @@ -1207,7 +1927,7 @@ =Parameters!Fecha.Value @@ -1222,7 +1942,7 @@ Folio Factura del Proveedor: @@ -1230,7 +1950,7 @@ =Parameters!FacturaProveedor.Value @@ -1242,7 +1962,7 @@ Textbox50 0.74112cm 4.57254cm - 1.86797cm + 1.70222cm 14.64707cm 2 - 2.58967cm + 2.08167cm true true @@ -1303,7 +2023,7 @@ Usuario: @@ -1337,7 +2057,7 @@ =Parameters!UsuarioImprimio.Value @@ -1371,7 +2091,7 @@ Fecha Impresión: @@ -1405,7 +2125,7 @@ =Globals!ExecutionTime @@ -1441,7 +2161,7 @@ ="Página " & Globals.PageNumber & " de " & Globals.TotalPages @@ -1475,7 +2195,7 @@ IMPRESO EN SIG, Entradas / Salidas @@ -1502,7 +2222,7 @@ - 0.3175cm + 0.18344cm 1.19476cm 0cm 5.13525cm @@ -1521,7 +2241,9 @@ =Parameters!NombreRecibio.Value - - 0.3175cm + 0.18344cm 13.20536cm 0cm 5.24108cm @@ -1566,7 +2288,9 @@ =Parameters!NombreEntrego.Value -