opciones activadas para bdh

Inventarios/EntregaAlmacen.aspx.vb

@@ -933,7 +933,7 @@ Partial Class Inventarios_EntregaAlmacen
 
             'código temporal
             Dim AplicaSerie As Boolean = CBool(e.Row.DBCampo("AplicaSerie"))
-            If UsuarioActual.CveEmpresa = 140 AndAlso Not CveSubProyecto.Contiene(11793, 11993, 11794, 11795) Then
+            If UsuarioActual.CveEmpresa = 140 AndAlso Not CveSubProyecto.Contiene(11791, 11793, 11993, 11994, 11794, 11797, 11795, 12010, 12011) Then
                 AplicaSerie = False
             End If
 

Inventarios/TraspasoAlmacen.aspx

@@ -640,7 +640,7 @@
                                                 <ajax:FilteredTextBoxExtender ID="SoloNumeros2" runat="server" TargetControlID="TxtCantidad" FilterType="Custom, Numbers" ValidChars="." />
                                             </ItemTemplate>
                                         </asp:TemplateField>
-                                        <asp:BoundField HeaderText="Disponible" DataField="Cantidad" DataFormatString="{0:#,##0.00####}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="10%" />
+                                        <asp:BoundField HeaderText="Disponible" DataField="Cantidad" DataFormatString="{0:#,###.######}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="10%" />
                                         <asp:BoundField HeaderText="Unidad" DataField="UnidadMedida" ItemStyle-Width="10%" />
                                         <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-Width="10%" />
                                         <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-Width="40%" />

Inventarios/TraspasoAlmacen.aspx.vb

@@ -575,7 +575,18 @@ Partial Class Inventarios_TraspasoAlmacen
                         tCaducidad = MinFecha
                     End If
 
-                    Dim Valido = ValidaExistencia(Cantidad, CveProducto, DdlUnidad.SelectedValue.ToEntero, DdlSeccionAlmacen.SelectedValue.ToEntero, If(TxtnSerie.Visible, TxtnSerie.Text, "-1"), tLote, tCaducidad)
+                    Dim tSerie As String = If(TxtnSerie.Visible, TxtnSerie.Text, "-1")
+
+                    If UsuarioActual.CveEmpresa = 140 Then
+                        Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen = {DdlAlmacenOrigen.SelectedValue}").ToEntero
+
+                        If Not CveSubProyecto.Contiene(11791, 11793, 11993, 11994, 11794, 11797, 11795, 12010, 12011) Then
+                            tSerie = "-1"
+                        End If
+
+                    End If
+
+                    Dim Valido = ValidaExistencia(Cantidad, CveProducto, DdlUnidad.SelectedValue.ToEntero, DdlSeccionAlmacen.SelectedValue.ToEntero, tSerie, tLote, tCaducidad)
 
                     If Valido Then
                         AgregarPS(Cantidad, CveProducto, DdlUnidad.SelectedValue.ToEntero, TxtnObservaciones.Text, CveSeccionAlmacen:=DdlSeccionAlmacen.SelectedValue.ToEntero, SeccionAlmacen:=DdlSeccionAlmacen.SelectedItem.Text, Serie:=If(TxtnSerie.Visible, TxtnSerie.Text, ""), Lote:=If(tLote = "-1", "", tLote), FechaCaducidad:=tCaducidad, CveSeccionAlmacenDestino:=DdlSeccionAlmacenDestino.SelectedValue.ToEntero, Limpia:=FuncionalidadSinSerie)
@@ -859,6 +870,16 @@ Partial Class Inventarios_TraspasoAlmacen
                 Dim tLote As String = If(Lote <> "-1", String.Format("AND Lote = '{0}' ", Lote), "")
                 Dim tFechaCaducidad As String = If(FechaCaducidad > MinFecha, String.Format("AND FechaCaducidad = '{0}' ", FechaCaducidad), "")
 
