From 843c122811f0afc7267ae9db53d70dc43b6c5fbf Mon Sep 17 00:00:00 2001 From: RPimienta Date: Wed, 25 Sep 2024 21:43:09 -0600 Subject: [PATCH 01/18] Actualizacion a saldos iniciales para que corrija diferencias en compras --- General/SaldosIniciales.aspx.vb | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index 786b351da..db74efea7 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -1799,6 +1799,21 @@ Partial Class General_SaldosIniciales Dim CveClasificacion As Integer = drr("CveClasificacion").ToString().ToEntero() Dim dtsubp As DataTable = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) + If UsuarioActual.CveEmpresa = 189 Then + For Each Row As DataRow In dt.FiltraParametros("RFC <> ''").Rows + Dim SubTotal = Row("SubTotal").ToString().ToDecimal.RoundSQL + Dim IVA = Row("IVA").ToString().ToDecimal.RoundSQL + Dim Total = Row("Total").ToString().ToDecimal.RoundSQL + Dim Cantidad = Row("Cantidad").ToString.ToDecimal + Dim PU = Row("PU").ToString.ToDecimal + + If Total - SubTotal - IVA <> 0 Then + Row("PU") = (Total - IVA) / Cantidad + Row("SubTotal") = Row("PU").ToString.ToDecimal * Cantidad + End If + Next + End If + Dim CountRow As Integer = 1 Dim LastSerieFolioTipoDoc As String = String.Empty Dim EsDetalle As Boolean = False From f6d9d0e8097ef90decc93ecccec50730a4f72741 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 26 Sep 2024 17:27:57 -0700 Subject: [PATCH 02/18] =?UTF-8?q?--=20nombre=20descarga=20vista=20previa?= =?UTF-8?q?=20--=20SMS,=20activaci=C3=B3n=20de=20fecha=20cx,=20en=20cotiza?= =?UTF-8?q?ci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/Ventas.aspx.vb | 21 ++++++++++++++++----- 1 file changed, 16 insertions(+), 5 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index d1c800ec4..64aae4db1 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -16868,7 +16868,18 @@ Partial Class Ventas CartaPorte.Parametros.Add(New ReportParameter($"TieneCartaPorte", "False")) End If - ImprimirbytesPDF(PdfFactura(ObjFactura, Guardar:=False, SubReportData:=CartaPorte), "Factura", "PDF") + Dim tNombreSugerido As String = "Vista Previa - Factura" + Select Case DdlTipoComprobante.SelectedValue + Case "Cot" + tNombreSugerido = "Vista Previa - Cotización" + Case "Egs" + tNombreSugerido = "Vista Previa - Egreso" + Case "Ant" + tNombreSugerido = "Vista Previa - Anticipo" + End Select + tNombreSugerido = tNombreSugerido & " - " & LblSerie.Text & "-" & TxtFolio.Text + + ImprimirbytesPDF(PdfFactura(ObjFactura, Guardar:=False, SubReportData:=CartaPorte), tNombreSugerido, "PDF") End Sub @@ -38493,11 +38504,11 @@ Partial Class Ventas item.Text = $"  {item.Text}" Next - If Opcion <> "Cot" Then - RegistraScript("$('#DvModalTipoVenta').modal({ backdrop: 'static', keyboard: false });") - Else - TrVentasMedicas2.Visible = False + If Opcion = "Cot" Then + 'TrVentasMedicas2.Visible = False TrVentasMedicas3.Visible = False + Else + RegistraScript("$('#DvModalTipoVenta').modal({ backdrop: 'static', keyboard: false });") End If End Sub From 095f07d71dbafcd2a6a52f862cde5a925327b062 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 26 Sep 2024 17:35:16 -0700 Subject: [PATCH 03/18] =?UTF-8?q?--=20validar=20si=20el=20movto=20de=20alm?= =?UTF-8?q?acen,=20corresponde=20a=20la=20OC,=20junto=20con=20la=20prep?= =?UTF-8?q?=C3=B3liza?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- OC/OC.aspx.vb | 20 +++++++++++++------- 1 file changed, 13 insertions(+), 7 deletions(-) diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index eab349a5b..aff991241 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -81,6 +81,15 @@ Partial Class OC_OC ViewState("CveOrdenCompra") = value End Set End Property + + Private Property InventarioPrePoliza176 As Integer + Get + InventarioPrePoliza176 = ViewState("InventarioPrePoliza176").ToString.ToEntero + End Get + Set(value As Integer) + ViewState("InventarioPrePoliza176") = value + End Set + End Property Private Property CveIEAnticipo As Integer Get CveIEAnticipo = ViewState("CveIEAnticipo").ToString.ToEntero @@ -631,11 +640,6 @@ Partial Class OC_OC End Set End Property - - - - - #End Region Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load @@ -644,6 +648,7 @@ Partial Class OC_OC GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa) = Nothing CargaDatosAgregarPS() CveProveedorOriginal = -1 + InventarioPrePoliza176 = 0 'EnviarNotificacionWhatsApp("526621430964", "hola34 https:/sig.adssistemas.mx/ventas/ventas.aspx") 'EnviarNotificacionWhatsApp("526621430964", "", "hello_world") 'MODALIDAD MULTIEMPRESA @@ -1034,7 +1039,7 @@ Partial Class OC_OC Private Sub ValidaCancelacionConAlamcen() - If BtnCancelarPrevio.Visible AndAlso BtnCancelarPrevio.Enabled And GVInv.Rows.Count > 0 Then + If BtnCancelarPrevio.Visible AndAlso BtnCancelarPrevio.Enabled And InventarioPrePoliza176 > 0 Then 'BtnCancelarPrevio.Attributes.Remove("onclick") BtnCancelarPrevio.Attributes.Add("Data-toggle", "tooltip") BtnCancelarPrevio.Attributes.Add("Title", "La orden de compra no se puede cancelar porque tiene movimientos de almacén.") @@ -7405,16 +7410,17 @@ Partial Class OC_OC GVInv.DataSource = ObjInventarios.DtResultados If ObjInventarios.DtResultados.Rows.Count > 0 Then DdlMoneda.Enabled = False + InventarioPrePoliza176 = ObjInventarios.DtResultados.MAX("PrePoliza176").ToEntero Dim TipoEstatusTerminado As String = GlobalDTOCEstatus(UsuarioActual.CveEmpresa).FiltroPrimeroValor("TipoTermino", String.Format("CveEstatus = {0}", CboE.SelectedValue)) If TipoEstatusTerminado = "3" Then LnkCambiarMoneda.Visible = True End If End If End If - GVInv.DataBind() End If ObjInventarios.Dispose() + GVInv.DataBind() UpAlmacen.Update() UpAcciones.Update() End If From 63be7bc6b83bb9d16f179e1a0ecaabe8d79b010d Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 26 Sep 2024 17:35:23 -0700 Subject: [PATCH 04/18] -- mejora --- OS/OrdenesServicios.aspx | 2 +- OS/OrdenesServicios.aspx.vb | 7 +++---- 2 files changed, 4 insertions(+), 5 deletions(-) diff --git a/OS/OrdenesServicios.aspx b/OS/OrdenesServicios.aspx index ef642499f..5dc62b359 100644 --- a/OS/OrdenesServicios.aspx +++ b/OS/OrdenesServicios.aspx @@ -1351,7 +1351,7 @@
- +
diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index d116062a3..19a47c992 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -3015,7 +3015,7 @@ Partial Class OS_OrdenesServicios TxtEpisodioModal.Text = TxtIdentificadorCliente.Text TxtFolioRemisionModal.Text = TxtFolioAdicional.Text - If DdlTipoVenta.SelectedValue.ToEntero = 5 Then + If DdlTipoVenta.SelectedValue = "5" Then DvTxtFolioRemisionModal.Visible = False Else DvTxtFolioRemisionModal.Visible = True @@ -3082,7 +3082,7 @@ Partial Class OS_OrdenesServicios End If End If - If TotalSeleccionado > 0 AndAlso Not TxtFolioRemisionModal.Text.Trim.Length > 0 Then + If TotalSeleccionado > 0 AndAlso DvTxtFolioRemisionModal.Visible AndAlso TxtFolioRemisionModal.Text.Trim.Length = 0 Then Alert("El campo Folio es requerido por favor ingréselo.", TipoMensaje.MsgAdvertencia) Exit Sub End If @@ -3091,7 +3091,6 @@ Partial Class OS_OrdenesServicios Dim CveAlmacenActual As Integer = DTSolicitudDev.FiltroPrimeroValor("CveAlmacenActual").ToEntero Dim CveMoneda As Integer = DTSolicitudDev.FiltroPrimeroValor("CveMoneda").ToEntero - Dim CveVentaPedido As Integer = DTSolicitudDev.FiltroPrimeroValor("CveVenta").ToEntero Dim CveVentaRemisionGenerada As Integer = -1 @@ -3104,7 +3103,7 @@ Partial Class OS_OrdenesServicios If DdlTipoVenta.SelectedValue = "5" Then 'Consignación - Uso Material 'genera una salida de almacen. Dim Fecha As DateTime = ClsPaginas.NowADS() - Dim CveMovimientoSalida As Integer = ObjInventario.AddMovimiento(CveAlmacenActual, 8, CveMoneda, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, CveSubProyectoPedido, -1, CveOS:=CveOS, CveAlmacenDestino:=CveAlmacenDestino, Modulo:="OS/MatUtilConsig") + Dim CveMovimientoSalida As Integer = ObjInventario.AddMovimiento(CveAlmacenActual, 8, CveMoneda, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaPedido, CveSubProyectoPedido, -1, CveOS:=CveOS, CveAlmacenDestino:=CveAlmacenDestino, Modulo:="OS/MatUtilConsig") Dim Folio As Integer = ObjInventario.Folio If CveMovimientoSalida > 0 Then From 24b3a85d59da979d5bd76dc764d7ceef434f2758 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 26 Sep 2024 17:35:33 -0700 Subject: [PATCH 05/18] =?UTF-8?q?--=20mejora=20en=20validaci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Sistemas/UsuarioDetalle.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb index 90c180f2c..ab86e0424 100644 --- a/Sistemas/UsuarioDetalle.aspx.vb +++ b/Sistemas/UsuarioDetalle.aspx.vb @@ -909,7 +909,7 @@ Partial Class Sistemas_UsuarioDetalle If Row.DataKey("CveProcesoAcceso") <> "" Then 'checo si el permiso que tiene es del rol, de ser así, nada más actualizo los denegados - If Row.DataKey("Permitir") = "" AndAlso Row.FCCheckBox("ChkD").Checked OrElse Row.DataKey("Permitir") = "0" AndAlso Row.FCCheckBox("ChkD").Checked = False Then + If (Row.DataKey("Permitir") = "" AndAlso Row.FCCheckBox("ChkD").Checked) OrElse (Row.DataKey("Permitir") = "0" AndAlso Row.FCCheckBox("ChkD").Checked = False) Then If Not ObjUsuarios.UpdateUsuariosProcesos(CveUsuario, Row.DataKey("CveProceso").ToEntero, Not Row.FCCheckBox("ChkD").Checked, UsuarioActual.CveUsuario) Then TieneError = True Exit For From 7a2f85402874e0ccd15e736210b3b42b2ff55b8e Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 26 Sep 2024 17:35:49 -0700 Subject: [PATCH 06/18] =?UTF-8?q?--=20validaci=C3=B3n=20de=20renombrado=20?= =?UTF-8?q?de=20bit=C3=A1cora?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/RecepcionAlmacen.aspx.vb | 21 ++++++++++++--------- 1 file changed, 12 insertions(+), 9 deletions(-) diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index f55a1f55e..def2e8d5f 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -3788,17 +3788,20 @@ Partial Class Inventarios_RecepcionAlmacen Private Sub RenombrarBitacoras() Dim fechaActual As String = DateTime.Now.ToString("yyyyMMddHHmmss") - Dim fib As New FileInfo(ArchivoBitacora) - Dim fibd As New FileInfo(ArchivoBitacoraDetalle) - If fib.Exists() Then - Dim nuevoNombre As String = Path.Combine(fib.DirectoryName, Path.GetFileNameWithoutExtension(fib.Name) & "_" & fechaActual & ".xml") - fib.MoveTo(nuevoNombre) + If ArchivoBitacora <> "" Then + Dim fib As New FileInfo(ArchivoBitacora) + If fib.Exists() Then + Dim nuevoNombre As String = Path.Combine(fib.DirectoryName, Path.GetFileNameWithoutExtension(fib.Name) & "_" & fechaActual & ".xml") + fib.MoveTo(nuevoNombre) + End If End If - - If fibd.Exists() Then - Dim nuevoNombreDetalle As String = Path.Combine(fibd.DirectoryName, Path.GetFileNameWithoutExtension(fibd.Name) & "_" & fechaActual & ".xml") - fibd.MoveTo(nuevoNombreDetalle) + If ArchivoBitacoraDetalle <> "" Then + Dim fibd As New FileInfo(ArchivoBitacoraDetalle) + If fibd.Exists() Then + Dim nuevoNombreDetalle As String = Path.Combine(fibd.DirectoryName, Path.GetFileNameWithoutExtension(fibd.Name) & "_" & fechaActual & ".xml") + fibd.MoveTo(nuevoNombreDetalle) + End If End If End Sub From cacd261747b917cbeb19747fb75d0989558021b1 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 26 Sep 2024 17:36:14 -0700 Subject: [PATCH 07/18] -- parametro adicional de cvesubproyecto --- App_Code/ClsContabilidad.vb | 6 ++---- Ventas/AuxiliarCliente.aspx | 5 +++++ Ventas/AuxiliarCliente.aspx.vb | 4 +--- 3 files changed, 8 insertions(+), 7 deletions(-) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index e21cb2136..cda545d68 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -437,19 +437,17 @@ Public Class ClsContabilidad Return Retorno End Function - Public Function GetClienteAuxiliar(CveCliente As Integer, CveConceptoContable As Integer, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, Optional Opcion As Integer = 1) As Boolean + Public Function GetClienteAuxiliar(CveCliente As Integer, CveConceptoContable As Integer, CveSubProyecto As Integer, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, Optional Opcion As Integer = 1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Conta_ClienteAuxiliar") With SqlAdapter.SelectCommand.Parameters - .Add("@CveCliente", SqlDbType.Int).Value = CveCliente .Add("@CveConceptoContable", SqlDbType.Int).Value = CveConceptoContable - + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio .Add("@FechaFin", SqlDbType.Date).Value = FechaFin - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@Opcion", SqlDbType.Int).Value = Opcion End With diff --git a/Ventas/AuxiliarCliente.aspx b/Ventas/AuxiliarCliente.aspx index 86e5822cd..b7fac9e64 100644 --- a/Ventas/AuxiliarCliente.aspx +++ b/Ventas/AuxiliarCliente.aspx @@ -119,6 +119,11 @@ + + Sucursal: +
+ +
diff --git a/Ventas/AuxiliarCliente.aspx.vb b/Ventas/AuxiliarCliente.aspx.vb index 780126fa8..26bbb200f 100644 --- a/Ventas/AuxiliarCliente.aspx.vb +++ b/Ventas/AuxiliarCliente.aspx.vb @@ -40,8 +40,6 @@ Partial Class Ventas_AuxiliarCliente End If End Sub - - Private Sub CargaFiltros() If (UsuarioActual.Empresa.Funcionalidad(105) = "1") Then @@ -59,7 +57,7 @@ Partial Class Ventas_AuxiliarCliente 'DdlConceptosContables.DataSource = GlobalDTContaConceptosContables(-1) 'DdlConceptosContables.DataBind() 'DdlConceptosContables.Items.Insert(0, New ListItem("Todos", "-1")) - + CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto) txtFechaI.Text = NowADS().AddDays(-30).ToString("dd/MM/yyyy") txtFechaF.Text = NowADS().ToString("dd/MM/yyyy") From a64e3cefe24389c0e47d4c94f90fce0eb2b410e3 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 26 Sep 2024 17:45:53 -0700 Subject: [PATCH 08/18] -- mejora en carga imagen AF --- AF/AF.aspx.vb | 8 +++----- App_Code/ClsAF.vb | 9 +++++---- ...icrosoft.ReportViewer.WebForms.resources.dll | Bin 50120 -> 0 bytes 3 files changed, 8 insertions(+), 9 deletions(-) delete mode 100644 Bin/ja/Microsoft.ReportViewer.WebForms.resources.dll diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb index 2205fdfb2..0bc3e00f1 100644 --- a/AF/AF.aspx.vb +++ b/AF/AF.aspx.vb @@ -2394,10 +2394,10 @@ Partial Class AF_AF End If NewName = String.Format("{0}{1}", NewName, IO.Path.GetExtension(DirectorioOld.ToString())) DirectorioNew.Append(NewName) - If ObjActivosFijos.AddActivosFijosImagenes(CveActivoFijo, String.Format("AF/{0}", NewName), UsuarioActual.CveUsuario) Then + If ObjActivosFijos.AddActivosFijosImagenes(CveActivoFijo, String.Format("AF/{0}", NewName), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) > 0 Then CargarArchivo() - My.Computer.FileSystem.MoveFile(DirectorioOld.ToString, DirectorioNew.ToString) - Else + My.Computer.FileSystem.MoveFile(DirectorioOld.ToString, DirectorioNew.ToString) + End If Retorno = True Catch ex As Exception @@ -2409,8 +2409,6 @@ Partial Class AF_AF UpUpFotos.Update() Next - - End Sub Protected Sub BtnEliminarFoto_Click(sender As Object, e As System.EventArgs) diff --git a/App_Code/ClsAF.vb b/App_Code/ClsAF.vb index eb935027b..45ba33114 100644 --- a/App_Code/ClsAF.vb +++ b/App_Code/ClsAF.vb @@ -698,20 +698,21 @@ Public Class ClsAF Return Retorno End Function - Public Function AddActivosFijosImagenes(CveActivoFijo As Integer, URL As String, CveUsuario As Integer) As Boolean - Dim Retorno As Boolean = False + Public Function AddActivosFijosImagenes(CveActivoFijo As Integer, URL As String, CveUsuario As Integer, CveEmpresa As Integer) As Integer + Dim Retorno As Integer = 0 DataAdapter("PA_AF_ActivosFijosImagenesAdd") - With SqlAdapter.SelectCommand.Parameters .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo .Add("@URL", SqlDbType.VarChar).Value = URL .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveImagenActivoFijo", SqlDbType.Int).Direction = ParameterDirection.Output End With Try SqlAdapter.Fill(Data) - Retorno = True + Retorno = SqlAdapter.SelectCommand.Parameters("@CveImagenActivoFijo").Value.ToString().ToEntero() Catch Ex1 As SqlException If Ex1.Message.Contains("Número: 2627;") Then Alert("Ya existe una Imagen en Fijo Imagenes con el mismo nombre: " & Descripcion & ".", TipoMensaje.MsgAdvertencia) diff --git a/Bin/ja/Microsoft.ReportViewer.WebForms.resources.dll b/Bin/ja/Microsoft.ReportViewer.WebForms.resources.dll deleted file mode 100644 index 7a96469e40e7fea5b295a851c2d0ed4949891c6e..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 50120 zcmeHw2V4|M)AtO)fS3~|ToDxmuz+F?Afl)!0_I3q6(zZVh>=~)h&f?I&y0eYGv+g# zIp?rM&vd3!PrdJ7GdsJp0q~yZd4KQwz2CRG?9NPecXf4jRdrQ$ulIoYj48t~W_bVo zH^UsjC%rmwe+&N;kH=+dA1cG_DS4^R0k-?4I{qU=q9l>>h!OIDFiB8Acz8s#Bv2-i z$An8l!X+L({Ul)#!7_)^r7djLRr_>enC`48WB14+NNDXTV^XISTZ&;8;!X+vuJulQ zO7K38H(@8ihY622zH#`|C&RGZ{r0n1^sB=(hAGGW*M6!md0^&rI>Yp(@5dR&iijY* zRx!-E2Do_2FqXo-fAT5Opw5*lf$J`!@($6manZQ8osU0w#`P8b5x*o1Gt5CAB`3mg zxE;rrVt6mcTlDGxf;h-!p%DP&aD9r0RM!f;MXwGF<1V`7zY<;XBHTiaNgtU!DkLJjZBqv+{c9rW7!w*DBbT)em&HWO145ffd}0Da zLxQ@=;`}2<%fj0RHg6u#EU1~QQ%jeoGHHvJbqyPf36Bm5lL@W+$)bramDD}(ar2=6 z>oc9=_wQ~r)qTYK<%*A{D>q$jxusED)Y*?iF1|Q&Rat!W`(33+-Q8Qx-uYCGiIPlf zkA78be!qOrDeLJ%X9v56t{a2ix`rIK@8a$K#ix(0wSNWBZzGx*hxZ$_cMk9Vcs~VE z#^CLb_jp`O@wNv{NqnxxdoS+4#dTYhr&nEEufY2__|nde3Bo@a6NP^vOdu1A?;V+u zOaLQiqM7da48)yKuApb(z&!vw7L|;^XEZ(|m~f^us)=A?m`G7o)lr$zcD7qvV!Vh9fYAm8lqg{34tfQk^P?Fz ze2ZrMQ8NLr#Y0;UTnxwK819h=8Vq8*aV@40CJR%Ae-s0n$WT|b8t4!n)$f8Ty@6&^ zMvA{wLjY4NgXC?&?oA9Y7?c!mJKe5%hIQ<`tQ z;D#%LxoY~MB(abi7%NDR5K;hG3jjnALlAF()Tj1G;2#Z*AL=5$BK9Plh{Ta7C}Tze z)W$eyC(u0-fZ^y`7&Y1(U!&BR5v_CwD3ThL18pyWjYT;kYA{G5;~1Of2|XE(3Z??I zks+ubK!SiJ&;6ZH74g5En{TX@Dq*`SVYMpZh$>;GN|B~g?o=ggRV6H8tqXc0v6oDc zPGT$TJ@rA-0rzXh8UANk~}02pMb1 zA(zVGx{R%r@H50WMJ`tWhN-s1la3CA#=~cb7oCvgY)y8EaPnjVCsFdreIc2I!xj~h%v>{s~XZei$l<6wP=BxvoREmQ+D>GG! znK=hQyG*u5esWTQ4_SMbZOm2>7gH&=sT9lDO1V?lWzRl{D~X3}Y)FvID|~naJIGHK z6b&7LPR&py%qIkt2XhjpWv67Q5*BcSgl+@3O!}*sle20TUrBcS2J|O4eQNf~T`J|m zynWMvp-KU4r>YdkRElI(yz(WClK=6#D*}_7UTWQSwbSSL(!V`X%$(9#`R=co3AbAf zp4#Q`-l^w1RhsqW0h8F-qQx9nziLUTt&$dbKKj1s_N}@bmO1~m;Z;J%P0zmuZymVM zXNS$AW@-IiEZc4U?3X=9KL4>Nb+hwcX8y$emR8pfJg{UB4hW1q5*8pkx_(E?WAg@9 zJU#kA*VFxc7o5L4WaIhiZgqcqU8DG=rQU5W<=&rt?X>l`YlDND-XCAd{*h&)YESDP zOMH6i?UkoyWA|p&X;VALeV@(muWR*t9n>)J{cv{5`!H+CN9nW7zh>1}{WY%dfFC~c z{!A~t`{La_sz37~Hk4h_YrRE##}bxxmB%ejik-CFWMfi#Y40Va2U*oB^S(o1h5A?e zRvf+kWc9u`_t$C}vBu``kbt^%*2`?446WVZ^xwI5!KRG#NBuU^2M=pFd7NM6oId!8 zvqQDUF4Y2lby*toSMwQ6u@(~sc4<96H>^$G;+yU(o8)#Z9=fgbfPKDQoxdo%CY~wY zGhzRnUZmRxoV(*cM{&CM_SD{e&i9q{y&PR5u;a-Ef$4qs4Ie*x#fS%s(?_PQ{}O6j zyiM4PgqX0mPp^+@R(XlM;po%RHEQmUYuH>lG1GMV!~sLUPjZ5>b`9d`EQa%QX@==) z4jTdXlV=&&1i1cOmSMiZ5W85MVPf%pJMK?`ZSXtbSHWI53-|#rlPlsg7BDG*$+KXX zODID+852i$m+TZQW|d|!$0wQ=7R*IfYn3D;J@VHIo)8LkuXX^py?!R|H(E~D^y z2e@S7eg}LyqK*_ipMy3sP)~7u?|^n^01mg93V73NJ<2vjeIHQn0{ZETdjWXw2dQP!3+hw=E*IbL;~fY1_OKz%+!z;B&wXjitw3<68Mk6_HfD=xjU`V`*9clW z5R{Q~mb-;JOogt{U4Bd>)Qihz>dU6Mtl|#9AXqCxK~i6lOglVs?Z_!XGC+d4+B{Js zZ(SI}M6f&tqNs$5hNE7x9^GN?MB^Wsgn~5`1|T~ghz!jLfCn=^s6PZi(VUj2Ptu>E z%w)oofFp5>SFS=mO+dy<9nlOyhj5k;SqXBcDIVDHwrn_ORd&QpQu+cY>Gvq61;C_5 zgXt2dCkol>8zKZEm@8gDMh0Yt^R*i`Og)WI8{A8VCUkV@hxv()1t^qA4quE8M9BKkFow} zjR%kw55!xqVg%>mVf}(0>h}K^fZB;c`I$+}n`p3{F7R0ZSMcQe63o!293at*3b)G% zw|l6&_&aV|>)+I^?ma-N2q3zTSV$R(wguxnRT4mz2;T@GLGwtUV0An|+q9e`ao~%G zQR-!k0MY>K1U({-_N5ClrGv249Ds}Jbip?l4kCpzTGM$j9y`-x ztwHVsBx1R$+#%GAPwU+%R$sSRZ?qlC%_KpH@hz5wfUZtbl)6Pr5fU>r)nweVtur25 z(_eabV)LgdOR98$_O$p1nrDq#^P2L-CII~i}0wDHyD9d zIbw;n2M_Ag1Aetm)fCjH0|2!axW+iruK-f62T19ME|b_L+4=)FYwF)5Sw%7?1oT)2 zjb+vo7jmdPsZeuIt^!_EX;=SR%_MX!28C>dLVl=_maK+gvjJ8?0P72|V4yaVvk=PB zZR&q4Fqh*&24Jmy027XdS_nsf62oHka|$3eje(FPp(W%^0N5G=khYUCW5DFpvmhpp zc>=)thJeQ09IpV{)DTp6$UV5ujD#K_kw)E#V*WzGCPfw0wiv}oVNhTs^eNyCeEV`l z8jV^bQ9mhTK}QclAuGc|{GEw-*vQz!2-HK~9CC4x-(fUr3}$8ETrKH<}@2L6~2?L5yz2{aIKS7pKKpdftt&It^#ka-6&u}_Mir79cnDc1wpw(pqxk@UUXi0ga-kE4MHOIc zoCGLludq%MTc|>FHvj_lDS!yKAK*4n)ZP{^2AW{STa!2tnjL?mFbi~1YzhEN0*F+1 zvIlP1k&GwBMYBd|hxeijrHSDpnLz-y5-S9;MLZV|tI$KTmq^-;(A2dSj~e-*a-v<) zKI-QHch(0di$T}o(>K8@mV^GMiA{cUvNU)kNW7C-+84!X!7_qr1;8>wydVN#!AxJ= zD%TqXBVG}->qy+J)CbRHKwC_-@pw>yGyw6JOf$p_aJ$L?+$0nP$`LIhne}+Ynz*^( z-4yR;0O1TKGPB(Z_$IALiL@v@)&hh$-+9#?^R4Epz6kFgc&0T*eZyQP{ z0|}KPQ5CNs=PO*%=ndTCoNF04NxZ_NW%6)Yw4~Fx$j}J6OpY!u6cAX()jLn6NKq-4 zkkd6@$rj_0Wle&@*vfgkXXK3U7Ue> zBzky&l6hO;pI(?pNK97~S&^UxCcIsR29=FZ-i zGYw3L3b%0sFG8iFnkV@F@lCT8R7$WgW*q`2>Ua)YXQ1KD!3ZcIaFECaPL8lOvX8FM zJ_3{w`Y|Y9EN8>2+&$~rVmaHvPzP8``UEcuclpn<+0$m`ryvp|jF_#^msDdcxHdaw zPxkzothr}IOn5L`QkAeA6PkiH#dxx@tPSg*J$+h!0ub85MLHv{!E%G)gax#=0 zp^N5X)?dS-x^r+&-X@S5VUt9aauz2XFiB|o3y~Q#i20MAvubUA^8DIy zfp~h_#{hrj!tAuQob=LHDu$>E(jQbuL&oa=_eBNk$X3*_2++@-zW~av63 z7b!f{3Mx~WkOX>g8e5Kdl*9v+8N$7@2!sNtBCT37e<}DMnkEr*edV5-h3GphDY0&TpzpmozBVkwwb2bu(Z;ODn&W=yaIs~nS>Ca)S7HqtPIS6zT7Q+_E zT>?$5U?*}sMsZ&i#cSz{gyT+hju*U|=qM*n6@uy)!l7zz;AscOg)%>un7v^slw#f{ zjD2ce=F#lg(C3)NU|(GU9%;x+7>4y+#CWhlb`V5#g`a9SQLqw)!OH z4Ir+Rz~U|%F=l)mzp?I?{+;W+E`4TK{t5CtWjCz}r}P>bbtnjvNP$W64Os zixtBMe$h$+eX|m(pqD@xZ9h4v^sLO)**li&=nrM0j!B?n&a3q`X_v-amCzljV)||t zj6hz)3G=k0Dgid&0g{m?v~!w( z7EBn{-E3nmKap@kM$0DL=GC+gTPqUVv!MlWsUEV#(cJKm&8w{+ebQ~5mvBNWVpiv7 zQJo@-vNbuAm&^)`B}^Y^v6VzonsP^2)7%4_SkYW02E+pc1qH5Jd5E(FxVcz1dlnXZ zBBMrFruED^yfNzlx`tslK~yM6DG}C=MdVEJT<@q&ovLTl3N`?%VQg6dQW47&CnKW?rX_N~z__!>Y{A!^ zJR4`vhrOepdd4>(GI+A5ZOJ;i2xhbL5Oq2sWhTO~|KszW;NRw6>U<~r<_E5PzB~T$ zh%xO-wutby{H@om@_Q}kSzo&~*7c&*GXKc!^G8>#I&&iBbbr9x8SlDyQ(k*C-idhA z>k8h*5xutp4Xiylw^1ZK$K<@C%m=ZSt)ggA%xp7T7 z;kHD4o3EbSU)qK|00iGy1a1bvU+#r&`Qugzf3!`AjKT$L$!E-|=Z(2%KxmW5+PhF)r3Ov&yzweg#pbJ}J-UDSDghh-7(=k0Mi>wa+I^HYc2ua!8` zF1q8hmKCB@io?HTr+ymv`u_8wf5dI;`LS;Ao}bFv_5FJ6m+2*%yna*pMs{1txG{eA zsqH38_Xl6~`R&Nn-jW9k`%zw5(|{GSxR-Z_k1W+_q%^2)xY@N0@{>zjjmzk8#C-TGn;2fp-5RGr-kB)*jlx78= zRzX=36s4h;10^u=2?>I4nqpe|!5V)sCB^l}p-5AAl&4uqQ;*!XlCL>=GLU``T}2nxoX;TRTjvB6iWtN(z@3U6j~f zo4Um!qFYn9kdPojL5HzSD*!m?0*Dhkyg)}jnn5I|agsA(D1wZBaXyLhWSRv4?4S!s zEk$#+Q0^H~s3-0e#@G)~iK}iUVwJ+r?v5C2LXKxiQ=WUpi9cTDKLgiZWjN zWE8O>p5>!AA!wZPM|c%XOdHPi^A&+gW9e{MSdyqM za6V<9cPf*|LG4%O9Hg|cA`f(drHy-QIYWc9qc6h`sx|N>+%5vx|Czw!sCo&7<&6>! zm!-5SP{R9(^)wdpY1wPgHm&H?d(1onq5~Z0kAFa5s7!mmV?<~uzegd;!K+hvOqfir z2GF>4CF&}$m%^d9mxCA8;>YcdgGq!HJY2vlR7xxe(IPA)I2jTPTqRyL)$5RYO~$RQ z5gG%uO1IWiY2rFUHXMjU0H|DeXT_oIMn#NoWuZJ+!e9P9OYl5d4qpaVMq)nJC zIzTcqIy%x`HYO%yY+IXt_PyQgJ4S>>21JKo^lT(S5eQy}N4K@{>eN;iJOX#xfjJO@ zf!j151OR`)S&8Kq*3gJjV4*z|&$X^4u`5(f?gThD$e~PS`0XgmM7ZPs z1G^>kDP50JpoS55BKt*OKIu$naG^eVHDeC%5*Uko`0D7NIbe@Ro%IQkV^zb3++3w zl*B?{Vx|rc8G$C@6GYe*&Jgr`A)hY5^+c5CKs-lcU$0|?pAdc2^-)qh4Y4)kPUOU+ ztiDe!cm8xl_4x?pN0Y(?uY}(xXE0h_{QZ4^`#f%v%+f@0IcW_VBB-4~BcrQ@&_qNwOGx58E~EVz7{1oIv&1@}LK0GbvxVIAI&Nun3?5^xY>nxUY4xS<5!FCO)C%W1~mkoovhlG#z50H;QCJR7?D5;KDSEt%8agj1? zVAmGXn+-b63BJ$fI#qOxk;|cee6XRjDD<2(Y6pBYnzF zVUZo94ngzsc#aUp2csvmU7R4IH*g+aNCx;-XKbXTg}jV5fO|m zZ3J|RlG!er4YnG#%w4iAd)|I(vj7sZ-85E(At`l}L#Ar@kTbtQ*>pV`u>H0AjlxM} zsp-=hw~QF{LN3u9K0Kd24;KII?43#>UoM$d6snL45b@mj(@=66KrI!?+n#j*6Dw8E z_V){theSqu2ZUqhLyuy)qZdoH7mGXIgAXVn&cP3uI!Hj1&sF_I92WTrwa@0Tnk5y& zLFs&ro6rlr^_hlfg75&}LTMVL4(Kkj7O4%8f(A%KGqu%-I9x(1#2bw#SpAJR|p}dvdH5=$^*Zc;fO+9svQcl2%uJomBllJctW8LZs)8- zs5XhRt`wOho(Mh7sR=s5L||*N2;-uh+eM6*CZPq1Uvxk;v>?=&`Tzjku@$0+x`cs+ z!P~e+vY1X2|CD_$di-AyrHJ8t?V2b>$otyy>nhbtsBjtGku)b&61Z- zp4~6scJZnAQx{jypT2bKip|N3+HYR*zW1%wzSgzYJ}(=w?yv9*zihPczj5r14?Bka zIc{g|3omz7`~26gnsFue^<-iXU$j4cxa;qhM{4wy9SL7n@#NXX-%io#0DHcjIO`eF z^}_P6)h^`~TX3!0h;G-fWCvWov-ijKT9*@VR9LX$&RM5>50uN4N1bzQ`f-bs$B#8l^Sy?(vTx_sI{8a*Ym3W^ z+f0Z()~3(RJh(`h~5l=2hXGmKmH4G-2s6RH#o5a5Da(* z*lF0Fp8_u?W#9jR_wguTTB6Jt)J3NeokiTT7@kc;OoBEcSfXqO>bQY2Jy1Ro&l{k6 zIYomiAv%QT>+oHQ`fCBF5O|L3<6Ra$zP706B%a@emwy-P3cga*bFyLAjZNCBhC$w_|@8W=+hx&bhPY~c+pzdbq zUvboR6W29RZY%2Q4Y=+o{~GmQ#OG%`XVKTCz%vnj`iydOaIY%LM4+xU!0QI;*@iY~ zJIFA!>xg>Z;r?SP2bc|b-U#(JK>0eT*B7u8(9c$Q+o3<%C_}r%QqW#Syt9By9^luY ztsy9zgF5!({R_%o1N=zzLxJO#Z0Hc4IJk_1&@GC4jlf^tt1Il;KqFslx;mA>&EX2E(Vb<(?1`pHRdH5{Y_rP8e#_9{OZRnmhU++WoIW zgWec(J8>;q5DHI?176xDrvn(f{AnBsCrTOf_Mj9EJD&SdZCoa6e`}irO$On3O zf@lxkiqcSE0t#WjI|1;8x`0d+Yo)!F#6PqHRluIbY{Nc!EimyQh4}c*H*ypeKuI9f z)Q+9xBkBT7`z5}p{As|J8g3vf0m5Br62$OFpgbYq3)34bdSPKD9 z0Y{SSt+W%2x<%tgQ!pA8_yBLhUg$6%A=b__Ux+@tZa{?gpy`ICC{2Yb(gI%ruyaws z#1Is^)SfC52XWkv_Gkxj3?!hS8&LEFA!sh~nJt8}mK;&c3sliaTLmw1sTJ+6eKGiO z2yz@RAhbwwPT*02ZW#cnZybcUil(#x`V^p^6d$DX7x-{HQA*CyMmH`;gGq&X!RUq( zkzg4QO;wK2B5nSassvn?qk?|_N(EGAoH~X`u~%&rTq{NFp+md=E0q&jNYc<$qJ8PS z44;7NY;;Fi$Z`;G_{{}ai=x4dN721uc1Uy!8w!O50BWKOBxVWmVD`oUhB8-BKrc3~ zTYx&sZ&xN;MoLj&3e;0Z3yBem%F^VakTRb@qB|qTq7WAykLGe93eqI235>c!@|Nl) zK}Dw)QkI8yT0RCCHkJ$FU&9k44JDE%te_S`5$eBomnijs&Z?w(lm8>4w6lekacQ1pU{41N&+cw3axlPCv>hTX8pd=$Z99z;1^sjJV6_l3IoNkC^+ z65Rqg_BC$5^@as5q3NaFC2fd627v4cNU)%__!(H&y&IA${d zxXuWO=mQuk-0vt-UtFi5gcF+gLNcdL?Lt-v={Et0I7O?@V^D<4V4*oi$u@@6Tmq0b z)MyYGhDPk4PRG|pS5WvQaIFTNT{s3mJ1uAYld1~G>Mg30hzCPFNCLG3vAX2W01yle zF%Zd9v2C(|mZIVsjjQ6@0J9bL@C#B%EFFc$!*IG^eF2cB4WE%l%N05#BOIby06hax z&A9-^v@mhM#V`hZ?cyblG2l!9Ylti4G8zM{YYjU@s8!IuJ z*2PCW3$%(y0jaovuEsS^;6G7FbG(D0{?%V0Mb{RMxK=9|!+!xl!M;3I_{Ozf4*_Ra zi4M-BGI$mcG=Z_2cc734XX1CQE-(gOzmACF;^{$N68>Nr-UOX52J{1~(P2x*YJ3Vn z2sOTI0t?YZ(MrJ=qQ{_Xb6%55bk7bvNZWor=cXmjo>J( zb)S3!sDr>DfocZf*W1AW=a++_Tp?kkO4P@+*DX@GnwX3N9z_?>&l@E^(QWxSDstAX zs0)C|Ae3ud0*1xPG=Sw^P_e>M7y7I~6)orl&L~K9-3K?8tXn3KWp806DAxJce$adrqA&fB^>ch62;Y|`j_8&O0P?eM3TsPiFd zBRFy=klCa;n?*>N(XU=yjj$IG`{THs?X>5X3tj$v_1IvyLub>!JC`wolN@luIAX-e zDWEK1o+?=fb^uA0kY+@&N*#pNIcMyEoc)I>mqRC{i!O3`O(;!yS4bt*4VfwvCEi}% zoe%*{%iWTeziy3jayQeSimu6;Nmri_LMbT7BhD11ISFKR)g2{+VHOPzm*In&xX}&Z zGFd?)V+YIAXmiKJt8>wKc0tOn_;?-!Zj}fTbDU(9fueO$n`3N*kxg3w4oLDq))zNS z2=M>>z&9_vV{}G@@c~Fec1XeKU;y}%>YQ42s;yyi3XK%v=EP=5&PmNlUz~LeG$Izs zNnDqGWUnwaikg2xdgSAF)S?>X&}h>ch;4y2r9gmx!F#yGOwkp5?6s?lynNG zJrkYA(Sc$Cp8KoE>|(891Ai7P?0HHegzO$7D*Q zDYB?GT_b^8TLD)jxaa(b4hzK3Q z$6Gm2KP2zC1E%5?-DI*zKUoz0%9mRx4j@Dw3q?6toB|Nf;4jG5gT9A`QfCBen>&zR6q&@qaVwqXTO-XOm5>Hrz;2XTQ9-gtn*;P)wL6b3;EN8sq^V5&uw zs4f9AU6fY4EPGl4O>&`e9ycuX19}e${NtCG>iL4F%{A#bFN&mBUu)Vk{VbmZG_2juQ z8@#P87C#D3EoC(%L)dG!l+s%^+1e1zgV^=tV{_C(lM833>$Xst@8( z=k01YCSarl9nQ_u0)~dN=Iz`fBfUHt5|IU2FOvTYAvlFb#9aV5#u2+D2tAHR)CXVj zT7@c`H$UqbvdyV|iS}HnA`wsHb4JyAkj9fEmO9Ix>wWhkDThzt}ol}r#O|9e> z&uUwPZKH0CHb80iz+@6iNT!b80C`%7rNWNjXD&aBd&@(?s(KTHa&Yw+if3PSBCv$F zyHg8kg_6VDi0cqo1rke5TcBA8t=M`UyZh0W$GBY;~ z^O2jyMfxiWwS@(vThjt@GIu1cQ2iDomQ#poZ^NW2!~ zOnwXKul?Y2u&h=Z)0k;bJcJRUZjMVWr?UJeoZhsvR_$Hk$-!#`&gDXKbQ@}2#ZPmI z-N2sR24kXPRkao3my_6VMrqA*jkNFi531GF!`TBs0xE=zZ?f|>6^{646>_Eu3>Hi( zSX&EokMbM3wW~Ae8snHp{+BdVSl2ok@Tg7>NoyFsK-XLsHK6`@ZkF()_VY`R zIGwq#weTR}wPqlOhK?UqVwEHKlL{4&2GG!KhVIJ&g4Bia2=R-vdzWXg#i;!!JX?i| z8ek*rgcr7QsEP~M2B!SoZ2l}21C=HP7S?9H&aIdzBqA9R?TF@I`-74RoN^Rv7# zmx84j12!^yzK){_bJsv81Cjit>+|D(5%#yieFk01ZP3Fa!LWc)Z7-O0YhZ0@NuX9| zU|P=Mlf4!?MxoxBLQ+bj<8VGKZL!nLZ(jNO1VoR7STUxjK|}6nX41iGxvH<8u~Q{) z6OR_%BtrHAt! zvX$I%k|e#*N1dXrB-wM64wP{8#5{da>GTUrM9SDwf)QXEku?G zi*%!B_3_#o>%{^X)zgSrq@^5IgqW)FI(kAQ(0@`f6j@JU($kn?D5S#wtYY~08!D`8 zSg>iAjYTimV2o&aLywQ({eZEI*{y}Zq3P=B0EMg3vx`}N5rU)kIq|+wIB}k55X=;? zVj7kc@XYW>^}_v}uojqV))8bGsQJ~%f`jZ9*bh@RCy-!9+dBbW@j}O78Qe#e0Ko=# zLMlWWZ*Qkc2J%120E@G|~uX9%iZr%C|bxT70%=Xue=xER9$ zyN|EA@JzyK4_J4F3y_0Ve6YvdH5Ese-_qc=)lMQ@ukUB3Dpu zf*inhLq2jS!0?oSvkmSh7*^n&Il9%QiljXkWFle7iQsxgcz}7~Ne8#MsWz!ND^;vSiXLS!mjSsn3nh%!Z1Ov*4@2J1M`AP# z{%eoL$3cBWnIx4^zZ|B9ei;Su7sLc!l~VF|d-0EGx+wq6?$hUn?1? zAuGRv6vO=sB0)R{)smE#3i~C$j+r_O2w}a4(c7z{sd)&vst?B2+(FMY z-X()Ir=Y?4L8nlFP?5Np(Zwe?2x0)UY#&EIJ^i*h>j2D>gTi@e8n3-tV+smXZHbd% z-%reukjRS!GlGi*2&+ZSDGGvTi(kKJT@^-Zo@junk!4<*j+FsZOo4 zAOJR_GY-Y)-5GN(meZdJY_y86hS%t@jn^mSE}4_NA3wE1zkpR34;a(Os9??^9u;9S zP+)|dRbqcw2i;a-$myy+Ba1yfk6L&AB7AdvK_L{wFJQ@D*V@Ly%+kSUjDBtC8y9X- zlLf*Ess?kb0FN9k>($F}(Q!kXNswk_DLMMzY?5Sy7)8)fYxwK?A0czKYcYNiBpz8| zbq2|lE(#s__3AF+BMK5{skDVU3yA_@bT=dj`4qw_T>9}&)>n^z$qdnQFyY7f93Xpt z-m`~Zh$S3GH~cW z%iEjH4v2^d^Nt8c@EeCT`N-r!IQffQ+D4)`ST_r)H+mBq@CCKbS*qZ7XkG}}=^XDv zK^t*;UTJba!}9j0h#eJk4p;wTwxN0VV!<`Cer>bW!*Su}+AG#b+I*OAeQpplu218L zp1otX9$_4-^gkPGTdv2;_LZIw?k``RS*y&WH@}AmZn?K}rJZ@@CnHY0Cvt@t00k@_Tac?ZYJY=BTyTvOD5z0e8Qy?ks~n{&-f+Rr?wBL>m|+&$x!4VntttH$7vR0o-Hms~R`L(JUS( zTktm->{i4b3#KV|O{JUTeFWRh>AM2&?Tz{GyYan+1ONRizCZTlzc(g8+PE7L91|*Q z$7sU74mwA};TS2;2zgkPgIpHHoe>+wj0!LS204UzjpE_KG9r*em*}ui{z@iS-}aS7 zIgAPrRi@u8mD9ATCiFij;S(Saz;UZGxmS2(Oms&at16EO{pZzmlFK9HKY=L%l3@|y zKUF`UfvN4AhMo?=q2Mx82{#;5Ry*H+wk*c;K>sHX8jZR3m5EPbuus4&o@c{i;2*m7 z^>cG#%xEB4ra=SO9pOWlOh0t;meY$Pt$rIG>NxjY+}FjQ|J><3$?@GQ-=7XbG=4(VsAEp^0{Bx4_({y@Jr&8S_NJa#=Lqx(s%K=S0QN-9p0$Wzo3t<3zVTxp+9o;24)2}&boE!k9I+0%~kOK|NOr}0oVj&cS~rJ|Nqzja}+p-U6G85 z2_scD*k7z6y|5=(XZjz#Gum!g^n6RuH4O zR@vNyHB0Fs?JlhHtK(v)RV%+{O4Gg2qLvSyOf$Im^Dcg&f2wdLJc^WH`({&s$x zHfDIMWxiv!DcVKt4@^;(R!EiRe@m67xhbY5tcgiQ7hw3?+`UUT9ldtG2aS-)Z&a-s zS+*2Vn(S0cTC$jFZ?j?*O?vw|Rg{*eixL$r`UXUe#F8dDBHXE*v<%%WUa`2ZEEubX zU?*#7O}b-Iv9e|rB!M-IpGLs%LZF15v_3sItyo+994mLfkP+diRpQgp4ek{uC#iMS z($3D(W={Ci)K%&<0GBSfbW&eRqyJ0rQ{!)10RB=XYa=EU#?Dm9mc>}J7A8t8ao2li zy!`#_@iOnjV;^6-^lQ%>EuxdFf9^B?&F?3-gf}%mzqiA|em0Uj-$#b+cE2^-b?&iy zlV<*!*0tL4z6V!LP3+40FvV8QIM{kcW{`W`YoVs+&aCLYd93&A#y7jHdKfdK*XQ-F zPSNF^E+mX!@lv|WcYBl0_YZn)d~MywNujck(T(9&;G zN-wB6JFkje)b&N?Jw3&D~3|#Y%wJ&CQFOno4UC zKpC?tW|d|h=$z!d^tahdY}Rgf8Fjhlq?jEaq(1bxyqTA@^M+2+j!q4w4TyP4RTO#U zdg7#bjV-F8@A;_jL8zIKQ&p~%v;(`>Xp(trPK6|^eZQ=935k0V;#bT-zUazCWJXg zjt+^4jB*T;hdP3pJ4OV9hrzzYy+i4by|lT#w1oqnO9O;Hv#eQfsh_l$a4j{N-l@n2 z(5#n$a`0RrryAPc&)vN6K zq36!58NB}W!#i!-v^*2lcWq$$nTIDbzHiytY=4smL6u%sNb2wMrJlK)X+Tn)tk~oR zRkuZL&+PqT&|mk)O-<+>c;DRe;kd-XbxYXg)r!rm7QCRo<&j#Z>0_mDJ|6X(wjnG1 znq~gE>R)DW*|Oi%GGoc$;Tv<`y@}}5aO0v^xo)xY7GJ9kcAD2D=IxcF;IIZQeoGn~ zs`6Xhx>V;er|w^Faq{KXN0&c!{`Gt1ewhuf-uzqD!*TMxJB=FrHr(UD=F#k9<*^qX zR_(60UE%m=oMPwAz6YfF&)50~DEIE&9(CDr@maRxrh#*6J}NW2(b3&UU%!;P4*7KF z-O^cCPF8FCX26|y>vrZHY-}~~&zs62^%`V`c%F^vaAm=v0zXpdCu zpqMY^P95$M6H;ewms7sA(%kaDo80}=(_LfI~R`m_0|R%NR9y0j}a zVuNY#_vs(E75lhu$)g<}A-}DNdw9`wWR>=tE3RtLAw3~=>F&64157q#r$ik)^F6EP zBb#eCHu~B7e>{+y)VIQ?Gszu4uH9BDXTSH@J-^NS=#dffkmxv#5`ZdbE^Pr#&{Eoxlz=OD=_IAg|8^y%G%-{MCZrBb zpbjwSQr~`+m#gWp<8JsiWjXJrhu-b$S7)tz4IF4Zz-QZmVlAqhc^#T^%F_B#^U-H3 z+%5IC#mVGiJI}Se#a421zcH(HT=0y^i-*~Urmyi@l|ORG^(QO+c3Ctzm40t)d4^Zems^PGL_S8&WtE#Y%zx5xg$cTYQ*#-xsXe=+QRt3m6keDFN~HtO`NnS3wi&z9 z7q*yueRX`3k3ISvhEHfXBp6Stm}( z$3K>DQ#<;9*NvwCm|I_5RM8RUfbE@nPxCBc3Ut%dbDZJ#$VeK^?w=I?R`rD^^l% zrb1zKUIR*)uu8{hprHZwLyu?hg zOsZHcRV>gD$-z{rNRYM{nloXmxD?hLDevHjpeV;kc}Q4*JT53Q%3)-5n6!hY0uyOd zYiCI75eG>vJ%P$;-x2SoZ(RP=Kd!pNjl0n!Y*v<9 zTK-wk!esZQldi{E&Oad=>d>U!=Tq`)VF^Euwa>G-&^oj8)?eO-JP69PX|{3MVA<69 zlM+3Bdf&BNIPrS*ZZ+SxaZmKUy7T*JRlDL24Oiy0t+Dau-deGXTRzVZKJU?X-1xfh zD^A)pKRO}l!^Qe0o{dh98cFQTs-t`*{V`E*TO&VENLlgb&B( zz4vVV_*?6%N1MF~uZL~E4PIS+^uA1bvfZ-f-euaBdRJoB?b@fDt)9OiBN&kI&{!sTomuQm4&hvpY1B{c>usZ{YM(wSruiO@DI#{pWX8)~#sp z?9#?%S6>efa#IZ~zG_ChVzI@p70ZaJUFldrz}~kH&(<(I_QdViGIp;Y%N$=W`?PM* z(!0#b!4M#nR(_E;%WyZIvpkZN&0Vs#x;ht+)zY0g4u-DT;Ga2q5*Eu%xMz zrN)TIA{FaA?UJ>WQyJKw+Uv?vM{PkfCmS;fJ8Srvp4ERz@%)l_yz~Q~FxwPmWIg$s zjpM4sICbd!aJtS4*wP6r;1q}WCPsa668r+W6u#7!@X>XIPud694vfpX>hV?u&35sG z#FEWS$ug6FR4BJ)X*bKur~A7r&wkEyAMYBQ^eHCy+mYuT0=hS{9(>Pdc5wCn<8Kc6 z`l{?l(?RQVhtyX7=zgfF#kLoUmjSK4)4O(9=j8u=Pl)IEdMT^RkNrFD`~9-ba_)Mp ztbecLosmnQX4eS$an!SsMRKvu?;fO`>6dnS!^5NNes3wUO1tBC^NCm8w}ByNHupZ4 z(eGr^-fg>L^rxtuWIcV(JlShxu`cbUvuCVh{ z|62BF!0PnFd*0vtVt;aPQvU~sYlgKPb!nZlYBi~{YGuu+nVPar%BtqL$7;roycSj7 zNtIPzo3N&aUJE7LzgQ`OKgz*zp=7&&wjNM+9l+=6s;Bn1FlCLnEfy-AHeG9~Y?JlZ zJ;e-3wcXn{-eK=P>##f~b8+(ayT30oDHix+;f+2ctSUN7;RI;m+yXId=VpjzH*Y#X zY8G$8en?T=-JrN7Rb2lsF<9-TjiG3;+_cpitX^_iXaIfyO0?|k9ugK3Eem$4FSX^t zYx$212t_uCzn`C^lV6Wk(iTmf?VGxHa<%X1+|tddp0qB(nO3Z+t=2yzOlFUtX$gxI zl1WmOAyASnaZr zaxNQ~>&`8lS~@p(;jDERti4^;m;Wor38sGGOMqh`Re zzw-Ir+mCc9+a=2yg%gqjRQBz&2;;C zq|(O2DQ~g^68%~8eG6ARIOmu(=$$oU^NgfZ4qMzKOU=DG%5%)a;u}VF{88I(-bLrKZTF70- zG&_^Kw&9|0OTt|*-#g~rGi&48w_$y2ytkLFnKJjq_5=?*-{5LV{h|j~b9gno`=)Mv zUd5gW z4zcaGVR|du&r^3rtvk`U%7m^tjy>b{UQZns;cR&;>Z#k2y0KZ!PhB5n>#=>n%F#Y9 zJ@$0Tl0R~IJ?3{|3E&E;=qxh$ZF(KAa>&g-Kr#7IKveSl_N6x_Np$S?wVNvsW`+a~ zPWX_0UADP~U$biYa_LYqeQTTbllGDNr}(D$Oz%;U&eL;G$s?j7hDX6)&Z!}1yoUJH|osg8~0ys-e$XgM59vAecN|&dVA!Xzw0m7i%&HecdhB+ z-%?*4I3IJfmuymq+3HiVOSi0>C21saxg0a__uI;TPp|oyJ$vu4Y{&Qoxz434Im)Wm zZmnum`hfp)mx#_`(LauUF>!t+$sf~il3kM7pmqDgXN44RG|KaVXZPmO^-7l6^J`$& zr3o9Jy^XJ1dQeX%o7ZioH(qq(*hrhLzt*p^|IL+CoAOFrbqxwQ+xgasBTrYiI(XsW z1&h4c2QKMDdxX~aie8w1;a#6nj%7Whww^BMmHwM1Pg>mBJ$=m_W$P9%f3qxYvG#oZ zxbmCBq~j8!Rz802T6S9SV6P9}K!{NadI)AzQy!6$PFQ<^AL96Ba(dtGr$A%#;_FiBEP-xOw~bt3i3M{w%ir-s2B1GU9#q z^`AU=yrsNBbjH11J74s9aznXdNc4%8O+IvRTrhFv?srjJ>wG`*C1g&!237A5dAj?3 z<5EjEue8Zry?^$CUot+MKRcm(U*2WdU%oXjlz4Pk`8E;Q@=iJcPK_387Y2isL0=JNNTp1%(NbBW)W z0naCQ9q{9T>xgNdbuITMRlE}Ge7u}h-mpodd=otOZ<^~lx_G7cXU2YAhwhS;Ce|p<@c}RM#)a{>Kk2R|we1CcCL)9m^?1&#Yc}}^S zt9^g$%L}aca8%hVgFpP3>v!e$%V~YQ-#j{!v_Z9C-maESdacTj3@LrV)jo2r)467L zM^$@f*q(ZNe%|E0{_`GwHSfJVY-H;do=0D8NE_d<`Sy#yCv?j748P!f>o}GsJ)1la z+;!>T^Q4(sOSiLK4<8$|wd%kT!ybQLxWKwr+wYPqQIp(Oc*a~hJ+$eg3bSs1-zb?h z`P;oUou2HIJ3g2+H2%xU}p(*W`%%NQZJSruOoDe(mTes{sLQ)P)i2hupCn zYx3O1N`7avP zVU26wcipUcX7r~)zP$!lcu?<9x{vwz&@<(0$=@V>@jX4Q>Z0RqDnF>+{MQndt=f-E z?X>Ts^^76+=dGzC4>_AQVgLSiqn<))^9SC!yu#|Vv=6VcdrA>gNvlU))Swc(p}wq(zixCo;9gG zf_1VT_-u{5+qbO|F9ucG*RDtB;Bgtn7Av4Bo9ae2s_F+tSnjf2$7xMH_$=4H}jEXqc@M8Gg z_FZDwdsdIbl$IaE>iTDm^NX?Vd+^cP_jB8xeLwPv?9+xm+x}d#&#rfatF}iwq-0jx zSD`}r!EGBn?Xa}P_CLQgoOS9*)t&y++;@MoT$5OBR_@zUqZB6<)!eK3#>{p-S?g3l zltYuz6T;g!DLJlE{(@aw2R`xoCED`H%LVb*+vap_H@tPv!_&VySHHLP!@N%m*iV;`HAZ@->CW+YeSTQ`D9{zN6SF`2<%Y>!2SU6@<) z=x(;Jmw)iRs5?`v2YRq`2UJ@yy7bx&b`M8Xv$H+aqT7n_zv}pp9@VLQ=dFM2Pdk@4 zYe>)4*ROUTySJ}@$&3)zWAemx0ijVpEDpbP8{RhL`^6J(UXv#;I(G4M>#Y5iGxuC> zx6!HB)FYWDCzR_aRIOEcR#N1T+`U)rs?RDl&-MPH?q62^ZIR#fvu(2xjh~i2kTWOw z_A{FoZyUI`t+zNQI(p!!YiruQnw;X~GU>?0{0W&YB0a9n|KnV0tJ$qe1WvgZ8RX}k z^jaCV(Y)M=F~vre+f%EzOTXRgB8R_Qr!={P#SSg(G548u|9h9->+4#ekHw3bH!fpp zQr)yNGcIcZWS#!B029W-XFlOtq{g}MR?O<3TMiOH}QCI}}K=f0PB;{o=y ze?|bVqT(i$*r9O&lE=p+#X?$wikTK)Cs`+aXQ!u#WeZR?RVbLrM>0a^Zd<%b<+&@Z zrD8=+$uH0UI8iC~PsfpwQpHzM1tyM8 ziWgEvu2hjFRU9>woNn?qrDAwW?Xf41@9S12;ELi_jm9U3PqcE)b=eTQVr4(6V)_4o zsbHLNa6ONx`6A=Sx{nW^o?UQr#?vg9$nG_U4?o%ej~>t8_gg%0y}y_t;X^Z1nlLRV zb+zc@IIKhPWsmI9bMJS^X`S3V_Q2{UQ@l*les9(wuh*N0Q{J@R*C}Ai+f_A7JI)H; z(=mT$)me{2XN|1gX|TU_%hTtt#(&(zK78@(m>Ln@3#%=6aqOmyU1s^9+0d2UE4_bw zEIZHVdP(OD$)*jh7N_1xHCx^E?O*1xHQ1*M1Gd!v;5i^a^S4oJ%gZBQ{8@Q|^Y;q( zS55lTb>ObA{c|IFU9~sKIJalfyKA>x-M+mKeK&LX_8PM$3>=fvRe#hs)UspH)4~3^mCo3hL>}zfy{vV;5SLFg<5Uw8FWk8PwArJUK@X3I zxB1ZWmappfpjSx`UjKb#WA$6bYTj&}u{Ss8l=djjR4c|Rzad3rOa@@TSQ&TpVp4)c*i{qhOKX?JVklf&&2M=9l#Tk?ZPvyz2W44eM+hKi#Ih^WpCfujU`!GMlUH}XPlGb$?*#By{`KlY0E7l{|{xDl*s@9 From 39576017231e141a7fc72ad4308435e623b1e9e8 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 26 Sep 2024 19:34:28 -0700 Subject: [PATCH 09/18] -- espacio --- App_Code/ClsInventarios.vb | 14 -------------- 1 file changed, 14 deletions(-) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 70e923f48..231b52111 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -1035,18 +1035,8 @@ Public Class ClsInventarios .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal .Add("@PedidoContrato", SqlDbType.VarChar).Value = PedidoContrato .Add("@GastoIndirecto", SqlDbType.Money).Value = GastoIndirecto - '.Add("@CveChofer", SqlDbType.Int).Value = CveChofer - '.Add("@CveCamion", SqlDbType.Int).Value = CveCamion - '.Add("@Placa", SqlDbType.VarChar).Value = Placa - '.Add("@FechaEntrega", SqlDbType.VarChar).Value = FechaEntrega - '.Add("@EspecifUnidad", SqlDbType.VarChar).Value = EspecifUnidad .Add("@ResponsableCarga", SqlDbType.VarChar).Value = ResponsableCarga .Add("@ResponsableRecibio", SqlDbType.VarChar).Value = ResponsableRecibio - '.Add("@Identificacion", SqlDbType.VarChar).Value = Identificacion - '.Add("@Domicilio", SqlDbType.VarChar).Value = Domicilio - '.Add("@Telefono", SqlDbType.VarChar).Value = Telefono - '.Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad - '.Add("@Licencia", SqlDbType.VarChar).Value = Licencia .Add("@Modulo", SqlDbType.VarChar).Value = Modulo .Add("@CveOP", SqlDbType.Int).Value = CveOP .Add("@CveEntregaAlmacen", SqlDbType.Int).Value = CveEntregaAlmacen @@ -1077,7 +1067,6 @@ Public Class ClsInventarios CveVenta As Integer, CveSubProyecto As Integer, CveActivoFijo As Integer, Optional CvePersonal As Integer = -1, Optional Guia As String = "", Optional Observaciones As String = "", Optional Recibio As String = "", Optional TipoCambio As Decimal = -1, Optional CveCliente As Integer = -1, Optional CveProveedor As Integer = -1, Optional Remision As String = "") As Boolean Dim Retorno As Boolean = False - DataAdapter("PA_Inv_MovimientosUpdate") With SqlAdapter.SelectCommand.Parameters @@ -1118,7 +1107,6 @@ Public Class ClsInventarios Public Function UpdateMovimientoPoliza(IDPoliza As Integer, CveMovimiento As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False - DataAdapter("PA_Inv_MovimientosPolizaUpdate") With SqlAdapter.SelectCommand.Parameters @@ -1140,7 +1128,6 @@ Public Class ClsInventarios Public Function UpdateMovimientoGuia(Guia As String, CveMovimiento As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False - DataAdapter("PA_Inv_MovimientosPolizaUpdate") With SqlAdapter.SelectCommand.Parameters @@ -1162,7 +1149,6 @@ Public Class ClsInventarios Public Function MovimientoRemove(CveMovimiento As Integer, CveEmpresa As Integer, Optional CveUsuario As Integer = -1) As Boolean Dim Retorno As Boolean = False - DataAdapter("PA_Inv_MovimientosRemove") With SqlAdapter.SelectCommand.Parameters From 9ee199fc021c0fcca27a6b0f63b32778435175bc Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 26 Sep 2024 20:32:48 -0700 Subject: [PATCH 10/18] =?UTF-8?q?--=20correcci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/Compras.aspx.vb | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 4c790a109..81eb592ba 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -11632,12 +11632,16 @@ Partial Class Compras_Compras If TmpDT.Rows(Indice)("PU").ToString.ToDecimal + tPU < 0 Then 'si es negativo, que tome el dato anterior Indice = Indice - 1 - If TmpDT.Rows(Indice)("Cantidad").ToString.ToDecimal > 0 Then - tPU = ImporteAjuste / TmpDT.Rows(Indice)("Cantidad").ToString.ToDecimal - Else - tPU = 0 + 'VALIDACION ADICIONAL DE OTRO PRODUCTO CON LA MISMA SITUACIÓN + If TmpDT.Rows(Indice)("PU").ToString.ToDecimal + tPU < 0 AndAlso Indice > 0 Then 'si es negativo, que tome el dato anterior + Indice = Indice - 1 End If End If + If TmpDT.Rows(Indice)("Cantidad").ToString.ToDecimal > 0 Then + tPU = ImporteAjuste / TmpDT.Rows(Indice)("Cantidad").ToString.ToDecimal + Else + tPU = 0 + End If TmpDT.Rows(Indice)("PU") = TmpDT.Rows(Indice)("PU").ToString.ToDecimal + tPU TmpDT.Rows(Indice)("Total") = TmpDT.Rows(Indice)("Total").ToString.ToDecimal + ImporteAjuste From 072e349e316014a8708730204ab75d739c29116b Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 26 Sep 2024 20:33:05 -0700 Subject: [PATCH 11/18] - parametro de empresa --- OI/PopUpAgenda.aspx.vb | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/OI/PopUpAgenda.aspx.vb b/OI/PopUpAgenda.aspx.vb index da424dfe8..07487ed21 100644 --- a/OI/PopUpAgenda.aspx.vb +++ b/OI/PopUpAgenda.aspx.vb @@ -824,14 +824,10 @@ Partial Class OI_PopUpAgenda If File.Exists(UsuarioActual.Empresa.Ruta & "Eventos\Archivos" & CveEvento & "_" & ArchConsecutivo & Extension) Then Dim ObjActivosFijos As New ClsAF - If ObjActivosFijos.AddActivosFijosImagenes(CveEvento, CveEvento & "_" & ArchConsecutivo & Extension, UsuarioActual.CveUsuario) Then - 'CargarArchivo() - Else + If Not ObjActivosFijos.AddActivosFijosImagenes(CveEvento, CveEvento & "_" & ArchConsecutivo & Extension, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) > 0 Then File.Delete(UsuarioActual.Empresa.Ruta & "Eventos\Archivos" & CveEvento & "_" & ArchConsecutivo & Extension) End If - ObjActivosFijos.Dispose() - End If End If End Sub From 7823b9556f7a9a05be02f5de9b898e2ed555f5e2 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 26 Sep 2024 20:33:19 -0700 Subject: [PATCH 12/18] -- subproyecto --- Ventas/AuxiliarCliente.aspx.vb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/Ventas/AuxiliarCliente.aspx.vb b/Ventas/AuxiliarCliente.aspx.vb index 26bbb200f..27a80e32b 100644 --- a/Ventas/AuxiliarCliente.aspx.vb +++ b/Ventas/AuxiliarCliente.aspx.vb @@ -58,6 +58,8 @@ Partial Class Ventas_AuxiliarCliente 'DdlConceptosContables.DataBind() 'DdlConceptosContables.Items.Insert(0, New ListItem("Todos", "-1")) CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto) + DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) + DdlSubProyecto.SelectedValuesIfExist("-1") txtFechaI.Text = NowADS().AddDays(-30).ToString("dd/MM/yyyy") txtFechaF.Text = NowADS().ToString("dd/MM/yyyy") @@ -69,7 +71,7 @@ Partial Class Ventas_AuxiliarCliente Dim ObjConta As New ClsContabilidad 'Falta PA - If ObjConta.GetClienteAuxiliar(DdlClientes.SelectedValue.ToEntero, -1, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, DdlOpcion.SelectedValue.ToEntero) Then + If ObjConta.GetClienteAuxiliar(DdlClientes.SelectedValue.ToEntero, -1, DdlSubProyecto.SelectedValue.ToEntero, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, DdlOpcion.SelectedValue.ToEntero) Then If DdlOpcion.SelectedValue.ToEntero = 2 Then GvAuxCliente.DataSource = ObjConta.DtResultados.FiltraParametros($" IIF(ISNULL(CveConceptoContable,0) = 1 AND Importe >= 0,0,1) = 1") Else From 476bf58f47d0ccbee52af41c87eff800a9eb5cb5 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 27 Sep 2024 12:33:41 -0700 Subject: [PATCH 13/18] -- activar poder desaplicar "pago deudor diverso" --- Contabilidad/PopUpAuxiliar.aspx.vb | 41 ++++++++++++++++++++++++++++++ 1 file changed, 41 insertions(+) diff --git a/Contabilidad/PopUpAuxiliar.aspx.vb b/Contabilidad/PopUpAuxiliar.aspx.vb index 9cdaaff03..1f7a89315 100644 --- a/Contabilidad/PopUpAuxiliar.aspx.vb +++ b/Contabilidad/PopUpAuxiliar.aspx.vb @@ -219,6 +219,12 @@ Partial Class PopUpAuxiliar Else e.Row.FCLinkButton("LnkDesAplicar").CommandArgument = String.Format("{0}|{1}|{2}|{3}", e.Row.DBCampo("CvePrePoliza"), e.Row.DBCampo("CveCompraAmortizacion"), e.Row.DBCampo("CveCompra"), e.Row.DBCampo("CveIE")) End If + ElseIf e.Row.DBCampo("CveConceptoContable").Contiene("37") Then 'desaplicar Deudores Diversos- Compra + + e.Row.FCLinkButton("LnkDesAplicar").Visible = True + e.Row.FCLinkButton("LnkDesAplicar").CommandName = "DesAplicarDeudorDiversoCompra" + e.Row.FCLinkButton("imgD").Visible = False + e.Row.FCLinkButton("LnkDesAplicar").CommandArgument = String.Format("{0}|{1}|{2}", e.Row.DBCampo("CvePrePoliza"), e.Row.DBCampo("CveCompra"), e.Row.DBCampo("CveIE")) ElseIf e.Row.DBCampo("CveConceptoContable").Contiene("21") Then 'desaplicar anticipo de compra @@ -552,5 +558,40 @@ Partial Class PopUpAuxiliar End If + If e.CommandName = "DesAplicarDeudorDiversoCompra" Then + + Dim CvePrePoliza, CveCompra, CveIE As Integer + Dim TieneError As Boolean = False + + Dim St As String() = e.CommandArgument.ToString.Split("|"c) + If St.Length > 0 Then + CvePrePoliza = St(0).ToEntero + CveCompra = St(1).ToEntero + CveIE = St(2).ToEntero + End If + + If CvePrePoliza > 0 Then + Dim Conta As New ClsContabilidad() + Conta.IniciaTransacSQL() + + If Not Conta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then + TieneError = True + End If + + If Not TieneError AndAlso Not Conta.DesAplicarPago(CvePrePoliza, 37, CveCompra, CveIE) Then + TieneError = True + End If + + If Not TieneError Then + Conta.Commit() + Alert("Pago Desaplicado.", TipoMensaje.ToastInformacion) + Else + Conta.RollBack() + Alert("Pago no fue desaplicado.", TipoMensaje.ToastError) + End If + End If + + End If + End Sub End Class From a6575975fff034bcbb5f8164d336cbd2286095f8 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 27 Sep 2024 12:33:57 -0700 Subject: [PATCH 14/18] =?UTF-8?q?--=20mejoras=20en=20selecci=C3=B3n=20de?= =?UTF-8?q?=20horario?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- UserControl/AddMedico.ascx | 71 ++++++++++++----------------------- UserControl/AddMedico.ascx.vb | 67 ++++++++++++--------------------- 2 files changed, 48 insertions(+), 90 deletions(-) diff --git a/UserControl/AddMedico.ascx b/UserControl/AddMedico.ascx index 9bfc9480e..33d28be5a 100644 --- a/UserControl/AddMedico.ascx +++ b/UserControl/AddMedico.ascx @@ -46,8 +46,6 @@
- -
@@ -79,14 +77,11 @@
-
-

