From 3affcebabf9648007c5f802c62c4829533db45f0 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Tue, 10 Sep 2024 16:28:54 -0700 Subject: [PATCH 01/16] Folio RepContratos Limpiesa --- Transportes/RepContratos.aspx.vb | 66 +------------------------------- 1 file changed, 1 insertion(+), 65 deletions(-) diff --git a/Transportes/RepContratos.aspx.vb b/Transportes/RepContratos.aspx.vb index ea8f5663a..0c7c732ac 100644 --- a/Transportes/RepContratos.aspx.vb +++ b/Transportes/RepContratos.aspx.vb @@ -71,7 +71,6 @@ Partial Class ListadoContratos End Sub Private Sub CargaFolio() - 'Dim CveSubProyecto As Integer = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero Dim ObjFolio As New ClsGralFolios If ObjFolio.GetFolios("Con", UsuarioActual.CveEmpresa, CveSubProyecto:=-1) Then @@ -122,7 +121,7 @@ Partial Class ListadoContratos Alert("Debe seleccionar al cliente", TipoMensaje.MsgAdvertencia) Exit Sub End If - 'Dim CveSubProyecto As Integer = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero + 'Agregamos Contrato @@ -413,68 +412,5 @@ Partial Class ListadoContratos End Sub - 'Private Sub CargaFolios(Optional FacturarDocumentoNuevo As Boolean = False) - - - ' Dim ObjFolios As New ClsGralFolios() - ' Dim TipoDoctoConsulta As String = "" - - ' If ObjFolios.GetFolios(TipoDoctoConsulta, UsuarioActual.CveEmpresa) Then - ' Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros(String.Format(" CveSubProyecto = {0} And Estado = 'Activo'", DdlSubProyectoDatos.SelectedValue)) - ' If DT.Rows.Count > 0 Then - ' ViewState("CveFolio") = DT.Rows(0)("CveFolio").ToString().ToEntero() - ' 'ViewState("NumAprobacion") = CLng(DT.Rows(0)("Aprobacion").ToString()) - ' 'ViewState("FechaAprobacion") = DT.Rows(0)("FechaAprobacion").ToString().ToDate - ' ViewState("FolioActual") = DT.Rows(0)("FActual").ToString() - ' If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CveVenta > 0 AndAlso Not EsCreaApartirDe AndAlso Not String.IsNullOrEmpty(SerieVenta) Then - ' LblSerie.Text = SerieVenta - ' Else - ' LblSerie.Text = DT.Rows(0)("Serie").ToString() - ' End If - ' TxtFolio.Text = DT.Rows(0)("FActual").ToString() - - ' If Not FacturarDocumentoNuevo Then - ' If Not CveEmpresaCRM > 0 Then - ' 'SI ES UNA REMISION EXISTENTE, NO MOSTRAR LOS BOTONES - ' If Not (CveVenta > 0 AndAlso DdlTipoComprobante.SelectedValue = "Rem") Then - ' BtnCrearApartirDe.Enabled = EstatusCliente AndAlso TieneBloqueoPorCreditoVencimiento = 0 - ' BtnEmitirImprimir.Visible = EstatusCliente AndAlso TieneBloqueoPorCreditoVencimiento = 0 - ' TrVistaPrevia.Visible = EstatusCliente - ' End If - ' Else - ' If TipoDoctoConsulta.Contiene("Ing", "Egs", "Ant", "Dev") Then - ' BtnCrearApartirDe.Enabled = EstatusCliente AndAlso TieneBloqueoPorCreditoVencimiento = 0 - ' BtnEmitirImprimir.Visible = EstatusCliente AndAlso TieneBloqueoPorCreditoVencimiento = 0 - ' TrVistaPrevia.Visible = EstatusCliente - ' Else - ' BtnCrearApartirDe.Enabled = True - ' BtnEmitirImprimir.Visible = True - ' TrVistaPrevia.Visible = True - ' End If - ' End If - - ' End If - - ' UpFacturar.Update() - ' Else - - ' If DdlTipoComprobante.Items.Count > 0 Then - ' Alert("No tiene registrados Folios para " & DdlTipoComprobante.SelectedItem.Text & " en esta sucursal.", TipoMensaje.MsgAdvertencia) - ' Else - ' Alert("No tiene permisos para generar ningun tipo de documento.", TipoMensaje.MsgAdvertencia) - ' End If - - ' TrEmitir.Visible = False - ' TrVistaPrevia.Visible = False - ' BtnCrearApartirDe.Enabled = False - ' BtnEmitirImprimir.Visible = False - ' UpFacturar.Update() - ' End If - ' DT.Dispose() - ' End If - ' ObjFolios.Dispose() - ' 'End If - - 'End Sub End Class From cc44a8377d568fce61a340c74507d04c0e986f00 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 11 Sep 2024 05:24:31 -0700 Subject: [PATCH 02/16] - ocultar paqueterias guias --- Ventas/Ventas.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index e0200a5c8..d6bafab90 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -373,7 +373,7 @@ -
  • +
    • From 09b084a6d97aa6497622294cc2869058c74ab303 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 11 Sep 2024 05:24:58 -0700 Subject: [PATCH 03/16] =?UTF-8?q?--=20cmabio=20en=20correo=20de=20env?= =?UTF-8?q?=C3=ADo=20de=20recibos,=20al=20igual=20de=20factura=20de=20vent?= =?UTF-8?q?a?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Nomina/Nomina.aspx.cs | 14 +++++--------- 1 file changed, 5 insertions(+), 9 deletions(-) diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs index 3ed9e79df..a7c092926 100644 --- a/Nomina/Nomina.aspx.cs +++ b/Nomina/Nomina.aspx.cs @@ -1272,7 +1272,7 @@ public partial class Nomina_Nomina2 : ClsPaginas } } - Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Correo.Trim(), string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy}", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), "", "", objarch); + Mail.SendMail(UsuarioActual.Empresa, Correo.Trim(), string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy}", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), "", "", objarch); // Mail.SendMail(ClsPaginas.EmpresaNotificaciones, "caudillo.90d@gmail.com", string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy} ", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), Correo.Trim(), "", objarch); objrh.NomBitacoraCorreoAdd(CvePeriodoSeleccionado, CvePersonal, Correo.Trim(), UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario); @@ -1409,7 +1409,7 @@ public partial class Nomina_Nomina2 : ClsPaginas objarch.Add(new ClsSisMail.ArchivoMail() { Ruta = PathXMLF, NombreArchivo = XmlnameF }); } } - Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Correo.Trim(), string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy}", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), "", "", objarch); + Mail.SendMail(UsuarioActual.Empresa, Correo.Trim(), string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy}", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), "", "", objarch); //Mail.SendMail(ClsPaginas.EmpresaNotificaciones, "caudillo.90d@gmail.com", string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy} ", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), Correo.Trim(), "", objarch); using (ClsRH objrh = new ClsRH()) { @@ -1534,7 +1534,7 @@ public partial class Nomina_Nomina2 : ClsPaginas } } } - Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Correo.Trim(), string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy}", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), "", "", objarch); + Mail.SendMail(UsuarioActual.Empresa, Correo.Trim(), string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy}", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), "", "", objarch); using (ClsRH objrh = new ClsRH()) { objrh.NomBitacoraCorreoAdd(CvePeriodoSeleccionado, CvePersonal, Correo.Trim(), UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario); @@ -1676,7 +1676,7 @@ public partial class Nomina_Nomina2 : ClsPaginas } } } - Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Correo.Trim(), string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy}", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), "", "", objarch); + Mail.SendMail(UsuarioActual.Empresa, Correo.Trim(), string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy}", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), "", "", objarch); using (ClsRH objrh = new ClsRH()) { objrh.NomBitacoraCorreoAdd(CvePeriodoSeleccionado, CvePersonal, Correo.Trim(), UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario); @@ -2704,16 +2704,12 @@ public partial class Nomina_Nomina2 : ClsPaginas objarch.Add(new ClsSisMail.ArchivoMail() { Ruta = PathXMLF, NombreArchivo = XmlnameF }); } } - - Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Correo.Trim(), string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy}", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), "", "", objarch); + Mail.SendMail(UsuarioActual.Empresa, Correo.Trim(), string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy}", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), "", "", objarch); // Mail.SendMail(ClsPaginas.EmpresaNotificaciones, "caudillo.90d@gmail.com", string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy} ", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), Correo.Trim(), "", objarch); objrh.NomBitacoraCorreoAdd(CvePeriodoSeleccionado, CvePersonal, Correo.Trim(), UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario); - } } - - } } } From 30576db4ed905e8810cc09b64aaa4cded8a22202 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 11 Sep 2024 05:25:24 -0700 Subject: [PATCH 04/16] -- subproyectos por usuarios --- Ventas/CatPromociones.aspx.vb | 2 +- Ventas/Promociones.aspx.vb | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/Ventas/CatPromociones.aspx.vb b/Ventas/CatPromociones.aspx.vb index 2d7ec33b3..1790559c6 100644 --- a/Ventas/CatPromociones.aspx.vb +++ b/Ventas/CatPromociones.aspx.vb @@ -26,7 +26,7 @@ Partial Class Ventas_CatPromociones 'ImgAddPromocion.Attributes.Add("OnClick", "window.location = '/Ventas/Promociones.aspx'") 'CARGA SUCURSALES - DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) + DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa) DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) diff --git a/Ventas/Promociones.aspx.vb b/Ventas/Promociones.aspx.vb index fb16837a2..d578382e4 100644 --- a/Ventas/Promociones.aspx.vb +++ b/Ventas/Promociones.aspx.vb @@ -236,7 +236,7 @@ Partial Class Ventas_Promociones End If 'CARGA SUBPROYECTOS - DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) + DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa) DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) From 2fa7dffcaebfa371c583a7c691e549b18ee53ad0 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 11 Sep 2024 05:25:49 -0700 Subject: [PATCH 05/16] =?UTF-8?q?cambios=20de=20css=20bot=C3=B3n=20cancela?= =?UTF-8?q?r?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/ProductosServicios.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx index 231cfe849..9cd27b107 100644 --- a/Ventas/ProductosServicios.aspx +++ b/Ventas/ProductosServicios.aspx @@ -1967,7 +1967,7 @@ - + <%----%> From 6d8ccd98a6bb6eb5967ec641cabb2ad26a5f5291 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 11 Sep 2024 05:26:30 -0700 Subject: [PATCH 06/16] =?UTF-8?q?--=20correcci=C3=B3n=20de=20columna=20de?= =?UTF-8?q?=20tmpdt?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/EntradasSalidas.aspx.vb | 1 + 1 file changed, 1 insertion(+) diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index da6e1c5eb..31cb0d9ba 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -652,6 +652,7 @@ Partial Class Inventarios_EntradasSalidas dt.Columns.Add("Observaciones") dt.Columns.Add("CountMovimientoEntradaDetalle") + dt.Columns.Add("TienePrePoliza", Type.GetType("System.Int32")) dt.Columns.Add("TotalExtranjero", Type.GetType("System.Double")) dt.Columns.Add("CveCultivoCuadroDetalle", Type.GetType("System.Int32")) From 2b72f21d8fca376fd7d822315cc3f3302d054854 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 11 Sep 2024 05:31:21 -0700 Subject: [PATCH 07/16] - --- Bin/System.Memory.dll | Bin 141184 -> 142240 bytes 1 file changed, 0 insertions(+), 0 deletions(-) diff --git a/Bin/System.Memory.dll b/Bin/System.Memory.dll index 5d1947056f1c1dd2d48561cf721f615bb8dc0d63..46171997966f26bda11e58586c51b2817bde5cca 100644 GIT binary patch delta 7151 zcmcgxXIK+mx1AY6s7miGN|!cC2oRJG0!lB6fYMQF=qN2A2!aKqXe=mI5ETVMI*1g- zN>NanGzAnH}tvO~Zu8USwcKma8h3rbhnK!GVLOdtT*0{{;b zFTe}(LJC0uprkAhp;;6fK>!_&0swS80R-3)hSe#1CUvZ;EA4nPxKwMv1xmSzaLK9y zv48*ru?#dtFbOzJI}r>jl6_@cfg-?HwjJOFlB5|jX@*St4?~wpGi1^X*}ukK5Pf<@Ci-%VnCP)Iiawb%su4IVFO5Q`p(T<) zA#-HyX!?qh(DW5OMbiaFELRbxouwUUlK;dK4sggxv*JNyI9B=)pIGTR6t*gWB&*L! zzbh0v)=rSXpP+}YEFenf#zlvL7zF7tAT|tiA;{px=;P^&(_?)JI!;K?X9FaM0UkL( zlFnd|_@Er-AF&iYpCZN3Vi2Se!$3tai{=#u8c1=-oz$5^)cS_>EO!RxGjN=aw00zy z51DQsqnm*gI?}enKnXI3T&pF$W1NA26+Je#qW_NG45ToalZ-f@5w|i>-yaJ9P*bSs2*aKWbuovh;un$;8 z@HGI7K)@T|7=rx(iUI)0^8$bXR4Wh*mYQ=fnjE53$d{Yet!Q1lmO*W=ebE6r%Q)k) zcvwpn#sUDP3Z%&5e{mRn!$`lt2*VTF7_UH5q<4f*c!Y|UIu=jBd;5C9j0?#L z^9c4jri}^n3H0#@_ff;CVpS~d?Tl#ApFpev9_Oh}#1ipDUr%o=j^K-j)nPo=3r~RY zTAo-Rth%SV51vTSs_pp%&Oo(wU%**3*=qkcAy4gd%oh9hO_iD54TtJ(Vyb>;jkQXv zE23{S$3v(qm)j{H9(7}Q#NMV$D0L+I*LTH;C*_#8$>k#4|P+ttI>Et(V- z;EJVrE`clj0Fa7&oPS+~^ca)5LlDfVO&F|_mR z;4#pcwzdvRgP2;04Uh?B!vk0V55Ry{t>Pv~0+|BAV%pU$Q1PD~w3l0;1l9`(1V}(6 z;0;6oK0r8vDu5QC&QKGO5xfCkzzZ4Y@1F~NkP@2;V2PNo9bj}p2lBGU1317F(GU?8 z5z!D4jVGeSB0K?!>FZEOUi3A2AxL1vT1XBSnG=ij(bYZ-B>~X7@Ey_waWpIlb+K{( zqhM6yYk45(8<+{RNHGct1OYHr{yds(SBhE6&ut(JluwmUM5uV06biC4DGp@mF4HO> zWsbco^P&9s^yZ>?Tf zBo5Q>F+{6DK{=8*EKG!PSS>t`Ky((`hQlFE?4KqaK?~)89BIwWkUqKRLw82i@^94e zy$@1L(zkDNu`a1+-+Xhc->|5WiaHqjRQ9R%fZAD$eZpOZ^Qo0J@LIbCZ~79Kb!Dn24H@Vg;< z?x9$pdcRsn`In^a@2p0b$y0~biuc7mT`;Dt9{!%&`Y^qn9XgTWIz9Y8uwUSi_)rWk z^}K-nN%ml%wfx3#SBtxGq|8^=5{D;KXYRcuAKM#ddhGeY%S^>0{Etbz)jRlePciioik?#?4`YGlHyAlSiN`|-&T0%%s28*a* z0!#&CXzVPIvM(XanaAMFyMT(?8Y}3lWZYh%6TPqvn#oau2W1YM7Ms9ESVdSKAy6EA z7)w8|Fj6?lHv(fF;uGc(;YSJ%$Jj*rghh}rc79$YtRT!!Pi5xYhQq@!7N?}Hp-CWW z((+lLb+VwjX1%hvg}%p|VSQSKXH%jwc+}m^`SPmiA#6&I;%(vCR6CUji;lwvBa_!m z`yOUKQOsI&6?J2pKYM9^S^=98X!>#g-ECtF%hF@5ItMQndXb(MS`B#HQ?B59)q6{y z&hDm}+ox%n+_bJaHmChd=sGoDBE~jfJu6fEL1qJ)=XBkDc={0LN#Ff7j={U+_9!(~ zi&Vi~d1r-5Sg)c-Evw_T?|Sx$9M!Ffw#@(^ayHykoNyJq(0iEAq8Y;{`To?82Sx2W z{TmyqHanjcojGA#*NmN5)&kYe&v(eFmPhq5yX=4Cv^q6)ZL3s{W3Z&9(X%UfY581l zbd-dg4moec(|~?UpBJ$XO^&^sG^s<6 z5qI!BxzFtVEz0JX5TDD*vn_#Hhr=w-N8_f)wYD=a+~Uy?o8$+1tv@~f-mSXx@!*N( zJ?7KgIMmI4UccI0c8J2lDME#*A_))(!ig7XBo2te|KC2~O}x-y%uMD1*OXrm9dfh< z${of!sj;~t;~G{utf6ehA1Qf&8;!^Z9VDxaJlT;LHSSjh%jGat3@rE@)LvZwN<6Mu z8CVrEp`*vmA%?vt4URg63ti~@o|{s>dgIcbXI(@ifuW2;5y>U7pZ&(W%vL>b$n0l5 zjq64o>HpEpzJQy&#@*1jUf3h5{pQI^a~uyTS<~?n*TvSBM#)0Cy7+!|}&{QTX>PeNDdqH!K6;hX_C*!1) zVzYzK-+yl@t?BDtEg&2wnt=C(7uL?8-*4+)ymX+9*T21|8ufim=&Gz%0~a&=O?C;# zl#mnqeZ-e$q^47&P});Ec;?Zs*JclHx?rue3aCPyFja^Z&8~z7Q6N>5i3!9~1y^CJ z;L^VtvEWC9nxH-8hlE5O(Hws)nvEMoEk8v2X<*X0YZBQm?-M`3iIJ$#Ci#^7L3QK6Esvc@#@YniUNU4 z`H63e6MNyrR}3$<`(L<;94zw>&+?&Z%%ulb%NoNf zO6I5S&8)n+jS>x}@4Vn`9V_v@?A>`W@pVywjAV4bQaUlWK7jYWIe9+q2GfRvghAVj z>$Dt^S8ax^!bQC!n8(Xft*=9`{{ZKQh^Kzf6|E3;PmFEuhzg5WY#<9PytiR?sxu`# zy6hYH(>CBY^-1dKBUj^IZ-(T9S=-&z%z8u5oGEe5FMi}Py>K+?XsneIo;4&zZ!R(D z#!#6i`m;#+ZhOC zQg!fMJ}wI$?$5cJsR1aRjI{C>WX{X?4g9Ybk9OWSx%*St{pD%lO0mKUxi$VI-W0hT zG%UU$I8@n+|KsmUo+g>TX&oP%myX|eP-P?|J1Ehi7n|)hKXW)eCl|9NC>wos2|1@& zUwPm`3&m~F*PT^mZh~j`ff%)mC2i3so;;0R``wAQXlN`GvNb>_8blXc_e94P!)QFQnRs{}0EcO^ZNUWC#STd4FLS2etX*-(dSvT!&~CaZTen4~e88 zC+A*^37_9xq3892blzG<_3Wwd+U92)r7ra4dofY?;HJNqH>O^`wtW<5kvCvt)Gm~J zP5BAAM<&gZvh1vVS;y1TiT6%w^_L9E=2ur^w{E{XLB5idZOC~rz`5|n`<~1jcyc(g zyXNtEV%VDIgw&wf>yRxW+*AgkiFbJ9mfxwl4wlH>vWrOvL`|b2%^ih&6P-F0%OA2V znOWPifMK-dHx%i$4XrMTnNVnAbt}VMrMRQ-`3YeiHs9&{vx*mzmbr2T*9ulHk0j&=FthrGdv~8vv<2P$tOCJ< z)_`N_J4VMghwrAdlt$RREM$(j)vl)!rB`V#^GmG8>9$}w-|o2A#mgw3_bUVBE6rIm zKGJf4fW9zfs8D!@&uX}iXru~lQ#;e4f&D0-FJao@^%&IkL zY6yKgc=2QD5yFqzQ9{Oo0J_}1tE|WEP#=z6=)0kP*$WKVzSpY{w0bj}1^hpw7mW}KM> zXxd`Xb#eNJ9uH%+a5x+Rv1eo-$!Ox~P1-$KD1r8k1KL6UFi~PLQysR0<3!=}w=yT1 zxA#+DZ+y*VVd*Oiw2JI{MmV?vk^}dRPd3-<3c2IAT&O7gS&v~;><7o0; zY0d}d_`0KUt=z)1?(zP1NyfD$>3aiM_!m2)mQ!p-9vOFqy4qqj^Vzk6&&|K(dM9Te zNA!SVI&N)*k^SyT+`hA-(L#{(9=f!@!R%HLnR~~+eJ`lo~k}2(?0$*BjJHV#>g*b$4f!S zc3;`sJYRe_Mp5(5^SLCGnZ3c!aQ&?*u&cH5r04yY^^@nwsUI%h0rxewgq8`p9Cd%c znw2Rjp|gSM4v#muvN!T&hnxB+Z`#1d4NQE(`rvhwv6?Wo;dnPn!|<&HjV~G&D@wsP zd2MGOGBXwRhL>1sM&yXAQ@Iwnf7F@^&zH_#j?=RkzIUW;vHxATj*-}cVUw+d0vBwje|Z7F7v-1fdh5JR2!cM3jiwJ`G=rUOpC(Qnri88U)_DVop zAbH#0`!SG%8DOF!4tdQnetlQ@gtF985G&&{aXoDRdKu}nD}Rlym8tjfN^~|&2aA6| zeA^bPp*Q3m7}pa?3~J=UerU`19oSotBfRtLC*Pym_LifU8fqkuztd37Eu$U)m@1fC z(q{d}8`!?aj`@>X6rTsb(=#JSf`h{EgQ%R#LDCK%j@w7d9IPMBTTIt^ym)NPXQlYS zt)CZa6ddJyWSaH!ABxoQ^70(kkssH;sCDP(nqpdelTd|2vSHOa=k+rpX)_BP{)ugg zB8DP%k*77)oW|Q4%RDaJChoEa-5oXGjR;DVC_)(z`z1L(~ z!h@crvo%+N2hAP42gBczC0&fcbZ3#wfNgoj3L{5F6l5B-_FoD9y~82E--O4s?0fCq zuGzFB*4O%aETSG9bYQFW1C7ZEaRnZM;hXG@UkrS8{5GCHGB8g_$ZmPQy8A<|z{BcS zx;L=4Cz~EZkEn&QLJ|UL=R!7T9`q=Prg3Cw3^iD+UEN~;q`oRcII1+ht#114<$;Nv zpBLl}b!2mC?d@?eOUy{hH8uhgI$ z%-oMc(f-`k5{`JMs)7*T9|csX52ix98Rw$)g8z?wvpg+&C&a_wn($3hF^fqvNqKbF zOD~t9Yxj)FwA`K0CHd(c`QPB3!d!oE?+FB)x~B8r1QBKsG#BKr;Ii~&*}dbtH)$djfG3C)E5*}FfLn|5#V67Lu=UDgv*X-3b<%C%N?WKHADh z>y&uqb7hS9+zT9ge5r;rTzURwbFqq(@`B22sDxzYD{eIY^7x+9&TU2KnLSRj_F<{0 zZOCbXMv{TfaQ){wflU_D$Ha_=(q5E^%xdm!OWkRVy{BiO+duJ9FwCGaIM0^Kn@01K zg(Rg-7sxYg7ohQG;j*Tm74Zwx789-4d2T8Sx!$qV9ZDC26ED&7c0x&H#tHX7PbBb8 z6h@dQc_6arMMK_H-ebqxI*Y9t!GSOKd5Ubb1YbH8iiK@<)LX4(VS;!o zp2t>$7{}TxB*B66STH<6TxK-wuGg!z+jsHlhkddOJqnp!Nwa&;+OCWlpMAgR`Sp5C zQtEo?t^V4*jR$ICwvX$GnNPb%r=@R|_JvXB4XTduzRNC3y^1O&7luYtHPog{J}?v0 zkLK;rZ8je=CBHDFc#!itKcCrbQa$}~w)Ld!fj;+Jmx;?sS4@+IhM^CNZP8`B8}^?w znW|Z@XeTadMb?XAE#8)RQW|^pP4AS3yJD)kRk?ipPAy0%1hivi^Ycv0iOEZ4GCZ;+ z;<&5H7iBXfL=;xV9exUz2dFkR?Du(IGp9qUT+)4d@o9*iTAvV(WbavTvaz5yCn}@I xQ`(?Kp)}(XBl%+e3A76@ItImFb@A0G7p5EapODGwN{H!J`BZET@2BsX{tLC~`^W$Q delta 5883 zcmb`Kc|4Te`^V3H&lpRMWt4px$sX<*#uge|l5E)`Vhl=1Nrhq-*-}p=ZX_v6T2Qtg zA}tD$ioO*U5~UOsNw(iT^YpyF&+q&C{`tM~z|ebyNYmlvS>e6H&rt^{eS_k%WN@z%DWj5CNX?`@+M3t%})n7%ay=$Rrpjptq-> zHQ7Fp2E@+hU_`RZA#dntHUvw`zIY9Q@bB0gA~5(s0H9a`8zh?osaCtf5h*$l1b{mL z5;zhdK_pl+5&)ewYA``ivk?M>y?6i!2{Z_ZzyzV}v9tjQR6j_MONPelt;8VZ09k^X z9ykb=^QpM~=Ic0^7lng)Q8<_vg@b#5zXlF&1luw4V)=I9 z?}jkHlPW(@1Tj7PN^21d5VgIz5Fz@zSINo$ia6DTT&%2o_z7Zs8sN%8Ppqwa3 z+5ww8fj6Th0&hm`1YUrR;3-VGD|i=FYm5o*1+coRkO71ZC&U|KOo-QqEnE#k)#%H4 zPle56{ZJG%12O#7fE-U7lXh@#qRXo36;?kRtDHK&c-HsRJdR zLdI-ob@E@fGOs^dnIB8Wh?+)2T2MO5jE1a~VfDin!&o%kn%66k&tg6Yc|`AGeI>Em zZRET8Wb=qFMMH`#SiQxG=NRM@IP+{tNd^9SOS&SwjsgM0!H%v=9tFZ7AvQ-y7` zb})&t15B=f!9zfofY-MkU7@1=JXvQw)4l{CeNJI!@ zZ-_oskAkwtAd0535kd(y3^k%sX^4qwXlM}CloHG|4yKt$WZUL~D8TeC>x9>UhD5?O>bf@;{faKcsrR`3sPo z*~kn&t7_YKZj>edOkwLEyWd76hIlB)TMCR=BX!0Hbr?+p;hZExpXasvMPv+INXL5( z4^aey+tx>p=ZWOxkUf@(crr7+(>I2X7%c9X`SsLqd~1Y_4fenQFA4HKVeGAdB_wk! zv6)XnV6(feyLpfCov%0O8_N6Hhh?^R`eANhXXa<+7jPgdI^2&!GeUPvK|hFW>{tBz zDnKKrA$jO%efl(%OvplnP|G%L~h5*{;88ZG6(21vo4Xp;a;XI(2x@A*;oW$JTGT4B-c!nql zN@hhlPADuLNb|h%G-#id^SSR^Z+aPf-PxUCv+K5jrj-$)lhlydJ|kYBFGx^08~*G3 zNz`&Ewb!q}h?F^WtiAe7h0x6PNZiIgk#AcjCDm5ONp~tM+b&fV%nxa^UbfzLiJnUE z86nyCp$ReKt{I}oI9Hrz4TG8T6Yo#wUD7_QGU|COJE7gXyY0z01=mXtNg;%a1(>Zj z`Lb;^LdJ@GrbfrG%wb0vCthtS_GFBB^bnq?+}xPOsVGGAdhRh5?vRgWo`yNg=fcoi zzKpPK!#}%T8ym6q^c%bpV-LVMELD_nAuhs&5>XLBc+Jk&OW^KSsfmz6jnEGZ_&j-9 zxLqpZLBM$`O5mLk$5IExo}!EBU;=)bQjf>5YBhBQNpfe~6L2+y-lPTG#9Hm6B**LWS*oY4K5 z#XV<4uOt*l*2fo5j+(Gr!ws#2X~16f!8eZp#KUS zxvn(d;*k=8PrF%pCUe*$<>$QMeS4!s$(6IO>PKrr-{-N077J|W!@t%abFeP^EO2Y3 zaM^I=Daq?+iq4ls-=1r#X2`#8x=?FxdB0%%bX~?Ps*>gCQ?{hvnY?537sZ$PzyBVs zl5%*+vF5m&%Ad)aBVOt1d*wFS#+0)x7gF4OuQ@GBmscP2rfqo(UD1jl)FiC0x9@c# z7`!FyHROJGImfCt+26X~;|wA9t+?6s5VJY%l~J6W_Wjdk&iTaJmdPD5uDPWZ@#_>u z(k@fq^@KtP@DFO_e@v?~J1!lDU*!7?$?&`rb*yJ$eOf=o)OwAbH^$qIt&dg zbUw{Bi?l^9j=W!N7$uUAfh3_fnWLS%>UvwmFFVBPkDWMywhnZkwjg2UR)o9K z8&x8~8Djsrvu}`Ke{v;Cd=fXLcVV}=BF?RK*>L0HG406e3;5_uH|JE~Yb7X6682_Q z=DrYoubtM?Nk|YA8{8wa%^~HtK4GhvHM= zsK`wXukO}`9=BPO_GjS@;y1haXNip+Pm5DLBKlf1*ShLLZ7Zm+6#Y2cEI zKVG~ie_+DwsaXxfIDq`2$b+_YqlMmI-t->0#g4NAUTT?I<+stU#c##Wt$r0ia{nHr z?R1t)8bP?EA%chw0m4IEV;l~ma7j-vt?U0~U{W(CHNX&#B8CtN!htCppb#7$h6J!= z4Y?7P{Z7`x;t;-=3(@gh$Q*N+pyMmxRhy>Aw^(#;er|ecuyXLRoPH{|E|X-)a2je* zQjQYsDA9%q+cu$pY#5f2q#{@nrcz8P#uS<%qGx1k)nd0firLO31#tgNnv zsQ#5#6#ku8tRh3A!xQ(N#HHV_u9)SpP8l_4v?*gl`wtW+rp%rf&v5+UKK-hB=jIH`WG} z*f6w`s$xa*=?9!rpDWDR)9a{vOf=RpF6mkhH7y!~*$S{C-`o3#`5p(AM1y1M1 zUy4n-bEfWYyRRLN`6*-k@mh&$)`_fxPwnJ&^V%QwSAI$q;7BEyPQJL<<~H@kD#3Z` z*>gQ@VtM`KW$#zgN@JjEzHRxY5_>XQv^TB3vWz+zzoL94VgHFccRkPDlnm>u`rKmu zc0!VwZt#w@>GD;%9-%KsY|SQHD!OS#B9}Oe2Ug+O`kNap{QT5j_pCnC;rz^nnelg# zk;j&fG@{5WC8BsK{E8l#RN+MHAM1`uOEs6y$X3;~ZX80Cd2Us_3?ju|@r-HacZ8Dp z-R9t-_42I-JA9KPJ<-o9FnxtbSfqOl!_~$rfQnEMUBp-yp`cc);0^!XBOni(u(1D` z?2PnvZMFL(&s$6#kB+_PFxg2e=(zJD+k0wc`E6uRck-EV2h;IO+qt;-x9Lw*kvPY6 zW7&_44cWJ9OPPA&V;LQtK5wqQ(TK>*%?@=v`B_6oxG#7vNR54g#bzB2`!ThlIbhM% zop>mGrPjgbSTk8+k1pDu3OcaXr6Q8kbfx?k6G)vBe#*Zj&Ejognpsn!cVV-u?g zB6FqNJOyWNjSQ;ld32~BRs7a`dD!gwTgrXCUv11e7I(#V!E4^BM?CUX0$pj& zF->y=c7)o4?Gc~9_J;^Vn4`_x7TABOYa(#I3W6v}6DbH{j8$o@Leprx^Aqi_rXjD1 z`b)tq^tAv?W|b=vZyu01Vn!aHmqe$3vBFM<$9RZ8J1+vb$#b6%?QmQZ(0X@-ac6(M zWvI^9$(8OJc#5)>yj+grBVoxu4lxj)YlyAb*TA&H9yZILJKZo5sCr$7y>`*R9oo)GdMQziqKkp&nL>VQkL|;CNi?&fdg2ar@o{|0fK|U7GjhW>eUW z1C06gw>1=3Zzn~|sT`?v3{H0qy5_%dK-pr_d*79&Bi2rIwChHju5IGP zW5)SSzO}z?kDur&7g|lP3=5MyN z+xl;lDue`F#8x@|y|72Ih5Z(l6@?Z5`;y%#3a>|Bs=)2~oMPVcCPUB?o|A)cP9U7) z1mWK~S`UYCIEV#72x|)n2*QvQ1*HhVvMXF29rS~vn0xhYT;279LqZw*B4W^+Vz8>1 zD~Q65|6$l+JPrf^cl3)GtjQ7_O>-l@y+4?@jufy3!T%H=5B$v<%_?( zBW025JFTJZI|ruUPsTPqxLBk%JbUwVxQDlpjvLpOH20_b(axzr(vkh0bh_24SANn< zezV)8X?d%?9AhS|#oH=xvF@|J87KIzQ}~u2w=ruos5B9ip4N}!guEt@{oerWd@>PC$P&r1Epx{*H&8iN7~`n~C6UmxX%W*%MI z8N_S`dia+*^PUcrw^(`-YqOSXa0+okh?Q8_Cn;-p~6|kd6O3>r|zE@$xSJ3 zDw3zR7*Key)+;fPqeR0E?-;$guHQTqaR z>*KDn#}f%jlS6Cw2oLzje|AAVlkaCzoUbRr`> z>OeW?VVUq1)5h`p4_|O=qPrBQZX`oW>^b>#Z4cAyTl?CGp84^qd)Eq$vhs949vd{! zBWX>y=zD0W%(Pu`?$f++t-L??dYSdP_HJ1#r@@q2?Sc}CP^70ZhUz%LJUE?yL|^`a zN~KS2#VcEL)OFAEvrk(+hr`}@-+uB2X<6tTb($mI@^=|Ktt4xrf3tgwfZhbL*p=2d zA*`YBtU8gVB-GGn)ZY_u{Ed7}ngi)97k-3rVPhDA5YErD|H~??fflI25-U=@7MK+q zOeF1es6A7=DyvSV8`hz>)Zjdgp_%3mWR;BA-$kEFMGR<$zJCjt%oor^by!Y~*BOQY zB7y;iS093*B?Mdgm`$?7L;)}~E4~qJQiq*ctL{wt#@j8QS|4;Y1wYxA({}ktZK%%u zpc71DPsJYFw$&M5AMc4dPqkG+ma*m@+-B(pIE5~BSS*4iG6jKgod~2unue1{!Ekl$`_U2eLX6f zYb=BZky0vNK%&ruVkonvWt?2)c-i?tAc1}Cp2#12giAhl_h_3A-oWAaS}rKZy|cOD z96$9+>dt$8(S0K%eeckh=XU0r=abY_j)~s8vH$U~LXYl2w9!RnN~5^;QF!w}Fv_vq z;bN$iR~M*tJ8yilW8J(0bYzh7Y130}DN(pTnW1ynqA15cdCum?Y)M2aMf-Ef$3iRl PHzpZCVjNf From 70c43321055bf0d462ec260d2c53f406425b90cd Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 11 Sep 2024 05:42:04 -0700 Subject: [PATCH 08/16] -- --- Compras/eFacturas.aspx | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/Compras/eFacturas.aspx b/Compras/eFacturas.aspx index 1081e1dde..39138f4f0 100644 --- a/Compras/eFacturas.aspx +++ b/Compras/eFacturas.aspx @@ -1047,8 +1047,13 @@
    +
    +
    +
    - + +
    +
    From 497265608f79e1cfc7af540fed4bc5ab8ccbd092 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 11 Sep 2024 05:43:09 -0700 Subject: [PATCH 09/16] - --- Compras/Compras.aspx | 2 +- Compras/Compras.aspx.vb | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 0c1f35d1e..8fe0b7be9 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -4624,7 +4624,7 @@
    - +
    diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 15a385678..ef22b8974 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -6796,7 +6796,7 @@ Partial Class Compras_Compras Dim AplicadoenFactura As Boolean = False If UsuarioActual.CveEmpresa = 119 Then For Each Gvr As GridViewRow In GvFacturaNC.Rows - If Gvr.FCCheckBox("ChkFacturaNC").Checked Then ' recorro la seleccion y tomo el TC de cada aplicación + If Gvr.FCCheckBox("ChkFacturaNC").Checked AndAlso ChkNCInvNC.Checked Then ' recorro la seleccion y tomo el TC de cada aplicación AplicadoenFactura = True Dim timporteMovimientoNC As Decimal = (Gvr.FCTextBox("TxtImporte").Text.ToDecimal) '* Gvr.DataKey("SubTotal").ToDecimal / Gvr.DataKey("Saldo").ToDecimal).RoundSQL Dim TCNC As Decimal = Gvr.DataKey("TipoCambio").ToDecimal From 19de5e1bf22b726851910c5c718239b69ee7e054 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 11 Sep 2024 05:43:37 -0700 Subject: [PATCH 10/16] =?UTF-8?q?--=20mejora=20en=20el=20bot=C3=B3n=20de?= =?UTF-8?q?=20cancelar?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- OS/OrdenesServicios.aspx | 1 + OS/OrdenesServicios.aspx.vb | 2 ++ 2 files changed, 3 insertions(+) diff --git a/OS/OrdenesServicios.aspx b/OS/OrdenesServicios.aspx index dbc6ce8af..ef642499f 100644 --- a/OS/OrdenesServicios.aspx +++ b/OS/OrdenesServicios.aspx @@ -531,6 +531,7 @@ + diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index e5847c271..88a756aea 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -455,6 +455,8 @@ Partial Class OS_OrdenesServicios If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then + BtnCancelar.Text = "Cancelar Cirugía" + HplRegresar.NavigateUrl = "/OS/RepOSMedicas.aspx" DVAMedicoProcedimiento.Visible = True DVTipoVenta1.Visible = True DVTipoVenta2.Visible = True From d3ad793b75449ee06ea75a5e3feb319d7787a3bb Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 11 Sep 2024 05:44:05 -0700 Subject: [PATCH 11/16] =?UTF-8?q?-=20=20se=20quit=C3=B3=20el=20autopostbac?= =?UTF-8?q?k=20de=20pasajeros?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Transportes/RepContratos.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Transportes/RepContratos.aspx b/Transportes/RepContratos.aspx index e1522cff8..492bf3359 100644 --- a/Transportes/RepContratos.aspx +++ b/Transportes/RepContratos.aspx @@ -392,7 +392,7 @@ + type="number" MaxLength="2" > From e0f545f24802f2bfa44f9c3a373db19eeb3c2aa4 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 11 Sep 2024 05:44:30 -0700 Subject: [PATCH 12/16] =?UTF-8?q?--=20ocultar=20columna=20seg=C3=BAn=20rol?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/RepComisionesSMS.aspx.vb | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/Ventas/RepComisionesSMS.aspx.vb b/Ventas/RepComisionesSMS.aspx.vb index c7d758c1b..4601e4e35 100644 --- a/Ventas/RepComisionesSMS.aspx.vb +++ b/Ventas/RepComisionesSMS.aspx.vb @@ -34,6 +34,7 @@ Partial Class Ventas_RepComisionesSMS Private Sub CargaCombos() + If UsuarioActual.CveVendedor = 0 Then GvDatos.Columns(15).Visible = True 'columna de comisiones de gerente 'If UsuarioActual.Empresa.Funcionalidad(302) = "1" AndAlso DdlSubProyectoDatos.SelectedValue.ToEntero() > 0 Then ' DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=-1).FiltraParametros(String.Format("VendedorTipo IN (1,4) AND (CveSubProyecto IS NULL OR CveSubProyecto = {0})", DdlSubProyectoDatos.SelectedValue)) @@ -45,6 +46,7 @@ Partial Class Ventas_RepComisionesSMS If UsuarioActual.CveVendedor > 0 Then DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor) DdlVendedor.Enabled = False + GvDatos.Columns(15).Visible = False 'gerente End If DdlMedico.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ") @@ -57,9 +59,10 @@ Partial Class Ventas_RepComisionesSMS If UsuarioActual.TienePermisoProceso(376) Then DdlUsuarioAtendio.Enabled = False DdlUsuarioAtendio.SelectedValueExist(UsuarioActual.CveUsuario) + GvDatos.Columns(15).Visible = False 'gerente + GvDatos.Columns(16).Visible = False 'ed.medica + GvDatos.Columns(17).Visible = False 'fecha pago End If - - End Sub Public Sub CargaDatos() @@ -82,9 +85,6 @@ Partial Class Ventas_RepComisionesSMS ObjVentas.Dispose() GvDatos.DataBind() - - If UsuarioActual.CveVendedor = 0 Then GvDatos.Columns(15).Visible = True 'columna de comisiones de gerente - UpDatos.Update() End Sub From 511ad51130290a12a583009190e09d4d60fbd8ca Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 11 Sep 2024 05:50:52 -0700 Subject: [PATCH 13/16] =?UTF-8?q?-=20redireccionamiento=20seg=C3=BAn=20tip?= =?UTF-8?q?o=20de=20conta?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Contabilidad/RegPoliza.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Contabilidad/RegPoliza.aspx.vb b/Contabilidad/RegPoliza.aspx.vb index 20d6f96c2..431bf440c 100644 --- a/Contabilidad/RegPoliza.aspx.vb +++ b/Contabilidad/RegPoliza.aspx.vb @@ -152,7 +152,7 @@ Partial Class RegPoliza Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.LoadComplete If Not IsPostBack Then - + If UsuarioActual.Empresa.TipoContabilidad = 1 Then Response.Redirect($"/Contabilidad/RegPrePolizaS.aspx") ViewState("Orden0") = "" ViewState("Orden1") = "" From 0d6c23047212c8d492ebf1cd456f3c07fb50b68a Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 11 Sep 2024 05:51:12 -0700 Subject: [PATCH 14/16] - cambio en modalidad un solo proyecto --- OC/OC.aspx.vb | 63 ++++++++++++++++++++++----------------------------- 1 file changed, 27 insertions(+), 36 deletions(-) diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index ba29176e6..9a005fc21 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -6,7 +6,6 @@ Imports System.Data.SqlClient Imports System.IO Imports Extensiones Imports GemBox.Spreadsheet -Imports Microsoft.Ajax.Utilities Imports Newtonsoft.Json Partial Class OC_OC @@ -37,6 +36,15 @@ Partial Class OC_OC ViewState("CveUsuarioAsignado") = value End Set End Property + + Private Property ModalidadSubProyectoGeneral As Boolean + Get + Return If(IsNothing(ViewState("ModalidadSubProyectoGeneral")), False, CBool(ViewState("ModalidadSubProyectoGeneral"))) + End Get + Set(value As Boolean) + ViewState("ModalidadSubProyectoGeneral") = value + End Set + End Property Private Property TipoOC As String Get If ViewState("TipoOC") Is Nothing Then @@ -636,6 +644,8 @@ Partial Class OC_OC GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa) = Nothing CargaDatosAgregarPS() CveProveedorOriginal = -1 + EnviarNotificacionWhatsApp("526621430964", "hola34 https:/sig.adssistemas.mx/ventas/ventas.aspx") + EnviarNotificacionWhatsApp("526621430964", "", "hello_world") 'MODALIDAD MULTIEMPRESA CveEmpresaActual = UsuarioActual.CveEmpresa If CveEmpresaActual > 0 Then @@ -666,7 +676,7 @@ Partial Class OC_OC DdlSubProyectoGral.DataBind() DdlSubProyectoGral.Items.Insert(0, New ListItem("Seleccione uno", "-1")) DdlSubProyectoGral.SelectedValueExist(UsuarioActual.CveSubProyecto) - + ModalidadSubProyectoGeneral = True TdProyectoSubPrpyectoDdl.Visible = False TdProyectoSubPrpyecto.Visible = False GvD.Columns(4).Visible = False @@ -674,9 +684,6 @@ Partial Class OC_OC End If - - - 'CARGA YA REGISTRADO If Request("OC") IsNot Nothing AndAlso IsNumeric(Request("OC")) AndAlso Request("OC").ToEntero > 0 Then @@ -902,15 +909,9 @@ Partial Class OC_OC 'DdlSubProyectoEntrega.DataSource = DtEstatusUsuarios.FiltraParametros(" SPEstatus = 1 ", "", {"CveSubProyecto", "SubProyecto"}) End If - - - DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) - - 'DdlSubProyectoEntrega.DataBind() - 'DdlSubProyectoEntrega.Items.Insert(0, New ListItem("Seleccione", "-1")) - + If ModalidadSubProyectoGeneral Then DdlSubProyecto.SelectedValueExist(DdlSubProyectoGral.SelectedValue) DdlSubProyectoContrato.Items.Clear() DdlSubProyectoContrato.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) 'If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, CveEmpresaActual, -1, 1), GlobalDTSubProyectos( CveEmpresaActual )) ' DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) DdlSubProyectoContrato.DataBind() @@ -1386,7 +1387,7 @@ Partial Class OC_OC TipoOC = If(TipoOS, "OS", TipoOC) If ObjFolios.GetFolios(If(TipoOC = "REQ", "Req", TipoOC), CveEmpresaActual) Then Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros("Estado = 'Activo'") - If UsuarioActual.CveEmpresa = 189 Then tCveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero + If ModalidadSubProyectoGeneral Then tCveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero 'Verificar primero en la sucursal del usuario Dim dts As DataRow = DT.FiltraParametros("CveSubProyecto = " + tCveSubProyecto.ToString).FiltroPrimero("") If dts IsNot Nothing Then @@ -1580,7 +1581,7 @@ Partial Class OC_OC TxtPorcentajeProntoPago.Text = (100 * objOC.PorcentajeProntoPago).ToString("###.00") - If UsuarioActual.CveEmpresa = 189 Then + If ModalidadSubProyectoGeneral Then Dim existeCvesubproyecto As Boolean = False If objOC.DtResultados.Rows(0)("CveSubProyectoGral").ToString.ToEntero > 0 Then For Each tmpItem As ListItem In DdlSubProyectoGral.Items @@ -2110,16 +2111,14 @@ Partial Class OC_OC Dim Filtro As String = If(DdlProyecto.SelectedValue.ToEntero > 0 AndAlso UsuarioActual.Empresa.Tipo_CentroCosto.Contiene(4, 5), String.Format("CveProyecto = {0}", DdlProyecto.SelectedValue.ToEntero), "") DdlSubProyecto.Items.Clear() - If CveOrdenCompra <> Nothing AndAlso CveOrdenCompra > 0 Then DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros(Filtro, "", {"CveSubProyecto", "SubProyecto"}) Else DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros(" SPEstatus = 1 ").FiltraParametros(Filtro, "", {"CveSubProyecto", "SubProyecto"}) - 'DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros(" SPEstatus = 1 ", "", {"CveSubProyecto", "SubProyecto"}) End If - DdlSubProyecto.DataBind() + If ModalidadSubProyectoGeneral Then DdlSubProyecto.SelectedValueExist(DdlSubProyectoGral.SelectedValue) DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) End Sub Private Sub CargaSubProyectosEdit(DdlSP As DropDownList, CveProyectoEdit As Integer) @@ -2158,7 +2157,6 @@ Partial Class OC_OC End If - UPProv.Update() : UPPEmp.Update() End Sub @@ -2883,7 +2881,7 @@ Partial Class OC_OC If Not TieneError Then ' AGREGAR ORDEN DE COMPRA Dim tCveSubProyecto As Integer = -1 - If UsuarioActual.CveEmpresa = 189 Then tCveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero + If ModalidadSubProyectoGeneral Then tCveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero If OC.AddOrdenCompra(If(TipoOS, "OS", TipoOC), tCveSubProyecto, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusNuevo, If(TxtFechaEstimadaEntrega.Text.Trim = "", "-1", TxtFechaEstimadaEntrega.Text.Trim), LugarEntrega, UsuarioActual.CveUsuario, CveEmpresaActual, GvD.Rows(0).FCHiddenField("HdnCvePresupuestoEgreso").Value.ToString.ToEntero, pCveProveedor:=CveProveedor, pCveProveedorSucursal:=CveProveedorSucursal, @@ -3550,7 +3548,7 @@ Partial Class OC_OC HuboError = True End If Dim CveSubProyecto As Integer = -1 - If UsuarioActual.CveEmpresa = 189 Then CveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero + If ModalidadSubProyectoGeneral Then CveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero If (Not HuboError) AndAlso objOrdenCompra.AddOrdenCompra("OC", CveSubProyecto, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusInicialOC, TxtFechaEstimadaEntrega.Text, LugarEntrega, CveUsuario, CveEmpresaActual, 0, pCveProveedor:=CveProveedor, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text, @@ -3627,7 +3625,7 @@ Partial Class OC_OC End If Dim tCveSubProyecto As Integer = -1 - If UsuarioActual.CveEmpresa = 189 Then tCveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero + If ModalidadSubProyectoGeneral Then tCveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero If (Not HuboError) AndAlso objOrdenCompra.AddOrdenCompra("OC", tCveSubProyecto, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusInicialOC, TxtFechaEstimadaEntrega.Text, LugarEntrega, CveUsuario, CveEmpresaActual, 0, pCveProveedor:=DdlProveedores.SelectedValue.ToEntero, pCveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero, CveUsuarioAsignado:=DdlUsuariosAsignado.SelectedValue.ToEntero(), CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text, @@ -9232,7 +9230,7 @@ Partial Class OC_OC If ObjCon.GetPresupuestosResumen(UsuarioActual.CveEmpresa, -1, FechaCompra.FirstDayOfMonth, FechaCompra.LastDayOfMonth, 2) Then Dim ColumnaSaldo As String = "Saldo" If UsuarioActual.CveEmpresa.Contiene(13, 83) Then ColumnaSaldo = "SaldoComprometido" - Dim resultadosFiltrados = From row In ObjCon.DtResultados.AsEnumerable() + Dim resultadosFiltrados = From row In ObjCon.DtResultados.FiltraParametros("CveClasificacion > 0 and CveSubProyecto > 0").AsEnumerable() Select row If ObjCon.DtResultados.Rows.Count > 0 Then @@ -9252,14 +9250,14 @@ Partial Class OC_OC Dim Diferencia As Decimal = saldoTotal - TotalAcumuladoTabla - ValImporte If (Diferencia) < 0 Then - Alert($"No hay presupuesto disponible en:
    Subproyecto: {ValSubProyecto} Clasificación: {ValClasificacion}. Se excede por { Math.Abs(Diferencia).FormatoNumero}", TipoMensaje.MsgAdvertencia) + Alert($"No hay presupuesto disponible en:
    Subproyecto: {ValSubProyecto}
    Clasificación: {ValClasificacion}. Se excede por { Math.Abs(Diferencia).FormatoNumero}", TipoMensaje.MsgAdvertencia) respuesta = False Else respuesta = True End If respuesta = True Else - Alert($"No hay presupuesto disponible en:
    Subproyecto: {ValSubProyecto} Clasificación: {ValClasificacion}.", TipoMensaje.MsgAdvertencia) + Alert($"No hay presupuesto disponible en:
    Subproyecto: {ValSubProyecto}
    Clasificación: {ValClasificacion}.", TipoMensaje.MsgAdvertencia) respuesta = False End If Else @@ -9296,14 +9294,14 @@ Partial Class OC_OC If (Diferencia) < 0 Then Alert($"No hay presupuesto disponible en:
    Subproyecto: {item.SubProyecto}
    Clasificación {item.Clasificacion}. Se excede por {Math.Abs(Diferencia).FormatoNumero}", TipoMensaje.MsgAdvertencia) - respuesta = False + respuesta = True Exit For Else respuesta = True End If Else Alert($"No hay presupuesto disponible en:
    Subproyecto: {item.SubProyecto}
    Clasificación {item.Clasificacion}.", TipoMensaje.MsgAdvertencia) - respuesta = False + respuesta = True Exit For End If Else @@ -9566,22 +9564,18 @@ Partial Class OC_OC For Each gvr As GridViewRow In GvD.Rows Dim Cantidad, Importe, Descuento As Decimal - Dim CveUnidad, CveClasificacion, CvePS, CveSubProyecto, CveProyecto, CveCultivoCuadroDetalle As Integer - Dim Obs, UM, Clasificacion, PS, SubProyecto, Proyecto, Cuadro As String - + Dim CveUnidad, CveClasificacion As Integer + Dim Obs, UM, Clasificacion, PS As String Cantidad = gvr.FCTextBox("TxtEMCantEdit").Text.Trim.ToDecimal Importe = gvr.FCTextBox("TxtEMImporteEdit").Text.Trim.ToDecimal Descuento = gvr.FCTextBox("TxtEMDescuentoEdit").Text.Trim.ToDecimal - Obs = gvr.FCTextBox("TxtEMObsPS").Text.Trim - - ' + Obs = gvr.FCTextBox("TxtEMObsPS").Text.Trim ' CveUnidad = gvr.DataKey("CveUnidadMedida").ToEntero UM = gvr.FCLiteral("LA").Text CveClasificacion = gvr.DataKey("CveClasificacion").ToEntero Clasificacion = gvr.FCLabel("LblClasificacion").Text - 'SE TOMAN VALORES EN CASO DE QUE LA CvePS SEA DIFERENTE DE LA ANTERIOR Dim CvePSAnterior As Integer = gvr.DataKey("CvePS").ToEntero PS = gvr.DataKey("PS").ToString @@ -9617,13 +9611,10 @@ Partial Class OC_OC If dr(0)("TipoDato").ToString.ToEntero = 2 Then dr(0)("TipoDato") = 1 DtDetalle.AcceptChanges() - Next - CargaDatosDetalles() - Return True End Function From 594638f2b06f9808ad5a8471c5b6342c90bd6365 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 11 Sep 2024 05:53:18 -0700 Subject: [PATCH 15/16] -- cambio para obtener el token desde archivo --- App_Code/modExtensiones.vb | 34 +++++++++++++++++++++++++--------- 1 file changed, 25 insertions(+), 9 deletions(-) diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index 4599ce6a7..713016e1a 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -628,24 +628,38 @@ Namespace Extensiones Return String.Format("
  • {0}{3}
    • ", Time, Tipo, Ico, Mensaje, Link, If(tonewpage, "target=""_blank""", "")) End Function - Public Function EnviarNotificacionWhatsApp(NumeroTelefono As String, Mensaje As String) As Boolean + Public Function EnviarNotificacionWhatsApp(NumeroTelefono As String, Mensaje As String, Optional NombrePlantilla As String = "") As Boolean Dim RetornoObj As String = "{}" Dim Retorno As Boolean = False + Dim Str As String = My.Computer.FileSystem.ReadAllText($"c:\temp\WSToken.txt") + Try - Dim TokenAutorizacion As String = "Bearer EAAVcZB36KfEEBO0OlN5ZAUPhNAUZCsHuMbpeVrrxZCJZAacLgBMOXXXcyA6aLEbbANMjbeTuJbsZC4IAvsZBwEALCYqc7oZCrnHF67sc0RYMBru9R0YKBFhi8gFjZAhJgoCJauBdZA30R9YPXZA2ZByQZAKclRCL20VLu74HEtw3YKu1MiG1vEsZANWJZAHhcJCUANUs3zIMFvoC6dBoJgQsABEZAYYZD" + Dim TokenAutorizacion As String = $"Bearer {Str}" Using httpClient = New HttpClient() - Using request = New HttpRequestMessage(HttpMethod.Post, New Uri("https://graph.facebook.com/v20.0/263533173499868/messages")) + Using request = New HttpRequestMessage(HttpMethod.Post, New Uri("https://graph.facebook.com/v20.0/400260286507131/messages")) request.Headers.Add("Authorization", TokenAutorizacion) Dim json = New Newtonsoft.Json.Linq.JObject() json.Add(New Newtonsoft.Json.Linq.JProperty("messaging_product", "whatsapp")) json.Add(New Newtonsoft.Json.Linq.JProperty("to", NumeroTelefono)) - json.Add(New Newtonsoft.Json.Linq.JProperty("type", "text")) - Dim msgtexto As New Newtonsoft.Json.Linq.JObject( - New Newtonsoft.Json.Linq.JProperty("preview_url", "true"), - New Newtonsoft.Json.Linq.JProperty("body", Mensaje.Replace("
    ", "\n")) - ) - json.Add(New Newtonsoft.Json.Linq.JProperty("text", msgtexto)) + If NombrePlantilla <> "" Then + json.Add(New Newtonsoft.Json.Linq.JProperty("type", "template")) + Dim msgtexto As New Newtonsoft.Json.Linq.JObject( + New Newtonsoft.Json.Linq.JProperty("name", NombrePlantilla), + New Newtonsoft.Json.Linq.JProperty("language", + New Newtonsoft.Json.Linq.JObject( + New Newtonsoft.Json.Linq.JProperty("code", "en_US")) + ) + ) + json.Add(New Newtonsoft.Json.Linq.JProperty("template", msgtexto)) + Else + json.Add(New Newtonsoft.Json.Linq.JProperty("type", "text")) + Dim msgtexto As New Newtonsoft.Json.Linq.JObject( + New Newtonsoft.Json.Linq.JProperty("preview_url", "true"), + New Newtonsoft.Json.Linq.JProperty("body", Mensaje.Replace("
    ", "\n")) + ) + json.Add(New Newtonsoft.Json.Linq.JProperty("text", msgtexto)) + End If Using content = New StringContent(json.ToString, Encoding.UTF8, "application/json") request.Content = content @@ -667,6 +681,8 @@ Namespace Extensiones Return Retorno End Function + + #End Region #Region "files dropzone" From 5f8dde236b4558ac27d10546e433d326ea1bc10a Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 11 Sep 2024 08:32:26 -0700 Subject: [PATCH 16/16] Rep Utilidad porcentajes credito y contado --- Transportes/RepContratoDetalle.aspx | 4 ++-- Transportes/RepContratos.aspx | 2 +- Transportes/RepContratosCalendario.aspx | 2 +- Ventas/RepVentasUtilidadPadre.aspx | 3 ++- Ventas/RepVentasUtilidadPadre.aspx.vb | 3 +++ 5 files changed, 9 insertions(+), 5 deletions(-) diff --git a/Transportes/RepContratoDetalle.aspx b/Transportes/RepContratoDetalle.aspx index 8c0bf6b42..192e6d424 100644 --- a/Transportes/RepContratoDetalle.aspx +++ b/Transportes/RepContratoDetalle.aspx @@ -180,7 +180,7 @@
    -
    @@ -248,7 +248,7 @@
    - Observaciones
    -
    diff --git a/Transportes/RepContratosCalendario.aspx b/Transportes/RepContratosCalendario.aspx index aa5df3eb7..2756615cb 100644 --- a/Transportes/RepContratosCalendario.aspx +++ b/Transportes/RepContratosCalendario.aspx @@ -385,7 +385,7 @@
    -
    diff --git a/Ventas/RepVentasUtilidadPadre.aspx b/Ventas/RepVentasUtilidadPadre.aspx index c7916d2c1..cad6b2f04 100644 --- a/Ventas/RepVentasUtilidadPadre.aspx +++ b/Ventas/RepVentasUtilidadPadre.aspx @@ -237,6 +237,7 @@ @@ -244,7 +245,7 @@ - + diff --git a/Ventas/RepVentasUtilidadPadre.aspx.vb b/Ventas/RepVentasUtilidadPadre.aspx.vb index 34f7ee3d0..eff0b437d 100644 --- a/Ventas/RepVentasUtilidadPadre.aspx.vb +++ b/Ventas/RepVentasUtilidadPadre.aspx.vb @@ -256,6 +256,9 @@ Partial Class Ventas_RepVentasUtilidadPadre e.Row.DBCampo("FechaI"), e.Row.DBCampo("FechaF"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveVendedor"), e.Row.DBCampo("Grupo"), e.Row.DBCampo("GPO"), e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveClasificacion"), e.Row.DBCampo("CveMarca"), e.Row.DBCampo("CveCategoria")) e.Row.Cells(0).Text = String.Format("{2}", Css, Liga, e.Row.Cells(0).Text) + + 'e.Row.Cells(3).Text = + ' e.Row.Cells(5).Text = Else e.Row.Cells(12).BackColor = Drawing.Color.LightGray End If