Merge

2021-03-16 11:22:03 -07:00
parent 91090a5c1d 0ef3396d24
commit 8c476ae669
12 changed files with 1178 additions and 1111 deletions
--- a/Ashx/SIGWeb.ashx
+++ b/Ashx/SIGWeb.ashx
@@ -693,7 +693,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
            Dim CveSucursal = IfNull(context.Request("cvesucursal"), "-1").ToString.ToEntero
            Dim CveSubProyecto = IfNull(context.Request("cvesubproyecto"), "-1").ToString.ToEntero
            Dim UsoClasificacion = IfNull(context.Request("usoclasificacion"), "-1").ToString.ToEntero
-            Dim AplicaParaVenta = IfNull(context.Request("aplicaparaventa"), "-1").ToString.ToEntero
+            Dim AplicaParaVenta = IfNull(context.Request("aplicaparaventa"), "1").ToString.ToEntero
            Dim CveMarca = IfNull(context.Request("cvemarca"), "-1").ToString.ToEntero

            Dim UsaGlobal As Boolean = True
@@ -701,11 +701,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
            'verifica existencias
            If Pagina.Contiene("ventas/ventas", "oc/oc", "inv/traspaso") AndAlso CveEmpresa.Contiene(72, 80, 119, 140, 141, 152, 153, 159, 160, 161, 162, 163) Then
                UsaGlobal = False
-
-                If CveEmpresa.Contiene(140, 141) And Pagina.Contiene("ventas/ventas") Then
-                    AplicaParaVenta = 1
-                End If
-
+ 
                Dim objInv As New ClsInventarios
                If objInv.GetExistenciasProductosLike(Name, CveClasificacion, CveSubProyecto, Estatus.ToEntero, AplicaParaVenta, CveEmpresa, CveMarca) Then

--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -6661,7 +6661,7 @@ Partial Class Bancos_IE
        GlobalDTTipoTransacciones.FiltraParametros("Tipo='Egs'")

        DdlTipoTransaccionCancelacion.Items.Clear()
-        DdlTipoTransaccionCancelacion.DataSource = GlobalDTTipoTransacciones.FiltraParametros($"Tipo ='{TipoMovto}'")
+        DdlTipoTransaccionCancelacion.DataSource = GlobalDTTipoTransacciones.FiltraParametros($"Tipo ='{TipoMovto}' AND Estatus = 1")
        DdlTipoTransaccionCancelacion.DataBind()
        DdlTipoTransaccionCancelacion.Items.Insert(0, New ListItem("Seleccione una", "-1"))

--- a/CRM/EmpresaCRM.aspx
+++ b/CRM/EmpresaCRM.aspx
@@ -72,8 +72,8 @@

                                        <div class="form-group form-md-line-input input-iconright">
                                            <asp:TextBox ID="TxtRFC" CssClass="form-control " runat="server" MaxLength="13"></asp:TextBox>
-<%--                                            <asp:RegularExpressionValidator ID="REVRFC" runat="server" CssClass="help-block errorimput" ValidationExpression="^([A-Z\d]){12,13}$" ControlToValidate="TxtRFC" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''RFC''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardar"></asp:RegularExpressionValidator>
-                                            <asp:RequiredFieldValidator ID="RFVRFC" runat="server" ControlToValidate="TxtRFC" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''RFC''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>--%>
+                                            <asp:RegularExpressionValidator ID="REVRFC" runat="server" CssClass="help-block errorimput" ValidationExpression="^([A-Z\d]){12,13}$" ControlToValidate="TxtRFC" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''RFC''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardar"></asp:RegularExpressionValidator>
+                                            <%--<asp:RequiredFieldValidator ID="RFVRFC" runat="server" ControlToValidate="TxtRFC" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''RFC''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>--%>
                                            <label for="<%= TxtRFC.ClientID.ToString()%>">RFC:</label>
                                            <i></i>
                                        </div>
--- a/Contabilidad2/CatCuentas.aspx.vb
+++ b/Contabilidad2/CatCuentas.aspx.vb
@@ -316,7 +316,7 @@ Partial Class Contabilidad2_CatCuentas

                Dim codigo As String = DtDatos.FiltroPrimeroValor("Codigo", $"CveCuenta={IDSelected}")

-                If UsuarioActual.Empresa.TipoContabilidad <> 1 Then
+                If UsuarioActual.Empresa.TipoContabilidad = 2 Then

                    Using ObjConta2 As New ClsContPAQi(UsuarioActual.Empresa)

@@ -372,6 +372,10 @@ Partial Class Contabilidad2_CatCuentas

        'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
        Dim ObjConta As New ClsContabilidad
