tab de contratos E140

virtual

Ventas/Ventas.aspx.vb

@@ -2721,7 +2721,7 @@ Partial Class Ventas
                 ImgOtrosConceptos.Visible = False
                 TrFormaEntrega.Visible = False
                 TabDetalleVentas.Visible = False
-                TabE.Visible = False
+                'TabE.Visible = False
                 LnkOCs.Visible = False
                 GvPS.Columns(8).Visible = False
                 TrEdit.Visible = True
@@ -8310,7 +8310,7 @@ Partial Class Ventas
             If ObjFolios.GetFolios(TipoDoctoConsulta, UsuarioActual.CveEmpresa) Then
                 Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros(String.Format("  CveSubProyecto = {0}  And Estado = 'Activo'", DdlSubProyectoDatos.SelectedValue))
                 If DT.Rows.Count > 0 Then
-                    ObjFactura.Serie = DT.Rows(0)("Serie").ToString()
+                    ObjFacturaDevolucion.Serie = DT.Rows(0)("Serie").ToString()
                 End If
                 DT.Dispose()
             End If
@@ -8588,7 +8588,7 @@ Partial Class Ventas
             If ObjFolios.GetFolios(TipoDoctoConsulta, UsuarioActual.CveEmpresa) Then
                 Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros(String.Format("  CveSubProyecto = {0}  And Estado = 'Activo'", DdlSubProyectoDatos.SelectedValue))
                 If DT.Rows.Count > 0 Then
-                    ObjFactura.Serie = DT.Rows(0)("Serie").ToString()
+                    ObjFacturaBonificacion.Serie = DT.Rows(0)("Serie").ToString()
                 End If
                 DT.Dispose()
             End If
@@ -9677,7 +9677,7 @@ Partial Class Ventas
             If ObjFolios.GetFolios(TipoDoctoConsulta, UsuarioActual.CveEmpresa) Then
                 Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros(String.Format("  CveSubProyecto = {0}  And Estado = 'Activo'", DdlSubProyectoDatos.SelectedValue))
                 If DT.Rows.Count > 0 Then
-                    ObjFactura.Serie = DT.Rows(0)("Serie").ToString()
+                    ObjFacturaDevolucion.Serie = DT.Rows(0)("Serie").ToString()
                 End If
                 DT.Dispose()
             End If
@@ -16708,6 +16708,8 @@ Partial Class Ventas
         TmpDT.Columns.Add("TipoDescuento", GetType(Integer))
         TmpDT.Columns.Add("TotalImporte", GetType(Decimal))
         TmpDT.Columns.Add("Total", GetType(Decimal))
+        TmpDT.Columns.Add("RetIVA", GetType(Decimal))
+        TmpDT.Columns.Add("RetISR", GetType(Decimal))
         'Para uso del módulo contable
         TmpDT.Columns.Add("AsientoContableVentas", GetType(Integer))
         TmpDT.Columns.Add("IdCtaContVentas", GetType(Integer))
@@ -22438,6 +22440,42 @@ Partial Class Ventas
             If Not GeneraPrePolizaMovimientoAlmacen(ObjInventario, ObjConta, ObjContPaq, ObjFactura, ObjFactura.CvePrePoliza, CveMovimientoSalidaGeneral, CveAlmacenOrigenContrato) Then
                 Return False
             End If
+
+            Dim RealizarMovimientoVirtual As Boolean = False
+            If UsuarioActual.Empresa.Funcionalidad(573) = "1" Then
+                RealizarMovimientoVirtual = True
+            End If
+
+            'VIRTUAL SALIDA
+            If RealizarMovimientoVirtual Then
+
+                Dim dtvirtual As DataTable = Nothing
+                Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CveAlmacenOrigenContrato).FiltroPrimeroValor("CveAlmacenVirtual", "").ToEntero()
+                Dim CveMovimientoVirtualSalida As Integer
+
+                If ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoSalidaGeneral, UsuarioActual.CveEmpresa) Then
+
+                    dtvirtual = ObjInventario.DtResultados
+
+                    If dtvirtual.Rows.Count > 0 Then
+                        CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtual, 37, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:="", Modulo:="VV2", CveMovimientoRelacionado:=CveMovimientoSalidaGeneral)
+                        'FolioVirtualSalida = ObjInventario.Folio
+
+                        For Each RowVirtual As DataRow In dtvirtual.Rows
+                            Dim CvePS = RowVirtual("CvePS").ToString().ToEntero()
+                            Dim CantidadUsado As Double = RowVirtual("Cantidad").ToString().ToDouble()
+                            Dim PU As Decimal = RowVirtual("PU").ToString().ToDecimal()
+                            Dim CveUM As Integer = RowVirtual("CveUM").ToString().ToEntero()
+
+                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtualSalida, CantidadUsado, CveUM, CvePS, PU, -1, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+                                Return False
+                            End If
+                        Next
+                    End If
+                Else
+                    Return False
+                End If
+            End If
         Else
             Return False
         End If