diff --git a/Empresas/141/Formatos/CHQ-7452.rdlc b/Empresas/141/Formatos/CHQ-7452.rdlc index 941582014..3c26bcd98 100644 --- a/Empresas/141/Formatos/CHQ-7452.rdlc +++ b/Empresas/141/Formatos/CHQ-7452.rdlc @@ -1,5 +1,5 @@ - + 0 @@ -62,7 +62,7 @@ Textbox1 - 1.9287cm + 1.7382cm 2.98488cm 0.6cm 8.50604cm @@ -92,7 +92,7 @@ Textbox1 - 3.34953cm + 3.15903cm 2.98488cm 0.6cm 14.64437cm @@ -121,8 +121,8 @@ Textbox1 - 1.9287cm - 13.14954cm + 1.3572cm + 12.83204cm 0.6cm 2.36771cm 2 @@ -144,7 +144,7 @@ =Parameters!Importe.Value @@ -154,7 +154,7 @@ Textbox1 - 3.38128cm + 3.15903cm 17.62925cm 0.6cm 3.12778cm @@ -163,6 +163,7 @@ + Bottom 2pt 2pt 2pt @@ -197,7 +198,7 @@ Textbox1 - 1.96045cm + 1.4207cm 15.85886cm 0.6cm 4.89817cm @@ -228,10 +229,10 @@ Textbox1 - 10.41495cm + 10.09745cm 2.98488cm - 0.73229cm - 17.39115cm + 1.7cm + 10.74213cm 5 + + true + 3.41684cm + 2.98488cm + 0.99076cm + 8.50604cm + 8 + + + + + + true + 4.88413cm + 2.98488cm + 0.99076cm + 8.50604cm + 9 + + + + true 5.91016cm 2.98488cm 0.99076cm 8.50604cm - 8 + 10 @@ -306,7 +333,7 @@ 2.98488cm 0.99076cm 8.50604cm - 9 + 11 @@ -319,7 +346,7 @@ 2.98488cm 0.99076cm 8.50604cm - 10 + 12 @@ -332,7 +359,7 @@ 2.98488cm 0.99076cm 8.50604cm - 11 + 13 @@ -436,10 +463,10 @@ DataSet1 12.24622cm - 0.61298cm + 0.58123cm 0.8825cm 3.21438cm - 12 + 14 @@ -543,10 +570,10 @@ DataSet1 12.24622cm - 4.42661cm + 4.68061cm 0.8825cm 9.3004cm - 13 + 15 @@ -653,10 +680,10 @@ DataSet1 12.24622cm - 14.89295cm + 15.84545cm 0.87916cm 2.5cm - 14 + 16 @@ -763,10 +790,10 @@ DataSet1 12.24622cm - 17.6897cm + 18.3247cm 0.87916cm 2.84396cm - 15 + 17 @@ -801,7 +828,7 @@ Textbox9 - 0.53975cm + 1.36525cm 3.13986cm 0.6cm 0.85958cm @@ -832,7 +859,7 @@ Textbox9 - 0.53975cm + 1.36525cm 5.21284cm 0.6cm 0.88604cm @@ -864,7 +891,7 @@ Textbox9 - 0.53975cm + 1.36525cm 7.41418cm 0.6cm 0.88604cm @@ -897,7 +924,7 @@ Textbox9 - 0.508cm + 1.36525cm 14.00924cm 0.6cm 2.5cm @@ -930,7 +957,7 @@ Textbox9 - 0.508cm + 1.36525cm 18.00832cm 0.6cm 2.36771cm @@ -1016,59 +1043,6 @@ ReportParameter1 - - - 2 - 5 - - - 0 - 0 - Folio - - - 1 - 0 - Fecha - - - 0 - 1 - Beneficiario - - - 1 - 1 - ImporteLetra - - - 0 - 2 - Importe - - - 1 - 2 - Observaciones - - - 0 - 3 - Tipo - - - 1 - 3 - TotalCargo - - - 0 - 4 - TotalAbono - - - - es-MX Cm ccd758f2-6f27-4a1e-af76-588dcd11f8b2 diff --git a/Empresas/Grales/Formatos/RepVentas.rdlc b/Empresas/Grales/Formatos/RepVentas.rdlc index 3f50e43a1..1978b44eb 100644 --- a/Empresas/Grales/Formatos/RepVentas.rdlc +++ b/Empresas/Grales/Formatos/RepVentas.rdlc @@ -95,10 +95,10 @@ 2.17093cm - 1.95cm + 2.0251cm - 1.84392cm + 1.76882cm 1.88335cm @@ -308,7 +308,10 @@ Textbox19 + Silver 2pt 2pt diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx index 3d45b4103..8c24fa9af 100644 --- a/Inventarios/EntradasSalidas.aspx +++ b/Inventarios/EntradasSalidas.aspx @@ -1073,13 +1073,13 @@