+<<<<<<< HEAD
+        Dim ObjConta2 As ClsContPAQi
+=======
+>>>>>>> ee1135d888f76469fa6e3e68f0b6393f8450045a

        Dim CuentaEfectivo As Integer = 0
        Dim Afectable As Integer = 1 'If(DcuentaMayor.SelectedValue <> 2, 0, 1) ' cuando sea tipo 2, va a ser afectable
@@ -386,7 +390,7 @@ Partial Class Contabilidad2_CatCuentas
        End If

        If idnew > 0 Then
-            If UsuarioActual.Empresa.TipoContabilidad <> 1 Then
+            If UsuarioActual.Empresa.TipoContabilidad = 2 Then
                Dim ObjConta2 As New ClsContPAQi(UsuarioActual.Empresa)
                Dim codigoPadre As String = DtDatos.FiltroPrimeroValor("Codigo", $"CveCuenta={IDSelected}") 'Tsubcuenta.Text
                If ObjConta2.GetCuentas(-1, "-1", -1) Then
@@ -397,58 +401,71 @@ Partial Class Contabilidad2_CatCuentas
                        IdAgrupador = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"CodigoNombre='{DdlAgrupadorSAT.SelectedItem.Text}'").ToEntero
                    End If

-                    If IdPadre > 0 Then
-                        Dim idnew2 As Integer = ObjConta2.AddCuenta(TxtCuenta.Text.Replace("-", ""), Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, CuentaEfectivo, DdlMoneda.SelectedValue.ToEntero, TxtDigAgrup.Text.ToEntero, TxtNomIngles.Text.Trim, Afectable, IdPadre, IdAgrupador)

-                        If idnew2 > 0 Then
-                            If ObjConta.UpdateCuentaCompaq(idnew, idnew2, UsuarioActual.CveEmpresa) Then
+                    Dim codigoPadre As String = DtDatos.FiltroPrimeroValor("Codigo", $"CveCuenta={IDSelected}") 'Tsubcuenta.Text
+                    If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+                        ObjConta2 = New ClsContPAQi(UsuarioActual.Empresa)
+
+                        If ObjConta2.GetCuentas(-1, "-1", -1) Then
+                            Dim IdPadre As Integer = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"Codigo='{codigoPadre}'").ToEntero
+                            Dim IdAgrupador As Integer
+
+                            If ObjConta2.GetAgrupadoresSAT() Then
+                                IdAgrupador = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"CodigoNombre='{DdlAgrupadorSAT.SelectedItem.Text}'").ToEntero
+                            End If
+
+                            If IdPadre > 0 Then
+                                Dim idnew2 As Integer = ObjConta2.AddCuenta(TxtCuenta.Text.Replace("-", ""), Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, CuentaEfectivo, DdlMoneda.SelectedValue.ToEntero, TxtDigAgrup.Text.ToEntero, TxtNomIngles.Text.Trim, Afectable, IdPadre, IdAgrupador)
+
+                                If idnew2 > 0 Then
+                                    If ObjConta.UpdateCuentaCompaq(idnew, idnew2, UsuarioActual.CveEmpresa) Then
+                                    End If
+                                End If
+
                            End If
                        End If
-
+                        ObjConta2.Dispose()
                    End If
+
+                    Dim dr As DataRow = DtDatos.NewRow
+                    dr("CveCuenta") = idnew
+                    dr("CuentaFormato") = TxtCuenta.Text
+                    'dr("CuentaFormato") = Tcuenta.Text
+                    dr("Nombre") = Tnombre.Text
+                    dr("CtaCodigo") = String.Format("{0} - {1}", TxtCuenta.Text, Tnombre.Text)
+                    'dr("CtaCodigo") = String.Format("{0} - {1}", Tcuenta.Text, Tnombre.Text)
+                    dr("Tipo") = DTcuenta.SelectedValue.ToString
+                    dr("CtaMayor") = DcuentaMayor.SelectedValue.ToString
+                    dr("CvePadre") = IDSelected
+                    dr("Codigo") = Tnombre.Text
+                    dr("CveMoneda") = DdlMoneda.SelectedValue.ToEntero
+                    dr("DigAgrup") = TxtDigAgrup.Text.Trim.ToEntero
+                    dr("NomIdioma") = TxtNomIngles.Text.Trim
+                    DtDatos.Rows.Add(dr)
+                    ArbolCuentas.DataSource = DtDatos
+                    '.Attributes.Add("data-hijos","0");
+                    Dim item As ADServerControl.DragableItem = DirectCast(ArbolCuentas.FindControl(String.Format("{0}", IDSelected)), ADServerControl.DragableItem)
+                    item.Attributes.Item("data-hijos") = item.Attributes.Item("data-hijos").ToEntero + 1
+                    Dim objul As ADServerControl.DragableUL = DirectCast(ArbolCuentas.FindControl(String.Format("ul{0}", IDSelected)), ADServerControl.DragableUL)
+                    If (IsNothing(objul)) Then
+                        objul = New ADServerControl.DragableUL
+                        objul.ID = String.Format("ul{0}", item.Cve)
+                        item.Controls.Add(objul)
+                    End If
+                    ArbolCuentas.additem(objul, idnew, IDSelected, String.Format("{0} - {1}", TxtCuenta.Text, Tnombre.Text))
+
+                    LimpiarCampos()
+                    updatos.Update()
+                    CargaDatos()
+
+                    Alert("La cuenta se guardo correctamente")
                End If
