diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb
index 6d65cb6d8..8884ffc0f 100644
--- a/Bancos/PopIEVentas.aspx.vb
+++ b/Bancos/PopIEVentas.aspx.vb
@@ -1392,8 +1392,8 @@ Partial Class Bancos_PopIEVentas
End If
Dim MsgError As String = ""
- Dim CveConcepto As Integer = -1
- Dim CveConcepto2 As Integer = -1
+ Dim CveConceptoPrePoliza As Integer = -1
+ Dim CveConceptoPrePoliza2 As Integer = -1
Dim CvePersonal As Integer = -1
Dim Inserta As Boolean = True
Dim ImportePagado As Decimal = 0
@@ -1412,7 +1412,7 @@ Partial Class Bancos_PopIEVentas
Case "2" 'FyE
ImportePagado = TxtImporte.Text.Trim.ToDecimal
Fecha = TxtFechaDocumento.Text.Trim.ToDate
- CveConcepto = 29
+ CveConceptoPrePoliza = 29
CveIE = -1
TipoMovimiento = True
Dim stringPersonal As String = DdlFuncionarioEmpleado.SelectedItem.ToString
@@ -1421,8 +1421,8 @@ Partial Class Bancos_PopIEVentas
ImportePagado = TxtImporte.Text.Trim.ToDecimal
Case "4" 'Deudores Diversos
ImportePagado = TxtImporte.Text.Trim.ToDecimal
- CveConcepto = 17
- CveConcepto2 = 37
+ CveConceptoPrePoliza = 17
+ CveConceptoPrePoliza2 = 37
CveIE = -1
Case "5" 'Compras
ImportePagado = TxtImporte.Text.Trim.ToDecimal
@@ -1526,7 +1526,7 @@ Partial Class Bancos_PopIEVentas
CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, Fecha, TxtFolio.Text.Trim, TxtPagueseA.Text.Trim, ImportePagado, CveMoneda, tipoCambioPago, TxtObservaciones.Text.Trim, "", True, True, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1), CveCuentaDeposito:=CveCuentaDeposito, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), CveCorte:=CveCorte)
If CveIE > 0 Then
If CveVenta > 0 Then
- CveConcepto = 2
+ CveConceptoPrePoliza = 2
End If
Else
MsgError = "Ocurrio un Error al registrarse el movimiento bancario."
@@ -1534,8 +1534,8 @@ Partial Class Bancos_PopIEVentas
End If
Case "3" 'Ingresos x Comprobar
If CveVenta > 0 Then
- CveConcepto = 2
- CveConcepto2 = 92
+ CveConceptoPrePoliza = 2
+ CveConceptoPrePoliza2 = 92
CveCliente = DdlIngreso.SelectedValue.ToEntero
CveIE = -1
ImportePagado = TxtImporte.Text.Trim.ToDecimal
@@ -1543,15 +1543,15 @@ Partial Class Bancos_PopIEVentas
Case "4" 'Deudores Diversos
If CveVenta > 0 Then
ImportePagado = TxtImporte.Text.Trim.ToDecimal
- CveConcepto = 2
- CveConcepto2 = 43
+ CveConceptoPrePoliza = 2
+ CveConceptoPrePoliza2 = 43
CveProveedor2 = DdlDeudor.SelectedValue.ToEntero
CveIE = -1
End If
Case "5" 'Compras
If CveVenta > 0 Then
ImportePagado = TxtImporte.Text.Trim.ToDecimal
- CveConcepto = 2
+ CveConceptoPrePoliza = 2
'CveConcepto2 = 43
CveIE = -1
End If
@@ -1871,17 +1871,17 @@ Partial Class Bancos_PopIEVentas
ImporteMX = ImporteMovimiento
ElseIf CveMoneda = 1 AndAlso CveMonedaVenta = 2 Then
tipoCambioVenta = TipoCambioOriginal
- ImporteMovimiento = MovimientoPagar.IVA * PorcentajePago
+ ImporteMovimiento = (MovimientoPagar.IVA * PorcentajePago).RoundSQL
ImporteMX = ImporteMovimiento * tipoCambioVenta
ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 1 Then
ImporteMovimiento = (MovimientoPagar.IVA * PorcentajePago)
ImporteMX = ImporteMovimiento
ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 2 Then
tipoCambioVenta = TipoCambioOriginal
- ImporteMovimiento = MovimientoPagar.IVA * PorcentajePago
+ ImporteMovimiento = (MovimientoPagar.IVA * PorcentajePago).RoundSQL
ImporteMX = ImporteMovimiento * tipoCambioVenta
End If
- ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
+ ImporteMovimiento = ImporteMovimiento.RoundSQL
ImporteMX = Math.Round(ImporteMX, 2)
TimpocambioGeneral = tipoCambioVenta
CveSubProyectoContabilizar = CveSubProyectoVenta
@@ -1907,17 +1907,17 @@ Partial Class Bancos_PopIEVentas
ImporteMX = ImporteMovimiento
ElseIf CveMoneda = 1 AndAlso CveMonedaVenta = 2 Then
tipoCambioVenta = TipoCambioOriginal
- ImporteMovimiento = (MovimientoPagar.IVA * PorcentajePago)
+ ImporteMovimiento = (MovimientoPagar.IVA * PorcentajePago).RoundSQL
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 1 Then
ImporteMovimiento = (MovimientoPagar.IVA * PorcentajePago)
ImporteMX = ImporteMovimiento
ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 2 Then
tipoCambioVenta = TipoCambioOriginal
- ImporteMovimiento = MovimientoPagar.IVA * PorcentajePago
+ ImporteMovimiento = (MovimientoPagar.IVA * PorcentajePago).RoundSQL
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
End If
- ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
+ ImporteMovimiento = ImporteMovimiento.RoundSQL
ImporteMX = Math.Round(ImporteMX, 2)
TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
CveSubProyectoContabilizar = CveSubProyectoVenta
@@ -1942,17 +1942,17 @@ Partial Class Bancos_PopIEVentas
ImporteMX = ImporteMovimiento
ElseIf CveMoneda = 1 AndAlso CveMonedaVenta = 2 Then
tipoCambioVenta = TipoCambioOriginal
- ImporteMovimiento = MovimientoPagar.IEPS * PorcentajePago
+ ImporteMovimiento = (MovimientoPagar.IEPS * PorcentajePago).RoundSQL
ImporteMX = ImporteMovimiento * tipoCambioVenta
ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 1 Then
ImporteMovimiento = (MovimientoPagar.IEPS * PorcentajePago)
ImporteMX = ImporteMovimiento
ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 2 Then
tipoCambioVenta = TipoCambioOriginal
- ImporteMovimiento = (MovimientoPagar.IEPS * PorcentajePago)
+ ImporteMovimiento = (MovimientoPagar.IEPS * PorcentajePago).RoundSQL
ImporteMX = ImporteMovimiento * tipoCambioVenta
End If
- ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
+ ImporteMovimiento = ImporteMovimiento.RoundSQL
ImporteMX = Math.Round(ImporteMX, 2)
TimpocambioGeneral = tipoCambioVenta
CveSubProyectoContabilizar = CveSubProyectoVenta
@@ -1970,17 +1970,17 @@ Partial Class Bancos_PopIEVentas
ImporteMX = ImporteMovimiento
ElseIf CveMoneda = 1 AndAlso CveMonedaVenta = 2 Then
tipoCambioVenta = TipoCambioOriginal
- ImporteMovimiento = (MovimientoPagar.IEPS * PorcentajePago)
+ ImporteMovimiento = (MovimientoPagar.IEPS * PorcentajePago).RoundSQL
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 1 Then
ImporteMovimiento = (MovimientoPagar.IEPS * PorcentajePago)
ImporteMX = ImporteMovimiento
ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 2 Then
tipoCambioVenta = TipoCambioOriginal
- ImporteMovimiento = (MovimientoPagar.IEPS * PorcentajePago)
+ ImporteMovimiento = (MovimientoPagar.IEPS * PorcentajePago).RoundSQL
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
End If
- ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
+ ImporteMovimiento = ImporteMovimiento.RoundSQL
ImporteMX = Math.Round(ImporteMX, 2)
TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
CveSubProyectoContabilizar = CveSubProyectoVenta
@@ -1999,14 +1999,14 @@ Partial Class Bancos_PopIEVentas
ImporteMX = ImporteMovimiento
ElseIf CveMoneda = 1 AndAlso CveMonedaVenta = 2 Then
tipoCambioVenta = TipoCambioOriginal
- ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
+ ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago).RoundSQL
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 1 Then
ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
ImporteMX = ImporteMovimiento
ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 2 Then
tipoCambioVenta = TipoCambioOriginal
- ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
+ ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago).RoundSQL
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
End If
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
@@ -2045,14 +2045,14 @@ Partial Class Bancos_PopIEVentas
ImporteMX = ImporteMovimiento
ElseIf CveMoneda = 1 AndAlso CveMonedaVenta = 2 Then
tipoCambioVenta = TipoCambioOriginal
- ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago)
+ ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago).RoundSQL
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 1 Then
ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago)
ImporteMX = ImporteMovimiento
ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 2 Then
tipoCambioVenta = TipoCambioOriginal
- ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago)
+ ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago).RoundSQL
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
End If
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
@@ -2109,9 +2109,13 @@ Partial Class Bancos_PopIEVentas
If tImporteVenta <> tImportePago Then
If tImporteVenta < tImportePago Then
- CveConcepto = 64
+ ConceptoContable = 64
+ IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
+ TipoMovimiento = True
Else
- CveConcepto = 65
+ ConceptoContable = 65
+ IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria
+ TipoMovimiento = False
End If
Diferencia = Math.Abs(tImporteVenta - tImportePago)
End If
@@ -2128,6 +2132,8 @@ Partial Class Bancos_PopIEVentas
Diferencia = Math.Round(Diferencia, 2)
End If
+ ImporteMovimiento = Math.Abs(Diferencia)
+ ImporteMX = ImporteMovimiento
'' se considera, las diferencias, y no el tipo de cambio, por el caso de las fluctuaciones
@@ -3455,27 +3461,28 @@ Partial Class Bancos_PopIEVentas
ImporteMovimiento = 0
End Select
- If ImporteMovimiento <> 0 Then
+ If ImporteMovimiento <> 0 AndAlso MsgError <> "" Then
'Conta ContPAQ
If IdCtaContable = 0 Then
CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
idCuentaContabilizacion = 0
End If
- 'Conta SIG
- If CveCuenta = 0 Then
- CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
- CveCuentaContabilizacion = 0
- End If
+ ''Conta SIG
+ 'If CveCuenta = 0 Then
+ ' CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
+ ' CveCuentaContabilizacion = 0
+ 'End If
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, ReferenciaConcepto, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, CveVenta, -1, CveSubProyectoContabilizar, CveCliente:=CveClienteOriginal, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, CvePersonal:=CvePersonal, TipoCambio:=TimpocambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=PorcentajeImpuesto) Then
MsgError = "No se pudo insertar la póliza"
+ Exit For
End If
End If
Next
- If ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 3) Then
+ If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 3) Then
If ObjMov.ValorPolizaDescuadre > 0 Then
MsgError = ObjMov.MensajePolizaDescuadre
End If