@@ -841,7 +841,7 @@
-
+
@@ -974,67 +974,7 @@
- <%--
-
-
-
-
-
-
-
-
- | Cantidad |
- Limitar |
- Clave Interna |
- Producto/Servicio |
- U. M. |
- Precio Unitario |
- Total |
- Permite Avance |
-
- Comandos |
-
-
- |
-
-
-
- |
-
-
- |
-
-
-
- |
-
-
- |
-
- |
-
-
-
-
- |
- |
- |
-
-
- |
-
-
-
-
-
- --%>
+
@@ -1063,7 +1003,7 @@
-
+
@@ -1906,7 +1846,7 @@
-
+<%--
@@ -2027,7 +1967,7 @@
-
+ --%>
diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb
index 9cff21ef1..a6b9a134c 100644
--- a/Contratos/ContratoObra.aspx.vb
+++ b/Contratos/ContratoObra.aspx.vb
@@ -738,8 +738,8 @@ Partial Class Contratos_ContratoObra
TxtCorreoNotificacion.Text = ObjContratos.DtResultados.Rows(0)("CorreoNotificacionPedDev").ToString
DdlCliente.SelectedValueExist(ObjContratos.DtResultados.Rows(0)("CveCliente").ToString)
- If ObjContratos.CveProveedor > 0 Then
- TrProveedor.Visible = True
+ If ObjContratos.CveProveedor > 0 Then
+ ' TrProveedor.Visible = True
TrCliente.Visible = False
CargaContratista()
DdlContratista.SelectedValue = ObjContratos.CveProveedor.ToString
@@ -1621,6 +1621,7 @@ Partial Class Contratos_ContratoObra
End Sub
#Region "GV PRESUPUESTOS"
+
Protected Sub EstClick(sender As Object, e As System.EventArgs)
'Get the button that raised the event
Dim btn As CheckBox = DirectCast(sender, CheckBox)
@@ -2420,19 +2421,12 @@ Partial Class Contratos_ContratoObra
Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow)
-
-
-
-
Dim CveClasificacion As Integer = GvRow.DataKey("CveClasificacion").ToEntero
Dim CvePS As Integer = GvRow.DataKey("CvePS").ToEntero
Dim CodigoPS As String = GvRow.DataKey("CodigoPS")
Dim Clasificacion As String = GvRow.DataKey("Clasificacion")
Dim CveRubro As Integer = GvRow.DataKey("CveRubro").ToEntero
-
-
-
GvDatosVentasAvance.Visible = False
If CveRubro = 3 Then
@@ -3308,17 +3302,21 @@ Partial Class Contratos_ContratoObra
- Private Function GetPS(Opt As String, Valor As String) As String
+ Private Function GetPS(Opt As String, Valor As String) As String
+
Dim StrReturn As String = String.Empty
Dim CvePS As Integer = 0
+
CvePS = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePS", Opt & " = '" & Valor & "'").ToString.ToEntero
+
If CvePS > 0 Then
StrReturn = "True|" & CvePS.ToString
Else
-
StrReturn = "False|" & Valor & " en la fila " & NumRow & ", columna " & Opt
End If
+
Return StrReturn
+
End Function
Private Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click
@@ -4503,7 +4501,7 @@ Partial Class Contratos_ContratoObra
{
.ColumnHeaders = True,
.StartRow = 0,
- .NumberOfColumns = 4,
+ .NumberOfColumns = 5,
.NumberOfRows = worksheet.Rows.Count,
.Resolution = ColumnTypeResolution.AutoPreferStringCurrentCulture
})
@@ -4543,10 +4541,6 @@ Partial Class Contratos_ContratoObra
Dim ErrorProceso = False
-
-
-
-
Dim DTPS = New DataTable
DTPS.Columns.Add("CveContratoDetalle", GetType(Integer))
DTPS.Columns.Add("Cantidad", GetType(Double))
@@ -4584,21 +4578,65 @@ Partial Class Contratos_ContratoObra
Dim RowNoEncontrados As String = ""
If Not DTPresupuesto Is Nothing Then
+
For Each DrowPS As DataRow In DTPresupuesto.Rows
+ Dim CvePS As Integer = -1
+ Dim CveUM As Integer = -1
+ Dim StrArray() As String
- Dim StrArray() As String = GetPS("PS", DrowPS("Producto").ToString).Split("|"c)
- Dim CvePS As Integer
- Dim CveUM As Integer
+
+ StrArray = GetPS("Codigo", DrowPS("Codigo").ToString).Split("|"c)
If StrArray.Length > 0 Then
+
If CBool(StrArray(0)) = True Then
CvePS = StrArray(1).ToEntero
- Else
- RowNoEncontrados &= "Producto: " & StrArray(1) & "<\BR>"
+
End If
+
End If
+
+ If CvePS = -1 Then
+
+ StrArray = GetPS("PS", DrowPS("Producto").ToString).Split("|"c)
+
+ If StrArray.Length > 0 Then
+ If CBool(StrArray(0)) = True Then
+ CvePS = StrArray(1).ToEntero
+
+
+ End If
+ End If
+
+ If CvePS = -1 Then
+
+ Dim ObjPS As New ClsProductosServicios
+
+
+ Dim CveClasificacion As Integer = GlobalDTClasificaciones(CveEmpresa:=UsuarioActual.CveEmpresa).Rows(0)("CveClasificacion").ToString.ToEntero
+ Dim CveUnidadMedida As Integer = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $"UnidadMedida = '{ DrowPS("UnidadMedida").ToString}' OR Abreviatura = '{ DrowPS("UnidadMedida").ToString}'").ToString.ToEntero
+
+ If Not CveUnidadMedida > 0 Then
+ CveUnidadMedida = GlobalDTUnidadesMedida(CveEmpresa:=UsuarioActual.CveEmpresa).Rows(0)("CveUnidadMedida").ToString.ToEntero
+ End If
+
+ If ObjPS.AddPS(CveClasificacion, 1, CveUnidadMedida, DrowPS("Codigo").ToString.Trim, "", "", DrowPS("Producto").ToString, DrowPS("PU").ToString.ToDouble, -1, 0, False, 0, False, If(TipoCargaPresupuesto = EnumTipoCargaPresupuesto.Ventas, True, False),
+ UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, 1, CveTipoPS:=2, CveSATPS:=-1, CveMarca:=-1, CveTamaño:=-1, CveMedida:=-1, CveRinTamaño:=-1, CveModelo:=-1, Litraje:=-1, IEPSPorcentaje:=-1, CveClasificacion2:=-1, CveClasificacionDetalle:=-1) > 0 Then
+ CvePS = ObjPS.CvePS
+ Else
+ CvePS = -1
+ RowNoEncontrados &= "Producto: " & StrArray(1) & "<\BR>"
+ End If
+
+ ObjPS.Dispose()
+
+ End If
+
+ End If
+
+
If CvePS > 0 And DrowPS("Cantidad").ToString.ToDouble > 0 Then
CveUM = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $" UnidadMedida = '{ DrowPS("UnidadMedida").ToString.Trim }' OR Abreviatura = '{ DrowPS("UnidadMedida").ToString.Trim }'").ToEntero
diff --git a/Contratos/RepContratosObraAvances.aspx b/Contratos/RepContratosObraAvances.aspx
index 9762001bb..dc16ca9f5 100644
--- a/Contratos/RepContratosObraAvances.aspx
+++ b/Contratos/RepContratosObraAvances.aspx
@@ -277,7 +277,8 @@
-
+
+
diff --git a/Empresas/Grales/Formatos/RepAcercamientoProcesoDetalle.rdlc b/Empresas/Grales/Formatos/RepAcercamientoProcesoDetalle.rdlc
new file mode 100644
index 000000000..89056c983
--- /dev/null
+++ b/Empresas/Grales/Formatos/RepAcercamientoProcesoDetalle.rdlc
@@ -0,0 +1,1480 @@
+
+
+ 0
+
+
+
+ System.Data.DataSet
+ /* Local Connection */
+
+ 06ae5329-8ff5-42b5-b7f4-6d68e5186420
+
+
+
+
+
+ DsOC
+ /* Local Query */
+
+
+
+ Empresa
+ System.String
+
+
+ Vendedor
+ System.String
+
+
+ NombreAcercamiento
+ System.String
+
+
+ MedioCaptacion
+ System.String
+
+
+ EtapaProceso
+ System.String
+
+
+ ProbabilidadAcercamiento
+ System.String
+
+
+ Nombre
+ System.String
+
+
+ TelefonoOficina
+ System.String
+
+
+ Celular
+ System.String
+
+
+ FechaApertura
+ System.String
+
+
+ FechaCierre
+ System.String
+
+
+ PS
+ System.String
+
+
+ Prioridad
+ System.String
+
+
+ Importe
+ System.String
+
+
+ Comision
+ System.String
+
+
+
+ DsOC
+ C:\Users\Orlando Bojorquez\Documents\Visual Studio 2013\WebSites\WebSite1\App_Code\DsOC.xsd
+ DtOCDetalle
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ 2.8606cm
+
+
+ 2.67012cm
+
+
+ 2.72331cm
+
+
+ 1.9446cm
+
+
+ 1.98088cm
+
+
+ 2.41512cm
+
+
+ 2.36891cm
+
+
+ 1.5861cm
+
+
+ 1.64783cm
+
+
+ 1.62137cm
+
+
+ 1.59491cm
+
+
+ 1.62137cm
+
+
+ 1.48908cm
+
+
+ 1.57014cm
+
+
+
+
+ 0.89104cm
+
+
+
+
+ true
+ true
+
+
+
+
+ Prospecto
+
+
+
+
+
+
+ Textbox2
+
+
+ LightGrey
+ Middle
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Vendedor
+
+
+
+
+
+
+ Textbox4
+
+
+ LightGrey
+ Middle
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Nombre Acercamiento
+
+
+
+
+
+
+ Textbox6
+
+
+ LightGrey
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Medio Captación
+
+
+
+
+
+
+ Textbox10
+
+
+ LightGrey
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Etapa del Proceso
+
+
+
+
+
+
+ Textbox12
+
+
+ LightGrey
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Probabilidad Acercamiento
+
+
+
+
+
+
+ Textbox17
+
+
+ LightGrey
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Nombre del Contacto
+
+
+
+
+
+
+ Textbox14
+
+
+ LightGrey
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Telefono
+
+
+
+
+
+
+ Textbox21
+
+
+ LightGrey
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Celular
+
+
+
+
+
+
+ Textbox13
+
+
+ LightGrey
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Fecha Apertura
+
+
+
+
+
+
+ Textbox9
+
+
+ LightGrey
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Fecha Cierre
+
+
+
+
+
+
+ Textbox7
+
+
+ LightGrey
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Prioridad
+
+
+
+
+
+
+ Textbox18
+
+
+ LightGrey
+ Middle
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Importe
+
+
+
+
+
+
+ Textbox20
+
+
+ LightGrey
+ Middle
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Comision
+
+
+
+
+
+
+ Textbox23
+
+
+ LightGrey
+ Middle
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 0.6cm
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Empresa.Value
+
+
+
+
+
+
+ Empresa
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Vendedor.Value
+
+
+
+
+
+
+ Vendedor
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!NombreAcercamiento.Value
+
+
+
+
+
+
+ NombreAcercamiento
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!MedioCaptacion.Value
+
+
+
+
+
+
+ MedioCaptacion
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!EtapaProceso.Value
+
+
+
+
+
+
+ EtapaProceso
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!ProbabilidadAcercamiento.Value
+
+
+
+
+
+
+ ProbabilidadAcercamiento
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Nombre.Value
+
+
+
+
+
+
+ Nombre
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!TelefonoOficina.Value
+
+
+
+
+
+
+ TelefonoOficina
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Celular.Value
+
+
+
+
+
+
+ Celular
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =FormatDateTime(CDate(Fields!FechaApertura.Value), DateFormat.ShortDate)
+
+
+
+
+
+
+ FechaApertura
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =IIf(CStr(Fields!FechaCierre.Value) = "", "", FormatDateTime(CDate(Fields!FechaCierre.Value), DateFormat.ShortDate) )
+
+
+
+
+
+
+ FechaCierre
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Switch(CInt(Fields!Prioridad.Value) = 1, "Baja", CInt(Fields!Prioridad.Value) = 2, "Media", CInt(Fields!Prioridad.Value) = 3, "Alta")
+
+
+
+
+
+
+ Prioridad
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =CDbl(Fields!Importe.Value)
+
+
+
+
+
+
+ Importe
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+ es-MX
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =CDbl(Fields!Comision.Value)
+
+
+
+
+
+
+ Comision
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+ es-MX
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ DataSet1
+ 0.07056cm
+ 0.05123cm
+ 1.49104cm
+ 28.09434cm
+
+
+
+
+
+ 1.85662cm
+
+
+ 28.14556cm
+
+
+ 3.57188cm
+ true
+ true
+
+
+ true
+ true
+
+
+
+
+ Reporte Detalle de los Acercamientos Procesos
+
+
+
+
+
+
+ Textbox4
+ 0.02444in
+ 0.29332cm
+ 0.96167in
+ 10.96545in
+
+
+ Middle
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ =Parameters!NombreEmpresa.Value
+
+
+
+
+
+
+ Textbox1
+ 1.90472cm
+ 0.29332cm
+ 0.6cm
+ 27.85224cm
+ 1
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ =Parameters!Filtros.Value
+ HTML
+
+
+
+
+
+
+ Textbox1
+ 2.79549cm
+ 0.29331cm
+ 0.6cm
+ 27.85226cm
+ 2
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+
+ 0.79313cm
+ true
+ true
+
+
+ true
+ true
+
+
+
+
+ Usuario:
+
+
+
+ =Parameters!UsuarioImprimio.Value
+
+
+
+
+
+
+ 0.21167cm
+ 0.29332cm
+ 0.41981cm
+ 7.93256cm
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ Fecha Impresión:
+
+
+
+ =Parameters!FechaImprimio.Value
+
+
+
+
+
+
+ Textbox31
+ 0.21167cm
+ 12.82081cm
+ 0.41981cm
+ 7.03101cm
+ 1
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+ =Globals!PageNumber
+
+
+
+ de
+
+
+
+ =Globals!TotalPages
+
+
+
+
+
+
+ Textbox31
+ 0.17639cm
+ 24.58575cm
+ 0.41981cm
+ 3.55982cm
+ 2
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 21cm
+ 29.7cm
+ 0.5cm
+ 0.5cm
+ 0cm
+ 0cm
+ 1.27cm
+
+
+
+
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ Cm
+ ce050101-4530-4332-90ec-6ac094336e40
+
\ No newline at end of file
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index e6e103354..13903b76f 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -2177,8 +2177,10 @@ Partial Class Inventarios_EntradasSalidas
End If
- If UsuarioActual.CveUsuario.Contiene(2185, 100) And DdlAlmacen.SelectedValue.ToEntero.Contiene(651, 658) Then
+ If UsuarioActual.CveUsuario.Contiene(2185, 100) Then
DdlConcepto.Items.Add(New ListItem("Entrada por Ajuste", "32"))
+ DdlConcepto.Items.Add(New ListItem("Salida por Ajuste", "34"))
+
End If
@@ -4658,7 +4660,7 @@ Partial Class Inventarios_EntradasSalidas
CveUM = DrPS("CveUnidadMedida").ToString().ToEntero()
UM = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimeroValor("UnidadMedida", $"CveUnidadMedida={CveUM}")
End If
- AddNew(CvePS, ProductoServicio, CveUM, UM, Cantidad, PrecioUnitario, Serie.Replace(" ", String.Empty), "", "-1", "-1", "",
+ AddNew(CvePS, ProductoServicio, CveUM, UM, Cantidad, PrecioUnitario, Serie.Replace(" ", String.Empty), "", Codigo, "-1", "",
Lote, Caducidad.ToDate, CveSeccionAlmacen, SeccionAlmacen, CargarGV:=False)
NumAgregados = NumAgregados + 1
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index 78a0390c4..d7347f05c 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -568,6 +568,7 @@ Partial Class OC
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+
If Not Page.IsPostBack Then
CargaDatosAgregarPS()
diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index fc2aa4147..982827aa5 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -671,14 +671,16 @@ Partial Class Ventas_ClientesAbonar
Dim AnioDocumento As Integer = FechaDocumento.Year
Dim MesDocumento As Integer = FechaDocumento.Month
- If AnioFactura > AnioDocumento Then
- FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") }
")
- ValFechaDocumento = True
- ElseIf AnioFactura = AnioDocumento And MesFactura > MesDocumento Then
- FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") }
")
- ValFechaDocumento = True
- End If
+ If UsuarioActual.Empresa.UsaAC = False Then
+ If AnioFactura > AnioDocumento Then
+ FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") }
")
+ ValFechaDocumento = True
+ ElseIf AnioFactura = AnioDocumento And MesFactura > MesDocumento Then
+ FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") }
")
+ ValFechaDocumento = True
+ End If
+ End If
End If
Next
@@ -973,8 +975,8 @@ Partial Class Ventas_ClientesAbonar
ImporteMovimiento = gvr.DataKey("RetIVA").ToDecimal * PorcentajePago
importeMX = ImporteMovimiento * tipoCambioVenta
End If
- ImporteMovimiento = Math.Round(ImporteMovimiento, 2, MidpointRounding.AwayFromZero)
- importeMX = Math.Round(importeMX, 2, MidpointRounding.AwayFromZero)
+ ImporteMovimiento = ImporteMovimiento.RoundSQL
+ importeMX = importeMX.RoundSQL
TipoCambioGeneral = tipoCambioVenta
CveSubProyectoContabilizar = CveSubProyecto
@@ -1020,8 +1022,8 @@ Partial Class Ventas_ClientesAbonar
ImporteMovimiento = gvr.DataKey("RetIVA").ToDecimal * PorcentajePago
importeMX = ImporteMovimiento * tipoCambioVenta
End If
- ImporteMovimiento = Math.Round(ImporteMovimiento, 2, MidpointRounding.AwayFromZero)
- importeMX = Math.Round(importeMX, 2, MidpointRounding.AwayFromZero)
+ ImporteMovimiento = ImporteMovimiento.RoundSQL
+ importeMX = importeMX.RoundSQL
TipoCambioGeneral = tipoCambioVenta
CveSubProyectoContabilizar = CveSubProyecto
@@ -1055,8 +1057,8 @@ Partial Class Ventas_ClientesAbonar
ImporteMovimiento = gvr.DataKey("RetISR").ToDecimal * PorcentajePago
importeMX = ImporteMovimiento * tipoCambioVenta
End If
- ImporteMovimiento = Math.Round(ImporteMovimiento, 2, MidpointRounding.AwayFromZero)
- importeMX = Math.Round(importeMX, 2, MidpointRounding.AwayFromZero)
+ ImporteMovimiento = ImporteMovimiento.RoundSQL
+ importeMX = importeMX.RoundSQL
TipoCambioGeneral = tipoCambioVenta
CveSubProyectoContabilizar = CveSubProyecto
@@ -1137,8 +1139,8 @@ Partial Class Ventas_ClientesAbonar
ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
End If
- ImporteMovimiento = Math.Round(ImporteMovimiento, 2, MidpointRounding.AwayFromZero)
- importeMX = Math.Round(importeMX, 2, MidpointRounding.AwayFromZero)
+ ImporteMovimiento = ImporteMovimiento.RoundSQL
+ importeMX = importeMX.RoundSQL
TipoCambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
CveSubProyectoContabilizar = CveSubProyecto
@@ -1185,8 +1187,8 @@ Partial Class Ventas_ClientesAbonar
ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
End If
- ImporteMovimiento = Math.Round(ImporteMovimiento, 2, MidpointRounding.AwayFromZero)
- importeMX = Math.Round(importeMX, 2, MidpointRounding.AwayFromZero)
+ ImporteMovimiento = ImporteMovimiento.RoundSQL
+ importeMX = importeMX.RoundSQL
TipoCambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
CveSubProyectoContabilizar = CveSubProyecto
@@ -1220,8 +1222,8 @@ Partial Class Ventas_ClientesAbonar
ImporteMovimiento = (gvr.DataKey("RetISR").ToDecimal * PorcentajePago)
importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
End If
- ImporteMovimiento = Math.Round(ImporteMovimiento, 2, MidpointRounding.AwayFromZero)
- importeMX = Math.Round(importeMX, 2, MidpointRounding.AwayFromZero)
+ ImporteMovimiento = ImporteMovimiento.RoundSQL
+ importeMX = importeMX.RoundSQL
TipoCambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
CveSubProyectoContabilizar = CveSubProyecto
@@ -1484,8 +1486,8 @@ Partial Class Ventas_ClientesAbonar
TipoMovimiento = True
End If
- ImporteMovimiento = Math.Round(ImporteMovimiento, 2, MidpointRounding.AwayFromZero)
- importeMX = Math.Round(importeMX, 2)
+ ImporteMovimiento = ImporteMovimiento.RoundSQL
+ importeMX = importeMX.RoundSQL
TipoCambioGeneral = tipoCambioPago
CveSubProyectoContabilizar = CveSubProyecto
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 82cf85254..c5318d7f2 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -16898,7 +16898,7 @@ Partial Class Ventas
End If
- TotalCalculableImpuestos = (Cantidad * (PU)) - Descuento
+ TotalCalculableImpuestos = ((Cantidad * (PU)) - Descuento).RoundSQL
TotalCalculableImpuestosIVA = TotalCalculableImpuestos * (1 + DrPS("IEPSPorcentaje").ToString().ToDecimal)
Row("PU") = PU
@@ -16968,7 +16968,7 @@ Partial Class Ventas
Row("Descuento") = (Descuento).RoundSQL(NumeroDecimales)
Row("TipoDescuento") = HdnTipoDescuento.Value
Row("CvePromocionDetalle") = CvePromocionDetalle
- Row("Total") = (Cantidad * PU)
+ Row("Total") = (Cantidad * PU).RoundSQL(NumeroDecimales)
Row("TotalImporte") = (Cantidad * PU).RoundSQL(NumeroDecimales)
'Row("AsientoContableVentas") = DrPS("AsientoContableVentas")
@@ -17089,7 +17089,7 @@ Partial Class Ventas
End If
PU = PU.RoundSQL(6)
DrPoliza("PU") = PU
- TotalCalculableImpuestos = (DrPoliza("Cantidad").ToString().ToDecimal * (PU))
+ TotalCalculableImpuestos = (DrPoliza("Cantidad").ToString().ToDecimal * (PU)).RoundSQL
If DrPSAdicional("IVA").ToString().Contiene("-1", "") Then
DrPoliza("PorcentajeIVA") = PorcentajeIVA
@@ -17107,7 +17107,7 @@ Partial Class Ventas
DrPoliza("IEPS") = DrPoliza("ImporteIEPS")
DrPoliza("Descuento") = 0 ' Descuento
DrPoliza("TipoDescuento") = HdnTipoDescuento.Value
- DrPoliza("Total") = (DrPoliza("Cantidad").ToString().ToDecimal * PU)
+ DrPoliza("Total") = (DrPoliza("Cantidad").ToString().ToDecimal * PU).RoundSQL(NumeroDecimales)
DrPoliza("TotalImporte") = (DrPoliza("Cantidad").ToString().ToDecimal * PU).RoundSQL(NumeroDecimales)
DrPoliza("SATClaveProdServ") = DrPSAdicional("SATClavePS")
DrPoliza("SATClaveUM") = DrPSAdicional("SATClaveUnidadMedida")