-                ObjConta2.Dispose()
-            End If
+
+                ObjConta.Dispose()
+
+                If ObjConta2 IsNot Nothing Then ObjConta2.Dispose()


-            'Dim dr As DataRow = DtDatos.NewRow
-            'dr("CveCuenta") = idnew
-            'dr("CuentaFormato") = TxtCuenta.Text
-            ''dr("CuentaFormato") = Tcuenta.Text
-            'dr("Nombre") = Tnombre.Text
-            'dr("CtaCodigo") = String.Format("{0} - {1}", TxtCuenta.Text, Tnombre.Text)
-            ''dr("CtaCodigo") = String.Format("{0} - {1}", Tcuenta.Text, Tnombre.Text)
-            'dr("Tipo") = DTcuenta.SelectedValue.ToString
-            'dr("CtaMayor") = DcuentaMayor.SelectedValue.ToString
-            'dr("CvePadre") = IDSelected
-            'dr("Codigo") = Tnombre.Text
-            'dr("CveMoneda") = DdlMoneda.SelectedValue.ToEntero
-            'dr("DigAgrup") = TxtDigAgrup.Text.Trim.ToEntero
-            'dr("NomIdioma") = TxtNomIngles.Text.Trim
-            'DtDatos.Rows.Add(dr)
-            'ArbolCuentas.DataSource = DtDatos
-            ''.Attributes.Add("data-hijos","0");
-            'Dim item As ADServerControl.DragableItem = DirectCast(ArbolCuentas.FindControl(String.Format("{0}", IDSelected)), ADServerControl.DragableItem)
-            'item.Attributes.Item("data-hijos") = item.Attributes.Item("data-hijos").ToEntero + 1
-            'Dim objul As ADServerControl.DragableUL = DirectCast(ArbolCuentas.FindControl(String.Format("ul{0}", IDSelected)), ADServerControl.DragableUL)
-            'If (IsNothing(objul)) Then
-            '    objul = New ADServerControl.DragableUL
-            '    objul.ID = String.Format("ul{0}", item.Cve)
-            '    item.Controls.Add(objul)
-            'End If
-            'ArbolCuentas.additem(objul, idnew, IDSelected, String.Format("{0} - {1}", TxtCuenta.Text, Tnombre.Text))
-            ''ArbolCuentas.additem(objul, idnew, IDSelected, String.Format("{0} - {1}", Tcuenta.Text, Tnombre.Text))
-
-            ''updatos.Visible = False
-            ''nuevacuenta.Visible = False
-            LimpiarCampos()
-            updatos.Update()
-            CargaDatos()
-
-            Alert("La cuenta se guardo correctamente")
-        End If
-
-        ObjConta.Dispose()
    End Sub
    Private Sub LimpiarCampos()
        TxtCuenta.Text = ""
@@ -496,7 +513,7 @@ Partial Class Contabilidad2_CatCuentas

            Dim codigo As String = DtDatos.FiltroPrimeroValor("Codigo", $"CveCuenta={IDSelected}")

-            If UsuarioActual.Empresa.TipoContabilidad <> 1 Then
+            If UsuarioActual.Empresa.TipoContabilidad = 2 Then
                Dim ObjConta2 As New ClsContPAQi(UsuarioActual.Empresa)
                If ObjConta2.GetCuentas(-1, "-1", -1) Then
                    Dim Id As Integer = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"Codigo='{codigo}'").ToEntero
