AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cambios de extensiones .SUM de double a decimal

Browse Source
This commit is contained in:
rrene
2023-11-12 21:21:50 -07:00
parent 7ab88313cb
commit 053512112c
57 changed files with 747 additions and 811 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
Compras/PopUpVerFactura.aspx.vb
View File

@@ -3447,7 +3447,7 @@ Partial Class PopUpVerFactura
If CveTipoAlmacenRelacionado.Contiene(24, 25) Then
If ObjInventarios.GetMovimientosDetalle(CveMovimientoRelacionado, UsuarioActual.CveEmpresa) Then
Dim DtUsados As DataTable = ObjInventarios.DtResultados.Copy()
CantidadUsados = DtUsados.SUM("Cantidad").ToDecimal()
CantidadUsados = DtUsados.SUM("Cantidad")
Dim IndexInicialUsados As Integer = DtMovimientos.Rows.Count + 1
For Each Dr As DataRow In DtUsados.Rows
@@ -3474,7 +3474,7 @@ Partial Class PopUpVerFactura
If ObjInventarios.GetMovimientosTransitorios(CveAlmacenRecepcion, -1, CveAlmacenTransitorioRecepcion, -1, FolioBusquedaTrasitorio, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
DtMovimientos = ObjInventarios.DtResultados.FiltraParametros(String.Format("CveTipoAlmacenDestino <> 4 AND CvePS > 0"))
CantidadProductos = DtMovimientos.SUM("Cantidad").ToDecimal()
CantidadProductos = DtMovimientos.SUM("Cantidad")
If Not DtMovimientos.Columns.Contains("No") Then
DtMovimientos.Columns.Add("No", GetType(Integer))
@@ -3490,7 +3490,7 @@ Partial Class PopUpVerFactura
Else
If ObjInventarios.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa, Resumen:=Resumen) Then
DtMovimientos = ObjInventarios.DtResultados.Copy()
CantidadProductos = DtMovimientos.SUM("Cantidad").ToDecimal()
CantidadProductos = DtMovimientos.SUM("Cantidad")
If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CveMovimientoRelacionado > 0 Then
If ObjInventarios.GetMovimientos(CveMovimientoRelacionado, -1, -1, UsuarioActual.CveEmpresa) Then
Dim CveAlmacenRelacionado As Integer = ObjInventarios.CveAlmacen
@@ -3500,7 +3500,7 @@ Partial Class PopUpVerFactura
If CveTipoAlmacenRelacionado.Contiene(24, 25) Then
If ObjInventarios.GetMovimientosDetalle(CveMovimientoRelacionado, UsuarioActual.CveEmpresa) Then
Dim DtUsados As DataTable = ObjInventarios.DtResultados.Copy()
CantidadUsados = DtUsados.SUM("Cantidad").ToDecimal()
CantidadUsados = DtUsados.SUM("Cantidad")
Dim IndexInicialUsados As Integer = DtMovimientos.Rows.Count + 1
For Each Dr As DataRow In DtUsados.Rows
@@ -3686,7 +3686,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("RFCProveedor", If(CveCompra > 0, dr("RFC").ToString, "")))
params.Add(New ReportParameter("TelefonoProveedor", If(CveCompra > 0, dr("Telefono").ToString, "")))
params.Add(New ReportParameter("ContactoProveedor", If(CveCompra > 0, dr("ContactoNombre").ToString, "")))
params.Add(New ReportParameter("ImporteLetra", String.Format("({0})", DtMovimientos.SUM("Total").ToString.ToDouble.Texto2Letras(CveMoneda).ToUpper)))
params.Add(New ReportParameter("ImporteLetra", String.Format("({0})", DtMovimientos.SUM("Total").ToString.ToDecimal.Texto2Letras(CveMoneda).ToUpper)))
params.Add(New ReportParameter("SubTotal", If(CveCompra > 0, (dr("SubTotal").ToString.ToDouble).FormatoNumero, "")))
params.Add(New ReportParameter("Descuentos", If(CveCompra > 0, (dr("Descuentos").ToString.ToDouble).FormatoNumero(2), "")))
params.Add(New ReportParameter("IVA", If(CveCompra > 0, (dr("IVA").ToString.ToDouble).FormatoNumero, "")))
@@ -3745,7 +3745,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Descuentos", If(CveCompra > 0, (dr("Descuentos").ToString.ToDouble).FormatoNumero(2), "")))
params.Add(New ReportParameter("IVA", If(CveCompra > 0, dr("IVA").ToString.FormatoNumero(2), "")))
params.Add(New ReportParameter("Total", If(CveCompra > 0, dr("Total").ToString.FormatoNumero(2), "")))
params.Add(New ReportParameter("TotalLetra", If(CveCompra > 0, String.Format("({0})", dr("Total").ToString.ToDouble.Texto2Letras(dr("CveMoneda").ToString.ToEntero).ToUpper), "")))
params.Add(New ReportParameter("TotalLetra", If(CveCompra > 0, String.Format("({0})", dr("Total").ToString.ToDecimal.Texto2Letras(dr("CveMoneda").ToString.ToEntero).ToUpper), "")))
params.Add(New ReportParameter("Observaciones", If(CveCompra > 0, dr("Observaciones").ToString, "")))
params.Add(New ReportParameter("Capturo", If(CveCompra > 0, dr("NombreCapturo").ToString, "")))
@@ -4550,7 +4550,7 @@ Partial Class PopUpVerFactura
'ObjInventarios.Dispose()
Dim UrlParametros As Hashtable = Parametros(Decripta((Request("P").ToString)))
If ObjInventarios.GetMovimientosDetalle(UrlParametros("CVEMOVIMIENTO").ToString.ToEntero, UsuarioActual.CveEmpresa) Then
Dim TotalFinal As Double = ObjInventarios.DtResultados.SUM("Total") * 1.16
Dim TotalFinal As Decimal = ObjInventarios.DtResultados.SUM("Total") * 1.16D
Dim dr As DataRow = ObjInventarios.DtResultados.Rows(0)
'params.Add(New ReportParameter("IVA", dr("IVA").ToString))
params.Add(New ReportParameter("TotalLetra", String.Format("({0})", TotalFinal.Texto2Letras().ToUpper)))
@@ -4612,7 +4612,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Descuentos", (dr("Descuentos").ToString.ToDouble).FormatoNumero(2)))
params.Add(New ReportParameter("IVA", dr("IVA").ToString.FormatoNumero(2)))
params.Add(New ReportParameter("Total", dr("Total").ToString.FormatoNumero(2)))
params.Add(New ReportParameter("TotalLetra", String.Format("({0})", dr("Total").ToString.ToDouble.Texto2Letras(dr("CveMoneda").ToString.ToEntero).ToUpper)))
params.Add(New ReportParameter("TotalLetra", String.Format("({0})", dr("Total").ToString.ToDecimal.Texto2Letras(dr("CveMoneda").ToString.ToEntero).ToUpper)))
params.Add(New ReportParameter("Observaciones", dr("Observaciones").ToString))
params.Add(New ReportParameter("Capturo", dr("NombreCapturo").ToString))
@@ -6011,7 +6011,7 @@ Partial Class PopUpVerFactura
If CveTipoTransaccion = 1 Then
Dim Folio As String = ObjIE.Folio
Dim Importe As Double = ObjIE.Importe
Dim Importe As Decimal = ObjIE.Importe
Dim Observacion As String = ObjIE.Observaciones
Dim ImporteLetra As String = String.Format("--- {0} ---", Importe.Texto2Letras(ObjIE.CveMoneda))
Dim Beneficiario As String = ObjIE.PagueseA
@@ -6106,7 +6106,7 @@ Partial Class PopUpVerFactura
Dim Folio, Observacion, UsuarioRegistro, TextoImporte, PagueseA, Ruta, Banco, NumCuenta, AbonoCuenta, SubProyecto, NotificarA, RefCrediproveedor As String
Dim FechaExpedicion As Date = NowADS()
Dim Importe As Double
Dim Importe As Decimal
Dim FormatoCheque As String = ""
Dim CveProveedor, CvePersonal, CveCuentaDeposito As Integer
@@ -6219,7 +6219,7 @@ Partial Class PopUpVerFactura
Dim Folio As String = "", Observacion As String = "", UsuarioRegistro As String = "", TextoImporte As String = "", PagueseA As String = ""
Dim Ruta As String = UsuarioActual.Empresa.Ruta
Dim FechaExpedicion As Date = NowADS()
Dim Importe As Double
Dim Importe As Decimal
Dim FormatoCheque As String = ""
DtDetalle = Nothing
@@ -6449,9 +6449,9 @@ Partial Class PopUpVerFactura
Reporte.Dictionary.Variables("DomicilioExpedicion").Value = Venta.SubProyecto.Direccion
Dim SubtTotal As Double = (Venta.DtDetalle.SUM("PU") * Venta.DtDetalle.SUM("Cantidad")) '* 0.16 lleva el IVA?
Dim IVA As Double = SubtTotal * 0.16 'lleva IVA?
Dim Total As Double = SubtTotal + IVA
Dim SubtTotal As Decimal = (Venta.DtDetalle.SUM("PU") * Venta.DtDetalle.SUM("Cantidad")) '* 0.16 lleva el IVA?
Dim IVA As Decimal = SubtTotal * 0.16D 'lleva IVA?
Dim Total As Decimal = SubtTotal + IVA
'Reporte.Dictionary.Variables("Importe").Value =
Reporte.Dictionary.Variables("ImporteLetra").Value = Total.Texto2Letras()