- Ajuste Inventario Fisico

+ Ajuste Inventario Físico
- + @@ -1183,14 +1183,14 @@ - - + + - + - + @@ -1265,7 +1265,7 @@ Sección almacén Serie Lote - Caducidad + Caducidad @@ -1284,14 +1284,14 @@ - + - + - - + + diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index ae8df5126..0cbaa5b97 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -3819,16 +3819,21 @@ Partial Class Inventarios_EntradasSalidas #Region "SALIDAS" Private Sub BtnAgregarSalida_Click(sender As Object, e As EventArgs) Handles BtnAgregarSalida.Click Dim ObjProductosServicios As New ClsProductosServicios() + Dim ObjInventario As New ClsInventarios Dim CveUM As Integer Dim Mensaje As String = "" + Dim FechaCaducidad As Date + Dim lote As String If ObjProductosServicios.GetPS(DdlPSSalida.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) Then If ObjProductosServicios.DtResultados.Rows.Count > 0 Then CveUM = ObjProductosServicios.CveUnidadMedida.ToString.ToEntero End If End If - ObjProductosServicios.Dispose() - Dim ObjInventario As New ClsInventarios - If ObjInventario.GetExistenciasPS(DdlPSSalida.SelectedValue.ToEntero, CveUM, UsuarioActual.CveEmpresa, DdlAlmacenInventarioFisico.SelectedValue.ToEntero, PendientePorSurtir:=1) >= TxtCantidadSalidaInv.Text.ToDouble Then + + FechaCaducidad = If(ObjProductosServicios.AplicaCaducidad, TxtCaducidadSalida.Text.ToDate, MinFecha) + lote = If(ObjProductosServicios.AplicaLote, TxtLoteSalida.Text.ToString, "-1") + + If ObjInventario.GetExistenciasPS(DdlPSSalida.SelectedValue.ToEntero, CveUM, UsuarioActual.CveEmpresa, DdlAlmacenInventarioFisico.SelectedValue.ToEntero, PendientePorSurtir:=1, Lote:=lote, FechaCaducidad:=FechaCaducidad) >= TxtCantidadSalidaInv.Text.ToDouble Then If Not DdlPSSalida.SelectedValue.ToEntero > 0 Then RegistraScript("playsonidito('142608__autistic-lucario__error.wav')") Alert("Es necesario especificar el producto.", TipoMensaje.MsgAdvertencia) @@ -3837,11 +3842,14 @@ Partial Class Inventarios_EntradasSalidas AddPSSalida(DdlPSSalida.SelectedValue.ToEntero, TxtCantidadSalidaInv.Text.ToDouble) Else - Mensaje = String.Format("No hay existencias suficientes del producto: {0}", DdlPSSalida.SelectedValue.ToEntero) + Mensaje = String.Format("No hay existencias suficientes del producto: {0}", ObjProductosServicios.PS) RegistraScript("playsonidito('142608__autistic-lucario__error.wav')") Alert(Mensaje, TipoMensaje.MsgError) End If + ObjInventario.Dispose() + ObjProductosServicios.Dispose() + End Sub Protected Sub AddPSSalida(CvePS As Integer, Cantidad As Double) @@ -3898,7 +3906,7 @@ Partial Class Inventarios_EntradasSalidas GvSalidas.Columns(3).Visible = DtTemp.MAX("Serie") <> "" GvSalidas.Columns(4).Visible = DtTemp.MAX("Lote") <> "" GvSalidas.Columns(5).Visible = DtTemp.MAX("FechaCaducidad").ToDate > MinFecha - GvSalidas.Columns(5).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Elaboración") + GvSalidas.Columns(5).HeaderText = UsuarioActual.Empresa.Funcionalidad(147) End If End Sub @@ -4030,7 +4038,7 @@ Partial Class Inventarios_EntradasSalidas GvSalidasCambioVigencia.Columns(3).Visible = DtTemp.MAX("Serie") <> "" GvSalidasCambioVigencia.Columns(4).Visible = DtTemp.MAX("Lote") <> "" GvSalidasCambioVigencia.Columns(5).Visible = DtTemp.MAX("FechaCaducidad").ToDate > MinFecha - GvSalidasCambioVigencia.Columns(5).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Elaboración") + GvSalidasCambioVigencia.Columns(5).HeaderText = UsuarioActual.Empresa.Funcionalidad(147) End If UpGvCambioSalidas.Update() End Sub @@ -4423,7 +4431,7 @@ Partial Class Inventarios_EntradasSalidas 'activa caducidad ThCaducidadEntrada.Visible = AplicaCaducidad - ThCaducidadEntrada.InnerText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Elaboración") + ThCaducidadEntrada.InnerText = UsuarioActual.Empresa.Funcionalidad(147) TrCaducidadEntrada.Visible = AplicaCaducidad Else @@ -4457,7 +4465,7 @@ Partial Class Inventarios_EntradasSalidas 'activa caducidad ThCaducidadSalida.Visible = AplicaCaducidad - ThCaducidadSalida.InnerText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Elaboración") + ThCaducidadSalida.InnerText = UsuarioActual.Empresa.Funcionalidad(147) TrCaducidadSalida.Visible = AplicaCaducidad Else diff --git a/Inventarios/TrasladoSolicitud.aspx b/Inventarios/TrasladoSolicitud.aspx index ea4114667..d3b5085d7 100644 --- a/Inventarios/TrasladoSolicitud.aspx +++ b/Inventarios/TrasladoSolicitud.aspx @@ -311,7 +311,9 @@ <%----%> - + + + @@ -433,7 +435,7 @@
-
diff --git a/Inventarios/TrasladoSolicitud.aspx.vb b/Inventarios/TrasladoSolicitud.aspx.vb index 828eadeda..bd4b1384c 100644 --- a/Inventarios/TrasladoSolicitud.aspx.vb +++ b/Inventarios/TrasladoSolicitud.aspx.vb @@ -95,7 +95,9 @@ Partial Class Inventarios_TrasladoSolicitud TempDT.Columns.Add("CveContratoDetalle", Type.GetType("System.Int32")) 'TempDT.Columns.Add("CveContratoDetalle", Type.GetType("System.Int32")) 'TempDT.Columns.Add("CveDireccionEnvio", Type.GetType("System.Int32")) - TempDT.Columns.Add("Serie", Type.GetType("System.String")) + TempDT.Columns.Add("Serie", Type.GetType("System.String")) + TempDT.Columns.Add("Lote", Type.GetType("System.String")) + TempDT.Columns.Add("FechaCaducidad", Type.GetType("System.DateTime")) TempDT.Columns.Add() End Sub @@ -322,6 +324,7 @@ Partial Class Inventarios_TrasladoSolicitud RegistraScript(String.Format("$('#{0}').modal();", "ModalPS")) End Sub Private Sub BtnAgregarPS_Click(sender As Object, e As EventArgs) Handles BtnAgregarPS.Click + Dim Existencia As Boolean If Not DdlProductoServicio.SelectedValue.ToEntero > 0 Then Alert("Tiene que seleccionar un producto.", TipoMensaje.MsgAdvertencia) Exit Sub @@ -329,35 +332,63 @@ Partial Class Inventarios_TrasladoSolicitud If Not AddPSTemporal() Then Exit Sub - End If - - TxtCantidad.Text = "" - DdlProductoServicio.SelectedText = "" - DdlProductoServicio.SelectedValue = "-1" - DdlUM.SelectedIndex = 0 - - GvDatos.DataSource = TempDT - GvDatos.DataBind() - - If ChkSeguirAgregando.Checked Then - TxtCantidad.Focus() - Else - RegistraScript("$('#ModalPS').hide();", "EscondeAgregar") - End If - - UpPS.Update() - UpDatos.Update() - + End If + + 'If ObjInventario.GetExistenciasPS(DdlProductoServicio.SelectedValue.ToEntero, DdlUM.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, PendientePorSurtir:=1, Lote:=TxtLote.Text.ToString, FechaCaducidad:=TxtCaducidad.Text.ToString) >= TxtCantidad.Text.ToDouble Then + + TxtCantidad.Text = "" + DdlProductoServicio.SelectedText = "" + DdlProductoServicio.SelectedValue = "-1" + DdlUM.SelectedIndex = 0 + TxtCaducidad.Text = "" + TxtSerie.Text = "" + TxtLote.Text = "" + + GvDatos.DataSource = TempDT + GvDatos.DataBind() + + + If ChkSeguirAgregando.Checked Then + TxtCantidad.Focus() + Else + RegistraScript("$('#ModalPS').hide();", "EscondeAgregar") + End If + + UpPS.Update() + UpDatos.Update() + End Sub Private Function AddPSTemporal() As Boolean Dim Row As DataRow = TempDT.NewRow() + Dim Lote As String + Dim FechaCaducidad As Date Row("Cantidad") = TxtCantidad.Text.Trim.ToDouble Row("CvePS") = DdlProductoServicio.SelectedValue.ToEntero Row("CodigoPS") = DdlProductoServicio.SelectedText Row("Precio") = 0 Row("CveUM") = DdlUM.SelectedValue.ToEntero Row("UnidadMedida") = DdlUM.SelectedItem.Text - Row("Observaciones") = "" + Row("Observaciones") = "" + + If divLote.Visible Then + Row("Lote") = TxtLote.Text + GvDatos.Columns(6).Visible = True + Lote = TxtLote.Text.ToString + Else + Row("Lote") = "-1" + Lote = "-1" + End If + + + If divCaducidad.Visible Then + Row("FechaCaducidad") = TxtCaducidad.Text + GvDatos.Columns(7).Visible = True + FechaCaducidad = TxtCaducidad.Text.ToDate + Else + Row("FechaCaducidad") = MinFecha + FechaCaducidad = MinFecha + End If + If Div4.Visible Then Row("Serie") = TxtSerie.Text @@ -366,8 +397,10 @@ Partial Class Inventarios_TrasladoSolicitud Row("Serie") = "-1" End If + + Dim ObjInventarios As New ClsInventarios - Dim Existencia As Double = ObjInventarios.GetExistenciasPS(DdlProductoServicio.SelectedValue.ToEntero, DdlUM.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59")) + Dim Existencia As Double = ObjInventarios.GetExistenciasPS(DdlProductoServicio.SelectedValue.ToEntero, DdlUM.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"), Lote:=Lote, FechaCaducidad:=FechaCaducidad) ObjInventarios.Dispose() If Existencia - TxtCantidad.Text.Trim.ToDouble - TempDT.SUM("Cantidad", $"CvePS = {DdlProductoServicio.SelectedValue.ToEntero} AND CveUM = {DdlUM.SelectedValue.ToEntero}") < 0 Then @@ -988,6 +1021,14 @@ Partial Class Inventarios_TrasladoSolicitud DdlUM.SelectedValueExist(drPS("CveUnidadMedida").ToString) Dim AplicaSerie As Boolean = drPS("AplicaSerie").ToString = "True" Div4.Visible = AplicaSerie + + Dim AplicaLote As Boolean = drPS("AplicaLote").ToString = "True" + divLote.Visible = AplicaLote + + Dim AplicaCaducidad As Boolean = drPS("AplicaCaducidad").ToString = "True" + divCaducidad.Visible = AplicaCaducidad + divCaducidad2.Visible = AplicaCaducidad + End If UpPS.Update() UpDatos.Update()