--- a/Empresas/Grales/Formatos/RepTraspasoAlmacen.rdlc
+++ b/Empresas/Grales/Formatos/RepTraspasoAlmacen.rdlc
--- a/Inventarios/AjustesSeccionAlmacen.aspx.vb
+++ b/Inventarios/AjustesSeccionAlmacen.aspx.vb
@@ -125,11 +125,22 @@ Partial Class Inventarios_AjustesSeccionAlmacen
                If gvr.FCCheckBox("ChkEditCaducidad").Checked And FechaCaducidadNueva.Length > 0 And FechaCaducidadNueva <> FechaCaducidadOriginal Then
                    If Not ListaCaducidad.ContainsKey(gvr.DataKey("CvePS").ToEntero) Then ListaCaducidad.Add(gvr.DataKey("CvePS").ToEntero, FechaCaducidadNueva) 'guardo que dato le corresponde
                    Modificar = True
+                    If FechaCaducidadOriginal = "" Then
+                        ErrorMovInv = Not ObjPS.UpdateAplicaLoteCaducidadAlmacen(gvr.DataKey("CvePS").ToEntero, UsuarioActual.CveEmpresa, False, False)
+                    Else
+                        ErrorMovInv = Not ObjPS.UpdateAplicaLoteCaducidadAlmacen(gvr.DataKey("CvePS").ToEntero, UsuarioActual.CveEmpresa, True, True)
+                    End If
                End If

                If gvr.FCCheckBox("ChkLote").Checked And LoteNuevo.Length > 0 And LoteNuevo <> LoteOriginal Then
                    If Not ListaLote.ContainsKey(gvr.DataKey("CvePS").ToEntero) Then ListaLote.Add(gvr.DataKey("CvePS").ToEntero, LoteNuevo) 'guardo que dato le corresponde
                    Modificar = True
+                    If LoteOriginal = "" Then
+                        ErrorMovInv = Not ObjPS.UpdateAplicaLoteCaducidadAlmacen(gvr.DataKey("CvePS").ToEntero, UsuarioActual.CveEmpresa, False, False)
+                    Else
+                        ErrorMovInv = Not ObjPS.UpdateAplicaLoteCaducidadAlmacen(gvr.DataKey("CvePS").ToEntero, UsuarioActual.CveEmpresa, True, True)
+                    End If
+
                End If

                If Modificar Then
@@ -187,6 +198,12 @@ Partial Class Inventarios_AjustesSeccionAlmacen

                        End If

+                        If Lote = "" Then
+                            ErrorMovInv = Not ObjPS.UpdateAplicaLoteCaducidadAlmacen(Row("CvePS").ToString().ToEntero(), UsuarioActual.CveEmpresa, False, False)
+                        Else
+                            ErrorMovInv = Not ObjPS.UpdateAplicaLoteCaducidadAlmacen(Row("CvePS").ToString().ToEntero(), UsuarioActual.CveEmpresa, True, True)
+                        End If
+
                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Cantidad, CveUM, CvePS, PU, -1, CostoIndirecto:=CostoIndirecto, CveSeccionAlmacen:=CveSeccionAlmacen, Lote:=Lote, Serie:=Serie, FechaCaducidad:=FechaCaducidad, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                            ErrorMovInv = True
                            Exit For
@@ -420,7 +437,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen
                                Dim Lote As String = RowExcel("Lote").ToString()
                                Dim FechaCaducidad As Date = IfNull(RowExcel("FechaCaducidad"), MinFecha).ToString.ToDate

-                                Dim RowExistencia As DataRow = DtExistenciasSecciones.FiltroPrimero($"CvePS={CvePS} and ISNULL(Serie,'') = '{Serie}'")
+                                Dim RowExistencia As DataRow = DtExistenciasSecciones.FiltroPrimero($"CvePS={CvePS} and ISNULL(Serie,'') = '{Serie}'", Orderby:="Serie,Lote,FechaCaducidad")

                                If RowExistencia IsNot Nothing Then
                                    Dim CveSeccionAlmacenSalida As Integer = RowExistencia("CveSeccionAlmacen").ToString().ToEntero()
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -583,8 +583,15 @@ Partial Class Inventarios_EntregaAlmacen
                    HLFolio.Text = DtDatos.Rows(0)("SerieFolio").ToString()
                    If UsuarioActual.TienePermisoProceso(201) Then
                        HLFolio.NavigateUrl = $"/Ventas/Ventas.aspx?CveVenta={CveVenta}"
-                    End If
-
+                    End If
+
+                    'filtra los Almacenes de domicilio
+                    If DtDatos.Rows(0)("ServicioDomicilio").ToString() = "True" Then
+                        StrAlmacenes = String.Format("{0} AND Almacen like '%Domicilio%' ", StrAlmacenes)
+                    Else
+                        StrAlmacenes = String.Format("{0} AND NOT (Almacen like '%Domicilio%') ", StrAlmacenes)
+                    End If
+
                    LbObservaciones.Text = DtDatos.Rows(0)("Observaciones").ToString()
                    LbObservacionesAlmacen.Text = DtDatos.Rows(0)("ObservacionesAlmacen").ToString()
                    CveVentaSurtir = CveVenta
