- cambio en cuenta y limpieza
This commit is contained in:
rrene
@@ -1392,8 +1392,8 @@ Partial Class Bancos_PopIEVentas
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
Dim MsgError As String = ""
|
Dim MsgError As String = ""
|
||||||
Dim CveConcepto As Integer = -1
|
Dim CveConceptoPrePoliza As Integer = -1
|
||||||
Dim CveConcepto2 As Integer = -1
|
Dim CveConceptoPrePoliza2 As Integer = -1
|
||||||
Dim CvePersonal As Integer = -1
|
Dim CvePersonal As Integer = -1
|
||||||
Dim Inserta As Boolean = True
|
Dim Inserta As Boolean = True
|
||||||
Dim ImportePagado As Decimal = 0
|
Dim ImportePagado As Decimal = 0
|
||||||
@@ -1412,7 +1412,7 @@ Partial Class Bancos_PopIEVentas
|
|||||||
Case "2" 'FyE
|
Case "2" 'FyE
|
||||||
ImportePagado = TxtImporte.Text.Trim.ToDecimal
|
ImportePagado = TxtImporte.Text.Trim.ToDecimal
|
||||||
Fecha = TxtFechaDocumento.Text.Trim.ToDate
|
Fecha = TxtFechaDocumento.Text.Trim.ToDate
|
||||||
CveConcepto = 29
|
CveConceptoPrePoliza = 29
|
||||||
CveIE = -1
|
CveIE = -1
|
||||||
TipoMovimiento = True
|
TipoMovimiento = True
|
||||||
Dim stringPersonal As String = DdlFuncionarioEmpleado.SelectedItem.ToString
|
Dim stringPersonal As String = DdlFuncionarioEmpleado.SelectedItem.ToString
|
||||||
@@ -1421,8 +1421,8 @@ Partial Class Bancos_PopIEVentas
|
|||||||
ImportePagado = TxtImporte.Text.Trim.ToDecimal
|
ImportePagado = TxtImporte.Text.Trim.ToDecimal
|
||||||
Case "4" 'Deudores Diversos
|
Case "4" 'Deudores Diversos
|
||||||
ImportePagado = TxtImporte.Text.Trim.ToDecimal
|
ImportePagado = TxtImporte.Text.Trim.ToDecimal
|
||||||
CveConcepto = 17
|
CveConceptoPrePoliza = 17
|
||||||
CveConcepto2 = 37
|
CveConceptoPrePoliza2 = 37
|
||||||
CveIE = -1
|
CveIE = -1
|
||||||
Case "5" 'Compras
|
Case "5" 'Compras
|
||||||
ImportePagado = TxtImporte.Text.Trim.ToDecimal
|
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)
|
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 CveIE > 0 Then
|
||||||
If CveVenta > 0 Then
|
If CveVenta > 0 Then
|
||||||
CveConcepto = 2
|
CveConceptoPrePoliza = 2
|
||||||
End If
|
End If
|
||||||
Else
|
Else
|
||||||
MsgError = "Ocurrio un Error al registrarse el movimiento bancario."
|
MsgError = "Ocurrio un Error al registrarse el movimiento bancario."
|
||||||
@@ -1534,8 +1534,8 @@ Partial Class Bancos_PopIEVentas
|
|||||||
End If
|
End If
|
||||||
Case "3" 'Ingresos x Comprobar
|
Case "3" 'Ingresos x Comprobar
|
||||||
If CveVenta > 0 Then
|
If CveVenta > 0 Then
|
||||||
CveConcepto = 2
|
CveConceptoPrePoliza = 2
|
||||||
CveConcepto2 = 92
|
CveConceptoPrePoliza2 = 92
|
||||||
CveCliente = DdlIngreso.SelectedValue.ToEntero
|
CveCliente = DdlIngreso.SelectedValue.ToEntero
|
||||||
CveIE = -1
|
CveIE = -1
|
||||||
ImportePagado = TxtImporte.Text.Trim.ToDecimal
|
ImportePagado = TxtImporte.Text.Trim.ToDecimal
|
||||||
@@ -1543,15 +1543,15 @@ Partial Class Bancos_PopIEVentas
|
|||||||
Case "4" 'Deudores Diversos
|
Case "4" 'Deudores Diversos
|
||||||
If CveVenta > 0 Then
|
If CveVenta > 0 Then
|
||||||
ImportePagado = TxtImporte.Text.Trim.ToDecimal
|
ImportePagado = TxtImporte.Text.Trim.ToDecimal
|
||||||
CveConcepto = 2
|
CveConceptoPrePoliza = 2
|
||||||
CveConcepto2 = 43
|
CveConceptoPrePoliza2 = 43
|
||||||
CveProveedor2 = DdlDeudor.SelectedValue.ToEntero
|
CveProveedor2 = DdlDeudor.SelectedValue.ToEntero
|
||||||
CveIE = -1
|
CveIE = -1
|
||||||
End If
|
End If
|
||||||
Case "5" 'Compras
|
Case "5" 'Compras
|
||||||
If CveVenta > 0 Then
|
If CveVenta > 0 Then
|
||||||
ImportePagado = TxtImporte.Text.Trim.ToDecimal
|
ImportePagado = TxtImporte.Text.Trim.ToDecimal
|
||||||
CveConcepto = 2
|
CveConceptoPrePoliza = 2
|
||||||
'CveConcepto2 = 43
|
'CveConcepto2 = 43
|
||||||
CveIE = -1
|
CveIE = -1
|
||||||
End If
|
End If
|
||||||
@@ -1871,17 +1871,17 @@ Partial Class Bancos_PopIEVentas
|
|||||||
ImporteMX = ImporteMovimiento
|
ImporteMX = ImporteMovimiento
|
||||||
ElseIf CveMoneda = 1 AndAlso CveMonedaVenta = 2 Then
|
ElseIf CveMoneda = 1 AndAlso CveMonedaVenta = 2 Then
|
||||||
tipoCambioVenta = TipoCambioOriginal
|
tipoCambioVenta = TipoCambioOriginal
|
||||||
ImporteMovimiento = MovimientoPagar.IVA * PorcentajePago
|
ImporteMovimiento = (MovimientoPagar.IVA * PorcentajePago).RoundSQL
|
||||||
ImporteMX = ImporteMovimiento * tipoCambioVenta
|
ImporteMX = ImporteMovimiento * tipoCambioVenta
|
||||||
ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 1 Then
|
ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 1 Then
|
||||||
ImporteMovimiento = (MovimientoPagar.IVA * PorcentajePago)
|
ImporteMovimiento = (MovimientoPagar.IVA * PorcentajePago)
|
||||||
ImporteMX = ImporteMovimiento
|
ImporteMX = ImporteMovimiento
|
||||||
ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 2 Then
|
ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 2 Then
|
||||||
tipoCambioVenta = TipoCambioOriginal
|
tipoCambioVenta = TipoCambioOriginal
|
||||||
ImporteMovimiento = MovimientoPagar.IVA * PorcentajePago
|
ImporteMovimiento = (MovimientoPagar.IVA * PorcentajePago).RoundSQL
|
||||||
ImporteMX = ImporteMovimiento * tipoCambioVenta
|
ImporteMX = ImporteMovimiento * tipoCambioVenta
|
||||||
End If
|
End If
|
||||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||||
ImporteMX = Math.Round(ImporteMX, 2)
|
ImporteMX = Math.Round(ImporteMX, 2)
|
||||||
TimpocambioGeneral = tipoCambioVenta
|
TimpocambioGeneral = tipoCambioVenta
|
||||||
CveSubProyectoContabilizar = CveSubProyectoVenta
|
CveSubProyectoContabilizar = CveSubProyectoVenta
|
||||||
@@ -1907,17 +1907,17 @@ Partial Class Bancos_PopIEVentas
|
|||||||
ImporteMX = ImporteMovimiento
|
ImporteMX = ImporteMovimiento
|
||||||
ElseIf CveMoneda = 1 AndAlso CveMonedaVenta = 2 Then
|
ElseIf CveMoneda = 1 AndAlso CveMonedaVenta = 2 Then
|
||||||
tipoCambioVenta = TipoCambioOriginal
|
tipoCambioVenta = TipoCambioOriginal
|
||||||
ImporteMovimiento = (MovimientoPagar.IVA * PorcentajePago)
|
ImporteMovimiento = (MovimientoPagar.IVA * PorcentajePago).RoundSQL
|
||||||
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
|
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
|
||||||
ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 1 Then
|
ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 1 Then
|
||||||
ImporteMovimiento = (MovimientoPagar.IVA * PorcentajePago)
|
ImporteMovimiento = (MovimientoPagar.IVA * PorcentajePago)
|
||||||
ImporteMX = ImporteMovimiento
|
ImporteMX = ImporteMovimiento
|
||||||
ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 2 Then
|
ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 2 Then
|
||||||
tipoCambioVenta = TipoCambioOriginal
|
tipoCambioVenta = TipoCambioOriginal
|
||||||
ImporteMovimiento = MovimientoPagar.IVA * PorcentajePago
|
ImporteMovimiento = (MovimientoPagar.IVA * PorcentajePago).RoundSQL
|
||||||
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
|
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
|
||||||
End If
|
End If
|
||||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||||
ImporteMX = Math.Round(ImporteMX, 2)
|
ImporteMX = Math.Round(ImporteMX, 2)
|
||||||
TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
|
TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
|
||||||
CveSubProyectoContabilizar = CveSubProyectoVenta
|
CveSubProyectoContabilizar = CveSubProyectoVenta
|
||||||
@@ -1942,17 +1942,17 @@ Partial Class Bancos_PopIEVentas
|
|||||||
ImporteMX = ImporteMovimiento
|
ImporteMX = ImporteMovimiento
|
||||||
ElseIf CveMoneda = 1 AndAlso CveMonedaVenta = 2 Then
|
ElseIf CveMoneda = 1 AndAlso CveMonedaVenta = 2 Then
|
||||||
tipoCambioVenta = TipoCambioOriginal
|
tipoCambioVenta = TipoCambioOriginal
|
||||||
ImporteMovimiento = MovimientoPagar.IEPS * PorcentajePago
|
ImporteMovimiento = (MovimientoPagar.IEPS * PorcentajePago).RoundSQL
|
||||||
ImporteMX = ImporteMovimiento * tipoCambioVenta
|
ImporteMX = ImporteMovimiento * tipoCambioVenta
|
||||||
ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 1 Then
|
ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 1 Then
|
||||||
ImporteMovimiento = (MovimientoPagar.IEPS * PorcentajePago)
|
ImporteMovimiento = (MovimientoPagar.IEPS * PorcentajePago)
|
||||||
ImporteMX = ImporteMovimiento
|
ImporteMX = ImporteMovimiento
|
||||||
ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 2 Then
|
ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 2 Then
|
||||||
tipoCambioVenta = TipoCambioOriginal
|
tipoCambioVenta = TipoCambioOriginal
|
||||||
ImporteMovimiento = (MovimientoPagar.IEPS * PorcentajePago)
|
ImporteMovimiento = (MovimientoPagar.IEPS * PorcentajePago).RoundSQL
|
||||||
ImporteMX = ImporteMovimiento * tipoCambioVenta
|
ImporteMX = ImporteMovimiento * tipoCambioVenta
|
||||||
End If
|
End If
|
||||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||||
ImporteMX = Math.Round(ImporteMX, 2)
|
ImporteMX = Math.Round(ImporteMX, 2)
|
||||||
TimpocambioGeneral = tipoCambioVenta
|
TimpocambioGeneral = tipoCambioVenta
|
||||||
CveSubProyectoContabilizar = CveSubProyectoVenta
|
CveSubProyectoContabilizar = CveSubProyectoVenta
|
||||||
@@ -1970,17 +1970,17 @@ Partial Class Bancos_PopIEVentas
|
|||||||
ImporteMX = ImporteMovimiento
|
ImporteMX = ImporteMovimiento
|
||||||
ElseIf CveMoneda = 1 AndAlso CveMonedaVenta = 2 Then
|
ElseIf CveMoneda = 1 AndAlso CveMonedaVenta = 2 Then
|
||||||
tipoCambioVenta = TipoCambioOriginal
|
tipoCambioVenta = TipoCambioOriginal
|
||||||
ImporteMovimiento = (MovimientoPagar.IEPS * PorcentajePago)
|
ImporteMovimiento = (MovimientoPagar.IEPS * PorcentajePago).RoundSQL
|
||||||
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
|
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
|
||||||
ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 1 Then
|
ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 1 Then
|
||||||
ImporteMovimiento = (MovimientoPagar.IEPS * PorcentajePago)
|
ImporteMovimiento = (MovimientoPagar.IEPS * PorcentajePago)
|
||||||
ImporteMX = ImporteMovimiento
|
ImporteMX = ImporteMovimiento
|
||||||
ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 2 Then
|
ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 2 Then
|
||||||
tipoCambioVenta = TipoCambioOriginal
|
tipoCambioVenta = TipoCambioOriginal
|
||||||
ImporteMovimiento = (MovimientoPagar.IEPS * PorcentajePago)
|
ImporteMovimiento = (MovimientoPagar.IEPS * PorcentajePago).RoundSQL
|
||||||
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
|
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
|
||||||
End If
|
End If
|
||||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||||
ImporteMX = Math.Round(ImporteMX, 2)
|
ImporteMX = Math.Round(ImporteMX, 2)
|
||||||
TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
|
TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
|
||||||
CveSubProyectoContabilizar = CveSubProyectoVenta
|
CveSubProyectoContabilizar = CveSubProyectoVenta
|
||||||
@@ -1999,14 +1999,14 @@ Partial Class Bancos_PopIEVentas
|
|||||||
ImporteMX = ImporteMovimiento
|
ImporteMX = ImporteMovimiento
|
||||||
ElseIf CveMoneda = 1 AndAlso CveMonedaVenta = 2 Then
|
ElseIf CveMoneda = 1 AndAlso CveMonedaVenta = 2 Then
|
||||||
tipoCambioVenta = TipoCambioOriginal
|
tipoCambioVenta = TipoCambioOriginal
|
||||||
ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
|
ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago).RoundSQL
|
||||||
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
|
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
|
||||||
ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 1 Then
|
ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 1 Then
|
||||||
ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
|
ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
|
||||||
ImporteMX = ImporteMovimiento
|
ImporteMX = ImporteMovimiento
|
||||||
ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 2 Then
|
ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 2 Then
|
||||||
tipoCambioVenta = TipoCambioOriginal
|
tipoCambioVenta = TipoCambioOriginal
|
||||||
ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
|
ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago).RoundSQL
|
||||||
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
|
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
|
||||||
End If
|
End If
|
||||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||||
@@ -2045,14 +2045,14 @@ Partial Class Bancos_PopIEVentas
|
|||||||
ImporteMX = ImporteMovimiento
|
ImporteMX = ImporteMovimiento
|
||||||
ElseIf CveMoneda = 1 AndAlso CveMonedaVenta = 2 Then
|
ElseIf CveMoneda = 1 AndAlso CveMonedaVenta = 2 Then
|
||||||
tipoCambioVenta = TipoCambioOriginal
|
tipoCambioVenta = TipoCambioOriginal
|
||||||
ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago)
|
ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago).RoundSQL
|
||||||
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
|
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
|
||||||
ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 1 Then
|
ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 1 Then
|
||||||
ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago)
|
ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago)
|
||||||
ImporteMX = ImporteMovimiento
|
ImporteMX = ImporteMovimiento
|
||||||
ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 2 Then
|
ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 2 Then
|
||||||
tipoCambioVenta = TipoCambioOriginal
|
tipoCambioVenta = TipoCambioOriginal
|
||||||
ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago)
|
ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago).RoundSQL
|
||||||
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
|
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
|
||||||
End If
|
End If
|
||||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||||
@@ -2109,9 +2109,13 @@ Partial Class Bancos_PopIEVentas
|
|||||||
|
|
||||||
If tImporteVenta <> tImportePago Then
|
If tImporteVenta <> tImportePago Then
|
||||||
If tImporteVenta < tImportePago Then
|
If tImporteVenta < tImportePago Then
|
||||||
CveConcepto = 64
|
ConceptoContable = 64
|
||||||
|
IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
|
||||||
|
TipoMovimiento = True
|
||||||
Else
|
Else
|
||||||
CveConcepto = 65
|
ConceptoContable = 65
|
||||||
|
IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria
|
||||||
|
TipoMovimiento = False
|
||||||
End If
|
End If
|
||||||
Diferencia = Math.Abs(tImporteVenta - tImportePago)
|
Diferencia = Math.Abs(tImporteVenta - tImportePago)
|
||||||
End If
|
End If
|
||||||
@@ -2128,6 +2132,8 @@ Partial Class Bancos_PopIEVentas
|
|||||||
Diferencia = Math.Round(Diferencia, 2)
|
Diferencia = Math.Round(Diferencia, 2)
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
ImporteMovimiento = Math.Abs(Diferencia)
|
||||||
|
ImporteMX = ImporteMovimiento
|
||||||
|
|
||||||
'' se considera, las diferencias, y no el tipo de cambio, por el caso de las fluctuaciones
|
'' 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
|
ImporteMovimiento = 0
|
||||||
End Select
|
End Select
|
||||||
|
|
||||||
If ImporteMovimiento <> 0 Then
|
If ImporteMovimiento <> 0 AndAlso MsgError <> "" Then
|
||||||
'Conta ContPAQ
|
'Conta ContPAQ
|
||||||
If IdCtaContable = 0 Then
|
If IdCtaContable = 0 Then
|
||||||
CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
|
CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
|
||||||
idCuentaContabilizacion = 0
|
idCuentaContabilizacion = 0
|
||||||
End If
|
End If
|
||||||
|
|
||||||
'Conta SIG
|
''Conta SIG
|
||||||
If CveCuenta = 0 Then
|
'If CveCuenta = 0 Then
|
||||||
CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
|
' CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
|
||||||
CveCuentaContabilizacion = 0
|
' CveCuentaContabilizacion = 0
|
||||||
End If
|
'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
|
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"
|
MsgError = "No se pudo insertar la póliza"
|
||||||
|
Exit For
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
Next
|
Next
|
||||||
|
|
||||||
If ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 3) Then
|
If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 3) Then
|
||||||
If ObjMov.ValorPolizaDescuadre > 0 Then
|
If ObjMov.ValorPolizaDescuadre > 0 Then
|
||||||
MsgError = ObjMov.MensajePolizaDescuadre
|
MsgError = ObjMov.MensajePolizaDescuadre
|
||||||
End If
|
End If
|
||||||
|
|||||||
Reference in New Issue
Block a user