From 991a1b05488710820f7e14ac7507c97295f3f1d0 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Sat, 18 May 2024 09:56:35 -0700 Subject: [PATCH 1/2] Cat Folios Garantia acualizar Area --- Acumuladores/CatFoliosGarantia.aspx.vb | 8 ++- App_Code/ClsAcumuladores.vb | 3 +- Empresas/186/Formatos/TrasladoAngeles.rdlc | 70 +++++++++++----------- Inventarios/EntregaAlmacen.aspx.vb | 18 +++++- Ventas/ProductosServicios.aspx | 6 +- 5 files changed, 61 insertions(+), 44 deletions(-) diff --git a/Acumuladores/CatFoliosGarantia.aspx.vb b/Acumuladores/CatFoliosGarantia.aspx.vb index 5f6459bd9..e2b64d68d 100644 --- a/Acumuladores/CatFoliosGarantia.aspx.vb +++ b/Acumuladores/CatFoliosGarantia.aspx.vb @@ -131,7 +131,7 @@ Partial Class Acumuladores_CatFoliosGarantia End If Else If ObjAcum.FoliosGarantiaUpdate(CveFolioGarantia, TxtFolioGarantia.Text, DdlEstatusEditar.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlSubProyectos.SelectedValue.ToEntero, - DdlTipoFolioModal.SelectedValue, TxtLimite.Text.ToEntero) Then + DdlTipoFolioModal.SelectedValue, TxtLimite.Text.ToEntero, DdlArea.SelectedValue.ToEntero) Then TxtFolioGarantia.Text = "" DdlEstatusEditar.SelectedValueExist("1") @@ -197,8 +197,10 @@ Partial Class Acumuladores_CatFoliosGarantia DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) DdlSubProyectos.DataBind() DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1")) - DdlSubProyectos.SelectedValueExist(GvRow.DataKey("CveSubProyecto").ToEntero) - + DdlSubProyectos.SelectedValueExist(GvRow.DataKey("CveSubProyecto").ToEntero) + + DdlArea.SelectedValueExist(GvRow.DataKey("Area")) + BtnAgregarFolioGarantiaModal.Text = "Actualizar" UpModalFolioGarantia.Update() diff --git a/App_Code/ClsAcumuladores.vb b/App_Code/ClsAcumuladores.vb index 120c6bcdb..10a56ca64 100644 --- a/App_Code/ClsAcumuladores.vb +++ b/App_Code/ClsAcumuladores.vb @@ -543,7 +543,7 @@ Public Class ClsAcumuladores Return Retorno End Function - Public Function FoliosGarantiaUpdate(CveFolioGarantia As Integer, FolioGarantia As String, Estatus As Integer, CveUsuario As Integer, CveSubProyecto As Integer, TipoFolio As String, Limite As Integer) As Boolean + Public Function FoliosGarantiaUpdate(CveFolioGarantia As Integer, FolioGarantia As String, Estatus As Integer, CveUsuario As Integer, CveSubProyecto As Integer, TipoFolio As String, Limite As Integer, Area As Integer) As Boolean Dim Retorno As Boolean = False 'Data = New DataTable @@ -558,6 +558,7 @@ Public Class ClsAcumuladores .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@TipoFolio", SqlDbType.VarChar).Value = TipoFolio .Add("@Limite", SqlDbType.Int).Value = Limite + .Add("@Area", SqlDbType.Int).Value = Area End With diff --git a/Empresas/186/Formatos/TrasladoAngeles.rdlc b/Empresas/186/Formatos/TrasladoAngeles.rdlc index 5879f7fec..d42c8d3da 100644 --- a/Empresas/186/Formatos/TrasladoAngeles.rdlc +++ b/Empresas/186/Formatos/TrasladoAngeles.rdlc @@ -780,7 +780,6 @@ =IIf(rownumber(nothing) = 1, "2pt", "0pt") - true @@ -1588,7 +1587,7 @@ - 0.33542cm + 0.2825cm @@ -1972,7 +1971,7 @@ DsInventarios 0.14111cm 0.10068cm - 3.1562cm + 3.10328cm 25.45761cm + + 4.79214cm + 0.10068cm + 0cm + 25.72414cm + 2 + + + + 1.88667in - 3.8269cm + 2.5569cm true true @@ -2588,7 +2599,7 @@ Municipio y/o Delegación: Textbox21 - 1.37766cm + 0.74266cm 5.68986cm 0.50243cm 5.79375cm @@ -2624,7 +2635,7 @@ Municipio y/o Delegación: Textbox21 - 1.37766cm + 0.74266cm 14.40467cm 0.50243cm 5.78664cm @@ -2675,9 +2686,9 @@ Municipio y/o Delegación: Textbox21 - 1.66375cm + 1.02875cm 5.69781cm - 1.2cm + 0.82958cm 5.78664cm 2 @@ -2726,9 +2737,9 @@ Municipio y/o Delegación: Textbox21 - 1.6632cm + 1.0282cm 14.41177cm - 1.2cm + 0.82958cm 5.78664cm 3 @@ -2763,7 +2774,7 @@ Municipio y/o Delegación: Textbox22 - 0.07331cm + 0.04156cm 5.69781cm 0.6cm 5.78664cm @@ -2800,7 +2811,7 @@ Municipio y/o Delegación: Textbox22 - 0.07331cm + 0.04156cm 14.41177cm 0.6cm 5.78664cm @@ -2835,7 +2846,7 @@ Municipio y/o Delegación: Textbox21 - 0.45106cm + 0.41931cm 10.04017cm 0.63528cm 5.78664cm @@ -2886,9 +2897,9 @@ Municipio y/o Delegación: Textbox21 - 1.6632cm + 1.0282cm 10.04727cm - 1.2cm + 0.82958cm 5.78664cm 7 @@ -2923,7 +2934,7 @@ Municipio y/o Delegación: Textbox22 - 0.07331cm + 0.04156cm 10.04727cm 0.6cm 5.78664cm @@ -2971,7 +2982,7 @@ Municipio y/o Delegación: Textbox29 - 3.40709cm + 2.13709cm 0.10068cm 0.41981cm 5.78083cm @@ -3009,7 +3020,7 @@ Municipio y/o Delegación: Textbox31 - 3.40709cm + 2.13709cm 11.33129cm 0.41981cm 5.13762cm @@ -3035,23 +3046,12 @@ Municipio y/o Delegación: - - 0.13678cm - 0cm - 25.72414cm - 12 - - - - - 3.26597cm + 1.99597cm 0.10068cm 0cm 25.76024cm - 13 + 12 @@ -3077,11 +3077,11 @@ Municipio y/o Delegación: Textbox10 - 3.40709cm + 2.13709cm 23.00537cm 0.41981cm 2.55292cm - 14 + 13 diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index be8f99da8..cdb3ea74c 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -2258,8 +2258,22 @@ Partial Class Inventarios_EntregaAlmacen If ObjInventario.GetExistenciasPSXML(StrXML.ToString(), DdlAlmacen.SelectedValue.ToEntero(), TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveSubProyecto, CveVendedor, If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), If(TipoEntrega = 2, 1, -1), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then If ObjInventario.DtResultados.Rows.Count > 0 Then TieneErrorExistencia = True - For Each Dr As DataRow In ObjInventario.DtResultados.Rows - TextoError.AppendFormat(" - {0} Existencia: {1:#,##0.##}
", Dr("CodigoPS"), Dr("Existencia")) + For Each Dr As DataRow In ObjInventario.DtResultados.Rows + + Dim SerieLoteCaducidad As String = "," + If Dr("Serie").ToString.Trim.Length > 0 AndAlso Dr("Serie").ToString.Trim <> "-1" Then + SerieLoteCaducidad = $" Serie: { Dr("Serie").ToString.Trim}" + End If + If Dr("Lote").ToString.Trim.Length > 0 AndAlso Dr("Lote").ToString.Trim <> "-1" Then + SerieLoteCaducidad = $"{SerieLoteCaducidad} Lote: {Dr("Lote").ToString.Trim}" + End If + If Dr("FechaCaducidad").ToString.Trim.Length > 0 AndAlso Dr("FechaCaducidad").ToString.Trim <> "-1" Then + SerieLoteCaducidad = $"{SerieLoteCaducidad} Caducidad: { Dr("FechaCaducidad").ToString.Trim.ToDate.ToString("dd/MM/yyyy")}" + End If + + TextoError.AppendFormat(" - {0} Existencia: {1:#,##0.##} {2}
", Dr("CodigoPS"), Dr("Existencia"), If(SerieLoteCaducidad <> ",", SerieLoteCaducidad, "")) + + Next End If Else diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx index 3f136ba72..554b8974f 100644 --- a/Ventas/ProductosServicios.aspx +++ b/Ventas/ProductosServicios.aspx @@ -2106,20 +2106,20 @@ - +
- +
- Guardar + Guardar From 2b73107c94bfd97a18ff2954176d271cb255c7c0 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Sat, 18 May 2024 12:58:12 -0700 Subject: [PATCH 2/2] 2024-05-18 SMS Electrica --- Inventarios/EntregaAlmacen.aspx.vb | 2 +- Ventas/Ventas.aspx | 4 ++-- Ventas/Ventas.aspx.vb | 25 ++++++++++++++++++------- 3 files changed, 21 insertions(+), 10 deletions(-) diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index cdb3ea74c..cea689a17 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -695,7 +695,7 @@ Partial Class Inventarios_EntregaAlmacen TipoMovimiento = If(TipoDocto.Contiene({"Rem", "Ped", "Ing", "Ped", "PeC", "Ant"}) And (EsDevolucionVenta = 0 Or CveVentaAD > 0), 1, 2) If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 AndAlso TipoDocto.Contiene("Ped", "Ing") Then - TxtObservaciones.Text = $"Dr. {drE("Medico").ToString}{vbCrLf}Cx. {drE("Procedimiento").ToString}{vbCrLf}F. Cirugía {drE("FechaEjecucion").ToString.ToDateTime.ToString("dd/MM/yyyy HH:mm")}{vbCrLf}H. {drE("Sucursal").ToString}{vbCrLf}" + TxtObservaciones.Text = $"Dr. {drE("Medico").ToString}{vbCrLf}Cx. {drE("Procedimiento").ToString}{vbCrLf}F. Cirugía {drE("FechaParaSurtir").ToString.ToDateTime.ToString("dd/MM/yyyy HH:mm")}{vbCrLf}H. {drE("Sucursal").ToString}{vbCrLf}" TxtObservaciones.Rows = 4 End If diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 53090e7fb..a2e1f750a 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -631,10 +631,10 @@ - + Tipo de Venta: - + diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 70d2e2c57..c3cf705b1 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -6173,6 +6173,10 @@ Partial Class Ventas TxtPaciente.Enabled = False TxtEpisodio.Enabled = False + TrVentasMedicas4.Visible = True + TxtFolioRemision.Text = DbRowVenta("Alfa1").ToString + + LblTipoVenta.Text = DbRowVenta("TipoVenta").ToString If DbRowVenta("FechaParaSurtir").ToString().ToDate() > DateTime.MinValue Then TrVentasMedicas2.Visible = True @@ -6181,12 +6185,9 @@ Partial Class Ventas TxtFechaOS.Text = DbRowVenta("FechaParaSurtir").ToString().ToDateTime().ToString("yyyy-MM-dd HH:mm").Replace(" ", "T") End If + End If - If DdlTipoDocto.SelectedValue.Contiene("Ing", "Rem") Then - TrVentasMedicas4.Visible = True - TxtFolioRemision.Text = DbRowVenta("Alfa1").ToString - End If End If End If End Using @@ -8612,6 +8613,9 @@ Partial Class Ventas 'If UsuarioActual.CveEmpresa = 119 Then ' e.Row.FCTextBox("TxtDescuento").Enabled = False 'End If + + + Else 'MODO NORMAL @@ -8760,11 +8764,13 @@ Partial Class Ventas End If If EsVentaMedica Then + GvPS.Rows(e.NewEditIndex).FCTextBox("TxtPrecio").Enabled = False - If DdlTipoComprobante.SelectedValue = "Cot" Then + If DdlTipoComprobante.SelectedValue = "Cot" Or RBLTipoVenta.SelectedValue.ToEntero = 1 Then GvPS.Rows(e.NewEditIndex).FCTextBox("TxtPrecio").Enabled = True End If + End If If CveCicloComercial > 0 Then @@ -17676,7 +17682,7 @@ Partial Class Ventas If EsVentaMedica Then TxtPrecio.Enabled = False - If UsuarioActual.CveUsuario = 3986 Then + If UsuarioActual.CveUsuario = 3986 Or RBLTipoVenta.SelectedValue.ToEntero = 1 Then TxtPrecio.Enabled = True End If @@ -22799,8 +22805,9 @@ Partial Class Ventas End If End If + TxtAtencionA.Enabled = True - + UpCliente.Update() UPPVentas.Update() UpPS.Update() UpCliente.Update() @@ -37785,6 +37792,10 @@ Partial Class Ventas AsignaAlmacenWS() 'CargaPS(-1, DdlPS) End If + If RBLTipoVenta.SelectedValue.Contiene("1") Then + TxtPrecio.Enabled = True + UpPS.Update() + End If RegistraScript("$('#DvModalTipoVenta').modal('hide');") UpCliente.Update()