Merge branch 'master' of http://192.168.10.111:8383/SIG

App_Code/Modelos.vb

@@ -2203,8 +2203,7 @@ Namespace Modelos
                     CveCuentaIVATrasladado = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=DtDetalle.MAX("PorcentajeIVA").ToDouble).Rows(0)("CveCuentaIVATrasladado").ToString.ToEntero
                 End If
 
-                Dim UsaComplementariaClientes As Boolean = False
+                Dim UsaComplementariaClientes As Boolean = True
-                If UsuarioActual.CveEmpresa.Contiene(1, 119) Then UsaComplementariaClientes = True
 
                 If ObjConta.GetPlantillaConceptos(ObjFactura.CveEmpresa, CvePlantilaPoliza) Then
                     Dim dtt As DataTable = ObjConta.DtResultados

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
 

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
+                    Dim codigoPadre As String = DtDatos.FiltroPrimeroValor("Codigo", $"CveCuenta={IDSelected}") 'Tsubcuenta.Text
-                            If ObjConta.UpdateCuentaCompaq(idnew, idnew2, UsuarioActual.CveEmpresa) Then
+                    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

GPS/Busqueda.aspx

@@ -513,7 +513,7 @@
 
         }
     </script>
-    <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=drawing&libraries=places", Extensiones.GOOGLE_MAPS_API_KEY) %>"</script>
+    <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=drawing&libraries=places", Extensiones.GOOGLE_MAPS_API_KEY) %>"></script>
 </asp:Content>
 
 

GPS/CatRemisionesVehiculos.aspx

@@ -266,6 +266,6 @@
 
 
     </script>
-    <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=places", Extensiones.GOOGLE_MAPS_API_KEY) %>"</script>
+    <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=places", Extensiones.GOOGLE_MAPS_API_KEY) %>"></script>
 </asp:Content>
 

GPS/EntradasSalidasGR.aspx

@@ -632,6 +632,6 @@
         }
 
     </script>
-    <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=places", Extensiones.GOOGLE_MAPS_API_KEY) %>"</script>
+    <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=places", Extensiones.GOOGLE_MAPS_API_KEY) %>"></script>
 </asp:Content>
 

GPS/GeoReferencias.aspx

@@ -769,7 +769,7 @@
         }
 
     </script>
-    <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=drawing&libraries=geometry&libraries=places", Extensiones.GOOGLE_MAPS_API_KEY) %>"</script>
+    <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=drawing&libraries=geometry&libraries=places", Extensiones.GOOGLE_MAPS_API_KEY) %>"></script>
     <script src="../Metronic/assets/global/plugins/jquery-minicolors/jquery.minicolors.min.js"></script>
     <script src="../Metronic/assets/global/plugins/jquery-minicolors/components-color-pickers.min.js"></script>
 </asp:Content>

GPS/PuntosDeInteres.aspx

@@ -754,7 +754,7 @@
         }
 
     </script>
-    <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=places&callback=initMap", Extensiones.GOOGLE_MAPS_API_KEY) %>"</script>
+    <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=places&callback=initMap", Extensiones.GOOGLE_MAPS_API_KEY) %>"></script>
 
 </asp:Content>
 

GPS/Rastreo.aspx

@@ -3130,7 +3130,7 @@
             }
 
     </script>
-    <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=drawing&libraries=places", Extensiones.GOOGLE_MAPS_API_KEY) %>"</script>
+    <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=drawing&libraries=places", Extensiones.GOOGLE_MAPS_API_KEY) %>"></script>
     <script src="../Metronic/assets/global/plugins/jquery-minicolors/jquery.minicolors.min.js"></script>
     <script src="../Metronic/assets/global/plugins/jquery-minicolors/components-color-pickers.min.js"></script>
     <script src="Rastreo/JS/GeoRutas.js"></script>

GPS/RepGeoReferencias.aspx

@@ -623,6 +623,6 @@
 
 
     </script>
-    <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=places", Extensiones.GOOGLE_MAPS_API_KEY) %>"</script>
+    <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=places", Extensiones.GOOGLE_MAPS_API_KEY) %>"></script>
 </asp:Content>
 

GPS/RepPuntosDeInteres.aspx

@@ -722,7 +722,7 @@
         }
 
     </script>
-    <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=places&callback=initMap", "AIzaSyDsZ4ATb_hVSEpRbBSlS46ZHEOn-0bNIFI") %>"></script>
+    <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=places&callback=initMap", Extensiones.GOOGLE_MAPS_API_KEY) %>"></script>
     <script src="../Metronic/assets/global/plugins/jquery-minicolors/jquery.minicolors.min.js"></script>
     <script src="../Metronic/assets/global/plugins/jquery-minicolors/components-color-pickers.min.js"></script>
 </asp:Content>

GPS/Shipments.aspx

@@ -731,6 +731,6 @@
             }
 
     </script>
-    <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=places", Extensiones.ModExtensiones.GOOGLE_MAPS_API_KEY) %>"</script>
+    <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=places", Extensiones.ModExtensiones.GOOGLE_MAPS_API_KEY) %>"></script>
 </asp:Content>
 

GPS/TrayectoDetalle.aspx

@@ -784,6 +784,6 @@
 
 
     </script>
-    <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=places", Extensiones.GOOGLE_MAPS_API_KEY) %>"</script>
+    <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=places", Extensiones.GOOGLE_MAPS_API_KEY) %>"></script>
 </asp:Content>
 

GPS/Trayectos.aspx

@@ -1333,6 +1333,6 @@
             });
         }
     </script>
-    <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=places", Extensiones.GOOGLE_MAPS_API_KEY) %>"</script>
+    <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=places", Extensiones.GOOGLE_MAPS_API_KEY) %>"></script>
 </asp:Content>
 

GPS/Vehiculos.aspx

@@ -3340,9 +3340,7 @@
 
 
     </script>
-    <script
+     <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=drawing&callback=IniciaMapas", Extensiones.GOOGLE_MAPS_API_KEY) %>"></script>
-        src="https://maps.googleapis.com/maps/api/js?key=AIzaSyAF7s8wwhzCVXDUYopc9mXxqaWB33cDro4&libraries=drawing&callback=IniciaMapas">
-    </script>
     <script src="../Metronic/assets/global/plugins/jquery-minicolors/jquery.minicolors.min.js"></script>
     <script src="../Metronic/assets/global/plugins/jquery-minicolors/components-color-pickers.min.js"></script>
 </asp:Content>

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()

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:TemplateField HeaderText="Lote" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Center"  Visible="false" >
-                                        <asp:BoundField HeaderText="Caducidad" DataField="FechaCaducidad" DataFormatString="{0:d}" ItemStyle-Width="15%" />
+                                            <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">

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(7).Visible = Dtt.MAX("AplicaLote").ToEntero > 0 'Dtt.MAX("Lote") <> ""
-            GvDatosRecepcion.Columns(8).Visible = Dtt.MAX("FechaCaducidad").ToDate > MinFecha
+            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
+                    e.Row.FCTextBox("TxtCantidad").Enabled = False
-            End If
+                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

PortalGPS/InicioGPS.aspx

@@ -340,5 +340,5 @@
     }
 
     </script>
-    <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=drawing&libraries=places", Extensiones.GOOGLE_MAPS_API_KEY) %>"</script>
+    <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=drawing&libraries=places", Extensiones.GOOGLE_MAPS_API_KEY) %>"></script>
 </asp:Content>

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()