Pendientes BDH 2020.10.20

Compras/PopUpVerFactura.aspx.vb

@@ -1248,10 +1248,10 @@ Partial Class PopUpVerFactura
         Dim PuestoEnrego As String = ObjInventarios.PuestoEntrego
         Dim ResponsableCarga As String = ObjInventarios.ResponsableCarga
         Dim ResponsableRecibio As String = ObjInventarios.ResponsableRecibio
+        Dim UsuarioCapturo As String = ObjInventarios.DtResultados.FiltroPrimeroValor("UsuarioCapturo")
 
         If Recibio.Trim = "" Then
             Dim ObjRH As New ClsRH
-
             If ObjRH.GetPersonal(ObjInventarios.CvePersonal, UsuarioActual.CveEmpresa) AndAlso ObjRH.DtResultados.Rows.Count > 0 Then
                 Recibio = ObjRH.DtResultados.Rows(0)("NombreCompleto").ToString
             End If
@@ -1278,6 +1278,8 @@ Partial Class PopUpVerFactura
         Dim FolioRelacionado As String = ""
         Dim CveConceptoMovtoRelacionado As Integer = -1
 
+        Dim CveTipoAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacen}").ToString.ToEntero
+
         'VERIFICA SI TIENE MOVIMIENTO VIRTUAL RELACIONADO
         If UsuarioActual.CveEmpresa = 140 AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then
             CveMovimientoRelacionado = ObjInventarios.DtResultados.Rows(0)("CveMtoRel").ToString().ToEntero()
@@ -1287,6 +1289,9 @@ Partial Class PopUpVerFactura
             ElseIf CveConcepto.Contiene(36, 37) Then
                 FolioRelacionado = ObjInventarios.DtResultados.FiltroPrimeroValor("FolioRelacionado")
                 CveConceptoMovtoRelacionado = 3
+            ElseIf CveConcepto.Contiene(2) AndAlso CveTipoAlmacen.Contiene(24, 25) Then
+                FolioRelacionado = ObjInventarios.DtResultados.FiltroPrimeroValor("FolioRelacionado")
+                CveConceptoMovtoRelacionado = 3
             End If
         End If
 
@@ -1316,7 +1321,7 @@ Partial Class PopUpVerFactura
                         Dim CveTipoAlmacenRelacionado As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacenRelacionado}").ToString.ToEntero
 
                         'SI TIENE RELACIONADO UN MOVIMIENTO VIRTUAL DEBE AGREGAR ESTE MOVIMIENTO A LA IMPRESION
-                        If CveTipoAlmacenRelacionado = 24 Then
+                        If CveTipoAlmacenRelacionado.Contiene(24, 25) Then
                             If ObjInventarios.GetMovimientosDetalle(CveMovimientoRelacionado, UsuarioActual.CveEmpresa) Then
                                 Dim DtUsados As DataTable = ObjInventarios.DtResultados.Copy()
                                 CantidadUsados = DtUsados.SUM("Cantidad").ToDecimal()
@@ -1342,7 +1347,28 @@ Partial Class PopUpVerFactura
             End If
         End If
 
-        Dim CveTipoAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacen}").ToString.ToEntero
+        If UsuarioActual.CveEmpresa = 140 AndAlso CveCompra > 0 Then
+            If ObjInventarios.RecepcionAlmacenGet(CveCompra, -1, UsuarioActual.CveEmpresa) AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then
+                Dim DtFaltante As DataTable = ObjInventarios.DtResultados.FiltraParametros("CantidadF > 0")
+                If DtFaltante.Rows.Count > 0 Then
+                    Dim SbPendientes As New StringBuilder
+                    SbPendientes.AppendFormat("Los siguientes productos quedaron pendientes por recibir:")
+                    For Each Row As DataRow In DtFaltante.Rows
+                        SbPendientes.AppendFormat(" PS:{0} Cant.:{1:N0},", Row("CodigoPS"), Row("CantidadF"))
+                    Next
+                    SbPendientes.Remove(SbPendientes.Length - 1, 1)
+
+                    SbPendientes.AppendFormat(" Total Cant.:{0:N0}, Total Costo:{1:N2}", DtFaltante.SUM("CantidadF"), DtFaltante.SUM("Total"))
+
+                    If Not String.IsNullOrEmpty(Observaciones) Then
+                        Observaciones = SbPendientes.ToString() + ".<br/>" + Observaciones
+                    Else
+                        Observaciones = SbPendientes.ToString()
+                    End If
+                End If
+                DtFaltante.Dispose()
+            End If
+        End If
 
         If CveTipoAlmacen = 20 Then
             CveConcepto = 24