@@ -3064,8 +3071,7 @@ Partial Class Inventarios_EntregaAlmacen
        Dim CveMovimientoEntrada As Integer
        Dim FolioEntrada As Integer
        Dim ErrorMovInv As Boolean
-        Dim DtDetalle As New DataTable
-        Dim DtDetalleLote As New DataTable
+        Dim DtDetalle As New DataTable
        Dim TextoError = ""

        'PASA DATOS DEL GV A DATATABLE PARA MANEJOR CON FOR EACH
@@ -3175,7 +3181,7 @@ Partial Class Inventarios_EntregaAlmacen
                    CveSeccionAlmacen = If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString().ToEntero(), -1)

                    DtDetalle = DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0} AND FueTraspaso IS NULL", Dr("Consec")))
-                    DtDetalleLote = DtDatosDetalleLote.FiltraParametros(String.Format("ConsecId = {0} AND FueTraspaso IS NULL", Dr("Consec")))
+                    'DtDetalleLote = DtDatosDetalleLote.FiltraParametros(String.Format("ConsecId = {0} AND FueTraspaso IS NULL", Dr("Consec")))
                    If DtDetalle.Rows.Count > 0 Then  'SI FUE POR SERIE
                        For Each Dr1 As DataRow In DtDetalle.Rows
                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, 1, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), 0, Serie:=Dr1("Serie").ToString(), Lote:=Lote, FechaCaducidad:=FechaCaducidad, CveSeccionAlmacen:=CveSeccionAlmacen, CveVentaDetalle:=-1, CveContratoDetalle:=Dr("CveContratoDetalle").ToString().ToEntero()) Then
@@ -3183,17 +3189,17 @@ Partial Class Inventarios_EntregaAlmacen
                                TextoError = "Ocurrió un error al procesar los conceptos con serie. Por favor vuelva a intentar."
                                Exit For
                            End If
-                        Next
-                    ElseIf DtDetalleLote.Rows.Count > 0 Then 'SI FUE POR LOTE BATCH
-                        For Each Dr1 As DataRow In DtDetalleLote.Rows
-                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Dr1("Cantidad").ToString().ToDecimal, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), 0, Serie:="", Lote:=Dr1("Lote").ToString(), FechaCaducidad:=FechaCaducidad, CveSeccionAlmacen:=CveSeccionAlmacen, CveVentaDetalle:=-1, CveContratoDetalle:=Dr("CveContratoDetalle").ToString().ToEntero()) Then
-                                ErrorMovInv = True
-                                TextoError = "Ocurrió un error al procesar los conceptos con serie. Por favor vuelva a intentar."
-                                Exit For
-                            End If
-                        Next
+                        Next
+                        'ElseIf DtDetalleLote.Rows.Count > 0 Then 'SI FUE POR LOTE BATCH
+                        '    For Each Dr1 As DataRow In DtDetalleLote.Rows
+                        '        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Dr1("Cantidad").ToString().ToDecimal, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), 0, Serie:="", Lote:=Dr1("Lote").ToString(), FechaCaducidad:=FechaCaducidad, CveSeccionAlmacen:=CveSeccionAlmacen, CveVentaDetalle:=-1, CveContratoDetalle:=Dr("CveContratoDetalle").ToString().ToEntero()) Then
+                        '            ErrorMovInv = True
+                        '            TextoError = "Ocurrió un error al procesar los conceptos con serie. Por favor vuelva a intentar."
+                        '            Exit For
+                        '        End If
+                        '    Next
                    Else 'NORMAL
-                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Dr("CantidadGV").ToString().ToDecimal, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), 0, -1, FechaCaducidad:=FechaCaducidad, CveSeccionAlmacen:=CveSeccionAlmacen, CveContratoDetalle:=Dr("CveContratoDetalle").ToString().ToEntero()) Then
+                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Dr("CantidadGV").ToString().ToDecimal, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), 0, -1, Lote:=Lote, FechaCaducidad:=FechaCaducidad, CveSeccionAlmacen:=CveSeccionAlmacen, CveContratoDetalle:=Dr("CveContratoDetalle").ToString().ToEntero()) Then
                            ErrorMovInv = True
                            TextoError = "Ocurrió un error al procesar los conceptos de salida. Por favor vuelva a intentar."
                            Exit For
