Merge branch 'master' of http://192.168.10.111:8383/SIG

Ventas/Ventas.aspx.vb

@@ -14323,7 +14323,7 @@ Partial Class Ventas
             End If
         End If
 
-        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso EsVentaMedica Then
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso EsVentaMedica AndAlso factura.TipoDocto.Contiene("Ped", "Rem") Then
             Dim CveClientesucursatTemp As Integer = DdlClienteSucursalSucursal()
             If CveClientesucursatTemp > 0 Then
 
@@ -14370,17 +14370,16 @@ Partial Class Ventas
             End If
         End If
 
-        Dim TotalImpuestoLocal As Double = 0
+        Dim TotalImpuestoLocal As Decimal = 0
         If GvImpuestosLocales2.Rows.Count > 0 Then
             For Each gvr As GridViewRow In GvImpuestosLocales2.Rows
                 If gvr.RowType = DataControlRowType.DataRow Then
-                    If gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble <> 0 Then
+                    If gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDecimal <> 0 Then
                         If gvr.DataKey("TipoImpuesto") = "5" Then ' cuando es traslado local 
-                            TotalImpuestoLocal -= gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble
+                            TotalImpuestoLocal -= gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDecimal
                         Else ' cuando es retención
-                            TotalImpuestoLocal += gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble
+                            TotalImpuestoLocal += gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDecimal
                         End If
-
                     End If
                 End If
             Next