From ef5f8cbb7c3c04c2d4ad4bedae6d617b6aa90266 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Thu, 2 May 2024 16:13:03 -0700 Subject: [PATCH 01/13] personal --- RH/Personal.aspx | 10 +-- RH/Personal.aspx.vb | 210 ++++++++++++++++++++++---------------------- 2 files changed, 110 insertions(+), 110 deletions(-) diff --git a/RH/Personal.aspx b/RH/Personal.aspx index f98ff8145..69b69fa73 100644 --- a/RH/Personal.aspx +++ b/RH/Personal.aspx @@ -2048,7 +2048,7 @@ - <%--
+
@@ -2096,7 +2096,7 @@ - + Importe @@ -2104,13 +2104,13 @@ - + Tipo de Aplicación
- + @@ -2133,7 +2133,7 @@ - --%> +
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index 5bb136279..ce97407c7 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -2849,7 +2849,7 @@ Partial Class RH_Personal Private Sub CarcaConceptosNomina() Dim ObjPersonal As New ClsRH If ObjPersonal.GetPersonalConceptos(CvePersonal, UsuarioActual.CveEmpresa) Then - 'GVConceptos.DataSource = ObjPersonal.DtResultados.FiltraParametros("(CveSistema <>3 AND CveSistema <>4) OR CveSistema IS NULL") + GVConceptos.DataSource = ObjPersonal.DtResultados.FiltraParametros("(CveSistema <>3 AND CveSistema <>4) OR CveSistema IS NULL") Dim frow As DataRow = ObjPersonal.DtResultados.FiltroPrimero("CveSistema =3") If Not IsNothing(frow) Then TxtInfoValor.Text = String.Format("{0:###,###.##}", frow("Importe")) @@ -2883,7 +2883,7 @@ Partial Class RH_Personal 'Conceptos.DataSource = Nothing End If ObjPersonal.Dispose() - 'GVConceptos.DataBind() + GVConceptos.DataBind() 'For Each Row As GridViewRow In GVConceptos.Rows ' Dim Ddl As DropDownList = DirectCast(GVConceptos.Rows(Row.RowIndex).FCDropDownList("DdlTipoAplicacion"), DropDownList) @@ -2891,68 +2891,68 @@ Partial Class RH_Personal 'Next End Sub - 'Protected Sub GVConceptos_RowCreated(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVConceptos.RowDataBound - ' If e.Row.RowType = DataControlRowType.DataRow Then - ' e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left + Protected Sub GVConceptos_RowCreated(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVConceptos.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then + e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left - ' e.Row.Cells(0).Width = Unit.Pixel(50) - ' e.Row.Cells(1).Width = Unit.Pixel(50) - ' e.Row.Cells(3).Width = Unit.Pixel(70) - ' e.Row.Cells(4).Width = Unit.Pixel(70) - ' e.Row.Cells(5).Width = Unit.Pixel(160) + e.Row.Cells(0).Width = Unit.Pixel(50) + e.Row.Cells(1).Width = Unit.Pixel(50) + e.Row.Cells(3).Width = Unit.Pixel(70) + e.Row.Cells(4).Width = Unit.Pixel(70) + e.Row.Cells(5).Width = Unit.Pixel(160) - ' If e.Row.DBCampo("Aplica").ToEntero() = 1 Then e.Row.FCCheckBox("ChkAplica").Checked = True + If e.Row.DBCampo("Aplica").ToEntero() = 1 Then e.Row.FCCheckBox("ChkAplica").Checked = True - ' If e.Row.DBCampo("Formula") = "S" Then - ' e.Row.FCDropDownList("DdlTipoAplicacion").Visible = False : e.Row.Cells(3).Text = "Calculado" - ' e.Row.FCDropDownList("DdlTipoAplicacion").Visible = False : e.Row.Cells(4).Text = "Permanente" - ' Else - ' Dim TipoAplicacion As String = e.Row.DBCampo("TipoAplicacion").ToString() - ' e.Row.FCDropDownList("DdlTipoAplicacion").Items.Clear() - ' e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Seleccione", "-1")) - ' If (e.Row.DBCampo("CveSistema").ToString() = "3") Then - ' e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Movto Permanente)", "5000")) - ' e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Porcentaje)", "5001")) - ' e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Factor Descuento)", "5002")) - ' e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Cuota Fija)", "5003")) + If e.Row.DBCampo("Formula") = "S" Then + e.Row.FCDropDownList("DdlTipoAplicacion").Visible = False : e.Row.Cells(3).Text = "Calculado" + e.Row.FCDropDownList("DdlTipoAplicacion").Visible = False : e.Row.Cells(4).Text = "Permanente" + Else + Dim TipoAplicacion As String = e.Row.DBCampo("TipoAplicacion").ToString() + e.Row.FCDropDownList("DdlTipoAplicacion").Items.Clear() + e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Seleccione", "-1")) + If (e.Row.DBCampo("CveSistema").ToString() = "3") Then + e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Movto Permanente)", "5000")) + e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Porcentaje)", "5001")) + e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Factor Descuento)", "5002")) + e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Cuota Fija)", "5003")) - ' ElseIf (e.Row.DBCampo("CveSistema").ToString() = "4") Then - ' e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Fonacot(Importe fijo)", "3001")) - ' e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Fonacot(Por días Labarados)", "3002")) - ' Else - ' e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Saldo", "1")) - ' e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("No. Pagos", "2")) - ' e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Permanente", "2600")) - ' End If + ElseIf (e.Row.DBCampo("CveSistema").ToString() = "4") Then + e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Fonacot(Importe fijo)", "3001")) + e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Fonacot(Por días Labarados)", "3002")) + Else + e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Saldo", "1")) + e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("No. Pagos", "2")) + e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Permanente", "2600")) + End If - ' If e.Row.DBCampo("TipoAplicacion").ToEntero() > 5 Then - ' TipoAplicacion = "2600" - ' End If - ' e.Row.FCDropDownList("DdlTipoAplicacion").SelectedValueExist(TipoAplicacion) - ' End If + If e.Row.DBCampo("TipoAplicacion").ToEntero() > 5 Then + TipoAplicacion = "2600" + End If + e.Row.FCDropDownList("DdlTipoAplicacion").SelectedValueExist(TipoAplicacion) + End If - ' 'If e.Row.DBCampo("TipoCalculo") = "False" Then - ' ' e.Row.FCTextBox("TxtImporte").Visible = False - ' ' e.Row.FCDropDownList("DdlTipoAplicacion").Visible = False - ' 'Else - ' ' Select Case e.Row.DBCampo("TipoAplicacion").ToEntero() - ' ' Case 1 - ' ' 'Saldo - ' ' e.Row.FCLiteral("LtlSaldo").Visible = True - ' ' e.Row.FCTextBox("TxtSaldoIni").Visible = True - ' ' Case 2 - ' ' 'Numero de Pagos - ' ' e.Row.FCLiteral("LtlNoPago").Visible = True - ' ' e.Row.FCTextBox("TxtNoPagos").Visible = True - ' ' Case 2600 - ' ' 'Permanente - ' ' End Select - ' 'End If + 'If e.Row.DBCampo("TipoCalculo") = "False" Then + ' e.Row.FCTextBox("TxtImporte").Visible = False + ' e.Row.FCDropDownList("DdlTipoAplicacion").Visible = False + 'Else + ' Select Case e.Row.DBCampo("TipoAplicacion").ToEntero() + ' Case 1 + ' 'Saldo + ' e.Row.FCLiteral("LtlSaldo").Visible = True + ' e.Row.FCTextBox("TxtSaldoIni").Visible = True + ' Case 2 + ' 'Numero de Pagos + ' e.Row.FCLiteral("LtlNoPago").Visible = True + ' e.Row.FCTextBox("TxtNoPagos").Visible = True + ' Case 2600 + ' 'Permanente + ' End Select + 'End If - ' End If - 'End Sub + End If + End Sub Protected Sub BtnGuardarInfornavit_Click(sender As Object, e As EventArgs) Dim importe As Decimal = TxtInfoValor.Text.ToDecimal() @@ -2981,61 +2981,61 @@ Partial Class RH_Personal End If End Sub - 'Protected Sub BtnGuardarConceptos_Click(sender As Object, e As System.EventArgs) Handles BtnGuardarConceptos.Click - ' If CvePersonal > 0 Then - ' Dim ObjPersonal As New ClsRH - ' ObjPersonal.IniciaTransacSQL() + Protected Sub BtnGuardarConceptos_Click(sender As Object, e As System.EventArgs) Handles BtnGuardarConceptos.Click + If CvePersonal > 0 Then + Dim ObjPersonal As New ClsRH + ObjPersonal.IniciaTransacSQL() - ' Dim OcurrioError As Boolean = False - ' For Each Row As GridViewRow In GVConceptos.Rows - ' If Row.FCCheckBox("ChkAplica").Checked = True Then - ' Dim CveConcepto As Integer = Row.DataKey("CveConcepto").ToEntero() - ' Dim Importe As Double = Row.FCTextBox("TxtImporte").Text.ToDouble - ' Dim TipoAplicacion As Integer = Row.FCDropDownList("DdlTipoAplicacion").SelectedValue.ToEntero() - ' Dim NoPagos As Integer = If(Row.FCTextBox("TxtNoPagos").Text.ToEntero() = 0, -1, Row.FCTextBox("TxtNoPagos").Text.ToEntero()) - ' Dim SaldoIni As Double = If(Row.FCTextBox("TxtSaldoIni").Text.ToDouble = 0, -1, Row.FCTextBox("TxtSaldoIni").Text.ToDouble) + Dim OcurrioError As Boolean = False + For Each Row As GridViewRow In GVConceptos.Rows + If Row.FCCheckBox("ChkAplica").Checked = True Then + Dim CveConcepto As Integer = Row.DataKey("CveConcepto").ToEntero() + Dim Importe As Double = Row.FCTextBox("TxtImporte").Text.ToDouble + Dim TipoAplicacion As Integer = -1 'Row.FCDropDownList("DdlTipoAplicacion").SelectedValue.ToEntero() + Dim NoPagos As Integer = If(Row.FCTextBox("TxtNoPagos").Text.ToEntero() = 0, -1, Row.FCTextBox("TxtNoPagos").Text.ToEntero()) + Dim SaldoIni As Double = If(Row.FCTextBox("TxtSaldoIni").Text.ToDouble = 0, -1, Row.FCTextBox("TxtSaldoIni").Text.ToDouble) - ' Select Case TipoAplicacion - ' Case 1 - ' 'Saldo - ' NoPagos = -1 - ' Case 2 - ' 'Numero de Pagos - ' SaldoIni = -1 - ' Case 2600 - ' 'Permanente - ' NoPagos = -1 - ' SaldoIni = -1 - ' End Select + Select Case TipoAplicacion + Case 1 + 'Saldo + NoPagos = -1 + Case 2 + 'Numero de Pagos + SaldoIni = -1 + Case 2600 + 'Permanente + NoPagos = -1 + SaldoIni = -1 + End Select - ' 'Insertarlo o Actualizarlo - ' If Not ObjPersonal.AddConcepto(CvePersonal, CveConcepto, Importe, TipoAplicacion, NoPagos, SaldoIni, UsuarioActual.CveUsuario) Then - ' OcurrioError = True - ' ObjPersonal.RollBack() - ' Exit For - ' End If - ' Else - ' 'Borrarlo - ' If Row.DataKey("CvePersonalConcepto") <> "" Then - ' If Not ObjPersonal.RemoveConcepto(Row.DataKey("CvePersonalConcepto").ToEntero()) Then - ' OcurrioError = True - ' ObjPersonal.RollBack() - ' Exit For - ' End If - ' End If - ' End If - ' Next + 'Insertarlo o Actualizarlo + If Not ObjPersonal.AddConcepto(CvePersonal, CveConcepto, Importe, TipoAplicacion, NoPagos, SaldoIni, UsuarioActual.CveUsuario) Then + OcurrioError = True + ObjPersonal.RollBack() + Exit For + End If + Else + 'Borrarlo + If Row.DataKey("CvePersonalConcepto") <> "" Then + If Not ObjPersonal.RemoveConcepto(Row.DataKey("CvePersonalConcepto").ToEntero()) Then + OcurrioError = True + ObjPersonal.RollBack() + Exit For + End If + End If + End If + Next - ' If Not OcurrioError Then - ' ObjPersonal.Commit() - ' Alert("La información se guardó correctamente.", TipoMensaje.MsgInformacion) - ' Else - ' Alert("Ocurrió un error al guardar la información.", TipoMensaje.MsgError) - ' End If + If Not OcurrioError Then + ObjPersonal.Commit() + Alert("La información se guardó correctamente.", TipoMensaje.MsgInformacion) + Else + Alert("Ocurrió un error al guardar la información.", TipoMensaje.MsgError) + End If - ' ObjPersonal.Dispose() - ' End If - 'End Sub + ObjPersonal.Dispose() + End If + End Sub #End Region From 091b1a8e285e07981538f6f86cb7d0805ebed54d Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 15 May 2024 13:04:43 -0700 Subject: [PATCH 02/13] -- columnas de moneda e importe --- OC/RepRequisiciones.aspx | 2 ++ 1 file changed, 2 insertions(+) diff --git a/OC/RepRequisiciones.aspx b/OC/RepRequisiciones.aspx index d3b8778f7..6896a85ae 100644 --- a/OC/RepRequisiciones.aspx +++ b/OC/RepRequisiciones.aspx @@ -240,6 +240,8 @@ + + From d76150ce8cbd9fe67fd82bc06ce4757d6882ba10 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 16 May 2024 12:19:27 -0700 Subject: [PATCH 03/13] =?UTF-8?q?--=20fecha=20posterior=20hasta=203=20d?= =?UTF-8?q?=C3=ADas=20adelante?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/IE.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 1759a7c69..b91ea0f79 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -5549,8 +5549,8 @@ Partial Class Bancos_IE UpEliminarCotizacion.Update() End Sub Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init - RVTxtFechaDocumento.MaximumValue = NowADS().ToShortDateString - Calendario.EndDate = NowADS() + RVTxtFechaDocumento.MaximumValue = NowADS.AddDays(3).ToShortDateString + Calendario.EndDate = NowADS.AddDays(3) End Sub Private Sub CargaOCRelacionadas() From 2b6e0233d7348a9a240006f4cd27b875a55e134b Mon Sep 17 00:00:00 2001 From: rakcsle Date: Thu, 16 May 2024 18:01:31 -0700 Subject: [PATCH 04/13] =?UTF-8?q?SMS=20-=20Entrega=20almac=C3=A9n.=20con?= =?UTF-8?q?=20lotes?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/PopUpVerFactura.aspx.vb | 2 +- Empresas/Grales/Formatos/Polizas.rdlc | 296 ++++++++++++++++++++++- Inventarios/EntregaAlmacen.aspx.vb | 23 +- Inventarios/RepExistenciasCostos.aspx | 6 +- Inventarios/RepExistenciasCostos.aspx.vb | 188 ++------------ OC/OC.aspx.vb | 4 +- 6 files changed, 331 insertions(+), 188 deletions(-) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 61dc24738..4ba4d6a1c 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -6394,7 +6394,7 @@ Partial Class PopUpVerFactura Else params.Add(New ReportParameter("Fecha", Fecha.ToShortDateString)) End If - If UsuarioActual.CveEmpresa.Contiene(119, 141) Then + If UsuarioActual.CveEmpresa.Contiene(119, 141, 193, 195, 197, 189) Then params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(drp("CveUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre"))) End If If UsuarioActual.CveEmpresa.Contiene(140, 141) Then diff --git a/Empresas/Grales/Formatos/Polizas.rdlc b/Empresas/Grales/Formatos/Polizas.rdlc index 42e9d4893..e77be5ab6 100644 --- a/Empresas/Grales/Formatos/Polizas.rdlc +++ b/Empresas/Grales/Formatos/Polizas.rdlc @@ -1488,6 +1488,295 @@ + + 2.44729cm + + + + + true + true + + + + + Usuario Registró: + + + + + + + + + =Fields!NombreUsuario.Value + + + + + + + UsuarioRegistro1 + + =IIF(IsNothing(Parameters!UsuarioRegistro.Value) OR LEN(CStr(Parameters!UsuarioRegistro.Value)) = 0, True, False) + + + + Bottom + 1pt + 1pt + 1pt + 1pt + + + 3 + + + + + + + + true + true + + + + + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + + Textbox18 + + =IIF(IsNothing(Parameters!UsuarioRegistro.Value) OR LEN(CStr(Parameters!UsuarioRegistro.Value)) = 0, True, False) + + + + + Black + + 1pt + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + + Textbox19 + + =IIF(IsNothing(Parameters!UsuarioRegistro.Value) OR LEN(CStr(Parameters!UsuarioRegistro.Value)) = 0, True, False) + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + + Textbox20 + + =IIF(IsNothing(Parameters!UsuarioRegistro.Value) OR LEN(CStr(Parameters!UsuarioRegistro.Value)) = 0, True, False) + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + @@ -1548,6 +1837,9 @@ Before + + Before + @@ -1559,7 +1851,7 @@ true 0.05076cm - 3.18542cm + 5.63271cm 19.38789cm - 3.59805cm + 5.68347cm