-
@@ -161,12 +156,8 @@
-
- - - + -
- @@ -186,8 +176,6 @@ - - @@ -237,28 +225,18 @@ - - -
- -
- - -
- -
@@ -273,12 +251,7 @@
- - - -
-
@@ -296,10 +269,9 @@
×

- Agregar Especialidad

+ Agregar Hospital
-
- +
@@ -312,9 +284,7 @@
-
-
@@ -333,20 +303,31 @@       -   - +  
-
- - +
- - + + + + + + + + + + + + + + + + +
-
@@ -364,18 +345,14 @@
-
-
- +
-
- Cancelar - + Cancelar
diff --git a/UserControl/AddMedico.ascx.vb b/UserControl/AddMedico.ascx.vb index a2ede09ae..899791bfd 100644 --- a/UserControl/AddMedico.ascx.vb +++ b/UserControl/AddMedico.ascx.vb @@ -350,16 +350,11 @@ Partial Class UserControl_AddMedico ProcesoOK = False Exit For End If - Next - ProcesoOK = True - End If End If - - If ProcesoOK Then ObjVentas.Commit() ClsPaginas.Alert($"Medico {If(CveMedico > 0, "Actualizado", "Guardado")} Correctamente.") @@ -425,7 +420,7 @@ Partial Class UserControl_AddMedico IndexSeleccionado = -1 DdlClienteSucursal.SelectedValueExist(-1) 'TxtDiasAtencion.Text = "" - TxtHorario.Text = "" + DdlHorario.ClearSelection() TxtConsultorio.Text = "" TxtTorre.Text = "" TxtAsistenteNombre.Text = "" @@ -446,51 +441,28 @@ Partial Class UserControl_AddMedico Protected Sub BtnGaurdarMedicoClienteSucursal_Click(sender As Object, e As EventArgs) Dim TieneError As Boolean = False - Dim DiasAtencion As String = "" Dim ListaDiasAntencion As New List(Of String) - If ChkLunes.Checked Then - ListaDiasAntencion.Add("L") - End If - - If ChkMartes.Checked Then - ListaDiasAntencion.Add("M") - End If - - If ChkMiercoles.Checked Then - ListaDiasAntencion.Add("MI") - End If - - If ChkJueves.Checked Then - ListaDiasAntencion.Add("J") - End If - - If ChkViernes.Checked Then - ListaDiasAntencion.Add("V") - End If - - If ChkSabado.Checked Then - ListaDiasAntencion.Add("S") - End If - - If ChkDomingo.Checked Then - ListaDiasAntencion.Add("D") - End If - + If ChkLunes.Checked Then ListaDiasAntencion.Add("L") + If ChkMartes.Checked Then ListaDiasAntencion.Add("M") + If ChkMiercoles.Checked Then ListaDiasAntencion.Add("MI") + If ChkJueves.Checked Then ListaDiasAntencion.Add("J") + If ChkViernes.Checked Then ListaDiasAntencion.Add("V") + If ChkSabado.Checked Then ListaDiasAntencion.Add("S") + If ChkDomingo.Checked Then ListaDiasAntencion.Add("D") DiasAtencion = String.Join(", ", ListaDiasAntencion) - If CveMedico > 0 Then Dim objVenta As New ClsVentas If CveMedicoClienteSucursal > 0 Then - If Not (objVenta.UpdateMedicosClientesSucursales(CveMedicoClienteSucursal, CveMedico, DdlClienteSucursalCliente, DdlClienteSucursalSucursal, DiasAtencion, TxtHorario.Text.Trim, TxtConsultorio.Text.Trim, TxtTorre.Text.Trim, TxtAsistenteNombre.Text.Trim, + If Not (objVenta.UpdateMedicosClientesSucursales(CveMedicoClienteSucursal, CveMedico, DdlClienteSucursalCliente, DdlClienteSucursalSucursal, DiasAtencion, DdlHorario.GetSelectedValuesM, TxtConsultorio.Text.Trim, TxtTorre.Text.Trim, TxtAsistenteNombre.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) Then TieneError = True End If Else - If Not (objVenta.AddMedicosClientesSucursales(CveMedico, DdlClienteSucursalCliente, DdlClienteSucursalSucursal, DiasAtencion, TxtHorario.Text.Trim, TxtConsultorio.Text.Trim, TxtTorre.Text.Trim, TxtAsistenteNombre.Text.Trim, + If Not (objVenta.AddMedicosClientesSucursales(CveMedico, DdlClienteSucursalCliente, DdlClienteSucursalSucursal, DiasAtencion, DdlHorario.GetSelectedValuesM, TxtConsultorio.Text.Trim, TxtTorre.Text.Trim, TxtAsistenteNombre.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) Then TieneError = True End If @@ -508,7 +480,7 @@ Partial Class UserControl_AddMedico DTMedicosClientesSucursales.Rows(IndexSeleccionado)("CveClienteSucursal") = DdlClienteSucursalSucursal() DTMedicosClientesSucursales.Rows(IndexSeleccionado)("ClienteSucursal") = DdlClienteSucursal.SelectedItem.Text DTMedicosClientesSucursales.Rows(IndexSeleccionado)("DiasAtencion") = DiasAtencion - DTMedicosClientesSucursales.Rows(IndexSeleccionado)("Horario") = TxtHorario.Text + DTMedicosClientesSucursales.Rows(IndexSeleccionado)("Horario") = DdlHorario.GetSelectedValuesM DTMedicosClientesSucursales.Rows(IndexSeleccionado)("Consultorio") = TxtConsultorio.Text DTMedicosClientesSucursales.Rows(IndexSeleccionado)("Torre") = TxtTorre.Text DTMedicosClientesSucursales.Rows(IndexSeleccionado)("AsistenteNombre") = TxtAsistenteNombre.Text @@ -526,7 +498,7 @@ Partial Class UserControl_AddMedico nRow("CveClienteSucursal") = DdlClienteSucursalSucursal() nRow("ClienteSucursal") = DdlClienteSucursal.SelectedItem.Text nRow("DiasAtencion") = DiasAtencion - nRow("Horario") = TxtHorario.Text + nRow("Horario") = DdlHorario.GetSelectedValuesM nRow("Consultorio") = TxtConsultorio.Text nRow("Torre") = TxtTorre.Text nRow("AsistenteNombre") = TxtAsistenteNombre.Text @@ -574,9 +546,7 @@ Partial Class UserControl_AddMedico Protected Sub LnkEditarClienteSucursal_Click(sender As Object, e As EventArgs) LimpiarcontrolesDetalle() - Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) - Dim CveCliente As Integer = GvRow.DataKey("CveCliente").ToEntero Dim CveClienteSucursal As Integer = GvRow.DataKey("CveClienteSucursal").ToEntero @@ -593,7 +563,18 @@ Partial Class UserControl_AddMedico End If 'TxtDiasAtencion.Text = GvRow.DataKey("DiasAtencion") - TxtHorario.Text = GvRow.DataKey("Horario") + If GvRow.DataKey("Horario") <> "" Then + + For Each tipoDocto As String In GvRow.DataKey("Horario").Split(","c) + DdlHorario.Items.FindByValue(tipoDocto).Selected = True + Next + 'For Each itemTipoDocto As ListItem In DdlHorario.Items + ' For Each tipoDocto As String In GvRow.DataKey("Horario").Split(","c) + ' itemTipoDocto.Selected = (tipoDocto.ToUpper = itemTipoDocto.Value.ToUpper) + ' Next + 'Next + End If + TxtConsultorio.Text = GvRow.DataKey("Consultorio") TxtTorre.Text = GvRow.DataKey("Torre") TxtAsistenteNombre.Text = GvRow.DataKey("AsistenteNombre") From e41bf7fc5dcb54b0f954d5b8acb252027ec75c04 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 27 Sep 2024 12:34:26 -0700 Subject: [PATCH 15/18] -- mejora para SMS --- Ventas/Ventas.aspx.vb | 29 +++-------------------------- 1 file changed, 3 insertions(+), 26 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 64aae4db1..b06befc54 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -12284,7 +12284,6 @@ Partial Class Ventas Return ProcesoCorrecto End Function - Private Sub CreaObjetosVenta(Optional VistaPrevia As Boolean = False, Optional EsCancelacion As Boolean = False, Optional TipoDoctoViejo As String = "", Optional TipoDoctoVistaPrevia As String = "") If Me.CveVenta > 0 AndAlso NuevaFactura <> 1 Then @@ -12332,7 +12331,6 @@ Partial Class Ventas 'ObjFactura.Folio = If(ExFolioFactura, FolioXML.ToEntero(), -1) ObjFactura.Serie = If(VistaPrevia, "VistaPrevia", LblSerie.Text) - If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then Dim ObjFolios As New ClsGralFolios() Dim TipoDoctoConsulta As String = If(ObjFactura.TipoDocto = "Ant", "Ing", If(ObjFactura.TipoDocto = "PA", "Rem", ObjFactura.TipoDocto)) @@ -12375,10 +12373,8 @@ Partial Class Ventas ObjFactura.CondicionEntrega = If(DdlFormaEntrega.SelectedItem IsNot Nothing, DdlFormaEntrega.SelectedItem.Text, "") ObjFactura.CondicionesPago = If(RBLPago.SelectedValue = "2", 0, If(RBLPago.SelectedValue = "1", 1, 2)) ' 0 - Contado, 1 - Credito, 2 - termianl ObjFactura.FormaPago = 0 'DdlFormaPago.SelectedValue.ToEntero() - ObjFactura.AtencionA = TxtAtencionA.Text ObjFactura.FordGSDB = "" - ObjFactura.NumeroContrato = NumeroContrato ObjFactura.DescripcionContrato = DescripcionContrato ObjFactura.NumeroDescripcionContrato = If($"{NumeroContrato} - {NumeroLicitacion}" = " - ", "", $"{NumeroContrato} {If(NumeroLicitacion = "", "", $" - Licitación: {NumeroLicitacion}")}") @@ -12407,9 +12403,6 @@ Partial Class Ventas ObjFactura.Fech1 = TxtFech1.Text.Trim.ToDate ObjFactura.Fech2 = TxtFech2.Text.Trim.ToDate ObjFactura.Fech3 = TxtFech3.Text.Trim.ToDate - - - ObjFactura.Alfa2 = TxtAlfa2.Text.Trim ObjFactura.Alfa3 = TxtAlfa3.Text.Trim ObjFactura.Num1 = TxtNum1.Text.Trim.ToDouble @@ -12430,17 +12423,12 @@ Partial Class Ventas ObjFactura.DiasCredito = DiasCredito ObjFactura.EsDiasCreditoFijo = EsDiasCreditoFijo - ObjFactura.CveCorte = CveCorte - 'ObjFactura.CveMesa = -1 ObjFactura.NumeroPersonas = 0 - If ObjFactura.TipoDocto = "Ant" And DdlContratosModal.SelectedValue.ToEntero > 0 Or ObjFactura.TipoDocto = "Ing" And DdlContratosModal.SelectedValue.ToEntero > 0 Or ObjFactura.TipoDocto = "Egs" And DdlContratosModal.SelectedValue.ToEntero > 0 Then CveContrato = DdlContratosModal.SelectedValue.ToEntero End If - - ObjFactura.CveContrato = If(CveContrato > 0, CveContrato, CvePresupuesto) ObjFactura.CveClienteSucursal = DdlSucursalCliente.SelectedValue.ToEntero() @@ -12476,24 +12464,13 @@ Partial Class Ventas ObjFactura.Det_OrdenCompra = TxtDet_OrdenCompra.Text.Trim ObjFactura.Det_FechaOrdenCompra = TxtDet_FechaOrdenCompra.Text.Trim ObjFactura.Det_ContraRecibo = TxtDet_ContraRecibo.Text.Trim - ObjFactura.MonedaAbreviatura = "" - - Try - ObjFactura.MonedaAbreviatura = GlobalDTMonedas().FiltroPrimeroValor("Moneda", $"CveMoneda = {DdlMoneda.SelectedValue.ToEntero}") - Catch ex As Exception - - End Try - - If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then - ObjFactura.FechaEjecucion = TxtFechaOS.Text.Trim.ToDateTime - ObjFactura.FechaParaSurtir = TxtFechaOS.Text.Trim.ToDateTime - Else - ObjFactura.Alfa1 = TxtAlfa1.Text.Trim - End If + ObjFactura.MonedaAbreviatura = GlobalDTMonedas().FiltroPrimeroValor("Moneda", $"CveMoneda = {DdlMoneda.SelectedValue.ToEntero}") + ObjFactura.Alfa1 = TxtAlfa1.Text.Trim If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then ObjFactura.Medico = DdlMedico.SelectedItem.Text ObjFactura.Procedimiento = DdlProcedimiento.SelectedItem.Text + ObjFactura.FechaParaSurtir = TxtFechaOS.Text.Trim.ToDateTime End If 'CONVERTIR REMISION - TIPO MONEDA -DOLARES A PESOS From 6481bf7a411b1cc646b5b4fdce84193b74d68348 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 28 Sep 2024 08:14:41 -0700 Subject: [PATCH 16/18] - mejoras --- OS/OrdenesServicios.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index 19a47c992..e9acb1d41 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -3154,7 +3154,7 @@ Partial Class OS_OrdenesServicios End If 'asigno la cveventa, como concluido If ProcesoOK Then - If Not ObjOS.UpdateVentaOS(CveVenta, CveOS, UsuarioActual.CveEmpresa, TxtPacienteModal.Text.Trim, TxtEpisodioModal.Text.Trim, FolioAdicional:=TxtFolioRemisionModal.Text.Trim) Then + If Not ObjOS.UpdateVentaOS(CveVentaPedido, CveOS, UsuarioActual.CveEmpresa, TxtPacienteModal.Text.Trim, TxtEpisodioModal.Text.Trim, FolioAdicional:=TxtFolioRemisionModal.Text.Trim) Then ProcesoOK = False End If End If From 1dc672b5db6ed505d01d80770efe105b04da31b7 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 28 Sep 2024 08:14:56 -0700 Subject: [PATCH 17/18] -- carga conceptos, estandarizarlo --- Inventarios/EntradasSalidas.aspx | 44 +++++--------------------------- 1 file changed, 7 insertions(+), 37 deletions(-) diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx index 6a2dbe295..8f60930cd 100644 --- a/Inventarios/EntradasSalidas.aspx +++ b/Inventarios/EntradasSalidas.aspx @@ -1566,14 +1566,14 @@