@@ -3219,12 +3225,8 @@ Partial Class Inventarios_EntregaAlmacen
                If CveMovimientoEntrada > 0 Then
                    If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
                        Dim CveSeccionAlmacen As Integer = -1
-                        For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-                            'If CBool(Dr("AplicaSeccion")) Then
-                            '    CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, Almacen2, Dr("CvePS").ToString().ToEntero()).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero()
-                            'Else
-                            '    CveSeccionAlmacen = -1
-                            'End If
+                        For Each Dr As DataRow In ObjInventario.DtResultados.Rows
+
                            CveSeccionAlmacen = -3

                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString().ToDecimal, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), Dr("PU").ToString().ToDecimal, CveAF:=Dr("CveAF").ToString().ToEntero(), CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Dr("Serie").ToString(), Lote:=Dr("Lote").ToString(), FechaCaducidad:=Dr("FechaCaducidad").ToString().ToDate, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString().ToEntero(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero()) Then
--- a/Inventarios/PrestamosdeProveedor.aspx
+++ b/Inventarios/PrestamosdeProveedor.aspx
@@ -126,7 +126,7 @@

    <asp:UpdatePanel runat="server" ID="UppEntrega" UpdateMode="Conditional">
        <ContentTemplate>
-            <asp:GridView ID="GvD" DataKeyNames="CveUM,CvePS,CveSeccionAlmacen,Serie,Lote,FechaCaducidad,CveMovimientoDetalle,CveMovimiento, AplicaLote, AplicaCaducidad" runat="server" AutoGenerateColumns="False" EmptyDataText="No hay movimientos pendientes" CssClass="table table-hover Widthall" GridLines="None">
+            <asp:GridView ID="GvD" DataKeyNames="CveUM,CvePS,CveSeccionAlmacen,Serie,Lote,FechaCaducidad,CveMovimientoDetalle,CveMovimiento, AplicaLote, AplicaCaducidad,PS" runat="server" AutoGenerateColumns="False" EmptyDataText="No hay movimientos pendientes" CssClass="table table-hover Widthall" GridLines="None">
                <Columns>
                    <asp:TemplateField ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Center">
                        <%--<HeaderTemplate>
@@ -138,7 +138,7 @@
                    </asp:TemplateField>
                    <asp:TemplateField HeaderText="Cantidad" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center">
                        <ItemTemplate>
-                            <asp:TextBox ID="TxtCantidad" Visible="false" Width="60px" runat="server" Text="0" Enabled="false"></asp:TextBox>
+                            <asp:TextBox ID="TxtCantidad" Visible="false" Width="60px" runat="server" Text="0" Enabled="false" Style="text-align:right;"></asp:TextBox>
                            <ajax:FilteredTextBoxExtender ID="SoloNumeros2" runat="server" TargetControlID="TxtCantidad" FilterType="Custom, Numbers" ValidChars="." />
                        </ItemTemplate>
                    </asp:TemplateField>
--- a/Inventarios/PrestamosdeProveedor.aspx.vb
+++ b/Inventarios/PrestamosdeProveedor.aspx.vb
@@ -69,8 +69,8 @@ Partial Class Inventarios_PrestamosdeProveedor
        End If

        GvD.Columns(6).Visible = ObjInv.DtResultados.MAX("Serie") <> ""
-        GvD.Columns(7).Visible = ObjInv.DtResultados.MAX("Lote") <> ""
-        GvD.Columns(8).Visible = ObjInv.DtResultados.MAX("FechaCaducidad").ToDate > MinFecha
+        GvD.Columns(7).Visible = ObjInv.DtResultados.MAX("AplicaLote") = "True" 'MAX("Lote") <> ""
+        GvD.Columns(8).Visible = ObjInv.DtResultados.MAX("AplicaCaducidad") = "True" 'MAX("FechaCaducidad").ToDate > MinFecha
        GvD.Columns(8).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)

        ObjInv.Dispose()
@@ -141,10 +141,11 @@ Partial Class Inventarios_PrestamosdeProveedor
                        Dim Lote As String = "-1"
                        Dim FechaCaducidad As Date = MinFecha
                        If gvr.DataKey("Serie") <> "" Then Serie = gvr.DataKey("Serie")
