From 20d5bca010c0f26d069885230038006bad51e838 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 5 Jul 2022 08:08:20 -0700 Subject: [PATCH] addprepolizas --- AC/RegDevengadoIngresos.aspx.vb | 4 ++-- AC/RegRecaudado.aspx.vb | 4 ++-- Bancos/CreditosPagoMultiple.aspx.vb | 8 ++++---- Bancos/OtrosIE.aspx.vb | 2 +- 4 files changed, 9 insertions(+), 9 deletions(-) diff --git a/AC/RegDevengadoIngresos.aspx.vb b/AC/RegDevengadoIngresos.aspx.vb index ea4ca5fc8..dca7b8e99 100644 --- a/AC/RegDevengadoIngresos.aspx.vb +++ b/AC/RegDevengadoIngresos.aspx.vb @@ -190,8 +190,8 @@ Partial Class AC_RegDevengadoIngresos 'Detalles de PrePoliza If Not ErrorAC Then - If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDouble, "", 30, "", Now, 0, -1, CveIE) Then - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDouble, "", 4, "", Now, 0, -1, CveIE) Then + If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDecimal, TxtImporte.Text.ToDecimal, 30, "", "", -1, CveIE) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDecimal, TxtImporte.Text.ToDecimal, 4, "", "", -1, CveIE) Then ErrorAC = True End If Else diff --git a/AC/RegRecaudado.aspx.vb b/AC/RegRecaudado.aspx.vb index de95a10d1..85433e63e 100644 --- a/AC/RegRecaudado.aspx.vb +++ b/AC/RegRecaudado.aspx.vb @@ -165,8 +165,8 @@ Partial Class AC_RegRecaudado 'Detalles de PrePoliza If Not ErrorAC Then - If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDouble, "", 30, "", Fecha, 0, -1, CveIE, CveCliente:=CveCliente) Then - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDouble, "", 4, "", Fecha, 0, -1, CveIE, CveCliente:=CveCliente) Then + If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDecimal, TxtImporte.Text.ToDecimal, 30, "", "", 0, CveIE, CveCliente:=CveCliente) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtImporte.Text.ToDecimal, TxtImporte.Text.ToDecimal, 4, "", "", 0, CveIE, CveCliente:=CveCliente) Then ErrorAC = True End If Else diff --git a/Bancos/CreditosPagoMultiple.aspx.vb b/Bancos/CreditosPagoMultiple.aspx.vb index 55cf1b55f..973e2d3af 100644 --- a/Bancos/CreditosPagoMultiple.aspx.vb +++ b/Bancos/CreditosPagoMultiple.aspx.vb @@ -183,7 +183,7 @@ Partial Class Bancos_CreditosPagoMultiple Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click - Dim Total As Double = 0 + Dim Total As Decimal = 0 For Each gvr As GridViewRow In GvV.Rows If gvr.FCCheckBox("Chk").Checked Then Total += gvr.DataKey("Total").ToDouble @@ -205,7 +205,7 @@ Partial Class Bancos_CreditosPagoMultiple Dim CveConceptoContable As Integer = 30 Dim CveConceptoCompra As Integer = 48 ' Dim CveCreditoDetalle As Integer = -1 - Dim CIF As Double = 0 + Dim CIF As Decimal = 0 Dim CvePlantillaPoliza As Integer = 5 Dim TC As Double = 1.0 Dim Estatus As Integer = 2 @@ -260,8 +260,8 @@ Partial Class Bancos_CreditosPagoMultiple ObjIE.UpdateCreditosDetalle(Estatus, CveCreditoDetalle) - Dim IVA As Double = 0 ' TxtImporte.Text.ToDouble * HdnProvPorIVA.Value.ToDouble - If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, gvr.DataKey("Total").ToDouble - IVA - CIF, TxtObservaciones.Text, CveConceptoCompra, TxtObservaciones.Text, Now, 0, -1, CveIE, CveProveedor:=CveProveedor, CveCreditoDetalle:=CveCreditoDetalle) Then + Dim IVA As Decimal = 0 ' TxtImporte.Text.ToDouble * HdnProvPorIVA.Value.ToDouble + If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, gvr.DataKey("Total").ToDecimal - IVA - CIF, TxtObservaciones.Text, CveConceptoCompra, TxtObservaciones.Text, Now, 0, -1, CveIE, CveProveedor:=CveProveedor, CveCreditoDetalle:=CveCreditoDetalle) Then If IVA > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, IVA, TxtObservaciones.Text, 19, TxtObservaciones.Text, Now, 0, -1, CveIE, CveProveedor:=CveProveedor, CveCreditoDetalle:=CveCreditoDetalle) Then MsgError = "Detalle" End If diff --git a/Bancos/OtrosIE.aspx.vb b/Bancos/OtrosIE.aspx.vb index 7729de625..cb99507d6 100644 --- a/Bancos/OtrosIE.aspx.vb +++ b/Bancos/OtrosIE.aspx.vb @@ -354,7 +354,7 @@ Partial Class Bancos_OtrosIE If CvePrePoliza > 0 Then - Dim Importe As Double = 0 + Dim Importe As Decimal = 0 Dim TipoMovto As Boolean = False 'INSERTO LAS COMPRAS QUE VOY A PAGAR