Cargar Conceptos

-
+
- Descargar Plantilla + Carga por Plantilla
@@ -1583,38 +1583,7 @@
-
-

Paso 1 : Descargar Plantilla

-
-
- -
-
-
-
- -
-
-
-
-
-
-
-
-
- - Cargar Plantilla -
-
-
-
-
-
- -
-
-
-

Paso 2: Cargar Plantilla

+

<%--
@@ -1633,9 +1602,10 @@
- <%--
-
--%> -
+
+ +
+
From 632cc36bbbace32332ad0eda24bd553e4c1238c4 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 28 Sep 2024 09:59:44 -0700 Subject: [PATCH 18/18] -- PARA SAT --- App_Code/ClsNominas.vb | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 9aa7eb1a1..ecf2cdbd3 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -3787,6 +3787,19 @@ Public Class ClsNominas Return retorno End Function + Public Function SolicitudesDetalleSATGet(CveSolicitud As Integer, CveEmpresa As Integer, Estatus As Integer, CveTipoSolicitud As Integer, Optional CveSolicitudDetalle As Integer = -1) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Gral_Sat_SolicitudesDetalleGet") + addParameters("@CveSolicitudDetalle", SqlDbType.Int, CveSolicitudDetalle) + addParameters("@CveSolicitud", SqlDbType.Int, CveSolicitud) + addParameters("@CveEmpresa", SqlDbType.Int, CveEmpresa) + addParameters("@Estatus", SqlDbType.Int, Estatus) + addParameters("@CveTipoSolicitud", SqlDbType.Int, CveTipoSolicitud) + + retorno = RunQuery("Ocurrió un error al cancelar la Solicitude.") + + Return retorno + End Function #End Region