-                        If gvr.DataKey("Lote") <> "" Then Lote = gvr.DataKey("Lote")
-                        If gvr.DataKey("FechaCaducidad").ToDate > MinFecha Then FechaCaducidad = gvr.DataKey("FechaCaducidad")
+                        If gvr.DataKey("AplicaLote") = "True" Then Lote = gvr.FCTextBox("TxtLote").Text  ' gvr.DataKey("Lote")
+                        If gvr.DataKey("AplicaCaducidad") = "True" Then FechaCaducidad = gvr.FCTextBox("TxtFechaCaducidad").Text.todate ' gvr.DataKey("Lote")
+                        'If gvr.DataKey("FechaCaducidad").ToDate > MinFecha Then FechaCaducidad = gvr.DataKey("FechaCaducidad")

-                        Dim Valido = ValidaExistencia(gvr.FCTextBox("TxtCantidad").Text.ToDecimal, gvr.DataKey("CvePS").ToEntero, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CveSeccionAlmacen").ToEntero, Serie:=Serie, Lote:=Lote, FechaCaducidad:=FechaCaducidad)
+                        Dim Valido = ValidaExistencia(gvr.FCTextBox("TxtCantidad").Text.ToDecimal, gvr.DataKey("CvePS").ToEntero, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CveSeccionAlmacen").ToEntero, Serie, Lote, FechaCaducidad, gvr.DataKey("PS"))
                        If Not Valido Then
                            Alert("No hay existencia del producto a devolver.", TipoMensaje.MsgAdvertencia)
                            Exit Sub
@@ -273,7 +274,7 @@ Partial Class Inventarios_PrestamosdeProveedor
        End If
    End Sub

-    Private Function ValidaExistencia(Cantidad As Double, CvePS As Integer, CveUnidadMedida As Integer, CveSeccionAlmacen As Integer, Serie As String, Lote As String, FechaCaducidad As Date) As Boolean
+    Private Function ValidaExistencia(Cantidad As Double, CvePS As Integer, CveUnidadMedida As Integer, CveSeccionAlmacen As Integer, Serie As String, Lote As String, FechaCaducidad As Date, PS As String) As Boolean
        Dim Retorno = True

        Dim Inv As New ClsInventarios
@@ -283,9 +284,9 @@ Partial Class Inventarios_PrestamosdeProveedor

        If Existencia - Cantidad < 0 Then
            If Existencia < 0 Then
-                Alert("No hay existencia del producto", TipoMensaje.MsgAdvertencia)
+                Alert(String.Format("No hay existencia del producto: ", PS), TipoMensaje.MsgAdvertencia)
            Else
-                Alert(String.Format("Solo hay en existencia:  {0}", Existencia), TipoMensaje.MsgAdvertencia)
+                Alert(String.Format("Solo hay en existencia:  {0} en el producto: {1}", Existencia, PS), TipoMensaje.MsgAdvertencia)
            End If
            Retorno = False
        End If
--- a/Inventarios/TraspasoAlmacen.aspx
+++ b/Inventarios/TraspasoAlmacen.aspx
@@ -672,8 +672,16 @@
                                        <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-Width="10%" />
                                        <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-Width="40%" />
                                        <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="15%" />
-                                        <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-Width="15%" />
-                                        <asp:BoundField HeaderText="Caducidad" DataField="FechaCaducidad" DataFormatString="{0:d}" ItemStyle-Width="15%" />
+                                        <asp:TemplateField HeaderText="Lote" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Center"  Visible="false" >
+                                            <ItemTemplate>
+                                                <asp:TextBox ID="TxtLote" Width="60px" runat="server" Text='<%# Eval("Lote") %>'  Visible="false"></asp:TextBox>
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Caducidad" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Center"  Visible="false" >
+                                            <ItemTemplate>
+                                                <asp:TextBox ID="TxtCaducidad" Width="75px" runat="server" Text='<%# Eval("FechaCaducidad") %>' Visible="false" ></asp:TextBox>
+                                            </ItemTemplate>
+                                        </asp:TemplateField>                                        
                                        <asp:TemplateField HeaderText="Sección Almacén" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" Visible="false">
                                            <ItemTemplate>
                                                <asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="SeccionAlmacen" AppendDataBoundItems="true" DataValueField="CveSeccionAlmacen" Class="form-control input-sm select2me" Style="width: 95% !important" runat="server" CausesValidation="true">
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -1618,8 +1618,8 @@ Partial Class Inventarios_TraspasoAlmacen
            GvDatosRecepcion.DataBind()

            GvDatosRecepcion.Columns(6).Visible = Dtt.MAX("Serie") <> ""
-            GvDatosRecepcion.Columns(7).Visible = Dtt.MAX("Lote") <> ""
-            GvDatosRecepcion.Columns(8).Visible = Dtt.MAX("FechaCaducidad").ToDate > MinFecha
+            GvDatosRecepcion.Columns(7).Visible = Dtt.MAX("AplicaLote").ToEntero > 0 'Dtt.MAX("Lote") <> ""
+            GvDatosRecepcion.Columns(8).Visible = Dtt.MAX("AplicaCaducidad").ToEntero > 0 'Dtt.MAX("FechaCaducidad").ToDate > MinFecha
            GvDatosRecepcion.Columns(9).Visible = Dtt.MAX("CveSeccionAlmacen").ToEntero > 0
            'Dt.Dispose()
        End If
@@ -1681,14 +1681,29 @@ Partial Class Inventarios_TraspasoAlmacen
                    'dtt.Dispose()

                End If
+
+                If e.Row.DBCampo("AplicaLote").ToString.Trim = "1" Then
+                    e.Row.FCTextBox("TxtLote").visible = True
+                End If
+
+                If e.Row.DBCampo("AplicaCaducidad").ToString.Trim = "1" Then
+                    e.Row.FCTextBox("TxtCaducidad").visible = True
+                End If
+
            End If

+
+
+
+
+
+
            'FUNCIONALIDAD PISTOLA DE CODIGOS
            If UsuarioActual.Empresa.Funcionalidad(132) = "1" And e.Row.DBCampo("CodigoBarras").Trim <> "" Then
-                e.Row.FCTextBox("TxtCantidad").Enabled = False
-            End If
+                    e.Row.FCTextBox("TxtCantidad").Enabled = False
+                End If

-        End If
+            End If
    End Sub

    Protected Sub BtnCancelarTraspaso_Click(sender As Object, e As EventArgs)
@@ -1912,7 +1927,7 @@ Partial Class Inventarios_TraspasoAlmacen

            Dim TipoAlmacenDestino As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacenEntrada}").ToEntero()
            Dim TipoAlmacenOrigen As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacenSalida}").ToEntero()
