From 21af6e1e0cd23c13864e226557ba53b0f87878c3 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 3 Dec 2024 08:05:16 -0700 Subject: [PATCH] -- mejora para sms --- Ventas/Ventas.aspx.vb | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 353e03685..86f7cca10 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -14319,7 +14319,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 @@ -14366,17 +14366,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