-- importeme, en concepto 30
This commit is contained in:
@@ -295,7 +295,7 @@ Partial Class Bancos_ProveedoresAbonar
|
|||||||
If UsuarioActual.TienePermisoProceso(98) Then
|
If UsuarioActual.TienePermisoProceso(98) Then
|
||||||
PermiteModificarImporte = False
|
PermiteModificarImporte = False
|
||||||
End If
|
End If
|
||||||
Calendario.StartDate = Now.AddMonths(-8)
|
Calendario.StartDate = Now.AddMonths(-18)
|
||||||
'proceso que restringue solo el pago de apartir del dia de hoy y como limite fin de mes
|
'proceso que restringue solo el pago de apartir del dia de hoy y como limite fin de mes
|
||||||
If UsuarioActual.TienePermisoProceso(105) Then
|
If UsuarioActual.TienePermisoProceso(105) Then
|
||||||
Calendario.StartDate = Now
|
Calendario.StartDate = Now
|
||||||
@@ -898,57 +898,58 @@ Partial Class Bancos_ProveedoresAbonar
|
|||||||
|
|
||||||
Else
|
Else
|
||||||
Dim ImporteME As Decimal = 0
|
Dim ImporteME As Decimal = 0
|
||||||
|
If Pago.CveMonedaPago = 2 Then ImporteME = Pago.ImportePago
|
||||||
If Not UsaComplementariaBancos And Pago.CveMonedaPago = 2 Then
|
If Not UsaComplementariaBancos And Pago.CveMonedaPago = 2 Then
|
||||||
ImporteME = tImporteMN
|
ImporteME = tImporteMN
|
||||||
tImporteMN = (tImporteMN * Pago.TCPago).RoundSQL
|
tImporteMN = (tImporteMN * Pago.TCPago).RoundSQL
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, tImporteMN, 30, Referencia, ConceptoMovimiento, IdCuenta, CveIE:=CveIE, CveProveedor:=CveProveedor, TipoCambio:=Pago.TCPago, CveSubProyecto:=CveSubProyecto, ImporteME:=tImporteMN) Then
|
If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, tImporteMN, 30, Referencia, ConceptoMovimiento, IdCuenta, CveIE:=CveIE, CveProveedor:=CveProveedor, TipoCambio:=Pago.TCPago, CveSubProyecto:=CveSubProyecto, ImporteME:=ImporteME) Then
|
||||||
MsgError = "No se pudo insertar la póliza"
|
|
||||||
End If
|
|
||||||
|
|
||||||
If Pago.CveMonedaPago = 2 AndAlso UsaComplementariaBancos Then
|
|
||||||
If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, (Pago.ImportePago * Pago.TCPago - Pago.ImportePago).RoundSQL, 204, Referencia, ConceptoMovimiento, IdCuentaBancariaComplementaria, CveIE:=CveIE, CveProveedor:=CveProveedor, ImporteME:=Pago.ImportePago, TipoCambio:=Pago.TCPago, CveSubProyecto:=CveSubProyecto) Then
|
|
||||||
MsgError = "No se pudo insertar la póliza"
|
MsgError = "No se pudo insertar la póliza"
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
If Pago.CveMonedaPago = 2 AndAlso UsaComplementariaBancos Then
|
||||||
|
If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, (Pago.ImportePago * Pago.TCPago - Pago.ImportePago).RoundSQL, 204, Referencia, ConceptoMovimiento, IdCuentaBancariaComplementaria, CveIE:=CveIE, CveProveedor:=CveProveedor, ImporteME:=Pago.ImportePago, TipoCambio:=Pago.TCPago, CveSubProyecto:=CveSubProyecto) Then
|
||||||
|
MsgError = "No se pudo insertar la póliza"
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
'If UsuarioActual.CveEmpresa.Contiene(119, 158) AndAlso CveMoneda = 2 AndAlso CveMonedaFiltro = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES
|
||||||
|
' 'fluctuación.
|
||||||
|
' Dim TCPago = TxtTCDolares.Text.ToDecimal
|
||||||
|
|
||||||
|
' Dim ImporteFluctuacion As Decimal = 0 '((ImporteSeleccionado / TCPago) - TxtImporte.Text.ToDecimal)
|
||||||
|
|
||||||
|
' Dim DtPrePoliza As DataTable = Nothing
|
||||||
|
' If ObjMov.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) Then
|
||||||
|
' DtPrePoliza = ObjMov.DtResultados.Copy
|
||||||
|
' End If
|
||||||
|
|
||||||
|
' Dim PagoProveedoresME = DtPrePoliza.SUMD("ImporteMN", "CveConceptoContable = 312 AND TipoMovto = 0")
|
||||||
|
' Dim Bancos = DtPrePoliza.SUMD("ImporteMN", "CveConceptoContable = 30 AND TipoMovto = 1")
|
||||||
|
' Dim BancosComplementaria = DtPrePoliza.SUMD("ImporteMN", "CveConceptoContable = 204 AND TipoMovto = 1")
|
||||||
|
|
||||||
|
' DtPrePoliza.Dispose()
|
||||||
|
|
||||||
|
' ImporteFluctuacion = PagoProveedoresME - (Bancos + BancosComplementaria)
|
||||||
|
|
||||||
|
' If MsgError = "" AndAlso ImporteFluctuacion.RoundSQL() <> 0 Then
|
||||||
|
' 'SI EL PAGO DE PROVEEDORES ME ES MAYOR QUE BANCOS METER EL CONCEPTO DE GANANCIA
|
||||||
|
' If ImporteFluctuacion > 0 Then
|
||||||
|
' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Math.Abs(ImporteFluctuacion), Referencia, 64, ConceptoMovimiento, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaGananciaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveSubProyecto:=CveSubProyecto, CveProveedor:=Me.CveProveedor, CveCompra:=-1, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TipoCambio, TipoCambioPago:=TCPago) Then
|
||||||
|
' MsgError = "Ocurrio un error al saldar el movimiento"
|
||||||
|
' End If
|
||||||
|
' ElseIf ImporteFluctuacion < 0 Then
|
||||||
|
' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, Math.Abs(ImporteFluctuacion), Referencia, 65, ConceptoMovimiento, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveSubProyecto:=CveSubProyecto, CveProveedor:=Me.CveProveedor, CveCompra:=-1, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TipoCambio, TipoCambioPago:=TCPago) Then
|
||||||
|
' MsgError = "Ocurrio un error al saldar el movimiento"
|
||||||
|
' End If
|
||||||
|
' End If
|
||||||
|
' End If
|
||||||
|
'End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
'If UsuarioActual.CveEmpresa.Contiene(119, 158) AndAlso CveMoneda = 2 AndAlso CveMonedaFiltro = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES
|
If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 5) Then
|
||||||
' 'fluctuación.
|
|
||||||
' Dim TCPago = TxtTCDolares.Text.ToDecimal
|
|
||||||
|
|
||||||
' Dim ImporteFluctuacion As Decimal = 0 '((ImporteSeleccionado / TCPago) - TxtImporte.Text.ToDecimal)
|
|
||||||
|
|
||||||
' Dim DtPrePoliza As DataTable = Nothing
|
|
||||||
' If ObjMov.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) Then
|
|
||||||
' DtPrePoliza = ObjMov.DtResultados.Copy
|
|
||||||
' End If
|
|
||||||
|
|
||||||
' Dim PagoProveedoresME = DtPrePoliza.SUMD("ImporteMN", "CveConceptoContable = 312 AND TipoMovto = 0")
|
|
||||||
' Dim Bancos = DtPrePoliza.SUMD("ImporteMN", "CveConceptoContable = 30 AND TipoMovto = 1")
|
|
||||||
' Dim BancosComplementaria = DtPrePoliza.SUMD("ImporteMN", "CveConceptoContable = 204 AND TipoMovto = 1")
|
|
||||||
|
|
||||||
' DtPrePoliza.Dispose()
|
|
||||||
|
|
||||||
' ImporteFluctuacion = PagoProveedoresME - (Bancos + BancosComplementaria)
|
|
||||||
|
|
||||||
' If MsgError = "" AndAlso ImporteFluctuacion.RoundSQL() <> 0 Then
|
|
||||||
' 'SI EL PAGO DE PROVEEDORES ME ES MAYOR QUE BANCOS METER EL CONCEPTO DE GANANCIA
|
|
||||||
' If ImporteFluctuacion > 0 Then
|
|
||||||
' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Math.Abs(ImporteFluctuacion), Referencia, 64, ConceptoMovimiento, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaGananciaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveSubProyecto:=CveSubProyecto, CveProveedor:=Me.CveProveedor, CveCompra:=-1, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TipoCambio, TipoCambioPago:=TCPago) Then
|
|
||||||
' MsgError = "Ocurrio un error al saldar el movimiento"
|
|
||||||
' End If
|
|
||||||
' ElseIf ImporteFluctuacion < 0 Then
|
|
||||||
' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, Math.Abs(ImporteFluctuacion), Referencia, 65, ConceptoMovimiento, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveSubProyecto:=CveSubProyecto, CveProveedor:=Me.CveProveedor, CveCompra:=-1, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TipoCambio, TipoCambioPago:=TCPago) Then
|
|
||||||
' MsgError = "Ocurrio un error al saldar el movimiento"
|
|
||||||
' End If
|
|
||||||
' End If
|
|
||||||
' End If
|
|
||||||
'End If
|
|
||||||
|
|
||||||
End If
|
|
||||||
|
|
||||||
If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 5) Then
|
|
||||||
If ObjMov.ValorPolizaDescuadre > 0 Then
|
If ObjMov.ValorPolizaDescuadre > 0 Then
|
||||||
MsgError = ObjMov.MensajePolizaDescuadre + " " + ObjMov.ValorDiferencia
|
MsgError = ObjMov.MensajePolizaDescuadre + " " + ObjMov.ValorDiferencia
|
||||||
GuardaLogAD($"Bancos/ProveedoresAbonar | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
|
GuardaLogAD($"Bancos/ProveedoresAbonar | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
|
||||||
@@ -2032,7 +2033,7 @@ Partial Class Bancos_ProveedoresAbonar
|
|||||||
|
|
||||||
Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
|
Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
|
||||||
RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString
|
RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString
|
||||||
RVTxtFechaDocumentoMenor.MinimumValue = DateTime.Now.AddMonths(-12).ToShortDateString
|
RVTxtFechaDocumentoMenor.MinimumValue = DateTime.Now.AddMonths(-18).ToShortDateString
|
||||||
RVTxtFechaDocumentoMenor.MaximumValue = DateTime.Now.ToShortDateString
|
RVTxtFechaDocumentoMenor.MaximumValue = DateTime.Now.ToShortDateString
|
||||||
Calendario.EndDate = DateTime.Now
|
Calendario.EndDate = DateTime.Now
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user