BDH.Correcion de importes de virtuales en traspasos

Inventarios/TraspasoAlmacen.aspx.vb

@@ -1639,7 +1639,7 @@ Partial Class Inventarios_TraspasoAlmacen
                 ErrorMovInv = True
             Else
                 Dim CveMovimientoDetalleSalida As Integer = 0
-                Dim importe As Double = 0
+                'Dim importe As Double = 0
 
                 For Each GvRow As GridViewRow In GvDatosRecepcion.Rows
                     If GvRow.RowType = DataControlRowType.DataRow Then
@@ -1675,7 +1675,7 @@ Partial Class Inventarios_TraspasoAlmacen
                                 End If
                             End If
 
-                            importe += Cantidad * PrecioUnitario
+                            'importe += Cantidad * PrecioUnitario
                         End If
                     End If
                 Next
@@ -1700,15 +1700,15 @@ Partial Class Inventarios_TraspasoAlmacen
                     If CveAlmacenVirtual > 0 And CveAlmacenVirtualSalida > 0 Then
 
                         Dim dtvirtual As DataTable = Nothing
-                        Dim importePoliza As Decimal = 0
+                        'Dim importePoliza As Decimal = 0
 
                         If ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoEntrada, UsuarioActual.CveEmpresa, CveMovimientoRelacionado:=CveMovimientoSalida) Then
                             dtvirtual = ObjInventario.DtResultados
                             If dtvirtual.Rows.Count > 0 Then
 
-                                CveMovimientoVirtualEntrada = ObjInventario.AddMovimiento(CveAlmacenVirtual, 36, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservacionesRecepcion.Text.Trim, CveMovimientoRelacionado:=CveMovimientoEntrada, Modulo:="TA/C2")
+                                CveMovimientoVirtualEntrada = ObjInventario.AddMovimiento(CveAlmacenVirtual, 36, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservacionesRecepcion.Text.Trim, CveMovimientoRelacionado:=CveMovimientoEntrada, MovimientoFijo:=True, Modulo:="TA/C2")
 
-                                CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtualSalida, 37, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservacionesRecepcion.Text.Trim, CveMovimientoRelacionado:=CveMovimientoSalidaTransitorio, Modulo:="TA/C3")
+                                CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtualSalida, 37, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservacionesRecepcion.Text.Trim, CveMovimientoRelacionado:=CveMovimientoSalidaTransitorio, MovimientoFijo:=True, Modulo:="TA/C3")
 
                                 FolioVirtualEntrada = ObjInventario.Folio
 
@@ -1720,7 +1720,7 @@ Partial Class Inventarios_TraspasoAlmacen
                                     Dim CostoIndirecto As Decimal = RowVirtual("CostoIndirecto").ToString().ToDecimal()
 
 
-                                    importePoliza = importePoliza + (CantidadUsado * PU)
+                                    'importePoliza = importePoliza + (CantidadUsado * PU)
 
                                     If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtualEntrada, CantidadUsado, CveUM, CvePS, PU, -1, CostoIndirecto:=CostoIndirecto, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                                         ErrorMovInv = True
@@ -1743,6 +1743,11 @@ Partial Class Inventarios_TraspasoAlmacen
 
                         If Not ErrorMovInv AndAlso (CveMovimientoSalida > 0 And CveMovimientoVirtualEntrada > 0) Then
 
+                            Dim importePoliza As Decimal = 0
+                            If ObjInventario.GetMovimientosDetalle(CveMovimientoVirtualEntrada, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
+                                importePoliza = ObjInventario.DtResultados.SUMD("Total").RoundSQL
+                            End If
+
                             Dim CvePrePolizaMovVirtual As Integer = ObjConta.AddPrePolizas("TA/C2|TA/C3", 53, importePoliza, importePoliza, 1, TxtFecha.Text.ToDate, "TA/C2|TA/C3", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
                             If CvePrePolizaMovVirtual > 0 Then
                                 If Not ErrorMovInv AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePolizaMovVirtual, True, importePoliza, importePoliza, 68, TxtObservacionesRecepcion.Text, TxtObservacionesRecepcion.Text, -1, -1, CveMovimientoAlmacen:=CveMovimientoVirtualSalida, Contabilizable:=False) Then
@@ -1770,7 +1775,11 @@ Partial Class Inventarios_TraspasoAlmacen
                 End If
 
                 If Not ErrorMovInv Then
-                    Dim ImporteDecimal As Decimal = importe.ToDecimal.RoundAD
+                    Dim ImporteDecimal As Decimal = 0
+                    If ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
+                        ImporteDecimal = ObjInventario.DtResultados.SUMD("Total").RoundSQL
+                    End If
+
                     Dim IdCtaContable As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", DdlAlmacenTransitorioRecepcion.SelectedValue.ToEntero)).ToEntero
 
                     If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteDecimal, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1,
@@ -3354,28 +3363,28 @@ Partial Class Inventarios_TraspasoAlmacen
         Return Respuesta
     End Function
 
-    Private Sub CargaDireccionesEnvio()
-        Dim ObjClientes As New ClsClientes
-        Dim TieneError = False
+    'Private Sub CargaDireccionesEnvio()
+    '    Dim ObjClientes As New ClsClientes
+    '    Dim TieneError = False
 
-        DdlDireccionEnvio.Items.Clear()
-        If ObjClientes.DireccionEnvioGet(-1, CveCliente, -1) Then
-            DdlDireccionEnvio.DataSource = ObjClientes.DtResultados.FiltraParametros(String.Format("Estatus = 1"))
-            DdlDireccionEnvio.DataBind()
-            'DdlDireccionEnvio.Items.Insert(0, New ListItem("Seleccione", "-1"))
-            TmpDTEnvioDireccion = ObjClientes.DtResultados
-        Else
-            TieneError = True
-        End If
+    '    DdlDireccionEnvio.Items.Clear()
+    '    If ObjClientes.DireccionEnvioGet(-1, CveCliente, -1) Then
+    '        DdlDireccionEnvio.DataSource = ObjClientes.DtResultados.FiltraParametros(String.Format("Estatus = 1"))
+    '        DdlDireccionEnvio.DataBind()
+    '        'DdlDireccionEnvio.Items.Insert(0, New ListItem("Seleccione", "-1"))
+    '        TmpDTEnvioDireccion = ObjClientes.DtResultados
+    '    Else
+    '        TieneError = True
+    '    End If
 
-        If TieneError Then
-            Alert("Ocurrió un error al obtener las direcciones de envío", TipoMensaje.MsgError)
-        End If
+    '    If TieneError Then
+    '        Alert("Ocurrió un error al obtener las direcciones de envío", TipoMensaje.MsgError)
+    '    End If
 
-        ObjClientes.Dispose()
-        UpCliente.Update()
+    '    ObjClientes.Dispose()
+    '    UpCliente.Update()
 
-    End Sub
+    'End Sub
 
 #End Region
 End Class