-
+            Dim CveSubProyectoRecibe = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen = {CveAlmacenEntrada}").ToEntero

            Dim RealizarMovimientoVirtual As Boolean = False

@@ -1959,7 +1974,16 @@ Partial Class Inventarios_TraspasoAlmacen
                            Exit For
                        End If
                        Dim PrecioEntrada As Decimal = If(TipoAlmacenDestino = 26, 0, gvr.DataKey("PU").ToString.ToDecimal)
-                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, gvr.FCTextBox("TxtCantidad").Text.ToString.ToDecimal, gvr.DataKey("CveUM").ToString.ToEntero, gvr.DataKey("CvePS").ToString.ToEntero, PrecioEntrada, CveAF:=gvr.DataKey("CveAF").ToString.ToEntero, CveSeccionAlmacen:=gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero, Serie:=gvr.DataKey("Serie").ToString, Lote:=gvr.DataKey("Lote").ToString, FechaCaducidad:=gvr.DataKey("FechaCaducidad").ToDate, CveMovimientoDetalleEntrada:=CveMovimientoDetalleEntrada) Then
+                        ''RMF codigo temporal. por implementación
+                        Dim tLote As String = gvr.DataKey("Lote").ToString
+                        Dim tFechaCaducidad As Date = gvr.DataKey("FechaCaducidad").ToDate
+
+                        If CveSubProyectoRecibe = 10276 Then
+                            tLote = gvr.FCTextBox("TxtLote").text
+                            tFechaCaducidad = gvr.FCTextBox("TxtCaducidad").text.todate
+                        End If
+
+                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, gvr.FCTextBox("TxtCantidad").Text.ToString.ToDecimal, gvr.DataKey("CveUM").ToString.ToEntero, gvr.DataKey("CvePS").ToString.ToEntero, PrecioEntrada, CveAF:=gvr.DataKey("CveAF").ToString.ToEntero, CveSeccionAlmacen:=gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero, Serie:=gvr.DataKey("Serie").ToString, Lote:=tLote, FechaCaducidad:=tFechaCaducidad, CveMovimientoDetalleEntrada:=CveMovimientoDetalleEntrada) Then
                            ErrorMovInv = True
                            TextoError = "Ocurrió un error al guardar los movimientos de salida"
                            Exit For
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -1689,7 +1689,7 @@ Partial Class ProductosyServicios
        ObjProductosServicios.Dispose()

        If Not TieneError Then
-            Alert("El Producto/Servicio Adicionala se eliminó correctamente.", TipoMensaje.MsgInformacion)
+            Alert("El Producto/Servicio Adicional se eliminó correctamente.", TipoMensaje.MsgInformacion)
            CargaPSAdicionales()
            CargaGvPSAdicionales()
            'RecargaGlobalEquivalencias()