@@ -1359,7 +1385,7 @@ Partial Class PopUpVerFactura
                           MunicipioDestino, EstadoDestino, PaisDestino, CPDestino, FechaMovimiento, NombreCapturo, PuestoRecibio,
                           PuestoEnrego, RazonSocial, ResponsableCarga, ResponsableRecibio, NombreCliente,
                           CantidadProductos:=CantidadProductos, CantidadUsados:=CantidadUsados, CveTipoAlmacen:=CveTipoAlmacen, NombreEntrego:=NombreEntrego,
-                          CveConceptoMovRelacionado:=CveConceptoMovtoRelacionado, FolioRelacionado:=FolioRelacionado)
+                          CveConceptoMovRelacionado:=CveConceptoMovtoRelacionado, FolioRelacionado:=FolioRelacionado, UsuarioRegistro:=UsuarioCapturo)
 
     End Sub
     Private Sub PUanacExtr(CveMoneda As Integer) 'preciounitario a moneda nacional o extranjera
@@ -1377,7 +1403,7 @@ Partial Class PopUpVerFactura
                                   EstadoOrigen As String, PaisOrigen As String, CPOrigen As String, CalleDestino As String, NoExtDestino As String, ColoniaDestino As String, LocalidadDestino As String, MunicipioDestino As String,
                                   EstadoDestino As String, PaisDestino As String, CPDestino As String, FechaMovimiento As Date, NombreCapturo As String, PuestoRecibio As String, PuestoEntrego As String,
                                   RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String, NombreCliente As String, Optional CantidadProductos As Decimal = 0, Optional CantidadUsados As Decimal = 0,
-                                  Optional CveTipoAlmacen As Integer = -1, Optional NombreEntrego As String = "", Optional CveConceptoMovRelacionado As Integer = -1, Optional FolioRelacionado As String = "")
+                                  Optional CveTipoAlmacen As Integer = -1, Optional NombreEntrego As String = "", Optional CveConceptoMovRelacionado As Integer = -1, Optional FolioRelacionado As String = "", Optional UsuarioRegistro As String = "")
 
 
         Select Case CveConcepto
@@ -1527,6 +1553,7 @@ Partial Class PopUpVerFactura
                         params.Add(New ReportParameter("IVA", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("IVA").ToString.FormatoNumero(2), "")))
                         params.Add(New ReportParameter("Total", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("Total").ToString.FormatoNumero(2), "")))
                         'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
+                        params.Add(New ReportParameter("Observaciones", Observaciones))
                         params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
                         params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString()))
                         params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado))
@@ -1763,6 +1790,7 @@ Partial Class PopUpVerFactura
                             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                             params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString()))
                             params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado))
+                            params.Add(New ReportParameter("UsuarioRegistro", UsuarioRegistro))
 
                             ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
                         Else

Empresas/140/Formatos/Salidas.rdlc

@@ -1187,6 +1187,77 @@
             <PaddingBottom>2pt</PaddingBottom>
           </Style>
         </Textbox>
+        <Textbox Name="Textbox13">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>Usuario Registró:</Value>
+                  <Style>
+                    <FontStyle>Normal</FontStyle>
+                    <FontSize>9pt</FontSize>
+                    <FontWeight>Bold</FontWeight>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style>
+                <TextAlign>Right</TextAlign>
+              </Style>
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox5</rd:DefaultName>
+          <Top>1.62251cm</Top>
+          <Left>0.79137cm</Left>
+          <Height>0.6cm</Height>
+          <Width>2.90426cm</Width>
+          <ZIndex>6</ZIndex>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+        <Textbox Name="Textbox38">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>=Parameters!UsuarioRegistro.Value</Value>
+                  <Style>
+                    <FontStyle>Normal</FontStyle>
+                    <FontWeight>Normal</FontWeight>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style>
+                <TextAlign>Left</TextAlign>
+              </Style>
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox33</rd:DefaultName>
+          <Top>1.62251cm</Top>
+          <Left>3.69563cm</Left>
+          <Height>0.6cm</Height>
+          <Width>5.93606cm</Width>
+          <ZIndex>7</ZIndex>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
       </ReportItems>
       <Style>
         <Border>
@@ -1387,6 +1458,12 @@
       <Nullable>true</Nullable>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="UsuarioRegistro">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <rd:ReportUnitType>Cm</rd:ReportUnitType>
   <rd:ReportID>e6b08487-acfe-4020-a8f2-f9a54953646f</rd:ReportID>

Inventarios/RecepcionAlmacen.aspx.vb

