BDH: Revision de servicio a domicilio

Ventas/Ventas.aspx.vb

@@ -4012,6 +4012,10 @@ Partial Class Ventas
                         End If
                     End If
 
+                    If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CBool(DbRowVenta("ServicioDomicilio")) Then
+                        TrServicioDomicilio.Visible = True
+                    End If
+
                     'CargaDetalle
                     If ObjVentas.GetVentaDetalle(CveVenta) Then
                         TmpDT = ObjVentas.DtResultados
@@ -12976,8 +12980,10 @@ Partial Class Ventas
                                 Dim tmpCostos As DataTable = DtCostos.FiltraParametros("", "", {"CveClasificacion"})
                                 Dim IdCtaContable As Integer = 0
                                 Dim CveCuenta As Integer = 0
+                                Dim TotalCostoAcumulado As Decimal = 0
+
                                 If tmpCostos.Rows.Count > 0 Then
-                                    Dim TotalCostoAcumulado As Decimal = 0
+
                                     Dim cont As Integer = 1
                                     'Se agrega movimiento separado por la cuenta de ventas (ER)
                                     For Each RowInv As DataRow In tmpCostos.Rows
@@ -12995,12 +13001,18 @@ Partial Class Ventas
                                         'If ValorInventario <> 0 Then
 
                                         If Not ObjConta.AddPrePolizasDetalle(factura.CvePrePoliza, TipoMovto69, ValorInventario, factura.SerieFolio, 69, factura.SerieFolio, factura.Fecha, IdCtaContable, -1, CveVenta:=factura.CveVenta, CveCliente:=factura.CveCliente, CveSubProyecto:=factura.CveSubProyecto, CveClasificacion:=RowInv("CveClasificacion").ToString().ToEntero(), CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=ValorInventario, CveCuenta:=CveCuenta) Then
-                                                OcurrioError = True
-                                            End If
+                                            OcurrioError = True
+                                        End If
                                         'End If
                                         cont += 1
                                     Next
                                 End If
+
+                                'AJUSTA EL TOTAL
+                                If Math.Abs(TotalCostoAcumulado - TotalCosto) = 0.01 Then
+                                    TotalCosto = TotalCostoAcumulado
+                                End If
+
                                 IdCtaContable = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", CveAlmacen)).ToEntero()
 
                                 'If TotalCosto <> 0 Then
@@ -23186,7 +23198,7 @@ Partial Class Ventas
         Dim ObjBancos As New ClsBancos
 
         If UsuarioActual.CveRol = 1 Then
-            GvComplementoPagos.Columns(8).Visible = True
+            GvComplementoPagos.Columns(7).Visible = True
 
         End If