+                If UsuarioActual.CveEmpresa = 140 Then
+                    Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen = {DdlAlmacenOrigen.SelectedValue}").ToEntero
+
+                    If Not CveSubProyecto.Contiene(11791, 11793, 11993, 11994, 11794, 11797, 11795, 12010, 12011) Then
+                        Serie = "-1"
+                    End If
+
+                End If
+
+
                 Dim ExistenciaEspecificada As Decimal = 0
                 CantidadenGrid = DtMovimientos.SUMD("Cantidad", String.Format("CvePS = {0} AND CveUM = {1} {2} {3} {4} ", dr("CvePS"), dr("CveUM"), If(Not dr("Serie").ToString.Contiene("-1", ""), $" AND Serie = '{dr("Serie")}'", ""), tLote, tFechaCaducidad))
                 If ObjInventario.GetExistenciasProducto(dr("CvePS").ToString.ToEntero, dr("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Serie, Lote:=Lote, Caducidad:=FechaCaducidad) Then
@@ -1383,15 +1404,15 @@ Partial Class Inventarios_TraspasoAlmacen
 
                 Dim AplicaSerie As Boolean = CBool(drP("AplicaSerie"))
 
-                'codigo temporal
-                If UsuarioActual.CveEmpresa = 140 Then
-                    Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen = {DdlAlmacenOrigen.SelectedValue}").ToEntero
+                ''codigo temporal
+                'If UsuarioActual.CveEmpresa = 140 Then
+                '    Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen = {DdlAlmacenOrigen.SelectedValue}").ToEntero
 
-                    If Not CveSubProyecto.Contiene(11793, 11993, 11794, 11795) Then
-                        AplicaSerie = False
-                    End If
+                '    If Not CveSubProyecto.Contiene(11793, 11993, 11794, 11795, 12010, 12011) Then
+                '        AplicaSerie = False
+                '    End If
 
-                End If
+                'End If
 
                 ThSerie.Visible = AplicaSerie
                 TdSerie.Visible = AplicaSerie
@@ -1928,11 +1949,14 @@ Partial Class Inventarios_TraspasoAlmacen
                         TextoError = "Ocurrió un error al cancelar el traspaso"
                     End If
 
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteDecimal, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1,
-                                                     CveMovimientoAlmacen:=CveMovimientoSalidaTransitorio, ImporteMX:=ImporteDecimal, Contabilizable:=False) Then
-                        ErrorMovInv = True
-                        TextoError = "Ocurrió un erro al cancelar el traspaso"
+                    If CveMovimientoSalidaTransitorio > 0 Then
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteDecimal, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1,
+                                                    CveMovimientoAlmacen:=CveMovimientoSalidaTransitorio, ImporteMX:=ImporteDecimal, Contabilizable:=False) Then
+                            ErrorMovInv = True
+                            TextoError = "Ocurrió un error al cancelar el traspaso"
+                        End If
                     End If
+
                 End If
 
             End If
@@ -1956,7 +1980,7 @@ Partial Class Inventarios_TraspasoAlmacen
             If CveMovimientoVirtualEntrada > 0 Then Mensaje.AppendFormat("<br/>Folio Virtual: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{2}</a></b>&nbsp;<br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Entrada Virtual</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtualEntrada)), CveMovimientoVirtualEntrada, FolioVirtualEntrada)
 
             Alert(Mensaje.ToString, TipoMensaje.MsgInformacion)
-
+            CargaRecepcion()
             DivCodigoSeriePSRecepcion.Visible = False
 
             GvDatosRecepcion.DataBind()
@@ -1971,7 +1995,7 @@ Partial Class Inventarios_TraspasoAlmacen
         ObjConta.Dispose()
         ObjInventario.Dispose()
 
-        CargaRecepcion()
+
     End Sub
 
     Protected Sub BtnRecibir_Click(sender As Object, e As EventArgs)
@@ -2251,13 +2275,14 @@ Partial Class Inventarios_TraspasoAlmacen
                 GvDatosRecepcion.DataBind()
                 UpDatosRecepcion.Update()
                 UPDatosAlmacen.Update()
+                CargaRecepcion()
             Else
                 ObjInventario.RollBack()
                 Alert(TextoError, TipoMensaje.MsgError)
             End If
             ObjInventario.Dispose()
             ObjConta.Dispose()
-            CargaRecepcion()
+
         Else
             Alert("No hay movimientos para el traspaso", TipoMensaje.MsgAdvertencia)
             If ChkTransitorio.Checked Then DivResponsable.Visible = True : DivTransitorio2.Visible = True