@@ -2688,7 +2688,7 @@ Partial Class Inventarios_RecepcionAlmacen
 
                         Dim CveAlmacenVirutal As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacenFiltro).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()
 
-                        CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirutal, If(TipoMovimiento > 1, 13, 2), 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="RA/G4")
+                        CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirutal, If(TipoMovimiento > 1, 13, 2), 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, CveMovimientoRelacionado:=CveMovimiento, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="RA/G4")
                         FolioVirtual = ObjInventario.Folio
 
                         For Each RowUsado As DataRow In DtPSVirtual.Rows
@@ -2882,9 +2882,16 @@ Partial Class Inventarios_RecepcionAlmacen
                 End If
             End If
 
+            'VERIFICA SI TIENE PENDIENTE POR SURTIR
             If UsuarioActual.CveEmpresa = 140 AndAlso TipoMovimiento = 3 Then
-                If Not ObjCompras.UpdateEstatusAlmacen(CveCompraSurtir, 2, UsuarioActual.CveUsuario) Then
+                If ObjInventario.RecepcionAlmacenGet(CveCompraSurtir, -1, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
-                    ErrorMovInv = True
+                    Dim DtFaltante As DataTable = ObjInventario.DtResultados.FiltraParametros("CantidadF > 0")
+                    If DtFaltante.Rows.Count = 0 Then
+                        If Not ObjCompras.UpdateEstatusAlmacen(CveCompraSurtir, 2, UsuarioActual.CveUsuario) Then
+                            ErrorMovInv = True
+                        End If
+                    End If
+                    DtFaltante.Dispose()
                 End If
             End If
 

Inventarios/TraspasoAlmacen.aspx.vb

@@ -702,6 +702,12 @@ Partial Class Inventarios_TraspasoAlmacen
 
         End If
 
+        Dim RealizarMovimientoVirtual As Boolean = False
+
+        If UsuarioActual.Empresa.Funcionalidad(573) = "1" AndAlso TipoAlmacenOrigen.Contiene(1, 27) Then
+            RealizarMovimientoVirtual = True
+        End If
+
         'VALIDA ALMACEN DISTINTA SUCURSAL DEBE SER TRANSITORIO
         If Not UsuarioActual.CveEmpresa.Contiene(7, 140) Then '[IPP] EMPRESA VIGILANCIA NO OCUPA TRANSITORIOS - TIENEN MIL SUCURSALES Xd
             If Not ChkTransitorio.Checked Then
@@ -855,7 +861,7 @@ Partial Class Inventarios_TraspasoAlmacen
 
 
         'VIRTUAL SALIDA
-        If UsuarioActual.Empresa.Funcionalidad(573) = "1" Then
+        If RealizarMovimientoVirtual Then
 
             'Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {DdlAlmacenOrigen.SelectedValue}").ToEntero()
 
@@ -922,7 +928,7 @@ Partial Class Inventarios_TraspasoAlmacen
 
 
                 'VIRTUAL ENTRADA
-                If UsuarioActual.Empresa.Funcionalidad(573) = "1" Then
+                If RealizarMovimientoVirtual Then
                     'Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {DdlAlmacenDestino.SelectedValue}").ToEntero()
 
                     'SI EL ALMACEN DESTINO ES DE APOPYO LOGISTICO EL ALMACEN VIRTUAL DEBE SER DE APOYO LOGISTICO
@@ -1820,6 +1826,15 @@ Partial Class Inventarios_TraspasoAlmacen
             Dim CveAlmacenSalida As Integer = GvDatosRecepcion.Rows(0).DataKey("CveAlmacenSalida").ToEntero
 
             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 RealizarMovimientoVirtual As Boolean = False
+
+            If UsuarioActual.Empresa.Funcionalidad(573) = "1" AndAlso TipoAlmacenOrigen.Contiene(1, 27) Then
+                RealizarMovimientoVirtual = True
+            End If
+
 
             'AGREGAMOS LA SALIDA
             CveMovimientoSalida = ObjInventario.AddMovimiento(CveAlmacenSalida, 8, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1,
@@ -1902,7 +1917,7 @@ Partial Class Inventarios_TraspasoAlmacen
             'VIRTUAL ENTRADA
             Dim CveMovimientoVirtualEntrada As Integer = 0
             Dim FolioVirtualEntrada As Integer = 0
-            If UsuarioActual.Empresa.Funcionalidad(573) = "1" Then
+            If RealizarMovimientoVirtual Then
                 Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {DdlAlmacenRecepcion.SelectedValue}").ToEntero()
 
                 Dim CveAlmacenVirtual As Integer = -1